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