1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
dnl
dnl Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
dnl Copyright (C) INRIA - 2006 - Sylvestre Ledru
dnl
dnl This file must be used under the terms of the CeCILL.
dnl This source file is licensed as described in the file COPYING, which
dnl you should have received as part of this distribution. The terms
dnl are also available at
dnl http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
dnl
dnl Fortran Macros
dnl ------------------------------------------------------
dnl AC_CHECK_UNDERSCORE_FORTRAN
dnl Look for trailing or leading underscores
dnl
AC_DEFUN([AC_CHECK_UNDERSCORE_FORTRAN],[
AC_CHECK_PROGS(NM,nm,no)
if test "x$NM" = "xno"; then
AC_MSG_ERROR([Unable to find nm in the path. nm is used to list all the symbol from a lib])
fi
AC_MSG_CHECKING([for leading underscores with Fortran (name-mangling scheme)])
cat << EOF > pipof.f
subroutine pipof
end
EOF
dnl expand possible $SCIDIR in $FC (wizard command...)
eval "$F77 -c pipof.f > /dev/null 2>&1"
FC_LEADING_UNDERSCORE=no
FC_TRAILING_UNDERSCORE=no
output=`$NM $NMOPT pipof.o|grep _pipof 2>&1`
if test ! -z "$output"; then
FC_LEADING_UNDERSCORE=yes
FC_TRAILING_UNDERSCORE=no
fi
output=`$NM $NMOPT pipof.o|grep pipof_ 2>&1`
if test ! -z "$output"; then
FC_LEADING_UNDERSCORE=no
FC_TRAILING_UNDERSCORE=yes
fi
output=`$NM $NMOPT pipof.o|grep _pipof_ 2>&1`
if test ! -z "$output"; then
FC_LEADING_UNDERSCORE=yes
FC_TRAILING_UNDERSCORE=yes
fi
if test "$FC_LEADING_UNDERSCORE" = yes; then
AC_DEFINE([WLU],,[If leading underscores])
fi
if test "$FC_TRAILING_UNDERSCORE" = yes; then
AC_DEFINE([WTU],,[If trailing underscores])
fi
rm -f pipof.f pipof.o
AC_MSG_RESULT([$FC_LEADING_UNDERSCORE])
AC_MSG_CHECKING([for trailing underscores with Fortran (name-mangling scheme)])
AC_MSG_RESULT([$FC_TRAILING_UNDERSCORE])
#####################
## test for sharpsign
#####################
AC_MSG_CHECKING([use of the sharpsign in CPP])
AC_COMPILE_IFELSE(
[
AC_LANG_PROGRAM(
[[#define C2F(name) name##_]],
[[C2F(toto)()]]
)
],
[AC_MSG_RESULT(yes)
AC_DEFINE([CNAME(name1,name2)], [name1##name2],[Cname])
USE_SHARP_SIGN=yes]
,
[AC_MSG_RESULT(no)
AC_DEFINE([CNAME(name1,name2)], [name1/**/name2],[Cname])
USE_SHARP_SIGN=no]
)
## Define C2F and F2C entry point conversion ##
if test "$FC_TRAILING_UNDERSCORE" = yes; then
if test "$USE_SHARP_SIGN" = yes; then
AC_MSG_RESULT([Define C2F with Trailing Underscore and Sharp Sign])
AC_DEFINE([C2F(name)], [name##_],[Define C2F with Trailing Underscore and Sharp Sign])
AC_DEFINE([F2C(name)], [name##_],[Define F2C with Trailing Underscore and Sharp Sign])
else
AC_MSG_RESULT([Define C2F with Trailing Underscore and without Sharp Sign])
AC_DEFINE([C2F(name)], [name/**/_],[Define C2F with Trailing Underscore and without Sharp Sign])
AC_DEFINE([F2C(name)], [name/**/_],[Define F2C with Trailing Underscore and without Sharp Sign])
fi
else
AC_MSG_RESULT([Define C2F without Trailing Underscore])
AC_DEFINE([C2F(name)], [name],[Define C2F without Trailing Underscore])
AC_DEFINE([F2C(name)], [name],[Define C2F without Trailing Underscore])
fi
])dnl AC_CHECK_UNDERSCORE_FORTRAN
|
