[UP]


Manual Reference Pages  - d2o (3)

NAME

d2o(3f) - [M_time:ORDINAL_DAY] converts DAT date-time array to Ordinal day (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example
Author
License

SYNOPSIS

function d2o(dat) result (ordinal)

    integer,intent(in),optional :: dat(8)
    integer                     :: ordinal

DESCRIPTION

Given a date in the form of a "DAT" array return the Ordinal Day, (ie. "the day of the year").

OPTIONS

dat Integer array holding a "DAT" array, similar in structure to the array returned by the intrinsic DATE_AND_TIME(3f):
             dat=[ year,month,day,timezone,hour,&
              & minutes,seconds,milliseconds]

RETURNS

ordinal
  The day of the year calculated for the given input date, where Jan 1st=1.

EXAMPLE

Sample program:

    program demo_d2o
    use M_time, only : d2o
    implicit none
    integer :: dat(8)
       call date_and_time(values=dat)
       write(*,’(" Today is:",*(i0:,":"))’)dat
       write(*,*)’Day of year is:’,d2o(dat)

! year,month,day,timezone,hour,minute,seconds,milliseconds dat=[2020,12,31,-240,12,0,0,0] write(*,*)dat(1),’ Days in year is:’,d2o(dat)

dat=[2021,12,31,-240,12,0,0,0] write(*,*)dat(1),’ Days in year is:’,d2o(dat)

dat=[2022,12,31,-240,12,0,0,0] write(*,*)dat(1),’ Days in year is:’,d2o(dat)

dat=[2023,12,31,-240,12,0,0,0] write(*,*)dat(1),’ Days in year is:’,d2o(dat)

dat=[2024,12,31,-240,12,0,0,0] write(*,*)dat(1),’ Days in year is:’,d2o(dat)

end program demo_d2o

results:

    Today is:2016:7:19:-240:20:1:19:829
    Day of year is:         201
           2020  Days in year is:         366
           2021  Days in year is:         365
           2022  Days in year is:         365
           2023  Days in year is:         365
           2024  Days in year is:         366

AUTHOR

John S. Urban, 2015

LICENSE

Public Domain


d2o (3) March 11, 2021
Generated by manServer 1.08 from f541d00f-d5c1-457c-be56-901609740d44 using man macros.