/****h* H5Pf/H5Pf
 * PURPOSE
 *   This file contains C stubs for H5P Fortran APIs
 *
 * COPYRIGHT
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF5.  The full HDF5 copyright notice, including     *
 * terms governing use, modification, and redistribution, is contained in    *
 * the 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.     *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 *
 ******
*/

#include "H5f90.h"
#include "H5Eprivate.h"

/****if* H5Pf/h5pcreate_c
 * NAME
 *        h5pcreate_c
 * PURPOSE
 *     Call H5Pcreate to create a property list
 * INPUTS
 *      cls - property list class identifier
 * OUTPUTS
 *     prp_id - identifier of the created property list
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  Wednesday, October 9, 2002
 *
 * SOURCE
*/

int_f
nh5pcreate_c ( hid_t_f *cls, hid_t_f *prp_id )
/******/
{
    hid_t c_prp_id;
    int_f ret_value = 0;

    c_prp_id = H5Pcreate((hid_t)*cls);
    if(c_prp_id  < 0)
        HGOTO_DONE(FAIL)

    *prp_id = (hid_t_f)c_prp_id;

done:
    return ret_value;
}

/****if* H5Pf/h5pclose_c
 * NAME
 *        h5pclose_c
 * PURPOSE
 *     Call H5Pclose to close property lis
 * INPUTS
 *      prp_id - identifier of the property list to be closed
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 *
 * SOURCE
*/

int_f
nh5pclose_c ( hid_t_f *prp_id )
/******/
{
    int_f ret_value = 0;

    if(H5Pclose((hid_t)*prp_id) < 0)
        ret_value = -1;

    return ret_value;
}


/****if* H5Pf/h5pcopy_c
 * NAME
 *        h5pcopy_c
 * PURPOSE
 *     Call H5Pcopy to copy property list
 * INPUTS
 *      prp_id - identifier of the property list to be copied
 * OUTPUTS
 *     new_prp_id - identifier of the new property list
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 *
 * SOURCE
*/
int_f
nh5pcopy_c ( hid_t_f *prp_id , hid_t_f *new_prp_id)
/******/
{
    hid_t c_new_prp_id;
    int_f ret_value = 0;

    c_new_prp_id = H5Pcopy((hid_t)*prp_id);
    if(c_new_prp_id < 0)
        HGOTO_DONE(FAIL)

    *new_prp_id = (hid_t_f)c_new_prp_id;

done:
    return ret_value;
}

/****if* H5Pf/h5pequal_c
 * NAME
 *        h5pequal_c
 * PURPOSE
 *     Call H5Pequal to check if two property lists are equal
 * INPUTS
 *      plist1_id - property list identifier
 *              plist2_id - property list identifier
 * OUTPUTS
 *     c_flag    - flag to indicate that lists are eqaul
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, September 30, 2002
 *
 * SOURCE
*/
int_f
nh5pequal_c ( hid_t_f *plist1_id , hid_t_f *plist2_id, int_f * c_flag)
/******/
{
    htri_t c_c_flag;
    int_f ret_value = 0;

    c_c_flag = H5Pequal((hid_t)*plist1_id, (hid_t)*plist2_id);
    if(c_c_flag < 0)
        HGOTO_DONE(FAIL)

    *c_flag = (int_f)c_c_flag;

done:
    return ret_value;
}


/****if* H5Pf/h5pget_class_c
 * NAME
 *        h5pget_class_c
 * PURPOSE
 *     Call H5Pget_class to determine property list class
 * INPUTS
 *      prp_id - identifier of the dataspace
 * OUTPUTS
 *     classtype - class type; possible values are:
 *              H5P_ROOT_F       -1
 *              H5P_FILE_CREATE_F     0
 *              H5P_FILE_ACCESS_F     1
 *              H5P_DATASET_CREATE_F  2
 *              H5P_DATASET_XFER_F    3
 *              H5P_FILE_MOUNT_F      4
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 * SOURCE
*/

int_f
nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype)
/******/
{
    hid_t c_classtype;
    int_f ret_value = 0;

    c_classtype = H5Pget_class((hid_t)*prp_id);
    if(c_classtype == H5P_ROOT) {
      *classtype = H5P_ROOT;
       HGOTO_DONE(FAIL)
    }

    *classtype = (int_f)c_classtype;

done:
    return ret_value;
}

/****if* H5Pf/h5pset_preserve_c
 * NAME
 *        h5pset_preserve_c
 * PURPOSE
 *     Call H5Pset_preserve to set  transfer property for compound
 *              datatype
 * INPUTS
 *      prp_id - property list identifier
 *              flag - TRUE/FALSE flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  Thursday, February 17, 2000
 * SOURCE
*/

int_f
nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  herr_t status;
  hbool_t c_flag = 0;

  if (*flag > 0) c_flag = 1;
  c_prp_id = (hid_t)*prp_id;
  status = H5Pset_preserve(c_prp_id, c_flag);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}


/****if* H5Pf/h5pget_preserve_c
 * NAME
 *        h5pget_preserve_c
 * PURPOSE
 *     Call H5Pget_preserve to set  transfer property for compound
 *              datatype
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     flag - TRUE/FALSE flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  Thursday, February 17, 2000
 * SOURCE
*/

int_f
nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  int c_flag;

  c_prp_id = (hid_t)*prp_id;
  c_flag = H5Pget_preserve(c_prp_id);
  if ( c_flag < 0  ) ret_value = -1;
  *flag = (int_f)c_flag;
  return ret_value;
}

/****if* H5Pf/h5pset_deflate_c
 * NAME
 *        h5pset_deflate_c
 * PURPOSE
 *     Call H5Pset_deflate to set deflate level
 * INPUTS
 *      prp_id - property list identifier
 *              level - level of deflation
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 * SOURCE
*/

int_f
nh5pset_deflate_c ( hid_t_f *prp_id , int_f *level)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  unsigned c_level;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  c_level = (unsigned)*level;
  status = H5Pset_deflate(c_prp_id, c_level);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}



/****if* H5Pf/h5pset_chunk_c
 * NAME
 *        h5pset_chunk_c
 * PURPOSE
 *     Call H5Pset_chunk to set the sizes of chunks for a chunked
 *              layout dataset
 * INPUTS
 *      prp_id - property list identifier
 *              rank - number of dimensions of each chunk
 *              dims - array of the size of each chunk
 * RETURNS
 *     0 on success, -1 on failure
 *              Saturday, August 14, 1999
 * AUTHOR
 *  Elena Pourmal
 * SOURCE
*/

int_f
nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims )
/******/
{
  int ret_value = -1;
  hid_t c_prp_id = (hid_t)*prp_id;
  int c_rank = (int)*rank;
  hsize_t c_dims[H5S_MAX_RANK];
  herr_t status;
  int i;

  /*
   * Transpose dimension arrays because of C-FORTRAN storage order
   */
  for (i = 0; i < c_rank ; i++)
       c_dims[i] =  (hsize_t)dims[c_rank - i - 1];

  status = H5Pset_chunk(c_prp_id, c_rank, c_dims);
  if (status < 0) goto DONE;
  ret_value = 0;

DONE:
  return ret_value;
}


/****if* H5Pf/h5pget_chunk_c
 * NAME
 *        h5pget_chunk_c
 * PURPOSE
 *     Call H5Pget_chunk to get the sizes of chunks for a chunked
 *              layout dataset  for at list max_rank number of dimensions
 * INPUTS
 *      prp_id - property list identifier
 *              max rank - maximum number of dimensions to return
 *              dims - array of the size of each chunk
 * RETURNS
 *     number of chunk's dimnesion on success, -1 on failure
 *              Saturday, August 14, 1999
 * AUTHOR
 *  Elena Pourmal
 * SOURCE
*/

int_f
nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
/******/
{
  int ret_value = -1;
  hid_t c_prp_id = (hid_t)*prp_id;
  hsize_t c_dims[H5S_MAX_RANK];
  int rank;
  int c_max_rank = (int)*max_rank;
  int i;

  rank = H5Pget_chunk(c_prp_id, c_max_rank, c_dims);

  /*
   * Transpose dimension arrays because of C-FORTRAN storage order
   */
  for (i = 0; i < c_max_rank ; i++)
       dims[c_max_rank - i - 1] = (hsize_t_f)c_dims[i];
  if (rank < 0) return ret_value;
  ret_value = (int_f)rank;
  return ret_value;
}

/****if* H5Pf/h5pset_fill_valuec_c
 * NAME
 *        h5pset_fill_valuec_c
 * PURPOSE
 *     Call h5pset_fill_value_c to a character fill value
 * INPUTS
 *      prp_id - property list identifier
 *              type_id - datatype identifier (fill value is of type type_id)
 *              fillvalue  - character value
 * RETURNS
 *     0 on success, -1 on failure
 *              Saturday, August 14, 1999
 * AUTHOR
 *  Elena Pourmal
 * SOURCE
*/
int_f
nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
/******/
{
     int ret_value = -1;

     /*
      * Call h5pset_fill_value_c  function.
      */
     ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));

     return ret_value;
}

/****if* H5Pf/h5pset_fill_value_c
 * NAME
 *        h5pset_fill_value_c
 * PURPOSE
 *     Call H5Pset_fill_value to set a fillvalue for a dataset
 * INPUTS
 *      prp_id - property list identifier
 *              type_id - datatype identifier (fill value is of type type_id)
 *              fillvalue - fillvalue
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 * SOURCE
*/
int_f
nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     hid_t c_type_id;
     herr_t ret;

     /*
      * Call H5Pset_fill_value function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_type_id = (int)*type_id;
     ret = H5Pset_fill_value(c_prp_id, c_type_id, fillvalue);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

int_f
nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
/******/
{
     /*
      * Call h5pset_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

int_f
nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
     /*
      * Call h5pset_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

int_f
nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
     /*
      * Call h5pset_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

/****if* H5Pf/h5pget_fill_valuec_c
 * NAME
 *        h5pget_fill_valuec_c
 * PURPOSE
 *     Call h5pget_fill_value_c to a character fill value
 * INPUTS
 *      prp_id - property list identifier
 *              type_id - datatype identifier (fill value is of type type_id)
 *              fillvalue  - character value
 * RETURNS
 *     0 on success, -1 on failure
 *              Saturday, August 14, 1999
 * AUTHOR
 *  Elena Pourmal
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
/******/
{
     int ret_value = -1;

     /*
      * Call h5pget_fill_value_c  function.
      */
     ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));

     return ret_value;
}

/****if* H5Pf/h5pget_fill_value_c
 * NAME
 *        h5pget_fill_value_c
 * PURPOSE
 *     Call H5Pget_fill_value to set a fillvalue for a dataset
 * INPUTS
 *      prp_id - property list identifier
 *              type_id - datatype identifier (fill value is of type type_id)
 *              fillvalue - fillvalue
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Saturday, August 14, 1999
 * SOURCE
*/
int_f
nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     hid_t c_type_id;
     herr_t ret;

     /*
      * Call H5Pget_fill_value function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_type_id = (int)*type_id;
     ret = H5Pget_fill_value(c_prp_id, c_type_id, fillvalue);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

int_f
nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
     /*
      * Call h5pget_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

int_f
nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
     /*
      * Call h5pget_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

int_f
nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
     /*
      * Call h5pget_fill_value_c  function.
      */
     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
}

/****if* H5Pf/h5pget_version_c
 * NAME
 *        h5pget_version_c
 * PURPOSE
 *     Call H5Pget_version to get the version information
 *              of various objects for a file creation property list
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     boot - array to put boot block version number
 *              freelist - array to put global freelist version number
 *              stab - array to put symbol table version number
 *              shhdr - array to put shared object header version number
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * HISTORY
 * Removed extra length parameters EP 7/6/00
 * SOURCE
*/
int_f
nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr)
/******/
{
     int ret_value = -1;
#ifndef H5_NO_DEPRECATED_SYMBOLS
     herr_t ret;
     unsigned c_boot;
     unsigned c_freelist;
     unsigned c_stab;
     unsigned c_shhdr;

     /*
      * Call H5Pget_version function.
      */
     ret = H5Pget_version((hid_t)*prp_id, &c_boot, &c_freelist, &c_stab, &c_shhdr);
     if (ret < 0) return ret_value;

     *boot = (int_f)c_boot;
     *freelist = (int_f)c_freelist;
     *stab = (int_f)c_stab;
     *shhdr = (int_f)c_shhdr;
#else /* H5_NO_DEPRECATED_SYMBOLS */
     /*
      * Fill in fake values [since we need a file ID to call H5Fget_info :-( -QAK ]
      */
     *boot = (int_f)0;
     *freelist = (int_f)0;
     *stab = (int_f)0;
     *shhdr = (int_f)0;
#endif /* H5_NO_DEPRECATED_SYMBOLS */
     ret_value = 0;

     return ret_value;
}

