Lines Matching refs:j
33 do j = 1, nflow*nshl, nflow
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)
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)
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)
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)
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)
118 do j = 1, nshl
120 & + EGmass(:,i ,j ) * uBrgl(:,j )