| /phasta/phSolver/common/ ! |
| H A D | findslpw.f | 132 integer function iparall(A,B)
133 real*8 A(3),B(3) local
138 tmp=(B(1)**2+B(2)**2+B(3)**2)**0.5
139 B(:)=B(:)/tmp
143 C1=A(2)*B(3)-A(3)*B(2)
144 C2=A(3)*B(1)-A(1)*B(3)
145 C3=A(1)*B(2)-A(2)*B(1)
147 dotp=A(1)*B(1)+A(2)*B(2)+A(3)*B(3)
|
| H A D | symtri.c | 24 #define B 0.666666666666667 macro
62 static double rst3[][3] = {{B,C,C},{C,B,C},{C,C,B}};
|
| H A D | settauw.f | 255 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
|
| /phasta/svLS/ ! |
| H A D | GE.f | 41 SUBROUTINE GE (N, A, B) argument
47 REAL*8, INTENT(INOUT) :: B(N) local
55 saveEl = (B(1)*A(2,2) - B(2)*A(1,2))/pivot
56 B(2) = (B(2)*A(1,1) - B(1)*A(2,1))/pivot
57 B(1) = saveEl
63 C(:,N+1) = B
104 B = C(:,N+1)
|
| H A D | NSSOLVER.f | 59 2 MU(:,:,:), MP(:,:), A(:,:), B(:), xB(:), mK(:,:), mG(:,:), local
67 3 A(nB,nB), B(nB), xB(nB))
73 B = 0D0
132 B(k) = DOTV (nsd, mynNo, commu, MU(:,:,k), Rmi)
136 xB = B
139 ls%RI%fNorm = SQRT(ls%RI%iNorm**2D0 - SUM(xB(1:iBB)*B(1:iBB)))
182 DEALLOCATE (Rm, Rc, Rmi, Rci, U, P, MU, MP, A, B, mK, mD, mG, mL,
|
| /phasta/phSolver/incompressible/ ! |
| H A D | stats.f | 214 & DInv(3), B(3), local
247 B = stsB(i,:)
281 r3 = r3 - B(1) * (r0 + r1)
282 r4 = r4 - B(2) * (r1 + r2)
283 r5 = r5 - B(3) * (r2 + r0)
289 & + r0 - DInv(1) * (B(1) * t3 + B(3) * t5)
291 & + r1 - DInv(2) * (B(2) * t4 + B(1) * t3)
293 & + r2 - DInv(3) * (B(3) * t5 + B(2) * t4)
310 r3 = r3 - B(1) * (r0 + r1)
311 r4 = r4 - B(2) * (r1 + r2)
[all …]
|
| H A D | getdiff.f | 162 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
|
| /phasta/phSolver/compressible/ ! |
| H A D | e3tau.f | 342 & Ak(npro), B(npro), D(npro), E(npro),
464 B= -Pe*c + Ak
465 D= 0.4 * (Pe**2) + B
474 betaT=betaT-(Ak*betaT**3+B*betaT**2+D*betaT+E)/(3*Ak
475 & *betaT**2+2*B*betaT+D)
|
| /phasta/phastaIO/ ! |
| H A D | vtkPhastaReader.cxx | 176 #define swap_char(A,B) { ucTmp = A; A = B ; B = ucTmp; } argument
|