Commit 62c2d533 authored by gsell's avatar gsell

Fortran symbol mangling simplified

parent 8e9e0d84
AC_INIT([H5hut], [1.99.12], [h5part@lists.psi.ch], H5hut)
AC_INIT([H5hut], [1.99.14], [h5part@lists.psi.ch], H5hut)
AC_PREREQ(2.60)
AC_CONFIG_HEADERS(config.h)
AC_CONFIG_MACRO_DIR([m4])
......@@ -88,6 +88,26 @@ AC_ARG_WITH(
[VTK installation path [default=""]])],
[VTK_PREFIX=$withval], [])
# Determine a C/C++ compiler to use.
CC=''
CXX=''
if test "x$ENABLE_PARALLEL" = "xyes"; then
AC_PROG_CC(mpicc cc)
AC_PROG_CXX(mpic++ CC)
else
AC_PROG_CC(pgcc pathcc icc gcc cc_r cc)
AC_PROG_CXX(pgcc pathcc icc g++ cc_r c++)
fi
CC=`which $CC`
CXX=`which $CXX`
AC_PROG_CC_C99
if test "x$ac_cv_prog_cc_c99" = "xno"; then
AC_MSG_ERROR([Cannot set C compiler to use C99 standard!])
exit 1
fi
###############################################################################
############### PATH SERACH FUNCTION - to be used later... ####################
......@@ -133,36 +153,17 @@ FFLAGS="$FFLAGS -Wall"
# debug enabled?
AC_MSG_CHECKING([if debug is enabled])
if test "X$ENABLE_DEBUG" = "Xyes"; then
AC_MSG_RESULT([yes])
CFLAGS="$CFLAGS -g"
CXXFLAGS="$CFLAGS -g"
FFLAGS="$FFLAGS -g"
else
AC_MSG_RESULT([no])
CFLAGS="$CFLAGS -O3"
CXXFLAGS="$CFLAGS -O3"
FFLAGS="$FFLAGS -O3"
fi
# Determine a C/C++ compiler to use.
if test "x$ENABLE_PARALLEL" = "xyes"; then
CCOMPILERS="mpicc cc"
CXXCOMPILERS="mpic++ CC"
AC_MSG_RESULT([yes])
CFLAGS="$CFLAGS -g"
CXXFLAGS="$CFLAGS -g"
FFLAGS="$FFLAGS -g"
else
CCOMPILERS="pgcc pathcc icc gcc cc_r cc"
CXXCOMPILERS="pgcc pathcc icc g++ cc_r c++"
AC_MSG_RESULT([no])
CFLAGS="$CFLAGS -O3"
CXXFLAGS="$CFLAGS -O3"
FFLAGS="$FFLAGS -O3"
fi
AC_PROG_CC($CCOMPILERS)
CC=`which $CC`
AC_PROG_CXX($CXXCOMPILERS)
CXX=`which $CXX`
AC_PROG_CC_C99
if test "x$ac_cv_prog_cc_c99" = "xno"; then
AC_MSG_ERROR([Cannot set C compiler to use C99 standard!])
exit 1
fi
AC_PROG_INSTALL
AC_PROG_AWK
......@@ -220,41 +221,43 @@ fi
AC_MSG_CHECKING([if fortran interface enabled])
if test "X$ENABLE_FORTRAN" = "Xyes"; then
AC_MSG_RESULT([yes])
AC_LANG_PUSH(Fortran)
FC=''
F77=''
F90=''
if test "X$ENABLE_PARALLEL" = "Xyes"; then
AC_PROG_FC(mpif90 mpif77)
else
AC_PROG_FC(pgf90 ifort xlf_r pathf90 g95 g90 ftn gfortran)
fi
FC=`which $FC`
if test -z "$FC" ; then
AC_MSG_ERROR([Cannot find a Fortran compiler!])
exit 1
FC=`which $FC`
# Query Fortran symbol mangling. __AC_FC_NAME_MANGLING sets
# ac_cv_{f77,fc}_mangling. The value contains three fields, separated
# by commas:
#
# lower case / upper case:
# case translation of the Fortran symbols
# underscore / no underscore:
# whether the compiler appends "_" to symbol names
# extra underscore / no extra underscore:
# whether the compiler appends an extra "_" to symbol names already
# containing at least one underscore
__AC_FC_NAME_MANGLING
if test "X${ac_cv_fc_mangling}" == "Xlower case, no underscore, no extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_LOWERCASE_NO_UNDERSCORE"
elif test "X${ac_cv_fc_mangling}" == "Xlower case, underscore, no extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_LOWERCASE_SINGLE_UNDERSCORE"
elif test "X${ac_cv_fc_mangling}" == "Xlower case, underscore, extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_LOWERCASE_DOUBLE_UNDERSCORE"
elif test "X${ac_cv_fc_mangling}" == "Xupper case, no underscore, no extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_UPPERCASE_NO_UNDERSCORE"
elif test "X${ac_cv_fc_mangling}" == "Xupper case, underscore, no extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_UPPERCASE_SINGLE_UNDERSCORE"
elif test "X${ac_cv_fc_mangling}" == "Xupper case, underscore, extra underscore"; then
CPPFLAGS+=" -DFC_MANGLING_UPPERCASE_DOUBLE_UNDERSCORE"
fi
if test $FC = "g90"; then
FFLAGS="${FFLAGS} -fno-second-underscore"
fi
if test $FC = "g95"; then
FFLAGS="${FFLAGS} -fno-second-underscore"
fi
AC_MSG_CHECKING([symbol convention in object files])
`cd src/Fortran && rm -f TestUnderscore.o TestUnderscoreC.o TestUnderscore`
`cd src/Fortran && ${FC} ${FFLAGS} -c TestUnderscore.f`
`cd src/Fortran && ${CC} ${CFLAGS} -c TestUnderscoreC.c`
`cd src/Fortran && ${FC} ${FFLAGS} -o TestUnderscore TestUnderscore.o TestUnderscoreC.o`
if test -f src/Fortran/TestUnderscore ; then
`cd src/Fortran && ./TestUnderscore > Underscore.h`
AC_MSG_RESULT([ok])
else
AC_MSG_RESULT([nok])
AC_MSG_ERROR([Cannot determine the symbol convention for Fortran object files!])
exit 1
fi
AC_LANG_POP(Fortran)
else
AC_MSG_RESULT([no])
fi
......
......@@ -13,9 +13,8 @@
#include "h5core/h5_debug.h"
#include "h5core/h5_model.h"
#define h5_createprop_file F77_NAME( \
h5_createprop_file, \
h5_createprop_file_, \
#define h5_createprop_file FC_MANGLING( \
h5_createprop_file, \
H5_CREATEPROP_FILE)
h5_int64_t
h5_createprop_file (
......@@ -25,9 +24,9 @@ h5_createprop_file (
H5_API_RETURN ((h5_int64_t)h5_create_prop (H5_PROP_FILE));
}
#define h5_setprop_file_mpio F77_NAME( \
h5_setprop_file_mpio, \
h5_setprop_file_mpio_, \
#if defined(PARALLEL_IO)
#define h5_setprop_file_mpio FC_MANGLING( \
h5_setprop_file_mpio, \
H5_SETPROP_FILE_MPIO)
h5_int64_t
h5_setprop_file_mpio (
......@@ -42,9 +41,8 @@ h5_setprop_file_mpio (
H5_API_RETURN ((h5_int64_t)h5_set_prop_file_mpio_collective (prop, &comm));
}
#define h5_setprop_file_mpio_collective F77_NAME( \
h5_setprop_file_mpio_collective, \
h5_setprop_file_mpio_collective_, \
#define h5_setprop_file_mpio_collective FC_MANGLING( \
h5_setprop_file_mpio_collective, \
H5_SETPROP_FILE_MPIO_COLLECTIVE)
h5_int64_t
h5_setprop_file_mpio_collective (
......@@ -59,9 +57,8 @@ h5_setprop_file_mpio_collective (
H5_API_RETURN ((h5_int64_t)h5_set_prop_file_mpio_collective (prop, &comm));
}
#define h5_setprop_file_mpio_independent F77_NAME( \
h5_setprop_file_mpio_independent, \
h5_setprop_file_mpio_independent_, \
#define h5_setprop_file_mpio_independent FC_MANGLING( \
h5_setprop_file_mpio_independent, \
H5_SETPROP_FILE_MPIO_INDEPENDENT)
h5_int64_t
h5_setprop_file_mpio_independent (
......@@ -76,9 +73,8 @@ h5_setprop_file_mpio_independent (
H5_API_RETURN ((h5_int64_t)h5_set_prop_file_mpio_independent (prop, &comm));
}
#define h5_setprop_file_mpio_posix F77_NAME( \
#define h5_setprop_file_mpio_posix FC_MANGLING( \
h5_setprop_file_mpio_posix, \
h5_setprop_file_mpio_posix_, \
H5_SETPROP_FILE_MPIO_POSIX)
h5_int64_t
h5_setprop_file_mpio_posix (
......@@ -92,10 +88,10 @@ h5_setprop_file_mpio_posix (
MPI_Comm comm = MPI_Comm_f2c (*_comm);
H5_API_RETURN ((h5_int64_t)h5_set_prop_file_mpio_posix (prop, &comm));
}
#endif
#define h5_setprop_file_corevfd F77_NAME( \
h5_setprop_file_corevfd, \
h5_setprop_file_corevfd, \
#define h5_setprop_file_corevfd FC_MANGLING( \
h5_setprop_file_corevfd, \
H5_SETPROP_FILE_COREVFD)
h5_int64_t
h5_setprop_file_corevfd (
......@@ -108,9 +104,8 @@ h5_setprop_file_corevfd (
H5_API_RETURN ((h5_int64_t)h5_set_prop_file_core_vfd (prop));
}
#define h5_setprop_file_align F77_NAME ( \
h5_setprop_file_align, \
h5_setprop_file_align_, \
#define h5_setprop_file_align FC_MANGLING ( \
h5_setprop_file_align, \
H5_SETPROP_FILE_ALIGN)
h5_int64_t
h5_setprop_file_align (
......@@ -124,9 +119,8 @@ h5_setprop_file_align (
H5_API_RETURN (h5_set_prop_file_align (prop, *align));
}
#define h5_setprop_file_throttle F77_NAME ( \
#define h5_setprop_file_throttle FC_MANGLING ( \
h5_setprop_file_throttle, \
h5_setprop_file_throttle_, \
H5_SETPROP_FILE_THROTTLE)
h5_int64_t
......@@ -142,9 +136,8 @@ h5_setprop_file_throttle (
H5_API_RETURN (h5_set_prop_file_throttle (prop, *throttle));
}
#define h5_closeprop F77_NAME ( \
#define h5_closeprop FC_MANGLING ( \
h5_closeprop, \
h5_closeprop_, \
H5_CLOSEPROP)
h5_int64_t
h5_closeprop (
......@@ -157,9 +150,8 @@ h5_closeprop (
H5_API_RETURN (h5_close_prop (prop));
}
#define h5_openfile F77_NAME( \
#define h5_openfile FC_MANGLING( \
h5_openfile, \
h5_openfile_, \
H5_OPENFILE)
h5_int64_t
h5_openfile (
......@@ -180,9 +172,8 @@ h5_openfile (
H5_API_RETURN ((h5_int64_t)f);
}
#define h5_closefile F77_NAME( \
h5_closefile, \
h5_closefile_, \
#define h5_closefile FC_MANGLING( \
h5_closefile, \
H5_CLOSEFILE)
h5_int64_t
h5_closefile (
......@@ -193,9 +184,8 @@ h5_closefile (
H5_API_RETURN (h5_close_file (fh));
}
#define h5_checkfile F77_NAME( \
h5_checkfile, \
h5_checkfile_, \
#define h5_checkfile FC_MANGLING( \
h5_checkfile, \
H5_CHECKFILE)
h5_int64_t
h5_checkfile (
......@@ -206,9 +196,8 @@ h5_checkfile (
H5_API_RETURN (h5_check_filehandle (fh));
}
#define h5_flushfile F77_NAME( \
h5_flushfile, \
h5_flushfile_, \
#define h5_flushfile FC_MANGLING( \
h5_flushfile, \
H5_FLUSHFILE)
h5_int64_t
h5_flushfile (
......@@ -219,9 +208,8 @@ h5_flushfile (
H5_API_RETURN (h5_flush_file (fh));
}
#define h5_flushstep F77_NAME( \
#define h5_flushstep FC_MANGLING( \
h5_flushstep, \
h5_flushstep_, \
H5_FLUSHSTEP)
h5_int64_t
h5_flushstep (
......@@ -232,9 +220,8 @@ h5_flushstep (
H5_API_RETURN (h5_flush_step (fh));
}
#define h5_finalize F77_NAME( \
#define h5_finalize FC_MANGLING( \
h5_finalize, \
h5_finalize_, \
H5_FINALIZE)
h5_int64_t
h5_finalize (
......@@ -247,9 +234,8 @@ h5_finalize (
/* debug output */
#define h5_set_verbosity_level F77_NAME( \
#define h5_set_verbosity_level FC_MANGLING( \
h5_set_verbosity_level, \
h5_set_verbosity_level_, \
H5_SET_VERBOSITY_LEVEL)
h5_int64_t
h5_set_verbosity_level (
......@@ -260,9 +246,8 @@ h5_set_verbosity_level (
H5_API_RETURN(h5_set_debuglevel (*level));
}
#define h5_abort_on_error F77_NAME( \
h5_abort_on_error, \
h5_abort_on_error_, \
#define h5_abort_on_error FC_MANGLING( \
h5_abort_on_error, \
H5_ABORT_ON_ERROR)
h5_int64_t
h5_abort_on_error (
......@@ -273,9 +258,8 @@ h5_abort_on_error (
H5_API_RETURN (h5_set_errorhandler (h5_abort_errorhandler));
}
#define h5_get_error_number F77_NAME( \
h5_get_error_number, \
h5_get_error_number_, \
#define h5_get_error_number FC_MANGLING( \
h5_get_error_number, \
H5_GET_ERROR_NUMBER)
h5_int64_t
h5_get_error_number (
......
......@@ -24,9 +24,8 @@
|_| |___/
*/
#define h5bl_getnfieldattribs F77_NAME ( \
#define h5bl_getnfieldattribs FC_MANGLING ( \
h5bl_getnfieldattribs, \
h5bl_getnfieldattribs_, \
H5BL_GETNFIELDATTRIBS)
h5_int64_t
h5bl_getnfieldattribs (
......@@ -44,9 +43,8 @@ h5bl_getnfieldattribs (
H5_API_RETURN (herr);
}
#define h5bl_getfieldattribinfo F77_NAME ( \
#define h5bl_getfieldattribinfo FC_MANGLING ( \
h5bl_getfieldattribinfo, \
h5bl_getfieldattribinfo_, \
h5bl_getfieldattribinfo)
h5_int64_t
h5bl_getfieldattribinfo (
......@@ -139,9 +137,8 @@ read_field_attrib (
|___/\__|_| |_|_| |_|\__, |
|___/
*/
#define h5bl_writefieldattrib_string F77_NAME ( \
#define h5bl_writefieldattrib_string FC_MANGLING ( \
h5bl_writefieldattrib_string, \
h5bl_writefieldattrib_string_, \
H5BL_WRITEFIELDATTRIB_STRING)
h5_int64_t
h5bl_writefieldattrib_string (
......@@ -172,9 +169,8 @@ h5bl_writefieldattrib_string (
H5_API_RETURN (h5err);
}
#define h5bl_readfieldattrib_string F77_NAME ( \
#define h5bl_readfieldattrib_string FC_MANGLING ( \
h5bl_readfieldattrib_string, \
h5bl_readfieldattrib_string_, \
H5BL_READFIELDATTRIB_STRING)
h5_err_t
h5bl_readfieldattrib_string (
......@@ -210,9 +206,8 @@ h5bl_readfieldattrib_string (
| | | __/ (_| | |
|_| \___|\__,_|_|
*/
#define h5bl_writefieldattrib_r8 F77_NAME ( \
#define h5bl_writefieldattrib_r8 FC_MANGLING ( \
h5bl_writefieldattrib_r8, \
h5bl_writefieldattrib_r8_, \
H5BL_WRITEFIELDATTRIB_R8)
h5_int64_t
h5bl_writefieldattrib_r8 (
......@@ -240,9 +235,8 @@ h5bl_writefieldattrib_r8 (
attrib_value, *attrib_nelems));
}
#define h5bl_readfieldattrib_r8 F77_NAME ( \
#define h5bl_readfieldattrib_r8 FC_MANGLING ( \
h5bl_readfieldattrib_r8, \
h5bl_readfieldattrib_r8_, \
H5BL_READFIELDATTRIB_R8)
h5_err_t
h5bl_readfieldattrib_r8 (
......@@ -269,9 +263,8 @@ h5bl_readfieldattrib_r8 (
attrib_value));
}
#define h5bl_writefieldattrib_r4 F77_NAME ( \
#define h5bl_writefieldattrib_r4 FC_MANGLING ( \
h5bl_writefieldattrib_r4, \
h5bl_writefieldattrib_r4_, \
H5BL_WRITEFIELDATTRIB_R4)
h5_int64_t
h5bl_writefieldattrib_r4 (
......@@ -299,9 +292,8 @@ h5bl_writefieldattrib_r4 (
attrib_value, *attrib_nelems));
}
#define h5bl_readfieldattrib_r4 F77_NAME ( \
#define h5bl_readfieldattrib_r4 FC_MANGLING ( \
h5bl_readfieldattrib_r4, \
h5bl_readfieldattrib_r4_, \
H5BL_READFIELDATTRIB_R4)
h5_err_t
h5bl_readfieldattrib_r4 (
......@@ -336,9 +328,8 @@ h5bl_readfieldattrib_r4 (
|_|_| |_|\__\___|\__, |\___|_|
|___/
*/
#define h5bl_writefieldattrib_i8 F77_NAME ( \
#define h5bl_writefieldattrib_i8 FC_MANGLING ( \
h5bl_writefieldattrib_i8, \
h5bl_writefieldattrib_i8_, \
H5BL_WRITEFIELDATTRIB_I8)
h5_int64_t
h5bl_writefieldattrib_i8 (
......@@ -366,9 +357,8 @@ h5bl_writefieldattrib_i8 (
attrib_value, *attrib_nelems));
}
#define h5bl_readfieldattrib_i8 F77_NAME ( \
#define h5bl_readfieldattrib_i8 FC_MANGLING ( \
h5bl_readfieldattrib_i8, \
h5bl_readfieldattrib_i8_, \
H5BL_READFIELDATTRIB_I8)
h5_err_t
h5bl_readfieldattrib_i8 (
......@@ -396,9 +386,8 @@ h5bl_readfieldattrib_i8 (
attrib_value));
}
#define h5bl_writefieldattrib_i4 F77_NAME ( \
#define h5bl_writefieldattrib_i4 FC_MANGLING ( \
h5bl_writefieldattrib_i4, \
h5bl_writefieldattrib_i4_, \
H5BL_WRITEFIELDATTRIB_I4 )
h5_int64_t
h5bl_writefieldattrib_i4 (
......@@ -426,9 +415,8 @@ h5bl_writefieldattrib_i4 (
attrib_value, *attrib_nelems));
}
#define h5bl_readfieldattrib_i4 F77_NAME ( \
#define h5bl_readfieldattrib_i4 FC_MANGLING ( \
h5bl_readfieldattrib_i4, \
h5bl_readfieldattrib_i4_, \
H5BL_READFIELDATTRIB_I4)
h5_err_t
h5bl_readfieldattrib_i4 (
......@@ -455,9 +443,8 @@ h5bl_readfieldattrib_i4 (
attrib_value));
}
#define h5bl_get_fieldorigin F77_NAME ( \
#define h5bl_get_fieldorigin FC_MANGLING ( \
h5bl_get_fieldorigin, \
h5bl_get_fieldorigin_, \
H5BL_GET_FIELDORIGIN)
h5_int64_t
......@@ -492,9 +479,8 @@ h5bl_get_fieldorigin (
H5_API_RETURN (H5_SUCCESS);
}
#define h5bl_set_fieldorigin F77_NAME ( \
#define h5bl_set_fieldorigin FC_MANGLING ( \
h5bl_set_fieldorigin, \
h5bl_set_fieldorigin_, \
H5BL_SET_FIELDORIGIN)
h5_int64_t
......@@ -526,9 +512,8 @@ h5bl_set_fieldorigin (
H5_API_RETURN (H5_SUCCESS);
}
#define h5bl_get_fieldspacing F77_NAME ( \
#define h5bl_get_fieldspacing FC_MANGLING ( \
h5bl_get_fieldspacing, \
h5bl_get_fieldspacing_, \
H5BL_GET_FIELDSPACING)
h5_int64_t
......@@ -563,9 +548,8 @@ h5bl_get_fieldspacing (
H5_API_RETURN (H5_SUCCESS);
}
#define h5bl_set_fieldspacing F77_NAME ( \
#define h5bl_set_fieldspacing FC_MANGLING ( \
h5bl_set_fieldspacing, \
h5bl_set_fieldspacing_, \
H5BL_SET_FIELDSPACING)
h5_int64_t
......@@ -648,9 +632,8 @@ get_field_coords (
return (h5err);
}
#define h5bl_set_fieldxcoords F77_NAME ( \
#define h5bl_set_fieldxcoords FC_MANGLING ( \
h5bl_set_fieldxcoords, \
h5bl_set_fieldxcoords_, \
H5BL_SET_FIELDXCOORDS)
h5_int64_t
h5bl_set_fieldxcoords (
......@@ -674,9 +657,8 @@ h5bl_set_fieldxcoords (
coords, *n_coords));
}
#define h5bl_get_fieldxcoords F77_NAME ( \
#define h5bl_get_fieldxcoords FC_MANGLING ( \
h5bl_get_fieldxcoords, \
h5bl_get_fieldxcoords_, \
H5BL_GET_FIELDXCOORDS)
h5_int64_t
h5bl_get_fieldxcoords (
......@@ -701,9 +683,8 @@ h5bl_get_fieldxcoords (
coords, *n_coords));
}
#define h5bl_set_fieldycoords F77_NAME ( \
#define h5bl_set_fieldycoords FC_MANGLING ( \
h5bl_set_fieldycoords, \
h5bl_set_fieldycoords_, \
H5BL_SET_FIELDYCOORDS)
h5_int64_t
h5bl_set_fieldycoords (
......@@ -728,9 +709,8 @@ h5bl_set_fieldycoords (
coords, *n_coords));
}
#define h5bl_get_fieldycoords F77_NAME ( \
#define h5bl_get_fieldycoords FC_MANGLING ( \
h5bl_get_fieldycoords, \
h5bl_get_fieldycoords_, \
H5BL_GET_FIELDyCOORDS)
h5_int64_t
h5bl_get_fieldycoords (
......@@ -756,9 +736,8 @@ h5bl_get_fieldycoords (
}
#define h5bl_set_fieldzcoords F77_NAME ( \
#define h5bl_set_fieldzcoords FC_MANGLING ( \
h5bl_set_fieldzcoords, \
h5bl_set_fieldzcoords_, \
H5BL_SET_FIELDZCOORDS)
h5_int64_t
h5bl_set_fieldzcoords (
......@@ -783,9 +762,8 @@ h5bl_set_fieldzcoords (
coords, *n_coords));
}
#define h5bl_get_fieldzcoords F77_NAME ( \
#define h5bl_get_fieldzcoords FC_MANGLING ( \
h5bl_get_fieldzcoords, \
h5bl_get_fieldzcoords_, \
H5BL_GET_FIELDZCOORDS)
h5_int64_t
h5bl_get_fieldzcoords (
......
......@@ -11,9 +11,8 @@
#include "h5core/h5_debug.h"
#include "h5core/h5b_io.h"
#define h5bl_3d_write_scalar_field_r8 F77_NAME ( \
h5bl_3d_write_scalar_field_r8, \
h5bl_3d_write_scalar_field_r8_, \
#define h5bl_3d_write_scalar_field_r8 FC_MANGLING ( \
h5bl_3d_write_scalar_field_r8, \
H5BL_3D_WRITE_SCALAR_FIELD_R8 )
h5_err_t
h5bl_3d_write_scalar_field_r8 (
......@@ -33,9 +32,8 @@ h5bl_3d_write_scalar_field_r8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_scalar_field_r8 F77_NAME ( \
h5bl_3d_read_scalar_field_r8, \
h5bl_3d_read_scalar_field_r8_, \
#define h5bl_3d_read_scalar_field_r8 FC_MANGLING ( \
h5bl_3d_read_scalar_field_r8, \
H5BL_3D_READ_SCALAR_FIELD_R8 )
h5_err_t
h5bl_3d_read_scalar_field_r8 (
......@@ -55,9 +53,8 @@ h5bl_3d_read_scalar_field_r8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_write_vector3d_field_r8 F77_NAME ( \
#define h5bl_3d_write_vector3d_field_r8 FC_MANGLING ( \
h5bl_3d_write_vector3d_field_r8, \
h5bl_3d_write_vector3d_field_r8_, \
H5BL_3D_WRITE_VECTOR3D_FIELD_R8 )
h5_err_t
h5bl_3d_write_vector3d_field_r8 (
......@@ -80,9 +77,8 @@ h5bl_3d_write_vector3d_field_r8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_vector3d_field_r8 F77_NAME ( \
h5bl_3d_read_vector3d_field_r8, \
h5bl_3d_read_vector3d_field_r8_, \
#define h5bl_3d_read_vector3d_field_r8 FC_MANGLING ( \
h5bl_3d_read_vector3d_field_r8, \
H5BL_3D_READ_VECTOR3D_FIELD_R8 )
h5_err_t
h5bl_3d_read_vector3d_field_r8 (
......@@ -105,9 +101,8 @@ h5bl_3d_read_vector3d_field_r8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_write_scalar_field_r4 F77_NAME ( \
h5bl_3d_write_scalar_field_r4, \
h5bl_3d_write_scalar_field_r4_, \
#define h5bl_3d_write_scalar_field_r4 FC_MANGLING ( \
h5bl_3d_write_scalar_field_r4, \
H5BL_3D_WRITE_SCALAR_FIELD_R4 )
h5_err_t
h5bl_3d_write_scalar_field_r4 (
......@@ -127,9 +122,8 @@ h5bl_3d_write_scalar_field_r4 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_scalar_field_r4 F77_NAME ( \
h5bl_3d_read_scalar_field_r4, \
h5bl_3d_read_scalar_field_r4_, \
#define h5bl_3d_read_scalar_field_r4 FC_MANGLING ( \
h5bl_3d_read_scalar_field_r4, \
H5BL_3D_READ_SCALAR_FIELD_R4 )
h5_err_t
h5bl_3d_read_scalar_field_r4 (
......@@ -149,9 +143,8 @@ h5bl_3d_read_scalar_field_r4 (
H5_API_RETURN(herr);
}
#define h5bl_3d_write_vector3d_field_r4 F77_NAME ( \
#define h5bl_3d_write_vector3d_field_r4 FC_MANGLING ( \
h5bl_3d_write_vector3d_field_r4, \
h5bl_3d_write_vector3d_field_r4_, \
H5BL_3D_WRITE_VECTOR3D_FIELD_R4 )
h5_err_t
h5bl_3d_write_vector3d_field_r4 (
......@@ -174,9 +167,8 @@ h5bl_3d_write_vector3d_field_r4 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_vector3d_field_r4 F77_NAME ( \
#define h5bl_3d_read_vector3d_field_r4 FC_MANGLING ( \
h5bl_3d_read_vector3d_field_r4, \
h5bl_3d_read_vector3d_field_r4_, \
H5BL_3D_READ_VECTOR3D_FIELD_R4 )
h5_err_t
h5bl_3d_read_vector3d_field_r4 (
......@@ -199,9 +191,8 @@ h5bl_3d_read_vector3d_field_r4 (
H5_API_RETURN (herr);
}
#define h5bl_3d_write_scalar_field_i8 F77_NAME ( \
#define h5bl_3d_write_scalar_field_i8 FC_MANGLING ( \
h5bl_3d_write_scalar_field_i8, \
h5bl_3d_write_scalar_field_i8_, \
H5BL_3D_WRITE_SCALAR_FIELD_I8 )
h5_err_t
h5bl_3d_write_scalar_field_i8 (
......@@ -221,9 +212,8 @@ h5bl_3d_write_scalar_field_i8 (
H5_API_RETURN (herr);
}
#define h5bl_3d_read_scalar_field_i8 F77_NAME ( \
h5bl_3d_read_scalar_field_i8, \
h5bl_3d_read_scalar_field_i8_, \
#define h5bl_3d_read_scalar_field_i8 FC_MANGLING ( \
h5bl_3d_read_scalar_field_i8, \
H5BL_3D_READ_SCALAR_FIELD_I8 )
h5_err_t
h5bl_3d_read_scalar_field_i8 (
......@@ -243,9 +233,8 @@ h5bl_3d_read_scalar_field_i8 (
H5_API_RETURN (herr);
}
#define h5bl_3d_write_vector3d_field_i8 F77_NAME ( \
#define h5bl_3d_write_vector3d_field_i8 FC_MANGLING ( \
h5bl_3d_write_vector3d_field_i8, \
h5bl_3d_write_vector3d_field_i8_, \
H5BL_3D_WRITE_VECTOR3D_FIELD_I8 )
h5_err_t
h5bl_3d_write_vector3d_field_i8 (
......@@ -268,9 +257,8 @@ h5bl_3d_write_vector3d_field_i8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_vector3d_field_i8 F77_NAME ( \
#define h5bl_3d_read_vector3d_field_i8 FC_MANGLING ( \
h5bl_3d_read_vector3d_field_i8, \
h5bl_3d_read_vector3d_field_i8_, \
H5BL_3D_READ_VECTOR3D_FIELD_I8 )
h5_err_t
h5bl_3d_read_vector3d_field_i8 (
......@@ -293,9 +281,8 @@ h5bl_3d_read_vector3d_field_i8 (
H5_API_RETURN(herr);
}
#define h5bl_3d_write_scalar_field_i4 F77_NAME ( \
#define h5bl_3d_write_scalar_field_i4 FC_MANGLING ( \
h5bl_3d_write_scalar_field_i4, \
h5bl_3d_write_scalar_field_i4_, \
H5BL_3D_WRITE_SCALAR_FIELD_I4 )
h5_err_t
h5bl_3d_write_scalar_field_i4 (
......@@ -315,9 +302,8 @@ h5bl_3d_write_scalar_field_i4 (
H5_API_RETURN(herr);
}
#define h5bl_3d_read_scalar_field_i4 F77_NAME ( \
h5bl_3d_read_scalar_field_i4, \
h5bl_3d_read_scalar_field_i4_, \
#define h5bl_3d_read_scalar_field_i4 FC_MANGLING ( \
h5bl_3d_read_scalar_field_i4, \
H5BL_3D_READ_SCALAR_FIELD_I4 )
h5_err_t
h5bl_3d_read_scalar_field_i4 (
......@@ -337,9 +323,8 @@ h5bl_3d_read_scalar_field_i4 (
H5_API_RETURN(herr);
}