#include <fortran.h>
#include <sys/types.h>
#include <time.h>

Include dependency graph for idate_f90.c:

Defines
#define	__IDATE_SCALAR()
#define	__IDATE_ARRAY()
Functions
void	_IDATE_I (int imon, int jday, int *kyear)
void	_IDATE_I1 (_f_int1 imon, _f_int1 jday, _f_int1 *kyear)
void	_IDATE_I2 (_f_int2 imon, _f_int2 jday, _f_int2 *kyear)
void	_IDATE_I4 (_f_int4 imon, _f_int4 jday, _f_int4 *kyear)
void	_IDATE_I8 (_f_int8 imon, _f_int8 jday, _f_int8 *kyear)
void	_IDATE_A (int iarray[3])
void	_IDATE_A1 (_f_int1 iarray[3])
void	_IDATE_A2 (_f_int2 iarray[3])
void	_IDATE_A4 (_f_int4 iarray[3])
void	_IDATE_A8 (_f_int8 iarray[3])

Define Documentation

#define __IDATE_ARRAY ( )

Value:

struct tm       *locltm;                        \
        time_t          t;                              \
        t       = time(0);                              \
        locltm  = localtime(&t);                        \
        iarray[0]       = locltm->tm_mday;              \
        iarray[1]       = locltm->tm_mon + 1;           \
        iarray[2]       = locltm->tm_year + 1900;

Definition at line 76 of file idate_f90.c.

Referenced by _IDATE_A(), _IDATE_A1(), _IDATE_A2(), _IDATE_A4(), and _IDATE_A8().

#define __IDATE_SCALAR ( )

Value:

struct tm       *locltm;                        \
        time_t          t;                              \
        t       = time(0);                              \
        locltm  = localtime(&t);                        \
        *imon   = locltm->tm_mon + 1;                   \
        *jday   = locltm->tm_mday;                      \
        *kyear  = locltm->tm_year % 100;

Definition at line 67 of file idate_f90.c.

Referenced by _IDATE_I(), _IDATE_I1(), _IDATE_I2(), _IDATE_I4(), and _IDATE_I8().