Lines Matching refs:nshl
24 dimension ycl(npro,nshl,ndof),
25 & shp(nshl,ngauss),
26 & shgl(nsd,nshl,ngauss),
27 & xl(npro,nenl,nsd), sgn(npro,nshl),
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
33 & g3yi(npro,nflow), shg(npro,nshl,nsd),
39 & con(npro), rminv(npro,nshl,nshl),
40 & qrl(npro,nshl,(nflow-1)*nsd)
42 dimension qdi(npro,nsd*(nflow-1)), shape(npro,nshl),
43 & shdrv(npro,nsd,nshl), indx(nshl),
44 & rmass(npro,nshl,nshl), rho(npro)
149 do i=1,nshl
166 do i=1,nshl
167 do j=1,nshl
184 do i=1,nshl ! form the identy matrix
185 do j=1,nshl
193 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
198 do j=1,nshl
199 call lubksb(rmass(iel,:,:),nshl,nshl,