Lines Matching refs:sgn
9 subroutine getsgn(ien, sgn) argument
17 dimension ien(npro,nshl), sgn(npro,nshl)
21 sgn(:,i) = -one
23 sgn(:,i) = one
30 subroutine getshp(shp, shgl, sgn, shape, shdrv) argument
38 & sgn(npro,nshl), shape(npro,nshl),
50 shape(:,i) = sgn(:,i) * shp(i,intp)
52 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
60 subroutine getshpb(shp, shgl, sgn, shape, shdrv) argument
68 & sgn(npro,nshl), shape(npro,nshl),
80 shape(:,i) = sgn(:,i) * shp(i,intp)
82 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
250 real*8, allocatable :: sgn(:,:) local
275 allocate ( sgn(npro,nshl) )
277 call getsgn(mien(iblk)%p,sgn)
283 & shp, shgl, sgn,
295 deallocate ( sgn )
318 & shp, shgl, sgn, argument
326 & sgn(npro,nshl), shape(npro,nshl), local
337 call getshp(shp, shgl, sgn,