Lines Matching refs:nshl
40 nshl = lcblk(10,iblk)
50 allocate (tmpshp(nshl,MAXQPT))
51 allocate (tmpshgl(nsd,nshl,MAXQPT))
53 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
54 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
135 & shp(nshl,maxsh),
136 & shgl(nsd,nshl,maxsh),
137 & ien(npro,nshl),
142 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
143 & rerrsml(npro,nshl,10), rmassl(npro,nshl)
145 dimension sgn(npro,nshl), shape(npro,nshl),
146 & shdrv(npro,nsd,nshl), WdetJ(npro),
147 & dxidx(npro,nsd,nsd), shg(npro,nshl,nsd)
187 do n = 1, nshl
192 do i=1,nshl