/****if* H5Pf/h5pget_userblock_c
 * NAME
 *        h5pget_userblock_c
 * PURPOSE
 *     Call H5Pget_userblock to get the size of a user block in
 *              a file creation property list
 * INPUTS
 *      prp_id - property list identifier
 * Outputs      size - Size of the user-block in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * SOURCE
*/
int_f
nh5pget_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     hsize_t c_size;

     /*
      * Call H5Pget_userblock function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_userblock(c_prp_id, &c_size);
     if (ret < 0) return ret_value;

     *size = (hsize_t_f)c_size;
     ret_value = 0;

     return ret_value;
}

/****if* H5Pf/h5pset_userblock_c
 * NAME
 *        h5pset_userblock_c
 * PURPOSE
 *     Call H5Pset_userblock to set the size of a user block in
 *              a file creation property list
 * INPUTS
 *      prp_id - property list identifier
 *              size - Size of the user-block in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * SOURCE
*/
int_f
nh5pset_userblock_c (hid_t_f *prp_id, hsize_t_f * size)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     hsize_t c_size;
     c_size = (hsize_t)*size;

     /*
      * Call H5Pset_userblock function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_userblock(c_prp_id, c_size);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_sizes_c
 * NAME
 *        h5pget_sizes_c
 * PURPOSE
 *     Call H5Pget_sizes to get the size of the offsets
 *              and lengths used in an HDF5 file
 * INPUTS
 *      prp_id - property list identifier
 * Outputs      sizeof_addr - Size of an object offset in bytes
 *              sizeof_size - Size of an object length in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * HISTORY
 * Deleted extra length parameters. EP 6/7/00
 * SOURCE
*/
int_f
nh5pget_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     size_t c_sizeof_addr;
     size_t c_sizeof_size;

     /*
      * Call H5Pget_sizes function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_sizes(c_prp_id, &c_sizeof_addr, &c_sizeof_size);
     if (ret < 0) return ret_value;

     *sizeof_addr = (size_t_f)c_sizeof_addr;
     *sizeof_size = (size_t_f)c_sizeof_size;
     ret_value = 0;

     return ret_value;
}

/****if* H5Pf/h5pset_sizes_c
 * NAME
 *        h5pset_sizes_c
 * PURPOSE
 *     Call H5Pset_sizes to set the size of the offsets
 * INPUTS
 *      prp_id - property list identifier
 *              sizeof_addr - Size of an object offset in bytes
 *              sizeof_size - Size of an object length in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_sizes_c (hid_t_f *prp_id, size_t_f * sizeof_addr, size_t_f * sizeof_size)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     size_t c_addr, c_size;
     c_addr = (size_t)*sizeof_addr;
     c_size = (size_t)*sizeof_size;

     /*
      * Call H5Pset_sizes function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_sizes(c_prp_id, c_addr, c_size);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_sym_k_c
 * NAME
 *        h5pset_sym_k_c
 * PURPOSE
 *     Call H5Pset_sym_k to set the size of parameters used
 *              to control the symbol table node
 * INPUTS
 *      prp_id - property list identifier
 *              ik - Symbol table tree rank
 *              lk - Symbol table node size
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * SOURCE
*/
int_f
nh5pset_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     unsigned c_ik;
     unsigned c_lk;
     herr_t ret;

     /*
      * Call H5Pset_sym_k function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_ik = (unsigned)*ik;
     c_lk = (unsigned)*lk;
     ret = H5Pset_sym_k(c_prp_id, c_ik, c_lk);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_sym_k_c
 * NAME
 *        h5pget_sym_k_c
 * PURPOSE
 *     Call H5Pget_sym_k to get the size of parameters used
 *              to control the symbol table node
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     ik - Symbol table tree rank
 *              lk - Symbol table node size
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_sym_k_c (hid_t_f *prp_id, int_f* ik, int_f* lk)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     unsigned c_ik;
     unsigned c_lk;

     /*
      * Call H5Pget_sym_k function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_sym_k(c_prp_id, &c_ik, &c_lk);
     *ik = (int_f)c_ik;
     *lk = (int_f)c_lk;
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_istore_k_c
 * NAME
 *        h5pset_istore_k_c
 * PURPOSE
 *     Call H5Pset_istore_k to set the size of the parameter
 *              used to control the B-trees for indexing chunked datasets
 * INPUTS
 *      prp_id - property list identifier
 *              ik - Symbol table tree rank
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_istore_k_c (hid_t_f *prp_id, int_f* ik)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     unsigned c_ik;
     herr_t ret;

     /*
      * Call H5Pset_istore_k function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_ik = (unsigned)*ik;
     ret = H5Pset_istore_k(c_prp_id, c_ik);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_istore_k_c
 * NAME
 *        h5pget_istore_k_c
 * PURPOSE
 *     Call H5Pget_istore_k to get the size of parameters used
 *              to control the B-trees for indexing chunked datasets
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     ik - Symbol table tree rank
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_istore_k_c (hid_t_f *prp_id, int_f* ik)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     unsigned c_ik;

     /*
      * Call H5Pget_istore_k function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_istore_k(c_prp_id, &c_ik);
     *ik = (int_f)c_ik;
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_driver_c
 * NAME
 *        h5pget_driver_c
 * PURPOSE
 *     Call H5Pget_driver to get low-level file driver identifier
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     driver - low-level file driver identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_driver_c (hid_t_f *prp_id, hid_t_f* driver)
/******/
{
     int ret_value = -1;
     hid_t c_driver;

     /*
      * Call H5Pget_driver function.
      */
     c_driver = H5Pget_driver((hid_t)*prp_id);
     if (c_driver < 0) goto DONE;

     *driver = (hid_t_f) c_driver;
     ret_value = 0;

DONE:
     return ret_value;
}

/****if* H5Pf/h5pset_fapl_stdio_c
 * NAME
 *        h5pset_fapl_stdio_c
 * PURPOSE
 *     Call H5Pset_stdio to set the low level file driver to
 *              use the functions declared in the stdio.h
 * INPUTS
 *      prp_id - property list identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 7, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_stdio_c (hid_t_f *prp_id)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     /*
      * Call H5Pset_fapl_stdio function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_fapl_stdio(c_prp_id);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}
#ifdef NO_SUCH_F90_FUNCTION
/****if* H5Pf/h5pget_fapl_stdio_c
 * NAME
 *        h5pget_fapl_stdio_c
 * PURPOSE
 *     Call H5Pget_fapl_stdio to determine whther the low level file driver
 *              uses the functions declared in the stdio.h
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     io - value indicates whether the file driver uses
 *                   the functions declared in the stdio.h
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_stdio_c (hid_t_f *prp_id, int_f* io)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     /*
      * Call H5Pget_fapl_stdio function.
      */
     c_prp_id = *prp_id;
     ret = H5Pget_fapl_stdio(c_prp_id);
     if (ret < 0) return ret_value;
     *io = (int_f)ret;
     ret_value = 0;
     return ret_value;
}

#endif /*NO_SUCH_F90_FUNCTION*/

/****if* H5Pf/h5pset_fapl_sec2_c
 * NAME
 *        h5pset_fapl_sec2_c
 * PURPOSE
 *     Call H5Pset_fapl_sec2 to set the low level file driver to
 *              use the functions declared in the  unistd.h
 * INPUTS
 *      prp_id - property list identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_sec2_c (hid_t_f *prp_id)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     /*
      * Call H5Pset_fapl_sec2 function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_fapl_sec2(c_prp_id);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

#ifdef NO_SUCH_F90_FUNCTION
/****if* H5Pf/h5pget_fapl_sec2_c
 * NAME
 *        h5pget_fapl_sec2_c
 * PURPOSE
 *     Call H5Pget_fapl_stdio to determine whther the low level file driver
 *              uses the functions declared in the  unistd.h
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     sec2 - value indicates whether the file driver uses
 *                   the functions declared in the  unistd.h
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_sec2_c (hid_t_f *prp_id, int_f* sec2)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     /*
      * Call H5Pget_fapl_sec2 function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_fapl_sec2(c_prp_id);
     if (ret < 0) return ret_value;
     *sec2 = (int_f)ret;
     ret_value = 0;
     return ret_value;
}
#endif /*NO_SUCH_F90_FUNCTION*/

/****if* H5Pf/h5pset_alignment_c
 * NAME
 *        h5pset_alignment_c
 * PURPOSE
 *     Call H5Pset_alignment to set alignment properties of
 *              a file access property list
 * INPUTS
 *      prp_id - property list identifier
 *              threshold - Threshold value
 *              alignment - Alignment value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     hsize_t c_threshold, c_alignment;
     c_threshold = (hsize_t)*threshold;
     c_alignment = (hsize_t)* alignment;
     /*
      * Call H5Pset_alignment function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_alignment(c_prp_id, c_threshold, c_alignment);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_alignment_c
 * NAME
 *        h5pget_alignment_c
 * PURPOSE
 *     Call H5Pget_alignment to get alignment properties of
 *              a file access property list
 * INPUTS
 *      prp_id - property list identifier
 *              threshold - Threshold value
 *              alignment - Alignment value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_alignment_c (hid_t_f *prp_id, hsize_t_f* threshold, hsize_t_f* alignment)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     hsize_t c_threshold, c_alignment;
     /*
      * Call H5Pget_alignment function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_alignment(c_prp_id, &c_threshold, &c_alignment);
     if (ret < 0) return ret_value;
     *threshold = (hsize_t_f)c_threshold;
     *alignment = (hsize_t_f)c_alignment;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_fapl_core_c
 * NAME
 *        h5pset_fapl_core_c
 * PURPOSE
 *     Call H5Pset_fapl_core to set the low-level file driver
 *              to use malloc() and free()
 * INPUTS
 *      prp_id - property list identifier
 *              increment - File block size in bytes
 *              flag - Boolean flag indicating whether to write the
 *              file contents to disk when the file is closed.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     size_t c_increment;
     hbool_t c_backing_store;
     c_increment = (size_t)*increment;
     c_backing_store = (hbool_t)*flag;

     /*
      * Call H5Pset_fapl_core function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_fapl_core(c_prp_id, c_increment, c_backing_store);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_fapl_core_c
 * NAME
 *        h5pget_fapl_core_c
 * PURPOSE
 *     Call H5Pget_fapl_core to determine whether the file access
 *              property list is set to the core drive
 * INPUTS
 *      prp_id - property list identifier
 * Outputs      increment - File block size in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_core_c (hid_t_f *prp_id, size_t_f* increment, int_f *flag)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     size_t c_increment = 0;
     hbool_t c_backing_store;
     *flag = 0;
     /*
      * Call H5Pset_fapl_core function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_fapl_core(c_prp_id, &c_increment, &c_backing_store);
     if (ret < 0) return ret_value;
     *increment = (size_t_f)c_increment;
     if(c_backing_store  > 0) *flag = 1;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_fapl_family_c
 * NAME
 *        h5pset_fapl_family_c
 * PURPOSE
 *     Call H5Pset_fapl_family to set the file access properties list
 *              to the family driver
 * INPUTS
 *      prp_id - property list identifier
 *              memb_size -  Logical size, in bytes, of each family member.
 *              memb_plist - Identifier of the file access property list
 *                           for each member of the family
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist )
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     hsize_t c_memb_size;
     hid_t c_memb_plist;
     c_memb_size =(hsize_t) *memb_size;
     c_memb_plist =(hid_t) *memb_plist;
     /*
      * Call H5Pset_fapl_family function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_fapl_family(c_prp_id, c_memb_size, c_memb_plist);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_fapl_family_c
 * NAME
 *        h5pget_fapl_family_c
 * PURPOSE
 *     Call H5Pget_fapl_family to determine whether the file access
 *              property list is set to the family driver
 * INPUTS
 *      prp_id - property list identifier
 *              memb_size -  Logical size, in bytes, of each family member.
 *              memb_plist - Identifier of the file access property list
 *                           for each member of the family
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     hsize_t c_memb_size = 0;
     hid_t c_memb_plist = -1;
     /*
      * Call H5Pget_fapl_family function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_fapl_family(c_prp_id, &c_memb_size, &c_memb_plist);
     if (ret < 0) return ret_value;
     *memb_size = (hsize_t_f)c_memb_size;
     *memb_plist = (hid_t_f)c_memb_plist;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_cache_c
 * NAME
 *        h5pset_cache_c
 * PURPOSE
 *     Call H5Pset_cache to set he number of elements in
 *              the meta data cache and the total number of bytes in
 *              the raw data chunk cache
 * INPUTS
 *      prp_id - property list identifier
 *              mdc_nelmts - Number of elements (objects) in the
 *                           meta data cache
 *              rdcc_nbytes - Total size of the raw data chunk cache, in bytes
 *              rdcc_w0 - Preemption policy
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 * Changed the type of the rdcc_w0 parameter to be real_f EP 7/7/00
 *                instead of double
 * SOURCE
*/
int_f
nh5pset_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts,  size_t_f* rdcc_nbytes , real_f* rdcc_w0 )
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     int c_mdc_nelmts;
     size_t c_rdcc_nelmts;
     size_t c_rdcc_nbytes;
     double c_rdcc_w0;
     c_rdcc_nbytes =(size_t) *rdcc_nbytes;
     c_rdcc_w0 = (double)*rdcc_w0;

     /*
      * Call H5Pset_cache function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_mdc_nelmts = (int)*mdc_nelmts;
     c_rdcc_nelmts = (size_t)*rdcc_nelmts;
     ret = H5Pset_cache(c_prp_id, c_mdc_nelmts, c_rdcc_nelmts, c_rdcc_nbytes, c_rdcc_w0  );
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_cache_c
 * NAME
 *        h5pget_cache_c
 * PURPOSE
 *     Call H5Pget_cache to get he number of elements in
 *              the meta data cache and the total number of bytes in
 *              the raw data chunk cache
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     mdc_nelmts - Number of elements (objects) in the
 *                           meta data cache
 *              rdcc_nelmts - Number of elements in the raw data chunk
 *              rdcc_nbytes - Total size of the raw data chunk cache, in bytes
 *              rdcc_w0 - Preemption policy
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 * Changed type of the rdcc_w0 parameter to be real_f instead of double
 *                Changed type of the rdcc_nelmts parameter to be int_f.
 *                                                          EIP  October 10, 2003
 * SOURCE
*/
int_f
nh5pget_cache_c(hid_t_f *prp_id, int_f* mdc_nelmts, size_t_f* rdcc_nelmts, size_t_f* rdcc_nbytes , real_f* rdcc_w0)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     int c_mdc_nelmts;
     size_t c_rdcc_nelmts;
     size_t c_rdcc_nbytes;
     double c_rdcc_w0;
     /*
      * Call H5Pget_cache function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_cache(c_prp_id, &c_mdc_nelmts, &c_rdcc_nelmts, &c_rdcc_nbytes, &c_rdcc_w0);
     if (ret < 0) return ret_value;
     *mdc_nelmts = (int_f)c_mdc_nelmts;
     *rdcc_nelmts = (size_t_f)c_rdcc_nelmts;
     *rdcc_nbytes = (size_t_f)c_rdcc_nbytes;
     *rdcc_w0 = (real_f)c_rdcc_w0;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_fapl_split_c
 * NAME
 *        h5pset_fapl_split_c
 * PURPOSE
 *     Call H5Pset_fapl_split to set he low-level driver to split meta data
 *              from raw data
 * INPUTS
 *      prp_id - property list identifier
 *              meta_len - Length of meta_ext
 *              meta_ext - Name of the extension for the metafile filename.
 *              meta_plist - Identifier of the meta file access property list
 *              raw_len - Length of raw _ext
 *              raw_ext - Name of the extension for the raw file filename.
 *              raw_plist - Identifier of the raw  file access property list
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9, 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_plist, int_f* raw_len, _fcd raw_ext, hid_t_f * raw_plist)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     hid_t c_meta_plist;
     hid_t c_raw_plist;
     herr_t ret = -1;
     char* c_meta_ext;
     char* c_raw_ext;

     c_meta_ext = (char *)HD5f2cstring(meta_ext, (size_t)*meta_len);
     if (c_meta_ext == NULL) return ret_value;
     c_raw_ext = (char *)HD5f2cstring(raw_ext, (size_t)*raw_len);
     if (c_raw_ext == NULL) { HDfree(c_meta_ext);
                              return ret_value;
                            }

     /*
      * Call H5Pset_fapl_split function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_meta_plist = (hid_t)*meta_plist;
     c_raw_plist = (hid_t)*raw_plist;
     ret = H5Pset_fapl_split(c_prp_id, c_meta_ext, c_meta_plist, c_raw_ext, c_raw_plist );

     if (ret < 0) goto DONE;
     ret_value = 0;

DONE:
     HDfree(c_meta_ext);
     HDfree(c_raw_ext);
     return ret_value;
}


#ifdef NO_SUCH_F90_FUNCTION
/****if* H5Pf/h5pget_fapl_split_c
 * NAME
 *        h5pget_fapl_split_c
 * PURPOSE
 *     Call H5Pget_fapl_split to determine whether the file access
 *              property list is set to the split driver
 * INPUTS
 *      prp_id - property list identifier
 *              meta_ext_size - Number of characters of the meta file extension
 *                              to be copied to the meta_ext buffer
 *              raw_ext_size - Number of characters of the raw file extension
 *                              to be copied to the raw_ext buffer
 *OUTPUT
 *      meta_ext - Name of the extension for the metafile filename.
 *              meta_plist - Identifier of the meta file access property list
 *              raw_ext - Name of the extension for the raw file filename.
 *              raw_plist - Identifier of the raw  file access property list
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 9 , 2001
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_f* meta_plist, size_t_f* raw_ext_size, _fcd raw_ext, hid_t_f * raw_plist)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret = -1;
     size_t c_meta_ext_size, c_raw_ext_size;
     hid_t c_meta_plist = -1;
     hid_t c_raw_plist = -1;

     char* c_meta_ext = NULL;
     char* c_raw_ext  = NULL;

     c_meta_ext_size = (size_t) *meta_ext_size;
     c_raw_ext_size = (size_t) *raw_ext_size;
     c_meta_ext = (char *)HDmalloc(sizeof(char) * c_meta_ext_size);
     c_raw_ext = (char *)HDmalloc(sizeof(char) * c_raw_ext_size);
     if(c_meta_ext == NULL || c_raw_ext == NULL) return ret_value;

     /*
      * Call H5Pget_fapl_split function.
      */
     c_prp_id = *prp_id;
     ret = H5Pget_fapl_split(c_prp_id, c_meta_ext_size, c_meta_ext,&c_meta_plist, c_raw_ext_size, c_raw_ext, &c_raw_plist );

     if (ret < 0) return ret_value;
     *meta_plist = c_meta_plist;
     *raw_plist = c_raw_plist;
     HD5packFstring(c_meta_ext, _fcdtocp(meta_ext), strlen(c_meta_ext));
     HD5packFstring(c_raw_ext, _fcdtocp(raw_ext), strlen(c_raw_ext));

     ret_value = 0;
     return ret_value;
}
#endif /*NO_SUCH_F90_FUNCTION*/

