Lines Matching refs:shdrv
794 subroutine e3bvarSclr (yl, shdrv, xlb, argument
800 dimension yl(npro,nshl,ndof), shdrv(npro,nsd,nshl),
823 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shdrv(:,1,n)
824 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shdrv(:,2,n)
825 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shdrv(:,3,n)
826 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shdrv(:,1,n)
827 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shdrv(:,2,n)
828 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shdrv(:,3,n)
829 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shdrv(:,1,n)
830 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shdrv(:,2,n)
831 dxdxib(:,3,3) = dxdxib(:,3,3) + xlb(:,n,3) * shdrv(:,3,n)
917 gradSl(:,1) = gradSl(:,1) + shdrv(:,1,n) * yl(:,n,isc)
918 gradSl(:,2) = gradSl(:,2) + shdrv(:,2,n) * yl(:,n,isc)
919 gradSl(:,3) = gradSl(:,3) + shdrv(:,3,n) * yl(:,n,isc)