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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
##
## Copyright (C) by Argonne National Laboratory
## See COPYRIGHT in top-level directory
##
AC_INIT
AC_ARG_WITH(aint-size,
AS_HELP_STRING([--with-aint-size],
[Override the size of MPI_AINT (in bytes)]),,
with_aint_size=0)
AC_PROG_CPP
AC_PROG_CC
AC_CHECK_SIZEOF([char])
AC_CHECK_SIZEOF([short])
AC_CHECK_SIZEOF([int])
AC_CHECK_SIZEOF([long])
AC_CHECK_SIZEOF([long long])
AC_CHECK_SIZEOF([void *])
PAC_PROG_F77
AC_F77_LIBRARY_LDFLAGS
PAC_PROG_F77_FLIBS_VALID
PAC_PROG_F77_CHECK_FLIBS
PAC_PROG_F77_OBJ_LINKS_WITH_C
PAC_PROG_F77_LINKER_WITH_C
PAC_PROG_F77_NAME_MANGLE
PAC_PROG_F77_AND_C_STDIO_LIBS
CROSS_F77_SIZEOF_INTEGER=0
CROSS_F77_SIZEOF_REAL=0
CROSS_F77_SIZEOF_DOUBLE_PRECISION=0
PAC_PROG_F77_CHECK_SIZEOF_EXT([integer],[$CROSS_F77_SIZEOF_INTEGER])
PAC_PROG_F77_CHECK_SIZEOF_EXT([real],[$CROSS_F77_SIZEOF_REAL])
PAC_PROG_F77_CHECK_SIZEOF_EXT([double precision],[$CROSS_F77_SIZEOF_DOUBLE_PRECISION])
AC_SUBST(pac_cv_f77_sizeof_integer)
AC_SUBST(pac_cv_f77_sizeof_real)
AC_SUBST(pac_cv_f77_sizeof_double_precision)
# MPI_FINT is required for logical-to-C translation.
noval="yes"
AC_MSG_CHECKING([for C type matching Fortran integer])
for c_type in char short int long "long_long" ; do
eval ctypelen=\$"ac_cv_sizeof_$c_type"
if test "$pac_cv_f77_sizeof_integer" = "$ctypelen" -a \
"$ctypelen" -gt 0 ; then
c_type=`echo $c_type | sed -e 's/_/ /g'`
AC_MSG_RESULT($c_type)
MPI_FINT=$c_type
noval="no"
break
fi
done
if test "$noval" = "yes" ; then
# Set a default
MPI_FINT="int"
AC_MSG_RESULT([unavailable])
fi
PAC_F77_LOGICALS_IN_C([$MPI_FINT])
AC_SUBST([true_val])
AC_SUBST([false_val])
AC_PROG_FC
PAC_PROG_FC_WORKS
if test "$with_aint_size" -gt 0 -a \
"$with_aint_size" -gt "$ac_cv_sizeof_void_p" ; then
testsize=$with_aint_size
else
testsize=$ac_cv_sizeof_void_p
fi
if test "$testsize" = 0 ; then
# Set a default
testsize=4
fi
dnl Using the {} around testsize helps the comments work correctly
CROSS_F90_ADDRESS_KIND=0
CROSS_F90_OFFSET_KIND=0
CROSS_F90_INTEGER_KIND=0
PAC_PROG_FC_INT_KIND([ADDRESS_KIND], [${testsize}], [$CROSS_F90_ADDRESS_KIND])
if test "$testsize" = 8 ; then
OFFSET_KIND=$ADDRESS_KIND
else
PAC_PROG_FC_INT_KIND([OFFSET_KIND],[8],[$CROSS_F90_OFFSET_KIND])
fi
PAC_PROG_FC_INT_KIND([INTEGER_KIND],[$pac_cv_f77_sizeof_integer],
[$CROSS_F90_INTEGER_KIND])
AC_SUBST(ADDRESS_KIND)
AC_SUBST(OFFSET_KIND)
AC_SUBST(INTEGER_KIND)
CROSS_F90_REAL_MODEL=NIL
CROSS_F90_DOUBLE_MODEL=NIL
CROSS_F90_INTEGER_MODEL=NIL
CROSS_F90_ALL_INTEGER_MODELS=NIL
CROSS_F90_INTEGER_MODEL_MAP=NIL
PAC_FC_SIMPLE_NUMBER_MODEL([the precision and range of reals],
[real aa],
[precision(aa), ",", range(aa)],
[FC_REAL_MODEL],
[$CROSS_F90_REAL_MODEL])
PAC_FC_SIMPLE_NUMBER_MODEL([the precision and range of double precision],
[double precision aa],
[precision(aa), ",", range(aa)],
[FC_DOUBLE_MODEL],
[$CROSS_F90_DOUBLE_MODEL])
PAC_FC_SIMPLE_NUMBER_MODEL([the range of integer],
[integer aa],
[range(aa)],
[FC_INTEGER_MODEL],
[$CROSS_F90_INTEGER_MODEL])
PAC_FC_AVAIL_INTEGER_MODELS([FC_ALL_INTEGER_MODELS],
[$CROSS_F90_ALL_INTEGER_MODELS])
PAC_FC_INTEGER_MODEL_MAP([FC_INTEGER_MODEL_MAP],
[$CROSS_F90_INTEGER_MODEL_MAP])
AC_SUBST(FC_REAL_MODEL)
AC_SUBST(FC_DOUBLE_MODEL)
AC_SUBST(FC_INTEGER_MODEL)
AC_SUBST(FC_ALL_INTEGER_MODELS)
AC_SUBST(FC_INTEGER_MODEL_MAP)
AC_OUTPUT(cross_values.txt)
|
