Lines Matching refs:nshl
91 nshl = lcblk(10,iblk)
101 allocate (tmpshp(nshl,MAXQPT))
102 allocate (tmpshgl(nsd,nshl,MAXQPT))
104 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
105 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
152 nshl = lcblk(10,iblk)
170 allocate (tmpshp(nshl,MAXQPT))
171 allocate (tmpshgl(nsd,nshl,MAXQPT))
172 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
173 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
227 nshl = lcblkb(9,iblk)
238 allocate (tmpshpb(nshl,MAXQPT))
239 allocate (tmpshglb(nsd,nshl,MAXQPT))
241 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
242 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
379 nshl = lcblk(10,iblk)
389 allocate (tmpshp(nshl,MAXQPT))
390 allocate (tmpshgl(nsd,nshl,MAXQPT))
392 allocate (EGMasst(npro,nshl,nshl))
396 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
397 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
452 nshl = lcblkb(9,iblk)
462 allocate (tmpshpb(nshl,MAXQPT))
463 allocate (tmpshglb(nsd,nshl,MAXQPT))
465 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
466 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)