Lines Matching refs:iloc
150 do iloc = 1, ncelps
152 iel = lstcel(iloc)
161 tracel(iloc) = cvar_pr(iel) &
173 do iloc = 1, ncelps
175 iel = lstcel(iloc)
184 tracel(1 + (iloc-1)*idimt) = vel(1,iel) - vr(1)
185 tracel(2 + (iloc-1)*idimt) = vel(2,iel) - vr(2)
186 tracel(3 + (iloc-1)*idimt) = vel(3,iel) - vr(3)
205 do iloc = 1, ncelps
207 iel = lstcel(iloc)
210 tracel(iloc) = cvar_pr(iel) + &
222 do iloc = 1, ncelps
224 iel = lstcel(iloc)
227 tracel(1 + (iloc-1)*idimt) = vel(1,iel) + vr(1)
228 tracel(2 + (iloc-1)*idimt) = vel(2,iel) + vr(2)
229 tracel(3 + (iloc-1)*idimt) = vel(3,iel) + vr(3)
281 do iloc = 1, nfbrps
283 ifac = lstfbr(iloc)
286 trafbr(iloc) = coefap(ifac) + coefbp(ifac)*valsp(iel)
298 do iloc = 1, nfbrps
300 ifac = lstfbr(iloc)
303 trafbr(kk + (iloc-1)*idimt + 1) &
319 do iloc = 1, nfbrps
321 ifac = lstfbr(iloc)
324 trafbr(kk + (iloc-1)*idimt + 1) = cofavp(kk+1,ifac)
327 trafbr(kk + (iloc-1)*idimt + 1) &
328 = trafbr(kk + (iloc-1)*idimt + 1) &
518 do iloc = 1, ncelps
519 iel = lstcel(iloc)
520 tracel(1 + (iloc-1)*idimt) = -cvisii(iel)*grad(1,iel)
521 tracel(2 + (iloc-1)*idimt) = -cvisii(iel)*grad(2,iel)
522 tracel(3 + (iloc-1)*idimt) = -cvisii(iel)*grad(3,iel)
526 do iloc = 1, ncelps
527 iel = lstcel(iloc)
528 tracel(1 + (iloc-1)*idimt) = -visls_0*grad(1,iel)
529 tracel(2 + (iloc-1)*idimt) = -visls_0*grad(2,iel)
530 tracel(3 + (iloc-1)*idimt) = -visls_0*grad(3,iel)
552 do iloc = 1, ncelps
553 iel = lstcel(iloc)
554 tracel(iloc) = sqrt(cpotr(iel)*cpotr(iel) + cpoti(iel)*cpoti(iel))
564 do iloc = 1, ncelps
566 iel = lstcel(iloc)
570 tracel(iloc) = atan(cpoti(iel)/cpotr(iel))
573 tracel(iloc) = 4.d0*atan(1.d0) &
576 tracel(iloc) = -4.d0*atan(1.d0) &
581 tracel(iloc) = 2.d0*atan(1.d0)
584 if (tracel(iloc) .lt. 0.d0) then
585 tracel(iloc) = tracel(iloc) + 8.d0**atan(1.d0)