Lines Matching defs:AsImass
60 subroutine AsImass (x, shp, subroutine
74 real*8 x(numnp,nsd),
75 & shp(nshl,maxsh), shgl(nsd,nshl,ngauss),
76 & gmass(nshg)
78 integer ien(npro,nshl)
81 real*8 xl(npro,nenl,nsd), WdetJ(npro),
82 & sgn(npro,nshl), shape(npro,nshl),
83 & locmass(npro,nshl), shg(npro,nshl,nsd),
84 & fmstot(npro), temp(npro),
85 & dxidx(npro,nsd,nsd), shdrv(npro,nsd,nshl)
87 integer aa