Lines Matching refs:nshl
76 nshl = lcblk(10,iblk)
86 allocate (tmpshp(nshl,MAXQPT))
87 allocate (tmpshgl(nsd,nshl,MAXQPT))
89 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
90 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
135 nshl = lcblk(10,iblk)
145 allocate (tmpshp(nshl,MAXQPT))
146 allocate (tmpshgl(nsd,nshl,MAXQPT))
148 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
149 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
184 nshl = lcblkb(9,iblk)
194 allocate (tmpshpb(nshl,MAXQPT))
195 allocate (tmpshglb(nsd,nshl,MAXQPT))
197 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
198 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)