- Timestamp:
- 01/10/17 14:36:29 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r891 r1021 50 50 51 51 52 SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 55 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: cell_methods 56 INTEGER (kind = C_INT) , VALUE :: cell_methods_size 57 END SUBROUTINE cxios_set_fieldgroup_cell_methods 58 59 SUBROUTINE cxios_get_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 60 USE ISO_C_BINDING 61 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 62 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: cell_methods 63 INTEGER (kind = C_INT) , VALUE :: cell_methods_size 64 END SUBROUTINE cxios_get_fieldgroup_cell_methods 65 66 FUNCTION cxios_is_defined_fieldgroup_cell_methods(fieldgroup_hdl) BIND(C) 67 USE ISO_C_BINDING 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods 69 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 70 END FUNCTION cxios_is_defined_fieldgroup_cell_methods 71 72 73 SUBROUTINE cxios_set_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 74 USE ISO_C_BINDING 75 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 76 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: cell_methods_mode 77 INTEGER (kind = C_INT) , VALUE :: cell_methods_mode_size 78 END SUBROUTINE cxios_set_fieldgroup_cell_methods_mode 79 80 SUBROUTINE cxios_get_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 81 USE ISO_C_BINDING 82 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 83 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: cell_methods_mode 84 INTEGER (kind = C_INT) , VALUE :: cell_methods_mode_size 85 END SUBROUTINE cxios_get_fieldgroup_cell_methods_mode 86 87 FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode(fieldgroup_hdl) BIND(C) 88 USE ISO_C_BINDING 89 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods_mode 90 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 91 END FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode 92 93 52 94 SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 53 95 USE ISO_C_BINDING … … 147 189 148 190 191 SUBROUTINE cxios_set_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C) 192 USE ISO_C_BINDING 193 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 194 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: expr 195 INTEGER (kind = C_INT) , VALUE :: expr_size 196 END SUBROUTINE cxios_set_fieldgroup_expr 197 198 SUBROUTINE cxios_get_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C) 199 USE ISO_C_BINDING 200 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 201 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: expr 202 INTEGER (kind = C_INT) , VALUE :: expr_size 203 END SUBROUTINE cxios_get_fieldgroup_expr 204 205 FUNCTION cxios_is_defined_fieldgroup_expr(fieldgroup_hdl) BIND(C) 206 USE ISO_C_BINDING 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_expr 208 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 209 END FUNCTION cxios_is_defined_fieldgroup_expr 210 211 149 212 SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C) 150 213 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.