f1                960 src/CalculiX.h                FILE *f1,char *output,ITG *istep,ITG *iinc);
f1                968 src/CalculiX.h      ITG *ifield,ITG *icomp,ITG *nfield,ITG *iselect,char *m2,FILE *f1,
f1                978 src/CalculiX.h                FILE *f1,char *output,char *m3);
f1                112 src/arpack.c     FILE *f1;
f1                747 src/arpack.c         if((f1=fopen(fneig,"wb"))==NULL){
f1                756 src/arpack.c         if(fwrite(&zero,sizeof(ITG),1,f1)!=1){
f1                763 src/arpack.c         if(fwrite(&nherm,sizeof(ITG),1,f1)!=1){
f1                770 src/arpack.c         if(fwrite(&nev,sizeof(ITG),1,f1)!=1){
f1                777 src/arpack.c         if(fwrite(d,sizeof(double),nev,f1)!=nev){
f1                784 src/arpack.c         if(fwrite(ad,sizeof(double),neq[1],f1)!=neq[1]){
f1                788 src/arpack.c         if(fwrite(au,sizeof(double),nzs[2],f1)!=nzs[2]){
f1                795 src/arpack.c         if(fwrite(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                799 src/arpack.c         if(fwrite(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                855 src/arpack.c   	if(fwrite(&z[lint],sizeof(double),neq[1],f1)!=neq[1]){
f1                958 src/arpack.c         fclose(f1);
f1                122 src/arpackcs.c   FILE *f1;
f1                955 src/arpackcs.c 	      if((f1=fopen(fneig,"wb"))==NULL){
f1                963 src/arpackcs.c 	      if(fwrite(&one,sizeof(ITG),1,f1)!=1){
f1                970 src/arpackcs.c 	      if(fwrite(&nherm,sizeof(ITG),1,f1)!=1){
f1                976 src/arpackcs.c 	      if((f1=fopen(fneig,"ab"))==NULL){
f1                984 src/arpackcs.c 	  if(fwrite(&nm,sizeof(ITG),1,f1)!=1){
f1                991 src/arpackcs.c 	  if(fwrite(&nev,sizeof(ITG),1,f1)!=1){
f1                998 src/arpackcs.c 	  if(fwrite(d,sizeof(double),nev,f1)!=nev){
f1               1006 src/arpackcs.c 	      if(fwrite(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1               1010 src/arpackcs.c 	      if(fwrite(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1               1218 src/arpackcs.c 	      if(fwrite(&z[lint],sizeof(double),neq[1],f1)!=neq[1]){
f1               2276 src/arpackcs.c       fclose(f1);
f1                 39 src/ccx_2.8.c  FILE *f1;
f1                538 src/ccx_2.8.c    if((f1=fopen(fneig,"rb"))!=NULL){
f1                539 src/ccx_2.8.c        if(fread(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1                543 src/ccx_2.8.c        fclose(f1);
f1               1421 src/ccx_2.8.c  if((f1=fopen(fneig,"ab"))==NULL){
f1               1428 src/ccx_2.8.c  fprintf(f1," 9999\n");
f1               1429 src/ccx_2.8.c  fclose(f1);
f1                114 src/complexfreq.c   FILE *f1;
f1                168 src/complexfreq.c   if((f1=fopen(fneig,"rb"))==NULL){
f1                178 src/complexfreq.c   if(fread(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1                183 src/complexfreq.c   if(fread(&nherm,sizeof(ITG),1,f1)!=1){
f1                202 src/complexfreq.c       if(fread(&nev,sizeof(ITG),1,f1)!=1){
f1                210 src/complexfreq.c 	  if(fread(d,sizeof(double),nev,f1)!=nev){
f1                216 src/complexfreq.c 	  if(fread(d,sizeof(double),2*nev,f1)!=2*nev){
f1                229 src/complexfreq.c       if(fread(ad,sizeof(double),neq[1],f1)!=neq[1]){
f1                234 src/complexfreq.c       if(fread(au,sizeof(double),nzs[2],f1)!=nzs[2]){
f1                241 src/complexfreq.c       if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                246 src/complexfreq.c       if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                255 src/complexfreq.c 	  if(fread(z,sizeof(double),neq[1]*nev,f1)!=neq[1]*nev){
f1                261 src/complexfreq.c 	  if(fread(z,sizeof(double),2*neq[1]*nev,f1)!=2*neq[1]*nev){
f1                280 src/complexfreq.c 	  if(fread(&nmd,sizeof(ITG),1,f1)!=1){
f1                283 src/complexfreq.c 	  if(fread(&nevd,sizeof(ITG),1,f1)!=1){
f1                299 src/complexfreq.c 	      if(fread(&d[nev],sizeof(double),nevd,f1)!=nevd){
f1                304 src/complexfreq.c 	      if(fread(&d[nev],sizeof(double),2*nevd,f1)!=2*nevd){
f1                315 src/complexfreq.c 	      if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                320 src/complexfreq.c 	      if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                332 src/complexfreq.c 	  if(fread(&z[neq[1]*nev],sizeof(double),neq[1]*nevd,f1)!=neq[1]*nevd){
f1                377 src/complexfreq.c   fclose(f1);
f1                905 src/complexfreq.c 	  if((f1=fopen(fneig,"wb"))==NULL){
f1                913 src/complexfreq.c 	  if(fwrite(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1                920 src/complexfreq.c 	  if(fwrite(&nherm,sizeof(ITG),1,f1)!=1){
f1                927 src/complexfreq.c 	  if(fwrite(&nev,sizeof(ITG),1,f1)!=1){
f1                941 src/complexfreq.c 	  if(fwrite(eigx,sizeof(double),2*nev,f1)!=2*nev){
f1                950 src/complexfreq.c 	  if(fwrite(ad,sizeof(double),neq[1],f1)!=neq[1]){
f1                954 src/complexfreq.c 	  if(fwrite(au,sizeof(double),nzs[2],f1)!=nzs[2]){
f1                961 src/complexfreq.c 	  if(fwrite(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                965 src/complexfreq.c 	  if(fwrite(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                977 src/complexfreq.c 	      if(fwrite(&zz[lint],sizeof(double),2*neq[1],f1)!=2*neq[1]){
f1                985 src/complexfreq.c 	  if(fwrite(xmr,sizeof(double),nev*nev,f1)!=nev*nev){
f1                990 src/complexfreq.c 	  if(fwrite(xmi,sizeof(double),nev*nev,f1)!=nev*nev){
f1                999 src/complexfreq.c 	  if((f1=fopen(fneig,"wb"))==NULL){
f1               1006 src/complexfreq.c 	  if(fwrite(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1               1013 src/complexfreq.c 	  if(fwrite(&nherm,sizeof(ITG),1,f1)!=1){
f1               1018 src/complexfreq.c 	  if(fwrite(&nm[0],sizeof(ITG),1,f1)!=1){
f1               1022 src/complexfreq.c 	  if(fwrite(&nev,sizeof(ITG),1,f1)!=1){
f1               1036 src/complexfreq.c 	  if(fwrite(eigx,sizeof(double),2*nev,f1)!=2*nev){
f1               1045 src/complexfreq.c 	  if(fwrite(adb,sizeof(double),*neq,f1)!=*neq){
f1               1049 src/complexfreq.c 	  if(fwrite(aub,sizeof(double),*nzs,f1)!=*nzs){
f1               1060 src/complexfreq.c 	      if(fwrite(&zz[lint],sizeof(double),neq[1],f1)!=neq[1]){
f1               1068 src/complexfreq.c 	  if(fwrite(xmr,sizeof(double),nev*nev,f1)!=nev*nev){
f1               1073 src/complexfreq.c 	  if(fwrite(xmi,sizeof(double),nev*nev,f1)!=nev*nev){
f1               1080 src/complexfreq.c       fclose(f1);
f1                131 src/dyna.c       FILE *f1;
f1                198 src/dyna.c       if((f1=fopen(fneig,"rb"))==NULL){
f1                208 src/dyna.c       if(fread(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1                213 src/dyna.c       if(fread(&nherm,sizeof(ITG),1,f1)!=1){
f1                313 src/dyna.c           if(fread(&nev,sizeof(ITG),1,f1)!=1){
f1                320 src/dyna.c           if(fread(d,sizeof(double),nev,f1)!=nev){
f1                334 src/dyna.c           if(fread(ad,sizeof(double),neq[1],f1)!=neq[1]){
f1                339 src/dyna.c           if(fread(au,sizeof(double),nzs[2],f1)!=nzs[2]){
f1                344 src/dyna.c           if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                349 src/dyna.c           if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                356 src/dyna.c           if(fread(z,sizeof(double),neq[1]*nev,f1)!=neq[1]*nev){
f1                364 src/dyna.c     	  if(fread(&nmd,sizeof(ITG),1,f1)!=1){
f1                367 src/dyna.c     	  if(fread(&nevd,sizeof(ITG),1,f1)!=1){
f1                379 src/dyna.c     	  if(fread(&d[nev],sizeof(double),nevd,f1)!=nevd){
f1                394 src/dyna.c     	      if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                399 src/dyna.c     	      if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                411 src/dyna.c     	  if(fread(&z[(long long)neq[1]*nev],sizeof(double),neq[1]*nevd,f1)!=neq[1]*nevd){
f1                581 src/dyna.c       fclose(f1);
f1                 52 src/frd.c        FILE *f1;
f1                107 src/frd.c        if((f1=fopen(fneig,"ab"))==NULL){
f1                198 src/frd.c          fprintf(f1,"%5sUUSER                                                              \n",p1);
f1                199 src/frd.c          fprintf(f1,"%5sUDATE              %20s                            \n",p1,newdate);
f1                200 src/frd.c          fprintf(f1,"%5sUTIME              %8s                                        \n",p1,newclock);
f1                201 src/frd.c          fprintf(f1,"%5sUHOST                                                              \n",p1);
f1                202 src/frd.c          fprintf(f1,"%5sUPGM               CalculiX                                        \n",p1);
f1                203 src/frd.c          fprintf(f1,"%5sUDIR                                                               \n",p1);
f1                204 src/frd.c          fprintf(f1,"%5sUDBN                                                               \n",p1);
f1                208 src/frd.c      	fprintf(f1,"%5sUMAT%5" ITGFORMAT "%58s\n",p1,i+1,material);
f1                214 src/frd.c            fprintf(f1,"%5s%1s                  %12" ITGFORMAT "%38" ITGFORMAT "\n",p2,c,nout,one);
f1                216 src/frd.c            fprintf(f1,"%5s%1s                  %12" ITGFORMAT "%38" ITGFORMAT "\n",p2,c,nout,three);
f1                225 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)co[3*i],
f1                228 src/frd.c      	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                229 src/frd.c      	  fwrite(&co[3*i],sizeof(double),1,f1);
f1                230 src/frd.c      	  fwrite(&co[3*i+1],sizeof(double),1,f1);
f1                231 src/frd.c      	  fwrite(&co[3*i+2],sizeof(double),1,f1);
f1                237 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)co[3*i],
f1                240 src/frd.c      	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                241 src/frd.c      	  fwrite(&co[3*i],sizeof(double),1,f1);
f1                242 src/frd.c      	  fwrite(&co[3*i+1],sizeof(double),1,f1);
f1                243 src/frd.c      	  fwrite(&co[3*i+2],sizeof(double),1,f1);
f1                252 src/frd.c          if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1                277 src/frd.c            fprintf(f1,"%5s%1s                  %12" ITGFORMAT "%38" ITGFORMAT "\n",p3,c,nelout,one);
f1                279 src/frd.c            fprintf(f1,"%5s%1s                  %12" ITGFORMAT "%38" ITGFORMAT "\n",p3,c,nelout,two);
f1                307 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                309 src/frd.c      	    for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                310 src/frd.c      	    fprintf(f1,"\n%3s",m2);
f1                311 src/frd.c      	    for(j=10;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                312 src/frd.c      	    for(j=16;j<19;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                313 src/frd.c      	    for(j=19;j<20;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                314 src/frd.c      	    for(j=12;j<16;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                315 src/frd.c      	    fprintf(f1,"\n");
f1                317 src/frd.c      	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                318 src/frd.c      	    iw=(int)ip4;fwrite(&iw,sizeof(int),1,f1);
f1                319 src/frd.c      	    iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                320 src/frd.c      	    iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                322 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                324 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                326 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                328 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                330 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                346 src/frd.c      	      fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                348 src/frd.c      	      for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
f1                349 src/frd.c      	      fprintf(f1,"\n%3s",m2);
f1                350 src/frd.c      	      for(j=10;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
f1                351 src/frd.c      	      for(j=16;j<19;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
f1                352 src/frd.c      	      for(j=19;j<20;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
f1                353 src/frd.c      	      for(j=12;j<16;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
f1                354 src/frd.c      	      fprintf(f1,"\n");
f1                356 src/frd.c      	      iw=(int)nemax;fwrite(&iw,sizeof(int),1,f1);
f1                357 src/frd.c      	      iw=(int)ip4;fwrite(&iw,sizeof(int),1,f1);
f1                358 src/frd.c      	      iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                359 src/frd.c      	      iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                361 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                363 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                365 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                367 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                369 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                377 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p12,p0,imat);
f1                378 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe+20],
f1                381 src/frd.c      	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                382 src/frd.c      	    iw=(int)ip12;fwrite(&iw,sizeof(int),1,f1);
f1                383 src/frd.c      	    iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                384 src/frd.c      	    iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                385 src/frd.c      	    iw=(int)kon[indexe+20];fwrite(&iw,sizeof(int),1,f1);
f1                386 src/frd.c      	    iw=(int)kon[indexe+22];fwrite(&iw,sizeof(int),1,f1);
f1                387 src/frd.c      	    iw=(int)kon[indexe+21];fwrite(&iw,sizeof(int),1,f1);
f1                395 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                397 src/frd.c      	    for(j=0;j<8;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+20+j]);
f1                398 src/frd.c      	    fprintf(f1,"\n");
f1                400 src/frd.c      	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                401 src/frd.c      	    iw=(int)ip10;fwrite(&iw,sizeof(int),1,f1);
f1                402 src/frd.c      	    iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                403 src/frd.c      	    iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                405 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                415 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                417 src/frd.c      		  for(j=0;j<8;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                418 src/frd.c      		  fprintf(f1,"\n");
f1                420 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                421 src/frd.c      		  iw=(int)ip1;fwrite(&iw,sizeof(int),1,f1);
f1                422 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                423 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                425 src/frd.c      		      fwrite(&iw,sizeof(int),1,f1);}
f1                433 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p11,p0,imat);
f1                434 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe+8],
f1                437 src/frd.c      		      iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                438 src/frd.c      		      iw=(int)ip11;fwrite(&iw,sizeof(int),1,f1);
f1                439 src/frd.c      		      iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                440 src/frd.c      		      iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                441 src/frd.c      		      iw=(int)kon[indexe+8];fwrite(&iw,sizeof(int),1,f1);
f1                442 src/frd.c      		      iw=(int)kon[indexe+9];fwrite(&iw,sizeof(int),1,f1);
f1                446 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p11,p0,imat);
f1                447 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe+11],
f1                450 src/frd.c      		      iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                451 src/frd.c      		      iw=(int)ip11;fwrite(&iw,sizeof(int),1,f1);
f1                452 src/frd.c      		      iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                453 src/frd.c      		      iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                454 src/frd.c      		      iw=(int)kon[indexe+11];fwrite(&iw,sizeof(int),1,f1);
f1                455 src/frd.c      		      iw=(int)kon[indexe+12];fwrite(&iw,sizeof(int),1,f1);
f1                466 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                468 src/frd.c      		      for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+8+j]);
f1                469 src/frd.c      		      fprintf(f1,"\n");
f1                471 src/frd.c      		      iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                472 src/frd.c      		      iw=(int)ip9;fwrite(&iw,sizeof(int),1,f1);
f1                473 src/frd.c      		      iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                474 src/frd.c      		      iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                476 src/frd.c      			  fwrite(&iw,sizeof(int),1,f1);}
f1                480 src/frd.c      		      fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                482 src/frd.c      		      for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+11+j]);
f1                483 src/frd.c      		      fprintf(f1,"\n");
f1                485 src/frd.c      		      iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                486 src/frd.c      		      iw=(int)ip9;fwrite(&iw,sizeof(int),1,f1);
f1                487 src/frd.c      		      iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                488 src/frd.c      		      iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                490 src/frd.c      			  fwrite(&iw,sizeof(int),1,f1);}
f1                500 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                502 src/frd.c      	  for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                503 src/frd.c      	  fprintf(f1,"\n");
f1                505 src/frd.c      	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                506 src/frd.c      	  iw=(int)ip6;fwrite(&iw,sizeof(int),1,f1);
f1                507 src/frd.c      	  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                508 src/frd.c      	  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                510 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                517 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                519 src/frd.c      	  for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                520 src/frd.c      	  fprintf(f1,"\n");
f1                522 src/frd.c      	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                523 src/frd.c      	  iw=(int)ip3;fwrite(&iw,sizeof(int),1,f1);
f1                524 src/frd.c      	  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                525 src/frd.c      	  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                527 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                536 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                538 src/frd.c      	    for(j=0;j<9;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                539 src/frd.c      	    for(j=12;j<13;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                540 src/frd.c      	    fprintf(f1,"\n%3s",m2);
f1                541 src/frd.c      	    for(j=13;j<15;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                542 src/frd.c      	    for(j=9;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                543 src/frd.c      	    fprintf(f1,"\n");
f1                545 src/frd.c      	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                546 src/frd.c      	    iw=(int)ip5;fwrite(&iw,sizeof(int),1,f1);
f1                547 src/frd.c      	    iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                548 src/frd.c      	    iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                550 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                552 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                554 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                556 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                564 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                566 src/frd.c      	    for(j=0;j<6;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+15+j]);
f1                567 src/frd.c      	    fprintf(f1,"\n");
f1                569 src/frd.c      	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                570 src/frd.c      	    iw=(int)ip8;fwrite(&iw,sizeof(int),1,f1);
f1                571 src/frd.c      	    iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                572 src/frd.c      	    iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                574 src/frd.c      	                      fwrite(&iw,sizeof(int),1,f1);}
f1                584 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                586 src/frd.c      		  for(j=0;j<6;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
f1                587 src/frd.c      		  fprintf(f1,"\n");
f1                589 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                590 src/frd.c      		  iw=(int)ip2;fwrite(&iw,sizeof(int),1,f1);
f1                591 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                592 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                594 src/frd.c      		      fwrite(&iw,sizeof(int),1,f1);}
f1                602 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n%3s",
f1                604 src/frd.c      		  for(j=0;j<3;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+6+j]);
f1                605 src/frd.c      		  fprintf(f1,"\n");
f1                607 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                608 src/frd.c      		  iw=(int)ip7;fwrite(&iw,sizeof(int),1,f1);
f1                609 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                610 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                612 src/frd.c      		      fwrite(&iw,sizeof(int),1,f1);}
f1                621 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p11,p0,imat);
f1                622 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,
f1                625 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                626 src/frd.c      		  iw=(int)ip11;fwrite(&iw,sizeof(int),1,f1);
f1                627 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                628 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                629 src/frd.c      		  iw=(int)kon[indexe+1];fwrite(&iw,sizeof(int),1,f1);
f1                630 src/frd.c      		  iw=(int)kon[indexe+2];fwrite(&iw,sizeof(int),1,f1);
f1                637 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p11,p0,imat);
f1                638 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe],
f1                641 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                642 src/frd.c      		  iw=(int)ip11;fwrite(&iw,sizeof(int),1,f1);
f1                643 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                644 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                645 src/frd.c      		  iw=(int)kon[indexe];fwrite(&iw,sizeof(int),1,f1);
f1                646 src/frd.c      		  iw=(int)kon[indexe+1];fwrite(&iw,sizeof(int),1,f1);
f1                653 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p12,p0,imat);
f1                654 src/frd.c      		  fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe],
f1                657 src/frd.c      		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                658 src/frd.c      		  iw=(int)ip12;fwrite(&iw,sizeof(int),1,f1);
f1                659 src/frd.c      		  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                660 src/frd.c      		  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                661 src/frd.c      		  iw=(int)kon[indexe];fwrite(&iw,sizeof(int),1,f1);
f1                662 src/frd.c      		  iw=(int)kon[indexe+2];fwrite(&iw,sizeof(int),1,f1);
f1                663 src/frd.c      		  iw=(int)kon[indexe+1];fwrite(&iw,sizeof(int),1,f1);
f1                672 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%5s%5s%5" ITGFORMAT "\n",m1,i+1,p11,p0,imat);
f1                673 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%10" ITGFORMAT "\n",m2,kon[indexe],kon[indexe+1]);
f1                675 src/frd.c      	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                676 src/frd.c      	  iw=(int)ip11;fwrite(&iw,sizeof(int),1,f1);
f1                677 src/frd.c      	  iw=(int)ip0;fwrite(&iw,sizeof(int),1,f1);
f1                678 src/frd.c      	  iw=(int)imat;fwrite(&iw,sizeof(int),1,f1);
f1                679 src/frd.c      	  iw=(int)kon[indexe];fwrite(&iw,sizeof(int),1,f1);
f1                680 src/frd.c      	  iw=(int)kon[indexe+1];fwrite(&iw,sizeof(int),1,f1);
f1                684 src/frd.c          if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1                686 src/frd.c          if(*nmethod==0){fclose(f1);return;}
f1                692 src/frd.c        if((*nmethod==2)&&(((*mode/2)*2!=*mode)&&(*noddiam>=0))){fclose(f1);return;}
f1                704 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                706 src/frd.c          fprintf(f1," -4  DISP        4    1\n");
f1                707 src/frd.c          fprintf(f1," -5  D1          1    2    1    0\n");
f1                708 src/frd.c          fprintf(f1," -5  D2          1    2    2    0\n");
f1                709 src/frd.c          fprintf(f1," -5  D3          1    2    3    0\n");
f1                710 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1                713 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
f1                723 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                725 src/frd.c            fprintf(f1," -4  DISPI       4    1\n");
f1                726 src/frd.c            fprintf(f1," -5  D1          1    2    1    0\n");
f1                727 src/frd.c            fprintf(f1," -5  D2          1    2    2    0\n");
f1                728 src/frd.c            fprintf(f1," -5  D3          1    2    3    0\n");
f1                729 src/frd.c            fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1                732 src/frd.c      		trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
f1                746 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                748 src/frd.c          fprintf(f1," -4  VELO        4    1\n");
f1                749 src/frd.c          fprintf(f1," -5  V1          1    2    1    0\n");
f1                750 src/frd.c          fprintf(f1," -5  V2          1    2    2    0\n");
f1                751 src/frd.c          fprintf(f1," -5  V3          1    2    3    0\n");
f1                752 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1                755 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
f1                768 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                770 src/frd.c          fprintf(f1," -4  NDTEMP      1    1\n");
f1                771 src/frd.c          fprintf(f1," -5  T           1    1    0    0\n");
f1                776 src/frd.c                      nfieldscalar,&iselect,m2,f1,output,m3);
f1                780 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1                794 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                796 src/frd.c          fprintf(f1," -4  ELPOT       1    1\n");
f1                797 src/frd.c          fprintf(f1," -5  V           1    1    0    0\n");
f1                801 src/frd.c      	      nfieldvector0,&iselect,m2,f1,output,m3);
f1                814 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                816 src/frd.c          fprintf(f1," -4  STRESS      6    1\n");
f1                817 src/frd.c          fprintf(f1," -5  SXX         1    4    1    1\n");
f1                818 src/frd.c          fprintf(f1," -5  SYY         1    4    2    2\n");
f1                819 src/frd.c          fprintf(f1," -5  SZZ         1    4    3    3\n");
f1                820 src/frd.c          fprintf(f1," -5  SXY         1    4    1    2\n");
f1                821 src/frd.c          fprintf(f1," -5  SYZ         1    4    2    3\n");
f1                822 src/frd.c          fprintf(f1," -5  SZX         1    4    3    1\n");
f1                826 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                837 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                839 src/frd.c            fprintf(f1," -4  STRESSI     6    1\n");
f1                840 src/frd.c            fprintf(f1," -5  SXX         1    4    1    1\n");
f1                841 src/frd.c            fprintf(f1," -5  SYY         1    4    2    2\n");
f1                842 src/frd.c            fprintf(f1," -5  SZZ         1    4    3    3\n");
f1                843 src/frd.c            fprintf(f1," -5  SXY         1    4    1    2\n");
f1                844 src/frd.c            fprintf(f1," -5  SYZ         1    4    2    3\n");
f1                845 src/frd.c            fprintf(f1," -5  SZX         1    4    3    1\n");
f1                849 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                864 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                866 src/frd.c          fprintf(f1," -4  EMFE        4    1\n");
f1                867 src/frd.c          fprintf(f1," -5  E1          1    2    1    0\n");
f1                868 src/frd.c          fprintf(f1," -5  E2          1    2    2    0\n");
f1                869 src/frd.c          fprintf(f1," -5  E3          1    2    3    0\n");
f1                870 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1                874 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                888 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                890 src/frd.c          fprintf(f1," -4  EMFB        4    1\n");
f1                891 src/frd.c          fprintf(f1," -5  B1          1    2    1    0\n");
f1                892 src/frd.c          fprintf(f1," -5  B2          1    2    2    0\n");
f1                893 src/frd.c          fprintf(f1," -5  B3          1    2    3    0\n");
f1                894 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1                898 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                912 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                914 src/frd.c          fprintf(f1," -4  TOSTRAIN    6    1\n");
f1                915 src/frd.c          fprintf(f1," -5  EXX         1    4    1    1\n");
f1                916 src/frd.c          fprintf(f1," -5  EYY         1    4    2    2\n");
f1                917 src/frd.c          fprintf(f1," -5  EZZ         1    4    3    3\n");
f1                918 src/frd.c          fprintf(f1," -5  EXY         1    4    1    2\n");
f1                919 src/frd.c          fprintf(f1," -5  EYZ         1    4    2    3\n");
f1                920 src/frd.c          fprintf(f1," -5  EZX         1    4    3    1\n");
f1                924 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                935 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                937 src/frd.c            fprintf(f1," -4  TOSTRAII    6    1\n");
f1                938 src/frd.c            fprintf(f1," -5  EXX         1    4    1    1\n");
f1                939 src/frd.c            fprintf(f1," -5  EYY         1    4    2    2\n");
f1                940 src/frd.c            fprintf(f1," -5  EZZ         1    4    3    3\n");
f1                941 src/frd.c            fprintf(f1," -5  EXY         1    4    1    2\n");
f1                942 src/frd.c            fprintf(f1," -5  EYZ         1    4    2    3\n");
f1                943 src/frd.c            fprintf(f1," -5  EZX         1    4    3    1\n");
f1                947 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                962 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                964 src/frd.c          fprintf(f1," -4  MESTRAIN    6    1\n");
f1                965 src/frd.c          fprintf(f1," -5  MEXX        1    4    1    1\n");
f1                966 src/frd.c          fprintf(f1," -5  MEYY        1    4    2    2\n");
f1                967 src/frd.c          fprintf(f1," -5  MEZZ        1    4    3    3\n");
f1                968 src/frd.c          fprintf(f1," -5  MEXY        1    4    1    2\n");
f1                969 src/frd.c          fprintf(f1," -5  MEYZ        1    4    2    3\n");
f1                970 src/frd.c          fprintf(f1," -5  MEZX        1    4    3    1\n");
f1                975 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1                986 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1                988 src/frd.c            fprintf(f1," -4  MESTRAII    6    1\n");
f1                989 src/frd.c            fprintf(f1," -5  MEXX        1    4    1    1\n");
f1                990 src/frd.c            fprintf(f1," -5  MEYY        1    4    2    2\n");
f1                991 src/frd.c            fprintf(f1," -5  MEZZ        1    4    3    3\n");
f1                992 src/frd.c            fprintf(f1," -5  MEXY        1    4    1    2\n");
f1                993 src/frd.c            fprintf(f1," -5  MEYZ        1    4    2    3\n");
f1                994 src/frd.c            fprintf(f1," -5  MEZX        1    4    3    1\n");
f1                998 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1013 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1015 src/frd.c          fprintf(f1," -4  FORC        4    1\n");
f1               1016 src/frd.c          fprintf(f1," -5  F1          1    2    1    0\n");
f1               1017 src/frd.c          fprintf(f1," -5  F2          1    2    2    0\n");
f1               1018 src/frd.c          fprintf(f1," -5  F3          1    2    3    0\n");
f1               1019 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1               1023 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
f1               1034 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1036 src/frd.c            fprintf(f1," -4  FORCI       4    1\n");
f1               1037 src/frd.c            fprintf(f1," -5  F1          1    2    1    0\n");
f1               1038 src/frd.c            fprintf(f1," -5  F2          1    2    2    0\n");
f1               1039 src/frd.c            fprintf(f1," -5  F3          1    2    3    0\n");
f1               1040 src/frd.c            fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1               1043 src/frd.c      		trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
f1               1057 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1059 src/frd.c          fprintf(f1," -4  PE          1    1\n");
f1               1060 src/frd.c          fprintf(f1," -5  PE          1    1    0    0\n");
f1               1064 src/frd.c                      nfieldscalar,&iselect,m2,f1,output,m3);
f1               1078 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1080 src/frd.c          fprintf(f1," -4  ENER        1    1\n");
f1               1081 src/frd.c          fprintf(f1," -5  ENER        1    1    0    0\n");
f1               1085 src/frd.c                      nfieldscalar,&iselect,m2,f1,output,m3);
f1               1102 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1104 src/frd.c          fprintf(f1," -4  CONTACT     6    1\n");
f1               1105 src/frd.c          fprintf(f1," -5  COPEN       1    4    1    1\n");
f1               1106 src/frd.c          fprintf(f1," -5  CSLIP1      1    4    2    2\n");
f1               1107 src/frd.c          fprintf(f1," -5  CSLIP2      1    4    3    3\n");
f1               1108 src/frd.c          fprintf(f1," -5  CPRESS      1    4    1    2\n");
f1               1109 src/frd.c          fprintf(f1," -5  CSHEAR1     1    4    2    3\n");
f1               1110 src/frd.c          fprintf(f1," -5  CSHEAR2     1    4    3    1\n");
f1               1119 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "",m1,nodes);
f1               1120 src/frd.c      	  for(j=0;j<6;j++)fprintf(f1,"%12.5E",(float)stx[6*mi[0]*i+j]);
f1               1122 src/frd.c      	  iw=(int)(nodes);fwrite(&iw,sizeof(int),1,f1);
f1               1125 src/frd.c      	      fwrite(&ifl,sizeof(float),1,f1);
f1               1128 src/frd.c           if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1               1131 src/frd.c          if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1               1144 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1145 src/frd.c            fprintf(f1," -4  CONTACT     6    1\n");
f1               1146 src/frd.c            fprintf(f1," -5  COPEN       1    4    1    1\n");
f1               1147 src/frd.c            fprintf(f1," -5  CSLIP1      1    4    2    2\n");
f1               1148 src/frd.c            fprintf(f1," -5  CSLIP2      1    4    3    3\n");
f1               1149 src/frd.c            fprintf(f1," -5  CPRESS      1    4    1    2\n");
f1               1150 src/frd.c            fprintf(f1," -5  CSHEAR1     1    4    2    3\n");
f1               1151 src/frd.c            fprintf(f1," -5  CSHEAR2     1    4    3    1\n");
f1               1155 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1168 src/frd.c      	     &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1169 src/frd.c      	  fprintf(f1," -4  CONTACTI    6    1\n");
f1               1170 src/frd.c      	  fprintf(f1," -5  COPEN       1    4    1    1\n");
f1               1171 src/frd.c      	  fprintf(f1," -5  CSLIP1      1    4    2    2\n");
f1               1172 src/frd.c      	  fprintf(f1," -5  CSLIP2      1    4    3    3\n");
f1               1173 src/frd.c      	  fprintf(f1," -5  CPRESS      1    4    1    2\n");
f1               1174 src/frd.c      	  fprintf(f1," -5  CSHEAR1     1    4    2    3\n");
f1               1175 src/frd.c      	  fprintf(f1," -5  CSHEAR2     1    4    3    1\n");
f1               1179 src/frd.c      	     nfieldtensor,&iselect,m2,f1,output,m3);
f1               1194 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1196 src/frd.c          fprintf(f1," -4  CELS        1    1\n");
f1               1197 src/frd.c          fprintf(f1," -5  CELS        1    1    0    0\n");
f1               1205 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E\n",m1,nodes,(float)ener[i*mi[0]]);
f1               1207 src/frd.c      	  iw=(int)(nodes);fwrite(&iw,sizeof(int),1,f1);
f1               1209 src/frd.c      	  fwrite(&ifl,sizeof(float),1,f1);
f1               1213 src/frd.c          if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1               1226 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1228 src/frd.c          fprintf(f1," -4  SDV        %2" ITGFORMAT "    1\n",*nstate_);
f1               1230 src/frd.c            fprintf(f1," -5  SDV%2" ITGFORMAT "       1    1    0    0\n",j);
f1               1240 src/frd.c                      nfield,&iselect,m2,f1,output,m3);
f1               1259 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1261 src/frd.c          fprintf(f1," -4  FLUX        4    1\n");
f1               1262 src/frd.c          fprintf(f1," -5  F1          1    2    1    0\n");
f1               1263 src/frd.c          fprintf(f1," -5  F2          1    2    2    0\n");
f1               1264 src/frd.c          fprintf(f1," -5  F3          1    2    3    0\n");
f1               1265 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1               1269 src/frd.c                      nfieldvector1,&iselect,m2,f1,output,m3);
f1               1284 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1286 src/frd.c          fprintf(f1," -4  CURR        4    1\n");
f1               1287 src/frd.c          fprintf(f1," -5  j1          1    2    1    0\n");
f1               1288 src/frd.c          fprintf(f1," -5  j2          1    2    2    0\n");
f1               1289 src/frd.c          fprintf(f1," -5  j3          1    2    3    0\n");
f1               1290 src/frd.c          fprintf(f1," -5  ALL         1    2    0    0    1ALL\n");
f1               1294 src/frd.c                      nfieldvector1,&iselect,m2,f1,output,m3);
f1               1308 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1310 src/frd.c          fprintf(f1," -4  RFL         1    1\n");
f1               1311 src/frd.c          fprintf(f1," -5  RFL         1    1    0    0\n");
f1               1315 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1333 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1335 src/frd.c          fprintf(f1," -4  ZZSTR       6    1\n");
f1               1336 src/frd.c          fprintf(f1," -5  SXX         1    4    1    1\n");
f1               1337 src/frd.c          fprintf(f1," -5  SYY         1    4    2    2\n");
f1               1338 src/frd.c          fprintf(f1," -5  SZZ         1    4    3    3\n");
f1               1339 src/frd.c          fprintf(f1," -5  SXY         1    4    1    2\n");
f1               1340 src/frd.c          fprintf(f1," -5  SYZ         1    4    2    3\n");
f1               1341 src/frd.c          fprintf(f1," -5  SZX         1    4    3    1\n");
f1               1345 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1360 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1362 src/frd.c            fprintf(f1," -4  ZZSTRI      6    1\n");
f1               1363 src/frd.c            fprintf(f1," -5  SXX         1    4    1    1\n");
f1               1364 src/frd.c            fprintf(f1," -5  SYY         1    4    2    2\n");
f1               1365 src/frd.c            fprintf(f1," -5  SZZ         1    4    3    3\n");
f1               1366 src/frd.c            fprintf(f1," -5  SXY         1    4    1    2\n");
f1               1367 src/frd.c            fprintf(f1," -5  SYZ         1    4    2    3\n");
f1               1368 src/frd.c            fprintf(f1," -5  SZX         1    4    3    1\n");
f1               1372 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1392 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1394 src/frd.c          fprintf(f1," -4  ERROR       2    1\n");
f1               1395 src/frd.c          fprintf(f1," -5  PSTD        1    1    1    0\n");
f1               1396 src/frd.c          fprintf(f1," -5  VMSTD       1    2    2    0\n");
f1               1404 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1419 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1421 src/frd.c            fprintf(f1," -4  ERRORI      2    1\n");
f1               1422 src/frd.c            fprintf(f1," -5  PSTD        1    1    1    0\n");
f1               1423 src/frd.c            fprintf(f1," -5  VMSTD       1    2    2    0\n");
f1               1431 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1451 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1453 src/frd.c          fprintf(f1," -4  HERROR      1    1\n");
f1               1454 src/frd.c          fprintf(f1," -5  HFLSTD      1    1    1    0\n");
f1               1462 src/frd.c                      nfieldvector1,&iselect,m2,f1,output,m3);
f1               1477 src/frd.c      		&noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1479 src/frd.c            fprintf(f1," -4  HERRORI     1    1\n");
f1               1480 src/frd.c            fprintf(f1," -5  HFLSTD      1    1    1    0\n");
f1               1488 src/frd.c                      nfieldtensor,&iselect,m2,f1,output,m3);
f1               1503 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1505 src/frd.c          fprintf(f1," -4  TOTEMP      1    1\n");
f1               1506 src/frd.c          fprintf(f1," -5  TT          1    1    0    0\n");
f1               1510 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1524 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1526 src/frd.c          fprintf(f1," -4  MAFLOW      1    1\n");
f1               1527 src/frd.c          fprintf(f1," -5  MF          1    1    0    0\n");
f1               1533 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1548 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1550 src/frd.c          fprintf(f1," -4  TOPRES      1    1\n");
f1               1551 src/frd.c          fprintf(f1," -5  PT          1    1    0    0\n");
f1               1556 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1570 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1572 src/frd.c          fprintf(f1," -4  STPRES      1    1\n");
f1               1573 src/frd.c          fprintf(f1," -5  PS          1    1    0    0\n");
f1               1578 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1592 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1594 src/frd.c          fprintf(f1," -4  DEPTH       1    1\n");
f1               1595 src/frd.c          fprintf(f1," -5  DEPTH       1    1    0    0\n");
f1               1600 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1614 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1616 src/frd.c          fprintf(f1," -4  HCRIT       1    1\n");
f1               1617 src/frd.c          fprintf(f1," -5  HCRIT       1    1    0    0\n");
f1               1622 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1636 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1638 src/frd.c          fprintf(f1," -4  STTEMP      1    1\n");
f1               1639 src/frd.c          fprintf(f1," -5  TS          1    1    0    0\n");
f1               1644 src/frd.c                      nfieldvector0,&iselect,m2,f1,output,m3);
f1               1651 src/frd.c        if((*nmethod!=2)&&(*nmethod!=5)&&(*nmethod!=6)&&(*nmethod!=7)){fclose(f1);return;}
f1               1652 src/frd.c        if((*nmethod==5)&&(*mode==-1)){fclose(f1);return;}
f1               1664 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1666 src/frd.c          fprintf(f1," -4  PDISP       6    1\n");
f1               1667 src/frd.c          fprintf(f1," -5  MAG1        1   12    1    0\n");
f1               1668 src/frd.c          fprintf(f1," -5  MAG2        1   12    2    0\n");
f1               1669 src/frd.c          fprintf(f1," -5  MAG3        1   12    3    0\n");
f1               1670 src/frd.c          fprintf(f1," -5  PHA1        1   12    4    0\n");
f1               1671 src/frd.c          fprintf(f1," -5  PHA2        1   12    5    0\n");
f1               1672 src/frd.c          fprintf(f1," -5  PHA3        1   12    6    0\n");
f1               1676 src/frd.c                      nfieldvectph,&iselect,m2,f1,output,m3);
f1               1690 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1692 src/frd.c          fprintf(f1," -4  PNDTEMP     2    1\n");
f1               1693 src/frd.c          fprintf(f1," -5  MAG1        1    1    1    0\n");
f1               1694 src/frd.c          fprintf(f1," -5  PHA1        1    1    2    0\n");
f1               1698 src/frd.c                      nfieldscalph,&iselect,m2,f1,output,m3);
f1               1712 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1714 src/frd.c          fprintf(f1," -4  PSTRESS    12    1\n");
f1               1715 src/frd.c          fprintf(f1," -5  MAGXX       1   14    1    1\n");
f1               1716 src/frd.c          fprintf(f1," -5  MAGYY       1   14    2    2\n");
f1               1717 src/frd.c          fprintf(f1," -5  MAGZZ       1   14    3    3\n");
f1               1718 src/frd.c          fprintf(f1," -5  MAGXY       1   14    1    2\n");
f1               1719 src/frd.c          fprintf(f1," -5  MAGYZ       1   14    2    3\n");
f1               1720 src/frd.c          fprintf(f1," -5  MAGZX       1   14    3    1\n");
f1               1721 src/frd.c          fprintf(f1," -5  PHAXX       1   14    1    1\n");
f1               1722 src/frd.c          fprintf(f1," -5  PHAYY       1   14    2    2\n");
f1               1723 src/frd.c          fprintf(f1," -5  PHAZZ       1   14    3    3\n");
f1               1724 src/frd.c          fprintf(f1," -5  PHAXY       1   14    1    2\n");
f1               1725 src/frd.c          fprintf(f1," -5  PHAYZ       1   14    2    3\n");
f1               1726 src/frd.c          fprintf(f1," -5  PHAZX       1   14    3    1\n");
f1               1730 src/frd.c                      nfieldtensph,&iselect,m2,f1,output,m3);
f1               1746 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1748 src/frd.c          fprintf(f1," -4  PCONTAC    12    1\n");
f1               1749 src/frd.c          fprintf(f1," -5  MAGO        1   14    1    1\n");
f1               1750 src/frd.c          fprintf(f1," -5  MAGSL1      1   14    2    2\n");
f1               1751 src/frd.c          fprintf(f1," -5  MAGSL2      1   14    3    3\n");
f1               1752 src/frd.c          fprintf(f1," -5  MAGP        1   14    1    2\n");
f1               1753 src/frd.c          fprintf(f1," -5  MAGSH1      1   14    2    3\n");
f1               1754 src/frd.c          fprintf(f1," -5  MAGSH2      1   14    3    1\n");
f1               1755 src/frd.c          fprintf(f1," -5  PHAO        1   14    1    1\n");
f1               1756 src/frd.c          fprintf(f1," -5  PHASL1      1   14    2    2\n");
f1               1757 src/frd.c          fprintf(f1," -5  PHASL2      1   14    3    3\n");
f1               1758 src/frd.c          fprintf(f1," -5  PHAP        1   14    1    2\n");
f1               1759 src/frd.c          fprintf(f1," -5  PHASH1      1   14    2    3\n");
f1               1760 src/frd.c          fprintf(f1," -5  PHASH2      1   14    3    1\n");
f1               1764 src/frd.c                      nfieldtensph,&iselect,m2,f1,output,m3);
f1               1778 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1780 src/frd.c          fprintf(f1," -4  PFORC       6    1\n");
f1               1781 src/frd.c          fprintf(f1," -5  MAG1        1   12    1    0\n");
f1               1782 src/frd.c          fprintf(f1," -5  MAG2        1   12    2    0\n");
f1               1783 src/frd.c          fprintf(f1," -5  MAG3        1   12    3    0\n");
f1               1784 src/frd.c          fprintf(f1," -5  PHA1        1   12    4    0\n");
f1               1785 src/frd.c          fprintf(f1," -5  PHA2        1   12    5    0\n");
f1               1786 src/frd.c          fprintf(f1," -5  PHA3        1   12    6    0\n");
f1               1790 src/frd.c                      nfieldvectph,&iselect,m2,f1,output,m3);
f1               1796 src/frd.c        if(*nmethod!=2){fclose(f1);return;}
f1               1809 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1811 src/frd.c          fprintf(f1," -4  MDISP       4    1\n");
f1               1812 src/frd.c          fprintf(f1," -5  DX          1    4    1    0\n");
f1               1813 src/frd.c          fprintf(f1," -5  DY          1    4    2    0\n");
f1               1814 src/frd.c          fprintf(f1," -5  DZ          1    4    3    0\n");
f1               1815 src/frd.c          fprintf(f1," -5  ANG         1    4    4    0\n");
f1               1826 src/frd.c                      nfield,&iselect,m2,f1,output,m3);
f1               1845 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1847 src/frd.c          fprintf(f1," -4  MSTRESS     7    1\n");
f1               1848 src/frd.c          fprintf(f1," -5  SXX         1    4    1    1\n");
f1               1849 src/frd.c          fprintf(f1," -5  SYY         1    4    2    2\n");
f1               1850 src/frd.c          fprintf(f1," -5  SZZ         1    4    3    3\n");
f1               1851 src/frd.c          fprintf(f1," -5  SXY         1    4    1    2\n");
f1               1852 src/frd.c          fprintf(f1," -5  SYZ         1    4    2    3\n");
f1               1853 src/frd.c          fprintf(f1," -5  SZX         1    4    3    1\n");
f1               1854 src/frd.c          fprintf(f1," -5  MAG         1    4    0    0\n");
f1               1868 src/frd.c                      nfield,&iselect,m2,f1,output,m3);
f1               1887 src/frd.c      	      &noutloc,description,kode,nmethod,f1,output,istep,iinc);
f1               1889 src/frd.c          fprintf(f1," -4  MSTRAIN     7    1\n");
f1               1890 src/frd.c          fprintf(f1," -5  EXX         1    4    1    1\n");
f1               1891 src/frd.c          fprintf(f1," -5  EYY         1    4    2    2\n");
f1               1892 src/frd.c          fprintf(f1," -5  EZZ         1    4    3    3\n");
f1               1893 src/frd.c          fprintf(f1," -5  EXY         1    4    1    2\n");
f1               1894 src/frd.c          fprintf(f1," -5  EYZ         1    4    2    3\n");
f1               1895 src/frd.c          fprintf(f1," -5  EZX         1    4    3    1\n");
f1               1896 src/frd.c          fprintf(f1," -5  MAG         1    4    0    0\n");
f1               1910 src/frd.c                      nfield,&iselect,m2,f1,output,m3);
f1               1914 src/frd.c        fclose(f1);
f1                 27 src/frdheader.c                FILE *f1, char *output,ITG *istep,ITG *iinc){
f1                 42 src/frdheader.c   fprintf(f1,"%s\n",text);
f1                 50 src/frdheader.c     fprintf(f1,"%s\n",text);
f1                 55 src/frdheader.c     fprintf(f1,"%s\n",text);
f1                 60 src/frdheader.c     fprintf(f1,"%s\n",text);
f1                 73 src/frdheader.c       fprintf(f1,"%s\n",text);
f1                 79 src/frdheader.c     fprintf(f1,"%s\n",text);
f1                 84 src/frdheader.c     fprintf(f1,"%s\n",text);
f1                 88 src/frdheader.c   writeBasisParameter(f1,istep,iinc);
f1                152 src/frdheader.c   fprintf(f1,"%s\n",text);
f1                 29 src/frdselect.c      ITG *ifield,ITG *icomp,ITG *nfield,ITG *iselect,char *m2,FILE *f1,
f1                 68 src/frdselect.c 	      fprintf(f1,"%3s%10" ITGFORMAT "",m1,i+1);
f1                 70 src/frdselect.c 	      iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                 75 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
f1                 78 src/frdselect.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                 82 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
f1                 85 src/frdselect.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                 89 src/frdselect.c 	    if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                 91 src/frdselect.c 	    if(strcmp1(output,"asc")==0)fprintf(f1,"%3s          ",m2);
f1                 95 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
f1                 98 src/frdselect.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                102 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
f1                105 src/frdselect.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                109 src/frdselect.c 	    if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                137 src/frdselect.c 		fprintf(f1,"%3s%10" ITGFORMAT "",m1,i+1);
f1                139 src/frdselect.c 		iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                144 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
f1                147 src/frdselect.c 		    fwrite(&ifl,sizeof(float),1,f1);
f1                151 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
f1                154 src/frdselect.c 		    fwrite(&ifl,sizeof(float),1,f1);
f1                158 src/frdselect.c 	      if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                160 src/frdselect.c 	      if(strcmp1(output,"asc")==0)fprintf(f1,"%3s          ",m2);
f1                164 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+j]);
f1                167 src/frdselect.c 		    fwrite(&ifl,sizeof(float),1,f1);
f1                171 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+j]);
f1                174 src/frdselect.c 		    fwrite(&ifl,sizeof(float),1,f1);
f1                178 src/frdselect.c 	      if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                207 src/frdselect.c 		  fprintf(f1,"%3s%10" ITGFORMAT "",m1,i+1);
f1                209 src/frdselect.c 		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                214 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
f1                217 src/frdselect.c 		      fwrite(&ifl,sizeof(float),1,f1);
f1                221 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
f1                224 src/frdselect.c 		      fwrite(&ifl,sizeof(float),1,f1);
f1                228 src/frdselect.c 		if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                230 src/frdselect.c 		if(strcmp1(output,"asc")==0)fprintf(f1,"%3s          ",m2);
f1                234 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+j]);
f1                237 src/frdselect.c 		      fwrite(&ifl,sizeof(float),1,f1);
f1                241 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+j]);
f1                244 src/frdselect.c 		      fwrite(&ifl,sizeof(float),1,f1);
f1                248 src/frdselect.c 		if(strcmp1(output,"asc")==0)fprintf(f1,"\n");
f1                258 src/frdselect.c   if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1                 27 src/frdvector.c                FILE *f1,char *output,char *m3){
f1                 42 src/frdvector.c 	  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,
f1                 46 src/frdvector.c 	  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                 47 src/frdvector.c 	  ifl=(float)v[(mi[1]+1)*i+1];fwrite(&ifl,sizeof(float),1,f1);
f1                 48 src/frdvector.c 	  ifl=(float)v[(mi[1]+1)*i+2];fwrite(&ifl,sizeof(float),1,f1);
f1                 49 src/frdvector.c 	  ifl=(float)v[(mi[1]+1)*i+3];fwrite(&ifl,sizeof(float),1,f1);
f1                 57 src/frdvector.c 	    fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,
f1                 61 src/frdvector.c 	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                 62 src/frdvector.c 	    ifl=(float)v[(mi[1]+1)*i+1];fwrite(&ifl,sizeof(float),1,f1);
f1                 63 src/frdvector.c 	    ifl=(float)v[(mi[1]+1)*i+2];fwrite(&ifl,sizeof(float),1,f1);
f1                 64 src/frdvector.c 	    ifl=(float)v[(mi[1]+1)*i+3];fwrite(&ifl,sizeof(float),1,f1);
f1                 69 src/frdvector.c 	    fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,
f1                 74 src/frdvector.c 	    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                 76 src/frdvector.c 	    fwrite(&ifl,sizeof(float),1,f1);
f1                 78 src/frdvector.c 	    fwrite(&ifl,sizeof(float),1,f1);
f1                 80 src/frdvector.c 	    fwrite(&ifl,sizeof(float),1,f1);
f1                 94 src/frdvector.c 		  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)v[(mi[1]+1)*i+1],
f1                 97 src/frdvector.c 		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                 98 src/frdvector.c 		  ifl=(float)v[(mi[1]+1)*i+1];fwrite(&ifl,sizeof(float),1,f1);
f1                 99 src/frdvector.c 		  ifl=(float)v[(mi[1]+1)*i+2];fwrite(&ifl,sizeof(float),1,f1);
f1                100 src/frdvector.c 		  ifl=(float)v[(mi[1]+1)*i+3];fwrite(&ifl,sizeof(float),1,f1);
f1                105 src/frdvector.c 		  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,   
f1                110 src/frdvector.c 		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                112 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                114 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                116 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                130 src/frdvector.c 		    fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)v[(mi[1]+1)*i+1],
f1                133 src/frdvector.c 		    iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                134 src/frdvector.c 		    ifl=(float)v[(mi[1]+1)*i+1];fwrite(&ifl,sizeof(float),1,f1);
f1                135 src/frdvector.c 		    ifl=(float)v[(mi[1]+1)*i+2];fwrite(&ifl,sizeof(float),1,f1);
f1                136 src/frdvector.c 		    ifl=(float)v[(mi[1]+1)*i+3];fwrite(&ifl,sizeof(float),1,f1);
f1                141 src/frdvector.c 		  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,   
f1                149 src/frdvector.c 		  iw=(int)(i+1);fwrite(&iw,sizeof(int),1,f1);
f1                151 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                153 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                155 src/frdvector.c 		  fwrite(&ifl,sizeof(float),1,f1);
f1                164 src/frdvector.c   if(strcmp1(output,"asc")==0)fprintf(f1,"%3s\n",m3);
f1                 31 src/readinput.c   FILE *f1[10];
f1                 62 src/readinput.c   if((f1[in]=fopen(fninp,"r"))==NULL){
f1                 70 src/readinput.c       if(fgets(buff,1320,f1[in])==NULL){
f1                 71 src/readinput.c 	  fclose(f1[in]);
f1                161 src/readinput.c 	  if((f1[in]=fopen(includefn,"r"))==NULL){
f1                126 src/steadystate.c   FILE *f1;
f1                176 src/steadystate.c   if((f1=fopen(fneig,"rb"))==NULL){
f1                186 src/steadystate.c   if(fread(&cyclicsymmetry,sizeof(ITG),1,f1)!=1){
f1                191 src/steadystate.c   if(fread(&nherm,sizeof(ITG),1,f1)!=1){
f1                284 src/steadystate.c       if(fread(&nev,sizeof(ITG),1,f1)!=1){
f1                291 src/steadystate.c 	  if(fread(d,sizeof(double),nev,f1)!=nev){
f1                301 src/steadystate.c 	  if(fread(d,sizeof(double),2*nev,f1)!=2*nev){
f1                314 src/steadystate.c       if(fread(ad,sizeof(double),neq[1],f1)!=neq[1]){
f1                319 src/steadystate.c       if(fread(au,sizeof(double),nzs[2],f1)!=nzs[2]){
f1                326 src/steadystate.c       if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                331 src/steadystate.c       if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                340 src/steadystate.c 	  if(fread(z,sizeof(double),neq[1]*nev,f1)!=neq[1]*nev){
f1                346 src/steadystate.c 	  if(fread(z,sizeof(double),2*neq[1]*nev,f1)!=2*neq[1]*nev){
f1                357 src/steadystate.c 	  if(fread(xmr,sizeof(double),nev*nev,f1)!=nev*nev){
f1                362 src/steadystate.c 	  if(fread(xmi,sizeof(double),nev*nev,f1)!=nev*nev){
f1                371 src/steadystate.c 	  if(fread(&nmd,sizeof(ITG),1,f1)!=1){
f1                375 src/steadystate.c 	  if(fread(&nevd,sizeof(ITG),1,f1)!=1){
f1                398 src/steadystate.c 	      if(fread(&d[nev],sizeof(double),nevd,f1)!=nevd){
f1                406 src/steadystate.c 	      if(fread(&d[nev],sizeof(double),2*nevd,f1)!=2*nevd){
f1                418 src/steadystate.c 	      if(fread(adb,sizeof(double),neq[1],f1)!=neq[1]){
f1                423 src/steadystate.c 	      if(fread(aub,sizeof(double),nzs[1],f1)!=nzs[1]){
f1                437 src/steadystate.c 	  if(fread(&z[(long long)neq[1]*nev],sizeof(double),neq[1]*nevd,f1)!=neq[1]*nevd){
f1                447 src/steadystate.c 	      if(fread(xmr,sizeof(double),nev*nev,f1)!=nev*nev){
f1                452 src/steadystate.c 	      if(fread(xmi,sizeof(double),nev*nev,f1)!=nev*nev){
f1                573 src/steadystate.c   fclose(f1);
f1                 28 src/writeheading.c     FILE *f1;
f1                 38 src/writeheading.c     if((f1=fopen(fneig,"ab"))==NULL){
f1                 45 src/writeheading.c     fprintf(f1,"%5s%1s\n",p1,c);
f1                 51 src/writeheading.c 	fprintf(f1,"%5sU%66s\n",p1,text);
f1                 54 src/writeheading.c     fclose(f1);