| /phasta/phSolver/incompressible/ |
| H A D | bc3lhs.f | 1 subroutine bc3LHS (iBC, BC, iens, xKebe ) argument
26 & BC(nshg,ndofBC), xKebe(npro,9,nshl,nshl)
84 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
85 & - BC(in,4) * xKebe(iel,irem1,i,inod)
86 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
87 & - BC(in,4) * xKebe(iel,irem2,i,inod)
88 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
89 & - BC(in,4) * xKebe(iel,irem3,i,inod)
104 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
105 & - BC(in,5) * xKebe(iel,irem1,i,inod)
[all …]
|
| H A D | e3lhs.f | 5 & shpfun, shg, xKebe, argument
41 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
94 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp2
95 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp2
96 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp2
142 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp
145 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp
148 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp
154 xKebe(:,2,aa,b) = xKebe(:,2,aa,b) + tmp1
155 xKebe(:,4,b,aa) = xKebe(:,4,b,aa) + tmp1
[all …]
|
| H A D | asbmfg.f | 4 & res, xKebe) argument
31 dimension xKebe(npro,9,nshl,nshl)
54 xKebe = zero
66 & xlb, rl, sgn, dwl, xKebe)
|
| H A D | ftools.f | 15 subroutine flesPrepDiag ( ien, xKebe, xGoc, flowDiag ) argument
19 dimension xKebe(npro,3*nshl,3*nshl),
29 Diagl(:,i,1) = xKebe(1:npro,i0+1,i0+1)
30 Diagl(:,i,2) = xKebe(1:npro,i0+2,i0+2)
31 Diagl(:,i,3) = xKebe(1:npro,i0+3,i0+3)
1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1170 dimension xKebe(npro,3*nshl,3*nshl),
1194 & + xKebe(1:npro,i0+1,j0+1) * Ptemp(:,j,1)
1195 & + xKebe(1:npro,i0+1,j0+2) * Ptemp(:,j,2)
1196 & + xKebe(1:npro,i0+1,j0+3) * Ptemp(:,j,3)
[all …]
|
| H A D | elmgmr.f | 50 real*8, allocatable, dimension(:,:,:,:) :: xKebe, xGoC local
158 allocate ( xKebe(npro,9,nshl,nshl) )
175 & qres, xKebe,
182 & call bc3lhs (iBC, BC,mien(iblk)%p, xKebe)
184 & xKebe, lhsK,
189 deallocate ( xKebe )
277 allocate ( xKebe(npro,9,nshl,nshl) )
296 & res, xKebe)
308 & call bc3lhs (iBC, BC,mienb(iblk)%p, xKebe)
310 & xKebe, lhsK,
[all …]
|
| H A D | bflux.f | 58 real*8, allocatable, dimension(:,:,:,:) :: xKebe, xGoC local
135 allocate ( xKebe(npro,9,nshl,nshl) )
146 & xKebe, xGoC,
149 deallocate ( xKebe )
183 allocate ( xKebe(npro,9,nshl,nshl) )
194 & xKebe )
196 deallocate ( xKebe )
|
| H A D | asigmr.f | 4 & xKebe, xGoC, rerr, CFLworst) argument
35 dimension xKebe(npro,9,nshl,nshl),
76 xKebe = zero
88 & ql, xKebe, xGoC, xmudmi,
|
| H A D | asbflx.f | 5 & flxLHS, flxnrm, xKebe ) argument
34 dimension xKebe(npro,9,nshl,nshl)
64 & xlb, rl, sgn, dwl, xKebe)
|
| H A D | e3b.f | 3 & xlb, rl, sgn, dwl, xKebe) argument
81 dimension xKebe(npro,9,nshl,nshl), rKwall_glob(npro,9,nshl,nshl)
134 & xKebe, rKwall_glob)
221 xKebe(iel,:,:,:) = zero
357 xKebe(:,:,:,:) = ( xKebe(:,:,:,:)*iwallmassfactor
|
| H A D | e3.f | 3 & xKebe, xGoC, xmudmi, sgn, argument
47 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl)
133 & shpfun, shg, xKebe,
|
| H A D | e3bvar.f | 8 & xKebe, rKwall_glob) argument
100 & xKebe(npro,9,nshl,nshl)
666 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp1
667 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp1
668 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp1
|
| /phasta/phSolver/common/ |
| H A D | fillsparse.f | 1 subroutine fillsparseI( iens, xKebe, lhsK, argument
8 real*8 xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl) local
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
51 lhsK(8,k) = lhsK(8,k) + xKebe(e,8,aa,b)
[all …]
|