Lines Matching refs:shglb
1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
56 & shglb(npro,nsd,nshl),
134 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
135 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
136 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
137 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
138 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
139 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
140 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
141 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
142 dxdxib(:,3,3) = dxdxib(:,3,3) + xlb(:,n,3) * shglb(:,3,n)
235 gl1yi(:,1) = gl1yi(:,1) + shglb(:,1,n) * yl(:,n,1)
236 gl1yi(:,2) = gl1yi(:,2) + shglb(:,1,n) * yl(:,n,2)
237 gl1yi(:,3) = gl1yi(:,3) + shglb(:,1,n) * yl(:,n,3)
238 gl1yi(:,4) = gl1yi(:,4) + shglb(:,1,n) * yl(:,n,4)
239 gl1yi(:,5) = gl1yi(:,5) + shglb(:,1,n) * yl(:,n,5)
241 gl2yi(:,1) = gl2yi(:,1) + shglb(:,2,n) * yl(:,n,1)
242 gl2yi(:,2) = gl2yi(:,2) + shglb(:,2,n) * yl(:,n,2)
243 gl2yi(:,3) = gl2yi(:,3) + shglb(:,2,n) * yl(:,n,3)
244 gl2yi(:,4) = gl2yi(:,4) + shglb(:,2,n) * yl(:,n,4)
245 gl2yi(:,5) = gl2yi(:,5) + shglb(:,2,n) * yl(:,n,5)
247 gl3yi(:,1) = gl3yi(:,1) + shglb(:,3,n) * yl(:,n,1)
248 gl3yi(:,2) = gl3yi(:,2) + shglb(:,3,n) * yl(:,n,2)
249 gl3yi(:,3) = gl3yi(:,3) + shglb(:,3,n) * yl(:,n,3)
250 gl3yi(:,4) = gl3yi(:,4) + shglb(:,3,n) * yl(:,n,4)
251 gl3yi(:,5) = gl3yi(:,5) + shglb(:,3,n) * yl(:,n,5)
307 dNadxi(:,aa,1) = shglb(:,1,aa) * 1 !would normally be a sum over
308 dNadxi(:,aa,2) = shglb(:,2,aa) * 1 !all nodes, but N = 0 for a /= 1
309 dNadxi(:,aa,3) = shglb(:,3,aa) * 1
376 subroutine e3bvarSclr(ycl, BCB, shpb, shglb, argument
415 & shpb(npro,nshl), shglb(npro,nsd,nshl),
489 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
490 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
491 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
492 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
493 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
494 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
495 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
496 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
497 dxdxib(:,3,3) = dxdxib(:,3,3) + xlb(:,n,3) * shglb(:,3,n)
587 gl1yti(:) = gl1yti(:) + shglb(:,1,n) * ycl(:,n,id)
588 gl2yti(:) = gl2yti(:) + shglb(:,2,n) * ycl(:,n,id)
589 gl3yti(:) = gl3yti(:) + shglb(:,3,n) * ycl(:,n,id)