Home
last modified time | relevance | path

Searched refs:fname1 (Results 1 – 23 of 23) sorted by relevance

/phasta/phSolver/common/
H A Drwvelb.f11 character*20 fname1, fmt1 local
30 fname1='bar.latest'
31 fname1 = trim(fname1) // cname(myrank+1)
32 inquire(file=fname1,exist=exlog)
42 write (fname1,fmt1) irstart
43 fname1 = trim(fname1) // cname(myrank+1)
45 inquire(file=fname1,exist=exlog)
48 write (*,*) 'Reading bar field file : ', fname1
51 open (unit=irstin, file=fname1, status='old',
79 write (fname1,fmt1) lstep
[all …]
H A Dgenini.f48 character*20 fname1 local
113 fname1 = 'Qhistor'
114 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
115 fname1 = trim(fname1)
117 write(*,*) 'reading ', fname1
119 open(unit=816, file=fname1, status='old')
H A Dreadnblk.f53 character*255 fname1,fnamer,fnamelr local
82 fname1='geombc.dat'
83 fname1= trim(fname1) // cname2(myrank+1)
110 & c_char_'geombc' // char(0), fname1)
112 call phio_openfile(fname1, fhandle);
H A Drestar.f24 character*20 fname1, fmt1 local
H A DgenblkPosix.f20 character*255 fname1 local
H A Dgenblk.f20 character*255 fname1 local
H A Dturbsa.f48 character(len=20) fname1, fmt1 local
H A DgenblkSyncIO.f20 character*255 fname1 local
H A DgenbkbPosix.f22 character*255 fname1 local
H A DgenbkbSyncIO.f22 character*255 fname1 local
H A Dgenbkb.f22 character*255 fname1 local
H A Dgenbc.f180 character*20 fname1, fmt1 local
/phasta/AcuStat/src/
H A Dreadnblk.f50 character*255 fname1,fnamer,fnamelr local
213 write (fname1,temp1) (myrank+1),'?'
214 fname1 = trim(fname1)
217 call readheader(descriptor,fname1//char(0),intfromfile,ithree,
235 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
248 write (fname1,temp1) (myrank+1),'?'
249 fname1 = trim(fname1)
251 call readheader(descriptor,fname1//char(0),intfromfile,ithree,
269 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
290 write (fname1,temp1) iphavg,(myrank+1),'?'
[all …]
/phasta/M2NFixBnd/src/
H A Dreadnblk.f51 character*255 fname1,fnamer,fnamelr local
316 write (fname1,temp1) (myrank+1),'?'
317 fname1 = trim(fname1)
320 call readheader(descriptor,fname1//char(0) ,intfromfile,
344 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
371 write (fname1,temp1) (myrank+1),'?'
372 fname1 = trim(fname1)
374 call readheader(descriptor,fname1//char(0),intfromfile,
385 call readdatablock(descriptor,fname1//char(0) ,qread,iqsiz,
402 write (fname1,temp1) (myrank+1),'?'
[all …]
/phasta/M2N/src/
H A Dreadnblk.f58 character*255 fname1,fnamer, fnamelr local
327 write (fname1,temp1) (myrank+1),'?'
328 fname1 = trim(fname1)
333 call readheader(descriptor,fname1//char(0) ,intfromfile,
356 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
389 write (fname1,temp1) (myrank+1),'?'
390 fname1 = trim(fname1)
392 call readheader(descriptor,fname1//char(0),intfromfile,
402 call readdatablock(descriptor,fname1//char(0) ,ybar,iqsiz,
419 write (fname1,temp1) (myrank+1),'?'
[all …]
/phasta/phSolver/compressible/
H A Dbflux.f59 character(len=20) fname1, fname2, local
101 write (fname1,fmt1) lstep
107 open (unit=iout, file=fname1, status='unknown', err=995)
111 open (unit=iout, file=fname1, status='unknown', err=995,
316 write (fname1,fmt1) lstep
320 open (unit=iflux, file=fname1, status='unknown', err=997)
/phasta/phSolver/incompressible/
H A Dforces.f180 character*20 fname1 local
230 fname1 = 'forces_s'//trim(cname(isrf))// cname2(lskeep+1)
231 open(unit=iunit,file=trim(fname1),status='unknown')
H A Ditrdrv.f89 character*20 fname1,fmt1 local
1072 character*20 fname1 local
1119 fname1 = 'Qhistor'
1120 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
1121 open(unit=8166,file=trim(fname1),status='unknown')
1155 fname1 = 'Qhistor'
1156 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
1157 open(unit=8166,file=trim(fname1),status='unknown')
H A Dbflux.f52 character*60 fname1, fmt1, fmt2, fnamer, fname2 local
H A Dfilters.f1682 character*30 fname1, fname2, fname3, fname4, fname5, fname6, local
2369 character*30 fname1, fname2, fname3, fname4, fname5, fname6 local
H A DadvLES.f2502 character*30 fname1, fname2, fname3, fname4, fname5, fname6, local
3187 character*30 fname1, fname2, fname3, fname4, fname5, fname6 local
/phasta/phSolver/AMG/
H A Dramg_tools.f408 character*255 fname1 local
417 fname1='geombc.dat'
418 fname1=trim(fname1)//cname(myrank+1)
420 call openfile(fname1,"read",igeom)
423 fname1="mode number map from partition to global"
H A Dramg_paratools.f760 character*255 fname,fname1 variable
783 fname1 = trim(fname)//cname(i)
784 write(*,*)'mcheck reduced case:',fname1
785 open(264,file=trim(fname1),status='unknown')
806 fname1 = trim(fname)//cname(i)
807 open(264,file=trim(fname1),status='unknown')