Searched refs:rminv (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | gtminv.f | 1 subroutine gtminv( rminv ) argument
9 dimension rminv(nshape,nshape)
14 rminv(1,1) = 600.00000000000d0
15 rminv(1,2) = 60.000000000000d0
16 rminv(1,3) = 60.000000000000d0
17 rminv(1,4) = 60.000000000000d0
18 rminv(1,5) = 630.00000000000d0
19 rminv(1,6) = 0.0d0
20 rminv(1,7) = 630.00000000000d0
21 rminv(1,8) = 630.00000000000d0
[all …]
|
| H A D | e3ql.f | 39 & con(npro), rminv(npro,nshl,nshl),
50 rminv = zero
186 rminv(iel,i,j) = 0.0
188 rminv(iel,i,i)=1.0
200 & indx,rminv(iel,:,j))
210 ql(iel,:,j) = matmul( rminv(iel,:,:),qrl(iel,:,j) )
|
| /phasta/phSolver/incompressible/ |
| H A D | e3ql.f | 36 & rminv(npro,nshl,nshl),
48 rminv = zero
154 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
156 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
165 ql(iel,:,j) = matmul( rminv(iel,:,:),qrl(iel,:,j) )
200 & rminv(npro,nshl,nshl),
211 rminv = zero
301 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
303 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
311 ql(iel,:,j) = matmul( rminv(iel,:,:),qrl(iel,:,j) )
|