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