/****if* H5Pf/h5pset_gc_references_c
 * NAME
 *        h5pset_gc_references_c
 * PURPOSE
 *     Call H5Pset_gc_references to set garbage
 *              collecting references flag
 * INPUTS
 *      prp_id - property list identifier
 *              gc_reference - flag for garbage collecting references
 *                             for the file
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     unsigned c_gc_references;
     c_gc_references = (unsigned)*gc_references;

     /*
      * Call H5Pset_gc_references function.
      */
     c_prp_id = *prp_id;
     ret = H5Pset_gc_references(c_prp_id, c_gc_references);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_gc_references_c
 * NAME
 *        h5pget_gc_references_c
 * PURPOSE
 *     Call H5Pget_gc_references to set garbage
 *              collecting references flag
 * INPUTS
 *      prp_id - property list identifier
 * Outputs      gc_reference - flag for garbage collecting references
 *                             for the file
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_gc_references_c (hid_t_f *prp_id, int_f* gc_references)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     unsigned c_gc_references;
     herr_t ret;
     /*
      * Call H5Pget_gc_references function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_gc_references(c_prp_id, &c_gc_references);
     if (ret < 0) return ret_value;
     *gc_references = (int_f)c_gc_references;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_layout_c
 * NAME
 *        h5pset_layout_c
 * PURPOSE
 *     Call H5Pset_layout to the type of storage used
 *              store the raw data for a dataset
 * INPUTS
 *      prp_id - property list identifier
 *              layout - Type of storage layout for raw data.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_layout_c (hid_t_f *prp_id, int_f* layout)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     H5D_layout_t c_layout;
     c_layout = (H5D_layout_t)*layout;
     /*
      * Call H5Pset_layout function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_layout(c_prp_id, c_layout);

     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_layout_c
 * NAME
 *        h5pget_layout_c
 * PURPOSE
 *     Call H5Pget_layout to the type of storage used
 *              store the raw data for a dataset
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     layout - Type of storage layout for raw data.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_layout_c (hid_t_f *prp_id, int_f* layout)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     H5D_layout_t c_layout;
     /*
      * Call H5Pget_layout function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_layout = H5Pget_layout(c_prp_id);
     if (c_layout < 0) return ret_value;
     *layout = (int_f)c_layout;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_filter_c
 * NAME
 *        h5pset_filter_c
 * PURPOSE
 *     Call H5Pset_filter to add a filter to the filter pipeline.
 * INPUTS
 *      prp_id - property list identifier
 *              filter - Filter to be added to the pipeline.
 *              flags - Bit vector specifying certain general
 *                      properties of the filter.
 *              cd_nelmts - Number of elements in cd_values.
 *              cd_values - Auxiliary data for the filter.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Wednesday, February 23, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values )
/******/
{
     int ret_value = -1;
     hid_t c_prp_id = (hid_t)*prp_id;
     herr_t ret;
     size_t c_cd_nelmts = (size_t)*cd_nelmts;
     unsigned int c_flags = (unsigned)*flags;
     H5Z_filter_t c_filter = (H5Z_filter_t)*filter;
     unsigned int * c_cd_values;
     unsigned i;

     c_cd_values = (unsigned int*)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
     if (!c_cd_values) return ret_value;
     for (i = 0; i < c_cd_nelmts; i++)
          c_cd_values[i] = (unsigned int)cd_values[i];

     /*
      * Call H5Pset_filter function.
      */
     ret = H5Pset_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts,c_cd_values );

     if (ret < 0) goto DONE;
     ret_value = 0;

DONE:
     HDfree(c_cd_values);
     return ret_value;
}

/****if* H5Pf/h5pget_nfilters_c
 * NAME
 *  h5pget_nfilters_c
 * PURPOSE
 *  Call H5Pget_nfilters to get the number of filters
 *  in the pipeline
 * INPUTS
 *  prp_id   - property list identifier
 * OUTPUTS
 *  nfilters - number of filters defined in the filter pipline
 * RETURNS
 *  0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *  Friday, February 25, 2000
 * SOURCE
*/
int_f
nh5pget_nfilters_c (hid_t_f *prp_id, int_f* nfilters)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     int c_nfilters;
     /*
      * Call H5Pget_nfilters function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_nfilters = H5Pget_nfilters(c_prp_id);
     if (c_nfilters < 0) return ret_value;

     *nfilters = (int_f)c_nfilters;
     ret_value = 0;

     return ret_value;
}

/*----------------------------------------------------------------------------
 * Name:        h5pget_filter_c
 * Purpose:     Call H5Pget_filter2 to get information about a filter
 *              in a pipeline
 * Inputs:      prp_id - property list identifier
 *              filter_number - Sequence number within the filter
 *                              pipeline of the filter for which
 *                              information is sought.
 *              namelen - Anticipated number of characters in name.
 *Outputs:      flags - Bit vector specifying certain general
 *                      properties of the filter.
 *              cd_nelmts - Number of elements in cd_value
 *              cd_values - Auxiliary data for the filter.
 *              name - Name of the filter
 *              filter_id - filter identification number
 * Returns:     0 on success, -1 on failure
 * Programmer:  Xiangyang Su
 *              Friday, February 25, 2000
 * Modifications:
 *              Since cd_nelmts has IN/OUT attributes, fixed the input and
 *              returned value of cd_nelmnts to satisfy this specification.
 *              MSB January 27, 2009
 *---------------------------------------------------------------------------*/
int_f
nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name, int_f* filter_id)
/******/
{
    unsigned int  c_flags;
    size_t c_cd_nelmts = 0;
    H5Z_filter_t c_filter;
    unsigned int *c_cd_values = NULL;
    char *c_name = NULL;
    unsigned i;
    int ret_value = -1;

    c_cd_nelmts = (size_t)*cd_nelmts;

    if(NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
        goto DONE;

    if(NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts)))
        goto DONE;

    /*
     * Call H5Pget_filter2 function.
     */
    if((c_filter = H5Pget_filter2((hid_t)*prp_id, (unsigned)*filter_number, &c_flags, &c_cd_nelmts, c_cd_values, (size_t)*namelen, c_name, NULL)) < 0)
        goto DONE;

    *filter_id = (int_f)c_filter;
    *cd_nelmts = (size_t_f)c_cd_nelmts;
    *flags = (int_f)c_flags;
    HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));

    for(i = 0; i < c_cd_nelmts; i++)
         cd_values[i] = (int_f)c_cd_values[i];

    ret_value = 0;

DONE:
    if(c_name)
        HDfree(c_name);
    if(c_cd_values)
        HDfree(c_cd_values);
    return ret_value;
}

/****if* H5Pf/h5pset_external_c
 * NAME
 *  h5pset_external_c
 * PURPOSE
 *  Call H5Pset_external to add an external file to the
 *  list of external files.
 * INPUTS
 *  prp_id  - property list identifier
 *  name    - Name of an external file
 *  namelen - length of name
 *  offset  - Offset, in bytes, from the beginning of the file
 *            to the location in the file where the data starts.
 *  bytes   - Number of bytes reserved in the file for the data.
 * RETURNS
 *  0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *  Wednesday, February 23, 2000
 * HISTORY
 *  Changed type of 'offset' from int_f to off_t_f -- MSB January 9, 2012
 *  
 * SOURCE
*/
int_f
nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, off_t_f* offset, hsize_t_f*bytes)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     hsize_t c_bytes;
     char* c_name;
     size_t c_namelen = (size_t)*namelen;
     off_t c_offset;
     c_bytes = (hsize_t) *bytes;
     c_offset = (off_t) *offset;


     c_name = (char *)HD5f2cstring(name, c_namelen);
     if (c_name == NULL) return ret_value;

     /*
      * Call H5Pset_external function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_external(c_prp_id, c_name, c_offset, c_bytes);

     if (ret < 0) goto DONE;
     ret_value = 0;

DONE:
     HDfree(c_name);
     return ret_value;
}

/****if* H5Pf/h5pget_external_count_c
 * NAME
 *        h5pget_external_count_c
 * PURPOSE
 *     Call H5Pget_external_count to get the number of external
 *              files for the specified dataset.
 * INPUTS
 *      prp_id - property list identifier
 * OUTPUTS
 *     count - number of external files
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_external_count_c (hid_t_f *prp_id, int_f* count)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     int c_count;
     /*
      * Call H5Pget_external_count function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_count = H5Pget_external_count(c_prp_id);
     if (c_count < 0) return ret_value;
     *count = (int_f)c_count;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_external_c
 * NAME
 *  h5pget_external_c
 * PURPOSE
 *  Call H5Pget_external to get nformation about an external file.
 * INPUTS
 *    prp_id - property list identifier
 * name_size - length of name
 *       idx - External file index.
 * OUTPUT
 *      name - Name of an external file
 *    offset - Offset, in bytes, from the beginning of the file
 *             to the location in the file where the data starts.
 *     bytes - Number of bytes reserved in the file for the data.
 * RETURNS
 *  on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *  Wednesday, February 23, 2000
 * HISTORY
 *  Changed type of 'offset' from integer to off_t -- MSB January 9, 2012
 *
 * SOURCE
*/
int_f
nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name, off_t_f* offset, hsize_t_f*bytes)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     unsigned c_idx;
     herr_t status;
     size_t c_namelen;
     char* c_name = NULL;
     off_t c_offset;
     hsize_t size;

     c_namelen = (size_t)*name_size;
     /*
      * Allocate memory to store the name of the external file.
      */
     if(c_namelen) c_name = (char*)HDmalloc(c_namelen + 1);
     if (c_name == NULL) return ret_value;

     /*
      * Call H5Pget_external function.
      */
     c_prp_id = (hid_t)*prp_id;
     c_idx = (unsigned)*idx;
     status = H5Pget_external(c_prp_id, c_idx, c_namelen+1, c_name, &c_offset, &size );

     if (status < 0) goto DONE;

     *offset = (off_t_f)c_offset;
     *bytes = (hsize_t_f)size;
     /* Note: if the size of the fortran buffer is larger then the returned string
      *       from the function then we need to give HD5packFstring the fortran buffer size so
      *       that it fills the remaining unused characters with blanks. MSB
      */
     HD5packFstring(c_name, _fcdtocp(name), c_namelen);
     ret_value = 0;

