Lines Matching refs:src
1 subroutine e3source(xx, src)
13 real*8 xx(npro,nsd), src(npro,nsd)
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
33 src(iel,3) = dpdz
163 c$$$ src(iel,1) = fx + fxa
164 c$$$ src(iel,2) = fy + fya
165 c$$$ src(iel,3) = fza
194 src(iel,1) = 0.0
195 src(iel,2) = t54
196 src(iel,3) = 0.0