mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-21 07:51:46 +08:00
b296a419c4
Configuration feature Description: Different Fortran compilers mangle function names in different ways (upper case, lower case, adding underscores). To link between Fortran and C functions, we need to know what a given function's name is under a given compiler. Solution: Use autoconf's FC_WRAPPERS check to determine the Fortran naming scheme and define the FC_FUNC_ macro to name our functions (in H5f90proto.h). Removed references to our old FNAME macro, as well as flags that indicated whether function names were upper or lower case. Platforms tested: mir, pommier, modi4, copper, more
37 lines
1.7 KiB
C
37 lines
1.7 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
|
* of the source code distribution tree; Copyright.html can be found at the *
|
|
* root level of an installed copy of the electronic HDF5 document set and *
|
|
* is linked from the top-level documents page. It can also be found at *
|
|
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
|
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
#include "../../src/hdf5.h"
|
|
#include "../src/H5f90i.h"
|
|
#include "../src/H5f90proto.h"
|
|
|
|
char *h5_fixname(const char *base_name, hid_t fapl, char *fullname, size_t size);
|
|
|
|
/*
|
|
* Functions from t.c
|
|
*/
|
|
# define nh5_fixname_c FC_FUNC_(h5_fixname_c, H5_FIXNAME_C)
|
|
# define nh5_cleanup_c FC_FUNC_(h5_cleanup_c, H5_CLEANUP_C)
|
|
# define nh5_exit_c FC_FUNC_(h5_exit_c, H5_EXIT_C)
|
|
|
|
H5_FCTESTDLL int_f nh5_fixname_c
|
|
(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen);
|
|
|
|
H5_FCTESTDLL int_f nh5_cleanup_c
|
|
(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl);
|
|
|
|
H5_FCTESTDLL void nh5_exit_c
|
|
(int_f *status);
|
|
|