#include "stdio.h" #include "astring.h" #include "string.h" #include "stdlib.h" #include "flatfile.h" #include "misc.h" void main() { FILE *fpin, *fpout, *fppsi; char line[80], stat[4], sdate[24], edate[24], qdate[24]; char input_v[20], linein[180], temp[100], master[100], uname[100]; long sloc, nrows; float mlat; int found, done, t1, dt, nstat, n,i; system("ls -1 *.remca | cat > TEMP_FILE"); system("wc TEMP_FILE > TEMP_FILE2"); fpin = fopen("TEMP_FILE2","r"); fgets(linein,80,fpin); nstat = atoi(linein); fclose(fpin); system("/bin/rm TEMP_FILE2"); fpin = fopen("TEMP_FILE","r"); fgets(line,80,fpin); fclose(fpin); strcpy(temp,"wc "); strcat(temp,strmid(line,0,strlen(line)-1)); strcat(temp," > TEMP_FILE2"); system(temp); fpin = fopen("TEMP_FILE2","r"); fgets(linein,80,fpin); nrows = (long) atof(linein); fclose(fpin); system("/bin/rm TEMP_FILE2"); fpin = fopen(strmid(line,0,strlen(line)-1),"r"); for (i=0;i<7;i++) { fgets(linein,180,fpin); } t1 = atoi(strmid(linein,8,2)); fgets(linein,180,fpin); dt = atoi(strmid(linein,8,2)) - t1; fclose(fpin); printf("Enter start date of the period (dd-mon-yy) : "); gets(sdate); strcpy(uname,spawn("/usr/bin/whoami")); strcpy(uname,strmid(uname,0,strlen(uname)-1)); strcpy(master, "/export/data1/ganglu/mags/tempfiles/mas.loc."); strcat(master,uname); strcat(master,"."); strcat(master,sdate); printf("master : %s\n",master); fpin = fopen(master,"r"); fgets(master, 80, fpin); fgets(master, 80, fpin); fclose(fpin); strcpy(master,strmid(master,0,strlen(master)-1)); printf("fpin : %s\n",master); fppsi = fopen(master,"r"); fgets(linein,180,fppsi); fpout = fopen("master_psi.dat","w"); printf("fpout : %s\n",master); fprintf(fpout,"%3d%3d%3d%5ld%3d%s", nstat,0,0,nrows,dt,strmid(linein,17,strlen(linein)-17)); fprintf(fpout," # name cmp h a glat glon alat alon "); fprintf(fpout,"dec psi wt\n"); fpin = fopen("TEMP_FILE","r"); n = 1; while ((!feof(fpin)) && (n <= nstat)) { fgets(linein,80,fpin); strcpy(stat,mkupper(strmid(linein,0,3))); fseek(fppsi,0,SEEK_SET); done = 0; while (!done) { fgets(line, 79, fppsi);; if (feof(fppsi)) done = 1; sloc = strloc(line, stat); if ((sloc > 3) && (sloc < 6) && (!done)) { line[13] = 'X'; line[14] = 'Y'; fprintf(fpout,"%3d %s",n,strmid(line,4,strlen(line)-4)); n++; found = 1; done = 1; } } } close(fpin); close(fppsi); system("/bin/rm TEMP_FILE"); }