1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| FUNCTION jd(yyyy, mm, dd, Heures, Minutes, Secondes) RESULT(ival)
INTEGER, INTENT(IN) :: yyyy
INTEGER, INTENT(IN) :: mm
INTEGER, INTENT(IN) :: dd
INTEGER, INTENT(IN) :: Heures
INTEGER, INTENT(IN) :: Minutes
INTEGER, INTENT(IN) :: Secondes
double precision :: ival
! DATE ROUTINE JD(YYYY, MM, DD) CONVERTS CALENDER DATE TO
! JULIAN DATE. SEE CACM 1968 11(10):657, LETTER TO THE
! EDITOR BY HENRY F. FLIEGEL AND THOMAS C. VAN FLANDERN.
! EXAMPLE JD(1970, 1, 1) = 2440588
ival = dd - 32075 + 1461*(yyyy+4800+(mm-14)/12)/4 + &
367*(mm-2-((mm-14)/12)*12)/12 - 3*((yyyy+4900+(mm-14)/12)/100)/4 &
+ (Heures + (Minutes + Secondes / 60.) / 60.) / 24.
RETURN
END FUNCTION jd |
Partager