Routine

Function

ymd2jd

Conversion from date to julian day

jd2ymd

Conversion from julian day to date

js2jd

Conversion from julian seconds to julian day

js2ymds

Conversion from julian seconds to date (year, month, day, sec)

ymds2js

Conversion from date (year, month, day, seconds) to julian seconds

leapyear

This function returns the value TRUE if year is a leap-year.

yrday

Returns current day of year

yd2md

Convert from year and day of year to month and day of month.

check_date

This subroutine checks if the date is correct.

incdat

This subroutine increments the date

nnorm

This subroutine normalises the date

d1gtd2

This function checks if date1 > date2

datsec

This function returns the date in seconds from 0,1,1,1960

js30_to_ymds30

Conversion from "julian seconds 30" to "date 30"

ymds30_to_js30

Conversion from "date 30" (year, month, day, seconds) to "julian seconds 30"

check_date30

This subroutine checks if the date (all months with 30 days) is correct.

incdat30

This subroutine increments the date (all month with 30 days!)

nnorm30

This subroutine normalises the date (all month with 30 days!)