Lines Matching refs:tmpshpb
43 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
202 allocate (tmpshpb(nshl,MAXQPT))
205 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
209 & tmpshpb, tmpshglb,
214 deallocate (tmpshpb)
326 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
506 allocate (tmpshpb(nshl,MAXQPT))
515 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
519 & tmpshpb, tmpshglb,
530 deallocate (tmpshpb)
658 real*8, allocatable :: tmpshpb(:,:), tmpshglb(:,:,:) local
830 allocate (tmpshpb(nshl,MAXQPT))
833 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
837 & tmpshpb,
843 deallocate ( tmpshpb )