Lines Matching refs:nshl
39 nshl = lcblk(10,iblk)
49 allocate (tmpshp(nshl,MAXQPT))
50 allocate (tmpshgl(nsd,nshl,MAXQPT))
52 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
53 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
134 & shp(nshl,maxsh),
135 & shgl(nsd,nshl,maxsh),
136 & ien(npro,nshl),
141 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
142 & rerrsml(npro,nshl,10), rmassl(npro,nshl)
144 dimension sgn(npro,nshl), shape(npro,nshl),
145 & shdrv(npro,nsd,nshl), WdetJ(npro),
146 & dxidx(npro,nsd,nsd), shg(npro,nshl,nsd)
186 do n = 1, nshl
191 do i=1,nshl