DONE:
     HDfree(c_name);
     return ret_value;
}

/****if* H5Pf/h5pset_btree_ratios_c
 * NAME
 *        h5pset_btree_ratios_c
 * PURPOSE
 *     Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer property list. a
 *              dataset transfer property list.
 * INPUTS
 *      prp_id - property list identifier
 *              left - The B-tree split ratio for left-most nodes.
 *              middle - The B-tree split ratio for all other nodes
 *              right - The B-tree split ratio for right-most nodes
 *                      and lone nodes.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 * Changed the type of the last three parameters from double to real_f
 * SOURCE
*/
int_f
nh5pset_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     double c_left;
     double c_middle;
     double c_right;
     c_left = (double)*left;
     c_middle = (double)*middle;
     c_right = (double)*right;

     /*
      * Call H5Pset_btree_ratios function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pset_btree_ratios(c_prp_id, c_left, c_middle, c_right);
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_btree_ratios_c
 * NAME
 *        h5pget_btree_ratios_c
 * PURPOSE
 *     Call H5Pget_btree_ratios to Gets B-tree split ratios
 *              for a dataset transfer property list.
 * INPUTS
 *      prp_id - property list identifier
 *              left - The B-tree split ratio for left-most nodes.
 *              middle - The B-tree split ratio for all other nodes
 *              right - The B-tree split ratio for right-most nodes
 *                      and lone nodes.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Xiangyang Su
 *              Friday, February 25, 2000
 * HISTORY
 * Changed the type of the last three parameters from double to real_f
 * SOURCE
*/
int_f
nh5pget_btree_ratios_c(hid_t_f *prp_id, real_f* left, real_f* middle, real_f* right)
/******/
{
     int ret_value = -1;
     hid_t c_prp_id;
     herr_t ret;
     double c_left, c_right, c_middle;

     /*
      * Call H5Pget_btree_ratios function.
      */
     c_prp_id = (hid_t)*prp_id;
     ret = H5Pget_btree_ratios(c_prp_id, &c_left, &c_middle, &c_right);
     *left = (real_f)c_left;
     *middle = (real_f)c_middle;
     *right = (real_f)c_right;
     if (ret < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}
/****if* H5Pf/h5pget_fclose_degree_c
 * NAME
 *        h5pget_fclose_degree_c
 * PURPOSE
 *     Call H5Pget_fclose_degree to determine file close behavior
 * INPUTS
 *      fapl_id - file access identifier
 * OUTPUTS
 *
 *              degree  - possible values are:
 *              		H5F_CLOSE_DEFAULT
 *              		H5F_CLOSE_WEAK
 *              		H5F_CLOSE_SEMI
 *              		H5F_CLOSE_STRONG
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Thursday, September 26, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
/******/
{
  int ret_value = -1;
  hid_t c_fapl_id;
  H5F_close_degree_t c_degree;

  c_fapl_id = (hid_t)*fapl_id;
  if( H5Pget_fclose_degree(c_fapl_id, &c_degree) < 0) return ret_value;

  *degree = (int_f)c_degree;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_fclose_degree_c
 * NAME
 *        h5pset_fclose_degree_c
 * PURPOSE
 *     Call H5Pset_fclose_degree to set file close behavior
 * INPUTS
 *      fapl_id - file access identifier
 *              degree  - possible values are:
 *              		H5F_CLOSE_DEFAULT
 *              		H5F_CLOSE_WEAK
 *              		H5F_CLOSE_SEMI
 *              		H5F_CLOSE_STRONG
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Thursday, September 26, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_fclose_degree_c ( hid_t_f *fapl_id , int_f *degree)
/******/
{
  int ret_value = -1;
  hid_t c_fapl_id;
  H5F_close_degree_t c_degree;

  c_fapl_id = (hid_t)*fapl_id;
  c_degree = (H5F_close_degree_t)*degree;
  if( H5Pset_fclose_degree(c_fapl_id, c_degree) < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_buffer_c
 * NAME
 *        h5pset_buffer_c
 * PURPOSE
 *     Call H5Pset_buffer to set size of conversion buffer
 * INPUTS
 *      prp_id - t`dataset trasfer property list identifier
 *              size   - size of the buffer
 * OUTPUTS
 *     NONE
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Wednesday, October 2, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  size_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = (size_t)*size;
  if ( H5Pset_buffer(c_prp_id, c_size, NULL, NULL) < 0  ) ret_value = -1;
  return ret_value;
}

/****if* H5Pf/h5pget_buffer_c
 * NAME
 *        h5pget_buffer_c
 * PURPOSE
 *     Call H5Pget_buffer to get size of conversion buffer
 * INPUTS
 *      prp_id - t`dataset trasfer property list identifier
 * OUTPUTS
 *     size - size of conversion buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Wednesday, October 2, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_buffer_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  hsize_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = H5Pget_buffer(c_prp_id, NULL, NULL);
  if ( c_size == 0  ) return ret_value;
  *size = (hsize_t_f)c_size;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pfill_value_defined_c
 * NAME
 *        h5pfill_value_defined_c
 * PURPOSE
 *     Call H5Pfill_value_defined to check if fill value is defined
 * INPUTS
 *      prp_id - dataset creation property list identifier
 * OUTPUTS
 *     flag - fill value status flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Friday, October 4, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pfill_value_defined_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  H5D_fill_value_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pfill_value_defined(c_prp_id, &c_flag) < 0  ) return ret_value;
  *flag = (int_f)c_flag;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pget_alloc_time_c
 * NAME
 *        h5pget_alloc_time_c
 * PURPOSE
 *     Call H5Pget_alloc_time to get space allocation
 *              time for dataset during creation
 * INPUTS
 *      prp_id - dataset creation property list identifier
 * OUTPUTS
 *     flag - allocation time flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Friday, October 4, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  H5D_alloc_time_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_alloc_time(c_prp_id, &c_flag) < 0  ) return ret_value;
  *flag = (int_f)c_flag;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pset_alloc_time_c
 * NAME
 *        h5pset_alloc_time_c
 * PURPOSE
 *     Call H5Pset_alloc_time to get space allocation
 *              time for dataset during creation
 * INPUTS
 *      prp_id - dataset creation property list identifier
 *              flag - allocation time flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Friday, October 4, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_alloc_time_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  H5D_alloc_time_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  c_flag = (H5D_alloc_time_t)*flag;
  if ( H5Pset_alloc_time(c_prp_id, c_flag) < 0  ) return ret_value;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pget_fill_time_c
 * NAME
 *        h5pget_fill_time_c
 * PURPOSE
 *     Call H5Pget_fill_time to get fill value writing
 *              time for dataset during creation
 * INPUTS
 *      prp_id - dataset creation property list identifier
 * OUTPUTS
 *     flag - fill value writing  time flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Friday, October 4, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_fill_time_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  H5D_fill_time_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_fill_time(c_prp_id, &c_flag) < 0  ) return ret_value;
  *flag = (int_f)c_flag;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pset_fill_time_c
 * NAME
 *        h5pset_fill_time_c
 * PURPOSE
 *     Call H5Pset_fill_time to set fill value writing
 *              time for dataset during creation
 * INPUTS
 *      prp_id - dataset creation property list identifier
 *              flag - fill value writing  time flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Friday, October 4, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_fill_time_c ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int ret_value = -1;
  hid_t c_prp_id;
  H5D_fill_time_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  c_flag = (H5D_fill_time_t)*flag;
  if ( H5Pset_fill_time(c_prp_id, c_flag) < 0  ) return ret_value;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pset_meta_block_size_c
 * NAME
 *        h5pset_meta_block_size_c
 * PURPOSE
 *     Call H5Pset_meta_block_size to set size of  metadata block
 * INPUTS
 *      prp_id - file access  property list identifier
 *              size   - size of the metadata block
 * OUTPUTS
 *     NONE
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  hsize_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = (hsize_t)*size;
  if ( H5Pset_meta_block_size(c_prp_id, c_size) < 0  ) ret_value = -1;
  return ret_value;
}
/****if* H5Pf/h5pget_meta_block_size_c
 * NAME
 *        h5pget_meta_block_size_c
 * PURPOSE
 *     Call H5Pget_meta_block_size to get size of  metadata block
 * INPUTS
 *      prp_id - file access  property list identifier
 * OUTPUTS
 *
 *              size   - size of the metadata block
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_meta_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  hsize_t c_size;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_meta_block_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
  *size = (hsize_t_f)c_size;
  return ret_value;
}
/****if* H5Pf/h5pset_sieve_buf_size_c
 * NAME
 *        h5pset_sieve_buf_size_c
 * PURPOSE
 *     Call H5Pset_sieve_buf_size to set size of datasieve buffer
 * INPUTS
 *      prp_id - file access  property list identifier
 *              size   - size of the buffer
 * OUTPUTS
 *     NONE
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  size_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = (size_t)*size;
  if ( H5Pset_sieve_buf_size(c_prp_id, c_size) < 0  ) ret_value = -1;
  return ret_value;
}
/****if* H5Pf/h5pget_sieve_buf_size_c
 * NAME
 *        h5pget_sieve_buf_size_c
 * PURPOSE
 *     Call H5Pget_sieve_buf_size to get size of datasieve buffer
 * INPUTS
 *      prp_id - file access  property list identifier
 * OUTPUTS
 *
 *              size   - size of the buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_sieve_buf_size_c ( hid_t_f *prp_id , size_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  size_t c_size;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_sieve_buf_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
  *size = (size_t_f)c_size;
  return ret_value;
}
/****if* H5Pf/h5pset_small_data_block_size_c
 * NAME
 *        h5pset_small_data_block_size_c
 * PURPOSE
 *     Call H5Pset_small_data_block_size to set size of raw small data block
 * INPUTS
 *      prp_id - file access  property list identifier
 *              size   - size of the block
 * OUTPUTS
 *     NONE
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  hsize_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = (hsize_t)*size;
  if ( H5Pset_small_data_block_size(c_prp_id, c_size) < 0  ) ret_value = -1;
  return ret_value;
}
/****if* H5Pf/h5pget_small_data_block_size_c
 * NAME
 *        h5pget_small_data_block_size_c
 * PURPOSE
 *     Call H5Pget_small_data_block_size to get size of raw small data block
 * INPUTS
 *      prp_id - file access  property list identifier
 * OUTPUTS
 *
 *              size   - size of the block
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_small_data_block_size_c ( hid_t_f *prp_id , hsize_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  hsize_t c_size;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_small_data_block_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
  *size = (hsize_t_f)c_size;
  return ret_value;
}
/****if* H5Pf/h5pset_hyper_vector_size_c
 * NAME
 *        h5pset_hyper_vector_size_c
 * PURPOSE
 *     Call H5Pset_hyper_vector_size to set size of the hyper vector
 * INPUTS
 *      prp_id - dataset transfer property list identifier
 *              size   - size of the vector
 * OUTPUTS
 *     NONE
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  size_t c_size;

  c_prp_id = (hid_t)*prp_id;
  c_size = (size_t)*size;
  if ( H5Pset_hyper_vector_size(c_prp_id, c_size) < 0  ) ret_value = -1;
  return ret_value;
}
/****if* H5Pf/h5pget_hyper_vector_size_c
 * NAME
 *        h5pget_hyper_vector_size_c
 * PURPOSE
 *     Call H5Pget_hyper_vector_size to get size of the hyper vector
 * INPUTS
 *      prp_id - dataset transfer property list identifier
 * OUTPUTS
 *
 *              size   - size of the vector
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday, October 7, 2002
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
/******/
{
  int ret_value = 0;
  hid_t c_prp_id;
  size_t c_size;

  c_prp_id = (hid_t)*prp_id;
  if ( H5Pget_hyper_vector_size(c_prp_id, &c_size) < 0  ) ret_value = -1;
  *size = (size_t_f)c_size;
  return ret_value;
}

/****if* H5Pf/h5pcreate_class_c
 * NAME
 *        h5pcreate_class_c
 * PURPOSE
 *     Call H5Pcreate_class ito create a new property class
 * INPUTS
 *      parent - property list class identifier
 *              name   - name of the new class
 *              name_len - lenght of the "name" buffer
 * OUTPUTS
 *     class - new class identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 *
 * HISTORY
 *  Added the callback parameters (FORTRAN 2003 compilers only)
 *  M. Scot Breitenfeld, July 3, 2008
 * SOURCE
*/
int_f
nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls,
		   H5P_cls_create_func_t create, void *create_data,
		   H5P_cls_copy_func_t copy, void *copy_data,
		   H5P_cls_close_func_t close, void *close_data)
/******/
{
     int ret_value = -1;
     hid_t c_class;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     /*
      * Call H5Pcreate_class function.
      */
     c_class = H5Pcreate_class((hid_t)*parent, c_name, create, create_data, copy, copy_data, close, close_data);

     if (c_class < 0) goto DONE;
     *cls = (hid_t_f)c_class;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}


/****if* H5Pf/h5pregisterc_c
 * NAME
 *        h5pregisterc_c
 * PURPOSE
 *     Call h5pregister_c to registers a permanent property
 * INPUTS
 *      class - property list class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 *              size - property size
 *              value - property value of character type
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
/******/
{
     int ret_value = -1;

     /*
      * Call h5pregister_c function
      */
      ret_value = nh5pregister_c(cls, name, name_len, size, _fcdtocp(value));
      return ret_value;
}

