- Timestamp:
- 06/05/15 16:42:18 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r581 r609 31 31 32 32 33 SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C) 34 USE ISO_C_BINDING 35 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 36 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 37 INTEGER (kind = C_INT), VALUE :: extent1 38 INTEGER (kind = C_INT), VALUE :: extent2 39 END SUBROUTINE cxios_set_axisgroup_bounds 40 41 SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C) 42 USE ISO_C_BINDING 43 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 44 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: bounds 45 INTEGER (kind = C_INT), VALUE :: extent1 46 INTEGER (kind = C_INT), VALUE :: extent2 47 END SUBROUTINE cxios_get_axisgroup_bounds 48 49 FUNCTION cxios_is_defined_axisgroup_bounds(axisgroup_hdl) BIND(C) 50 USE ISO_C_BINDING 51 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds 52 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 53 END FUNCTION cxios_is_defined_axisgroup_bounds 54 55 33 56 SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C) 34 57 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.