Home
last modified time | relevance | path

Searched refs:lStsVec (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A DelmStats.f15 real*8, allocatable :: lStsVec(:,:,:) local
31 allocate ( lStsVec(npro,nshl,nResDims) )
39 call e3StsLhs( xl, lStsVec )
43 call local (stsVec, lStsVec, mien(iblk)%p,
47 deallocate ( lStsVec )
H A De3sts.f1 subroutine e3StsLhs( xl, lStsVec ) argument
12 real*8 lDir(npro,nshl,3), lStsVec(npro,nshl,nResDims), local
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)
26 lStsVec(:,i,7) = 0.0
27 lStsVec(:,i,8) = 0.0
[all …]
H A Dasigmr.f41 real*8 lStsVec(npro,nshl,nResDims) local
94 call e3StsRes ( xl, rl, lStsVec )
95 call local( stsVec, lStsVec, ien, nResDims, 'scatter ')