[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, 525 insertions, 0 deletions

diff --git a/hl/fortran/src/H5LTf90proto.h b/hl/fortran/src/H5LTf90proto.h
new file mode 100755
index 0000000..29d99eb
--- /dev/null
+++ b/hl/fortran/src/H5LTf90proto.h
@@ -0,0 +1,525 @@
+ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * 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. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+
+#ifndef _H5LTf90proto_H
+#define _H5LTf90proto_H
+
+#include "H5f90i.h"
+
+H5_DLL char*  HD5f2cstring (_fcd fdesc, int len);
+H5_DLL void HD5packFstring (char *src, char *dest, size_t len);
+
+
+/*
+ *  Functions from H5LTfc.c
+ */
+#ifndef H5Ff90_FNAMES
+#    define H5Ff90_FNAMES
+#ifdef DF_CAPFNAMES
+#   define nh5ltmake_dataset_c         FNAME(H5LTMAKE_DATASET_C)
+#   define nh5ltread_dataset_c         FNAME(H5LTREAD_DATASET_C)
+#   define nh5ltmake_dataset_string_c  FNAME(H5LTMAKE_DATASET_STRING_C)
+#   define nh5ltread_dataset_string_c  FNAME(H5LTREAD_DATASET_STRING_C)
+
+
+#   define nh5ltset_attribute_int_c    FNAME(H5LTSET_ATTRIBUTE_INT_C)
+#   define nh5ltset_attribute_float_c  FNAME(H5LTSET_ATTRIBUTE_FLOAT_C)
+#   define nh5ltset_attribute_double_c FNAME(H5LTSET_ATTRIBUTE_DOUBLE_C)
+#   define nh5ltset_attribute_string_c FNAME(H5LTSET_ATTRIBUTE_STRING_C)
+
+#   define nh5ltget_attribute_int_c    FNAME(H5LTGET_ATTRIBUTE_INT_C)
+#   define nh5ltget_attribute_float_c  FNAME(H5LTGET_ATTRIBUTE_FLOAT_C)
+#   define nh5ltget_attribute_double_c FNAME(H5LTGET_ATTRIBUTE_DOUBLE_C)
+#   define nh5ltget_attribute_string_c FNAME(H5LTGET_ATTRIBUTE_STRING_C)
+
+#   define nh5ltget_dataset_ndims_c    FNAME(H5LTGET_DATASET_NDIMS_C)
+#   define nh5ltfind_dataset_c         FNAME(H5LTFIND_DATASET_C)
+#   define nh5ltget_dataset_info_c     FNAME(H5LTGET_DATASET_INFO_C)
+
+#   define nh5ltget_attribute_ndims_c  FNAME(H5LTGET_ATTRIBUTE_NDIMS_C)
+#   define nh5ltget_attribute_info_c   FNAME(H5LTGET_ATTRIBUTE_INFO_C)
+
+/*-------------------------------------------------------------------------
+ * Image
+ *-------------------------------------------------------------------------
+ */
+#   define nh5immake_image_8bit_c      FNAME(H5IMMAKE_IMAGE_8BIT_C)
+#   define nh5immake_image_24bit_c     FNAME(H5IMMAKE_IMAGE_24BIT_C)
+#   define nh5imread_image_c           FNAME(H5IMREAD_IMAGE_C)
+#   define nh5imget_image_info_c       FNAME(H5IMGET_IMAGE_INFO_C)
+#   define nh5imis_image_c             FNAME(H5IMIS_IMAGE_C)
+#   define nh5immake_palette_c         FNAME(H5IMMAKE_PALETTE_C)
+#   define nh5imlink_palette_c         FNAME(H5IMLINK_PALETTE_C)
+#   define nh5imunlink_palette_c       FNAME(H5IMUNLINK_PALETTE_C)
+#   define nh5imget_npalettes_c        FNAME(H5IMGET_NPALETTES_C)
+#   define nh5imget_palette_info_c     FNAME(H5IMGET_PALETTE_INFO_C)
+#   define nh5imget_palette_c          FNAME(H5IMGET_PALETTE_C)
+#   define nh5imis_palette_c           FNAME(H5IMIS_PALETTE_C)
+
+	/*-------------------------------------------------------------------------
+ * Table
+ *-------------------------------------------------------------------------
+ */
+#   define nh5tbmake_table_c           FNAME(H5TBMAKE_TABLE_C)
+#   define nh5tbwrite_field_name_c     FNAME(H5TBWRITE_FIELD_NAME_C)
+#   define nh5tbread_field_name_c      FNAME(H5TBREAD_FIELD_NAME_C)
+#   define nh5tbwrite_field_index_c    FNAME(H5TBWRITE_FIELD_INDEX_C)
+#   define nh5tbread_field_index_c     FNAME(H5TBREAD_FIELD_INDEX_C)
+#   define nh5tbinsert_field_c         FNAME(H5TBINSERT_FIELD_C)
+#   define nh5tbdelete_field_c         FNAME(H5TBDELETE_FIELD_C)
+#   define nh5tbget_table_info_c       FNAME(H5TBGET_TABLE_INFO_C)
+#   define nh5tbget_field_info_c       FNAME(H5TBGET_FIELD_INFO_C)
+
+
+
+
+
+#else  /* !DF_CAPFNAMES */
+
+#   define nh5ltmake_dataset_c         FNAME(h5ltmake_dataset_c)
+#   define nh5ltread_dataset_c         FNAME(h5ltread_dataset_c)
+#   define nh5ltmake_dataset_string_c  FNAME(h5ltmake_dataset_string_c)
+#   define nh5ltread_dataset_string_c  FNAME(h5ltread_dataset_string_c)
+
+#   define nh5ltset_attribute_int_c    FNAME(h5ltset_attribute_int_c)
+#   define nh5ltset_attribute_float_c  FNAME(h5ltset_attribute_float_c)
+#   define nh5ltset_attribute_double_c FNAME(h5ltset_attribute_double_c)
+#   define nh5ltset_attribute_string_c FNAME(h5ltset_attribute_string_c)
+
+#   define nh5ltget_attribute_int_c    FNAME(h5ltget_attribute_int_c)
+#   define nh5ltget_attribute_float_c  FNAME(h5ltget_attribute_float_c)
+#   define nh5ltget_attribute_double_c FNAME(h5ltget_attribute_double_c)
+#   define nh5ltget_attribute_string_c FNAME(h5ltget_attribute_string_c)
+
+#   define nh5ltget_dataset_ndims_c    FNAME(h5ltget_dataset_ndims_c)
+#   define nh5ltfind_dataset_c         FNAME(h5ltfind_dataset_c)
+#   define nh5ltget_dataset_info_c     FNAME(h5ltget_dataset_info_c)
+
+#   define nh5ltget_attribute_ndims_c  FNAME(h5ltget_attribute_ndims_c)
+#   define nh5ltget_attribute_info_c   FNAME(h5ltget_attribute_info_c)
+
+/*-------------------------------------------------------------------------
+ * Image
+ *-------------------------------------------------------------------------
+ */
+#   define nh5immake_image_8bit_c      FNAME(h5immake_image_8bit_c)
+#   define nh5immake_image_24bit_c     FNAME(h5immake_image_24bit_c)
+#   define nh5imread_image_c           FNAME(h5imread_image_c)
+#   define nh5imget_image_info_c       FNAME(h5imget_image_info_c)
+#   define nh5imis_image_c             FNAME(h5imis_image_c)
+#   define nh5immake_palette_c         FNAME(h5immake_palette_c)
+#   define nh5imlink_palette_c         FNAME(h5imlink_palette_c)
+#   define nh5imunlink_palette_c       FNAME(h5imunlink_palette_c)
+#   define nh5imget_npalettes_c        FNAME(h5imget_npalettes_c)
+#   define nh5imget_palette_info_c     FNAME(h5imget_palette_info_c)
+#   define nh5imget_palette_c          FNAME(h5imget_palette_c)
+#   define nh5imis_palette_c           FNAME(h5imis_palette_c)
+
+/*-------------------------------------------------------------------------
+ * Table
+ *-------------------------------------------------------------------------
+ */
+#   define nh5tbmake_table_c           FNAME(h5tbmake_table_c)
+#   define nh5tbwrite_field_name_c     FNAME(h5tbwrite_field_name_c)
+#   define nh5tbread_field_name_c      FNAME(h5tbread_field_name_c)
+#   define nh5tbwrite_field_index_c    FNAME(h5tbwrite_field_index_c)
+#   define nh5tbread_field_index_c     FNAME(h5tbread_field_index_c)
+#   define nh5tbinsert_field_c         FNAME(h5tbinsert_field_c)
+#   define nh5tbdelete_field_c         FNAME(h5tbdelete_field_c)
+#   define nh5tbget_table_info_c       FNAME(h5tbget_table_info_c)
+#   define nh5tbget_field_info_c       FNAME(h5tbget_field_info_c)
+
+
+
+
+
+
+
+
+
+
+
+#endif /* DF_CAPFNAMES */
+#endif /* H5Ff90_FNAMES */
+
+H5_DLL 
+int_f
+nh5ltmake_dataset_c (hid_t_f *loc_id, 
+                     int_f *namelen,
+                     _fcd name, 
+                     int_f *rank, 
+                     hsize_t_f *dims,
+                     hid_t_f *type_id, 
+                     void *buf);
+
+H5_DLL 
+int_f
+nh5ltread_dataset_c (hid_t_f *loc_id, 
+                     int_f *namelen,
+                     _fcd name, 
+                     hid_t_f *type_id, 
+                     void *buf,
+																					hsize_t_f *dims);
+
+
+H5_DLL
+int_f
+nh5ltset_attribute_int_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          size_t_f *size,
+																										void *buf);
+
+H5_DLL
+int_f
+nh5ltset_attribute_float_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          size_t_f *size,
+																										void *buf);
+
+H5_DLL
+int_f
+nh5ltset_attribute_double_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          size_t_f *size,
+																										void *buf);
+
+H5_DLL
+int_f
+nh5ltset_attribute_string_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+																										void *buf);
+
+
+H5_DLL
+int_f
+nh5ltget_attribute_int_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          void *buf);
+
+H5_DLL
+int_f
+nh5ltget_attribute_float_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          void *buf);
+
+H5_DLL
+int_f
+nh5ltget_attribute_double_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          void *buf);
+
+H5_DLL
+int_f
+nh5ltget_attribute_string_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+                          void *buf);
+
+H5_DLL
+int_f
+h5ltget_dataset_ndims_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                       _fcd name, 
+                       int_f *rank);
+
+H5_DLL
+int_f
+nh5ltfind_dataset_c(hid_t_f *loc_id, 
+                    int_f *namelen,
+                    _fcd name);
+
+H5_DLL
+int_f
+nh5ltget_dataset_info_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name,
+																								hsize_t_f *dims,
+                        int_f *type_class,
+																								size_t_f *type_size);
+
+H5_DLL
+int_f
+nh5ltget_attribute_ndims_c(hid_t_f *loc_id, 
+                          int_f *namelen,
+                          _fcd dsetname, 
+																										int_f *attrnamelen,
+                          _fcd attrname, 
+																					     int_f *rank);
+H5_DLL
+int_f
+nh5ltget_attribute_info_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name,
+																								int_f *attrnamelen,
+                        _fcd attrname, 
+																								hsize_t_f *dims,
+                        int_f *type_class,
+																								size_t_f *type_size);
+
+H5_DLL
+int_f
+nh5ltmake_dataset_string_c (hid_t_f *loc_id, 
+                            int_f *namelen,
+                            _fcd name, 
+                            char *buf);
+
+H5_DLL
+int_f
+nh5ltread_dataset_string_c (hid_t_f *loc_id, 
+                            int_f *namelen,
+                            _fcd name, 
+                            char *buf);
+
+/*-------------------------------------------------------------------------
+ * Image
+ *-------------------------------------------------------------------------
+ */
+
+H5_DLL
+int_f
+nh5immake_image_8bit_c (hid_t_f *loc_id, 
+                       int_f *namelen,
+                       _fcd name, 
+                       hsize_t_f *width,
+                       hsize_t_f *height, 
+                       unsigned char *buf);
+H5_DLL
+int_f
+nh5imread_image_c (hid_t_f *loc_id, 
+                   int_f *namelen,
+                   _fcd name, 
+                   unsigned char *buf);
+
+H5_DLL
+int_f
+nh5immake_image_24bit_c (hid_t_f *loc_id, 
+                         int_f *namelen,
+                         _fcd name,
+																										int_f *ilen,
+                         _fcd il, 
+                         hsize_t_f *width,
+                         hsize_t_f *height,
+																								 unsigned char *buf);
+H5_DLL
+int_f
+nh5imget_image_info_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name,
+																								hsize_t_f *width,
+																								hsize_t_f *height,
+																								hsize_t_f *planes,
+																								hsize_t_f *npals,
+                        int_f *ilen,
+                       _fcd interlace);
+
+
+H5_DLL
+int_f
+nh5imis_image_c(hid_t_f *loc_id, 
+                int_f *namelen,
+                _fcd name);
+
+
+H5_DLL
+int_f
+nh5immake_palette_c (hid_t_f *loc_id, 
+                     int_f *namelen,
+                     _fcd name, 
+                     hsize_t_f *dims,
+                     unsigned char *buf);
+
+H5_DLL
+int_f
+nh5imlink_palette_c (hid_t_f *loc_id, 
+                     int_f *namelen,
+                     _fcd name, 
+                     int_f *ilen,
+                     _fcd pal_name);
+
+H5_DLL
+int_f
+nh5imunlink_palette_c (hid_t_f *loc_id, 
+                     int_f *namelen,
+                     _fcd name, 
+                     int_f *ilen,
+                     _fcd pal_name);
+
+H5_DLL
+int_f
+nh5imget_npalettes_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name,
+																								hsize_t_f *npals);
+
+
+H5_DLL
+int_f
+nh5imget_palette_info_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                       _fcd name,
+																							int_f *pal_number,
+																					  hsize_t_f *dims);
+
+H5_DLL
+int_f
+nh5imget_palette_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name,
+																							 int_f *pal_number,
+																					   unsigned char *buf);
+
+H5_DLL
+int_f
+nh5imis_palette_c(hid_t_f *loc_id, 
+                  int_f *namelen,
+                 _fcd name);
+
+
+
+/*-------------------------------------------------------------------------
+ * Table
+ *-------------------------------------------------------------------------
+ */
+
+H5_DLL
+int_f
+nh5tbmake_table_c(int_f *namelen1,
+                  _fcd name1,
+																		hid_t_f *loc_id, 
+                  int_f *namelen,
+                  _fcd name, 
+                  hsize_t_f *nfields,
+                  hsize_t_f *nrecords,
+																		size_t_f *type_size,
+																		size_t_f *field_offset,
+																		hid_t_f *field_types,
+																		hsize_t_f *chunk_size,
+																		int_f *compress,
+																		int_f *len,       /* field_names lenghts */
+																		_fcd buf);          /* field_names */
+
+H5_DLL
+int_f
+nh5tbwrite_field_name_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name, 
+																		      int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf);
+
+H5_DLL
+int_f
+nh5tbread_field_name_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name, 
+																		      int_f *namelen1,
+                        _fcd field_name,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf);
+
+H5_DLL
+int_f
+nh5tbwrite_field_index_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name, 
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf);
+
+H5_DLL
+int_f
+nh5tbread_field_index_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name, 
+                        int_f *field_index,
+                        hsize_t_f *start,
+                        hsize_t_f *nrecords,
+                        size_t_f *type_size,
+                        void *buf);
+
+H5_DLL
+int_f
+nh5tbinsert_field_c(hid_t_f *loc_id, 
+                    int_f *namelen,
+                    _fcd name,
+																				int_f *namelen1,
+                    _fcd field_name,
+                    hid_t_f *field_type,
+                    int_f *position,
+                    void *buf);
+
+H5_DLL
+int_f
+nh5tbdelete_field_c(hid_t_f *loc_id, 
+                    int_f *namelen,
+                    _fcd name,
+																				int_f *namelen1,
+																				_fcd field_name);
+
+
+H5_DLL
+int_f
+nh5tbget_table_info_c(hid_t_f *loc_id, 
+                        int_f *namelen,
+                        _fcd name, 
+                        hsize_t_f *nfields,
+                        hsize_t_f *nrecords);
+
+H5_DLL
+int_f
+nh5tbget_field_info_c(hid_t_f *loc_id, 
+                  int_f *namelen,
+                  _fcd name, 
+                  hsize_t_f *nfields,
+                  size_t_f *field_sizes,
+                  size_t_f *field_offsets,
+                  size_t_f *type_size,
+																		int_f *namelen2,       /* field_names lenghts */
+                  _fcd field_names) ;     /* field_names */
+
+
+
+
+#endif /* _H5LTf90proto_H */