Changeset 549 for XIOS/trunk/src/interface/fortran/date_interface.F90
- Timestamp:
- 01/26/15 14:39:26 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/date_interface.F90
r545 r549 7 7 INTEGER(kind = C_INT) :: year, month, day, hour, minute, second 8 8 END TYPE txios(date) 9 9 10 10 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 11 11 … … 75 75 END FUNCTION cxios_date_ge 76 76 77 INTEGER(kind = C_INT) FUNCTION cxios_date_get_second_of_year(date) BIND(C) 78 USE ISO_C_BINDING 79 IMPORT :: txios(date) 80 TYPE(txios(date)), VALUE :: date 81 END FUNCTION cxios_date_get_second_of_year 82 83 REAL(kind = C_DOUBLE) FUNCTION cxios_date_get_day_of_year(date) BIND(C) 84 USE ISO_C_BINDING 85 IMPORT :: txios(date) 86 TYPE(txios(date)), VALUE :: date 87 END FUNCTION cxios_date_get_day_of_year 88 89 REAL(kind = C_DOUBLE) FUNCTION cxios_date_get_fraction_of_year(date) BIND(C) 90 USE ISO_C_BINDING 91 IMPORT :: txios(date) 92 TYPE(txios(date)), VALUE :: date 93 END FUNCTION cxios_date_get_fraction_of_year 94 95 INTEGER(kind = C_INT) FUNCTION cxios_date_get_second_of_day(date) BIND(C) 96 USE ISO_C_BINDING 97 IMPORT :: txios(date) 98 TYPE(txios(date)), VALUE :: date 99 END FUNCTION cxios_date_get_second_of_day 100 101 REAL(kind = C_DOUBLE) FUNCTION cxios_date_get_fraction_of_day(date) BIND(C) 102 USE ISO_C_BINDING 103 IMPORT :: txios(date) 104 TYPE(txios(date)), VALUE :: date 105 END FUNCTION cxios_date_get_fraction_of_day 106 77 107 END INTERFACE 78 108 79 109 END MODULE DATE_INTERFACE
Note: See TracChangeset
for help on using the changeset viewer.