Lines Matching refs:i
32 do i = 1, nflow*nshl, nflow
34 ubBgl(:,i ) = ubBgl(:,i )
35 & + EGmass(:,i ,j ) * uBrgl(:,j )
36 & + EGmass(:,i ,j+1) * uBrgl(:,j+1)
37 & + EGmass(:,i ,j+2) * uBrgl(:,j+2)
38 & + EGmass(:,i ,j+3) * uBrgl(:,j+3)
39 & + EGmass(:,i ,j+4) * uBrgl(:,j+4)
41 ubBgl(:,i+1) = ubBgl(:,i+1)
42 & + EGmass(:,i+1,j ) * uBrgl(:,j )
43 & + EGmass(:,i+1,j+1) * uBrgl(:,j+1)
44 & + EGmass(:,i+1,j+2) * uBrgl(:,j+2)
45 & + EGmass(:,i+1,j+3) * uBrgl(:,j+3)
46 & + EGmass(:,i+1,j+4) * uBrgl(:,j+4)
48 ubBgl(:,i+2) = ubBgl(:,i+2)
49 & + EGmass(:,i+2,j ) * uBrgl(:,j )
50 & + EGmass(:,i+2,j+1) * uBrgl(:,j+1)
51 & + EGmass(:,i+2,j+2) * uBrgl(:,j+2)
52 & + EGmass(:,i+2,j+3) * uBrgl(:,j+3)
53 & + EGmass(:,i+2,j+4) * uBrgl(:,j+4)
55 ubBgl(:,i+3) = ubBgl(:,i+3)
56 & + EGmass(:,i+3,j ) * uBrgl(:,j )
57 & + EGmass(:,i+3,j+1) * uBrgl(:,j+1)
58 & + EGmass(:,i+3,j+2) * uBrgl(:,j+2)
59 & + EGmass(:,i+3,j+3) * uBrgl(:,j+3)
60 & + EGmass(:,i+3,j+4) * uBrgl(:,j+4)
62 ubBgl(:,i+4) = ubBgl(:,i+4)
63 & + EGmass(:,i+4,j ) * uBrgl(:,j )
64 & + EGmass(:,i+4,j+1) * uBrgl(:,j+1)
65 & + EGmass(:,i+4,j+2) * uBrgl(:,j+2)
66 & + EGmass(:,i+4,j+3) * uBrgl(:,j+3)
67 & + EGmass(:,i+4,j+4) * uBrgl(:,j+4)
117 do i = 1, nshl
119 ubBgl(:,i ) = ubBgl(:,i )
120 & + EGmass(:,i ,j ) * uBrgl(:,j )