Lines Matching refs:tmpshp
52 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
101 allocate (tmpshp(nshl,MAXQPT))
104 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
108 & tmpshp,
114 deallocate ( tmpshp )
170 allocate (tmpshp(nshl,MAXQPT))
172 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
177 & tmpshp,
200 deallocate ( tmpshp )
341 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
389 allocate (tmpshp(nshl,MAXQPT))
396 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
404 & tmpshp, tmpshgl,
425 deallocate ( tmpshp )