source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/reorder_domain_interface_attr.F90 @ 2338

! * ************************************************************************** *
! *               Interface auto generated - do not modify                     *
! * ************************************************************************** *
#include "../fortran/xios_fortran_prefix.hpp"

MODULE reorder_domain_interface_attr
  USE, INTRINSIC :: ISO_C_BINDING

  INTERFACE
    ! Do not call directly / interface FORTRAN 2003 <-> C99

    SUBROUTINE cxios_set_reorder_domain_invert_lat(reorder_domain_hdl, invert_lat) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      LOGICAL (KIND=C_BOOL)      , VALUE :: invert_lat
    END SUBROUTINE cxios_set_reorder_domain_invert_lat

    SUBROUTINE cxios_get_reorder_domain_invert_lat(reorder_domain_hdl, invert_lat) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      LOGICAL (KIND=C_BOOL)             :: invert_lat
    END SUBROUTINE cxios_get_reorder_domain_invert_lat

    FUNCTION cxios_is_defined_reorder_domain_invert_lat(reorder_domain_hdl) BIND(C)
      USE ISO_C_BINDING
      LOGICAL(kind=C_BOOL) :: cxios_is_defined_reorder_domain_invert_lat
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
    END FUNCTION cxios_is_defined_reorder_domain_invert_lat


    SUBROUTINE cxios_set_reorder_domain_max_lon(reorder_domain_hdl, max_lon) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)      , VALUE :: max_lon
    END SUBROUTINE cxios_set_reorder_domain_max_lon

    SUBROUTINE cxios_get_reorder_domain_max_lon(reorder_domain_hdl, max_lon) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)             :: max_lon
    END SUBROUTINE cxios_get_reorder_domain_max_lon

    FUNCTION cxios_is_defined_reorder_domain_max_lon(reorder_domain_hdl) BIND(C)
      USE ISO_C_BINDING
      LOGICAL(kind=C_BOOL) :: cxios_is_defined_reorder_domain_max_lon
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
    END FUNCTION cxios_is_defined_reorder_domain_max_lon


    SUBROUTINE cxios_set_reorder_domain_min_lon(reorder_domain_hdl, min_lon) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)      , VALUE :: min_lon
    END SUBROUTINE cxios_set_reorder_domain_min_lon

    SUBROUTINE cxios_get_reorder_domain_min_lon(reorder_domain_hdl, min_lon) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)             :: min_lon
    END SUBROUTINE cxios_get_reorder_domain_min_lon

    FUNCTION cxios_is_defined_reorder_domain_min_lon(reorder_domain_hdl) BIND(C)
      USE ISO_C_BINDING
      LOGICAL(kind=C_BOOL) :: cxios_is_defined_reorder_domain_min_lon
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
    END FUNCTION cxios_is_defined_reorder_domain_min_lon


    SUBROUTINE cxios_set_reorder_domain_shift_lon_fraction(reorder_domain_hdl, shift_lon_fraction) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)      , VALUE :: shift_lon_fraction
    END SUBROUTINE cxios_set_reorder_domain_shift_lon_fraction

    SUBROUTINE cxios_get_reorder_domain_shift_lon_fraction(reorder_domain_hdl, shift_lon_fraction) BIND(C)
      USE ISO_C_BINDING
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
      REAL (KIND=C_DOUBLE)             :: shift_lon_fraction
    END SUBROUTINE cxios_get_reorder_domain_shift_lon_fraction

    FUNCTION cxios_is_defined_reorder_domain_shift_lon_fraction(reorder_domain_hdl) BIND(C)
      USE ISO_C_BINDING
      LOGICAL(kind=C_BOOL) :: cxios_is_defined_reorder_domain_shift_lon_fraction
      INTEGER (kind = C_INTPTR_T), VALUE :: reorder_domain_hdl
    END FUNCTION cxios_is_defined_reorder_domain_shift_lon_fraction

  END INTERFACE

END MODULE reorder_domain_interface_attr