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,
379 r = zero
382 r = tmp / st
383 r = min( max(r, -8.0d0), 8.0d0)
386 rP5 = r * (r * r) ** 2
388 g = r * tmp
396 if(abs(r).gt.7.0d0) fwp=zero