Lines Matching refs:i
74 do i = 1, nshl
75 rl(:,i,1) = rl(:,i,1) + WdetJ * (
76 & shg(:,i,1) * ri(:, 1) + shg(:,i,2) * ri(:, 6)
77 & + shg(:,i,3) * ri(:,11) )
78 rl(:,i,2) = rl(:,i,2) + WdetJ * (
79 & shg(:,i,1) * ri(:, 2) + shg(:,i,2) * ri(:, 7)
80 & + shg(:,i,3) * ri(:,12) )
81 rl(:,i,3) = rl(:,i,3) + WdetJ * (
82 & shg(:,i,1) * ri(:, 3) + shg(:,i,2) * ri(:, 8)
83 & + shg(:,i,3) * ri(:,13) )
84 rl(:,i,4) = rl(:,i,4) + WdetJ * (
85 & shg(:,i,1) * ri(:, 4) + shg(:,i,2) * ri(:, 9)
86 & + shg(:,i,3) * ri(:,14) )
87 rl(:,i,5) = rl(:,i,5) + WdetJ * (
88 & shg(:,i,1) * ri(:, 5) + shg(:,i,2) * ri(:,10)
89 & + shg(:,i,3) * ri(:,15) )
98 do i = 1, nshl
99 rml(:,i,1) = rml(:,i,1) + WdetJ * (
100 & shg(:,i,1) * rmi(:, 1) + shg(:,i,2) * rmi(:, 6)
101 & + shg(:,i,3) * rmi(:,11)
102 & + shp(:,i) * rmi(:,16) )
103 rml(:,i,2) = rml(:,i,2) + WdetJ * (
104 & shg(:,i,1) * rmi(:, 2) + shg(:,i,2) * rmi(:, 7)
105 & + shg(:,i,3) * rmi(:,12)
106 & + shp(:,i) * rmi(:,17) )
107 rml(:,i,3) = rml(:,i,3) + WdetJ * (
108 & shg(:,i,1) * rmi(:, 3) + shg(:,i,2) * rmi(:, 8)
109 & + shg(:,i,3) * rmi(:,13)
110 & + shp(:,i) * rmi(:,18) )
111 rml(:,i,4) = rml(:,i,4) + WdetJ * (
112 & shg(:,i,1) * rmi(:, 4) + shg(:,i,2) * rmi(:, 9)
113 & + shg(:,i,3) * rmi(:,14)
114 & + shp(:,i) * rmi(:,19) )
115 rml(:,i,5) = rml(:,i,5) + WdetJ * (
116 & shg(:,i,1) * rmi(:, 5) + shg(:,i,2) * rmi(:,10)
117 & + shg(:,i,3) * rmi(:,15)
118 & + shp(:,i) * rmi(:,20) )
128 do i = 1, nshl
129 rl(:,i,2) = rl(:,i,2) + shp(:,i) * WdetJ * ri(:,17)
130 rl(:,i,3) = rl(:,i,3) + shp(:,i) * WdetJ * ri(:,18)
131 rl(:,i,4) = rl(:,i,4) + shp(:,i) * WdetJ * ri(:,19)
132 rl(:,i,5) = rl(:,i,5) + shp(:,i) * WdetJ * ri(:,20)
136 do i = 1, nshl
137 rl(:,i,1) = rl(:,i,1) + shp(:,i) * WdetJ * ri(:,16)
138 rl(:,i,2) = rl(:,i,2) + shp(:,i) * WdetJ * ri(:,17)
139 rl(:,i,3) = rl(:,i,3) + shp(:,i) * WdetJ * ri(:,18)
140 rl(:,i,4) = rl(:,i,4) + shp(:,i) * WdetJ * ri(:,19)
141 rl(:,i,5) = rl(:,i,5) + shp(:,i) * WdetJ * ri(:,20)
189 do i = 1, nshl
190 i0 = nflow * (i - 1)
196 & + shg(:,i,1) * stif1(:,1,jdof)
197 & + shg(:,i,2) * stif2(:,1,jdof)
198 & + shg(:,i,3) * stif3(:,1,jdof)
200 & + shg(:,i,1) * stif1(:,2,jdof)
201 & + shg(:,i,2) * stif2(:,2,jdof)
202 & + shg(:,i,3) * stif3(:,2,jdof)
204 & + shg(:,i,1) * stif1(:,3,jdof)
205 & + shg(:,i,2) * stif2(:,3,jdof)
206 & + shg(:,i,3) * stif3(:,3,jdof)
208 & + shg(:,i,1) * stif1(:,4,jdof)
209 & + shg(:,i,2) * stif2(:,4,jdof)
210 & + shg(:,i,3) * stif3(:,4,jdof)
212 & + shg(:,i,1) * stif1(:,5,jdof)
213 & + shg(:,i,2) * stif2(:,5,jdof)
214 & + shg(:,i,3) * stif3(:,5,jdof)
308 do i = 1, nshl
309 rtl(:,i) = rtl(:,i) + WdetJ * (
310 & shg(:,i,1) * rti(:,1) + shg(:,i,2) * rti(:,2)
311 & + shg(:,i,3) * rti(:,3) )
345 do i = 1, nshl
346 rtl(:,i) = rtl(:,i) + shp(:,i) * WdetJ * rti(:,4)
380 do i = 1, nshl
384 EGmasst(:,i,j) = EGmasst(:,i,j)
385 & + shg(:,i,1) * stift1(:)
386 & + shg(:,i,2) * stift2(:)
387 & + shg(:,i,3) * stift3(:)