Searched refs:xB (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | eqn_plane.f | 31 & xA(nsd), xB(nsd), xC(nsd), xD(nsd), fourth(nsd), 79 xB(:) = x(ienb(inum,2),:) 93 xnrml = (xB(2) - xA(2)) * (xC(3) - xA(3)) 94 & - (xB(3) - xA(3)) * (xC(2) - xA(2)) 96 ynrml = (xB(3) - xA(3)) * (xC(1) - xA(1)) 97 & - (xB(1) - xA(1)) * (xC(3) - xA(3)) 99 znrml = (xB(1) - xA(1)) * (xC(2) - xA(2)) 100 & - (xB(2) - xA(2)) * (xC(1) - xA(1))
|
| /phasta/svLS/ |
| H A D | NSSOLVER.f | 59 2 MU(:,:,:), MP(:,:), A(:,:), B(:), xB(:), mK(:,:), mG(:,:), local 67 3 A(nB,nB), B(nB), xB(nB)) 72 xB = 0D0 136 xB = B 137 CALL GE(iBB, A(1:iBB,1:iBB), xB(1:iBB)) 139 ls%RI%fNorm = SQRT(ls%RI%iNorm**2D0 - SUM(xB(1:iBB)*B(1:iBB))) 145 Rm = Rmi - xB(1)*MU(:,:,1) 146 Rc = Rci - xB(1)*MP(:,1) 148 Rm = Rm - xB(j)*MU(:,:,j) 149 Rc = Rc - xB(j)*MP(:,j) [all …]
|