CHARACTER*14 FUNCTION MMDDYY( JDATE ) INTEGER, INTENT(IN ) :: JDATE ! date, YYYDDD = 1000*year + day(1...365,6)
void mmddyyc( int jdate , char buffer[ 15 ] )
For Fortran-90 declarations and interface checking:
USE M3UTILIO
See also subroutines
JULIAN(),as well as EDSS/ Models-3 date-time manipulation programs
DAYMON(),
WKDAY(),
ISDSTIME(),
DT2STR()
gregdate,
greg2jul,
juldate,
jul2greg
julshift
timeshift.
#include "iodecl3.h"
if called from C.
JDATE represents a date YYYYDDD according to Models-3 conventions
... USE M3UTILIO ... CHARACTER*14 BUFFER ... BUFFER = MMDDYY( 1988060 ) ! BUFFER now holds "March 1, 1988" ... WRITE( *,* ) & 'Date ', MMDDYY( 1995001 ) ! writes "Date Jan. 1, 1995" ...
... #include "iodecl3.h" ... char buffer[ 15 ] ; ... mmddyyc( 1995001, buffer ) ; /* buffer now holds "Jan. 1, 1995" */ ...
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages