! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
!   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 files COPYING and Copyright.html.  COPYING can be found at the root   *
!   of the source code distribution tree; Copyright.html can be found at the  *
!   root level of an installed copy of the electronic HDF5 document set and   *
!   is linked from the top-level documents page.  It can also be found at     *
!   http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
!   access to either file, you may request a copy from help@hdfgroup.org.     *
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
!
!
! This file contains FORTRAN90 interfaces for H5LT functions
!

module h5lt
use h5fortran_types
use hdf5 

interface h5ltmake_dataset_f
 module procedure h5ltmake_dataset_f_int1
 module procedure h5ltmake_dataset_f_int2
 module procedure h5ltmake_dataset_f_int3
 module procedure h5ltmake_dataset_f_float1
 module procedure h5ltmake_dataset_f_float2
 module procedure h5ltmake_dataset_f_float3
 module procedure h5ltmake_dataset_f_double1
 module procedure h5ltmake_dataset_f_double2
 module procedure h5ltmake_dataset_f_double3
end interface

interface h5ltread_dataset_f
 module procedure h5ltread_dataset_f_int1
 module procedure h5ltread_dataset_f_int2
 module procedure h5ltread_dataset_f_int3
 module procedure h5ltread_dataset_f_float1
 module procedure h5ltread_dataset_f_float2
 module procedure h5ltread_dataset_f_float3
 module procedure h5ltread_dataset_f_double1
 module procedure h5ltread_dataset_f_double2
 module procedure h5ltread_dataset_f_double3
end interface

interface h5ltmake_dataset_int_f
 module procedure h5ltmake_dataset_int_f_1
 module procedure h5ltmake_dataset_int_f_2
 module procedure h5ltmake_dataset_int_f_3
end interface

interface h5ltmake_dataset_float_f
 module procedure h5ltmake_dataset_float_f_1
 module procedure h5ltmake_dataset_float_f_2
 module procedure h5ltmake_dataset_float_f_3
end interface

interface h5ltmake_dataset_double_f
 module procedure h5ltmake_dataset_double_f_1
 module procedure h5ltmake_dataset_double_f_2
 module procedure h5ltmake_dataset_double_f_3
end interface

interface h5ltread_dataset_int_f
 module procedure h5ltread_dataset_int_f_1
 module procedure h5ltread_dataset_int_f_2
 module procedure h5ltread_dataset_int_f_3
end interface

interface h5ltread_dataset_float_f
 module procedure h5ltread_dataset_float_f_1
 module procedure h5ltread_dataset_float_f_2
 module procedure h5ltread_dataset_float_f_3
end interface

interface h5ltread_dataset_double_f
 module procedure h5ltread_dataset_double_f_1
 module procedure h5ltread_dataset_double_f_2
 module procedure h5ltread_dataset_double_f_3
end interface

