CHARACTER*10 HHMMSS( JTIME ) INTEGER, INTENT(IN ) :: JTIME ! time, HHMMSS = 100*(100*hour + min) + secs
void hhmmssc( int jtime , char buffer[ 11 ] )
#include "iodecl3.h"
if called from C.0 <= JTIME <= 990000, represents a time interval according to Models-3 conventions .
USE M3UTILIO
... CHARACTER*10 HHMMSS ... CHARACTER*10 BUFFER ... BUFFER = HHMMSS( 123456 ) C ==> BUFFER now holds "12:34:56" ... WRITE( *,* ) 'Time Step ', HHMMSS( 10000 ) C ==> writes "Time Step 1:00:00" ! note left-shift ! ...
... #include "iodecl3.h" ... char buffer[ 11 ] ; ... hhmmssc( 123456, buffer ) ; /* buffer now holds "12:34:56" ...
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages