Function DCDateTime

function DCDateTime

        ! Uses
    use dc_types, only: DP
    use dc_date_types, only: DC_DATETIME, caltype, cyclic_mdays,                       CAL_NOLEAP, CAL_JULIAN, CAL_CYCLIC

        ! Variables
    type (DC_DATETIME) :: result
    integer, intent(in) :: mon
    integer, intent(in) :: day
    real (kind=DP), intent(in) :: sec
    integer :: iday
    integer :: month
    integer :: year
    integer :: century
    integer, parameter :: four_years = 365 * 4 + 1

end function DCDateTime

Description of Variables

result

type (DC_DATETIME) :: result

mon

integer, intent(in) :: mon

day

integer, intent(in) :: day

sec

real (kind=DP), intent(in) :: sec

iday

integer :: iday

month

integer :: month

year

integer :: year

century

integer :: century

four_years

integer, parameter :: four_years = 365 * 4 + 1