---

Manual Reference Pages  - ordinal_seconds (3m_time)

---

NAME

ordinal_seconds(3f) - [M_time:ORDINAL_DAY] seconds since beginning of year (LICENSE:MIT)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS

function ordinal_seconds()

    integer :: ordinal_seconds

DESCRIPTION

Return number of seconds since beginning of current year.

Before using this routine consider the consequences if the application is running at the moment a new year begins.

EXAMPLE

sample program

    program demo_ordinal_seconds
    use M_time, only : ordinal_seconds
    implicit none
    character(len=1) :: paws
    integer          :: ios
    integer          :: istart, iend
    istart=ordinal_seconds()
    write(*,’(a)’,advance=’no’)’now pause. Enter return to continue ...’
    read(*,’(a)’,iostat=ios) paws
    iend=ordinal_seconds()
    write(*,*)’that took ’,iend-istart,’seconds’
    write(*,*)istart,iend
    end program demo_ordinal_seconds

AUTHOR

John S. Urban, 2015

LICENSE

    MIT

---

Nemo Release 3.1

ordinal_seconds (3m_time)

August 31, 2024

Generated by manServer 1.08 from 2c50e433-68a0-4e1c-b8e7-f4146e310512 using man macros.