Changeset 313 for XIOS/trunk/src/fortran/file_interface.f90
- Timestamp:
- 02/18/12 22:43:24 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran/file_interface.f90
r300 r313 3 3 4 4 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 5 6 SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)7 USE ISO_C_BINDING8 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name10 INTEGER (kind = C_INT) , VALUE :: name_size11 END SUBROUTINE cxios_set_file_name12 13 SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)14 USE ISO_C_BINDING15 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: description17 INTEGER (kind = C_INT) , VALUE :: description_size18 END SUBROUTINE cxios_set_file_description19 20 SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)21 USE ISO_C_BINDING22 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name_suffix24 INTEGER (kind = C_INT) , VALUE :: name_suffix_size25 END SUBROUTINE cxios_set_file_name_suffix26 27 SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)28 USE ISO_C_BINDING29 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: output_freq31 INTEGER (kind = C_INT) , VALUE :: output_freq_size32 END SUBROUTINE cxios_set_file_output_freq33 34 SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)35 USE ISO_C_BINDING36 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl37 INTEGER (kind = C_INT) , VALUE :: output_level38 END SUBROUTINE cxios_set_file_output_level39 40 SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)41 USE ISO_C_BINDING42 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl43 LOGICAL (kind = C_BOOL) , VALUE :: enabled44 END SUBROUTINE cxios_set_file_enabled45 5 46 6 SUBROUTINE cxios_file_handle_create(ret, idt, idt_size) BIND(C) … … 58 18 END SUBROUTINE cxios_file_valid_id 59 19 60 SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)61 USE ISO_C_BINDING62 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl63 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: type64 INTEGER (kind = C_INT) , VALUE :: type_size65 END SUBROUTINE cxios_set_file_type66 67 20 END INTERFACE 68 21
Note: See TracChangeset
for help on using the changeset viewer.