/****if* H5Pf/h5pregister_c
 * NAME
 *        h5pregister_c
 * PURPOSE
 *     Call H5Pregister2 to registers a permanent property
 * INPUTS
 *      class - property list class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 *              size - property size
 *              value - property value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
/******/
{
     char* c_name = NULL;
     int_f ret_value = -1;

     if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
         goto DONE;

     /*
      * Call H5Pregister2 function.
      */
     if(H5Pregister2((hid_t)*cls, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
         goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL)
         HDfree(c_name);
     return ret_value;
}

int_f
nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pregister_c function
      */
     return nh5pregister_c(cls, name, name_len, size, value);
}

int_f
nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pregister_c function
      */
     return nh5pregister_c(cls, name, name_len, size, value);
}

int_f
nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pregister_c function
      */
     return nh5pregister_c(cls, name, name_len, size, value);
}

/****if* H5Pf/h5pinsertc_c
 * NAME
 *        h5pinsertc_c
 * PURPOSE
 *     Call h5pinsert_c to register a temporary property
 * INPUTS
 *      plist - property list identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 *              size - property size
 *              value - property value of character type
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
/******/
{
     int_f ret_value = -1;

     /*
      * Call h5pinsert_c function
      */
      ret_value = nh5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
      return ret_value;
}

/****if* H5Pf/h5pinsert_c
 * NAME
 *        h5pinsert_c
 * PURPOSE
 *     Call H5Pinsert2 to iinsert a temporary property
 * INPUTS
 *      plist - property list class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 *              size - property size
 *              value - property value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
/******/
{
     char* c_name = NULL;
     int_f ret_value = -1;

     if(NULL == ( c_name = (char *)HD5f2cstring(name, (size_t)*name_len)))
         goto DONE;

     /*
      * Call H5Pinsert2 function.
      */
     if(H5Pinsert2((hid_t)*plist, c_name, (size_t)*size, value, NULL, NULL, NULL, NULL, NULL, NULL) < 0)
         goto DONE;
     ret_value = 0;

DONE:
     if(c_name)
         HDfree(c_name);
     return ret_value;
}

int_f
nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pinsert_c function
      */
     return nh5pinsert_c(plist, name, name_len, size, value);
}

int_f
nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pinsert_c function
      */
     return nh5pinsert_c(plist, name, name_len, size, value);
}

int_f
nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
     /*
      * Call h5pinsert_c function
      */
     return nh5pinsert_c(plist, name, name_len, size, value);
}

/****if* H5Pf/h5pexist_c
 * NAME
 *        h5pexist_c
 * PURPOSE
 *     Call H5Pexist to querie whether a property name exists
 *              in a property list or class
 * INPUTS
 *      plist - property list or property class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 * RETURNS
 *     nonnegative on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pexist_c(hid_t_f *cls, _fcd name, int_f *name_len)
/******/
{
     int_f ret_value = -1;
     hid_t c_class;
     char* c_name;
     htri_t status;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     c_class = (hid_t)*cls;
     /*
      * Call H5Pexist function.
      */
     status = H5Pexist(c_class, c_name);
     ret_value = status;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return  ret_value;
}
/****if* H5Pf/h5pisa_class_c
 * NAME
 *        h5pisa_class_c
 * PURPOSE
 *     Call H5Pisa_class to querie whether a property is a
 *              member of a class
 * INPUTS
 *      plist - property list identifier
 *              cls - property class identifier
 * RETURNS
 *     nonnegative on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pisa_class_c(hid_t_f *plist, hid_t_f *cls)
/******/
{
     int_f ret_value = -1;
     hid_t c_class;
     hid_t c_plist;
     htri_t status;

     c_class = (hid_t)*cls;
     c_plist = (hid_t)*plist;

     /*
      * Call H5Pisa_class function.
      */
     status = H5Pisa_class(c_plist, c_class);
     ret_value = status;
     return  ret_value;
}
/****if* H5Pf/h5pget_size_c
 * NAME
 *        h5pget_size_c
 * PURPOSE
 *     Call H5Pget_size to querie the size of the property
 * INPUTS
 *      plist - property list to query
 *              name   - name of the property
 *              name_len - length of the "name" buffer
 * OUTPUTS
 *     size - size of the property in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size)
/******/
{
     int_f ret_value = -1;
     hid_t c_plist;
     char* c_name;
     size_t c_size;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     c_plist = (hid_t)*plist;
     /*
      * Call H5Pget_size function.
      */
     if( H5Pget_size(c_plist, c_name, &c_size) < 0) goto DONE;
     *size = (size_t_f)c_size;
      ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}
/****if* H5Pf/h5pget_nprops_c
 * NAME
 *        h5pget_nprops_c
 * PURPOSE
 *     Call H5Pget_nporps to get number of the properties in the list
 * INPUTS
 *      plist - property list to query
 * OUTPUTS
 *     nprops - number of properties in the list
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_nprops_c(hid_t_f *plist, size_t_f *nprops)
/******/
{
     int_f ret_value = -1;
     hid_t c_plist;
     size_t c_nprops;

     c_plist = (hid_t)*plist;

     /*
      * Call H5Pget_nprops function.
      */
     if( H5Pget_nprops(c_plist, &c_nprops) < 0) return ret_value;

     *nprops = (size_t_f)c_nprops;
     ret_value = 0;
     return ret_value;
}
/****if* H5Pf/h5pget_class_parent_c
 * NAME
 *        h5pget_class_parent_c
 * PURPOSE
 *     Call H5Pget_class_parent to get the parent class of
 *              a genereic property class
 * INPUTS
 *      prp_id - property list to query
 * OUTPUTS
 *     parent_id - parent classs identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id)
/******/
{
     int_f ret_value = -1;
     hid_t c_prp_id;
     hid_t c_parent_id;

     c_prp_id = (hid_t)*prp_id;

     /*
      * Call H5Pget_class_parent function.
      */
     c_parent_id = H5Pget_class_parent(c_prp_id);
     if( c_parent_id < 0) return ret_value;

     *parent_id =(hid_t_f)c_parent_id;
     ret_value = 0;
     return ret_value;
}
/****if* H5Pf/h5pcopy_prop_c
 * NAME
 *        h5pcopy_prop_c
 * PURPOSE
 *     Call H5Pcopy_prop to copy a property from one list or
 *              class to another
 * INPUTS
 *      dst_id - identifier of destination property list
 *              src_id - identifier of source property list
 *              name   - name of the property
 *              name_len - length of the "name" buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len)
/******/
{
     int_f ret_value = -1;
     hid_t c_dst_id, c_src_id;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     c_dst_id = (hid_t)*dst_id;
     c_src_id = (hid_t)*src_id;
     /*
      * Call H5Pcopy_prop function.
      */
     if( H5Pcopy_prop(c_dst_id, c_src_id, c_name) < 0) goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}
/****if* H5Pf/h5premove_c
 * NAME
 *        h5premove_c
 * PURPOSE
 *     Call H5Premove to remove a property from a list
 * INPUTS
 *      plid - identifier of property list
 *              name   - name of the property to remove
 *              name_len - length of the "name" buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len)
/******/
{
     int_f ret_value = -1;
     hid_t c_plid;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     c_plid = (hid_t)*plid;
     /*
      * Call H5Premove function.
      */
     if( H5Premove(c_plid, c_name) < 0) goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}
/****if* H5Pf/h5punregister_c
 * NAME
 *        h5punregister_c
 * PURPOSE
 *     Call H5Punregister to remove a property from a property class
 * INPUTS
 *      cls - identifier of property class
 *              name   - name of the property to unregister
 *              name_len - length of the "name" buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5punregister_c(hid_t_f *cls, _fcd name, int_f *name_len)
/******/
{
     int_f ret_value = -1;
     hid_t c_class;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     c_class = (hid_t)*cls;
     /*
      * Call H5Punregister function.
      */
     if( H5Punregister(c_class, c_name) < 0) goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}
/****if* H5Pf/h5pclose_class_c
 * NAME
 *        h5pclose_class_c
 * PURPOSE
 *     Call H5Pclose_class to close property class
 * INPUTS
 *      class - identifier of property class to close
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pclose_class_c(hid_t_f *cls)
/******/
{
     int_f ret_value = -1;
     hid_t c_class;

     c_class = (hid_t)*cls;
     /*
      * Call H5Pclose_class function.
      */
     if( H5Pclose_class(c_class) < 0) return ret_value;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_class_name_c
 * NAME
 *        h5pget_class_name_c
 * PURPOSE
 *     Call H5Pget_class_name to get property class name
 * INPUTS
 *              cls - identifier of property class
 *              name - buffer to retrieve name in
 *              name_len - length of the "name" buffer
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_class_name_c(hid_t_f *cls, _fcd name, int_f *name_len)
/******/
{
     int_f ret_value = -1;

     /* Buffer to return name by C function */
     char *c_name;

     /*
      * Call H5Pget_class_name function. c_name is allocated by the library, 
      * has to be freed by application.
      */
     if(NULL == (c_name = H5Pget_class_name((hid_t)*cls)))
         goto DONE;

     HD5packFstring(c_name, _fcdtocp(name), (size_t)*name_len);
     ret_value = (int_f)HDstrlen(c_name);
     H5free_memory(c_name);

DONE:
     return ret_value;
}

/****if* H5Pf/h5psetc_c
 * NAME
 *        h5psetc_c
 * PURPOSE
 *     Call h5setc_c to set property with the character string value
 * INPUTS
 *      plist - property list identifier
 *              name   - name of property
 *              name_len - length of the "name" buffer
 *              value - property value of character type
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
/******/
{
     int_f ret_value = -1;

     /*
      * Call h5pset_c function
      */
      ret_value = nh5pset_c(plist, name, name_len, _fcdtocp(value));
      return ret_value;
}

/****if* H5Pf/h5pset_c
 * NAME
 *        h5pset_c
 * PURPOSE
 *     Call H5Pset to set property value
 * INPUTS
 *      plist - property list class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 *              value - property value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *  October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
/******/
{
     int_f ret_value = -1;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     /*
      * Call H5Pset function.
      */
     if( H5Pset((hid_t)*plist, c_name, value) <0) goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}

int_f
nh5pset_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pset_c function
      */
     return nh5pset_c(plist, name, name_len, value);
}

int_f
nh5pset_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pset_c function
      */
     return nh5pset_c(plist, name, name_len, value);
}

int_f
nh5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pset_c function
      */
     return nh5pset_c(plist, name, name_len, value);
}
/****if* H5Pf/h5pgetc_c
 * NAME
 *        h5pgetc_c
 * PURPOSE
 *     Call h5set_c to set property with the character string value
 * INPUTS
 *      plist - property list identifier
 *              name   - name of property
 *              name_len - length of the "name" buffer
 * Output:      value - property value of character type
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
/******/
{
     int_f ret_value = -1;

     /*
      * Call h5pget_c function
      */
      ret_value = nh5pget_c(plist, name, name_len, _fcdtocp(value));
      return ret_value;
}

/****if* H5Pf/h5pget_c
 * NAME
 *        h5pget_c
 * PURPOSE
 *     Call H5Pget to set property value
 * INPUTS
 *      plist - property list class identifier
 *              name   - name of the new property
 *              name_len - length of the "name" buffer
 * Output:      value - property value
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              October 11, 2002
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
/******/
{
     int_f ret_value = -1;
     char* c_name;

     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
     if (c_name == NULL) goto DONE;

     /*
      * Call H5Pset function.
      */
     if( H5Pget((hid_t)*plist, c_name, value) <0) goto DONE;
     ret_value = 0;

DONE:
     if(c_name != NULL) HDfree(c_name);
     return ret_value;
}

int_f
nh5pget_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pget_c function
      */
     return nh5pget_c(plist, name, name_len, value);
}

int_f
nh5pget_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pget_c function
      */
     return nh5pget_c(plist, name, name_len, value);
}

int_f
nh5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
     /*
      * Call h5pget_c function
      */
     return nh5pget_c(plist, name, name_len, value);
}


/****if* H5Pf/h5pset_shuffle_c
 * NAME
 *        h5pset_shuffle_c
 * PURPOSE
 *     Call H5Pset_shuffle
 * INPUTS
 *      prp_id - property list identifier
 *              type_size - size of the datatype in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Wednesday, March 12, 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_shuffle_c ( hid_t_f *prp_id )
/******/
{
  int_f ret_value = 0;
  hid_t c_prp_id;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  status = H5Pset_shuffle(c_prp_id);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}
/****if* H5Pf/h5pset_fletcher32_c
 * NAME
 *        h5pset_fletcher32_c
 * PURPOSE
 *     Call H5Pset_fletcher32 to enable EDC
 * INPUTS
 *      prp_id - dataset creation property list identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Thursday, March 13, 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_fletcher32_c ( hid_t_f *prp_id )
/******/
{
  int_f ret_value = 0;
  hid_t c_prp_id;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  status = H5Pset_fletcher32(c_prp_id);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}

/****if* H5Pf/h5pset_edc_check_c
 * NAME
 *        h5pset_edc_check_c
 * PURPOSE
 *     Call H5Pset_edc_check to enable EDC
 * INPUTS
 *      prp_id - dataset transfer property list identifier
 *              flag   - EDC flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Thursday, March 13, 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag )
/******/
{
  int_f ret_value = 0;
  hid_t c_prp_id;
  H5Z_EDC_t c_flag;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  c_flag = (H5Z_EDC_t)*flag;
  status = H5Pset_edc_check(c_prp_id, c_flag);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}

/****if* H5Pf/h5pget_edc_check_c
 * NAME
 *        h5pget_edc_check_c
 * PURPOSE
 *     Call H5Pget_edc_check to query EDC
 * INPUTS
 *      prp_id - dataset transfer property list identifier
 * Outouts:     flag   - EDC flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Thursday, March 13, 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag )
/******/
{
  int_f ret_value = 0;
  hid_t c_prp_id;
  H5Z_EDC_t c_flag;

  c_prp_id = (hid_t)*prp_id;
  c_flag = H5Pget_edc_check(c_prp_id);
  if ( c_flag  < 0  ) ret_value = -1;
  *flag = (int_f)c_flag;
  return ret_value;
}
/****if* H5Pf/h5pset_family_offset_c
 * NAME
 *        h5pset_family_offset_c
 * PURPOSE
 *     Call H5Pset_family_offset to set and offset for family driver
 * INPUTS
 *      prp_id - property list identifier
 *              offset - offset in bytes
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Wednesday, 19 March 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_family_offset_c ( hid_t_f *prp_id , hsize_t_f *offset)
/******/
{
  int_f ret_value = 0;
  hid_t c_prp_id;
  hsize_t c_offset;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  c_offset = (hsize_t)*offset;
  status = H5Pset_family_offset(c_prp_id, c_offset);
  if ( status < 0  ) ret_value = -1;
  return ret_value;
}

