Lines Matching refs:nshl
25 dimension yl(npro,nshl,ndof), dwl(npro,nshl),
26 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
27 & xl(npro,nenl,nsd), sgn(npro,nshl),
28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss)
33 & g3yi(npro,ndof), shg(npro,nshl,nsd),
36 & rminv(npro,nshl,nshl),
37 & qrl(npro,nshl,nsd*nsd)
39 dimension qdi(npro,nsd*nsd), shape(npro,nshl),
40 & shdrv(npro,nsd,nshl), indx(nshl),
41 & rmass(npro,nshl,nshl)
98 do i=1,nshl
116 do i=1,nshl
117 do j=1,nshl
132 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
135 do i=1,nshl ! form the identy matrix
136 do j=1,nshl
144 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
149 do j=1,nshl
150 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
191 dimension yl(npro,nshl,ndof), dwl(npro,nshl),
192 & shp(nshl,ngauss), shgl(nsd,nshl,ngauss),
193 & xl(npro,nenl,nsd), sgn(npro,nshl),
194 & ql(npro,nshl,nsd)
200 & rminv(npro,nshl,nshl),
201 & qrl(npro,nshl,nsd)
203 dimension qdi(npro,nsd), shape(npro,nshl),
204 & shdrv(npro,nsd,nshl), indx(nshl),
205 & rmass(npro,nshl,nshl), gradT(npro,nsd),
246 do i=1,nshl
255 do i=1,nshl
256 do j=1,nshl
279 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
282 do i=1,nshl ! form the identy matrix
283 do j=1,nshl
291 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
296 do j=1,nshl
297 call lubksb(rmass(iel,:,:),nshl,nshl,indx,