Lines Matching refs:n
130 do n=1,nshl
131 g1yi(:,2) = g1yi(:,2) + shg(:,n,1) * yl(:,n,2) ! du/dx
132 g2yi(:,2) = g2yi(:,2) + shg(:,n,2) * yl(:,n,2) ! du/dy
133 g3yi(:,2) = g3yi(:,2) + shg(:,n,3) * yl(:,n,2) ! du/dz
135 g1yi(:,3) = g1yi(:,3) + shg(:,n,1) * yl(:,n,3) ! dv/dx
136 g2yi(:,3) = g2yi(:,3) + shg(:,n,2) * yl(:,n,3) ! dv/dy
137 g3yi(:,3) = g3yi(:,3) + shg(:,n,3) * yl(:,n,3) ! dv/dz
139 g1yi(:,4) = g1yi(:,4) + shg(:,n,1) * yl(:,n,4) ! dw/dx
140 g2yi(:,4) = g2yi(:,4) + shg(:,n,2) * yl(:,n,4) ! dw/dy
141 g3yi(:,4) = g3yi(:,4) + shg(:,n,3) * yl(:,n,4) ! dw/dz
143 alph2(:) = alph2(:) + shp(:,n)*shp(:,n)*WdetJ(:)
149 do n=1,nshl
151 lpmass(:,n) = lpmass(:,n) + WdetJ(:)*shp(:,n)*shp(:,n)
153 vortIntL(:,n,1) = vortIntL(:,n,1) +
155 & *WdetJ(:)*shp(:,n)
157 vortIntL(:,n,2) = vortIntL(:,n,2) +
159 & *WdetJ(:)*shp(:,n)
161 vortIntL(:,n,3) = vortIntL(:,n,3) +
163 & *WdetJ(:)*shp(:,n)
166 vortIntL(:,n,4) = vortIntL(:,n,4) +
174 & *WdetJ(:)*shp(:,n)
180 do n=1,nshl
181 lpmass(:,n)=lpmass(:,n)*volum(:)/alph2(:)