INTEGER FUNCTION TIME2SEC( DTIME )
INTEGER, INTENT(IN ) :: DTIME ! time interval H*MMSS
int time2secc( int dtime ) ;
DTIME. DTIME may be
positive or negative (in which latter case, its hour, minutes, and
seconds fields are assumed to be all negative or zero). Note
that the DTIME H*MMSS-encoding suffers
INTEGER-overflow for time periods exceeding
approximately 24.5 years.
For Fortran-90 declarations and interface checking:
USE M3UTILIO
See also SEC2TIME() and SECSDIFF()
#include "iodecl3.h" for C.
DTIME represented
H*MMSS = 100 * ( 100 * HOURS + MINS ) + SECS
Either HOURS, MINS, SECS >= 0, or HOURS, MINS, SECS <= 0.
...
USE M3UTILIO
...
INTEGER SECS
...
SECS = TIME2SEC( 12345 )
C Now SECS is the number of seconds in the time interval
C 1 hour, 23 minutes and 45 seconds
...
...
#include "iodecl3.h"
...
int secs ;
...
secs = time2secc( 123456 ) ;
/* Now secs is the number of seconds in the time
interval 12 hours 34 minutes and 56 seconds */
...
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages