Lines Matching refs:shdrv
30 subroutine getshp(shp, shgl, sgn, shape, shdrv) argument
39 & shdrv(npro,nsd,nshl)
45 shdrv(:,j,i) = shgl(j,i,intp)
52 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
60 subroutine getshpb(shp, shgl, sgn, shape, shdrv) argument
69 & shdrv(npro,nsd,nshl)
75 shdrv(:,j,i) = shgl(j,i,intp)
82 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
327 & shdrv(npro,nsd,nshl), shp(nshl,npts), local
338 & shape, shdrv)
351 call e3metric( xl, shdrv, dxidx,