Lines Matching refs:shg
3 & g2yi, g3yi, shg, argument
40 & g3yi(npro,nflow), shg(npro,nshl,nsd),
107 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
110 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
113 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +
122 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2)
123 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3)
124 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4)
126 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2)
127 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3)
128 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4)
130 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2)
131 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3)
132 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4)
162 real*8 shg(npro,nshl,nsd) local
166 & shg, WdetJ)
175 gradT(:,1) = gradT(:,1) + shg(:,n,1) * yl(:,n,id)
176 gradT(:,2) = gradT(:,2) + shg(:,n,2) * yl(:,n,id)
177 gradT(:,3) = gradT(:,3) + shg(:,n,3) * yl(:,n,id)