Lines Matching refs:tmpshp
42 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
87 allocate (tmpshp(nshl,MAXQPT))
90 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
94 & tmpshp,
100 deallocate ( tmpshp )
148 allocate (tmpshp(nshl,MAXQPT))
151 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
156 & tmpshp,
168 deallocate ( tmpshp )
325 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
369 allocate (tmpshp(nshl,MAXQPT))
372 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
376 & tmpshp,
382 deallocate ( tmpshp )
436 allocate (tmpshp(nshl,MAXQPT))
438 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
443 & tmpshp,
464 deallocate ( tmpshp )
657 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
768 allocate (tmpshp(nshl,MAXQPT))
771 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
779 & tmpshp, tmpshgl,
793 deallocate ( tmpshp )