hdf5_ep

!****h* root/fortran/test/tH5S.f90

!

! NAME

!  tH5S.f90

!

! FUNCTION

!  Basic testing of Fortran H5S, Dataspace Interface, APIs.

!

! 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.                                                        *

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

!

! NOTES

!  Tests the following functionalities:

!   h5screate_f, h5scopy_f, h5screate_simple_f, h5sis_simple_f,

!   h5sget_simple_extent_dims_f,h5sget_simple_extent_ndims_f

!   h5sget_simple_extent_npoints_f, h5sget_simple_extent_type_f,

!   h5sextent_copy_f, h5sset_extent_simple_f, h5sset_extent_none_f

!

! CONTAINS SUBROUTINES

!  dataspace_basic_test

!

!*****

MODULE TH5S

​

  USE HDF5 ! This module contains all necessary modules

  USE TH5_MISC

  USE TH5_MISC_GEN

​

CONTAINS

​

        SUBROUTINE dataspace_basic_test(cleanup, total_error)

​

​

          IMPLICIT NONE

          LOGICAL, INTENT(IN)  :: cleanup

          INTEGER, INTENT(INOUT) :: total_error

​

          CHARACTER(LEN=10), PARAMETER :: filename1 = "basicspace" ! File1 name

          CHARACTER(LEN=9), PARAMETER :: filename2 = "copyspace"  ! File2 name

          CHARACTER(LEN=80) :: fix_filename1