Lines Matching refs:shg
1 subroutine e3bdg (shp, shg, WdetJ, argument
14 & shg(npro,nshl,nsd), WdetJ(npro),
41 & shg(:,j,1) * A1(:,1,1) +
42 & shg(:,j,2) * A2(:,1,1) +
43 & shg(:,j,3) * A3(:,1,1)
47 & shg(:,j,1) * A1(:,1,2)
54 & +shg(:,j,2) * A2(:,1,3)
61 & shg(:,j,3) * A3(:,1,4)
65 & shg(:,j,1) * A1(:,1,5) +
66 & shg(:,j,2) * A2(:,1,5) +
67 & shg(:,j,3) * A3(:,1,5)
71 & shg(:,j,1) * A1(:,2,1) +
72 & shg(:,j,2) * A2(:,2,1) +
73 & shg(:,j,3) * A3(:,2,1)
77 & shg(:,j,1) * A1(:,2,2) +
78 & shg(:,j,2) * A2(:,2,2) +
79 & shg(:,j,3) * A3(:,2,2)
84 & +shg(:,j,2) * A2(:,2,3)
91 & shg(:,j,3) * A3(:,2,4)
95 & shg(:,j,1) * A1(:,2,5) +
96 & shg(:,j,2) * A2(:,2,5) +
97 & shg(:,j,3) * A3(:,2,5)
101 & shg(:,j,1) * A1(:,3,1) +
102 & shg(:,j,2) * A2(:,3,1) +
103 & shg(:,j,3) * A3(:,3,1)
107 & shg(:,j,1) * A1(:,3,2)
113 & shg(:,j,1) * A1(:,3,3) +
114 & shg(:,j,2) * A2(:,3,3) +
115 & shg(:,j,3) * A3(:,3,3)
121 & shg(:,j,3) * A3(:,3,4)
125 & shg(:,j,1) * A1(:,3,5) +
126 & shg(:,j,2) * A2(:,3,5) +
127 & shg(:,j,3) * A3(:,3,5)
131 & shg(:,j,1) * A1(:,4,1) +
132 & shg(:,j,2) * A2(:,4,1) +
133 & shg(:,j,3) * A3(:,4,1)
137 & shg(:,j,1) * A1(:,4,2)
144 & +shg(:,j,2) * A2(:,4,3)
149 & shg(:,j,1) * A1(:,4,4) +
150 & shg(:,j,2) * A2(:,4,4) +
151 & shg(:,j,3) * A3(:,4,4)
155 & shg(:,j,1) * A1(:,4,5) +
156 & shg(:,j,2) * A2(:,4,5) +
157 & shg(:,j,3) * A3(:,4,5)
161 & shg(:,j,1) * A1(:,5,1) +
162 & shg(:,j,2) * A2(:,5,1) +
163 & shg(:,j,3) * A3(:,5,1)
167 & shg(:,j,1) * A1(:,5,2) +
168 & shg(:,j,2) * A2(:,5,2) +
169 & shg(:,j,3) * A3(:,5,2)
173 & shg(:,j,1) * A1(:,5,3) +
174 & shg(:,j,2) * A2(:,5,3) +
175 & shg(:,j,3) * A3(:,5,3)
179 & shg(:,j,1) * A1(:,5,4) +
180 & shg(:,j,2) * A2(:,5,4) +
181 & shg(:,j,3) * A3(:,5,4)
185 & shg(:,j,1) * A1(:,5,5) +
186 & shg(:,j,2) * A2(:,5,5) +
187 & shg(:,j,3) * A3(:,5,5)
336 & shg(:,i,1) * A1tauA0(:,idof,jdof) +
337 & shg(:,i,2) * A2tauA0(:,idof,jdof) +
338 & shg(:,i,3) * A3tauA0(:,idof,jdof))
612 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
873 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
1134 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
1617 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
2100 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2583 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)
2597 subroutine e3bdgSclr ( shp, shg, WdetJ, argument
2611 & shg(npro,nshl,nsd), WdetJ(npro),
2637 & shg(:,j,1) * A1t(:) +
2638 & shg(:,j,2) * A2t(:) +
2639 & shg(:,j,3) * A3t(:)
2721 & shg(:,i,1) * A1tautA0(:) +
2722 & shg(:,i,2) * A2tautA0(:) +
2723 & shg(:,i,3) * A3tautA0(:))
2760 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
2782 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
2805 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
2824 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
2839 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2855 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)