Changeset 313 for XIOS/trunk/src/fortran/field_interface.f90
- Timestamp:
- 02/18/12 22:43:24 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran/field_interface.f90
r310 r313 3 3 4 4 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 5 6 SUBROUTINE cxios_set_field_name(field_hdl, name ,name_size) BIND(C)7 USE ISO_C_BINDING8 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name10 INTEGER (kind = C_INT) , VALUE :: name_size11 END SUBROUTINE cxios_set_field_name12 13 SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name ,standard_name_size) BIND(C)14 USE ISO_C_BINDING15 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name17 INTEGER (kind = C_INT) , VALUE :: standard_name_size18 END SUBROUTINE cxios_set_field_standard_name19 20 SUBROUTINE cxios_set_field_long_name(field_hdl, long_name ,long_name_size) BIND(C)21 USE ISO_C_BINDING22 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name24 INTEGER (kind = C_INT) , VALUE :: long_name_size25 END SUBROUTINE cxios_set_field_long_name26 27 SUBROUTINE cxios_set_field_unit(field_hdl, unit ,unit_size) BIND(C)28 USE ISO_C_BINDING29 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit31 INTEGER (kind = C_INT) , VALUE :: unit_size32 END SUBROUTINE cxios_set_field_unit33 34 SUBROUTINE cxios_set_field_operation(field_hdl, operation ,operation_size) BIND(C)35 USE ISO_C_BINDING36 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl37 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: operation38 INTEGER (kind = C_INT) , VALUE :: operation_size39 END SUBROUTINE cxios_set_field_operation40 41 SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op ,freq_op_size) BIND(C)42 USE ISO_C_BINDING43 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl44 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: freq_op45 INTEGER (kind = C_INT) , VALUE :: freq_op_size46 END SUBROUTINE cxios_set_field_freq_op47 48 SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)49 USE ISO_C_BINDING50 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl51 INTEGER (kind = C_INT) , VALUE :: level52 END SUBROUTINE cxios_set_field_level53 54 SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)55 USE ISO_C_BINDING56 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl57 INTEGER (kind = C_INT) , VALUE :: prec58 END SUBROUTINE cxios_set_field_prec59 60 SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)61 USE ISO_C_BINDING62 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl63 LOGICAL (kind = C_BOOL) , VALUE :: enabled64 END SUBROUTINE cxios_set_field_enabled65 66 SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref ,domain_ref_size) BIND(C)67 USE ISO_C_BINDING68 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl69 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: domain_ref70 INTEGER (kind = C_INT) , VALUE :: domain_ref_size71 END SUBROUTINE cxios_set_field_domain_ref72 73 SUBROUTINE cxios_set_field_axis_ref(field_hdl, axis_ref ,axis_ref_size) BIND(C)74 USE ISO_C_BINDING75 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl76 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: axis_ref77 INTEGER (kind = C_INT) , VALUE :: axis_ref_size78 END SUBROUTINE cxios_set_field_axis_ref79 80 SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref ,grid_ref_size) BIND(C)81 USE ISO_C_BINDING82 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl83 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: grid_ref84 INTEGER (kind = C_INT) , VALUE :: grid_ref_size85 END SUBROUTINE cxios_set_field_grid_ref86 87 SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref ,field_ref_size) BIND(C)88 USE ISO_C_BINDING89 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl90 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: field_ref91 INTEGER (kind = C_INT) , VALUE :: field_ref_size92 END SUBROUTINE cxios_set_field_field_ref93 94 SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)95 USE ISO_C_BINDING96 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl97 REAL (kind = C_DOUBLE) , VALUE :: default_value98 END SUBROUTINE cxios_set_field_default_value99 5 100 6 SUBROUTINE cxios_field_handle_create(ret, idt, idt_size) BIND(C)
Note: See TracChangeset
for help on using the changeset viewer.