- Timestamp:
- 10/21/11 19:01:35 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/common/src/xmlio/fortran/axisgroup_interface.f90
r280 r286 4 4 INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 5 5 6 SUBROUTINE xios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)6 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 7 7 USE ISO_C_BINDING 8 8 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 9 9 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: name 10 10 INTEGER (kind = C_INT) , VALUE :: name_size 11 END SUBROUTINE xios_set_axisgroup_name11 END SUBROUTINE cxios_set_axisgroup_name 12 12 13 SUBROUTINE xios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)13 SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C) 14 14 USE ISO_C_BINDING 15 15 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 16 16 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: standard_name 17 17 INTEGER (kind = C_INT) , VALUE :: standard_name_size 18 END SUBROUTINE xios_set_axisgroup_standard_name18 END SUBROUTINE cxios_set_axisgroup_standard_name 19 19 20 SUBROUTINE xios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)20 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 21 21 USE ISO_C_BINDING 22 22 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 23 23 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: long_name 24 24 INTEGER (kind = C_INT) , VALUE :: long_name_size 25 END SUBROUTINE xios_set_axisgroup_long_name25 END SUBROUTINE cxios_set_axisgroup_long_name 26 26 27 SUBROUTINE xios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)27 SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) 28 28 USE ISO_C_BINDING 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 30 30 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: unit 31 31 INTEGER (kind = C_INT) , VALUE :: unit_size 32 END SUBROUTINE xios_set_axisgroup_unit32 END SUBROUTINE cxios_set_axisgroup_unit 33 33 34 SUBROUTINE xios_set_axisgroup_size(axisgroup_hdl, size) BIND(C)34 SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) 35 35 USE ISO_C_BINDING 36 36 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 37 37 INTEGER (kind = C_INT) , VALUE :: size 38 END SUBROUTINE xios_set_axisgroup_size38 END SUBROUTINE cxios_set_axisgroup_size 39 39 40 SUBROUTINE xios_set_axisgroup_zvalue(axisgroup_hdl, zvalue, zvalue_extent1) BIND(C)40 SUBROUTINE cxios_set_axisgroup_zvalue(axisgroup_hdl, zvalue, zvalue_extent1) BIND(C) 41 41 USE ISO_C_BINDING 42 42 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 43 43 REAL (kind = C_DOUBLE) , DIMENSION(*) :: zvalue 44 44 INTEGER (kind = C_INT) , VALUE :: zvalue_extent1 45 END SUBROUTINE xios_set_axisgroup_zvalue45 END SUBROUTINE cxios_set_axisgroup_zvalue 46 46 47 SUBROUTINE xios_axisgroup_handle_create(ret, idt, idt_size) BIND(C)47 SUBROUTINE cxios_axisgroup_handle_create(ret, idt, idt_size) BIND(C) 48 48 USE ISO_C_BINDING 49 49 INTEGER (kind = C_INTPTR_T) :: ret 50 50 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 51 51 INTEGER (kind = C_INT) , VALUE :: idt_size 52 END SUBROUTINE xios_axisgroup_handle_create52 END SUBROUTINE cxios_axisgroup_handle_create 53 53 54 SUBROUTINE xios_axisgroup_valid_id(ret, idt, idt_size) BIND(C)54 SUBROUTINE cxios_axisgroup_valid_id(ret, idt, idt_size) BIND(C) 55 55 USE ISO_C_BINDING 56 56 LOGICAL (kind = C_BOOL) :: ret 57 57 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: idt 58 58 INTEGER (kind = C_INT) , VALUE :: idt_size 59 END SUBROUTINE xios_axisgroup_valid_id59 END SUBROUTINE cxios_axisgroup_valid_id 60 60 61 61 END INTERFACE
Note: See TracChangeset
for help on using the changeset viewer.