mjd_to_jd Function

public pure function mjd_to_jd(mjd) result(jd)

Converts Modified Julian date to Julian date.

Reference

Arguments

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

modified julian date

Return Value real(kind=wp)

julian date


Source Code

    pure function mjd_to_jd(mjd) result(jd)

    implicit none

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

    jd = mjd + 2400000.5_wp

    end function mjd_to_jd