[UP]

Manual Reference Pages  - ordinal_to_date (3)

NAME
ordinal_to_date(3f) - [M_time] when given a valid year and day of the year returns the DAT array for the date (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example

SYNOPSIS

 
subroutine ordinal_to_date(yyyy, ddd, dat)


      integer, intent(in)   :: yyyy
      integer, intent(in)   :: ddd
      integer, intent(out)  :: dat

DESCRIPTION
When given a valid year, YYYY, and day of the year, DDD, returns the date as a DAT date array

OPTIONS
yyyy known year
ddd known ordinal day of the year

RETURNS
dat DAT array describing the date

EXAMPLE
Sample program: 

   program demo_ordinal_to_date
   use M_time, only : ordinal_to_date
   implicit none
   INTEGER            :: yyyy, ddd, mm, dd
   integer            :: dat(8)
   integer            :: ios
     INFINITE: do
        write(*,’(a)’,advance=’no’)’Enter year YYYY and ordinal day of year DD ’
        read(*,*,iostat=ios)yyyy,ddd
        if(ios.ne.0)exit INFINITE
        ! recover month and day from year and day number.
        call ordinal_to_date(yyyy, ddd, dat)
        mm=dat(2)
        dd=dat(3)
        write(*,*)’For Year ’,yyyy,’ and Ordinal day ’,ddd, &
        &         ’ Month is ’,mm,’ and Day of Month is’,dd
      enddo INFINITE
   end program demo_ordinal_to_date

ordinal_to_date (3) July 05, 2020
Generated by manServer 1.08 from c6176441-1150-4881-9d14-4e0ae8336f5b using man macros.