phSolver/compressible/elmgmr.f

77           nshl   = lcblk(10,iblk)
87           allocate (tmpshp(nshl,MAXQPT))
88           allocate (tmpshgl(nsd,nshl,MAXQPT))
90           tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
91           tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
137           nshl   = lcblk(10,iblk)
148           allocate (tmpshp(nshl,MAXQPT))
149           allocate (tmpshgl(nsd,nshl,MAXQPT))
151           tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
152           tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
191           nshl   = lcblkb(9,iblk)
202           allocate (tmpshpb(nshl,MAXQPT))
203           allocate (tmpshglb(nsd,nshl,MAXQPT))
205           tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
206           tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
359           nshl   = lcblk(10,iblk)
369           allocate (tmpshp(nshl,MAXQPT))
370           allocate (tmpshgl(nsd,nshl,MAXQPT))
372           tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
373           tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
418           nshl   = lcblk(10,iblk)
436           allocate (tmpshp(nshl,MAXQPT))
437           allocate (tmpshgl(nsd,nshl,MAXQPT))
438           tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
439           tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
495           nshl   = lcblkb(9,iblk)
506           allocate (tmpshpb(nshl,MAXQPT))
507           allocate (tmpshglb(nsd,nshl,MAXQPT))
509              allocate (EGmass(npro,nshl,nshl))
515           tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
516           tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
758           nshl   = lcblk(10,iblk)
768           allocate (tmpshp(nshl,MAXQPT))
769           allocate (tmpshgl(nsd,nshl,MAXQPT))
771           tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
772           tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
820           nshl   = lcblkb(9,iblk)
830           allocate (tmpshpb(nshl,MAXQPT))
831           allocate (tmpshglb(nsd,nshl,MAXQPT))
833           tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
834           tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)