REAL FUNCTION YR2DAY( YYYY )
INTEGER YYYY
#if __hpux || _AIX
#define YR2DAY yr2day_
#elif __sgi || __sun || __osf__ || __mips__
#define YR2DAY yr2day_
#enduf
float YR2DAY( const int *yy )
...
...
INTEGER YR2DAY
...
WRITE (*,* ) YR2DAY( 1980 ) ! is 1.0 / 366.0
WRITE (*,* ) YR2DAY( 1981 ) ! is 1.0 / 365.0
...
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages