Lines Matching refs:r
17 real*8 r, Stheta, dpdz, rP5 local
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, local
403 r = zero
406 r = tmp / st
407 r = min( max(r, -8.0d0), 8.0d0)
410 rP5 = r * (r * r) ** 2
412 g = r * tmp
420 if(abs(r).gt.7.0d0) fwp=zero