Lines Matching refs:i
111 do i=1,nshl
112 ql(:,i,1 ) = ql(:,i,1 )+ shape(:,i)*WdetJ*qdi(:,1 )
113 ql(:,i,2 ) = ql(:,i,2 )+ shape(:,i)*WdetJ*qdi(:,2 )
114 ql(:,i,3 ) = ql(:,i,3 )+ shape(:,i)*WdetJ*qdi(:,3 )
116 ql(:,i,4 ) = ql(:,i,4 )+ shape(:,i)*WdetJ*qdi(:,4 )
117 ql(:,i,5 ) = ql(:,i,5 )+ shape(:,i)*WdetJ*qdi(:,5 )
118 ql(:,i,6 ) = ql(:,i,6 )+ shape(:,i)*WdetJ*qdi(:,6 )
120 ql(:,i,7 ) = ql(:,i,7 )+ shape(:,i)*WdetJ*qdi(:,7 )
121 ql(:,i,8 ) = ql(:,i,8 )+ shape(:,i)*WdetJ*qdi(:,8 )
122 ql(:,i,9 ) = ql(:,i,9 )+ shape(:,i)*WdetJ*qdi(:,9 )
133 do i=1,nshl
134 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
142 do i=1,nshl
143 shpsum = shpsum + shape(:,i)*shape(:,i)
144 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
175 do i=1,nshl
176 ql(:,i,idflow+1) = ql(:,i,idflow+1)
177 & + shape(:,i)*WdetJ*g1yti
178 ql(:,i,idflow+2) = ql(:,i,idflow+2)
179 & + shape(:,i)*WdetJ*g2yti
180 ql(:,i,idflow+3) = ql(:,i,idflow+3)
181 & + shape(:,i)*WdetJ*g3yti
182 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
193 do i=1,nshl
194 rmassl(:,i) = rmassl(:,i)*alph1/alph2
278 do i=1,nshl
279 ql(:,i,1 ) = ql(:,i,1 )+ shape(:,i)*WdetJ*qdi(:,1 )
280 ql(:,i,2 ) = ql(:,i,2 )+ shape(:,i)*WdetJ*qdi(:,2 )
281 ql(:,i,3 ) = ql(:,i,3 )+ shape(:,i)*WdetJ*qdi(:,3 )
292 do i=1,nshl
293 rmassl(:,i) = rmassl(:,i) + shape(:,i)*WdetJ
301 do i=1,nshl
302 shpsum = shpsum + shape(:,i)*shape(:,i)
303 rmassl(:,i)=rmassl(:,i)+shape(:,i)*shape(:,i)*WdetJ
316 do i=1,nshl
317 rmassl(:,i) = rmassl(:,i)*alph1/alph2