Lines Matching refs:rmass
41 & rmass(npro,nshl,nshl)
49 rmass = zero
118 rmass(:,i,j) = rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp
144 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
150 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
205 & rmass(npro,nshl,nshl), gradT(npro,nsd),
212 rmass = zero
257 rmass(:,i,j)=rmass(:,i,j)+shape(:,i)*shape(:,j)*tmp
273 rmass = rmass/6.0
291 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
297 call lubksb(rmass(iel,:,:),nshl,nshl,indx,