#include "stdio.h" #include "stdlib.h" #include "astring.h" #include "string.h" #include "math.h" #include "misc.h" #include "flatfile.h" int gint(char *istr, int nvals, int *ivals){ int i,t1,t2; for (i=0;i 0) && (isc < 9)) { sclfct = pow(2.0,(float) (3-isc)); } else { sclfct = pow(10.0,(float) (10-isc)); } if (irl[0] > 32767) irl[0] = irl[0] - 65536; if (iun[0] > 32767) iun[0] = iun[0] - 65536; rl = ((float) irl[0])*sclfct; un = ((float) iun[0])*sclfct; if ((int) ib[31] == 0) { rl = rmiss; un = rmiss; } for (i=0; i< nds; i++) { if (ivals[i] > 32767) ivals[i] = ivals[i] - 65536; if (ivals[i] != rmiss) { vals[i] = ((float) ivals[i])*0.25; } else { vals[i] = -1.0e32; } data[rowout][comp] = (float) vals[i]; rowout++; } } } rowout = 0; for (i=0; i