#include #include #include void getnp_(char *filename,int *np,int *mp){ char infile[190]; FILE *fp; int i,j,k; for(i=0;i<*mp;i++) infile[i] = filename[i]; infile[i] = '\0'; if((fp = fopen(infile,"r"))==NULL){ fprintf(stderr,"Cannot open file %s\n",infile); exit(99); } fread(np,sizeof(int),1,fp); fclose(fp); printf("opening %s and get np= %d\n",infile,*np); } void getdata_(char *filename,float *data,int *mp){ char infile[190]; FILE *fp; int np; int i,j,k; for(i=0;i<*mp;i++) infile[i] = filename[i]; infile[i] = '\0'; if((fp = fopen(infile,"r"))==NULL){ fprintf(stderr,"Cannot open file %s\n",infile); exit(99); } fread(&np,sizeof(int),1,fp); fread(data,sizeof(float),np,fp); fclose(fp); printf("opening %s and get data of np= %d\n",infile,np); }