Lines Matching refs:xx
1 subroutine e3source(xx, src)
13 real*8 xx(npro,nsd), src(npro,nsd)
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
49 c$$$ x = xx(iel,1)
50 c$$$ y = xx(iel,2)
51 c$$$ z = xx(iel,3)
170 x = xx(iel,1)
171 y = xx(iel,2)
172 z = xx(iel,3)