hdf5_ep

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

 * 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 <ctype.h>

#include <stddef.h>

#include "H5f90.h"

​

​

/*

 * Routines from HDF4 to deal with C-FORTRAN issues.

 *

 * HD5f2cstring   -- convert a Fortran string to a C string

 * HD5packFstring -- convert a C string into a Fortran string

 */

​

/* ----------------------------- HDf2cstring ------------------------------ */

/*

NAME

   HD5f2cstring -- convert a Fortran string to a C string

USAGE

   char * HDf2cstring(fdesc, len)

   _fcd  fdesc;     IN: Fortran string descriptor

   int  len;       IN: length of Fortran string

RETURNS

   Pointer to the C string if success, else NULL

DESCRIPTION

   Chop off trailing blanks off of a Fortran string and

   move it into a newly allocated C string.  It is up

   to the user to free this string.

​

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

char *

HD5f2cstring(_fcd fdesc, size_t len)

{

    char       *cstr;   /* C string to return */

    char       *str;    /* Pointer to FORTRAN string */

    int         i;      /* Local index variable */

​