idate_f90.c File Reference

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

Include dependency graph for idate_f90.c:

Go to the source code of this file.

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().

---

Function Documentation

void _IDATE_A

(

int

iarray[3]

)

Definition at line 117 of file idate_f90.c.

References __IDATE_ARRAY.

void _IDATE_A1

(

_f_int1

iarray[3]

)

Definition at line 122 of file idate_f90.c.

References __IDATE_ARRAY.

void _IDATE_A2

(

_f_int2

iarray[3]

)

Definition at line 127 of file idate_f90.c.

References __IDATE_ARRAY.

void _IDATE_A4

(

_f_int4

iarray[3]

)

Definition at line 132 of file idate_f90.c.

References __IDATE_ARRAY.

void _IDATE_A8

(

_f_int8

iarray[3]

)

Definition at line 137 of file idate_f90.c.

References __IDATE_ARRAY.

void _IDATE_I	(	int *	imon,
		int *	jday,
		int *	kyear
	)

Definition at line 89 of file idate_f90.c.

References __IDATE_SCALAR.

void _IDATE_I1	(	_f_int1 *	imon,
		_f_int1 *	jday,
		_f_int1 *	kyear
	)

Definition at line 94 of file idate_f90.c.

References __IDATE_SCALAR.

void _IDATE_I2	(	_f_int2 *	imon,
		_f_int2 *	jday,
		_f_int2 *	kyear
	)

Definition at line 99 of file idate_f90.c.

References __IDATE_SCALAR.

void _IDATE_I4	(	_f_int4 *	imon,
		_f_int4 *	jday,
		_f_int4 *	kyear
	)

Definition at line 104 of file idate_f90.c.

References __IDATE_SCALAR.

void _IDATE_I8	(	_f_int8 *	imon,
		_f_int8 *	jday,
		_f_int8 *	kyear
	)

Definition at line 109 of file idate_f90.c.

References __IDATE_SCALAR.