- Timestamp:
- 11/04/15 15:50:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90
r674 r779 191 191 192 192 193 SUBROUTINE cxios_set_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C) 194 USE ISO_C_BINDING 195 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 196 INTEGER (KIND=C_INT) , VALUE :: n_distributed_partition 197 END SUBROUTINE cxios_set_axis_n_distributed_partition 198 199 SUBROUTINE cxios_get_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C) 200 USE ISO_C_BINDING 201 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 202 INTEGER (KIND=C_INT) :: n_distributed_partition 203 END SUBROUTINE cxios_get_axis_n_distributed_partition 204 205 FUNCTION cxios_is_defined_axis_n_distributed_partition(axis_hdl) BIND(C) 206 USE ISO_C_BINDING 207 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_distributed_partition 208 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 209 END FUNCTION cxios_is_defined_axis_n_distributed_partition 210 211 193 212 SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C) 194 213 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.