ordinal_seconds(3f) - [M_time:ORDINAL_DAY] seconds since beginning of year (LICENSE:PD)
Synopsis
Description
Example
Author
License
function ordinal_seconds()
integer :: ordinal_seconds
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.
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
John S. Urban, 2015
Public Domain
ordinal_seconds (3) | March 11, 2021 |