Searched refs:lDir (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3sts.f | 12 real*8 lDir(npro,nshl,3), lStsVec(npro,nshl,nResDims), local
15 call e3StsDir( xl, lDir )
18 lStsVec(:,i,1) = lDir(:,i,1) * lDir(:,i,1)
19 lStsVec(:,i,2) = lDir(:,i,2) * lDir(:,i,2)
20 lStsVec(:,i,3) = lDir(:,i,3) * lDir(:,i,3)
22 lStsVec(:,i,4) = lDir(:,i,1) * lDir(:,i,2)
23 lStsVec(:,i,5) = lDir(:,i,2) * lDir(:,i,3)
24 lStsVec(:,i,6) = lDir(:,i,3) * lDir(:,i,1)
47 real*8 lDir(npro,nshl,3), lStsVec(npro,nshl,nResDims) local
49 call e3StsDir( xl, lDir )
[all …]
|