/****if* H5Pf/h5pset_fapl_multi_c
 * NAME
 *        h5pset_fapl_multi_c
 * PURPOSE
 *     Call H5Pset_fapl_multi to set multi file dirver
 * INPUTS
 *      prp_id - file_creation property list identifier
 *              mem_map - memory mapping array
 *              memb_fapl - property list for each memory usage type
 *              memb_name - array with members names
 *              len - array with the lenght of each name
 *              lenmax - lenght of the name a sdeclared in Fortran
 *              flag - flag allowing partila access when one of the files is missing
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday 24, March 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
/*nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, haddr_t_f *memb_addr, int_f *flag) */
nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag)
/******/
{
  int_f ret_value = -1;
  hid_t c_prp_id;
  H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
  hid_t c_memb_fapl[H5FD_MEM_NTYPES];
  char *c_memb_name[H5FD_MEM_NTYPES];
  haddr_t c_memb_addr[H5FD_MEM_NTYPES];
  hbool_t relax;
  herr_t status;
  char *tmp, *tmp_p, *tmp_pp;
  int i;
  int c_lenmax;
  long double  tmp_max_addr;
  c_lenmax = (int)*lenmax;
  relax = (hbool_t)*flag;
/*
 * Check that we got correct values from Fortran for memb_addr array
 */
  for (i=0; i < H5FD_MEM_NTYPES; i++) {
       if(memb_addr[i] >= 1.0f) return ret_value;
  }
/*
 * Take care of names array
 */

  tmp = (char *)HD5f2cstring(memb_name, (size_t)c_lenmax*(H5FD_MEM_NTYPES));
  if (tmp ==NULL) return ret_value;
  tmp_p = tmp;
  for (i=0; i < H5FD_MEM_NTYPES; i++) {
       c_memb_name[i] = (char *)HDmalloc((size_t)len[i] + 1);
       HDmemcpy(c_memb_name[i], tmp_p, (size_t)len[i]);
       tmp_pp = c_memb_name[i];
       tmp_pp[len[i]] = '\0';
       tmp_p = tmp_p + c_lenmax;
 }
/*
 * Take care of othe arguments
 */
  tmp_max_addr =  (long double)(HADDR_MAX);
  c_prp_id = (hid_t)*prp_id;
  for (i=0; i < H5FD_MEM_NTYPES; i++) {
       c_memb_map[i] = (H5FD_mem_t)memb_map[i];
       c_memb_fapl[i] = (hid_t)memb_fapl[i];
       if(memb_addr[i] < 0) c_memb_addr[i] = HADDR_UNDEF;
       else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(tmp_max_addr));
  }
/*
 * Call  H5Pset_fapl_multi function
 */

  status = H5Pset_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, (const char * const *)c_memb_name, c_memb_addr, relax);
  if ( status < 0  ) goto DONE;
  ret_value = 0;

DONE:
  HDfree(tmp);
  for (i=0; i < H5FD_MEM_NTYPES; i++)
      HDfree(c_memb_name[i]);
  return ret_value;
}

/****if* H5Pf/h5pset_fapl_multi_sc
 * NAME
 *        h5pset_fapl_multi_sc
 * PURPOSE
 *     Call H5Pset_fapl_multi to set multi file dirver
 * INPUTS
 *      prp_id - file_creation property list identifier
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              March 31 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_fapl_multi_sc ( hid_t_f *prp_id , int_f *flag)
/******/
{
  int_f ret_value = -1;
  hid_t c_prp_id;
  hbool_t relax;
  herr_t status;

  relax = (hbool_t)*flag;
  c_prp_id = (hid_t)*prp_id;
/*
 * Call  H5Pset_fapl_multi function
 */

  status = H5Pset_fapl_multi(c_prp_id, NULL, NULL, NULL, NULL, relax);
  if ( status < 0  ) return ret_value; /* error occurred */
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pget_fapl_multi_c
 * NAME
 *        h5pget_fapl_multi_c
 * PURPOSE
 *     Call H5Pget_fapl_multi to set multi file dirver
 * INPUTS
 *      prp_id - file_creation property list identifier
 *              lenmax - lenght of the name a sdeclared in Fortran
 * OUTPUTS
 *     memb_map - memory mapping array
 *              memb_fapl - property list for each memory usage type
 *              memb_name - array with members names
 *              len - array with the lenght of each name
 *              flag - flag allowing partila access when one of the files is missing
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              Monday 24, March 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _fcd memb_name, int_f *len, int_f *lenmax, real_f *memb_addr, int_f *flag, int_f *maxlen_out)
/******/
{
  int_f ret_value = -1;
  hid_t c_prp_id;
  H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
  hid_t c_memb_fapl[H5FD_MEM_NTYPES];
  char *c_memb_name[H5FD_MEM_NTYPES];
  haddr_t c_memb_addr[H5FD_MEM_NTYPES];
  hbool_t relax;
  herr_t status;
  char *tmp, *tmp_p;
  int i;
  size_t c_lenmax;
  size_t length = 0;
  c_lenmax = (size_t)*lenmax;

  c_prp_id = (hid_t)*prp_id;
/*
 * Call  H5Pget_fapl_multi function
 */

  status = H5Pget_fapl_multi(c_prp_id, c_memb_map, c_memb_fapl, c_memb_name, c_memb_addr, &relax);
  if ( status < 0  ) return ret_value;

/*
 * Take care of names array
 */
  tmp = (char *)HDmalloc(c_lenmax*H5FD_MEM_NTYPES + 1);
  tmp_p = tmp;
  HDmemset(tmp,' ', c_lenmax*H5FD_MEM_NTYPES);
  tmp[c_lenmax*H5FD_MEM_NTYPES] = '\0';
  for (i=0; i < H5FD_MEM_NTYPES; i++) {
       memcpy(tmp_p, c_memb_name[i], strlen(c_memb_name[i]));
       len[i] = (int_f)strlen(c_memb_name[i]);
       length = H5_MAX(length, strlen(c_memb_name[i]));
       tmp_p = tmp_p + c_lenmax;
 }
HD5packFstring(tmp, _fcdtocp(memb_name), (size_t)(c_lenmax*H5FD_MEM_NTYPES));

/*
 * Take care of other arguments
 */

  for (i=0; i < H5FD_MEM_NTYPES; i++) {
       memb_map[i] = (int_f)c_memb_map[i];
       memb_fapl[i] = (hid_t_f)c_memb_fapl[i];
       if(c_memb_addr[i] == HADDR_UNDEF) memb_addr[i] = -1;
       else memb_addr[i] = (real_f) (c_memb_addr[i]/HADDR_MAX);
  }
  *flag = (int_f)relax;
  *maxlen_out = (int_f)length;
  ret_value = 0;
  HDfree(tmp);
  for (i=0; i < H5FD_MEM_NTYPES; i++)
      HDfree(c_memb_name[i]);
  return ret_value;
}

/****if* H5Pf/h5pset_szip_c
 * NAME
 *        h5pset_szip_c
 * PURPOSE
 *     Call H5Pset_szip to set szip compression
 * INPUTS
 *      prp_id - dataset creation property list identifier
 *              options_mask
 *              pixels_per_block -szip compression parameters
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              April 8 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_szip_c ( hid_t_f *prp_id , int_f *options_mask, int_f *pixels_per_block)
/******/
{
  int_f ret_value = -1;
  hid_t c_prp_id;
  unsigned   c_options_mask;
  unsigned  c_pixels_per_block;
  herr_t status;

  c_prp_id = (hid_t)*prp_id;
  c_options_mask = (unsigned)*options_mask;
  c_pixels_per_block = (unsigned)*pixels_per_block;
/*
 * Call  H5Pset_szip function
 */

  status = H5Pset_szip(c_prp_id, c_options_mask, c_pixels_per_block);
  if ( status < 0  ) return ret_value;
  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pall_filters_avail_c
 * NAME
 *        h5pall_filters_avail_c
 * PURPOSE
 *     Call H5Pall_filters_avail
 * INPUTS
 *      prp_id - dataset creation property list identifier
 * OUTPUTS
 *     status - logical flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              April 10 2003
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pall_filters_avail_c ( hid_t_f *prp_id , int_f *status)
/******/
{
  int_f ret_value = -1;
  hid_t c_prp_id;
  htri_t c_status;


  c_prp_id = (hid_t)*prp_id;
/*
 * Call  H5Pall_filters_avail function
 */

  c_status = H5Pall_filters_avail(c_prp_id);
  if ( c_status < 0  ) return ret_value;
  *status = 0;
  if (c_status == 1) *status = 1;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_filter_by_id_c
 * NAME
 *        h5pget_filter_by_id_c
 * PURPOSE
 *     Call H5Pget_filter_by_id2 to get information about a filter
 *              in a pipeline
 * INPUTS
 *      prp_id - property list identifier
 *              filter_id - filter id
 *              namelen - Anticipated number of characters in name.
 *OUTPUT
 *      flags - Bit vector specifying certain general
 *                      properties of the filter.
 *              cd_nelmts - Number of elements in cd_value
 *              cd_values - Auxiliary data for the filter.
 *              name - Name of the filter
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena POurmal
 *              April 10, 2003
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values, size_t_f *namelen, _fcd name)
/******/
{
     unsigned int c_flags;
     size_t c_cd_nelmts = (size_t)*cd_nelmts;
     size_t c_cd_nelmts_in = (size_t)*cd_nelmts;
     unsigned int *c_cd_values = NULL;
     char *c_name = NULL;
     unsigned i;
     int_f ret_value = -1;

     if(NULL == (c_name = (char *)HDmalloc((size_t)*namelen + 1)))
         goto DONE;

     if(NULL == (c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts_in)))
         goto DONE;

     /*
      * Call H5Pget_filter_by_id2 function.
      */
     if(H5Pget_filter_by_id2((hid_t)*prp_id, (H5Z_filter_t)*filter_id, &c_flags, &c_cd_nelmts, c_cd_values, (size_t)*namelen, c_name, NULL) < 0)
         goto DONE;

     *cd_nelmts = (size_t_f)c_cd_nelmts;
     *flags = (int_f)c_flags;
     HD5packFstring(c_name, _fcdtocp(name), HDstrlen(c_name));

     for(i = 0; i < c_cd_nelmts_in; i++)
          cd_values[i] = (int_f)c_cd_values[i];

     ret_value = 0;

DONE:
    if(c_name)
        HDfree(c_name);
    if(c_cd_values)
        HDfree(c_cd_values);

    return ret_value;
}

/****if* H5Pf/h5pmodify_filter_c
 * NAME
 *        h5pmodify_filter_c
 * PURPOSE
 *     Call H5Pmodify_filter to modify a filter
 * INPUTS
 *      prp_id - property list identifier
 *              filter - Filter to be modified
 *              flags - Bit vector specifying certain general
 *                      properties of the filter.
 *              cd_nelmts - Number of elements in cd_values.
 *              cd_values - Auxiliary data for the filter.
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Elena Pourmal
 *              April 10 2003
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pmodify_filter_c (hid_t_f *prp_id, int_f* filter, int_f* flags, size_t_f* cd_nelmts, int_f* cd_values )
/******/
{
     int_f ret_value = -1;
     hid_t c_prp_id = (hid_t)*prp_id;
     herr_t ret;
     size_t c_cd_nelmts = (size_t)*cd_nelmts;
     unsigned int c_flags = (unsigned)*flags;
     H5Z_filter_t c_filter = (H5Z_filter_t)*filter;
     unsigned int * c_cd_values;
     unsigned i;

     c_cd_values = (unsigned int *)HDmalloc(sizeof(unsigned int) * c_cd_nelmts);
     if (!c_cd_values) return ret_value;
     for (i = 0; i < c_cd_nelmts; i++)
          c_cd_values[i] = (unsigned int)cd_values[i];

     /*
      * Call H5Pmodify_filter function.
      */
     ret = H5Pmodify_filter(c_prp_id, c_filter, c_flags, c_cd_nelmts,c_cd_values );

     if (ret < 0) goto DONE;
     ret_value = 0;

DONE:
     HDfree(c_cd_values);
     return ret_value;
}

/****if* H5Pf/h5premove_filter_c
 * NAME
 *        h5premove_filter_c
 * PURPOSE
 *     Call H5Premove_filter to delete one or more filters
 * INPUTS
 *      prp_id - property list identifier
 *              filter - Filter to be deleted
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  Quincey Koziol
 *              January 27 2004
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5premove_filter_c (hid_t_f *prp_id, int_f* filter)
/******/
{
     int_f ret_value = -1;
     hid_t c_prp_id;
     H5Z_filter_t c_filter;

     c_filter = (H5Z_filter_t)*filter;
     c_prp_id = (hid_t)*prp_id;

     /*
      * Call H5Premove_filter function.
      */
     if(H5Premove_filter(c_prp_id, c_filter) < 0) goto DONE;
     ret_value = 0;

DONE:
     return ret_value;
}

