Lines Matching refs:shgl
1 subroutine asithf (y, x, strnrm, ien, fres, shgl, shp, Qwtf) argument
12 & shgl(nsd,nshl,maxsh), shg(npro,nshl,nsd),
43 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
44 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
45 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
46 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
47 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
48 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
49 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
50 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
51 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
97 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
98 & + shgl(2,n,intp) * dxidx(:,2,1)
99 & + shgl(3,n,intp) * dxidx(:,3,1))
100 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
101 & + shgl(2,n,intp) * dxidx(:,2,2)
102 & + shgl(3,n,intp) * dxidx(:,3,2))
103 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
104 & + shgl(2,n,intp) * dxidx(:,2,3)
105 & + shgl(3,n,intp) * dxidx(:,3,3))