| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 57 character*64 temp1 local
184 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
185 write (fname2,temp1) (myrank+1),'?'
189 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
190 write (fname2,temp1) (myrank+1),'?'
194 write (temp1,"('(''number of interior elements@'',i',i1,',A1)')")
196 write (fname2,temp1) (myrank+1),'?'
200 write (temp1,"('(''number of boundary elements@'',i',i1,',A1)')")
202 write (fname2,temp1) (myrank+1),'?'
206 write (temp1,
[all …]
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 81 character*64 temp1 local
209 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
210 write (fname2,temp1) (myrank+1),'?'
214 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
215 write (fname2,temp1) (myrank+1),'?'
219 write (temp1,"('(''number of interior elements@'',i',i1,',A1)')")
221 write (fname2,temp1) (myrank+1),'?'
225 write (temp1,"('(''number of boundary elements@'',i',i1,',A1)')")
227 write (fname2,temp1) (myrank+1),'?'
231 write (temp1,
[all …]
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 56 character*64 temp1 local
212 write (temp1,"('(''ybar@'',i',i1,',A1)')") itmp
213 write (fname1,temp1) (myrank+1),'?'
246 write (temp1,"('(''errors@'',i',i1,',a1)')")
248 write (fname1,temp1) (myrank+1),'?'
286 write (temp1,
290 write (fname1,temp1) iphavg,(myrank+1),'?'
337 write (temp1,"('(''solution@'',i',i1,',A1)')") itmp
338 write (fname1,temp1) (myrank+1),'?'
366 write (temp1,"('(''vorticity@'',i',i1,',a1)')")
[all …]
|
| /phasta/phSolver/common/ |
| H A D | f3lhs.f | 42 & temp(npro), temp1(npro),
61 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
65 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
70 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
71 bnorm(:,1) = temp1 * temp
|
| H A D | asbnabi.f | 29 & temp1(npro), temp2(npro),
80 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
86 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
87 bnorm(:,1) = temp1 * temp
187 & temp1(npro), temp2(npro),
238 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
244 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
|
| H A D | turbsa.f | 59 character(len=64) :: temp1 local
|
| H A D | readnblk.f | 64 character*64 temp1 local
|
| /phasta/phSolver/incompressible/ |
| H A D | e3bvar.f | 69 & temp1(npro), temp2(npro),
221 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
227 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
228 bnorm(:,1) = temp1 * temp
359 temp1 = bnorm(:,1) * tau1n
363 pres = pres - temp1
365 tau1n = tau1n - bnorm(:,1) * temp1
366 tau2n = tau2n - bnorm(:,2) * temp1
367 tau3n = tau3n - bnorm(:,3) * temp1
413 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
[all …]
|
| /phasta/phSolver/compressible/ |
| H A D | e3bvar.f | 73 & temp1(npro), temp2(npro),
158 temp1 = dxdxib(:,2,1) * dxdxib(:,3,3) -
166 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
170 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
175 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
176 bnorm(:,1) = temp1 * temp
431 & temp1(npro), temp2(npro),
515 temp1 = dxdxib(:,2,1) * dxdxib(:,3,3) -
523 temp1 = v1(:,2) * v2(:,3) - v2(:,2) * v1(:,3)
527 temp1 = - v1(:,2) * v2(:,3) + v2(:,2) * v1(:,3)
[all …]
|