Changeset 794 for XIOS/trunk/src/interface/fortran
- Timestamp:
- 11/19/15 16:55:17 (9 years ago)
- Location:
- XIOS/trunk/src/interface/fortran
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/date_interface.F90
r576 r794 18 18 TYPE(txios(date)), VALUE :: date 19 19 END FUNCTION cxios_date_convert_to_seconds 20 21 SUBROUTINE cxios_date_convert_to_string(date, str, str_size) BIND(C) 22 USE ISO_C_BINDING 23 IMPORT :: txios(date) 24 TYPE(txios(date)), VALUE :: date 25 CHARACTER(kind = C_CHAR), DIMENSION(*) :: str 26 INTEGER(kind = C_INT), VALUE :: str_size 27 END SUBROUTINE cxios_date_convert_to_string 20 28 21 29 TYPE(txios(date)) FUNCTION cxios_date_add_duration(date, dur) BIND(C) -
XIOS/trunk/src/interface/fortran/duration_interface.F90
r545 r794 9 9 10 10 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_duration_convert_to_string(dur, str, str_size) BIND(C) 13 USE ISO_C_BINDING 14 IMPORT :: txios(duration) 15 TYPE(txios(duration)), VALUE :: dur 16 CHARACTER(kind = C_CHAR), DIMENSION(*) :: str 17 INTEGER(kind = C_INT), VALUE :: str_size 18 END SUBROUTINE cxios_duration_convert_to_string 11 19 12 20 TYPE(txios(duration)) FUNCTION cxios_duration_add(dur1, dur2) BIND(C) -
XIOS/trunk/src/interface/fortran/idate.F90
r558 r794 43 43 CONTAINS ! Fonctions disponibles pour les utilisateurs. 44 44 45 ! Conversion functions 46 45 47 FUNCTION xios(date_convert_to_seconds)(date) RESULT(res) 46 48 USE DATE_INTERFACE, only : txios(date) … … 52 54 END FUNCTION xios(date_convert_to_seconds) 53 55 56 SUBROUTINE xios(date_convert_to_string)(date, str) 57 USE DATE_INTERFACE, only : txios(date) 58 IMPLICIT NONE 59 TYPE(txios(date)), INTENT(IN) :: date 60 CHARACTER(len = *), INTENT(OUT) :: str 61 62 CALL cxios_date_convert_to_string(date, str, len(str)) 63 END SUBROUTINE xios(date_convert_to_string) 64 54 65 ! Addition: date + duration = date 55 66 -
XIOS/trunk/src/interface/fortran/iduration.F90
r545 r794 49 49 50 50 CONTAINS 51 52 ! Conversion function 53 54 SUBROUTINE xios(duration_convert_to_string)(dur, str) 55 USE DURATION_INTERFACE, only : txios(duration) 56 IMPLICIT NONE 57 TYPE(txios(duration)), INTENT(IN) :: dur 58 CHARACTER(len = *), INTENT(OUT) :: str 59 60 CALL cxios_duration_convert_to_string(dur, str, len(str)) 61 END SUBROUTINE xios(duration_convert_to_string) 51 62 52 63 ! Addition -
XIOS/trunk/src/interface/fortran/ixios.F90
r788 r794 23 23 USE iduration, ONLY: txios(duration), & 24 24 xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), & 25 xios(duration_convert_to_string), & 25 26 xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg), & 26 27 xios(duration_eq), xios(duration_neq), & … … 28 29 29 30 USE idate, ONLY : txios(date), & 30 xios(date_convert_to_seconds), 31 xios(date_convert_to_seconds), xios(date_convert_to_string), & 31 32 xios(date_add_duration), xios(date_sub_duration), xios(date_sub), & 32 33 xios(date_eq), xios(date_neq), xios(date_lt), xios(date_le), xios(date_gt), xios(date_ge), &
Note: See TracChangeset
for help on using the changeset viewer.