Lines Matching refs:tmpshgl
42 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
88 allocate (tmpshgl(nsd,nshl,MAXQPT))
91 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
95 & tmpshgl,
101 deallocate ( tmpshgl )
149 allocate (tmpshgl(nsd,nshl,MAXQPT))
152 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
157 & tmpshgl, mien(iblk)%p,
169 deallocate ( tmpshgl )
325 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
370 allocate (tmpshgl(nsd,nshl,MAXQPT))
373 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
377 & tmpshgl,
383 deallocate ( tmpshgl )
437 allocate (tmpshgl(nsd,nshl,MAXQPT))
439 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
444 & tmpshgl, mien(iblk)%p,
465 deallocate ( tmpshgl )
657 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
769 allocate (tmpshgl(nsd,nshl,MAXQPT))
772 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
779 & tmpshp, tmpshgl,
794 deallocate ( tmpshgl )