Lines Matching refs:shg
12 & shgl(nsd,nshl,maxsh), shg(npro,nshl,nsd),
97 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
100 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
103 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
112 fresli(:,j) = fresli(:,j)+shg(:,i,ig)*ycl(:,i,iv)
120 fresli(:,13) = fresli(:,13)+shg(:,i,2)*ycl(:,i,2)
121 & +shg(:,i,1)*ycl(:,i,3)
122 fresli(:,14) = fresli(:,14)+shg(:,i,3)*ycl(:,i,2)
123 & +shg(:,i,1)*ycl(:,i,4)
124 fresli(:,15) = fresli(:,15)+shg(:,i,3)*ycl(:,i,3)
125 & +shg(:,i,2)*ycl(:,i,4)