YR2DAY()

Fortran version:

    REAL FUNCTION  YR2DAY( YYYY )
        INTEGER, INTENT(IN   ) :: YYYY

C version:

None. But can probably be called as:

#if __hpux || _AIX
#define   YR2DAY yr2day_
#elif  __sgi || __sun || __osf__ || __mips__
#define   YR2DAY yr2day_
#endif

    float YR2DAY( const int *yy )

Summary:

YR2DAY() returns the year-to-days conversion factor for the given year. For Fortran-90 declarations and interface checking:

    USE M3UTILIO

Fortran Usage:

    ...
    ...
    INTEGER   YR2DAY
    ...
    WRITE (*,* ) YR2DAY( 1980 )	!  is 1.0 / 366.0
    WRITE (*,* ) YR2DAY( 1981 )	!  is 1.0 / 365.0
    ...

Previous: YEAR4

Up: Date-Time Manipulation Routines

To: Models-3/EDSS I/O API: The Help Pages