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

MODULE iexpand_domain_attr
  USE, INTRINSIC :: ISO_C_BINDING
  USE iexpand_domain
  USE expand_domain_interface_attr

CONTAINS

  SUBROUTINE xios(set_expand_domain_attr)  &
    ( expand_domain_id, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain))  :: expand_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id
      LOGICAL  , OPTIONAL, INTENT(IN) :: i_periodic
      LOGICAL (KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL  , OPTIONAL, INTENT(IN) :: j_periodic
      LOGICAL (KIND=C_BOOL) :: j_periodic_tmp
      INTEGER  , OPTIONAL, INTENT(IN) :: order
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type

      CALL xios(get_expand_domain_handle) &
      (expand_domain_id,expand_domain_hdl)
      CALL xios(set_expand_domain_attr_hdl_)   &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(set_expand_domain_attr)

  SUBROUTINE xios(set_expand_domain_attr_hdl)  &
    ( expand_domain_hdl, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL  , OPTIONAL, INTENT(IN) :: i_periodic
      LOGICAL (KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL  , OPTIONAL, INTENT(IN) :: j_periodic
      LOGICAL (KIND=C_BOOL) :: j_periodic_tmp
      INTEGER  , OPTIONAL, INTENT(IN) :: order
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type

      CALL xios(set_expand_domain_attr_hdl_)  &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(set_expand_domain_attr_hdl)

  SUBROUTINE xios(set_expand_domain_attr_hdl_)   &
    ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL  , OPTIONAL, INTENT(IN) :: i_periodic_
      LOGICAL (KIND=C_BOOL) :: i_periodic__tmp
      LOGICAL  , OPTIONAL, INTENT(IN) :: j_periodic_
      LOGICAL (KIND=C_BOOL) :: j_periodic__tmp
      INTEGER  , OPTIONAL, INTENT(IN) :: order_
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_

      IF (PRESENT(i_periodic_)) THEN
        i_periodic__tmp = i_periodic_
        CALL cxios_set_expand_domain_i_periodic &
      (expand_domain_hdl%daddr, i_periodic__tmp)
      ENDIF

      IF (PRESENT(j_periodic_)) THEN
        j_periodic__tmp = j_periodic_
        CALL cxios_set_expand_domain_j_periodic &
      (expand_domain_hdl%daddr, j_periodic__tmp)
      ENDIF

      IF (PRESENT(order_)) THEN
        CALL cxios_set_expand_domain_order &
      (expand_domain_hdl%daddr, order_)
      ENDIF

      IF (PRESENT(type_)) THEN
        CALL cxios_set_expand_domain_type &
      (expand_domain_hdl%daddr, type_, len(type_))
      ENDIF

  END SUBROUTINE xios(set_expand_domain_attr_hdl_)

  SUBROUTINE xios(get_expand_domain_attr)  &
    ( expand_domain_id, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain))  :: expand_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id
      LOGICAL  , OPTIONAL, INTENT(OUT) :: i_periodic
      LOGICAL (KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL  , OPTIONAL, INTENT(OUT) :: j_periodic
      LOGICAL (KIND=C_BOOL) :: j_periodic_tmp
      INTEGER  , OPTIONAL, INTENT(OUT) :: order
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type

      CALL xios(get_expand_domain_handle) &
      (expand_domain_id,expand_domain_hdl)
      CALL xios(get_expand_domain_attr_hdl_)   &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(get_expand_domain_attr)

  SUBROUTINE xios(get_expand_domain_attr_hdl)  &
    ( expand_domain_hdl, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL  , OPTIONAL, INTENT(OUT) :: i_periodic
      LOGICAL (KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL  , OPTIONAL, INTENT(OUT) :: j_periodic
      LOGICAL (KIND=C_BOOL) :: j_periodic_tmp
      INTEGER  , OPTIONAL, INTENT(OUT) :: order
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type

      CALL xios(get_expand_domain_attr_hdl_)  &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(get_expand_domain_attr_hdl)

  SUBROUTINE xios(get_expand_domain_attr_hdl_)   &
    ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL  , OPTIONAL, INTENT(OUT) :: i_periodic_
      LOGICAL (KIND=C_BOOL) :: i_periodic__tmp
      LOGICAL  , OPTIONAL, INTENT(OUT) :: j_periodic_
      LOGICAL (KIND=C_BOOL) :: j_periodic__tmp
      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_

      IF (PRESENT(i_periodic_)) THEN
        CALL cxios_get_expand_domain_i_periodic &
      (expand_domain_hdl%daddr, i_periodic__tmp)
        i_periodic_ = i_periodic__tmp
      ENDIF

      IF (PRESENT(j_periodic_)) THEN
        CALL cxios_get_expand_domain_j_periodic &
      (expand_domain_hdl%daddr, j_periodic__tmp)
        j_periodic_ = j_periodic__tmp
      ENDIF

      IF (PRESENT(order_)) THEN
        CALL cxios_get_expand_domain_order &
      (expand_domain_hdl%daddr, order_)
      ENDIF

      IF (PRESENT(type_)) THEN
        CALL cxios_get_expand_domain_type &
      (expand_domain_hdl%daddr, type_, len(type_))
      ENDIF

  END SUBROUTINE xios(get_expand_domain_attr_hdl_)

  SUBROUTINE xios(is_defined_expand_domain_attr)  &
    ( expand_domain_id, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain))  :: expand_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id
      LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic
      LOGICAL(KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic
      LOGICAL(KIND=C_BOOL) :: j_periodic_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order
      LOGICAL(KIND=C_BOOL) :: order_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: type
      LOGICAL(KIND=C_BOOL) :: type_tmp

      CALL xios(get_expand_domain_handle) &
      (expand_domain_id,expand_domain_hdl)
      CALL xios(is_defined_expand_domain_attr_hdl_)   &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(is_defined_expand_domain_attr)

  SUBROUTINE xios(is_defined_expand_domain_attr_hdl)  &
    ( expand_domain_hdl, i_periodic, j_periodic, order, type )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic
      LOGICAL(KIND=C_BOOL) :: i_periodic_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic
      LOGICAL(KIND=C_BOOL) :: j_periodic_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order
      LOGICAL(KIND=C_BOOL) :: order_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: type
      LOGICAL(KIND=C_BOOL) :: type_tmp

      CALL xios(is_defined_expand_domain_attr_hdl_)  &
      ( expand_domain_hdl, i_periodic, j_periodic, order, type )

  END SUBROUTINE xios(is_defined_expand_domain_attr_hdl)

  SUBROUTINE xios(is_defined_expand_domain_attr_hdl_)   &
    ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ )

    IMPLICIT NONE
      TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl
      LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic_
      LOGICAL(KIND=C_BOOL) :: i_periodic__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic_
      LOGICAL(KIND=C_BOOL) :: j_periodic__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
      LOGICAL(KIND=C_BOOL) :: order__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
      LOGICAL(KIND=C_BOOL) :: type__tmp

      IF (PRESENT(i_periodic_)) THEN
        i_periodic__tmp = cxios_is_defined_expand_domain_i_periodic &
      (expand_domain_hdl%daddr)
        i_periodic_ = i_periodic__tmp
      ENDIF

      IF (PRESENT(j_periodic_)) THEN
        j_periodic__tmp = cxios_is_defined_expand_domain_j_periodic &
      (expand_domain_hdl%daddr)
        j_periodic_ = j_periodic__tmp
      ENDIF

      IF (PRESENT(order_)) THEN
        order__tmp = cxios_is_defined_expand_domain_order &
      (expand_domain_hdl%daddr)
        order_ = order__tmp
      ENDIF

      IF (PRESENT(type_)) THEN
        type__tmp = cxios_is_defined_expand_domain_type &
      (expand_domain_hdl%daddr)
        type_ = type__tmp
      ENDIF

  END SUBROUTINE xios(is_defined_expand_domain_attr_hdl_)

END MODULE iexpand_domain_attr