/****if* H5Pf/h5pget_attr_phase_change_c
 * NAME
 *        h5pget_attr_phase_change_c
 * PURPOSE
 *     Calls H5Pget_attr_phase_change
 *
 * INPUTS
 *      ocpl_id		- Object (dataset or group) creation property list identifier
 * Outputs      max_compact     - Maximum number of attributes to be stored in compact storage
 *              min_dense       - Minimum number of attributes to be stored in dense storage
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              January, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense )
/******/
{
  int ret_value = -1;
  hid_t c_ocpl_id;
  unsigned c_max_compact;
  unsigned c_min_dense;
  herr_t ret;
  /*
   * Call H5Pget_attr_phase_change function.
   */
  c_ocpl_id = (hid_t)*ocpl_id;
  ret = H5Pget_attr_phase_change(c_ocpl_id, &c_max_compact,&c_min_dense);
  if (ret < 0) return ret_value;

  *max_compact = (int_f)c_max_compact;
  *min_dense = (int_f)c_min_dense;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_attr_creation_order_c
 * NAME
 *        h5pset_attr_creation_order_c
 * PURPOSE
 *     Calls H5Ppset_attr_creation_order
 *
 * INPUTS
 *      ocpl_id		- Object (dataset or group) creation property list identifier
 * Outputs      crt_order_flags - Flags specifying whether to track and index attribute creation order
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              January, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags )
/******/
{
  int ret_value = -1;
  unsigned c_crt_order_flags;
  herr_t ret;
  /*
   * Call h5pset_attr_creation_order function.
   */
  c_crt_order_flags = (unsigned)*crt_order_flags;
  ret = H5Pset_attr_creation_order((hid_t)*ocpl_id, c_crt_order_flags);
  if (ret < 0) return ret_value;

  *crt_order_flags = (int_f)c_crt_order_flags;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_shared_mesg_nindexes_c
 * NAME
 *        h5pset_shared_mesg_nindexes_c
 * PURPOSE
 *     Calls h5pset_shared_mesg_nindexes
 *
 * INPUTS
 *
 *       plist_id - file creation property list
 *       nindexes - Number of shared object header message indexes
 *                   available in files created WITH this property list
 *
 * OUTPUTS
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              January, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes )
/******/
{
  int ret_value = -1;
  hid_t c_plist_id;
  unsigned c_nindexes;
  herr_t ret;
  /*
   * Call h5pset_shared_mesg_nindexes function.
   */
  c_plist_id = (hid_t)*plist_id;
  c_nindexes = (unsigned)*nindexes;
  ret = H5Pset_shared_mesg_nindexes(c_plist_id, c_nindexes );
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_shared_mesg_index_c
 * NAME
 *        h5pset_shared_mesg_index_c
 * PURPOSE
 *     Calls H5Pset_shared_mesg_index
 *
 * INPUTS
 *
 *            fcpl_id - File creation property list identifier.
 *          index_num - Index being configured.
 *    mesg_type_flags - Types of messages that should be stored in this index.
 *      min_mesg_size - Minimum message size.
 *
 * OUTPUTS
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              January, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type_flags, int_f *min_mesg_size)
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call h5pset_shared_mesg_index function.
   */
  ret = H5Pset_shared_mesg_index((hid_t)*fcpl_id,(unsigned)*index_num, (unsigned)*mesg_type_flags, (unsigned)*min_mesg_size);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_attr_creation_order_c
 * NAME
 *        h5pget_attr_creation_order_c
 * PURPOSE
 *     Calls H5Pget_attr_creation_order
 *
 * INPUTS
 *
 *           ocpl_id - Object (group or dataset) creation property list identifier
 * OUTPUTS
 *
 *           crt_order_flags - Flags specifying whether to track and index attribute creation order
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags)
/******/
{
  int ret_value = -1;
  herr_t ret;

  unsigned c_crt_order_flags;
  /*
   * Call h5pget_attr_creation_order function.
   */

  ret = H5Pget_attr_creation_order((hid_t)*ocpl_id, &c_crt_order_flags);
  if (ret < 0) return ret_value;

  *crt_order_flags = (int_f)c_crt_order_flags;

  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pset_libver_bounds_c
 * NAME
 *        h5pset_libver_bounds_c
 * PURPOSE
 *     Calls H5Pset_libver_bounds
 *
 * INPUTS
 *
 *             fapl_id - File access property list identifier
 *                 low - The earliest version of the library that will be used for writing objects.
 *                high - The latest version of the library that will be used for writing objects.
 * OUTPUTS
 *
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 18, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_libver_bounds_c(hid_t_f *fapl_id, int_f *low, int_f *high )
/******/
{
  int ret_value = -1;
  herr_t ret;

  /*
   * Call H5Pset_libver_bounds function.
   */
  ret = H5Pset_libver_bounds( (hid_t)*fapl_id, (H5F_libver_t)*low, (H5F_libver_t)*high );
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_link_creation_order_c
 * NAME
 *        h5pset_link_creation_order_c
 * PURPOSE
 *     Calls H5Pset_link_creation_order
 *
 * INPUTS
 *      gcpl_id		- Group creation property list identifier
 *              crt_order_flags - Creation order flag(s)
 * OUTPUTS
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 18, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags )
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call H5Pset_link_creation_order function.
   */
  ret = H5Pset_link_creation_order((hid_t)*gcpl_id, (unsigned)*crt_order_flags);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_link_phase_change_c
 * NAME
 *        h5pget_link_phase_change_c
 * PURPOSE
 *     Calls H5Pget_link_phase_change
 *
 * INPUTS
 *      gcpl_id  	- Group creation property list identifier
 * Outputs      max_compact     - Maximum number of attributes to be stored in compact storage
 *              min_dense       - Minimum number of attributes to be stored in dense storage
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 20, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense )
/******/
{
  int ret_value = -1;
  unsigned c_max_compact;
  unsigned c_min_dense;
  herr_t ret;

  /*
   * Call H5Pget_link_phase_change function.
   */
  ret = H5Pget_link_phase_change((hid_t)*gcpl_id, &c_max_compact,&c_min_dense);
  if (ret < 0) return ret_value;

  *max_compact = (int_f)c_max_compact;
  *min_dense = (int_f)c_min_dense;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_obj_track_times_c
 * NAME
 *        h5pget_obj_track_times_c
 * PURPOSE
 *     Call H5Pget_obj_track_times
 *
 * INPUTS
 *      plist_id - property list id
 * OUTPUTS
 *
 *              flag     - TRUE/FALSE flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 22, 2008
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pget_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
/******/
{
  int ret_value = -1;
  hbool_t c_track_times=0;
  herr_t ret;

  /*
   * Call H5Pget_obj_track_times function.
   */
  ret = H5Pget_obj_track_times((hid_t)*plist_id, &c_track_times);

  if (ret < 0) return ret_value; /* error occurred */

  *flag = 0;
  if(c_track_times > 0) *flag = 1;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_obj_track_times_c
 * NAME
 *        h5pset_obj_track_times_c
 * PURPOSE
 *     Call H5Pset_obj_track_times
 *
 * INPUTS
 *      plist_id - property list id
 *              flag     - TRUE/FALSE flag
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 22, 2008
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_obj_track_times_c(hid_t_f *plist_id, int_f *flag)
/******/
{
  int ret_value = -1;
  hbool_t c_track_times;
  herr_t ret;


  c_track_times = (hbool_t)*flag;

  /*
   * Call H5Pset_obj_track_times function.
   */
  ret = H5Pset_obj_track_times((hid_t)*plist_id, c_track_times);

  if (ret < 0) return ret_value; /* error occurred */
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_create_inter_group_c
 * NAME
 *        h5pset_create_inter_group_c
 * PURPOSE
 *     Calls H5Pset_create_intermediate_group
 *
 * INPUTS
 *
 *		lcpl_id - Link creation property list identifier
 *   crt_intermed_group - crt_intermed_group specifying whether
 *                        to create intermediate groups upon the
 *                        creation of an object
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              February 22, 2008
 * HISTORY
 *
 * SOURCE
*/

int_f
nh5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
/******/
{
  int ret_value = -1;
  herr_t ret;

  /*
   * Call H5Pset_create_intermediate_group function.
   */
  ret = H5Pset_create_intermediate_group((hid_t)*lcpl_id, (unsigned)*crt_intermed_group);

  if (ret < 0) return ret_value; /* error occurred */
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_link_creation_order_c
 * NAME
 *        h5pget_link_creation_order_c
 * PURPOSE
 *     Calls H5Pget_link_creation_order
 *
 * INPUTS
 *
 *           gcpl_id - Group creation property list identifier
 * OUTPUTS
 *
 *           crt_order_flags - Creation order flag(s)
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 3, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags)
/******/
{
  int ret_value = -1;
  herr_t ret;

  unsigned c_crt_order_flags;
  /*
   * Call h5pget_link_creation_order function.
   */

  ret = H5Pget_link_creation_order((hid_t)*gcpl_id, &c_crt_order_flags);
  if (ret < 0) return ret_value;

  *crt_order_flags = (int_f)c_crt_order_flags;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_char_encoding_c
 * NAME
 *     h5pset_char_encoding_c
 * PURPOSE
 *  Calls H5Pset_char_encoding
 *
 * INPUTS
 *
 *           plist_id - Property list identifier
 *           encoding - String encoding character set:
 *     	                     H5T_CSET_ASCII_F -> US ASCII
 *     	                     H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
 * OUTPUTS
 *  NONE
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 3, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
/******/
{
  int ret_value = -1;
  herr_t ret;

  /*
   * Call H5Pset_char_encoding function.
   */
  ret = H5Pset_char_encoding((hid_t)*plist_id, (H5T_cset_t)*encoding);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}


/****if* H5Pf/h5pget_char_encoding_c
 * NAME
 *     h5pget_char_encoding_c
 * PURPOSE
 *  Calls H5Pget_char_encoding
 *
 * INPUTS
 *
 *           plist_id - Property list identifier
 * OUTPUTS
 *
 *           encoding - Encoding character set:
 *     	                  H5T_CSET_ASCII_F -> US ASCII
 *     	                  H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 3, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding)
/******/
{
  int ret_value = -1;
  H5T_cset_t c_encoding;
  herr_t ret;
  /*
   * Call H5Pget_char_encoding function.
   */
  ret = H5Pget_char_encoding((hid_t)*plist_id, &c_encoding);
  if (ret < 0) return ret_value;

  *encoding = (int_f)c_encoding;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_copy_object_c
 * NAME
 *     h5pset_copy_object_c
 * PURPOSE
 *  Calls H5Pset_copy_object
 *
 * INPUTS
 *
 *    ocp_plist_id - Object copy property list identifier
 *    copy_options - Copy option(s) to be set
 *
 * OUTPUTS
 *
 *            NONE
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 3, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call H5Pset_copy_object function.
   */
  ret = H5Pset_copy_object((hid_t)*ocp_plist_id, (unsigned)*copy_options);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_copy_object_c
 * NAME
 *     h5pget_copy_object_c
 * PURPOSE
 *  Calls H5Pget_copy_object
 *
 * INPUTS
 *
 *    ocp_plist_id - Object copy property list identifier
 *
 * OUTPUTS
 *
 *    copy_options - Copy option(s) to be get
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 3, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
/******/
{
  int ret_value = -1;
  unsigned c_copy_options;
  herr_t ret;
  /*
   * Call H5Pget_copy_object function.
   */
  ret = H5Pget_copy_object((hid_t)*ocp_plist_id, &c_copy_options);
  if (ret < 0) return ret_value;

  *copy_options = (int_f)c_copy_options;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_data_transform_c
 * NAME
 *        h5pget_data_transform_c
 * PURPOSE
 *     Calls H5Pget_data_transform
 * INPUTS
 *
 *              prp_id - property list identifier to query
 *      expression_len - buffer size transorm expression
 *
 * Output:
 *          expression - buffer to hold transform expression
 *
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 19, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len, size_t_f *size)
/******/
{
    char *c_expression = NULL;          /* Buffer to hold C string */
    size_t c_expression_len = (size_t)*expression_len + 1;
    ssize_t ret;
    int_f ret_value = 0;

    /*
     * Allocate memory to store the expression.
     */
    if(c_expression_len) {
        c_expression = (char *)HDmalloc(c_expression_len);
        if(NULL == c_expression)
           HGOTO_DONE(FAIL)
    } /* end if */

    /*
     * Call H5Pget_data_transform function.
     */
    ret = H5Pget_data_transform((hid_t)*plist_id, c_expression, c_expression_len);
    if(ret < 0)
       HGOTO_DONE(FAIL)

    /* or strlen ? */
    HD5packFstring(c_expression, _fcdtocp(expression), (size_t)*expression_len);

    *size = (size_t_f)ret;

done:
    if(c_expression)
        HDfree(c_expression);

    return ret_value;
}

/****if* H5Pf/h5pset_data_transform_c
 * NAME
 *        h5pset_data_transform_c
 * PURPOSE
 *     Calls H5Pset_data_transform
 * INPUTS
 *
 *              prp_id - property list identifier to query
 *          expression - buffer to hold transform expression
 *      expression_len - buffer size transorm expression
 *
 * Output:
 *
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 19, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len)
/******/
{
     char* c_expression = NULL; /* Buffer to hold C string */
     int_f ret_value = 0; /* Return value */

     /*
      * Convert FORTRAN name to C name
      */
     if(NULL == (c_expression = HD5f2cstring(expression, (size_t)*expression_len)))
        HGOTO_DONE(FAIL)

     /*
      * Call H5Pset_data_transform function.
      */
     if(H5Pset_data_transform((hid_t)*plist_id, c_expression) < 0)
        HGOTO_DONE(FAIL)

done:
    if(c_expression)
        HDfree(c_expression);

     return ret_value;
}

/****if* H5Pf/h5pget_local_heap_size_hint_c
 * NAME
 *        h5pget_local_heap_size_hint_c
 * PURPOSE
 *     Calls H5Pget_local_heap_size_hint
 * INPUTS
 *
 *         gcpl_id - Group creation property list identifier
 *
 * Output:
 *       size_hint - Hint for size of local heap
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
/******/
{
     int_f ret_value = -1; /* Return value */
     size_t c_size_hint;
     herr_t ret;
     /*
      * Call H5Pget_local_heap_size_hint function.
      */
     ret = H5Pget_local_heap_size_hint((hid_t)*gcpl_id, &c_size_hint);
     if(ret<0) return ret_value;

     *size_hint = (size_t_f)c_size_hint;
     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pget_est_link_info_c
 * NAME
 *        h5pget_est_link_info_c
 * PURPOSE
 *     Calls H5Pget_est_link_info
 * INPUTS
 *
 *              gcpl_id - Group creation property list identifier
 *
 * Output:
 *      est_num_entries - Estimated number of links to be inserted into group
 *         est_name_len - Estimated average length of link names
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len)
/******/
{
     int_f ret_value = -1; /* Return value */
     unsigned c_est_num_entries;
     unsigned c_est_name_len;
     herr_t ret;
     /*
      * Call h5pget_est_link_info function.
      */
     ret = H5Pget_est_link_info((hid_t)*gcpl_id, &c_est_num_entries, &c_est_name_len);
     if(ret<0) return ret_value;

     *est_num_entries = (int_f)c_est_num_entries;
     *est_name_len = (int_f)c_est_name_len;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_local_heap_size_hint_c
 * NAME
 *        h5pset_local_heap_size_hint_c
 * PURPOSE
 *     Calls H5Pset_local_heap_size_hint
 * INPUTS
 *
 *         gcpl_id - Group creation property list identifier
 *       size_hint - Hint for size of local heap
 *
 * Output:
 *
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint)
/******/
{
     int_f ret_value = -1; /* Return value */
     herr_t ret;
     /*
      * Call H5Pget_local_heap_size_hint function.
      */
     ret = H5Pset_local_heap_size_hint((hid_t)*gcpl_id, (size_t)*size_hint);
     if(ret<0) return ret_value;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_est_link_info_c
 * NAME
 *        h5pset_est_link_info_c
 * PURPOSE
 *     Calls H5Pset_est_link_info
 * INPUTS
 *
 *              gcpl_id - Group creation property list identifier
 *      est_num_entries - Estimated number of links to be inserted into group
 *         est_name_len - Estimated average length of link names
 *
 * Output:
 * RETURNS
 *
 *          Success:  0
 *	    Failure: -1
 *
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name_len)
/******/
{
     int_f ret_value = -1; /* Return value */
     herr_t ret;
     /*
      * Call h5pset_est_link_info function.
      */
     ret = H5Pset_est_link_info((hid_t)*gcpl_id, (unsigned)*est_num_entries, (unsigned)*est_name_len);
     if(ret<0) return ret_value;

     ret_value = 0;
     return ret_value;
}

/****if* H5Pf/h5pset_link_phase_change_c
 * NAME
 *        h5pset_link_phase_change_c
 * PURPOSE
 *     Calls H5Pset_link_phase_change
 *
 * INPUTS
 *      gcpl_id     - Group creation property list identifier
 *              max_compact - Maximum number of attributes to be stored in compact storage
 *              min_dense   - Minimum number of attributes to be stored in dense storage
 * Outputs
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dense )
/******/
{
  int ret_value = -1;
  herr_t ret;

  /*
   * Call H5Pset_link_phase_change function.
   */
  ret = H5Pset_link_phase_change((hid_t)*gcpl_id, (unsigned)*max_compact,(unsigned)*min_dense);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_fapl_direct_c
 * NAME
 *        h5pset_fapl_direct_c
 * PURPOSE
 *     Calls H5Pset_fapl_direct
 *
 * INPUTS
 *
 *    fapl_id 	 - File access property list identifier
 *    alignment  - Required memory alignment boundary
 *    block_size - File system block size
 *    cbuf_size  - Copy buffer size
 * Outputs
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_fapl_direct_c(hid_t_f UNUSED *fapl_id, size_t_f UNUSED *alignment, size_t_f UNUSED *block_size, size_t_f UNUSED *cbuf_size)
/******/
{
  int ret_value = -1;
#ifdef H5_HAVE_DIRECT
  herr_t ret;

  /*
   * Call H5Pset_link_phase_change function.
   */
  ret = H5Pset_fapl_direct((hid_t)*fapl_id, (size_t)*alignment, (size_t)*block_size, (size_t)*cbuf_size );
    if (ret < 0) return ret_value;

  ret_value = 0;

#endif
  return ret_value;
}

/****if* H5Pf/h5pget_fapl_direct_c
 * NAME
 *        h5pget_fapl_direct_c
 * PURPOSE
 *     Calls H5Pget_fapl_direct
 *
 * INPUTS
 *
 *    fapl_id 	 - File access property list identifier
 * OUTPUTS
 *
 *    alignment  - Required memory alignment boundary
 *    block_size - File system block size
 *    cbuf_size  - Copy buffer size
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_fapl_direct_c(hid_t_f UNUSED *fapl_id, size_t_f UNUSED *alignment, size_t_f UNUSED *block_size, size_t_f UNUSED *cbuf_size)
/******/
{
  int ret_value = -1;
#ifdef H5_HAVE_DIRECT
  herr_t ret;
  size_t c_alignment;
  size_t c_block_size;
  size_t c_cbuf_size;

  /*
   * Call H5Pget_link_phase_change function.
   */
  ret = H5Pget_fapl_direct((hid_t)*fapl_id, &c_alignment, &c_block_size, &c_cbuf_size );
  if (ret < 0) return ret_value;

  *alignment  = (size_t_f)c_alignment;
  *block_size = (size_t_f)c_block_size;
  *cbuf_size  = (size_t_f)c_cbuf_size;

  ret_value = 0;
#endif
  return ret_value;
}

/****if* H5Pf/h5pset_attr_phase_change_c
 * NAME
 *        h5pset_attr_phase_change_c
 * PURPOSE
 *     Calls H5Pset_attr_phase_change
 *
 * INPUTS
 *      ocpl_id		- Object (dataset or group) creation property list identifier
 *              max_compact     - Maximum number of attributes to be stored in compact storage
 *              min_dense       - Minimum number of attributes to be stored in dense storage
 * OUTPUTS
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dense )
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call H5Pset_attr_phase_change function.
   */
  ret = H5Pset_attr_phase_change((hid_t)*ocpl_id, (unsigned)*max_compact,(unsigned)*min_dense);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_nbit_c
 * NAME
 *        h5pset_nbit_c
 * PURPOSE
 *     Calls H5Pset_nbit
 *
 * INPUTS
 *      plist_id - Dataset creation property list identifier
 * OUTPUTS
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 21, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pset_nbit_c(hid_t_f *plist_id )
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call H5Pset_nbit_change function.
   */
  ret = H5Pset_nbit((hid_t)*plist_id);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}
/****if* H5Pf/h5pset_scaleoffset_c
 * NAME
 *  h5pset_scaleoffset_c
 * PURPOSE
 *  Calls H5Pset_scaleoffset
 *
 * INPUTS
 *  plist_id     - Dataset creation property list identifier
 *  scale_type   - Flag indicating compression method.
 *  scale_factor - Parameter related to scale.
 *
 * RETURNS
 *  0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *  March 21, 2008
 * SOURCE
*/
int_f
nh5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor )
/******/
{
  int ret_value = -1;
  H5Z_SO_scale_type_t c_scale_type;
  herr_t ret;
  /*
   * Call H5Pset_scaleoffset_change function.
   */
  c_scale_type = (H5Z_SO_scale_type_t)*scale_type;

  ret = H5Pset_scaleoffset((hid_t)*plist_id, c_scale_type, (int)*scale_factor);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pset_nlinks
 * NAME
 *  h5pset_nlinks
 * PURPOSE
 *  Calls H5Pset_nlinks
 *
 * INPUTS
 *  lapl_id - File access property list identifier
 *  nlinks  - Maximum number of links to traverse
 * RETURNS
 *  0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *  March 24, 2008
 * SOURCE
*/
int_f
nh5pset_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
/******/
{
  int ret_value = -1;
  herr_t ret;
  /*
   * Call H5Pset_nlinks function.
   */
  ret = H5Pset_nlinks((hid_t)*lapl_id, (size_t)*nlinks);
  if (ret < 0) return ret_value;

  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_nlinks
 * NAME
 *        h5pget_nlinks
 * PURPOSE
 *     Calls H5Pget_nlinks
 *
 * INPUTS
 *
 *            lapl_id - File access property list identifier
 *
 * OUTPUTS
 *
 *             nlinks - Maximum number of links to traverse
 *
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              March 24, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks)
/******/
{
  int ret_value = -1;
  herr_t ret;
  size_t c_nlinks;
  /*
   * Call H5Pget_nlinks function.
   */
  ret = H5Pget_nlinks((hid_t)*lapl_id, &c_nlinks);
  if (ret < 0) return ret_value;

  *nlinks = (size_t_f)c_nlinks;
  ret_value = 0;
  return ret_value;
}

/****if* H5Pf/h5pget_create_inter_group_c
 * NAME
 *        h5pget_create_inter_group_c
 * PURPOSE
 *     Calls H5Pget_create_intermediate_group
 *
 * INPUTS
 *
 *		lcpl_id - Link creation property list identifier
 *   crt_intermed_group - Specifying whether to create intermediate groups upon
 *                        the creation of an object
 * RETURNS
 *     0 on success, -1 on failure
 * AUTHOR
 *  M. Scot Breitenfeld
 *              April 4, 2008
 * HISTORY
 *
 * SOURCE
*/
int_f
nh5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
/******/
{
  int ret_value = -1;
  herr_t ret;
  unsigned c_crt_intermed_group;

  /*
   * Call H5Pget_create_intermediate_group function.
   */
  ret = H5Pget_create_intermediate_group((hid_t)*lcpl_id, &c_crt_intermed_group);

  if (ret < 0) return ret_value; /* error occurred */

  *crt_intermed_group = (int_f)c_crt_intermed_group;
  ret_value = 0;
  return ret_value;
}

/*----------------------------------------------------------------------------
 * Name:        h5pset_chunk_cache_c
 * Purpose:     Calls H5Pset_chunk_cache
 *
 * Inputs:	dapl_id            - Link creation property list identifier
 *              rdcc_nslots        -
 *              rdcc_nbytes        -
 *              rdcc_w0            -
 *
 * Returns:     0 on success, -1 on failure
 * Programmer:  M. Scot Breitenfeld
 *              April 13, 2009
 * Modifications:
 *---------------------------------------------------------------------------*/

int_f
nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0)
{
  int ret_value = -1;

  /*
   * Call H5Pset_chunk_cache function.
   */
  if( (H5Pset_chunk_cache((hid_t)*dapl_id, (size_t)*rdcc_nslots, (size_t)*rdcc_nbytes, (double)*rdcc_w0)) <0 )
    return ret_value; /* error occurred */

  ret_value = 0;
  return ret_value;
}

/*----------------------------------------------------------------------------
 * Name:        h5pget_chunk_cache_c
 * Purpose:     Calls H5Pget_chunk_cache
 *
 * Inputs:	dapl_id            - Link creation property list identifier
 * Outputs:
 *              rdcc_nslots        -
 *              rdcc_nbytes        -
 *              rdcc_w0            -
 *
 * Returns:     0 on success, -1 on failure
 * Programmer:  M. Scot Breitenfeld
 *              April 13, 2009
 * Modifications:
 *---------------------------------------------------------------------------*/

int_f
nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nbytes, real_f *rdcc_w0)
{
  int ret_value = -1;
  size_t c_rdcc_nslots;
  size_t c_rdcc_nbytes;
  double c_rdcc_w0;
  /*
   * Call H5Pget_chunk_cache function.
   */
  if( (H5Pget_chunk_cache((hid_t)*dapl_id, &c_rdcc_nslots, &c_rdcc_nbytes, &c_rdcc_w0)) <0 )
    return ret_value; /* error occurred */

  *rdcc_nslots=(size_t_f)c_rdcc_nslots;
  *rdcc_nbytes=(size_t_f)c_rdcc_nbytes;
  *rdcc_w0=(real_f)c_rdcc_w0;

  ret_value = 0;
  return ret_value;
}

/*----------------------------------------------------------------------------
 * Name:        h5pset_file_image_c
 * Purpose:     Calls H5Pset_file_image
 *
 * Inputs:
 *  fapl_id - File access property list identifier
 *  buf_ptr - Pointer to the initial file image, 
 *            or NULL if no initial file image is desired
 *  buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired
 *
 * Returns:     0 on success, -1 on failure
 * Programmer:  M. Scot Breitenfeld
 *              February 19, 2012
 *---------------------------------------------------------------------------*/

int_f
nh5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
{
  int ret_value = -1;
  /*
   * Call H5Pset_file_image function.
   */
  if( (H5Pset_file_image((hid_t)*fapl_id, buf_ptr, (size_t)*buf_len)) <0 )
    return ret_value; /* error occurred */

  ret_value = 0;
  return ret_value;
}

/*----------------------------------------------------------------------------
 * Name:        h5pget_file_image_c
 * Purpose:     Calls H5Pget_file_image
 *
 * Inputs:
 *  fapl_id - File access property list identifier
 * Outputs:
 *  buf_ptr - Pointer to the initial file image, 
 *            or NULL if no initial file image is desired
 *  buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired
 *
 * Returns:     0 on success, -1 on failure
 * Programmer:  M. Scot Breitenfeld
 *              February 19, 2012
 *---------------------------------------------------------------------------*/

int_f
nh5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr)
{
  int ret_value = -1;
  size_t c_buf_len_ptr;
  void *c_buf_ptr = NULL;

  c_buf_len_ptr = (size_t)*buf_len_ptr;

  /*
   * Call H5Pget_file_image function.
   */
  if( (H5Pget_file_image((hid_t)*fapl_id, (void **)&c_buf_ptr, &c_buf_len_ptr)) <0 )
    return ret_value; /* error occurred */

  HDmemcpy((void *)*buf_ptr, (void *)c_buf_ptr, c_buf_len_ptr);

  *buf_len_ptr=(size_t_f)c_buf_len_ptr;

  ret_value = 0;
  if(c_buf_ptr) HDfree(c_buf_ptr);

  return ret_value;
}
