[svn-r9644] Purpose:

add hl fortran

Description:

Solution:

Platforms tested:
linux (absfot and pgf90)
solaris (32 and 64 bit)
AIX

note : HP gives a compiling error , to be fixed in the future

Misc. update:

1 files changed, 674 insertions, 0 deletions

diff --git a/hl/fortran/src/H5IMff.f90 b/hl/fortran/src/H5IMff.f90
new file mode 100755
index 0000000..276b302
--- /dev/null
+++ b/hl/fortran/src/H5IMff.f90
@@ -0,0 +1,674 @@
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!   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://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
+!   access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+!
+!
+! This file contains FORTRAN90 interfaces for H5IM functions
+!
+      
+module H5IM
+use H5FORTRAN_TYPES
+use HDF5 
+contains
+
+
+!-------------------------------------------------------------------------
+! Function: h5immake_image_8bit_f
+!
+! Purpose: Creates and writes an image an 8 bit image
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5immake_image_8bit_f(loc_id,& 
+                                 dset_name,&
+                                 width,& 
+                                 height,&
+                                 buf,&
+                                 errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer(HSIZE_T), intent(IN) :: width              ! width of image  
+ integer(HSIZE_T), intent(IN) :: height             ! height of image
+ integer*1, intent(IN), dimension(*) :: buf         ! 1 byte integer data buffer 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ 
+ interface
+  integer function h5immake_image_8bit_c(loc_id,namelen,dset_name,width,height,buf)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMMAKE_IMAGE_8BIT_C'::h5immake_image_8bit_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), intent(IN) :: width                   ! width of image  
+  integer(HSIZE_T), intent(IN) :: height                  ! height of image
+  integer*1, intent(IN), dimension(*) :: buf              ! 1 byte integer data buffer  
+  end function h5immake_image_8bit_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5immake_image_8bit_c(loc_id,namelen,dset_name,width,height,buf)
+
+end subroutine h5immake_image_8bit_f
+
+
+
+!-------------------------------------------------------------------------
+! Function: h5imread_image_f
+!
+! Purpose: Reads image data from disk.
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+
+subroutine h5imread_image_f(loc_id,& 
+                            dset_name,&
+                            buf,&
+                            errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer*1, intent(INOUT), dimension(*) :: buf      ! 1 byte integer data buffer 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ 
+ interface
+  integer function h5imread_image_c(loc_id,namelen,dset_name,buf)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMREAD_IMAGE_C'::h5imread_image_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*1, intent(INOUT), dimension(*) :: buf           ! 1 byte integer data buffer  
+  end function h5imread_image_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imread_image_c(loc_id,namelen,dset_name,buf)
+
+end subroutine h5imread_image_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5immake_image_24bit_f
+!
+! Purpose: Creates and writes an image a 24 bit image
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5immake_image_24bit_f(loc_id,& 
+                                 dset_name,&
+                                 width,& 
+                                 height,&
+                                 il,&
+                                 buf,&
+                                 errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer(HSIZE_T), intent(IN) :: width              ! width of image  
+ integer(HSIZE_T), intent(IN) :: height             ! height of image
+ character(LEN=*), intent(IN) :: il                 ! interlace
+ integer*1, intent(IN), dimension(*) :: buf         ! 1 byte integer data buffer 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ integer :: ilen                                    ! name length
+ 
+ interface
+  integer function h5immake_image_24bit_c(loc_id,namelen,dset_name,ilen,il,width,height,buf)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMMAKE_IMAGE_24BIT_C'::h5immake_image_24bit_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  !DEC$ATTRIBUTES reference :: il
+  integer(HID_T),   intent(IN) :: loc_id                  ! file or group identifier
+  character(LEN=*), intent(IN) :: dset_name               ! name of the dataset 
+  integer(HSIZE_T), intent(IN) :: width                   ! width of image  
+  integer(HSIZE_T), intent(IN) :: height                  ! height of image
+  character(LEN=*), intent(IN) :: il                      ! interlace
+  integer*1, intent(IN), dimension(*) :: buf              ! 1 byte integer data buffer 
+  integer :: namelen                                      ! lenght of name buffer
+  integer :: ilen                                         ! name length
+ 
+  end function h5immake_image_24bit_c
+ end interface
+
+ namelen = len(dset_name)
+ ilen    = len(il)
+ errcode = h5immake_image_24bit_c(loc_id,namelen,dset_name,ilen,il,width,height,buf)
+
+end subroutine h5immake_image_24bit_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5imget_image_info_f
+!
+! Purpose: Gets information about an image dataset (dimensions, interlace mode 
+!          and number of associated palettes).
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5imget_image_info_f(loc_id,& 
+                                dset_name,&
+                                width,&
+                                height,&
+                                planes,&
+                                interlace,&
+                                npals,&
+                                errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer(HSIZE_T), intent(INOUT) :: width           ! width of image  
+ integer(HSIZE_T), intent(INOUT) :: height          ! height of image
+ integer(HSIZE_T), intent(INOUT) :: planes          ! color planes
+ integer(HSIZE_T), intent(INOUT) :: npals           ! palettes
+ character(LEN=*), intent(INOUT) :: interlace       ! interlace 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ integer :: ilen                                    ! name length
+
+ interface
+  integer function h5imget_image_info_c(loc_id,namelen,dset_name,width,height,planes,npals,ilen,interlace)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMGET_IMAGE_INFO_C'::h5imget_image_info_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  !DEC$ATTRIBUTES reference :: interlace
+  integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+  character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+  integer(HSIZE_T), intent(INOUT) :: width           ! width of image  
+  integer(HSIZE_T), intent(INOUT) :: height          ! height of image
+  integer(HSIZE_T), intent(INOUT) :: planes          ! color planes
+  integer(HSIZE_T), intent(INOUT) :: npals           ! palettes
+  character(LEN=*), intent(INOUT) :: interlace       ! interlace 
+  integer :: namelen                                 ! name length
+  integer :: ilen                                    ! name length
+  end function h5imget_image_info_c
+ end interface
+
+ namelen = len(dset_name)
+ ilen    = len(interlace)
+ errcode = h5imget_image_info_c(loc_id,namelen,dset_name,width,height,planes,npals,ilen,interlace)
+
+end subroutine h5imget_image_info_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5imis_image_f
+!
+! Purpose: Inquires if a dataset is an image
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+integer function h5imis_image_f(loc_id,& 
+                                dset_name) 
+
+ implicit none
+ 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 h5imis_image_c(loc_id,namelen,dset_name)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMIS_IMAGE_C'::h5imis_image_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 h5imis_image_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imis_image_c(loc_id,namelen,dset_name)
+ h5imis_image_f = errcode
+
+end function h5imis_image_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5immake_palette_f
+!
+! Purpose: Creates and writes a palette
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5immake_palette_f(loc_id,& 
+                              dset_name,&
+                              pal_dims,& 
+                              buf,&
+                              errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id                 ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name              ! name of the dataset 
+ integer(HSIZE_T), intent(IN), dimension(*) :: pal_dims ! dimensions  
+ integer*1, intent(IN), dimension(*) :: buf             ! 1 byte integer data buffer 
+ integer :: errcode                                     ! error code
+ integer :: namelen                                     ! name length
+ 
+ interface
+  integer function h5immake_palette_c(loc_id,namelen,dset_name,pal_dims,buf)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMMAKE_PALETTE_C'::h5immake_palette_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), intent(IN), dimension(*) :: pal_dims  ! dimensions
+  integer*1, intent(IN), dimension(*) :: buf              ! 1 byte integer data buffer  
+  end function h5immake_palette_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5immake_palette_c(loc_id,namelen,dset_name,pal_dims,buf)
+
+end subroutine h5immake_palette_f
+
+
+
+!-------------------------------------------------------------------------
+! Function: h5imlink_palette_f
+!
+! Purpose: This function attaches a palette to an existing image dataset
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5imlink_palette_f(loc_id,& 
+                              dset_name,&
+                              pal_name,&
+                              errcode ) 
+
+ implicit none
+ 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) :: pal_name           ! palette name 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ integer :: ilen                                    ! name length
+
+ interface
+  integer function h5imlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMLINK_PALETTE_C'::h5imlink_palette_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  !DEC$ATTRIBUTES reference :: pal_name
+  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) :: pal_name           ! palette name 
+  integer :: namelen                                 ! name length
+  integer :: ilen                                    ! name length
+  end function h5imlink_palette_c
+ end interface
+
+ namelen = len(dset_name)
+ ilen    = len(pal_name)
+ errcode = h5imlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
+
+end subroutine h5imlink_palette_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5imunlink_palette_f
+!
+! Purpose: This function dettaches a palette to an existing image dataset
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5imunlink_palette_f(loc_id,& 
+                              dset_name,&
+                              pal_name,&
+                              errcode ) 
+
+ implicit none
+ 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) :: pal_name           ! palette name 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ integer :: ilen                                    ! name length
+
+ interface
+  integer function h5imunlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMUNLINK_PALETTE_C'::h5imunlink_palette_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  !DEC$ATTRIBUTES reference :: pal_name
+  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) :: pal_name           ! palette name 
+  integer :: namelen                                 ! name length
+  integer :: ilen                                    ! name length
+  end function h5imunlink_palette_c
+ end interface
+
+ namelen = len(dset_name)
+ ilen    = len(pal_name)
+ errcode = h5imunlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
+
+end subroutine h5imunlink_palette_f
+
+
+
+!-------------------------------------------------------------------------
+! Function: h5imget_npalettes_f
+!
+! Purpose: Gets the number of palettes associated to an image
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 05, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5imget_npalettes_f(loc_id,& 
+                               dset_name,&
+                               npals,&
+                               errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer(HSIZE_T), intent(INOUT) :: npals           ! palettes
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+
+ interface
+  integer function h5imget_npalettes_c(loc_id,namelen,dset_name,npals)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMGET_NPALETTES_C'::h5imget_npalettes_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+  character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+  integer(HSIZE_T), intent(INOUT) :: npals           ! palettes
+  integer :: namelen                                 ! name length
+  end function h5imget_npalettes_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imget_npalettes_c(loc_id,namelen,dset_name,npals)
+
+end subroutine h5imget_npalettes_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5imget_palette_info_f
+!
+! Purpose: Get palette information
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+subroutine h5imget_palette_info_f(loc_id,& 
+                                  dset_name,&
+                                  pal_number,&
+                                  dims,&
+                                  errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id                ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name             ! name of the dataset 
+ integer, intent(IN) :: pal_number                     ! palette number
+ integer(HSIZE_T), dimension(*), intent(INOUT) :: dims ! dimensions 
+ integer :: errcode                                    ! error code
+ integer :: namelen                                    ! name length
+
+ interface
+  integer function h5imget_palette_info_c(loc_id,namelen,dset_name,pal_number,dims)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMGET_PALETTE_INFO_C'::h5imget_palette_info_c
+  !DEC$ ENDIF
+  !DEC$ATTRIBUTES reference :: dset_name
+  integer(HID_T),   intent(IN) :: loc_id                ! file or group identifier 
+  character(LEN=*), intent(IN) :: dset_name             ! name of the dataset 
+  integer, intent(IN) :: pal_number                     ! palette number
+  integer(HSIZE_T), dimension(*), intent(INOUT) :: dims ! dimensions 
+  integer :: namelen                                    ! name length
+  end function h5imget_palette_info_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imget_palette_info_c(loc_id,namelen,dset_name,pal_number,dims)
+
+end subroutine h5imget_palette_info_f
+
+
+
+!-------------------------------------------------------------------------
+! Function: h5imget_palette_f
+!
+! Purpose: Reads palette
+!
+! Return: Success: 0, Failure: -1
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+
+subroutine h5imget_palette_f(loc_id,& 
+                             dset_name,&
+                             pal_number,&
+                             buf,&
+                             errcode ) 
+
+ implicit none
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
+ character(LEN=*), intent(IN) :: dset_name          ! name of the dataset 
+ integer, intent(IN) :: pal_number                  ! palette number
+ integer*1, intent(INOUT), dimension(*) :: buf      ! 1 byte integer data buffer 
+ integer :: errcode                                 ! error code
+ integer :: namelen                                 ! name length
+ 
+ interface
+  integer function h5imget_palette_c(loc_id,namelen,dset_name,pal_number,buf)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMGET_PALETTE_C'::h5imget_palette_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(IN) :: pal_number                       ! palette number
+  integer*1, intent(INOUT), dimension(*) :: buf           ! 1 byte integer data buffer  
+  end function h5imget_palette_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imget_palette_c(loc_id,namelen,dset_name,pal_number,buf)
+
+end subroutine h5imget_palette_f
+
+
+!-------------------------------------------------------------------------
+! Function: h5imis_palette_f
+!
+! Purpose: Inquires if a dataset is a palette
+!
+! Return: true, false, fail
+!
+! Programmer: pvn@ncsa.uiuc.edu
+!
+! Date: October 06, 2004
+!
+! Comments:
+!
+! Modifications:
+!
+!-------------------------------------------------------------------------
+
+integer function h5imis_palette_f(loc_id,& 
+                                  dset_name) 
+
+ implicit none
+ 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 h5imis_palette_c(loc_id,namelen,dset_name)
+  use H5GLOBAL
+  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+  !MS$ATTRIBUTES C,reference,alias:'_H5IMIS_PALETTE_C'::h5imis_palette_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 h5imis_palette_c
+ end interface
+
+ namelen = len(dset_name)
+ errcode = h5imis_palette_c(loc_id,namelen,dset_name)
+ h5imis_palette_f = errcode
+
+end function h5imis_palette_f
+
+
+!  end
+!
+end module H5IM
+            
+
+
+
+