hdf5_chunking_query_bmr

!****h* ROBODoc/H5GLOBAL

!

! NAME

!  MODULE H5GLOBAL

!

! FILE

!  src/fortran/H5f90global.F90

!

! PURPOSE

!  This module is used to pass C stubs for H5 Fortran APIs. The C stubs are

!  packed into arrays in H5_f.c and these arrays are then passed to Fortran.

!  This module then uses EQUIVALENCE to assign elements of the arrays to

!  Fortran equivalent C stubs.

!

! NOTES

!  The size of the C arrays in H5_f.c has to match the values of the variables

!  declared as PARAMETER, hence if the size of an array in H5_f.c is changed

!  then the PARAMETER of that corresponding array in Fortran must also be changed.

!

! USES

!  H5FORTRAN_TYPES   - This module is generated at run time. See

!

! COPYRIGHT

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!   Copyright by The HDF Group.                                               *

!   Copyright by the Board of Trustees of the University of Illinois.         *

!   All rights reserved.                                                      *

!                                                                             *

!   This file is part of HDF5.  The full HDF5 copyright notice, including     *

!   terms governing use, modification, and redistribution, is contained in    *

!   the COPYING file, which can be found at the root of the source code       *

!   distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.  *

!   If you do not have access to either file, you may request a copy from     *

!   help@hdfgroup.org.                                                        *

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!

! AUTHOR

!  Elena Pourmal

!

!*****

​

MODULE H5GLOBAL

  USE H5FORTRAN_TYPES

​

  IMPLICIT NONE

​

  ! Enumerate data type that is interoperable with C.

  ENUM, BIND(C)

    ENUMERATOR :: enum_dtype

  END ENUM

  INTEGER, PARAMETER :: ENUM_T = KIND(enum_dtype)