SEC2TIME() and sec2timec()

Fortran version:

    INTEGER FUNCTION  SEC2TIME( SECS )
        INTEGER         SECS

C version:

    int sec2timec( int  secs )

Summary:

Returns the Models-3-convention time -- integer coded as
    H*MMSS = 10000 * hours + 100 * minutes + seconds ) 
corresponding to the number of seconds SECS. Note that according to Models-3 conventions, all three of "hours", "minutes", and "seconds" have the same sign -- either all positive (or zero), if SECS >= 0), or all negative (or zero) when SECS < 0 .

For Fortran-90 declarations and interface checking:

    USE M3UTILIO
    

See also TIME2SEC() and SECSDIFF()

Preconditions:

#include "iodecl3.h" for C.

Fortran Usage:

    ...
    USE M3UTILIO
    ...
    INTEGER   TIME
    ...
    TIME = SEC2TIME( 12345 )
C	    Now TIME is the Models-3 time for 12,345 seconds 
C           (32545, i.e., 3 hours, 25 minutes, and 45 seconds)
    ...
    TIME = SEC2TIME( -123456 )
C	    Now TIME is -341736 since (+)123,456 seconds is
C           34 hours, 17 minutes, and 36 seconds
    ...

C Usage:

    ...
    #include "iodecl3.h"                          
    ...
    int  time ;
    ...
    time = sec2timec( -123456 ) ;                               
            /*  Now time == -341736 since (+)123,456 seconds 
                is 34 hours, 17 minutes, and 36 seconds    */
    ...


Previous: NEXTIME

Next: SECSDIFF

Up: Date-Time Manipulation Routines

To: Models-3/EDSS I/O API: The Help Pages