contains
!-------------------------------------------------------------------------
! Make/Read dataset functions
!-------------------------------------------------------------------------

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_int1
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_int1(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_int1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer, intent(in), dimension(*) :: buf           ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 
 interface
  integer function h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT1_C'::h5ltmake_dataset_int1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), dimension(*) :: buf                ! data buffer 
  end function h5ltmake_dataset_int1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_int1

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_int2
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_int2(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none 
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_int2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 
 
 interface
  integer function h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT2_C'::h5ltmake_dataset_int2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
  end function h5ltmake_dataset_int2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_int2

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_int3
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_int3(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_int3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
 
 interface
  integer function h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_INT3_C'::h5ltmake_dataset_int3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
  end function h5ltmake_dataset_int3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_int3


!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_float1
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_float1(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_float1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 real, intent(in), dimension(*) :: buf              ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 
 interface
  integer function h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL1_C'::h5ltmake_dataset_fl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), dimension(*) :: buf                   ! data buffer 
  end function h5ltmake_dataset_fl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_float1

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_float2
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_float2(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_float2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 
 
 interface
  integer function h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL2_C'::h5ltmake_dataset_fl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
  end function h5ltmake_dataset_fl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_float2

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_float3
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_float3(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_float3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
 
 interface
  integer function h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_FL3_C'::h5ltmake_dataset_fl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
  end function h5ltmake_dataset_fl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_float3

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_double1
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_double1(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_double1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 double precision, intent(in), dimension(*) :: buf  ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 
 interface
  integer function h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL1_C'::h5ltmake_dataset_dl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), dimension(*) :: buf       ! data buffer 
  end function h5ltmake_dataset_dl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_double1

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_double2
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_double2(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_double2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 
 
 interface
  integer function h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL2_C'::h5ltmake_dataset_dl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
  end function h5ltmake_dataset_dl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_double2

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_f_double3
!
! Purpose: Creates and writes a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 1, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_f_double3(loc_id,& 
                                dset_name,&
                                rank,& 
                                dims,&
                                type_id,&
                                buf,&
                                errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_f_double3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
 
 interface
  integer function h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_DL3_C'::h5ltmake_dataset_dl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
  end function h5ltmake_dataset_dl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)

end subroutine h5ltmake_dataset_f_double3



!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_int1
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_int1(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_int1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer, intent(inout), dimension(*) :: buf        ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT1_C'::h5ltread_dataset_int1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(HID_T),   intent(IN) :: loc_id                  ! file or group identifier
  integer(HID_T),   intent(IN) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(LEN=*), intent(IN) :: dset_name               ! name of the dataset 
  integer(HSIZE_T), dimension(*), intent(IN) :: dims      ! size of the bufffer buf  
  integer, intent(IN), dimension(*) :: buf                ! data buffer 
  end function h5ltread_dataset_int1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_int1

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_int2
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_int2(loc_id,& 
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
                                 errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_int2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 

 interface
  integer function h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT2_C'::h5ltread_dataset_int2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
  end function h5ltread_dataset_int2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_int2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_int3
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_int3(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_int3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_INT3_C'::h5ltread_dataset_int3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
  end function h5ltread_dataset_int3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_int3




!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_float1
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_float1(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_float1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 real, intent(inout), dimension(*) :: buf           ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL1_C'::h5ltread_dataset_fl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), dimension(*) :: buf                   ! data buffer 
  end function h5ltread_dataset_fl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_float1

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_float2
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_float2(loc_id,& 
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
                                 errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_float2
!DEC$endif
!


 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 

 interface
  integer function h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL2_C'::h5ltread_dataset_fl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
  end function h5ltread_dataset_fl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_float2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_float3
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_float3(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_float3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_FL3_C'::h5ltread_dataset_fl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
  end function h5ltread_dataset_fl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_float3


!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_double1
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_double1(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport ::h5ltread_dataset_f_double1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 double precision, intent(inout), dimension(*) :: buf ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL1_C'::h5ltread_dataset_dl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), dimension(*) :: buf       ! data buffer 
  end function h5ltread_dataset_dl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_double1

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_double2
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_double2(loc_id,& 
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
                                 errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_double2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 

 interface
  integer function h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL2_C'::h5ltread_dataset_dl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
  end function h5ltread_dataset_dl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_double2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_f_double3
!
! Purpose: Read a dataset of a type TYPE_ID
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_f_double3(loc_id,& 
                                dset_name,&
                                type_id,&
                                buf,&
                                dims,&
                                errcode )  

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_f_double3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_DL3_C'::h5ltread_dataset_dl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
  end function h5ltread_dataset_dl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)

end subroutine h5ltread_dataset_f_double3


!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_int_f_1
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_int_f_1 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_int_f_1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer, intent(in), dimension(*) :: buf           ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
            
 interface
  integer function h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT1_C'::h5ltmake_dataset_nint1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), dimension(*) :: buf                ! data buffer  
  end function h5ltmake_dataset_nint1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,h5t_native_integer,buf)

end subroutine h5ltmake_dataset_int_f_1

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_int_f_2
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_int_f_2 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_int_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 
 
            
 interface
  integer function h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT2_C'::h5ltmake_dataset_nint2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2)) :: buf                  ! data buffer 
  end function h5ltmake_dataset_nint2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf)

end subroutine h5ltmake_dataset_int_f_2


!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_int_f_3
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_int_f_3 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_int_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
 
            
 interface
  integer function h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NINT3_C'::h5ltmake_dataset_nint3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
  end function h5ltmake_dataset_nint3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf)

end subroutine h5ltmake_dataset_int_f_3



!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_float_f_1
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_float_f_1 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_float_f_1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 real, intent(in), dimension(*) :: buf              ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
            
 interface
  integer function h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL1_C'::h5ltmake_dataset_nfl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), dimension(*) :: buf                   ! data buffer  
  end function h5ltmake_dataset_nfl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)

end subroutine h5ltmake_dataset_float_f_1

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_float_f_2
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_float_f_2 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_float_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer
            
 interface
  integer function h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL2_C'::h5ltmake_dataset_nfl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2)) :: buf                  ! data buffer  
  end function h5ltmake_dataset_nfl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)

end subroutine h5ltmake_dataset_float_f_2

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_float_f_3
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_FLOAT type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_float_f_3 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_float_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
            
 interface
  integer function h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NFL3_C'::h5ltmake_dataset_nfl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
  end function h5ltmake_dataset_nfl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf)

end subroutine h5ltmake_dataset_float_f_3




!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_double_f_1
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_double_f_1 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_double_f_1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(in), &
 dimension(dims(1)) :: buf                          ! data buffer 
            
 interface
  integer function h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL1_C'::h5ltmake_dataset_ndl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1)) :: buf                               ! data buffer   
  end function h5ltmake_dataset_ndl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)

end subroutine h5ltmake_dataset_double_f_1


!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_double_f_2
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_double_f_2 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_double_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(in), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer 
            
 interface
  integer function h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL2_C'::h5ltmake_dataset_ndl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer   
  end function h5ltmake_dataset_ndl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)

end subroutine h5ltmake_dataset_double_f_2

!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_double_f_3
!
! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_double_f_3 (loc_id,& 
                                   dset_name,&
                                   rank,& 
                                   dims,&
                                   buf,&
                                   errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_double_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(in) :: rank               ! rank 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(in), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
            
 interface
  integer function h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_NDL3_C'::h5ltmake_dataset_ndl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(in) :: rank                    ! rank 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer    
  end function h5ltmake_dataset_ndl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)

end subroutine h5ltmake_dataset_double_f_3



!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_1
!
! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_int_f_1(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_int_f_1
!DEC$endif
!

 integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(inout), &
 dimension(dims(1)) :: buf                          ! data buffer  

 interface
  integer function h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT1_C'::h5ltread_dataset_nint1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(inout), &
  dimension(dims(1)) :: buf                               ! data buffer   
  end function h5ltread_dataset_nint1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims)

end subroutine h5ltread_dataset_int_f_1


!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_2
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_int_f_2(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_int_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer  

 interface
  integer function h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT2_C'::h5ltread_dataset_nint2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(inout), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
  end function h5ltread_dataset_nint2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims)

end subroutine h5ltread_dataset_int_f_2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_3
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_int_f_3(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_int_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NINT3_C'::h5ltread_dataset_nint3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  integer, intent(inout), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
  end function h5ltread_dataset_nint3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims)

end subroutine h5ltread_dataset_int_f_3


!-------------------------------------------------------------------------
! Function: h5ltread_dataset_float_f_1
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_float_f_1(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_float_f_1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(inout), &
 dimension(dims(1)) :: buf                          ! data buffer  

 interface
  integer function h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL1_C'::h5ltread_dataset_nfl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(inout), &
  dimension(dims(1)) :: buf                               ! data buffer   
  end function h5ltread_dataset_nfl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)

end subroutine h5ltread_dataset_float_f_1


!-------------------------------------------------------------------------
! Function: h5ltread_dataset_float_f_2
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_float_f_2(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_float_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer  

 interface
  integer function h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL2_C'::h5ltread_dataset_nfl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(inout), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
  end function h5ltread_dataset_nfl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)

end subroutine h5ltread_dataset_float_f_2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_float_f_3
!
! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_float_f_3(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_float_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 real, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NFL3_C'::h5ltread_dataset_nfl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  real, intent(inout), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
  end function h5ltread_dataset_nfl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims)

end subroutine h5ltread_dataset_float_f_3

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_1
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_double_f_1(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_double_f_1
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(inout), &
 dimension(dims(1)) :: buf                          ! data buffer  

 interface
  integer function h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL1_C'::h5ltread_dataset_ndl1_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(inout), &
  dimension(dims(1)) :: buf                               ! data buffer   
  end function h5ltread_dataset_ndl1_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)

end subroutine h5ltread_dataset_double_f_1


!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_2
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_double_f_2(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_double_f_2
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(inout), &
 dimension(dims(1),dims(2)) :: buf                  ! data buffer  

 interface
  integer function h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL2_C'::h5ltread_dataset_ndl2_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(inout), &
  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
  end function h5ltread_dataset_ndl2_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)

end subroutine h5ltread_dataset_double_f_2

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_3
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_double_f_3(loc_id,& 
                                   dset_name,&
                                   buf,&
                                   dims,& 
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_double_f_3
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 double precision, intent(inout), &
 dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  

 interface
  integer function h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_NDL3_C'::h5ltread_dataset_ndl3_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
  double precision, intent(inout), &
  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
  end function h5ltread_dataset_ndl3_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)

end subroutine h5ltread_dataset_double_f_3


!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_string_f
!
! Purpose: Creates and writes a dataset
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltmake_dataset_string_f(loc_id,& 
                                     dset_name,&
                                     buf,&
                                     errcode )   

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltmake_dataset_string_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: buf                ! data buffer 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
            
 interface
  integer function h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTMAKE_DATASET_STRING_C'::h5ltmake_dataset_string_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: buf                     ! data buffer  
  end function h5ltmake_dataset_string_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buf)

end subroutine h5ltmake_dataset_string_f

!-------------------------------------------------------------------------
! Function: h5ltread_dataset_string_f
!
! Purpose: Read a dataset 
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 22, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltread_dataset_string_f(loc_id,& 
                                     dset_name,&
                                     buf,&
                                     errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltread_dataset_string_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(inout) :: buf             ! data buffer
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltread_dataset_string_c(loc_id,namelen,dset_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTREAD_DATASET_STRING_C'::h5ltread_dataset_string_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(inout) :: buf                  ! data buffer
  end function h5ltread_dataset_string_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltread_dataset_string_c(loc_id,namelen,dset_name,buf)

end subroutine h5ltread_dataset_string_f




!-------------------------------------------------------------------------
! Make/Read attribute functions
!-------------------------------------------------------------------------


!-------------------------------------------------------------------------
! Function: h5ltset_attribute_int_f
!
! Purpose: Create and write an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltset_attribute_int_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    buf,&
                                    size,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltset_attribute_int_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer(size_t),  intent(in) :: size               ! size of attribute array
 integer :: errcode                                 ! error code
 integer, intent(in), dimension(*) :: buf           ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltset_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTSET_ATTRIBUTE_INT_C'::h5ltset_attribute_int_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer(size_t),  intent(in) :: size                    ! size of attribute array
  integer, intent(in), dimension(*) :: buf                ! data buffer
  end function h5ltset_attribute_int_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltset_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)

end subroutine h5ltset_attribute_int_f

!-------------------------------------------------------------------------
! Function: h5ltset_attribute_float_f
!
! Purpose: Create and write an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltset_attribute_float_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    buf,&
                                    size,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltset_attribute_float_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer(size_t),  intent(in) :: size               ! size of attribute array
 integer :: errcode                                 ! error code
 real, intent(in), dimension(*) :: buf              ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltset_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTSET_ATTRIBUTE_FLOAT_C'::h5ltset_attribute_float_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer(size_t),  intent(in) :: size                    ! size of attribute array
  real, intent(in), dimension(*) :: buf                   ! data buffer
  end function h5ltset_attribute_float_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltset_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)

end subroutine h5ltset_attribute_float_f

!-------------------------------------------------------------------------
! Function: h5ltset_attribute_double_f
!
! Purpose: Create and write an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltset_attribute_double_f(loc_id,& 
                                      dset_name,&
                                      attr_name,&
                                      buf,&
                                      size,&
                                      errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltset_attribute_double_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer(size_t),  intent(in) :: size               ! size of attribute array
 integer :: errcode                                 ! error code
 double precision, intent(in), dimension(*) :: buf  ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltset_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTSET_ATTRIBUTE_DOUBLE_C'::h5ltset_attribute_double_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer(size_t),  intent(in) :: size                    ! size of attribute array
  double precision, intent(in), dimension(*) :: buf       ! data buffer
  end function h5ltset_attribute_double_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltset_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,size,buf)

end subroutine h5ltset_attribute_double_f


!-------------------------------------------------------------------------
! Function: h5ltset_attribute_string_f
!
! Purpose: Create and write an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltset_attribute_string_f(loc_id,& 
                                      dset_name,&
                                      attr_name,&
                                      buf,&
                                      errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltset_attribute_string_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer :: errcode                                 ! error code
 character(len=*), intent(in) :: buf                ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltset_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTSET_ATTRIBUTE_STRING_C'::h5ltset_attribute_string_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  character(len=*), intent(in) :: buf                     ! data buffer
  end function h5ltset_attribute_string_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltset_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)

end subroutine h5ltset_attribute_string_f



!-------------------------------------------------------------------------
! Function: h5ltget_attribute_int_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_int_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    buf,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_int_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer :: errcode                                 ! error code
 integer, intent(inout), dimension(*) :: buf        ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_INT_C'::h5ltget_attribute_int_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer, intent(inout), dimension(*) :: buf             ! data buffer
  end function h5ltget_attribute_int_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_int_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)

end subroutine h5ltget_attribute_int_f


!-------------------------------------------------------------------------
! Function: h5ltget_attribute_float_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_float_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    buf,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_float_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer :: errcode                                 ! error code
 real, intent(inout), dimension(*) :: buf           ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_FLOAT_C'::h5ltget_attribute_float_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  real, intent(inout), dimension(*) :: buf                ! data buffer
  end function h5ltget_attribute_float_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_float_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)

end subroutine h5ltget_attribute_float_f

!-------------------------------------------------------------------------
! Function: h5ltget_attribute_double_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_double_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    buf,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_double_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer :: errcode                                 ! error code
 double precision,intent(inout),dimension(*) :: buf ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_DOUBLE_C'::h5ltget_attribute_double_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  double precision, intent(inout), dimension(*) :: buf    ! data buffer
  end function h5ltget_attribute_double_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_double_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)

end subroutine h5ltget_attribute_double_f

!-------------------------------------------------------------------------
! Function: h5ltget_attribute_string_f
!
! Purpose: Reads an attribute named ATTR_NAME
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_string_f(loc_id,& 
                                      dset_name,&
                                      attr_name,&
                                      buf,&
                                      errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_string_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer :: errcode                                 ! error code
 character(len=*), intent(inout) :: buf             ! data buffer
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_STRING_C'::h5ltget_attribute_string_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  character(len=*), intent(inout) :: buf                  ! data buffer
  end function h5ltget_attribute_string_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_string_c(loc_id,namelen,dset_name,attrlen,attr_name,buf)

end subroutine h5ltget_attribute_string_f

!-------------------------------------------------------------------------
! Query dataset functions
!-------------------------------------------------------------------------

!-------------------------------------------------------------------------
! Function: h5ltget_dataset_ndims_f
!
! Purpose: Gets the dimensionality of a dataset
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 30, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_dataset_ndims_f(loc_id,& 
                                   dset_name,&
                                   rank,&
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_dataset_ndims_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer,          intent(inout) :: rank            ! rank 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltget_dataset_ndims_c(loc_id,namelen,dset_name,rank)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_DATASET_NDIMS_C'::h5ltget_dataset_ndims_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer,          intent(inout) :: rank                 ! rank 
  end function h5ltget_dataset_ndims_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltget_dataset_ndims_c(loc_id,namelen,dset_name,rank)

end subroutine h5ltget_dataset_ndims_f


!-------------------------------------------------------------------------
! Function: h5ltfind_dataset_f
!
! Purpose: Inquires if a dataset named dset_name exists attached 
!           to the object loc_id.
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

integer function h5ltfind_dataset_f(loc_id,& 
                                    dset_name) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltfind_dataset_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltfind_dataset_c(loc_id,namelen,dset_name)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTFIND_DATASET_C'::h5ltfind_dataset_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  end function h5ltfind_dataset_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltfind_dataset_c(loc_id,namelen,dset_name)
 h5ltfind_dataset_f = errcode

end function h5ltfind_dataset_f

!-------------------------------------------------------------------------
! Function: h5ltget_dataset_info_f
!
! Purpose: Gets information about a dataset
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 30, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_dataset_info_f(loc_id,& 
                                   dset_name,&
                                   dims,&
                                   type_class,&
                                   type_size,&
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_dataset_info_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions 
 integer, intent(inout)         :: type_class       ! type class
 integer(size_t), intent(inout) :: type_size        ! type size
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length

 interface
  integer function h5ltget_dataset_info_c(loc_id,namelen,dset_name,dims,type_class,type_size)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_DATASET_INFO_C'::h5ltget_dataset_info_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions 
  integer, intent(inout)         :: type_class            ! type class
  integer(size_t), intent(inout) :: type_size             ! type size 
  end function h5ltget_dataset_info_c
 end interface

 namelen = len(dset_name)
 errcode = h5ltget_dataset_info_c(loc_id,namelen,dset_name,dims,type_class,type_size)

end subroutine h5ltget_dataset_info_f


!-------------------------------------------------------------------------
! Query attribute functions
!-------------------------------------------------------------------------


!-------------------------------------------------------------------------
! Function: h5ltget_attribute_ndims_f
!
! Purpose: Create and write an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: October 05, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_ndims_f(loc_id,& 
                                    dset_name,&
                                    attr_name,&
                                    rank,&
                                    errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_ndims_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer,          intent(inout) :: rank            ! rank 
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_ndims_c(loc_id,namelen,dset_name,attrlen,attr_name,rank)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_NDIMS_C'::h5ltget_attribute_ndims_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer,          intent(inout) :: rank                 ! rank 
  end function h5ltget_attribute_ndims_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_ndims_c(loc_id,namelen,dset_name,attrlen,attr_name,rank)

end subroutine h5ltget_attribute_ndims_f


!-------------------------------------------------------------------------
! Function: h5ltget_attribute_info_f
!
! Purpose: Gets information about an attribute
!
! Return: Success: 0, Failure: -1
!
! Programmer: pvn@ncsa.uiuc.edu
!
! Date: September 30, 2004
!
! Comments:
!
! Modifications:
!
!-------------------------------------------------------------------------

subroutine h5ltget_attribute_info_f(loc_id,& 
                                   dset_name,&
                                   attr_name,&
                                   dims,&
                                   type_class,&
                                   type_size,&
                                   errcode ) 

 implicit none
 
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5ltget_attribute_info_f
!DEC$endif
!

 integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
 character(len=*), intent(in) :: dset_name          ! name of the dataset 
 character(len=*), intent(in) :: attr_name          ! name of the attribute
 integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions 
 integer, intent(inout)         :: type_class       ! type class
 integer(size_t), intent(inout) :: type_size        ! type size
 integer :: errcode                                 ! error code
 integer :: namelen                                 ! name length
 integer :: attrlen                                 ! name length

 interface
  integer function h5ltget_attribute_info_c(loc_id,namelen,dset_name,attrlen,attr_name,dims,type_class,type_size)
  use h5global
  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
  !MS$ATTRIBUTES C,reference,alias:'_H5LTGET_ATTRIBUTE_INFO_C'::h5ltget_attribute_info_c
  !DEC$ ENDIF
  !DEC$ATTRIBUTES reference :: dset_name
  !DEC$ATTRIBUTES reference :: attr_name
  integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
  integer :: namelen                                      ! lenght of name buffer
  integer :: attrlen                                      ! lenght of attr name buffer
  character(len=*), intent(in) :: dset_name               ! name of the dataset 
  character(len=*), intent(in) :: attr_name               ! name of the attribute
  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions 
  integer, intent(inout)         :: type_class            ! type class
  integer(size_t), intent(inout) :: type_size             ! type size 
  end function h5ltget_attribute_info_c
 end interface

 namelen = len(dset_name)
 attrlen = len(attr_name)
 errcode = h5ltget_attribute_info_c(loc_id,namelen,dset_name,attrlen,attr_name,dims,type_class,type_size)

end subroutine h5ltget_attribute_info_f



!  end
!
end module H5LT
            

                                     



