| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 60 integer :: itmp, itmp2 local
173 itmp = int(log10(float(myrank+1)))+1
184 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
189 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
195 & itmp
201 & itmp
207 & "('(''maximum number of element nodes@'',i',i1,',A1)')") itmp
213 & itmp
219 & itmp
225 & "('(''number of nodes with Dirichlet BCs@'',i',i1,',A1)')") itmp
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 76 integer :: ierr_io, numprocs, itmp, itmp2 local
198 itmp = int(log10(float(myrank+1)))+1
209 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
214 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
220 & itmp
226 & itmp
232 & "('(''maximum number of element nodes@'',i',i1,',A1)')") itmp
238 & itmp
244 & itmp
250 & "('(''number of nodes with Dirichlet BCs@'',i',i1,',A1)')") itmp
[all …]
|
| /phasta/phSolver/common/ |
| H A D | rwvelb.f | 39 itmp = 1
40 if (irstart .gt. 0) itmp = int(log10(float(irstart)))+1
41 write (fmt1,"('(''bar.'',i',i1,',1x)')") itmp
76 itmp = 1
77 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
78 write (fmt1,"('(''bar.'',i',i1,',1x)')") itmp
|
| H A D | renum.f | 109 itmp = 1
113 itmp = k
116 if (radcyl.ge.xrtmp(itmp)) then
118 nrint(j)=nrin(itmp)
120 xrtmp(itmp) = -1
249 itmp = 1
253 itmp = k
257 nrint(j)=nyin(itmp)
258 yrtmp(itmp) = 10000000
|
| H A D | sonfath.f | 10 & counter,nc8,nc4,node,ifil,itmp local
137 itmp=sum(dummy)
138 nsons(tfath) = itmp
|
| H A D | readnblk.f | 59 integer :: ierr_io, numprocs, itmp, itmp2 local
85 itmp=1
86 if (irstart .gt. 0) itmp = int(log10(float(irstart)))+1
87 write (fmt1,"('(''restart.'',i',i1,',1x)')") itmp
99 itmp = int(log10(float(myrank+1)))+1
490 itmp = int(log10(float(myrank+1)))+1
|
| H A D | eqn_plane.f | 136 itmp = lcblk(1,nelblk+1)
137 allocate (ien2D(itmp,4))
|
| H A D | genbkbPosix.f | 25 integer :: ierr_io, numprocs, itmp, itmp2 local
39 itmp = int(log10(float(myrank+1)))+1
|
| H A D | genbkbSyncIO.f | 25 integer :: ierr_io, numprocs, itmp, itmp2 local
39 itmp = int(log10(float(myrank+1)))+1
|
| H A D | genbkb.f | 25 integer :: ierr_io, numprocs, itmp, itmp2 local
39 itmp = int(log10(float(myrank+1)))+1
|
| H A D | genbc.f | 673 itmp=temp(j-1)
675 temp(j)=itmp
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 59 integer :: itmp, itmp2 local
184 itmp=1
185 if (timestep .gt. 0) itmp = int(log10(float(timestep+1)))+1
186 write (fmt1,"('(''restart-dat.'',i',i1,',1x)')") itmp
211 itmp = int(log10(float(myrank+1)))+1
212 write (temp1,"('(''ybar@'',i',i1,',A1)')") itmp
247 & itmp
282 itmp = int(log10(float(myrank+1)))+1
288 & itmp2, itmp
336 itmp = int(log10(float(myrank+1)))+1
[all …]
|
| /phasta/phSolver/compressible/ |
| H A D | bflux.f | 97 itmp = 1
98 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
99 write (fmt1,"('(''output.'',i',i1,',1x)')") itmp
100 write (fmt2,"('(''outchm.'',i',i1,',1x)')") itmp
313 itmp = 1
314 if (lstep .gt. 0) itmp = int(log10(float(lstep)))+1
315 write (fmt1,"('(''flux.'',i',i1,',1x)')") itmp
|
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 390 integer iofile, step2, itmp1, itmp,iofile2 local
400 itmp = 1
402 if (step1 .gt. 0) itmp = int(log10(float(step1)))+1
407 & itmp,itmp1
|