Lines Matching refs:n

52           do n = 1, nenl
53             dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
54             dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
55             dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
56             dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
57             dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
58             dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
59             dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
60             dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
61             dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
101         do n = 1, nshl
107           shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) + 
108      &                 shgl(:,2,n) * dxidx(:,2,1) +
109      &                 shgl(:,3,n) * dxidx(:,3,1)
110           shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) + 
111      &                 shgl(:,2,n) * dxidx(:,2,2) +
112      &                 shgl(:,3,n) * dxidx(:,3,2) 
113           shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) + 
114      &                 shgl(:,2,n) * dxidx(:,2,3) +
115      &                 shgl(:,3,n) * dxidx(:,3,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)
174       do n = 1, nshl
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)