PROGRAM REZEST_POINT
      IMPLICIT NONE
      REAL*4 P, LAMBDA, M, DP_OVER_P, DPHI_TOT, DTHETA_TOT
      READ (5,*) P, LAMBDA, M
      CALL REZEST_FDC_CDC(P, LAMBDA, M,
     X     DP_OVER_P, DPHI_TOT, DTHETA_TOT)
      WRITE (6,*) DP_OVER_P, DPHI_TOT, DTHETA_TOT
      STOP
      END