int main(int argc,char *argv[]) {
int drec=2,dnum;
struct RadarParm prm;
struct FitData fit;
struct OldFitFp *fp;
fp=OldFitOpen(argv[1],NULL);
if (fp==NULL) {
fprintf(stderr,"File not found.\n");
exit(-1);
}
OldFitHeaderFwrite(stdout,"Demonstration Code","fitacf","4.00");
while(OldFitRead(fp,&prm,&fit) !=-1) {
fprintf(stderr,"%.4d-%.2d-%.2d %.2d:%.2d:%.2d\n",
prm.time.yr,prm.time.mo,prm.time.dy,
prm.time.hr,prm.time.mt,prm.time.sc);
prm.cp=1000;
dnum=OldFitFwrite(stdout,&prm,&fit,NULL);
drec+=dnum;
}
OldFitClose(fp);
return 0;
}
int32 OldFitIDLWriteHeader(int argc,char *argv[]) {
struct RadarIDLParm *idlprm;
struct FitIDLData *idlfit;
IDL_FILE_STAT stat;
FILE *fp;
int unit;
int s;
char vstring[256];
unit = *( (int32 *) argv[0]);
/* Make sure that the "STDIO" keyword was used to
* open the file in IDL.
*/
s=IDL_FileEnsureStatus(IDL_MSG_RET,unit,IDL_EFS_STDIO);
if (s==FALSE) return -1;
/* Get information about the file */
IDL_FileStat(unit,&stat);
/* Find the file pointer */
fp=stat.fptr;
if (fp==NULL) return -1;
fflush(fp);
idlprm=(struct RadarIDLParm *) argv[1];
idlfit=(struct FitIDLData *) argv[2];
sprintf(vstring,"%d.%.3d",idlfit->revision.major,idlfit->revision.minor);
s=OldFitHeaderFwrite(fp,"IDL output","fitwrite",vstring);
return s;
}
