| /phasta/phSolver/common/ |
| H A D | genbkb.f | 27 character*255 fname2 local
64 write (fname2,"('connectivity boundary',i1)") iblk
66 write (fname2,"('connectivity boundary linear tetrahedron')")
69 call phio_readheader(fhandle, fname2 // char(0),
87 write (fname2,"('connectivity boundary',i1)") iblk
89 write (fname2,"('connectivity boundary linear tetrahedron')")
94 call phio_readheader(fhandle, fname2 // char(0),
114 call phio_readdatablock(fhandle, fname2 // char(0),
121 write (fname2,"('nbc codes',i1)") iblk
123 write (fname2,"('nbc codes linear tetrahedron')")
[all …]
|
| H A D | genbkbSyncIO.f | 27 character*255 fname2 local
63 write (fname2,"('connectivity boundary',i1)") iblk
66 call phio_readheader(fhandle, fname2 // char(0),
85 write (fname2,"('connectivity boundary',i1)") iblk
88 call phio_readheader(fhandle, fname2 // char(0),
108 call phio_readdatablock(fhandle, fname2 // char(0),
114 write (fname2,"('nbc codes',i1)") iblk
116 call phio_readheader(fhandle, fname2 // char(0),
119 call phio_readdatablock(fhandle, fname2 // char(0),
125 write (fname2,"('nbc values',i1)") iblk
[all …]
|
| H A D | genbkbPosix.f | 27 character*255 fname2 local
46 write (fname2,"('connectivity boundary?')")
47 call phio_readheader(fhandle, fname2 // char(0),
64 call phio_readdatablock(fhandle, fname2 // char(0),
70 write (fname2,"('nbc codes?')")
72 call phio_readheader(fhandle, fname2 // char(0),
75 call phio_readdatablock(fhandle, fname2 // char(0),
80 write (fname2,"('nbc values?')")
82 call phio_readheader(fhandle, fname2 // char(0),
86 call phio_readdatablock(fhandle, fname2 // char(0),
|
| H A D | genblk.f | 25 character*255 fname2 local
57 write (fname2,"('connectivity interior',i1)") iblk
59 write (fname2,"('connectivity interior linear tetrahedron')")
64 call phio_readheader(fhandle, fname2 // char(0),
83 write (fname2,"('connectivity interior',i1)") iblk
85 write (fname2,"('connectivity interior linear tetrahedron')")
91 call phio_readheader(fhandle, fname2 // char(0),
107 call phio_readdatablock(fhandle,fname2 // char(0),
|
| H A D | genblkSyncIO.f | 25 character*255 fname2 local
56 write (fname2,"('connectivity interior',i1)") iblk
57 call phio_readheader(fhandle, fname2 // char(0),
78 write (fname2,"('connectivity interior',i1)") iblk
82 call phio_readheader(fhandle, fname2 // char(0),
98 call phio_readdatablock(fhandle,fname2 // char(0),
|
| H A D | rwvelb.f | 12 character*20 fname2 local
98 fname2='bar.latest'
99 fname2 = trim(fname2) // cname(myrank+1)
|
| H A D | genblkPosix.f | 25 character*255 fname2 local
41 write (fname2,"('connectivity interior?')")
42 call phio_readheader(fhandle, fname2 // char(0),
53 call phio_readdatablock(fhandle,fname2 // char(0),
|
| H A D | turbsa.f | 58 character(len=255) :: fnamer, fname2, temp2 local
|
| H A D | readnblk.f | 63 character*255 fname2, temp2 local
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 56 character*255 fname2, temp2 local
185 write (fname2,temp1) (myrank+1),'?'
186 call readheader(igeom,fname2//char(0),numnp,ione,
190 write (fname2,temp1) (myrank+1),'?'
191 call readheader(igeom,fname2//char(0),nshg,ione,
196 write (fname2,temp1) (myrank+1),'?'
197 call readheader(igeom,fname2//char(0),numel,ione,
202 write (fname2,temp1) (myrank+1),'?'
203 call readheader(igeom,fname2//char(0),numelb,ione,
208 write (fname2,temp1) (myrank+1),'?'
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 80 character*255 fname2, temp2 local
210 write (fname2,temp1) (myrank+1),'?'
211 call readheader(igeom,fname2//char(0),numnp,ione,
215 write (fname2,temp1) (myrank+1),'?'
216 call readheader(igeom,fname2//char(0),nshg,ione,
221 write (fname2,temp1) (myrank+1),'?'
222 call readheader(igeom,fname2//char(0),numel,ione,
227 write (fname2,temp1) (myrank+1),'?'
228 call readheader(igeom,fname2//char(0),numelb,ione,
233 write (fname2,temp1) (myrank+1),'?'
[all …]
|
| /phasta/phSolver/compressible/ |
| H A D | bflux.f | 59 character(len=20) fname1, fname2, local
102 write (fname2,fmt2) lstep
109 & open (unit=ichmou, file=fname2, status='unknown', err=996)
114 & open (unit=ichmou, file=fname2, status='unknown', err=996,
|
| /phasta/phSolver/incompressible/ |
| H A D | bflux.f | 52 character*60 fname1, fmt1, fmt2, fnamer, fname2 local
|
| H A D | itrdrv.f | 90 character*20 fname2,fmt2 local
|
| H A D | filters.f | 1682 character*30 fname1, fname2, fname3, fname4, fname5, fname6, local
2369 character*30 fname1, fname2, fname3, fname4, fname5, fname6 local
|
| H A D | advLES.f | 2502 character*30 fname1, fname2, fname3, fname4, fname5, fname6, local
3187 character*30 fname1, fname2, fname3, fname4, fname5, fname6 local
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 55 character*255 fname2, temp2 local
|