- Timestamp:
- 11/04/15 15:50:20 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r674 r779 212 212 213 213 214 SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C) 215 USE ISO_C_BINDING 216 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 217 INTEGER (KIND=C_INT) , VALUE :: n_distributed_partition 218 END SUBROUTINE cxios_set_axisgroup_n_distributed_partition 219 220 SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C) 221 USE ISO_C_BINDING 222 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 223 INTEGER (KIND=C_INT) :: n_distributed_partition 224 END SUBROUTINE cxios_get_axisgroup_n_distributed_partition 225 226 FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C) 227 USE ISO_C_BINDING 228 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition 229 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 230 END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition 231 232 214 233 SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C) 215 234 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.