Home
last modified time | relevance | path

Searched refs:fnamer (Results 1 – 6 of 6) sorted by relevance

/phasta/M2NFixBnd/src/
H A Dreadnblk.f51 character*255 fname1,fnamer,fnamelr local
75 fnamer='M2N_input.dat'
76 fnamer = trim(fnamer) // char(0)
77 inquire(file=fnamer,exist=exinput)
79 open(unit=72,file=fnamer,status='old')
91 & trim(fnamer),' does not exist!'
167 write (fnamer,temp2) (color+1)
168 fnamer = trim(fnamer)//char(0)
175 call queryphmpiio(fnamer, nfields, nppf);
182 call openfile( fnamer, 'read'//char(0), igeom )
[all …]
/phasta/M2N/src/
H A Dreadnblk.f58 character*255 fname1,fnamer, fnamelr local
103 fnamer='M2N_input.dat'
104 inquire(file=fnamer,exist=exinput)
106 open(unit=72,file=fnamer,status='old')
118 & trim(fnamer),' does not exist!'
192 write (fnamer,temp2) (color+1)
193 fnamer = trim(fnamer)//char(0)
200 call queryphmpiio(fnamer, nfields, nppf);
207 call openfile( fnamer, 'read'//char(0), igeom )
309 write (fnamer,fmt1) irstart
[all …]
/phasta/AcuStat/src/
H A Dreadnblk.f50 character*255 fname1,fnamer,fnamelr local
78 fnamer='AcuStat_input.dat'
79 fnamer = trim(fnamer) // char(0)
80 inquire(file=fnamer,exist=exinput)
82 open(unit=24,file=fnamer,status='old')
90 & trim(fnamer),' does not exist!'
187 write (fnamer,fmt1) timestep
188 fnamer = trim(fnamer) // cname2(color+1)
191 write(*,*)myrank,timestep,nfiles,numparts,trim(adjustl(fnamer))
197 call queryphmpiio(fnamer//char(0), nfields, nppf);
[all …]
/phasta/phSolver/common/
H A Dreadnblk.f53 character*255 fname1,fnamer,fnamelr local
88 write (fnamer,fmt1) irstart
89 fnamer = trim(fnamer) // cname2(myrank+1)
482 & c_char_'restart' // char(0), fnamer)
483 call phstr_appendInt(fnamer, irstart)
484 call phstr_appendStr(fnamer, c_char_'.'//c_null_char)
486 call phio_openfile(fnamer, fhandle);
H A Dturbsa.f58 character(len=255) :: fnamer, fname2, temp2 local
/phasta/phSolver/incompressible/
H A Dbflux.f52 character*60 fname1, fmt1, fmt2, fnamer, fname2 local