| /phasta/phSolver/incompressible/ |
| H A D | ftools.f | 20 & xGoC(npro,4*nshl,nshl)
38 Diagl(:,i,4) = xGoC(1:npro,nn2+i,i)
1120 subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument
1124 dimension xGoC(npro,4*nshl,nshl)
1144 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1147 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1150 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1171 & xGoC(npro,4*nshl,nshl)
1217 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
[all …]
|
| H A D | e3lhs.f | 6 & xGoC ) argument
41 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
235 xGoC(:,1,aa,b) = xGoC(:,1,aa,b) + t1(:,1) * shpfun(:,aa)
236 xGoC(:,2,aa,b) = xGoC(:,2,aa,b) + t1(:,2) * shpfun(:,aa)
237 xGoC(:,3,aa,b) = xGoC(:,3,aa,b) + t1(:,3) * shpfun(:,aa)
251 xGoC(:,4,aa,b) = xGoC(:,4,aa,b)
|
| H A D | asigmr.f | 4 & xKebe, xGoC, rerr, CFLworst) argument
36 & xGoC(npro,4,nshl,nshl)
77 xGoC = zero
88 & ql, xKebe, xGoC, xmudmi,
|
| H A D | e3.f | 3 & xKebe, xGoC, xmudmi, sgn, argument
47 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
134 & xGoC )
148 xGoC(:,4,iaa,ib) = xGoC(:,4,ib,iaa)
|
| H A D | elmgmr.f | 50 real*8, allocatable, dimension(:,:,:,:) :: xKebe, xGoC local
159 allocate ( xGoC (npro,4,nshl,nshl) )
176 & xGoC, rerr)
185 & xGoC, lhsP,
190 deallocate ( xGoC )
278 allocate ( xGoC (npro,4,nshl,nshl) )
304 xGoC = zero
311 & xGoC, lhsP,
316 deallocate ( xGoC )
|
| H A D | bflux.f | 58 real*8, allocatable, dimension(:,:,:,:) :: xKebe, xGoC local
136 allocate ( xGoC (npro,4,nshl,nshl) )
146 & xKebe, xGoC,
150 deallocate ( xGoC )
|
| /phasta/phSolver/common/ |
| H A D | fillsparse.f | 2 & xGoC, lhsP, argument
8 real*8 xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl) local
54 lhsP(1,k) = lhsP(1,k) + xGoC(e,1,aa,b)
55 lhsP(2,k) = lhsP(2,k) + xGoC(e,2,aa,b)
56 lhsP(3,k) = lhsP(3,k) + xGoC(e,3,aa,b)
57 lhsP(4,k) = lhsP(4,k) + xGoC(e,4,aa,b)
|