Searched refs:rrx2 (Results 1 – 3 of 3) sorted by relevance
89 real*8 rr,rrx2,rrsq local246 rrx2 = 2.0d0 * rr310 zgrid = zgrid + 0.5d0*(rrx2-(int(rrx2/zstep)*zstep))546 real*8 rr,rrx2,rrsq local611 rrx2 = 2.0d0 * rr651 zgrid = zgrid + (0.5d0*(rrx2-(int(rrx2/zstep)*zstep)))
80 real*8 rr,rrx2,rrsq local160 rrx2 = 2.0d0 * rr216 gr(io) = (ccsq+rplus*rminus) / (rrx2*b1(io))660 real*8 rr,rrx2,rrsq local755 rrx2 = 2.0d0 * rr811 gr(io) = (ccsq+rplus*rminus) / (rrx2*b1(io))843 t1 = arcsum*rrsq*(bsqk-rrsq+r(in)**2) / (rrx2*bsqk*bk)1151 t1 = arcsum*rrsq*(bsqk-rrsq+r(in)**2) / (rrx2*bsqk*bk)
533 real*8 rrx2,rrsq local607 rrx2 = 2.0d0 * rr697 t1 = arcsum*rrsq*(bsqk-rrsq+rin*rin) / (rrx2*bsqk*bk)1004 t1 = arcsum*rrsq*(bsqk-rrsq+rin*rin) / (rrx2*bsqk*bk)