Home
last modified time | relevance | path

Searched refs:EGmass (Results 1 – 19 of 19) sorted by relevance

/phasta/phSolver/compressible/
H A Dbc3lhs.f1 subroutine bc3LHS (iBC, BC, iens, EGmass ) argument
25 & BC(nshg,11), EGmass(npro,nedof,nedof)
58 EGmass(iel,i,i1) = zero
59 EGmass(iel,i1,i) = zero
61 EGmass(iel,i1,i1) = one
75 EGmass(iel,i3,i) = EGmass(iel,i3,i)
76 & - BC(in,4) * EGmass(iel,i2,i)
77 EGmass(iel,i4,i) = EGmass(iel,i4,i)
78 & - BC(in,5) * EGmass(iel,i2,i)
81 EGmass(iel,i,i3) = EGmass(iel,i,i3)
[all …]
H A Dasaugmr.f1 subroutine AsAuGMR (ien, EGmass, uBrg, uBtmp ) argument
19 dimension ien(npro,nshl), EGmass(npro,nedof,nedof),
35 & + EGmass(:,i ,j ) * uBrgl(:,j )
36 & + EGmass(:,i ,j+1) * uBrgl(:,j+1)
37 & + EGmass(:,i ,j+2) * uBrgl(:,j+2)
38 & + EGmass(:,i ,j+3) * uBrgl(:,j+3)
39 & + EGmass(:,i ,j+4) * uBrgl(:,j+4)
42 & + EGmass(:,i+1,j ) * uBrgl(:,j )
43 & + EGmass(:,i+1,j+1) * uBrgl(:,j+1)
44 & + EGmass(:,i+1,j+2) * uBrgl(:,j+2)
[all …]
H A Di3pre.f1 subroutine i3pre (BDtmp, Binv, EGmass, ilwork ) argument
25 & EGmass(numel,nedof,nedof),
67 EGmass(n+iv,i+1,j) = EGmass(n+iv,i+1,j)
69 EGmass(n+iv,i+2,j) = (EGmass(n+iv,i+2,j)
70 & - BDiagl(n+iv,inode,2,1) * EGmass(n+iv,i+1,j))
72 EGmass(n+iv,i+3,j) = (EGmass(n+iv,i+3,j)
73 & - BDiagl(n+iv,inode,3,1) * EGmass(n+iv,i+1,j)
74 & - BDiagl(n+iv,inode,3,2) * EGmass(n+iv,i+2,j))
76 EGmass(n+iv,i+4,j) = (EGmass(n+iv,i+4,j)
77 & - BDiagl(n+iv,inode,4,1) * EGmass(n+iv,i+1,j)
[all …]
H A De3massl.f2 & EGmass ) argument
22 & WdetJ(npro), EGmass(npro,nedof,nedof)
53 EGmass(:,i0+1,j0+jdof) = EGmass(:,i0+1,j0+jdof)
55 EGmass(:,i0+2,j0+jdof) = EGmass(:,i0+2,j0+jdof)
57 EGmass(:,i0+3,j0+jdof) = EGmass(:,i0+3,j0+jdof)
59 EGmass(:,i0+4,j0+jdof) = EGmass(:,i0+4,j0+jdof)
61 EGmass(:,i0+5,j0+jdof) = EGmass(:,i0+5,j0+jdof)
H A De3wmlt.f3 & rml, stiff, EGmass ) argument
58 & EGmass(npro,nedof,nedof)
195 EGmass(:,i0+1,j0+jdof) = EGmass(:,i0+1,j0+jdof)
199 EGmass(:,i0+2,j0+jdof) = EGmass(:,i0+2,j0+jdof)
203 EGmass(:,i0+3,j0+jdof) = EGmass(:,i0+3,j0+jdof)
207 EGmass(:,i0+4,j0+jdof) = EGmass(:,i0+4,j0+jdof)
211 EGmass(:,i0+5,j0+jdof) = EGmass(:,i0+5,j0+jdof)
H A Delmgmr.f5 & iper, ilwork, EGmass, rerr) argument
29 & iper(nshg), EGmass(numel,nedof,nedof)
119 if (lhs. eq. 1) EGmass = zero
160 & qres, EGmass(iel:inum,:,:),
166 & EGmass(iel:inum,:,:) )
327 real*8, allocatable :: EGmass(:,:,:) local
430 allocate (EGmass(npro,nedof,nedof))
431 EGmass = zero
433 allocate (EGmass(1,1,1))
447 & qres, EGmass,
[all …]
H A De3conv.f6 & ri, rmi, EGmass, argument
58 & rmi(npro,nflow*(nsd+1)), EGmass(npro,nedof,nedof),
319 EGmass(:,i0+1,jl) = EGmass(:,i0+1,jl) +
322 EGmass(:,i0+2,jl) = EGmass(:,i0+2,jl) +
325 EGmass(:,i0+3,jl) = EGmass(:,i0+3,jl) +
328 EGmass(:,i0+4,jl) = EGmass(:,i0+4,jl) +
331 EGmass(:,i0+5,jl) = EGmass(:,i0+5,jl) +
H A Delmgmrpetsc.f54 real*8, allocatable :: EGmass(:,:,:) local
164 allocate (EGmass(npro,nedof,nedof))
165 EGmass = zero
167 allocate (EGmass(1,1,1))
181 & qres, EGmass,
188 & EGmass )
195 call fillsparsecpetscc( mieng(iblk)%p, EGmass, lhsP)
199 deallocate ( EGmass )
H A Dasbmfg.f3 & res, rmes, EGmass)
25 & EGmass(npro, nshl, nshl)
55 & xlb, rl, rml, sgn, EGmass)
H A Dau1gmr.f1 subroutine Au1GMR (EGmass, uBrg, ilwork,iBC,iper ) argument
22 dimension EGmass(numel,nedof,nedof), uBrg(nshg,nflow),
60 call asAuGMR (mien(iblk)%p, EGmass(iel:inum,:,:), uBrg,
H A Dasigmr.f4 & BDiag, qres, EGmass, rerr) argument
36 dimension sgn(npro,nshl), EGmass(npro,nedof,nedof)
77 & BDiagl, ql, sgn, rlsl, EGmass,
98 BDiagl(:,i,j,k) = EGmass(:,i0,j0)
H A De3ls.f9 & EGmass, stiff, WdetJ, argument
72 & EGmass(npro,nedof,nedof),shape(npro,nshl),
742 EGmass(:,il,j0+1) = EGmass(:,il,j0+1) +
744 EGmass(:,il,j0+2) = EGmass(:,il,j0+2) +
746 EGmass(:,il,j0+3) = EGmass(:,il,j0+3) +
748 EGmass(:,il,j0+4) = EGmass(:,il,j0+4) +
750 EGmass(:,il,j0+5) = EGmass(:,il,j0+5) +
H A De3.f3 & BDiagl, ql, sgn, rlsl, EGmass, argument
58 & EGmass(npro,nedof,nedof),cv(npro),
168 & ri, rmi, EGmass,
209 & EGmass, stiff, WdetJ,
255 call e3massl (bcool,shape, WdetJ, A0, EGmass)
294 & rml, stiff, EGmass)
H A Dsolgmr.f2 & x, iBC, BC, EGmass,
51 & iper(nshg), EGmass(numel,nedof,nedof)!,
82 & ilwork, EGmass, rerr )
112 call i3pre (BDiag, Binv, EGmass, ilwork)
162 call Au1GMR (EGmass, temp, ilwork, iBC,iper)
211 call Au1GMR ( EGmass, uBrg(:,:,iKs+1), ilwork, iBC,iper)
H A Dasiflx.f30 dimension EGmass(npro,nedof,nedof), rml(npro,nshl,nflow)
H A De3b.f2 & xlb, rl, rml, sgn, EGmass) argument
68 & EGmass(npro, nshl, nshl)
245 EGmass(:,b, aa) = con * WdetJb * shape(:,b) * dNadn(:,aa)
H A Ditrdrv.f88 real*8, allocatable, dimension(:,:) :: EGmass local
191 allocate (EGmass(numel,nedof*nedof))
518 & EGmass, res,
/phasta/phSolver/common/
H A Dfillsparse.c21 void fillsparsecpetscs(gcorp_t* ieng, double* EGmass, Mat* lhsP) in fillsparsecpetscs() argument
34 mb[nshl*i + j] = EGmass[e + npro*(i + nshl*j)]; in fillsparsecpetscs()
45 void fillsparsecpetscc(gcorp_t* ieng, double* EGmass, Mat* lhsP) in fillsparsecpetscc() argument
60 mb[nedof*i + j] = EGmass[e + npro*(i + nedof*j)]; in fillsparsecpetscc()
H A Dfillsparse.f68 subroutine fillsparseC( iens, EGmass, lhsK, argument
81 real*8 EGmass(npro,nedof,nedof) local
121 lhsK(t+f,k) = lhsK(t+f,k) + EGmass(e,r+f,s+g)
131 subroutine fillsparseC_BC( iens, EGmass, argument
144 real*8 EGmass(npro, nshl, nshl) !only contains term (5,5) local
178 lhsk(25, k) = lhsk(25, k) + EGmass(e, aa, b)