Lines Matching refs:iel
24 do iel = 1, npro
26 r = sqrt( xx(iel,1)**2 + xx(iel,2)**2)
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
33 src(iel,3) = dpdz
169 do iel = 1, npro
170 x = xx(iel,1)
171 y = xx(iel,2)
172 z = xx(iel,3)
194 src(iel,1) = 0.0
195 src(iel,2) = t54
196 src(iel,3) = 0.0