jd_to_mjd Function

public pure function jd_to_mjd(jd) result(mjd)

Converts Julian date to Modified Julian date.

Reference

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: jd

julian date

Return Value real(kind=wp)

modified julian date


Source Code

    pure function jd_to_mjd(jd) result(mjd)

    implicit none

    real(wp)            :: mjd  !! modified julian date
    real(wp),intent(in) :: jd   !! julian date

    mjd = jd - 2400000.5_wp

    end function jd_to_mjd