Lines Matching refs:r
17 real*8 r, Stheta, dpdz, rP5
26 r = sqrt( xx(iel,1)**2 + xx(iel,2)**2)
27 rP5 = (r/bigR)**5
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
253 real*8 chi, chiP3, fv1, fv2, st, r,
365 r = zero
368 r = tmp / st
369 r = min( max(r, -8.0d0), 8.0d0)
372 rP5 = r * (r * r) ** 2
374 g = r * tmp
382 if(abs(r).gt.7.0d0) fwp=zero