Lines Matching refs:i
96 integer i local
101 do i = 1, nshg
102 res = stsVec(i,:)
109 stsReg(i) = 0
111 stsReg(i) = (res(1) + res(2) + res(3)) / 1000.
118 do i = 1, nshg
119 res = stsVec(i,:)
120 reg = stsReg(i)
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
144 do i = 1, nshg
145 res = stsVec(i,:)
146 reg = stsReg(i)
156 stsDInv(i,1) = d0
157 stsDInv(i,2) = d1
158 stsDInv(i,3) = d2
159 stsB(i,1) = r3
160 stsB(i,2) = r4
161 stsB(i,3) = r5
172 stsCInv(i,1) = det * (c1 * c2 - c4 * c4)
173 stsCInv(i,2) = det * (c0 * c2 - c5 * c5)
174 stsCInv(i,3) = det * (c0 * c1 - c3 * c3)
175 stsCInv(i,4) = det * (c4 * c5 - c2 * c3)
176 stsCInv(i,5) = det * (c3 * c5 - c0 * c4)
177 stsCInv(i,6) = det * (c3 * c4 - c1 * c5)
219 integer i local
241 do i = 1, nshg
242 res = stsVec(i,:)
243 reg = stsReg(i)
245 MInv = stsMInv(i,:)
246 DInv = stsDInv(i,:)
247 B = stsB(i,:)
248 CInv = stsCInv(i,:)
250 u1 = yAlpha(i,1)
251 u2 = yAlpha(i,2)
252 u3 = yAlpha(i,3)
254 stsPres(i) = stsPres(i) + y(i,4)
255 stsPresSqr(i) = stsPresSqr(i) + y(i,4)*y(i,4)
261 stsVel(i,1) = stsVel(i,1)
263 stsVel(i,2) = stsVel(i,2)
265 stsVel(i,3) = stsVel(i,3)
268 stsVelReg(i,1) = stsVelReg(i,1) + u1
269 stsVelReg(i,2) = stsVelReg(i,2) + u2
270 stsVelReg(i,3) = stsVelReg(i,3) + u3
288 stsVelSqr(i,1) = stsVelSqr(i,1)
290 stsVelSqr(i,2) = stsVelSqr(i,2)
292 stsVelSqr(i,3) = stsVelSqr(i,3)
295 stsVelSqr(i,4) = stsVelSqr(i,4) + t3
296 stsVelSqr(i,5) = stsVelSqr(i,5) + t4
297 stsVelSqr(i,6) = stsVelSqr(i,6) + t5
318 stsStress(i,1) = stsStress(i,1)
320 stsStress(i,2) = stsStress(i,2)
322 stsStress(i,3) = stsStress(i,3)
324 stsStress(i,4) = stsStress(i,4) + t3
325 stsStress(i,5) = stsStress(i,5) + t4
326 stsStress(i,6) = stsStress(i,6) + t5
333 do i = 1, nshg
335 u1 = stsVec(i,1)
336 u2 = stsVec(i,2)
337 u3 = stsVec(i,3)
339 stsPres(i) = stsPres(i) + stsVec(i,4)
340 stsPresSqr(i) = stsPresSqr(i) + stsVec(i,4)*stsVec(i,4)
342 stsVel(i,1) = stsVel(i,1) + u1
343 stsVel(i,2) = stsVel(i,2) + u2
344 stsVel(i,3) = stsVel(i,3) + u3
346 stsVelSqr(i,1) = stsVelSqr(i,1) + u1*u1
347 stsVelSqr(i,2) = stsVelSqr(i,2) + u2*u2
348 stsVelSqr(i,3) = stsVelSqr(i,3) + u3*u3
349 stsVelSqr(i,4) = stsVelSqr(i,4) + u1*u2
350 stsVelSqr(i,5) = stsVelSqr(i,5) + u2*u3
351 stsVelSqr(i,6) = stsVelSqr(i,6) + u3*u1
353 stsStress(i,1) = stsStress(i,1) + stsVec(i,6)
354 stsStress(i,2) = stsStress(i,2) + stsVec(i,7)
355 stsStress(i,3) = stsStress(i,3) + stsVec(i,8)
356 stsStress(i,4) = stsStress(i,4) + stsVec(i,9)
357 stsStress(i,5) = stsStress(i,5) + stsVec(i,10)
358 stsStress(i,6) = stsStress(i,6) + stsVec(i,11)