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

MODULE iinterpolate_domain_attr
  USE, INTRINSIC :: ISO_C_BINDING
  USE iinterpolate_domain
  USE interpolate_domain_interface_attr

CONTAINS

  SUBROUTINE xios(set_interpolate_domain_attr)  &
    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
      INTEGER  , OPTIONAL, INTENT(IN) :: order
      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
      LOGICAL (KIND=C_BOOL) :: write_weight_tmp

      CALL xios(get_interpolate_domain_handle) &
      (interpolate_domain_id,interpolate_domain_hdl)
      CALL xios(set_interpolate_domain_attr_hdl_)   &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(set_interpolate_domain_attr)

  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
      INTEGER  , OPTIONAL, INTENT(IN) :: order
      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
      LOGICAL (KIND=C_BOOL) :: write_weight_tmp

      CALL xios(set_interpolate_domain_attr_hdl_)  &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)

  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
      INTEGER  , OPTIONAL, INTENT(IN) :: order_
      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
      LOGICAL (KIND=C_BOOL) :: write_weight__tmp

      IF (PRESENT(mode_)) THEN
        CALL cxios_set_interpolate_domain_mode &
      (interpolate_domain_hdl%daddr, mode_, len(mode_))
      ENDIF

      IF (PRESENT(order_)) THEN
        CALL cxios_set_interpolate_domain_order &
      (interpolate_domain_hdl%daddr, order_)
      ENDIF

      IF (PRESENT(renormalize_)) THEN
        renormalize__tmp = renormalize_
        CALL cxios_set_interpolate_domain_renormalize &
      (interpolate_domain_hdl%daddr, renormalize__tmp)
      ENDIF

      IF (PRESENT(weight_filename_)) THEN
        CALL cxios_set_interpolate_domain_weight_filename &
      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
      ENDIF

      IF (PRESENT(write_weight_)) THEN
        write_weight__tmp = write_weight_
        CALL cxios_set_interpolate_domain_write_weight &
      (interpolate_domain_hdl%daddr, write_weight__tmp)
      ENDIF

  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)

  SUBROUTINE xios(get_interpolate_domain_attr)  &
    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
      INTEGER  , OPTIONAL, INTENT(OUT) :: order
      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
      LOGICAL (KIND=C_BOOL) :: write_weight_tmp

      CALL xios(get_interpolate_domain_handle) &
      (interpolate_domain_id,interpolate_domain_hdl)
      CALL xios(get_interpolate_domain_attr_hdl_)   &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(get_interpolate_domain_attr)

  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
      INTEGER  , OPTIONAL, INTENT(OUT) :: order
      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
      LOGICAL (KIND=C_BOOL) :: write_weight_tmp

      CALL xios(get_interpolate_domain_attr_hdl_)  &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)

  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
      LOGICAL (KIND=C_BOOL) :: write_weight__tmp

      IF (PRESENT(mode_)) THEN
        CALL cxios_get_interpolate_domain_mode &
      (interpolate_domain_hdl%daddr, mode_, len(mode_))
      ENDIF

      IF (PRESENT(order_)) THEN
        CALL cxios_get_interpolate_domain_order &
      (interpolate_domain_hdl%daddr, order_)
      ENDIF

      IF (PRESENT(renormalize_)) THEN
        CALL cxios_get_interpolate_domain_renormalize &
      (interpolate_domain_hdl%daddr, renormalize__tmp)
        renormalize_ = renormalize__tmp
      ENDIF

      IF (PRESENT(weight_filename_)) THEN
        CALL cxios_get_interpolate_domain_weight_filename &
      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
      ENDIF

      IF (PRESENT(write_weight_)) THEN
        CALL cxios_get_interpolate_domain_write_weight &
      (interpolate_domain_hdl%daddr, write_weight__tmp)
        write_weight_ = write_weight__tmp
      ENDIF

  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)

  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
    ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
      LOGICAL(KIND=C_BOOL) :: mode_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order
      LOGICAL(KIND=C_BOOL) :: order_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
      LOGICAL(KIND=C_BOOL) :: write_weight_tmp

      CALL xios(get_interpolate_domain_handle) &
      (interpolate_domain_id,interpolate_domain_hdl)
      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(is_defined_interpolate_domain_attr)

  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
    ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
      LOGICAL(KIND=C_BOOL) :: mode_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order
      LOGICAL(KIND=C_BOOL) :: order_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
      LOGICAL(KIND=C_BOOL) :: write_weight_tmp

      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
      ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight )

  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)

  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
    ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ )

    IMPLICIT NONE
      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
      LOGICAL(KIND=C_BOOL) :: mode__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
      LOGICAL(KIND=C_BOOL) :: order__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
      LOGICAL(KIND=C_BOOL) :: write_weight__tmp

      IF (PRESENT(mode_)) THEN
        mode__tmp = cxios_is_defined_interpolate_domain_mode &
      (interpolate_domain_hdl%daddr)
        mode_ = mode__tmp
      ENDIF

      IF (PRESENT(order_)) THEN
        order__tmp = cxios_is_defined_interpolate_domain_order &
      (interpolate_domain_hdl%daddr)
        order_ = order__tmp
      ENDIF

      IF (PRESENT(renormalize_)) THEN
        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
      (interpolate_domain_hdl%daddr)
        renormalize_ = renormalize__tmp
      ENDIF

      IF (PRESENT(weight_filename_)) THEN
        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
      (interpolate_domain_hdl%daddr)
        weight_filename_ = weight_filename__tmp
      ENDIF

      IF (PRESENT(write_weight_)) THEN
        write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
      (interpolate_domain_hdl%daddr)
        write_weight_ = write_weight__tmp
      ENDIF

  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)

END MODULE iinterpolate_domain_attr