Lines Matching refs:tmpshglb
43 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
203 allocate (tmpshglb(nsd,nshl,MAXQPT))
206 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
209 & tmpshpb, tmpshglb,
215 deallocate (tmpshglb)
326 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
507 allocate (tmpshglb(nsd,nshl,MAXQPT))
516 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
519 & tmpshpb, tmpshglb,
531 deallocate (tmpshglb)
658 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
831 allocate (tmpshglb(nsd,nshl,MAXQPT))
834 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
838 & tmpshglb,
844 deallocate ( tmpshglb )