Home
last modified time | relevance | path

Searched refs:fname (Results 1 – 25 of 25) sorted by relevance

/phasta/converterIO/
H A DconverterN2O.cc120 char fname[255],fieldtag[255]; in main() local
177 bzero((void*)fname,255); in main()
178 …sprintf(fname,"./%d-procs_case/restart-dat.%d.%d",N_parts,N_steps,((int)(myrank/(N_procs/N_files))… in main()
185 queryphmpiio(fname, &nfields, &nppf); in main()
188 openfile(fname, "read", &readHandle1); in main()
329 bzero((void*)fname,255); in main()
330 sprintf(fname,"./%d-procs_case-1PPP",N_parts); in main()
331 …if(0<mkdir(fname,0777)) { printf("ERROR - Could not create procs_case-1PPP directory\n"); return 1… in main()
334 bzero((void*)fname,255); in main()
335 sprintf(fname,"./%d-procs_case-1PPP/restart.%d.%d",N_parts,N_steps,myrank+1); in main()
[all …]
H A DconverterO2N.cc600 char fname[255],fieldtag[255]; in main() local
602 bzero((void*)fname,255); in main()
607 …sprintf(fname,"./%d-procs_case-SyncIO-%d/geombc-dat.%d",N_parts,N_files,((int)(myrank/(N_procs/N_f… in main()
616 openfile(fname, "write", &writeHandle); in main()
1088 bzero((void*)fname,255); in main()
1091 …sprintf(fname,"./%d-procs_case-SyncIO-%d/restart-dat.%d.%d",N_parts,N_files,N_steps,((int)(myrank/… in main()
1095 openfile(fname, "write", &writeHandle); in main()
/phasta/phSolver/common/test/
H A DphIOwrite.f12 character(len=256), dimension(2) :: fname variable
28 fname(1) = c_char_"fortranWater-dat."//c_null_char
29 fname(2) = c_char_"fortranWater.dat."//c_null_char
41 call phio_openfile(fname(i), handle(i))
52 call phio_openfile(fname(i), handle(i))
H A DphIOread.f17 character(len=256), dimension(2) :: dir, fname variable
36 fname(1) = c_char_"geombc-dat."//c_null_char
37 fname(2) = c_char_"geombc.dat."//c_null_char
43 call phio_openfile(fname(i), handle(i))
/phasta/phSolver/compressible/
H A DMachControl.f90212 character(len=60) :: fname local
215 write(fname, "('./MachControl/MachControl.',I0,'.dat')") tstep
216 inquire(file=fname, exist=exMC)
219 open(unit=1002, file=fname, status='old')
255 character(len=60) :: fname local
258 write(fname, "('./MachControl/MachControl.',I0,'.dat')") tstep
259 open(unit=1002, file=fname, status='unknown')
/phasta/M2NFixBnd/src/
H A Dnew_interface.c41 char fname[255]; in Write_M2NFixBnd() local
180 char fname[255]; in Write_M2NFixBnd_SolOnly() local
270 char fname[255]; in Write_Restart() local
379 char fname[255]; in Write_Error() local
452 char fname[255]; in Write_Displ() local
643 char fname[255]; in Write_PhAvg() local
644 bzero( (void*)fname, 255 ); in Write_PhAvg()
645 sprintf(fname,"# Output generated by phasta version (NOT YET CURRENT): %lf \n", version); in Write_PhAvg()
646 writestring( &irstou, fname ); in Write_PhAvg()
648 bzero( (void*)fname, 255 ); in Write_PhAvg()
[all …]
H A Dsetsyncioparam.cc28 char fname[255]; in setIOparam() local
67 char fname[255]; in detectd2wallfiles() local
/phasta/AcuStat/src/
H A Dnew_interface.c38 char fname[255]; in Write_AcuStat() local
135 char fname[255]; in Write_AcuStat2() local
289 char fname[255]; in Write_Ybar() local
379 char fname[255]; in Write_Restart() local
488 char fname[255]; in Write_Error() local
561 char fname[255]; in Write_Displ() local
752 char fname[255]; in Write_PhAvg() local
753 bzero( (void*)fname, 255 ); in Write_PhAvg()
754 sprintf(fname,"# Output generated by phasta version (NOT YET CURRENT): %lf \n", version); in Write_PhAvg()
755 writestring( &irstou, fname ); in Write_PhAvg()
[all …]
H A Dsetsyncioparam.cc29 char fname[255]; in setIOparam() local
68 char fname[255]; in detectd2wallfiles() local
/phasta/phSolver/common/
H A DblowerControl.f90199 character(len=128) :: fname local
214 write(fname, "('blowerPhase.', I0, '.dat')") tstep
215 inquire(file=fname, exist=existFname)
218 open(unit=1003, file=fname, status='old')
252 character(len=128) :: fname local
261 write(fname, "('blowerPhase.', I0, '.dat')") tstep
262 open(unit=1003, file=fname, status='unknown')
H A Dsetsyncioparam.cc29 char fname[255]; in setIOparam() local
71 char fname[255]; in detectd2wallfiles() local
H A DCinput.cc37 phSolver::Input::Input(const string &fname, const string &default_fname) in Input() argument
38 : userConfFileName(fname), defaultConfFileName(default_fname) in Input()
41 ifstream infile( fname.c_str(), ios::in); in Input()
H A DphIO.f5 subroutine phio_openfile(fname, handle)
8 character(c_char), intent(in) :: fname(*) local
/phasta/M2N/src/
H A Dnew_interface.c42 char fname[255]; in Write_M2N() local
194 char fname[255]; in Write_M2N_SolOnly() local
528 char fname[255]; in Write_Restart() local
637 char fname[255]; in Write_Error() local
710 char fname[255]; in Write_Displ() local
901 char fname[255]; in Write_PhAvg() local
902 bzero( (void*)fname, 255 ); in Write_PhAvg()
903 sprintf(fname,"# Output generated by phasta version (NOT YET CURRENT): %lf \n", version); in Write_PhAvg()
904 writestring( &irstou, fname ); in Write_PhAvg()
906 bzero( (void*)fname, 255 ); in Write_PhAvg()
[all …]
H A Dsetsyncioparam.cc30 char fname[255]; in setIOparam() local
87 char fname[255]; in detectd2wallfiles() local
/phasta/phSolver/AMG/
H A Dramg_tools.f263 character :: fname*80 local
273 write(fname,'((A8)(I1))')'tarray_a',i
274 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
279 write(fname,'((A8)(I1))')'tarray_i',i
280 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
285 write(fname,'((A8)(I1))')'tarray_b',i
286 call ramg_dump(tarray(i)%p,amg_nshg(i),fname)
886 & fname) argument
897 character fname*10,mtxname*5 local
905 mfname = trim(fname)//'.dat'//cname(myrank+1)
[all …]
H A Dramg_paratools.f39 character fname*10 local
246 write(fname,'((A4)(I1)(A5))')'subP',i,' '
663 character :: fname*80 local
760 character*255 fname,fname1 variable
779 write(fname,"((I1)(A))")nr,'-procs_case/neimap.dat'
781 fname=trim(fname)
783 fname1 = trim(fname)//cname(i)
803 write(fname,"((I1)(A))")nr,'-procs_case/map_nproc.dat'
804 fname=trim(fname)
806 fname1 = trim(fname)//cname(i)
H A Dramg_ITAI.f134 character :: fname*80 local
H A Dramg_extract.f55 character :: fname*80
H A Dramg_ggb.f43 character fname*20 local
H A Dramg_coarse.f39 character :: fname*80 local
/phasta/phastaIO/
H A DvtkPhastaReader.cxx235 char* fname = StringStripper( iotype ); in isBinary() local
236 if ( cscompare( fname, "binary" ) ) in isBinary()
244 delete [] fname; in isBinary()
402 char* fname = StringStripper( filename ); in queryphmpiio_() local
404 fileHandle = fopen (fname,"rb"); in queryphmpiio_()
406 printf("\n File %s doesn't exist! Please check!\n",fname); in queryphmpiio_()
501 delete [] fname; in queryphmpiio_()
548 char* fname = StringStripper( filename ); in openfile() local
551 int string_length = strlen( fname ); in openfile()
553 strcpy ( buffer, fname ); in openfile()
[all …]
H A DphastaIO.cc204 char* fname = StringStripper( iotype ); in isBinary() local
205 if ( cscompare( fname, "binary" ) ) binary_format = true; in isBinary()
207 free (fname); in isBinary()
401 char* fname = StringStripper( filename ); in queryphmpiio() local
403 PHASTAIO_OPENTIME(fileHandle = fopen (fname,"rb");) in queryphmpiio()
405 printf("\nError: File %s doesn't exist! Please check!\n",fname); in queryphmpiio()
502 free(fname); in queryphmpiio()
927 char* fname = StringStripper( filename ); in openfile() local
934 posixname += string(fname); in openfile()
943 fprintf(stderr,"Error openfile: unable to open file %s\n",fname); in openfile()
[all …]
/phasta/phSolver/incompressible/
H A Dstats.f391 character*30 fname, fmt1 local
408 write (fname,fmt1) step1,dash,step2
409 fname = trim(fname) // cname(myrank+1)
410 open ( unit = iofile, file = fname, status = 'unknown',
H A DadvLES.f1310 character*30 fname local
1332 fname = 'dmodc.dat' // cname (myrank+1)
1333 open (99,file=fname,form='unformatted',status='unknown')
1349 fname = 'dmodc.dat' // cname (myrank+1)
1350 open (99,file=fname,form='unformatted', status='replace')