Lines Matching refs:tmpshgl
52 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
102 allocate (tmpshgl(nsd,nshl,MAXQPT))
105 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
109 & tmpshgl,
115 deallocate ( tmpshgl )
171 allocate (tmpshgl(nsd,nshl,MAXQPT))
173 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
178 & tmpshgl, mien(iblk)%p,
201 deallocate ( tmpshgl )
341 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:) local
390 allocate (tmpshgl(nsd,nshl,MAXQPT))
397 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
404 & tmpshp, tmpshgl,
426 deallocate ( tmpshgl )