Lines Matching refs:i
153 do i=1,nshl
154 ql(:,i,1 ) = ql(:,i,1 )+ shape(:,i)*WdetJ*qdi(:,1 )
155 ql(:,i,2 ) = ql(:,i,2 )+ shape(:,i)*WdetJ*qdi(:,2 )
156 ql(:,i,3 ) = ql(:,i,3 )+ shape(:,i)*WdetJ*qdi(:,3 )
157 ql(:,i,4 ) = ql(:,i,4 )+ shape(:,i)*WdetJ*qdi(:,4 )
158 ql(:,i,5 ) = ql(:,i,5 )+ shape(:,i)*WdetJ*qdi(:,5 )
159 ql(:,i,6 ) = ql(:,i,6 )+ shape(:,i)*WdetJ*qdi(:,6 )
160 ql(:,i,7 ) = ql(:,i,7 )+ shape(:,i)*WdetJ*qdi(:,7 )
161 ql(:,i,8 ) = ql(:,i,8 )+ shape(:,i)*WdetJ*qdi(:,8 )
162 ql(:,i,9 ) = ql(:,i,9 )+ shape(:,i)*WdetJ*qdi(:,9 )
163 ql(:,i,10) = ql(:,i,10)+ shape(:,i)*WdetJ*qdi(:,10)
164 ql(:,i,11) = ql(:,i,11)+ shape(:,i)*WdetJ*qdi(:,11)
165 ql(:,i,12) = ql(:,i,12)+ shape(:,i)*WdetJ*qdi(:,12)
175 do i=1,nshl
176 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
184 do i=1,nshl
185 shpsum = shpsum + shape(:,i)*shape(:,i)
186 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
217 do i=1,nshl
218 ql(:,i,idflow+1) = ql(:,i,idflow+1)
219 & + shape(:,i)*WdetJ*g1yti
220 ql(:,i,idflow+2) = ql(:,i,idflow+2)
221 & + shape(:,i)*WdetJ*g2yti
222 ql(:,i,idflow+3) = ql(:,i,idflow+3)
223 & + shape(:,i)*WdetJ*g3yti
224 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
235 do i=1,nshl
236 rmassl(:,i) = rmassl(:,i)*alph1/alph2