Searched refs:rP5 (Results 1 – 3 of 3) sorted by relevance
17 real*8 r, Stheta, dpdz, rP5 local27 rP5 = (r/bigR)**529 Stheta = dpdz * sin(0.5*pi*rP5)410 rP5 = r * (r * r) ** 2411 tmp = 1.0 + saCw2 * (rP5 - 1.0)413 gp = rp * (tmp + 5.0 * saCw2 * rP5)
17 real*8 r, Stheta, dpdz, rP527 rP5 = (r/bigR)**529 Stheta = dpdz * sin(0.5*pi*rP5)386 rP5 = r * (r * r) ** 2387 tmp = 1.0 + saCw2 * (rP5 - 1.0)389 gp = rp * (tmp + 5.0 * saCw2 * rP5)
17 real*8 r, Stheta, dpdz, rP527 rP5 = (r/bigR)**529 Stheta = dpdz * sin(0.5*pi*rP5)372 rP5 = r * (r * r) ** 2373 tmp = 1.0 + saCw2 * (rP5 - 1.0)375 gp = rp * (tmp + 5.0 * saCw2 * rP5)