Skip to content
Snippets Groups Projects
Commit e36454cc authored by Claus-Justus Heine's avatar Claus-Justus Heine
Browse files

Really get rid for Fortran (unless requested).

parent 293b3f5f
Branches
Tags
No related merge requests found
......@@ -248,9 +248,7 @@ AM_PROG_CC_C_O
AC_PROG_CPP
AC_C_INLINE
AC_PROG_CPP
AC_PROG_F77
AC_PROG_CXX
AC_PATH_PROG([CPP], [cpp], [], [/usr/bin:/lib:$PATH])
AC_DEFINE_UNQUOTED([CPP],["$CPP"],["Command which runs the C preprecessor"])
......@@ -258,29 +256,32 @@ AC_DEFINE_UNQUOTED([CPP],["$CPP"],["Command which runs the C preprecessor"])
# Support for FORTRAN code in ALBERTA
#
AC_F77_LIBRARY_LDFLAGS
AC_F77_WRAPPERS
AC_F77_FUNC([dnrm2],[DNRM2_F77_FUNC])
AC_F77_FUNC([daxpy],[DAXPY_F77_FUNC])
AC_F77_FUNC([dexpy],[DEXPY_F77_FUNC])
AC_F77_FUNC([dmxpy],[DMXPY_F77_FUNC])
AC_F77_FUNC([dcopy],[DCOPY_F77_FUNC])
AC_F77_FUNC([ddot],[DDOT_F77_FUNC])
AC_F77_FUNC([dscal],[DSCAL_F77_FUNC])
AC_F77_FUNC([dswap],[DSWAP_F77_FUNC])
AC_F77_FUNC([dxpay],[DXPAY_F77_FUNC])
AC_F77_FUNC([drandn],[DRANDN_F77_FUNC])
AC_F77_FUNC([gpskca],[GPSKCA_F77_FUNC])
AC_SUBST([DNRM2_F77_FUNC])
AC_SUBST([DAXPY_F77_FUNC])
AC_SUBST([DEXPY_F77_FUNC])
AC_SUBST([DMXPY_F77_FUNC])
AC_SUBST([DCOPY_F77_FUNC])
AC_SUBST([DDOT_F77_FUNC])
AC_SUBST([DSCAL_F77_FUNC])
AC_SUBST([DSWAP_F77_FUNC])
AC_SUBST([DXPAY_F77_FUNC])
AC_SUBST([DRANDN_F77_FUNC])
if test "$USE_F77_BLAS" -eq 1; then
AC_PROG_F77
AC_F77_LIBRARY_LDFLAGS
AC_F77_WRAPPERS
AC_F77_FUNC([dnrm2],[DNRM2_F77_FUNC])
AC_F77_FUNC([daxpy],[DAXPY_F77_FUNC])
AC_F77_FUNC([dexpy],[DEXPY_F77_FUNC])
AC_F77_FUNC([dmxpy],[DMXPY_F77_FUNC])
AC_F77_FUNC([dcopy],[DCOPY_F77_FUNC])
AC_F77_FUNC([ddot],[DDOT_F77_FUNC])
AC_F77_FUNC([dscal],[DSCAL_F77_FUNC])
AC_F77_FUNC([dswap],[DSWAP_F77_FUNC])
AC_F77_FUNC([dxpay],[DXPAY_F77_FUNC])
AC_F77_FUNC([drandn],[DRANDN_F77_FUNC])
AC_F77_FUNC([gpskca],[GPSKCA_F77_FUNC])
AC_SUBST([DNRM2_F77_FUNC])
AC_SUBST([DAXPY_F77_FUNC])
AC_SUBST([DEXPY_F77_FUNC])
AC_SUBST([DMXPY_F77_FUNC])
AC_SUBST([DCOPY_F77_FUNC])
AC_SUBST([DDOT_F77_FUNC])
AC_SUBST([DSCAL_F77_FUNC])
AC_SUBST([DSWAP_F77_FUNC])
AC_SUBST([DXPAY_F77_FUNC])
AC_SUBST([DRANDN_F77_FUNC])
fi
#
# Debugging. Should come first because if not set we can forget about
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment