Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
pcmat.c File Reference
#include <stdio.h>
#include <string.h>
#include <math.h>
Go to the source code of this file.
Define Documentation
#define COVERR |
( |
n |
|
) |
if(ii<(n)){fprintf(stderr,"read error\n");exit(1);}
|
|
#define SIGN |
( |
a, |
|
|
b |
|
) |
( (b) < 0 ? -fabs(a) : fabs(a) )
|
|
Function Documentation
void vector_write |
( |
char * |
fff, |
|
|
int |
nvec, |
|
|
float * |
vvv |
|
) |
|
|
|
Definition at line 31 of file pcmat.c.
References scale.
00032 {
00033 FILE *fffile ;
00034 float scale , va ;
00035 int ii , vi ;
00036
00037 fffile = fopen( fff , "w" ) ;
00038 if( fffile == NULL ){
00039 fprintf( stderr , "cannot open output file %s\n" , fff ) ;
00040 exit(1) ;
00041 }
00042 scale = 0.0 ;
00043 for( ii=1 ; ii <= nvec ; ii++ ){
00044 va = fabs(vvv[ii]) ;
00045 if( va > scale ) scale = va ;
00046 }
00047 if( scale > 0.0 ) scale = 10000.0 / scale ;
00048 for( ii=1 ; ii <= nvec ; ii++ ){
00049 vi = scale * vvv[ii] + 0.499 ;
00050 fprintf( fffile , "%6d\n" , vi ) ;
00051 }
00052 fclose( fffile ) ;
00053 return ;
00054 }
|
Variable Documentation