Lines Matching refs:nshl
31 nshl = lcblk(10,iblk)
40 allocate (tmpshp(nshl,MAXQPT))
41 allocate (tmpshgl(nsd,nshl,MAXQPT))
42 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
43 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
75 & shp(nshl,maxsh), shgl(nsd,nshl,ngauss),
78 integer ien(npro,nshl)
82 & sgn(npro,nshl), shape(npro,nshl),
83 & locmass(npro,nshl), shg(npro,nshl,nsd),
85 & dxidx(npro,nsd,nsd), shdrv(npro,nsd,nshl)
127 do aa = 1,nshl
150 do aa = 1, nshl
158 do aa = 1, nshl