| /phasta/phSolver/common/ |
| H A D | f3lhs.f | 43 & temp2(npro), temp3(npro) 62 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 66 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3) 70 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 72 bnorm(:,2) = temp2 * temp
|
| H A D | asbnabi.f | 29 & temp1(npro), temp2(npro), 81 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 86 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 88 bnorm(:,2) = temp2 * temp 187 & temp1(npro), temp2(npro), 239 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 244 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
|
| 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/phSolver/incompressible/ |
| H A D | e3bvar.f | 69 & temp1(npro), temp2(npro), 222 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 227 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 229 bnorm(:,2) = temp2 * temp 414 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 417 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 419 v3(:,2) = temp2 * temp 424 temp2 = v1(:,1) * v3(:,3) - v3(:,1) * v1(:,3) 427 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 429 v2(:,2) = temp2 * temp [all …]
|
| /phasta/phSolver/compressible/ |
| H A D | e3bvar.f | 73 & temp1(npro), temp2(npro), 160 temp2 = dxdxib(:,3,1) * dxdxib(:,1,3) - 167 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 171 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3) 175 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 ) 177 bnorm(:,2) = temp2 * temp 431 & temp1(npro), temp2(npro), 517 temp2 = dxdxib(:,3,1) * dxdxib(:,1,3) - 524 temp2 = v2(:,1) * v1(:,3) - v1(:,1) * v2(:,3) 528 temp2 = - v2(:,1) * v1(:,3) + v1(:,1) * v2(:,3) [all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 56 character*255 fname2, temp2 local 166 write (temp2,"('(''geombcRed-dat.'',i',i1,')')") itmp2 167 write (fnamer,temp2) (color+1) 564 write (temp2,"('(''geombcRed-dat.'',i',i1,')')") itmp2 565 write (fnamer,temp2) (color+1)
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 80 character*255 fname2, temp2 local 191 write (temp2,"('(''geombc-dat.'',i',i1,')')") itmp2 192 write (fnamer,temp2) (color+1)
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 55 character*255 fname2, temp2 local
|