PROGRAM REZEST_POINT_COMP
      IMPLICIT NONE
      REAL*4 P, LAMBDA, M, DP_OVER_P, DPHI_TOT, DTHETA_TOT
      REAL*4 DP_P_MS(2), DP_P_RES(2), DP_P(2)
      REAL*4 DPHI_MS(2), DPHI_RES(2), DPHI_K(2), DPHI(2)
      REAL*4 DTHETA_MS(2), DTHETA_RES(2), DTHETA(2)
      READ (5,*) P, LAMBDA, M
      CALL REZEST_COMPONENTS(P, LAMBDA, M,
     X     DP_OVER_P, DPHI_TOT, DTHETA_TOT,
     X     DP_P_MS, DP_P_RES, DP_P,
     X     DPHI_MS, DPHI_RES, DPHI_K, DPHI,
     X     DTHETA_MS, DTHETA_RES, DTHETA)
      WRITE (6,*) DP_OVER_P, DPHI_TOT, DTHETA_TOT,
     X     DP_P_MS, DP_P_RES, DP_P,
     X     DPHI_MS, DPHI_RES, DPHI_K, DPHI,
     X     DTHETA_MS, DTHETA_RES, DTHETA
      STOP
      END