[UP]


Manual Reference Pages  - ordinal_seconds (3)

NAME

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

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

Public Domain


ordinal_seconds (3) March 11, 2021
Generated by manServer 1.08 from 0a4229b9-4650-4382-ab51-b6a31287af9d using man macros.