Lines Matching refs:shg

19      &          shgl(nsd,nshl,ngauss),  shg(npro,nshl,nsd),
91         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
94         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
97         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
120             S11 = S11 + shg(:,i,1)*yl(:,i,2)
121             S22 = S22 + shg(:,i,2)*yl(:,i,3)
122             S33 = S33 + shg(:,i,3)*yl(:,i,4)
124             S12 = S12 + shg(:,i,2)*yl(:,i,2)
125      &                       +shg(:,i,1)*yl(:,i,3)
126             S13 = S13 + shg(:,i,3)*yl(:,i,2)
127      &                       +shg(:,i,1)*yl(:,i,4)
128             S23 = S23 + shg(:,i,3)*yl(:,i,3)
129      &                       +shg(:,i,2)*yl(:,i,4) 
189      &          shgl(nsd,nshl,ngauss),       shg(npro,nshl,nsd),
279         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
282         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
285         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
328          S11p = S11p + shg(:,i,1)*hfresl(:,i,1)
329          S22p = S22p + shg(:,i,2)*hfresl(:,i,2)
330          S33p = S33p + shg(:,i,3)*hfresl(:,i,3)
332          S12p = S12p + shg(:,i,2)*hfresl(:,i,1) +
333      &        shg(:,i,1)*hfresl(:,i,2)
334          S13p = S13p + shg(:,i,3)*hfresl(:,i,1) +
335      &        shg(:,i,1)*hfresl(:,i,3)
336          S23p = S23p + shg(:,i,3)*hfresl(:,i,2) +
337      &        shg(:,i,2)*hfresl(:,i,3)
418      &          shgl(nsd,nshl,ngauss),  shg(npro,nshl,nsd),
491         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
494         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
497         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
520             S11 = S11 + shg(:,i,1)*yl(:,i,2)
521             S22 = S22 + shg(:,i,2)*yl(:,i,3)
522             S33 = S33 + shg(:,i,3)*yl(:,i,4)
524             S12 = S12 + shg(:,i,2)*yl(:,i,2)
525      &                       +shg(:,i,1)*yl(:,i,3)
526             S13 = S13 + shg(:,i,3)*yl(:,i,2)
527      &                       +shg(:,i,1)*yl(:,i,4)
528             S23 = S23 + shg(:,i,3)*yl(:,i,3)
529      &                       +shg(:,i,2)*yl(:,i,4) 
605      &          shgl(nsd,nshl,ngauss),       shg(npro,nshl,nsd),
692         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
695         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
698         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
796      &          shgl(nsd,nshl,ngauss),       shg(npro,nshl,nsd),
870         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
873         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
876         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
899             S11 = S11 + shg(:,i,1)*yl(:,i,2)
900             S22 = S22 + shg(:,i,2)*yl(:,i,3)
901             S33 = S33 + shg(:,i,3)*yl(:,i,4)
903             S12 = S12 + shg(:,i,2)*yl(:,i,2)
904      &                       +shg(:,i,1)*yl(:,i,3)
905             S13 = S13 + shg(:,i,3)*yl(:,i,2)
906      &                       +shg(:,i,1)*yl(:,i,4)
907             S23 = S23 + shg(:,i,3)*yl(:,i,3)
908      &                       +shg(:,i,2)*yl(:,i,4) 
1250      &          shgl(nsd,nshl,ngauss),       shg(npro,nshl,nsd),
1324         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
1327         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
1330         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
1353             S11 = S11 + shg(:,i,1)*yl(:,i,2)
1354             S22 = S22 + shg(:,i,2)*yl(:,i,3)
1355             S33 = S33 + shg(:,i,3)*yl(:,i,4)
1357             S12 = S12 + shg(:,i,2)*yl(:,i,2)
1358      &                       +shg(:,i,1)*yl(:,i,3)
1359             S13 = S13 + shg(:,i,3)*yl(:,i,2)
1360      &                       +shg(:,i,1)*yl(:,i,4)
1361             S23 = S23 + shg(:,i,3)*yl(:,i,3)
1362      &                       +shg(:,i,2)*yl(:,i,4)