MODULE IAXIS
   USE, INTRINSIC :: ISO_C_BINDING
   USE AXIS_INTERFACE
   USE AXISGROUP_INTERFACE
   
   TYPE XAxisHandle
      INTEGER(kind = C_INTPTR_T) :: daddr
   END TYPE XAxisHandle
   
   TYPE XAxisGroupHandle
      INTEGER(kind = C_INTPTR_T) :: daddr
   END TYPE XAxisGroupHandle
   
   !----------------------------------------------------------------------------
   INTERFACE set_axis_attributes
      MODULE PROCEDURE set_axis_attributes_id,set_axis_attributes_hdl
   END INTERFACE  
   
   INTERFACE set_axis_group_attributes
      MODULE PROCEDURE set_axisgroup_attributes_id,set_axisgroup_attributes_hdl
   END INTERFACE  
   !----------------------------------------------------------------------------
     
   CONTAINS ! Fonctions disponibles pour les utilisateurs.

   SUBROUTINE set_axis_attributes_id(axis_id, name_, standard_name_, long_name_, unit_, size_, zvalue_)
      IMPLICIT NONE
      TYPE(XAxisHandle)                                      :: axis_hdl
      CHARACTER(len = *)                        , INTENT(IN) :: axis_id
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_
      INTEGER                         , OPTIONAL, INTENT(IN) :: size_
      REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:)
      
      CALL axis_handle_create(axis_hdl, axis_id)
      CALL set_axis_attributes_hdl(axis_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_)

   END SUBROUTINE set_axis_attributes_id

   SUBROUTINE set_axis_attributes_hdl(axis_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_)
      IMPLICIT NONE
      TYPE(XAxisHandle)                         , INTENT(IN) :: axis_hdl
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_
      INTEGER                         , OPTIONAL, INTENT(IN) :: size_
      REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:)
      
      IF (PRESENT(name_))           THEN
         CALL xios_set_axis_name(axis_hdl%daddr, name_, len(name_))
      END IF
      IF (PRESENT(standard_name_))  THEN
         CALL xios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
      END IF
      IF (PRESENT(long_name_))      THEN
         CALL xios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
      END IF
      IF (PRESENT(unit_))           THEN
         CALL xios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
      END IF
      IF (PRESENT(size_))           THEN
         CALL xios_set_axis_size(axis_hdl%daddr, size_)
      END IF
      IF (PRESENT(zvalue_))         THEN
         CALL xios_set_axis_zvalue(axis_hdl%daddr, zvalue_, size(zvalue_, 1))
      END IF
   END SUBROUTINE set_axis_attributes_hdl
   
   SUBROUTINE set_axisgroup_attributes_id(axisgroup_id, name_, standard_name_, long_name_, unit_, size_, zvalue_)
      IMPLICIT NONE
      TYPE(XAxisGroupHandle)                                 :: axisgroup_hdl
      CHARACTER(len = *)                        , INTENT(IN) :: axisgroup_id
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_
      INTEGER                         , OPTIONAL, INTENT(IN) :: size_
      REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:)
      
      CALL axisgroup_handle_create(axisgroup_hdl, axisgroup_id)
      CALL set_axisgroup_attributes_hdl(axisgroup_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_)

   END SUBROUTINE set_axisgroup_attributes_id
   
   SUBROUTINE set_axisgroup_attributes_hdl(axisgroup_hdl, name_, standard_name_, long_name_, unit_, size_, zvalue_)
      IMPLICIT NONE
      TYPE(XAxisGroupHandle)                    , INTENT(IN) :: axisgroup_hdl
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: standard_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: long_name_
      CHARACTER(len = *)              , OPTIONAL, INTENT(IN) :: unit_
      INTEGER                         , OPTIONAL, INTENT(IN) :: size_
      REAL    (kind = 8), dimension(*), OPTIONAL, INTENT(IN) :: zvalue_(:)
      
      IF (PRESENT(name_))           THEN
         CALL xios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
      END IF
      IF (PRESENT(standard_name_))  THEN
         CALL xios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
      END IF
      IF (PRESENT(long_name_))      THEN
         CALL xios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
      END IF
      IF (PRESENT(unit_))           THEN
         CALL xios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
      END IF
      IF (PRESENT(size_))           THEN
         CALL xios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
      END IF
      IF (PRESENT(zvalue_))         THEN
         CALL xios_set_axisgroup_zvalue(axisgroup_hdl%daddr, zvalue_, size(zvalue_, 1))
      END IF
   END SUBROUTINE set_axisgroup_attributes_hdl

   SUBROUTINE axis_handle_create(ret, idt)
      IMPLICIT NONE
      TYPE(XAxisHandle) , INTENT(OUT):: ret
      CHARACTER(len = *), INTENT(IN) :: idt      
      CALL xios_axis_handle_create(ret%daddr, idt, len(idt))            
   END SUBROUTINE axis_handle_create
   
   SUBROUTINE axisgroup_handle_create(ret, idt)
      IMPLICIT NONE
      TYPE(XAxisGroupHandle), INTENT(OUT):: ret
      CHARACTER(len = *)    , INTENT(IN) :: idt      
      CALL xios_axisgroup_handle_create(ret%daddr, idt, len(idt))            
   END SUBROUTINE axisgroup_handle_create

   LOGICAL FUNCTION axis_valid_id(idt)
      IMPLICIT NONE
      CHARACTER(len  = *)    , INTENT(IN) :: idt
      LOGICAL  (kind = 1)                 :: val
      CALL xios_axis_valid_id(val, idt, len(idt));
      axis_valid_id = val
   END FUNCTION  axis_valid_id

   LOGICAL FUNCTION axisgroup_valid_id(idt)
      IMPLICIT NONE
      CHARACTER(len  = *)    , INTENT(IN) :: idt
      LOGICAL  (kind = 1)                 :: val
      CALL xios_axisgroup_valid_id(val, idt, len(idt));
      axisgroup_valid_id = val
   END FUNCTION  axisgroup_valid_id

END MODULE IAXIS