Lines Matching refs:em
20 subroutine cmass (shp, shgl, xl, em) argument
35 & em(npro,nshl,nshl),
43 em = zero
62 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
73 subroutine cmassl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
89 & em(npro,nshl,nshl), eml(npro,nshl),
97 em = zero
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
180 em = (one-flump)*em
184 em(iel,na,na) = em(iel,na,na)+flump*eml(iel,na)
196 subroutine cmasstl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
212 & em(npro,nshl,nshl), eml(npro,nshl),
220 em = zero
279 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
299 em(iel,na,na) = eml(iel,na)