- Timestamp:
- 02/11/15 16:47:47 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r546 r555 31 31 32 32 33 SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 36 INTEGER (KIND=C_INT) , VALUE :: data_begin 37 END SUBROUTINE cxios_set_axisgroup_data_begin 38 39 SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 40 USE ISO_C_BINDING 41 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 42 INTEGER (KIND=C_INT) :: data_begin 43 END SUBROUTINE cxios_get_axisgroup_data_begin 44 45 FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl ) BIND(C) 46 USE ISO_C_BINDING 47 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin 48 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 49 END FUNCTION cxios_is_defined_axisgroup_data_begin 50 51 52 SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 53 USE ISO_C_BINDING 54 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 55 INTEGER (KIND=C_INT) , DIMENSION(*) :: data_index 56 INTEGER (kind = C_INT), VALUE :: extent1 57 END SUBROUTINE cxios_set_axisgroup_data_index 58 59 SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C) 60 USE ISO_C_BINDING 61 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 62 INTEGER (KIND=C_INT) , DIMENSION(*) :: data_index 63 INTEGER (kind = C_INT), VALUE :: extent1 64 END SUBROUTINE cxios_get_axisgroup_data_index 65 66 FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl ) BIND(C) 67 USE ISO_C_BINDING 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index 69 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 70 END FUNCTION cxios_is_defined_axisgroup_data_index 71 72 73 SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 74 USE ISO_C_BINDING 75 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 76 INTEGER (KIND=C_INT) , VALUE :: data_n 77 END SUBROUTINE cxios_set_axisgroup_data_n 78 79 SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C) 80 USE ISO_C_BINDING 81 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 82 INTEGER (KIND=C_INT) :: data_n 83 END SUBROUTINE cxios_get_axisgroup_data_n 84 85 FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl ) BIND(C) 86 USE ISO_C_BINDING 87 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n 88 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 89 END FUNCTION cxios_is_defined_axisgroup_data_n 90 91 33 92 SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C) 34 93 USE ISO_C_BINDING … … 52 111 53 112 113 SUBROUTINE cxios_set_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 114 USE ISO_C_BINDING 115 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 116 INTEGER (KIND=C_INT) , VALUE :: ibegin 117 END SUBROUTINE cxios_set_axisgroup_ibegin 118 119 SUBROUTINE cxios_get_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 120 USE ISO_C_BINDING 121 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 122 INTEGER (KIND=C_INT) :: ibegin 123 END SUBROUTINE cxios_get_axisgroup_ibegin 124 125 FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl ) BIND(C) 126 USE ISO_C_BINDING 127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ibegin 128 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 129 END FUNCTION cxios_is_defined_axisgroup_ibegin 130 131 54 132 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 55 133 USE ISO_C_BINDING … … 73 151 74 152 153 SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 154 USE ISO_C_BINDING 155 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 156 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 157 INTEGER (kind = C_INT), VALUE :: extent1 158 END SUBROUTINE cxios_set_axisgroup_mask 159 160 SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C) 161 USE ISO_C_BINDING 162 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 163 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 164 INTEGER (kind = C_INT), VALUE :: extent1 165 END SUBROUTINE cxios_get_axisgroup_mask 166 167 FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl ) BIND(C) 168 USE ISO_C_BINDING 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask 170 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 171 END FUNCTION cxios_is_defined_axisgroup_mask 172 173 75 174 SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 76 175 USE ISO_C_BINDING … … 94 193 95 194 195 SUBROUTINE cxios_set_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 196 USE ISO_C_BINDING 197 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 198 INTEGER (KIND=C_INT) , VALUE :: ni 199 END SUBROUTINE cxios_set_axisgroup_ni 200 201 SUBROUTINE cxios_get_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 202 USE ISO_C_BINDING 203 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 204 INTEGER (KIND=C_INT) :: ni 205 END SUBROUTINE cxios_get_axisgroup_ni 206 207 FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl ) BIND(C) 208 USE ISO_C_BINDING 209 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ni 210 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 211 END FUNCTION cxios_is_defined_axisgroup_ni 212 213 96 214 SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 97 215 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.