- Timestamp:
- 01/26/16 18:19:09 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r779 r817 151 151 152 152 153 SUBROUTINE cxios_set_axisgroup_index(axisgroup_hdl, index, extent) BIND(C) 154 USE ISO_C_BINDING 155 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 156 INTEGER (KIND=C_INT) , DIMENSION(*) :: index 157 INTEGER (kind = C_INT), DIMENSION(*) :: extent 158 END SUBROUTINE cxios_set_axisgroup_index 159 160 SUBROUTINE cxios_get_axisgroup_index(axisgroup_hdl, index, extent) BIND(C) 161 USE ISO_C_BINDING 162 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 163 INTEGER (KIND=C_INT) , DIMENSION(*) :: index 164 INTEGER (kind = C_INT), DIMENSION(*) :: extent 165 END SUBROUTINE cxios_get_axisgroup_index 166 167 FUNCTION cxios_is_defined_axisgroup_index(axisgroup_hdl) BIND(C) 168 USE ISO_C_BINDING 169 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_index 170 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 171 END FUNCTION cxios_is_defined_axisgroup_index 172 173 153 174 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 154 175 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.