Ignore:
Timestamp:
11/04/15 15:50:20 (8 years ago)
Author:
rlacroix
Message:

Update the Fortran API.

It had been forgotten in recent changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90

    r674 r779  
    191191 
    192192 
     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 
    193212    SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C) 
    194213      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.