vchoi_fork

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 * Copyright by The HDF Group.                                               *

 * Copyright by the Board of Trustees of the University of Illinois.         *

 * All rights reserved.                                                      *

 *                                                                           *

 * This file is part of HDF5.  The full HDF5 copyright notice, including     *

 * terms governing use, modification, and redistribution, is contained in    *

 * the files COPYING and Copyright.html.  COPYING can be found at the root   *

 * of the source code distribution tree; Copyright.html can be found at the  *

 * root level of an installed copy of the electronic HDF5 document set and   *

 * is linked from the top-level documents page.  It can also be found at     *

 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *

 * access to either file, you may request a copy from help@hdfgroup.org.     *

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

​

/* This files contains C stubs for H5A Fortran APIs */

​

#include "H5f90.h"

#include "H5Eprivate.h"

​

/*----------------------------------------------------------------------------

 * Name:        h5acreate_c

 * Purpose:     Call H5Acreate2 to create an attribute

 * Inputs:      obj_id - object identifier

 *              name - name of the attribute

 *              namelen - name length

 *              type_id - datatype identifier

 *              space_id - dataspace identifier

 *              crt_pr  - identifier of creation property list

 * Outputs:     attr_id - attribute identifier

 * Returns:     0 on success, -1 on failure

 * Programmer:  Elena Pourmal

 *              Thursday, August 12, 1999

 * Modifications:

 *---------------------------------------------------------------------------*/

int_f

nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,

    hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id)

{

    char *c_name = NULL;        /* Buffer to hold C string */

    int_f ret_value = 0;        /* Return value */

​

     /*

      * Convert FORTRAN name to C name

      */

    if(NULL == (c_name = HD5f2cstring(name, (size_t)*namelen)))

        HGOTO_DONE(FAIL);

​

     /*

      * Call H5Acreate2 function.

      */