Page MenuHomeHEPForge
Files F7054245

No OneTemporary
Actions

View Options

This file is larger than 256 KB, so syntax highlighting was skipped.
diff --git a/INSTALL b/INSTALL
index 7d1c323..6e90e07 100644
--- a/INSTALL
+++ b/INSTALL
@@ -1,365 +1,370 @@
Installation Instructions
*************************
-Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005,
-2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+Copyright (C) 1994-1996, 1999-2002, 2004-2012 Free Software Foundation,
+Inc.
Copying and distribution of this file, with or without modification,
are permitted in any medium without royalty provided the copyright
notice and this notice are preserved. This file is offered as-is,
without warranty of any kind.
Basic Installation
==================
Briefly, the shell commands `./configure; make; make install' should
configure, build, and install this package. The following
more-detailed instructions are generic; see the `README' file for
instructions specific to this package. Some packages provide this
`INSTALL' file but do not implement all of the features documented
below. The lack of an optional feature in a given package is not
necessarily a bug. More recommendations for GNU packages can be found
in *note Makefile Conventions: (standards)Makefile Conventions.
The `configure' shell script attempts to guess correct values for
various system-dependent variables used during compilation. It uses
those values to create a `Makefile' in each directory of the package.
It may also create one or more `.h' files containing system-dependent
definitions. Finally, it creates a shell script `config.status' that
you can run in the future to recreate the current configuration, and a
file `config.log' containing compiler output (useful mainly for
debugging `configure').
It can also use an optional file (typically called `config.cache'
and enabled with `--cache-file=config.cache' or simply `-C') that saves
the results of its tests to speed up reconfiguring. Caching is
disabled by default to prevent problems with accidental use of stale
cache files.
If you need to do unusual things to compile the package, please try
to figure out how `configure' could check whether to do them, and mail
diffs or instructions to the address given in the `README' so they can
be considered for the next release. If you are using the cache, and at
some point `config.cache' contains results you don't want to keep, you
may remove or edit it.
The file `configure.ac' (or `configure.in') is used to create
`configure' by a program called `autoconf'. You need `configure.ac' if
you want to change it or regenerate `configure' using a newer version
of `autoconf'.
The simplest way to compile this package is:
1. `cd' to the directory containing the package's source code and type
`./configure' to configure the package for your system.
Running `configure' might take a while. While running, it prints
some messages telling which features it is checking for.
2. Type `make' to compile the package.
3. Optionally, type `make check' to run any self-tests that come with
the package, generally using the just-built uninstalled binaries.
4. Type `make install' to install the programs and any data files and
documentation. When installing into a prefix owned by root, it is
recommended that the package be configured and built as a regular
user, and only the `make install' phase executed with root
privileges.
5. Optionally, type `make installcheck' to repeat any self-tests, but
this time using the binaries in their final installed location.
This target does not install anything. Running this target as a
regular user, particularly if the prior `make install' required
root privileges, verifies that the installation completed
correctly.
6. You can remove the program binaries and object files from the
source code directory by typing `make clean'. To also remove the
files that `configure' created (so you can compile the package for
a different kind of computer), type `make distclean'. There is
also a `make maintainer-clean' target, but that is intended mainly
for the package's developers. If you use it, you may have to get
all sorts of other programs in order to regenerate files that came
with the distribution.
7. Often, you can also type `make uninstall' to remove the installed
files again. In practice, not all packages have tested that
uninstallation works correctly, even though it is required by the
GNU Coding Standards.
8. Some packages, particularly those that use Automake, provide `make
distcheck', which can by used by developers to test that all other
targets like `make install' and `make uninstall' work correctly.
This target is generally not run by end users.
Compilers and Options
=====================
Some systems require unusual options for compilation or linking that
the `configure' script does not know about. Run `./configure --help'
for details on some of the pertinent environment variables.
You can give `configure' initial values for configuration parameters
by setting variables in the command line or in the environment. Here
is an example:
./configure CC=c99 CFLAGS=-g LIBS=-lposix
*Note Defining Variables::, for more details.
Compiling For Multiple Architectures
====================================
You can compile the package for more than one kind of computer at the
same time, by placing the object files for each architecture in their
own directory. To do this, you can use GNU `make'. `cd' to the
directory where you want the object files and executables to go and run
the `configure' script. `configure' automatically checks for the
source code in the directory that `configure' is in and in `..'. This
is known as a "VPATH" build.
With a non-GNU `make', it is safer to compile the package for one
architecture at a time in the source code directory. After you have
installed the package for one architecture, use `make distclean' before
reconfiguring for another architecture.
On MacOS X 10.5 and later systems, you can create libraries and
executables that work on multiple system types--known as "fat" or
"universal" binaries--by specifying multiple `-arch' options to the
compiler but only a single `-arch' option to the preprocessor. Like
this:
./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \
CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \
CPP="gcc -E" CXXCPP="g++ -E"
This is not guaranteed to produce working output in all cases, you
may have to build one architecture at a time and combine the results
using the `lipo' tool if you have problems.
Installation Names
==================
By default, `make install' installs the package's commands under
`/usr/local/bin', include files under `/usr/local/include', etc. You
can specify an installation prefix other than `/usr/local' by giving
`configure' the option `--prefix=PREFIX', where PREFIX must be an
absolute file name.
You can specify separate installation prefixes for
architecture-specific files and architecture-independent files. If you
pass the option `--exec-prefix=PREFIX' to `configure', the package uses
PREFIX as the prefix for installing programs and libraries.
Documentation and other data files still use the regular prefix.
In addition, if you use an unusual directory layout you can give
options like `--bindir=DIR' to specify different values for particular
kinds of files. Run `configure --help' for a list of the directories
you can set and what kinds of files go in them. In general, the
default for these options is expressed in terms of `${prefix}', so that
specifying just `--prefix' will affect all of the other directory
specifications that were not explicitly provided.
The most portable way to affect installation locations is to pass the
correct locations to `configure'; however, many packages provide one or
both of the following shortcuts of passing variable assignments to the
`make install' command line to change installation locations without
having to reconfigure or recompile.
The first method involves providing an override variable for each
affected directory. For example, `make install
prefix=/alternate/directory' will choose an alternate location for all
directory configuration variables that were expressed in terms of
`${prefix}'. Any directories that were specified during `configure',
but not in terms of `${prefix}', must each be overridden at install
time for the entire installation to be relocated. The approach of
makefile variable overrides for each directory variable is required by
the GNU Coding Standards, and ideally causes no recompilation.
However, some platforms have known limitations with the semantics of
shared libraries that end up requiring recompilation when using this
method, particularly noticeable in packages that use GNU Libtool.
The second method involves providing the `DESTDIR' variable. For
example, `make install DESTDIR=/alternate/directory' will prepend
`/alternate/directory' before all installation names. The approach of
`DESTDIR' overrides is not required by the GNU Coding Standards, and
does not work on platforms that have drive letters. On the other hand,
it does better at avoiding recompilation issues, and works well even
when some directory options were not specified in terms of `${prefix}'
at `configure' time.
Optional Features
=================
If the package supports it, you can cause programs to be installed
with an extra prefix or suffix on their names by giving `configure' the
option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'.
Some packages pay attention to `--enable-FEATURE' options to
`configure', where FEATURE indicates an optional part of the package.
They may also pay attention to `--with-PACKAGE' options, where PACKAGE
is something like `gnu-as' or `x' (for the X Window System). The
`README' should mention any `--enable-' and `--with-' options that the
package recognizes.
For packages that use the X Window System, `configure' can usually
find the X include and library files automatically, but if it doesn't,
you can use the `configure' options `--x-includes=DIR' and
`--x-libraries=DIR' to specify their locations.
Some packages offer the ability to configure how verbose the
execution of `make' will be. For these packages, running `./configure
--enable-silent-rules' sets the default to minimal output, which can be
overridden with `make V=1'; while running `./configure
--disable-silent-rules' sets the default to verbose, which can be
overridden with `make V=0'.
Particular systems
==================
On HP-UX, the default C compiler is not ANSI C compatible. If GNU
CC is not installed, it is recommended to use the following options in
order to use an ANSI C compiler:
./configure CC="cc -Ae -D_XOPEN_SOURCE=500"
and if that doesn't work, install pre-built binaries of GCC for HP-UX.
+ HP-UX `make' updates targets which have the same time stamps as
+their prerequisites, which makes it generally unusable when shipped
+generated files such as `configure' are involved. Use GNU `make'
+instead.
+
On OSF/1 a.k.a. Tru64, some versions of the default C compiler cannot
parse its `<wchar.h>' header file. The option `-nodtk' can be used as
a workaround. If GNU CC is not installed, it is therefore recommended
to try
./configure CC="cc"
and if that doesn't work, try
./configure CC="cc -nodtk"
On Solaris, don't put `/usr/ucb' early in your `PATH'. This
directory contains several dysfunctional programs; working variants of
these programs are available in `/usr/bin'. So, if you need `/usr/ucb'
in your `PATH', put it _after_ `/usr/bin'.
On Haiku, software installed for all users goes in `/boot/common',
not `/usr/local'. It is recommended to use the following options:
./configure --prefix=/boot/common
Specifying the System Type
==========================
There may be some features `configure' cannot figure out
automatically, but needs to determine by the type of machine the package
will run on. Usually, assuming the package is built to be run on the
_same_ architectures, `configure' can figure that out, but if it prints
a message saying it cannot guess the machine type, give it the
`--build=TYPE' option. TYPE can either be a short name for the system
type, such as `sun4', or a canonical name which has the form:
CPU-COMPANY-SYSTEM
where SYSTEM can have one of these forms:
OS
KERNEL-OS
See the file `config.sub' for the possible values of each field. If
`config.sub' isn't included in this package, then this package doesn't
need to know the machine type.
If you are _building_ compiler tools for cross-compiling, you should
use the option `--target=TYPE' to select the type of system they will
produce code for.
If you want to _use_ a cross compiler, that generates code for a
platform different from the build platform, you should specify the
"host" platform (i.e., that on which the generated programs will
eventually be run) with `--host=TYPE'.
Sharing Defaults
================
If you want to set default values for `configure' scripts to share,
you can create a site shell script called `config.site' that gives
default values for variables like `CC', `cache_file', and `prefix'.
`configure' looks for `PREFIX/share/config.site' if it exists, then
`PREFIX/etc/config.site' if it exists. Or, you can set the
`CONFIG_SITE' environment variable to the location of the site script.
A warning: not all `configure' scripts look for a site script.
Defining Variables
==================
Variables not defined in a site shell script can be set in the
environment passed to `configure'. However, some packages may run
configure again during the build, and the customized values of these
variables may be lost. In order to avoid this problem, you should set
them in the `configure' command line, using `VAR=value'. For example:
./configure CC=/usr/local2/bin/gcc
causes the specified `gcc' to be used as the C compiler (unless it is
overridden in the site shell script).
Unfortunately, this technique does not work for `CONFIG_SHELL' due to
-an Autoconf bug. Until the bug is fixed you can use this workaround:
+an Autoconf limitation. Until the limitation is lifted, you can use
+this workaround:
- CONFIG_SHELL=/bin/bash /bin/bash ./configure CONFIG_SHELL=/bin/bash
+ CONFIG_SHELL=/bin/bash ./configure CONFIG_SHELL=/bin/bash
`configure' Invocation
======================
`configure' recognizes the following options to control how it
operates.
`--help'
`-h'
Print a summary of all of the options to `configure', and exit.
`--help=short'
`--help=recursive'
Print a summary of the options unique to this package's
`configure', and exit. The `short' variant lists options used
only in the top level, while the `recursive' variant lists options
also present in any nested packages.
`--version'
`-V'
Print the version of Autoconf used to generate the `configure'
script, and exit.
`--cache-file=FILE'
Enable the cache: use and save the results of the tests in FILE,
traditionally `config.cache'. FILE defaults to `/dev/null' to
disable caching.
`--config-cache'
`-C'
Alias for `--cache-file=config.cache'.
`--quiet'
`--silent'
`-q'
Do not print messages saying which checks are being made. To
suppress all normal output, redirect it to `/dev/null' (any error
messages will still be shown).
`--srcdir=DIR'
Look for the package's source code in directory DIR. Usually
`configure' can determine that directory automatically.
`--prefix=DIR'
Use DIR as the installation prefix. *note Installation Names::
for more details, including other options available for fine-tuning
the installation locations.
`--no-create'
`-n'
Run the configure checks, but stop before creating any output
files.
`configure' also accepts some other, not widely useful, options. Run
`configure --help' for more details.
-
diff --git a/Makefile.in b/Makefile.in
index 732c804..4f4e7cc 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -1,866 +1,948 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
@COMPILE_FF_TRUE@am__append_1 = ff-2.0
# nop
@COMPILE_QL_TRUE@am__append_2 = qcdloop-1.9
# nop
@COMPILE_OLO_TRUE@am__append_3 = avh_olo-2.2.1
# nop
@COMPILE_GOLEM95C_TRUE@am__append_4 = golem95c-1.2.1
# nop
@COMPILE_SAMURAI_TRUE@am__append_5 = samurai-2.1.1
subdir = .
DIST_COMMON = README $(am__configure_deps) $(dist_noinst_SCRIPTS) \
$(dist_pkgdata_DATA) $(srcdir)/Makefile.am \
$(srcdir)/Makefile.in $(srcdir)/gosam.conf.in \
- $(srcdir)/samurai.pc.in $(top_srcdir)/configure AUTHORS \
- COPYING ChangeLog INSTALL NEWS config.aux/config.guess \
+ $(srcdir)/samurai.pc.in $(top_srcdir)/config.aux/config.guess \
+ $(top_srcdir)/config.aux/config.sub \
+ $(top_srcdir)/config.aux/install-sh \
+ $(top_srcdir)/config.aux/ltmain.sh \
+ $(top_srcdir)/config.aux/missing $(top_srcdir)/configure \
+ AUTHORS COPYING ChangeLog INSTALL NEWS config.aux/config.guess \
config.aux/config.sub config.aux/install-sh \
config.aux/ltmain.sh config.aux/missing
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \
configure.lineno config.status.lineno
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES = gosam.conf samurai.pc
CONFIG_CLEAN_VPATH_FILES =
SCRIPTS = $(dist_noinst_SCRIPTS)
SOURCES =
DIST_SOURCES =
RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \
html-recursive info-recursive install-data-recursive \
install-dvi-recursive install-exec-recursive \
install-html-recursive install-info-recursive \
install-pdf-recursive install-ps-recursive install-recursive \
installcheck-recursive installdirs-recursive pdf-recursive \
ps-recursive uninstall-recursive
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgdatadir)" \
"$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(pkgdatadir)"
DATA = $(dist_pkgdata_DATA) $(pkgconfig_DATA) $(pkgdata_DATA)
RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
distclean-recursive maintainer-clean-recursive
AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \
$(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \
- distdir dist dist-all distcheck
+ cscope distdir dist dist-all distcheck
ETAGS = etags
CTAGS = ctags
+CSCOPE = cscope
DIST_SUBDIRS = ff-2.0 qcdloop-1.9 avh_olo-2.2.1 golem95c-1.2.1 \
samurai-2.1.1
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
distdir = $(PACKAGE)-$(VERSION)
top_distdir = $(distdir)
am__remove_distdir = \
- { test ! -d "$(distdir)" \
- || { find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
- && rm -fr "$(distdir)"; }; }
+ if test -d "$(distdir)"; then \
+ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
+ && rm -rf "$(distdir)" \
+ || { sleep 5 && rm -rf "$(distdir)"; }; \
+ else :; fi
+am__post_remove_distdir = $(am__remove_distdir)
am__relativize = \
dir0=`pwd`; \
sed_first='s,^\([^/]*\)/.*$$,\1,'; \
sed_rest='s,^[^/]*/*,,'; \
sed_last='s,^.*/\([^/]*\)$$,\1,'; \
sed_butlast='s,/*[^/]*$$,,'; \
while test -n "$$dir1"; do \
first=`echo "$$dir1" | sed -e "$$sed_first"`; \
if test "$$first" != "."; then \
if test "$$first" = ".."; then \
dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
else \
first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
if test "$$first2" = "$$first"; then \
dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
else \
dir2="../$$dir2"; \
fi; \
dir0="$$dir0"/"$$first"; \
fi; \
fi; \
dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
done; \
reldir="$$dir2"
DIST_ARCHIVES = $(distdir).tar.gz
GZIP_ENV = --best
+DIST_TARGETS = dist-gzip
distuninstallcheck_listfiles = find . -type f -print
+am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \
+ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$'
distcleancheck_listfiles = find . -type f -print
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
# vim: ts=3:sw=3
SUBDIRS = $(am__append_1) $(am__append_2) $(am__append_3) \
$(am__append_4) $(am__append_5)
# nop
pkgconfigdir = $(libdir)/pkgconfig
pkgconfig_DATA = samurai.pc
dist_noinst_SCRIPTS = autogen.sh
dist_pkgdata_DATA = \
$(top_srcdir)/ff-2.0/fferr.dat \
$(top_srcdir)/ff-2.0/ffperm5.dat \
$(top_srcdir)/ff-2.0/ffwarn.dat
pkgdata_DATA = gosam.conf
ACLOCAL_AMFLAGS = -I m4
EXTRA_DIST = m4
all: all-recursive
.SUFFIXES:
-am--refresh:
+am--refresh: Makefile
@:
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \
$(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \
&& exit 0; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
echo ' $(SHELL) ./config.status'; \
$(SHELL) ./config.status;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \
esac;
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
$(SHELL) ./config.status --recheck
$(top_srcdir)/configure: $(am__configure_deps)
$(am__cd) $(srcdir) && $(AUTOCONF)
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
$(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
$(am__aclocal_m4_deps):
gosam.conf: $(top_builddir)/config.status $(srcdir)/gosam.conf.in
cd $(top_builddir) && $(SHELL) ./config.status $@
samurai.pc: $(top_builddir)/config.status $(srcdir)/samurai.pc.in
cd $(top_builddir) && $(SHELL) ./config.status $@
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
distclean-libtool:
-rm -f libtool config.lt
install-dist_pkgdataDATA: $(dist_pkgdata_DATA)
@$(NORMAL_INSTALL)
- test -z "$(pkgdatadir)" || $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)"
@list='$(dist_pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgdatadir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgdatadir)'"; \
$(INSTALL_DATA) $$files "$(DESTDIR)$(pkgdatadir)" || exit $$?; \
done
uninstall-dist_pkgdataDATA:
@$(NORMAL_UNINSTALL)
@list='$(dist_pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgdatadir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgdatadir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgdatadir)'; $(am__uninstall_files_from_dir)
install-pkgconfigDATA: $(pkgconfig_DATA)
@$(NORMAL_INSTALL)
- test -z "$(pkgconfigdir)" || $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)"
@list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \
$(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \
done
uninstall-pkgconfigDATA:
@$(NORMAL_UNINSTALL)
@list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgconfigdir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgconfigdir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir)
install-pkgdataDATA: $(pkgdata_DATA)
@$(NORMAL_INSTALL)
- test -z "$(pkgdatadir)" || $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)"
@list='$(pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgdatadir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgdatadir)'"; \
$(INSTALL_DATA) $$files "$(DESTDIR)$(pkgdatadir)" || exit $$?; \
done
uninstall-pkgdataDATA:
@$(NORMAL_UNINSTALL)
@list='$(pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgdatadir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgdatadir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgdatadir)'; $(am__uninstall_files_from_dir)
# This directory's subdirectories are mostly independent; you can cd
-# into them and run `make' without going through this Makefile.
-# To change the values of `make' variables: instead of editing Makefiles,
-# (1) if the variable is set in `config.status', edit `config.status'
-# (which will cause the Makefiles to be regenerated when you run `make');
-# (2) otherwise, pass the desired values on the `make' command line.
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+# (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
$(RECURSIVE_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
target=`echo $@ | sed s/-recursive//`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
dot_seen=yes; \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done; \
if test "$$dot_seen" = "no"; then \
$(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
fi; test -z "$$fail"
$(RECURSIVE_CLEAN_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
case "$@" in \
distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
*) list='$(SUBDIRS)' ;; \
esac; \
rev=''; for subdir in $$list; do \
if test "$$subdir" = "."; then :; else \
rev="$$subdir $$rev"; \
fi; \
done; \
rev="$$rev ."; \
target=`echo $@ | sed s/-recursive//`; \
for subdir in $$rev; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
done
ctags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \
done
+cscopelist-recursive:
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \
+ done
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
include_option=--etags-include; \
empty_fix=.; \
else \
include_option=--include; \
empty_fix=; \
fi; \
list='$(SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
test ! -f $$subdir/TAGS || \
set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
fi; \
done; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscope: cscope.files
+ test ! -s cscope.files \
+ || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS)
+
+clean-cscope:
+ -rm -f cscope.files
+
+cscope.files: clean-cscope cscopelist-recursive cscopelist
+
+cscopelist: cscopelist-recursive $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
+ -rm -f cscope.out cscope.in.out cscope.po.out cscope.files
distdir: $(DISTFILES)
$(am__remove_distdir)
test -d "$(distdir)" || mkdir "$(distdir)"
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
- test -d "$(distdir)/$$subdir" \
- || $(MKDIR_P) "$(distdir)/$$subdir" \
- || exit 1; \
- fi; \
- done
- @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
+ $(am__make_dryrun) \
+ || test -d "$(distdir)/$$subdir" \
+ || $(MKDIR_P) "$(distdir)/$$subdir" \
+ || exit 1; \
dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
$(am__relativize); \
new_distdir=$$reldir; \
dir1=$$subdir; dir2="$(top_distdir)"; \
$(am__relativize); \
new_top_distdir=$$reldir; \
echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
($(am__cd) $$subdir && \
$(MAKE) $(AM_MAKEFLAGS) \
top_distdir="$$new_top_distdir" \
distdir="$$new_distdir" \
am__remove_distdir=: \
am__skip_length_check=: \
am__skip_mode_fix=: \
distdir) \
|| exit 1; \
fi; \
done
-test -n "$(am__skip_mode_fix)" \
|| find "$(distdir)" -type d ! -perm -755 \
-exec chmod u+rwx,go+rx {} \; -o \
! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
! -type d ! -perm -400 -exec chmod a+r {} \; -o \
! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
|| chmod -R a+r "$(distdir)"
dist-gzip: distdir
tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
- $(am__remove_distdir)
+ $(am__post_remove_distdir)
dist-bzip2: distdir
- tardir=$(distdir) && $(am__tar) | bzip2 -9 -c >$(distdir).tar.bz2
- $(am__remove_distdir)
+ tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2
+ $(am__post_remove_distdir)
-dist-lzma: distdir
- tardir=$(distdir) && $(am__tar) | lzma -9 -c >$(distdir).tar.lzma
- $(am__remove_distdir)
+dist-lzip: distdir
+ tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz
+ $(am__post_remove_distdir)
dist-xz: distdir
- tardir=$(distdir) && $(am__tar) | xz -c >$(distdir).tar.xz
- $(am__remove_distdir)
+ tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
+ $(am__post_remove_distdir)
dist-tarZ: distdir
tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z
- $(am__remove_distdir)
+ $(am__post_remove_distdir)
dist-shar: distdir
shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz
- $(am__remove_distdir)
+ $(am__post_remove_distdir)
dist-zip: distdir
-rm -f $(distdir).zip
zip -rq $(distdir).zip $(distdir)
- $(am__remove_distdir)
+ $(am__post_remove_distdir)
-dist dist-all: distdir
- tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
- $(am__remove_distdir)
+dist dist-all:
+ $(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:'
+ $(am__post_remove_distdir)
# This target untars the dist file and tries a VPATH configuration. Then
# it guarantees that the distribution is self-contained by making another
# tarfile.
distcheck: dist
case '$(DIST_ARCHIVES)' in \
*.tar.gz*) \
GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
*.tar.bz2*) \
bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
- *.tar.lzma*) \
- lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\
+ *.tar.lz*) \
+ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\
*.tar.xz*) \
xz -dc $(distdir).tar.xz | $(am__untar) ;;\
*.tar.Z*) \
uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
*.shar.gz*) \
GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
*.zip*) \
unzip $(distdir).zip ;;\
esac
chmod -R a-w $(distdir); chmod a+w $(distdir)
mkdir $(distdir)/_build
mkdir $(distdir)/_inst
chmod a-w $(distdir)
test -d $(distdir)/_build || exit 0; \
dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \
&& dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \
&& am__cwd=`pwd` \
&& $(am__cd) $(distdir)/_build \
&& ../configure --srcdir=.. --prefix="$$dc_install_base" \
+ $(AM_DISTCHECK_CONFIGURE_FLAGS) \
$(DISTCHECK_CONFIGURE_FLAGS) \
&& $(MAKE) $(AM_MAKEFLAGS) \
&& $(MAKE) $(AM_MAKEFLAGS) dvi \
&& $(MAKE) $(AM_MAKEFLAGS) check \
&& $(MAKE) $(AM_MAKEFLAGS) install \
&& $(MAKE) $(AM_MAKEFLAGS) installcheck \
&& $(MAKE) $(AM_MAKEFLAGS) uninstall \
&& $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \
distuninstallcheck \
&& chmod -R a-w "$$dc_install_base" \
&& ({ \
(cd ../.. && umask 077 && mkdir "$$dc_destdir") \
&& $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \
&& $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \
&& $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \
distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \
} || { rm -rf "$$dc_destdir"; exit 1; }) \
&& rm -rf "$$dc_destdir" \
&& $(MAKE) $(AM_MAKEFLAGS) dist \
&& rm -rf $(DIST_ARCHIVES) \
&& $(MAKE) $(AM_MAKEFLAGS) distcleancheck \
&& cd "$$am__cwd" \
|| exit 1
- $(am__remove_distdir)
+ $(am__post_remove_distdir)
@(echo "$(distdir) archives ready for distribution: "; \
list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \
sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x'
distuninstallcheck:
- @$(am__cd) '$(distuninstallcheck_dir)' \
- && test `$(distuninstallcheck_listfiles) | wc -l` -le 1 \
+ @test -n '$(distuninstallcheck_dir)' || { \
+ echo 'ERROR: trying to run $@ with an empty' \
+ '$$(distuninstallcheck_dir)' >&2; \
+ exit 1; \
+ }; \
+ $(am__cd) '$(distuninstallcheck_dir)' || { \
+ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \
+ exit 1; \
+ }; \
+ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \
|| { echo "ERROR: files left after uninstall:" ; \
if test -n "$(DESTDIR)"; then \
echo " (check DESTDIR support)"; \
fi ; \
$(distuninstallcheck_listfiles) ; \
exit 1; } >&2
distcleancheck: distclean
@if test '$(srcdir)' = . ; then \
echo "ERROR: distcleancheck can only run from a VPATH build" ; \
exit 1 ; \
fi
@test `$(distcleancheck_listfiles) | wc -l` -eq 0 \
|| { echo "ERROR: files left in build directory after distclean:" ; \
$(distcleancheck_listfiles) ; \
exit 1; } >&2
check-am: all-am
check: check-recursive
all-am: Makefile $(SCRIPTS) $(DATA)
installdirs: installdirs-recursive
installdirs-am:
for dir in "$(DESTDIR)$(pkgdatadir)" "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(pkgdatadir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-recursive
install-exec: install-exec-recursive
install-data: install-data-recursive
uninstall: uninstall-recursive
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-recursive
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-recursive
clean-am: clean-generic clean-libtool mostlyclean-am
distclean: distclean-recursive
-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-rm -f Makefile
distclean-am: clean-am distclean-generic distclean-libtool \
distclean-tags
dvi: dvi-recursive
dvi-am:
html: html-recursive
html-am:
info: info-recursive
info-am:
install-data-am: install-dist_pkgdataDATA install-pkgconfigDATA \
install-pkgdataDATA
install-dvi: install-dvi-recursive
install-dvi-am:
install-exec-am:
install-html: install-html-recursive
install-html-am:
install-info: install-info-recursive
install-info-am:
install-man:
install-pdf: install-pdf-recursive
install-pdf-am:
install-ps: install-ps-recursive
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-recursive
-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-rm -rf $(top_srcdir)/autom4te.cache
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-recursive
mostlyclean-am: mostlyclean-generic mostlyclean-libtool
pdf: pdf-recursive
pdf-am:
ps: ps-recursive
ps-am:
uninstall-am: uninstall-dist_pkgdataDATA uninstall-pkgconfigDATA \
uninstall-pkgdataDATA
-.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \
- install-am install-strip tags-recursive
+.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \
+ cscopelist-recursive ctags-recursive install-am install-strip \
+ tags-recursive
.PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \
- all all-am am--refresh check check-am clean clean-generic \
- clean-libtool ctags ctags-recursive dist dist-all dist-bzip2 \
- dist-gzip dist-lzma dist-shar dist-tarZ dist-xz dist-zip \
- distcheck distclean distclean-generic distclean-libtool \
- distclean-tags distcleancheck distdir distuninstallcheck dvi \
- dvi-am html html-am info info-am install install-am \
- install-data install-data-am install-dist_pkgdataDATA \
- install-dvi install-dvi-am install-exec install-exec-am \
- install-html install-html-am install-info install-info-am \
- install-man install-pdf install-pdf-am install-pkgconfigDATA \
- install-pkgdataDATA install-ps install-ps-am install-strip \
- installcheck installcheck-am installdirs installdirs-am \
- maintainer-clean maintainer-clean-generic mostlyclean \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags tags-recursive uninstall uninstall-am \
- uninstall-dist_pkgdataDATA uninstall-pkgconfigDATA \
- uninstall-pkgdataDATA
+ all all-am am--refresh check check-am clean clean-cscope \
+ clean-generic clean-libtool cscope cscopelist \
+ cscopelist-recursive ctags ctags-recursive dist dist-all \
+ dist-bzip2 dist-gzip dist-lzip dist-shar dist-tarZ dist-xz \
+ dist-zip distcheck distclean distclean-generic \
+ distclean-libtool distclean-tags distcleancheck distdir \
+ distuninstallcheck dvi dvi-am html html-am info info-am \
+ install install-am install-data install-data-am \
+ install-dist_pkgdataDATA install-dvi install-dvi-am \
+ install-exec install-exec-am install-html install-html-am \
+ install-info install-info-am install-man install-pdf \
+ install-pdf-am install-pkgconfigDATA install-pkgdataDATA \
+ install-ps install-ps-am install-strip installcheck \
+ installcheck-am installdirs installdirs-am maintainer-clean \
+ maintainer-clean-generic mostlyclean mostlyclean-generic \
+ mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \
+ uninstall uninstall-am uninstall-dist_pkgdataDATA \
+ uninstall-pkgconfigDATA uninstall-pkgdataDATA
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/aclocal.m4 b/aclocal.m4
index a621780..c826e03 100644
--- a/aclocal.m4
+++ b/aclocal.m4
@@ -1,957 +1,975 @@
-# generated automatically by aclocal 1.11.1 -*- Autoconf -*-
+# generated automatically by aclocal 1.12.1 -*- Autoconf -*-
+
+# Copyright (C) 1996-2012 Free Software Foundation, Inc.
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-# 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
m4_ifndef([AC_AUTOCONF_VERSION],
[m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.68],,
-[m4_warning([this file was generated for autoconf 2.68.
+m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],,
+[m4_warning([this file was generated for autoconf 2.69.
You have another version of autoconf. It may work, but is not guaranteed to.
If you have problems, you may need to regenerate the build system entirely.
-To do so, use the procedure documented by the package, typically `autoreconf'.])])
+To do so, use the procedure documented by the package, typically 'autoreconf'.])])
-# Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+# Copyright (C) 2002-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
+# serial 8
+
# AM_AUTOMAKE_VERSION(VERSION)
# ----------------------------
# Automake X.Y traces this macro to ensure aclocal.m4 has been
# generated from the m4 files accompanying Automake X.Y.
# (This private macro should not be called outside this file.)
AC_DEFUN([AM_AUTOMAKE_VERSION],
-[am__api_version='1.11'
+[am__api_version='1.12'
dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
dnl require some minimum version. Point them to the right macro.
-m4_if([$1], [1.11.1], [],
+m4_if([$1], [1.12.1], [],
[AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
])
# _AM_AUTOCONF_VERSION(VERSION)
# -----------------------------
# aclocal traces this macro to find the Autoconf version.
# This is a private macro too. Using m4_define simplifies
# the logic in aclocal, which can simply ignore this definition.
m4_define([_AM_AUTOCONF_VERSION], [])
# AM_SET_CURRENT_AUTOMAKE_VERSION
# -------------------------------
# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
-[AM_AUTOMAKE_VERSION([1.11.1])dnl
+[AM_AUTOMAKE_VERSION([1.12.1])dnl
m4_ifndef([AC_AUTOCONF_VERSION],
[m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
# AM_AUX_DIR_EXPAND -*- Autoconf -*-
-# Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
+# serial 2
+
# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets
-# $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to
-# `$srcdir', `$srcdir/..', or `$srcdir/../..'.
+# $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to
+# '$srcdir', '$srcdir/..', or '$srcdir/../..'.
#
# Of course, Automake must honor this variable whenever it calls a
# tool from the auxiliary directory. The problem is that $srcdir (and
# therefore $ac_aux_dir as well) can be either absolute or relative,
# depending on how configure is run. This is pretty annoying, since
# it makes $ac_aux_dir quite unusable in subdirectories: in the top
# source directory, any form will work fine, but in subdirectories a
# relative path needs to be adjusted first.
#
# $ac_aux_dir/missing
# fails when called from a subdirectory if $ac_aux_dir is relative
# $top_srcdir/$ac_aux_dir/missing
# fails if $ac_aux_dir is absolute,
# fails when called from a subdirectory in a VPATH build with
# a relative $ac_aux_dir
#
# The reason of the latter failure is that $top_srcdir and $ac_aux_dir
# are both prefixed by $srcdir. In an in-source build this is usually
-# harmless because $srcdir is `.', but things will broke when you
+# harmless because $srcdir is '.', but things will broke when you
# start a VPATH build or use an absolute $srcdir.
#
# So we could use something similar to $top_srcdir/$ac_aux_dir/missing,
# iff we strip the leading $srcdir from $ac_aux_dir. That would be:
# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"`
# and then we would define $MISSING as
# MISSING="\${SHELL} $am_aux_dir/missing"
# This will work as long as MISSING is not called from configure, because
# unfortunately $(top_srcdir) has no meaning in configure.
# However there are other variables, like CC, which are often used in
# configure, and could therefore not use this "fixed" $ac_aux_dir.
#
# Another solution, used here, is to always expand $ac_aux_dir to an
# absolute PATH. The drawback is that using absolute paths prevent a
# configured tree to be moved without reconfiguration.
AC_DEFUN([AM_AUX_DIR_EXPAND],
[dnl Rely on autoconf to set up CDPATH properly.
AC_PREREQ([2.50])dnl
# expand $ac_aux_dir to an absolute path
am_aux_dir=`cd $ac_aux_dir && pwd`
])
# AM_CONDITIONAL -*- Autoconf -*-
-# Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008
-# Free Software Foundation, Inc.
+# Copyright (C) 1997-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 9
+# serial 10
# AM_CONDITIONAL(NAME, SHELL-CONDITION)
# -------------------------------------
# Define a conditional.
AC_DEFUN([AM_CONDITIONAL],
-[AC_PREREQ(2.52)dnl
- ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])],
- [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
+[AC_PREREQ([2.52])dnl
+ m4_if([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])],
+ [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
AC_SUBST([$1_TRUE])dnl
AC_SUBST([$1_FALSE])dnl
_AM_SUBST_NOTMAKE([$1_TRUE])dnl
_AM_SUBST_NOTMAKE([$1_FALSE])dnl
m4_define([_AM_COND_VALUE_$1], [$2])dnl
if $2; then
$1_TRUE=
$1_FALSE='#'
else
$1_TRUE='#'
$1_FALSE=
fi
AC_CONFIG_COMMANDS_PRE(
[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then
AC_MSG_ERROR([[conditional "$1" was never defined.
Usually this means the macro was only invoked conditionally.]])
fi])])
-# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009
-# Free Software Foundation, Inc.
+# Copyright (C) 1999-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 10
+# serial 17
-# There are a few dirty hacks below to avoid letting `AC_PROG_CC' be
+# There are a few dirty hacks below to avoid letting 'AC_PROG_CC' be
# written in clear, in which case automake, when reading aclocal.m4,
# will think it sees a *use*, and therefore will trigger all it's
# C support machinery. Also note that it means that autoscan, seeing
# CC etc. in the Makefile, will ask for an AC_PROG_CC use...
# _AM_DEPENDENCIES(NAME)
# ----------------------
# See how the compiler implements dependency checking.
-# NAME is "CC", "CXX", "GCJ", or "OBJC".
+# NAME is "CC", "CXX", "OBJC", "OBJCXX", "UPC", or "GJC".
# We try a few techniques and use that to set a single cache variable.
#
# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was
# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular
# dependency, and given that the user is not expected to run this macro,
# just rely on AC_PROG_CC.
AC_DEFUN([_AM_DEPENDENCIES],
[AC_REQUIRE([AM_SET_DEPDIR])dnl
AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl
AC_REQUIRE([AM_MAKE_INCLUDE])dnl
AC_REQUIRE([AM_DEP_TRACK])dnl
-ifelse([$1], CC, [depcc="$CC" am_compiler_list=],
- [$1], CXX, [depcc="$CXX" am_compiler_list=],
- [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
- [$1], UPC, [depcc="$UPC" am_compiler_list=],
- [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'],
- [depcc="$$1" am_compiler_list=])
+m4_if([$1], [CC], [depcc="$CC" am_compiler_list=],
+ [$1], [CXX], [depcc="$CXX" am_compiler_list=],
+ [$1], [OBJC], [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
+ [$1], [OBJCXX], [depcc="$OBJCXX" am_compiler_list='gcc3 gcc'],
+ [$1], [UPC], [depcc="$UPC" am_compiler_list=],
+ [$1], [GCJ], [depcc="$GCJ" am_compiler_list='gcc3 gcc'],
+ [depcc="$$1" am_compiler_list=])
AC_CACHE_CHECK([dependency style of $depcc],
[am_cv_$1_dependencies_compiler_type],
[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
# We make a subdir and do the tests there. Otherwise we can end up
# making bogus files that we don't know about and never remove. For
# instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
+ # making a dummy file named 'D' -- because '-MD' means "put the output
+ # in D".
+ rm -rf conftest.dir
mkdir conftest.dir
# Copy depcomp to subdir because otherwise we won't find it if we're
# using a relative directory.
cp "$am_depcomp" conftest.dir
cd conftest.dir
# We will build objects and dependencies in a subdirectory because
# it helps to detect inapplicable dependency modes. For instance
# both Tru64's cc and ICC support -MD to output dependencies as a
# side effect of compilation, but ICC will put the dependencies in
# the current directory while Tru64 will put them in the object
# directory.
mkdir sub
am_cv_$1_dependencies_compiler_type=none
if test "$am_compiler_list" = ""; then
am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp`
fi
am__universal=false
m4_case([$1], [CC],
[case " $depcc " in #(
*\ -arch\ *\ -arch\ *) am__universal=true ;;
esac],
[CXX],
[case " $depcc " in #(
*\ -arch\ *\ -arch\ *) am__universal=true ;;
esac])
for depmode in $am_compiler_list; do
# Setup a source with many dependencies, because some compilers
# like to wrap large dependency lists on column 80 (with \), and
# we should not choose a depcomp mode which is confused by this.
#
# We need to recreate these files for each test, as the compiler may
# overwrite some of them when testing with obscure command lines.
# This happens at least with the AIX C compiler.
: > sub/conftest.c
for i in 1 2 3 4 5 6; do
echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
+ # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
+ # Solaris 10 /bin/sh.
+ echo '/* dummy */' > sub/conftst$i.h
done
echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
+ # We check with '-c' and '-o' for the sake of the "dashmstdout"
# mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
+ # handle '-M -o', and we need to detect this. Also, some Intel
+ # versions had trouble with output in subdirs.
am__obj=sub/conftest.${OBJEXT-o}
am__minus_obj="-o $am__obj"
case $depmode in
gcc)
# This depmode causes a compiler race in universal mode.
test "$am__universal" = false || continue
;;
nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
+ # After this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested.
if test "x$enable_dependency_tracking" = xyes; then
continue
else
break
fi
;;
- msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
+ msvc7 | msvc7msys | msvisualcpp | msvcmsys)
+ # This compiler won't grok '-c -o', but also, the minuso test has
# not run yet. These depmodes are late enough in the game, and
# so weak that their functioning should not be impacted.
am__obj=conftest.${OBJEXT-o}
am__minus_obj=
;;
none) break ;;
esac
if depmode=$depmode \
source=sub/conftest.c object=$am__obj \
depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
$SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
>/dev/null 2>conftest.err &&
grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
${MAKE-make} -s -f confmf > /dev/null 2>&1; then
# icc doesn't choke on unknown options, it will just issue warnings
# or remarks (even with -Werror). So we grep stderr for any message
# that says an option was ignored or not supported.
# When given -MP, icc 7.0 and 7.1 complain thusly:
# icc: Command line warning: ignoring option '-M'; no argument required
# The diagnosis changed in icc 8.0:
# icc: Command line remark: option '-MP' not supported
if (grep 'ignoring option' conftest.err ||
grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
am_cv_$1_dependencies_compiler_type=$depmode
break
fi
fi
done
cd ..
rm -rf conftest.dir
else
am_cv_$1_dependencies_compiler_type=none
fi
])
AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type])
AM_CONDITIONAL([am__fastdep$1], [
test "x$enable_dependency_tracking" != xno \
&& test "$am_cv_$1_dependencies_compiler_type" = gcc3])
])
# AM_SET_DEPDIR
# -------------
# Choose a directory name for dependency files.
-# This macro is AC_REQUIREd in _AM_DEPENDENCIES
+# This macro is AC_REQUIREd in _AM_DEPENDENCIES.
AC_DEFUN([AM_SET_DEPDIR],
[AC_REQUIRE([AM_SET_LEADING_DOT])dnl
AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl
])
# AM_DEP_TRACK
# ------------
AC_DEFUN([AM_DEP_TRACK],
-[AC_ARG_ENABLE(dependency-tracking,
-[ --disable-dependency-tracking speeds up one-time build
- --enable-dependency-tracking do not reject slow dependency extractors])
+[AC_ARG_ENABLE([dependency-tracking], [dnl
+AS_HELP_STRING(
+ [--enable-dependency-tracking],
+ [do not reject slow dependency extractors])
+AS_HELP_STRING(
+ [--disable-dependency-tracking],
+ [speeds up one-time build])])
if test "x$enable_dependency_tracking" != xno; then
am_depcomp="$ac_aux_dir/depcomp"
AMDEPBACKSLASH='\'
+ am__nodep='_no'
fi
AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno])
AC_SUBST([AMDEPBACKSLASH])dnl
_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl
+AC_SUBST([am__nodep])dnl
+_AM_SUBST_NOTMAKE([am__nodep])dnl
])
# Generate code to set up dependency tracking. -*- Autoconf -*-
-# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008
-# Free Software Foundation, Inc.
+# Copyright (C) 1999-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-#serial 5
+# serial 6
# _AM_OUTPUT_DEPENDENCY_COMMANDS
# ------------------------------
AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS],
[{
# Autoconf 2.62 quotes --file arguments for eval, but not when files
# are listed without --file. Let's play safe and only enable the eval
# if we detect the quoting.
case $CONFIG_FILES in
*\'*) eval set x "$CONFIG_FILES" ;;
*) set x $CONFIG_FILES ;;
esac
shift
for mf
do
# Strip MF so we end up with the name of the file.
mf=`echo "$mf" | sed -e 's/:.*$//'`
# Check whether this is an Automake generated Makefile or not.
- # We used to match only the files named `Makefile.in', but
+ # We used to match only the files named 'Makefile.in', but
# some people rename them; so instead we look at the file content.
# Grep'ing the first line is not enough: some people post-process
# each Makefile.in and add a new line on top of each file to say so.
# Grep'ing the whole file is not good either: AIX grep has a line
# limit of 2048, but all sed's we know have understand at least 4000.
if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
dirpart=`AS_DIRNAME("$mf")`
else
continue
fi
# Extract the definition of DEPDIR, am__include, and am__quote
- # from the Makefile without running `make'.
+ # from the Makefile without running 'make'.
DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
test -z "$DEPDIR" && continue
am__include=`sed -n 's/^am__include = //p' < "$mf"`
test -z "am__include" && continue
am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
- # When using ansi2knr, U may be empty or an underscore; expand it
- U=`sed -n 's/^U = //p' < "$mf"`
# Find all dependency output files, they are included files with
# $(DEPDIR) in their names. We invoke sed twice because it is the
# simplest approach to changing $(DEPDIR) to its actual value in the
# expansion.
for file in `sed -n "
s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
- sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
+ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do
# Make sure the directory exists.
test -f "$dirpart/$file" && continue
fdir=`AS_DIRNAME(["$file"])`
AS_MKDIR_P([$dirpart/$fdir])
# echo "creating $dirpart/$file"
echo '# dummy' > "$dirpart/$file"
done
done
}
])# _AM_OUTPUT_DEPENDENCY_COMMANDS
# AM_OUTPUT_DEPENDENCY_COMMANDS
# -----------------------------
# This macro should only be invoked once -- use via AC_REQUIRE.
#
# This code is only required when automatic dependency tracking
-# is enabled. FIXME. This creates each `.P' file that we will
+# is enabled. FIXME. This creates each '.P' file that we will
# need in order to bootstrap the dependency handling code.
AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],
[AC_CONFIG_COMMANDS([depfiles],
[test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS],
[AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"])
])
# Do all the work for Automake. -*- Autoconf -*-
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-# 2005, 2006, 2008, 2009 Free Software Foundation, Inc.
+# Copyright (C) 1996-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 16
+# serial 19
# This macro actually does too much. Some checks are only needed if
# your package does certain things. But this isn't really a big deal.
# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
# AM_INIT_AUTOMAKE([OPTIONS])
# -----------------------------------------------
# The call with PACKAGE and VERSION arguments is the old style
# call (pre autoconf-2.50), which is being phased out. PACKAGE
# and VERSION should now be passed to AC_INIT and removed from
# the call to AM_INIT_AUTOMAKE.
# We support both call styles for the transition. After
# the next Automake release, Autoconf can make the AC_INIT
# arguments mandatory, and then we can depend on a new Autoconf
# release and drop the old call support.
AC_DEFUN([AM_INIT_AUTOMAKE],
[AC_PREREQ([2.62])dnl
dnl Autoconf wants to disallow AM_ names. We explicitly allow
dnl the ones we care about.
m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl
AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl
AC_REQUIRE([AC_PROG_INSTALL])dnl
if test "`cd $srcdir && pwd`" != "`pwd`"; then
# Use -I$(srcdir) only when $(srcdir) != ., so that make's output
# is not polluted with repeated "-I."
AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl
# test to see if srcdir already configured
if test -f $srcdir/config.status; then
AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
fi
fi
# test whether we have cygpath
if test -z "$CYGPATH_W"; then
if (cygpath --version) >/dev/null 2>/dev/null; then
CYGPATH_W='cygpath -w'
else
CYGPATH_W=echo
fi
fi
AC_SUBST([CYGPATH_W])
# Define the identity of the package.
dnl Distinguish between old-style and new-style calls.
m4_ifval([$2],
-[m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
+[AC_DIAGNOSE([obsolete],
+[$0: two- and three-arguments forms are deprecated. For more info, see:
+http://www.gnu.org/software/automake/manual/automake.html#Modernize-AM_INIT_AUTOMAKE-invocation])
+m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
AC_SUBST([PACKAGE], [$1])dnl
AC_SUBST([VERSION], [$2])],
[_AM_SET_OPTIONS([$1])dnl
dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT.
-m4_if(m4_ifdef([AC_PACKAGE_NAME], 1)m4_ifdef([AC_PACKAGE_VERSION], 1), 11,,
+m4_if(
+ m4_ifdef([AC_PACKAGE_NAME], [ok]):m4_ifdef([AC_PACKAGE_VERSION], [ok]),
+ [ok:ok],,
[m4_fatal([AC_INIT should be called with package and version arguments])])dnl
AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl
AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl
_AM_IF_OPTION([no-define],,
-[AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package])
- AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl
+[AC_DEFINE_UNQUOTED([PACKAGE], ["$PACKAGE"], [Name of package])
+ AC_DEFINE_UNQUOTED([VERSION], ["$VERSION"], [Version number of package])])dnl
# Some tools Automake needs.
AC_REQUIRE([AM_SANITY_CHECK])dnl
AC_REQUIRE([AC_ARG_PROGRAM])dnl
-AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version})
-AM_MISSING_PROG(AUTOCONF, autoconf)
-AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version})
-AM_MISSING_PROG(AUTOHEADER, autoheader)
-AM_MISSING_PROG(MAKEINFO, makeinfo)
+AM_MISSING_PROG([ACLOCAL], [aclocal-${am__api_version}])
+AM_MISSING_PROG([AUTOCONF], [autoconf])
+AM_MISSING_PROG([AUTOMAKE], [automake-${am__api_version}])
+AM_MISSING_PROG([AUTOHEADER], [autoheader])
+AM_MISSING_PROG([MAKEINFO], [makeinfo])
AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl
-AC_REQUIRE([AM_PROG_MKDIR_P])dnl
+AC_REQUIRE([AC_PROG_MKDIR_P])dnl
+AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl
# We need awk for the "check" target. The system "awk" is bad on
# some platforms.
AC_REQUIRE([AC_PROG_AWK])dnl
AC_REQUIRE([AC_PROG_MAKE_SET])dnl
AC_REQUIRE([AM_SET_LEADING_DOT])dnl
_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])],
[_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])],
[_AM_PROG_TAR([v7])])])
_AM_IF_OPTION([no-dependencies],,
[AC_PROVIDE_IFELSE([AC_PROG_CC],
- [_AM_DEPENDENCIES(CC)],
- [define([AC_PROG_CC],
- defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl
+ [_AM_DEPENDENCIES([CC])],
+ [m4_define([AC_PROG_CC],
+ m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl
AC_PROVIDE_IFELSE([AC_PROG_CXX],
- [_AM_DEPENDENCIES(CXX)],
- [define([AC_PROG_CXX],
- defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl
+ [_AM_DEPENDENCIES([CXX])],
+ [m4_define([AC_PROG_CXX],
+ m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl
AC_PROVIDE_IFELSE([AC_PROG_OBJC],
- [_AM_DEPENDENCIES(OBJC)],
- [define([AC_PROG_OBJC],
- defn([AC_PROG_OBJC])[_AM_DEPENDENCIES(OBJC)])])dnl
+ [_AM_DEPENDENCIES([OBJC])],
+ [m4_define([AC_PROG_OBJC],
+ m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl
+dnl Support for Objective C++ was only introduced in Autoconf 2.65,
+dnl but we still cater to Autoconf 2.62.
+m4_ifdef([AC_PROG_OBJCXX],
+[AC_PROVIDE_IFELSE([AC_PROG_OBJCXX],
+ [_AM_DEPENDENCIES([OBJCXX])],
+ [m4_define([AC_PROG_OBJCXX],
+ m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])])dnl
])
_AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl
-dnl The `parallel-tests' driver may need to know about EXEEXT, so add the
-dnl `am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro
+dnl The 'parallel-tests' driver may need to know about EXEEXT, so add the
+dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro
dnl is hooked onto _AC_COMPILER_EXEEXT early, see below.
AC_CONFIG_COMMANDS_PRE(dnl
[m4_provide_if([_AM_COMPILER_EXEEXT],
[AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl
])
-dnl Hook into `_AC_COMPILER_EXEEXT' early to learn its expansion. Do not
+dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not
dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further
dnl mangled by Autoconf and run in a shell conditional statement.
m4_define([_AC_COMPILER_EXEEXT],
m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])])
# When config.status generates a header, we must update the stamp-h file.
# This file resides in the same directory as the config header
# that is generated. The stamp files are numbered to have different names.
# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the
# loop where config.status creates the headers, so we can generate
# our stamp files there.
AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK],
[# Compute $1's index in $config_headers.
_am_arg=$1
_am_stamp_count=1
for _am_header in $config_headers :; do
case $_am_header in
$_am_arg | $_am_arg:* )
break ;;
* )
_am_stamp_count=`expr $_am_stamp_count + 1` ;;
esac
done
echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
-# Copyright (C) 2001, 2003, 2005, 2008 Free Software Foundation, Inc.
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
+# serial 8
+
# AM_PROG_INSTALL_SH
# ------------------
# Define $install_sh.
AC_DEFUN([AM_PROG_INSTALL_SH],
[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
if test x"${install_sh}" != xset; then
case $am_aux_dir in
*\ * | *\ *)
install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
*)
install_sh="\${SHELL} $am_aux_dir/install-sh"
esac
fi
-AC_SUBST(install_sh)])
+AC_SUBST([install_sh])])
-# Copyright (C) 2003, 2005 Free Software Foundation, Inc.
+# Copyright (C) 2003-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# serial 2
# Check whether the underlying file-system supports filenames
# with a leading dot. For instance MS-DOS doesn't.
AC_DEFUN([AM_SET_LEADING_DOT],
[rm -rf .tst 2>/dev/null
mkdir .tst 2>/dev/null
if test -d .tst; then
am__leading_dot=.
else
am__leading_dot=_
fi
rmdir .tst 2>/dev/null
AC_SUBST([am__leading_dot])])
# Check to see how 'make' treats includes. -*- Autoconf -*-
-# Copyright (C) 2001, 2002, 2003, 2005, 2009 Free Software Foundation, Inc.
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 4
+# serial 5
# AM_MAKE_INCLUDE()
# -----------------
# Check to see how make treats includes.
AC_DEFUN([AM_MAKE_INCLUDE],
[am_make=${MAKE-make}
cat > confinc << 'END'
am__doit:
@echo this is the am__doit target
.PHONY: am__doit
END
# If we don't find an include directive, just comment out the code.
AC_MSG_CHECKING([for style of include used by $am_make])
am__include="#"
am__quote=
_am_result=none
# First try GNU make style include.
echo "include confinc" > confmf
-# Ignore all kinds of additional output from `make'.
+# Ignore all kinds of additional output from 'make'.
case `$am_make -s -f confmf 2> /dev/null` in #(
*the\ am__doit\ target*)
am__include=include
am__quote=
_am_result=GNU
;;
esac
# Now try BSD make style include.
if test "$am__include" = "#"; then
echo '.include "confinc"' > confmf
case `$am_make -s -f confmf 2> /dev/null` in #(
*the\ am__doit\ target*)
am__include=.include
am__quote="\""
_am_result=BSD
;;
esac
fi
AC_SUBST([am__include])
AC_SUBST([am__quote])
AC_MSG_RESULT([$_am_result])
rm -f confinc confmf
])
# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*-
-# Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008
-# Free Software Foundation, Inc.
+# Copyright (C) 1997-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 6
+# serial 7
# AM_MISSING_PROG(NAME, PROGRAM)
# ------------------------------
AC_DEFUN([AM_MISSING_PROG],
[AC_REQUIRE([AM_MISSING_HAS_RUN])
$1=${$1-"${am_missing_run}$2"}
AC_SUBST($1)])
# AM_MISSING_HAS_RUN
# ------------------
# Define MISSING if not defined so far and test if it supports --run.
# If it does, set am_missing_run to use it, otherwise, to nothing.
AC_DEFUN([AM_MISSING_HAS_RUN],
[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
AC_REQUIRE_AUX_FILE([missing])dnl
if test x"${MISSING+set}" != xset; then
case $am_aux_dir in
*\ * | *\ *)
MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
*)
MISSING="\${SHELL} $am_aux_dir/missing" ;;
esac
fi
# Use eval to expand $SHELL
if eval "$MISSING --run true"; then
am_missing_run="$MISSING --run "
else
am_missing_run=
- AC_MSG_WARN([`missing' script is too old or missing])
+ AC_MSG_WARN(['missing' script is too old or missing])
fi
])
-# Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# AM_PROG_MKDIR_P
-# ---------------
-# Check for `mkdir -p'.
-AC_DEFUN([AM_PROG_MKDIR_P],
-[AC_PREREQ([2.60])dnl
-AC_REQUIRE([AC_PROG_MKDIR_P])dnl
-dnl Automake 1.8 to 1.9.6 used to define mkdir_p. We now use MKDIR_P,
-dnl while keeping a definition of mkdir_p for backward compatibility.
-dnl @MKDIR_P@ is magic: AC_OUTPUT adjusts its value for each Makefile.
-dnl However we cannot define mkdir_p as $(MKDIR_P) for the sake of
-dnl Makefile.ins that do not define MKDIR_P, so we do our own
-dnl adjustment using top_builddir (which is defined more often than
-dnl MKDIR_P).
-AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl
-case $mkdir_p in
- [[\\/$]]* | ?:[[\\/]]*) ;;
- */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;;
-esac
-])
-
# Helper functions for option handling. -*- Autoconf -*-
-# Copyright (C) 2001, 2002, 2003, 2005, 2008 Free Software Foundation, Inc.
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 4
+# serial 6
# _AM_MANGLE_OPTION(NAME)
# -----------------------
AC_DEFUN([_AM_MANGLE_OPTION],
[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])])
# _AM_SET_OPTION(NAME)
-# ------------------------------
+# --------------------
# Set option NAME. Presently that only means defining a flag for this option.
AC_DEFUN([_AM_SET_OPTION],
-[m4_define(_AM_MANGLE_OPTION([$1]), 1)])
+[m4_define(_AM_MANGLE_OPTION([$1]), [1])])
# _AM_SET_OPTIONS(OPTIONS)
-# ----------------------------------
+# ------------------------
# OPTIONS is a space-separated list of Automake options.
AC_DEFUN([_AM_SET_OPTIONS],
[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])])
# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET])
# -------------------------------------------
# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
AC_DEFUN([_AM_IF_OPTION],
[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])])
# Check to make sure that the build environment is sane. -*- Autoconf -*-
-# Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005, 2008
-# Free Software Foundation, Inc.
+# Copyright (C) 1996-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 5
+# serial 9
# AM_SANITY_CHECK
# ---------------
AC_DEFUN([AM_SANITY_CHECK],
[AC_MSG_CHECKING([whether build environment is sane])
-# Just in case
-sleep 1
-echo timestamp > conftest.file
# Reject unsafe characters in $srcdir or the absolute working directory
# name. Accept space and tab only in the latter.
am_lf='
'
case `pwd` in
*[[\\\"\#\$\&\'\`$am_lf]]*)
AC_MSG_ERROR([unsafe absolute working directory name]);;
esac
case $srcdir in
*[[\\\"\#\$\&\'\`$am_lf\ \ ]]*)
- AC_MSG_ERROR([unsafe srcdir value: `$srcdir']);;
+ AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);;
esac
-# Do `set' in a subshell so we don't clobber the current shell's
+# Do 'set' in a subshell so we don't clobber the current shell's
# arguments. Must try -L first in case configure is actually a
# symlink; some systems play weird games with the mod time of symlinks
# (eg FreeBSD returns the mod time of the symlink's containing
# directory).
if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$[*]" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$[*]" != "X $srcdir/configure conftest.file" \
- && test "$[*]" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
-alias in your environment])
- fi
-
+ am_has_slept=no
+ for am_try in 1 2; do
+ echo "timestamp, slept: $am_has_slept" > conftest.file
+ set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
+ if test "$[*]" = "X"; then
+ # -L didn't work.
+ set X `ls -t "$srcdir/configure" conftest.file`
+ fi
+ if test "$[*]" != "X $srcdir/configure conftest.file" \
+ && test "$[*]" != "X conftest.file $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
+ alias in your environment])
+ fi
+ if test "$[2]" = conftest.file || test $am_try -eq 2; then
+ break
+ fi
+ # Just in case.
+ sleep 1
+ am_has_slept=yes
+ done
test "$[2]" = conftest.file
)
then
# Ok.
:
else
AC_MSG_ERROR([newly created file is older than distributed files!
Check your system clock])
fi
-AC_MSG_RESULT(yes)])
+AC_MSG_RESULT([yes])
+# If we didn't sleep, we still need to ensure time stamps of config.status and
+# generated files are strictly newer.
+am_sleep_pid=
+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
+ ( sleep 1 ) &
+ am_sleep_pid=$!
+fi
+AC_CONFIG_COMMANDS_PRE(
+ [AC_MSG_CHECKING([that generated files are newer than configure])
+ if test -n "$am_sleep_pid"; then
+ # Hide warnings about reused PIDs.
+ wait $am_sleep_pid 2>/dev/null
+ fi
+ AC_MSG_RESULT([done])])
+rm -f conftest.file
+])
-# Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
+# Copyright (C) 2001-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
+# serial 2
+
# AM_PROG_INSTALL_STRIP
# ---------------------
-# One issue with vendor `install' (even GNU) is that you can't
+# One issue with vendor 'install' (even GNU) is that you can't
# specify the program used to strip binaries. This is especially
# annoying in cross-compiling environments, where the build's strip
# is unlikely to handle the host's binaries.
# Fortunately install-sh will honor a STRIPPROG variable, so we
-# always use install-sh in `make install-strip', and initialize
+# always use install-sh in "make install-strip", and initialize
# STRIPPROG with the value of the STRIP variable (set by the user).
AC_DEFUN([AM_PROG_INSTALL_STRIP],
[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-# Installed binaries are usually stripped using `strip' when the user
-# run `make install-strip'. However `strip' might not be the right
+# Installed binaries are usually stripped using 'strip' when the user
+# run "make install-strip". However 'strip' might not be the right
# tool to use in cross-compilation environments, therefore Automake
-# will honor the `STRIP' environment variable to overrule this program.
-dnl Don't test for $cross_compiling = yes, because it might be `maybe'.
+# will honor the 'STRIP' environment variable to overrule this program.
+dnl Don't test for $cross_compiling = yes, because it might be 'maybe'.
if test "$cross_compiling" != no; then
AC_CHECK_TOOL([STRIP], [strip], :)
fi
INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
AC_SUBST([INSTALL_STRIP_PROGRAM])])
-# Copyright (C) 2006, 2008 Free Software Foundation, Inc.
+# Copyright (C) 2006-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 2
+# serial 3
# _AM_SUBST_NOTMAKE(VARIABLE)
# ---------------------------
# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in.
# This macro is traced by Automake.
AC_DEFUN([_AM_SUBST_NOTMAKE])
# AM_SUBST_NOTMAKE(VARIABLE)
-# ---------------------------
+# --------------------------
# Public sister of _AM_SUBST_NOTMAKE.
AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
# Check how to create a tarball. -*- Autoconf -*-
-# Copyright (C) 2004, 2005 Free Software Foundation, Inc.
+# Copyright (C) 2004-2012 Free Software Foundation, Inc.
#
# This file is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
-# serial 2
+# serial 3
# _AM_PROG_TAR(FORMAT)
# --------------------
# Check how to create a tarball in format FORMAT.
-# FORMAT should be one of `v7', `ustar', or `pax'.
+# FORMAT should be one of 'v7', 'ustar', or 'pax'.
#
# Substitute a variable $(am__tar) that is a command
# writing to stdout a FORMAT-tarball containing the directory
# $tardir.
# tardir=directory && $(am__tar) > result.tar
#
# Substitute a variable $(am__untar) that extract such
# a tarball read from stdin.
# $(am__untar) < result.tar
AC_DEFUN([_AM_PROG_TAR],
-[# Always define AMTAR for backward compatibility.
-AM_MISSING_PROG([AMTAR], [tar])
+[# Always define AMTAR for backward compatibility. Yes, it's still used
+# in the wild :-( We should find a proper way to deprecate it ...
+AC_SUBST([AMTAR], ['$${TAR-tar}'])
m4_if([$1], [v7],
- [am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -'],
+ [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'],
[m4_case([$1], [ustar],, [pax],,
[m4_fatal([Unknown tar format])])
AC_MSG_CHECKING([how to create a $1 tar archive])
# Loop over all known methods to create a tar archive until one works.
_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none'
_am_tools=${am_cv_prog_tar_$1-$_am_tools}
# Do not fold the above two line into one, because Tru64 sh and
-# Solaris sh will not grok spaces in the rhs of `-'.
+# Solaris sh will not grok spaces in the rhs of '-'.
for _am_tool in $_am_tools
do
case $_am_tool in
gnutar)
for _am_tar in tar gnutar gtar;
do
AM_RUN_LOG([$_am_tar --version]) && break
done
am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"'
am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"'
am__untar="$_am_tar -xf -"
;;
plaintar)
# Must skip GNU tar: if it does not support --format= it doesn't create
# ustar tarball either.
(tar --version) >/dev/null 2>&1 && continue
am__tar='tar chf - "$$tardir"'
am__tar_='tar chf - "$tardir"'
am__untar='tar xf -'
;;
pax)
am__tar='pax -L -x $1 -w "$$tardir"'
am__tar_='pax -L -x $1 -w "$tardir"'
am__untar='pax -r'
;;
cpio)
am__tar='find "$$tardir" -print | cpio -o -H $1 -L'
am__tar_='find "$tardir" -print | cpio -o -H $1 -L'
am__untar='cpio -i -H $1 -d'
;;
none)
am__tar=false
am__tar_=false
am__untar=false
;;
esac
# If the value was cached, stop now. We just wanted to have am__tar
# and am__untar set.
test -n "${am_cv_prog_tar_$1}" && break
# tar/untar a dummy directory, and stop if the command works
rm -rf conftest.dir
mkdir conftest.dir
echo GrepMe > conftest.dir/file
AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar])
rm -rf conftest.dir
if test -s conftest.tar; then
AM_RUN_LOG([$am__untar <conftest.tar])
grep GrepMe conftest.dir/file >/dev/null 2>&1 && break
fi
done
rm -rf conftest.dir
AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool])
AC_MSG_RESULT([$am_cv_prog_tar_$1])])
AC_SUBST([am__tar])
AC_SUBST([am__untar])
]) # _AM_PROG_TAR
m4_include([m4/libtool.m4])
m4_include([m4/ltoptions.m4])
m4_include([m4/ltsugar.m4])
m4_include([m4/ltversion.m4])
m4_include([m4/lt~obsolete.m4])
m4_include([acinclude.m4])
diff --git a/avh_olo-2.2.1/Makefile.in b/avh_olo-2.2.1/Makefile.in
index 2afe47e..934edaa 100644
--- a/avh_olo-2.2.1/Makefile.in
+++ b/avh_olo-2.2.1/Makefile.in
@@ -1,632 +1,683 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \
$(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = avh_olo-2.2.1
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"
LTLIBRARIES = $(lib_LTLIBRARIES)
libavh_olo_la_LIBADD =
am_libavh_olo_la_OBJECTS = avh_olo_boxc.lo avh_olo_box.lo \
avh_olo_bub.lo avh_olo_func.lo avh_olo_kinds.lo \
avh_olo_main.lo avh_olo_print.lo avh_olo_tri.lo \
avh_olo_units.lo avh_olo_wrp01.lo avh_olo_xkind.lo
libavh_olo_la_OBJECTS = $(am_libavh_olo_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libavh_olo_la_SOURCES)
DIST_SOURCES = $(libavh_olo_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
HEADERS = $(nodist_pkginclude_HEADERS) $(noinst_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
lib_LTLIBRARIES = libavh_olo.la
libavh_olo_la_SOURCES = avh_olo_boxc.f90 avh_olo_box.f90 avh_olo_bub.f90 \
avh_olo_func.f90 avh_olo_kinds.f90 avh_olo_main.f90 avh_olo_print.f90 \
avh_olo_tri.f90 avh_olo_units.f90 avh_olo_wrp01.f90 avh_olo_xkind.f90
noinst_HEADERS = \
avh_olo_a0_a.h90 avh_olo_a0_b.h90 avh_olo_b0_a.h90 avh_olo_b0_b.h90 \
avh_olo_b11_a.h90 avh_olo_b11_b.h90 avh_olo_c0_a.h90 avh_olo_c0_b.h90 \
avh_olo_d0_a.h90 avh_olo_d0_b.h90
nodist_pkginclude_HEADERS = \
avh_olo_bern.mod avh_olo_boxc.mod avh_olo_box.mod avh_olo_bub.mod \
avh_olo_func.mod avh_olo_kinds.mod avh_olo_li2a.mod avh_olo_li2c2.mod \
avh_olo_li2c.mod avh_olo_loga2.mod avh_olo_loga.mod avh_olo_logc2.mod \
avh_olo_logc.mod avh_olo.mod avh_olo_print.mod avh_olo_tri.mod \
avh_olo_units.mod avh_olo_xkind.mod
CLEANFILES = $(nodist_pkginclude_HEADERS)
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu avh_olo-2.2.1/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu avh_olo-2.2.1/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
@$(NORMAL_INSTALL)
- test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
list2=; for p in $$list; do \
if test -f $$p; then \
list2="$$list2 $$p"; \
else :; fi; \
done; \
test -z "$$list2" || { \
+ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
}
uninstall-libLTLIBRARIES:
@$(NORMAL_UNINSTALL)
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
for p in $$list; do \
$(am__strip_dir) \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
done
clean-libLTLIBRARIES:
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libavh_olo.la: $(libavh_olo_la_OBJECTS) $(libavh_olo_la_DEPENDENCIES)
+ @list='$(lib_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libavh_olo.la: $(libavh_olo_la_OBJECTS) $(libavh_olo_la_DEPENDENCIES) $(EXTRA_libavh_olo_la_DEPENDENCIES)
$(FCLINK) -rpath $(libdir) $(libavh_olo_la_OBJECTS) $(libavh_olo_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am: install-libLTLIBRARIES
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-libLTLIBRARIES \
uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libLTLIBRARIES clean-libtool ctags distclean \
+ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \
distclean-compile distclean-generic distclean-libtool \
distclean-tags distdir dvi dvi-am html html-am info info-am \
install install-am install-data install-data-am install-dvi \
install-dvi-am install-exec install-exec-am install-html \
install-html-am install-info install-info-am \
install-libLTLIBRARIES install-man \
install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
install-ps install-ps-am install-strip installcheck \
installcheck-am installdirs maintainer-clean \
maintainer-clean-generic mostlyclean mostlyclean-compile \
mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
tags uninstall uninstall-am uninstall-libLTLIBRARIES \
uninstall-nodist_pkgincludeHEADERS
# Module dependencies
avh_olo_box.o: avh_olo_func.o avh_olo_kinds.o avh_olo_units.o
avh_olo_box.lo: avh_olo_func.lo avh_olo_kinds.lo avh_olo_units.lo
avh_olo_box.obj: avh_olo_func.obj avh_olo_kinds.obj avh_olo_units.obj
avh_olo_boxc.o: avh_olo_box.o avh_olo_func.o avh_olo_kinds.o avh_olo_units.o
avh_olo_boxc.lo: avh_olo_box.lo avh_olo_func.lo avh_olo_kinds.lo \
avh_olo_units.lo
avh_olo_boxc.obj: avh_olo_box.obj avh_olo_func.obj avh_olo_kinds.obj \
avh_olo_units.obj
avh_olo_bub.o: avh_olo_func.o avh_olo_kinds.o avh_olo_units.o
avh_olo_bub.lo: avh_olo_func.lo avh_olo_kinds.lo avh_olo_units.lo
avh_olo_bub.obj: avh_olo_func.obj avh_olo_kinds.obj avh_olo_units.obj
avh_olo_func.o: avh_olo_kinds.o avh_olo_units.o
avh_olo_func.lo: avh_olo_kinds.lo avh_olo_units.lo
avh_olo_func.obj: avh_olo_kinds.obj avh_olo_units.obj
avh_olo_kinds.o: avh_olo_xkind.o
avh_olo_kinds.lo: avh_olo_xkind.lo
avh_olo_kinds.obj: avh_olo_xkind.obj
avh_olo_main.o: avh_olo_box.o avh_olo_boxc.o avh_olo_bub.o avh_olo_func.o \
avh_olo_kinds.o avh_olo_print.o avh_olo_tri.o avh_olo_units.o \
avh_olo_a0_a.h90 avh_olo_a0_b.h90 avh_olo_b0_a.h90 avh_olo_b0_b.h90 \
avh_olo_b11_a.h90 avh_olo_b11_b.h90 avh_olo_c0_a.h90 avh_olo_c0_b.h90 \
avh_olo_d0_a.h90 avh_olo_d0_b.h90
avh_olo_main.lo: avh_olo_box.lo avh_olo_boxc.lo avh_olo_bub.lo avh_olo_func.lo \
avh_olo_kinds.lo avh_olo_print.lo avh_olo_tri.lo avh_olo_units.lo \
avh_olo_a0_a.h90 avh_olo_a0_b.h90 avh_olo_b0_a.h90 avh_olo_b0_b.h90 \
avh_olo_b11_a.h90 avh_olo_b11_b.h90 avh_olo_c0_a.h90 avh_olo_c0_b.h90 \
avh_olo_d0_a.h90 avh_olo_d0_b.h90
avh_olo_main.obj: avh_olo_box.obj avh_olo_boxc.obj avh_olo_bub.obj \
avh_olo_func.obj avh_olo_kinds.obj avh_olo_print.obj avh_olo_tri.obj \
avh_olo_units.obj avh_olo_a0_a.h90 avh_olo_a0_b.h90 avh_olo_b0_a.h90 \
avh_olo_b0_b.h90 avh_olo_b11_a.h90 avh_olo_b11_b.h90 avh_olo_c0_a.h90 \
avh_olo_c0_b.h90 avh_olo_d0_a.h90 avh_olo_d0_b.h90
avh_olo_print.o: avh_olo_kinds.o
avh_olo_print.lo: avh_olo_kinds.lo
avh_olo_print.obj: avh_olo_kinds.obj
avh_olo_tri.o: avh_olo_func.o avh_olo_kinds.o avh_olo_units.o
avh_olo_tri.lo: avh_olo_func.lo avh_olo_kinds.lo avh_olo_units.lo
avh_olo_tri.obj: avh_olo_func.obj avh_olo_kinds.obj avh_olo_units.obj
avh_olo_wrp01.o: avh_olo_main.o
avh_olo_wrp01.lo: avh_olo_main.lo
avh_olo_wrp01.obj: avh_olo_main.obj
avh_olo_func.mod avh_olo_loga.mod avh_olo_bern.mod avh_olo_li2a.mod \
avh_olo_loga2.mod avh_olo_logc.mod avh_olo_li2c.mod avh_olo_logc2.mod \
avh_olo_li2c2.mod: avh_olo_func.o
avh_olo.mod: $(nodist_pkginclude_HEADERS:avh_olo.mod=)
%.mod: %.o %.f90
@true
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/config.aux/config.guess b/config.aux/config.guess
index 666c5ad..de8e6dd 100755
--- a/config.aux/config.guess
+++ b/config.aux/config.guess
@@ -1,1511 +1,1540 @@
#! /bin/sh
# Attempt to guess a canonical system name.
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-# Free Software Foundation, Inc.
+# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+# 2011, 2012 Free Software Foundation, Inc.
-timestamp='2009-11-20'
+timestamp='2012-02-10'
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
-# 02110-1301, USA.
+# along with this program; if not, see <http://www.gnu.org/licenses/>.
#
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.
# Originally written by Per Bothner. Please send patches (context
# diff format) to <config-patches@gnu.org> and include a ChangeLog
# entry.
#
# This script attempts to guess a canonical system name similar to
# config.sub. If it succeeds, it prints the system name on stdout, and
# exits with 0. Otherwise, it exits with 1.
#
# You can get the latest version of this script from:
# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
me=`echo "$0" | sed -e 's,.*/,,'`
usage="\
Usage: $0 [OPTION]
Output the configuration name of the system \`$me' is run on.
Operation modes:
-h, --help print this help, then exit
-t, --time-stamp print date of last modification, then exit
-v, --version print version number, then exit
Report bugs and patches to <config-patches@gnu.org>."
version="\
GNU config.guess ($timestamp)
Originally written by Per Bothner.
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
-2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
+Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
help="
Try \`$me --help' for more information."
# Parse command line
while test $# -gt 0 ; do
case $1 in
--time-stamp | --time* | -t )
echo "$timestamp" ; exit ;;
--version | -v )
echo "$version" ; exit ;;
--help | --h* | -h )
echo "$usage"; exit ;;
-- ) # Stop option processing
shift; break ;;
- ) # Use stdin as input.
break ;;
-* )
echo "$me: invalid option $1$help" >&2
exit 1 ;;
* )
break ;;
esac
done
if test $# != 0; then
echo "$me: too many arguments$help" >&2
exit 1
fi
trap 'exit 1' 1 2 15
# CC_FOR_BUILD -- compiler used by this script. Note that the use of a
# compiler to aid in system detection is discouraged as it requires
# temporary files to be created and, as you can see below, it is a
# headache to deal with in a portable fashion.
# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still
# use `HOST_CC' if defined, but it is deprecated.
# Portable tmp directory creation inspired by the Autoconf team.
set_cc_for_build='
trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;
trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;
: ${TMPDIR=/tmp} ;
{ tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
{ test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } ||
{ tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } ||
{ echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ;
dummy=$tmp/dummy ;
tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ;
case $CC_FOR_BUILD,$HOST_CC,$CC in
,,) echo "int x;" > $dummy.c ;
for c in cc gcc c89 c99 ; do
if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then
CC_FOR_BUILD="$c"; break ;
fi ;
done ;
if test x"$CC_FOR_BUILD" = x ; then
CC_FOR_BUILD=no_compiler_found ;
fi
;;
,,*) CC_FOR_BUILD=$CC ;;
,*,*) CC_FOR_BUILD=$HOST_CC ;;
esac ; set_cc_for_build= ;'
# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
# (ghazi@noc.rutgers.edu 1994-08-24)
if (test -f /.attbin/uname) >/dev/null 2>&1 ; then
PATH=$PATH:/.attbin ; export PATH
fi
UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown
UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
case "${UNAME_MACHINE}" in
- i?86)
- test -z "$VENDOR" && VENDOR=pc
- ;;
- *)
- test -z "$VENDOR" && VENDOR=unknown
- ;;
+ i?86)
+ test -z "$VENDOR" && VENDOR=pc
+ ;;
+ *)
+ test -z "$VENDOR" && VENDOR=unknown
+ ;;
esac
test -f /etc/SuSE-release -o -f /.buildenv && VENDOR=suse
# Note: order is significant - the case branches are not exclusive.
case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
*:NetBSD:*:*)
# NetBSD (nbsd) targets should (where applicable) match one or
- # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*,
+ # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*,
# *-*-netbsdecoff* and *-*-netbsd*. For targets that recently
# switched to ELF, *-*-netbsd* would select the old
# object file format. This provides both forward
# compatibility and a consistent mechanism for selecting the
# object file format.
#
# Note: NetBSD doesn't particularly care about the vendor
# portion of the name. We always set it to "unknown".
sysctl="sysctl -n hw.machine_arch"
UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \
/usr/sbin/$sysctl 2>/dev/null || echo unknown)`
case "${UNAME_MACHINE_ARCH}" in
armeb) machine=armeb-unknown ;;
arm*) machine=arm-unknown ;;
sh3el) machine=shl-unknown ;;
sh3eb) machine=sh-unknown ;;
sh5el) machine=sh5le-unknown ;;
*) machine=${UNAME_MACHINE_ARCH}-unknown ;;
esac
# The Operating System including object format, if it has switched
# to ELF recently, or will in the future.
case "${UNAME_MACHINE_ARCH}" in
arm*|i386|m68k|ns32k|sh3*|sparc|vax)
eval $set_cc_for_build
if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ELF__
then
# Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
# Return netbsd for either. FIX?
os=netbsd
else
os=netbsdelf
fi
;;
*)
- os=netbsd
+ os=netbsd
;;
esac
# The OS release
# Debian GNU/NetBSD machines have a different userland, and
# thus, need a distinct triplet. However, they do not need
# kernel version information, so it can be replaced with a
# suitable tag, in the style of linux-gnu.
case "${UNAME_VERSION}" in
Debian*)
release='-gnu'
;;
*)
release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`
;;
esac
# Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
# contains redundant information, the shorter form:
# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
echo "${machine}-${os}${release}"
exit ;;
*:OpenBSD:*:*)
UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'`
echo ${UNAME_MACHINE_ARCH}-${VENDOR}-openbsd${UNAME_RELEASE}
exit ;;
*:ekkoBSD:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-ekkobsd${UNAME_RELEASE}
exit ;;
*:SolidBSD:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-solidbsd${UNAME_RELEASE}
exit ;;
macppc:MirBSD:*:*)
echo powerpc-${VENDOR}-mirbsd${UNAME_RELEASE}
exit ;;
*:MirBSD:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-mirbsd${UNAME_RELEASE}
exit ;;
alpha:OSF1:*:*)
case $UNAME_RELEASE in
*4.0)
UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
;;
*5.*)
- UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
+ UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
;;
esac
# According to Compaq, /usr/sbin/psrinfo has been available on
# OSF/1 and Tru64 systems produced since 1995. I hope that
# covers most systems running today. This code pipes the CPU
# types through head -n 1, so we only detect the type of CPU 0.
ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
case "$ALPHA_CPU_TYPE" in
"EV4 (21064)")
UNAME_MACHINE="alpha" ;;
"EV4.5 (21064)")
UNAME_MACHINE="alpha" ;;
"LCA4 (21066/21068)")
UNAME_MACHINE="alpha" ;;
"EV5 (21164)")
UNAME_MACHINE="alphaev5" ;;
"EV5.6 (21164A)")
UNAME_MACHINE="alphaev56" ;;
"EV5.6 (21164PC)")
UNAME_MACHINE="alphapca56" ;;
"EV5.7 (21164PC)")
UNAME_MACHINE="alphapca57" ;;
"EV6 (21264)")
UNAME_MACHINE="alphaev6" ;;
"EV6.7 (21264A)")
UNAME_MACHINE="alphaev67" ;;
"EV6.8CB (21264C)")
UNAME_MACHINE="alphaev68" ;;
"EV6.8AL (21264B)")
UNAME_MACHINE="alphaev68" ;;
"EV6.8CX (21264D)")
UNAME_MACHINE="alphaev68" ;;
"EV6.9A (21264/EV69A)")
UNAME_MACHINE="alphaev69" ;;
"EV7 (21364)")
UNAME_MACHINE="alphaev7" ;;
"EV7.9 (21364A)")
UNAME_MACHINE="alphaev79" ;;
esac
# A Pn.n version is a patched version.
# A Vn.n version is a released version.
# A Tn.n version is a released field test version.
# A Xn.n version is an unreleased experimental baselevel.
# 1.2 uses "1.2" for uname -r.
echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
- exit ;;
+ # Reset EXIT trap before exiting to avoid spurious non-zero exit code.
+ exitcode=$?
+ trap '' 0
+ exit $exitcode ;;
Alpha\ *:Windows_NT*:*)
# How do we know it's Interix rather than the generic POSIX subsystem?
# Should we change UNAME_MACHINE based on the output of uname instead
# of the specific Alpha model?
echo alpha-pc-interix
exit ;;
21064:Windows_NT:50:3)
echo alpha-dec-winnt3.5
exit ;;
Amiga*:UNIX_System_V:4.0:*)
echo m68k-${VENDOR}-sysv4
exit ;;
*:[Aa]miga[Oo][Ss]:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-amigaos
exit ;;
*:[Mm]orph[Oo][Ss]:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-morphos
exit ;;
*:OS/390:*:*)
echo i370-ibm-openedition
exit ;;
*:z/VM:*:*)
echo s390-ibm-zvmoe
exit ;;
*:OS400:*:*)
- echo powerpc-ibm-os400
+ echo powerpc-ibm-os400
exit ;;
arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
echo arm-acorn-riscix${UNAME_RELEASE}
exit ;;
arm:riscos:*:*|arm:RISCOS:*:*)
echo arm-${VENDOR}-riscos
exit ;;
SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
echo hppa1.1-hitachi-hiuxmpp
exit ;;
Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
# akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
if test "`(/bin/universe) 2>/dev/null`" = att ; then
echo pyramid-pyramid-sysv3
else
echo pyramid-pyramid-bsd
fi
exit ;;
NILE*:*:*:dcosx)
echo pyramid-pyramid-svr4
exit ;;
DRS?6000:unix:4.0:6*)
echo sparc-icl-nx6
exit ;;
DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*)
case `/usr/bin/uname -p` in
sparc) echo sparc-icl-nx7; exit ;;
esac ;;
s390x:SunOS:*:*)
echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
sun4H:SunOS:5.*:*)
echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*)
echo i386-pc-auroraux${UNAME_RELEASE}
exit ;;
i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*)
eval $set_cc_for_build
SUN_ARCH="i386"
# If there is a compiler, see if it is configured for 64-bit objects.
# Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
# This test works for both compilers.
if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \
(CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_64BIT_ARCH >/dev/null
then
SUN_ARCH="x86_64"
fi
fi
echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
sun4*:SunOS:6*:*)
# According to config.sub, this is the proper way to canonicalize
# SunOS6. Hard to guess exactly what SunOS6 will be like, but
# it's likely to be more like Solaris than SunOS4.
echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
sun4*:SunOS:*:*)
case "`/usr/bin/arch -k`" in
Series*|S4*)
UNAME_RELEASE=`uname -v`
;;
esac
# Japanese Language versions have a version number like `4.1.3-JL'.
echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'`
exit ;;
sun3*:SunOS:*:*)
echo m68k-sun-sunos${UNAME_RELEASE}
exit ;;
sun*:*:4.2BSD:*)
UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3
case "`/bin/arch`" in
sun3)
echo m68k-sun-sunos${UNAME_RELEASE}
;;
sun4)
echo sparc-sun-sunos${UNAME_RELEASE}
;;
esac
exit ;;
aushp:SunOS:*:*)
echo sparc-auspex-sunos${UNAME_RELEASE}
exit ;;
# The situation for MiNT is a little confusing. The machine name
# can be virtually everything (everything which is not
# "atarist" or "atariste" at least should have a processor
# > m68000). The system name ranges from "MiNT" over "FreeMiNT"
# to the lowercase version "mint" (or "freemint"). Finally
# the system name "TOS" denotes a system which is actually not
# MiNT. But MiNT is downward compatible to TOS, so this should
# be no problem.
atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
- echo m68k-atari-mint${UNAME_RELEASE}
+ echo m68k-atari-mint${UNAME_RELEASE}
exit ;;
atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
echo m68k-atari-mint${UNAME_RELEASE}
- exit ;;
+ exit ;;
*falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
- echo m68k-atari-mint${UNAME_RELEASE}
+ echo m68k-atari-mint${UNAME_RELEASE}
exit ;;
milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
- echo m68k-milan-mint${UNAME_RELEASE}
- exit ;;
+ echo m68k-milan-mint${UNAME_RELEASE}
+ exit ;;
hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
- echo m68k-hades-mint${UNAME_RELEASE}
- exit ;;
+ echo m68k-hades-mint${UNAME_RELEASE}
+ exit ;;
*:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
- echo m68k-${VENDOR}-mint${UNAME_RELEASE}
- exit ;;
+ echo m68k-${VENDOR}-mint${UNAME_RELEASE}
+ exit ;;
m68k:machten:*:*)
echo m68k-apple-machten${UNAME_RELEASE}
exit ;;
powerpc:machten:*:*)
echo powerpc-apple-machten${UNAME_RELEASE}
exit ;;
RISC*:Mach:*:*)
echo mips-dec-mach_bsd4.3
exit ;;
RISC*:ULTRIX:*:*)
echo mips-dec-ultrix${UNAME_RELEASE}
exit ;;
VAX*:ULTRIX*:*:*)
echo vax-dec-ultrix${UNAME_RELEASE}
exit ;;
2020:CLIX:*:* | 2430:CLIX:*:*)
echo clipper-intergraph-clix${UNAME_RELEASE}
exit ;;
mips:*:*:UMIPS | mips:*:*:RISCos)
eval $set_cc_for_build
sed 's/^ //' << EOF >$dummy.c
#ifdef __cplusplus
#include <stdio.h> /* for printf() prototype */
int main (int argc, char *argv[]) {
#else
int main (argc, argv) int argc; char *argv[]; {
#endif
#if defined (host_mips) && defined (MIPSEB)
#if defined (SYSTYPE_SYSV)
printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0);
#endif
#if defined (SYSTYPE_SVR4)
printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0);
#endif
#if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0);
#endif
#endif
exit (-1);
}
EOF
$CC_FOR_BUILD -o $dummy $dummy.c &&
dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` &&
SYSTEM_NAME=`$dummy $dummyarg` &&
{ echo "$SYSTEM_NAME"; exit; }
echo mips-mips-riscos${UNAME_RELEASE}
exit ;;
Motorola:PowerMAX_OS:*:*)
echo powerpc-motorola-powermax
exit ;;
Motorola:*:4.3:PL8-*)
echo powerpc-harris-powermax
exit ;;
Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)
echo powerpc-harris-powermax
exit ;;
Night_Hawk:Power_UNIX:*:*)
echo powerpc-harris-powerunix
exit ;;
m88k:CX/UX:7*:*)
echo m88k-harris-cxux7
exit ;;
m88k:*:4*:R4*)
echo m88k-motorola-sysv4
exit ;;
m88k:*:3*:R3*)
echo m88k-motorola-sysv3
exit ;;
AViiON:dgux:*:*)
- # DG/UX returns AViiON for all architectures
- UNAME_PROCESSOR=`/usr/bin/uname -p`
+ # DG/UX returns AViiON for all architectures
+ UNAME_PROCESSOR=`/usr/bin/uname -p`
if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ]
then
if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \
[ ${TARGET_BINARY_INTERFACE}x = x ]
then
echo m88k-dg-dgux${UNAME_RELEASE}
else
echo m88k-dg-dguxbcs${UNAME_RELEASE}
fi
else
echo i586-dg-dgux${UNAME_RELEASE}
fi
- exit ;;
+ exit ;;
M88*:DolphinOS:*:*) # DolphinOS (SVR3)
echo m88k-dolphin-sysv3
exit ;;
M88*:*:R3*:*)
# Delta 88k system running SVR3
echo m88k-motorola-sysv3
exit ;;
XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
echo m88k-tektronix-sysv3
exit ;;
Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
echo m68k-tektronix-bsd
exit ;;
*:IRIX*:*:*)
echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'`
exit ;;
????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id
exit ;; # Note that: echo "'`uname -s`'" gives 'AIX '
i*86:AIX:*:*)
echo i386-ibm-aix
exit ;;
ia64:AIX:*:*)
if [ -x /usr/bin/oslevel ] ; then
IBM_REV=`/usr/bin/oslevel`
else
IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
fi
echo ${UNAME_MACHINE}-ibm-aix${IBM_REV}
exit ;;
*:AIX:2:3)
if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
eval $set_cc_for_build
sed 's/^ //' << EOF >$dummy.c
#include <sys/systemcfg.h>
main()
{
if (!__power_pc())
exit(1);
puts("powerpc-ibm-aix3.2.5");
exit(0);
}
EOF
if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy`
then
echo "$SYSTEM_NAME"
else
echo rs6000-ibm-aix3.2.5
fi
elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
echo rs6000-ibm-aix3.2.4
else
echo rs6000-ibm-aix3.2
fi
exit ;;
- *:AIX:*:[456])
+ *:AIX:*:[4567])
IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then
IBM_ARCH=rs6000
else
IBM_ARCH=powerpc
fi
if [ -x /usr/bin/oslevel ] ; then
IBM_REV=`/usr/bin/oslevel`
else
IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
fi
echo ${IBM_ARCH}-ibm-aix${IBM_REV}
exit ;;
*:AIX:*:*)
echo rs6000-ibm-aix
exit ;;
ibmrt:4.4BSD:*|romp-ibm:BSD:*)
echo romp-ibm-bsd4.4
exit ;;
ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and
echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to
exit ;; # report: romp-ibm BSD 4.3
*:BOSX:*:*)
echo rs6000-bull-bosx
exit ;;
DPX/2?00:B.O.S.:*:*)
echo m68k-bull-sysv3
exit ;;
9000/[34]??:4.3bsd:1.*:*)
echo m68k-hp-bsd
exit ;;
hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
echo m68k-hp-bsd4.4
exit ;;
9000/[34678]??:HP-UX:*:*)
HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
case "${UNAME_MACHINE}" in
9000/31? ) HP_ARCH=m68000 ;;
9000/[34]?? ) HP_ARCH=m68k ;;
9000/[678][0-9][0-9])
if [ -x /usr/bin/getconf ]; then
sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
- sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
- case "${sc_cpu_version}" in
- 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
- 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
- 532) # CPU_PA_RISC2_0
- case "${sc_kernel_bits}" in
- 32) HP_ARCH="hppa2.0n" ;;
- 64) HP_ARCH="hppa2.0w" ;;
+ sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
+ case "${sc_cpu_version}" in
+ 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
+ 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
+ 532) # CPU_PA_RISC2_0
+ case "${sc_kernel_bits}" in
+ 32) HP_ARCH="hppa2.0n" ;;
+ 64) HP_ARCH="hppa2.0w" ;;
'') HP_ARCH="hppa2.0" ;; # HP-UX 10.20
- esac ;;
- esac
+ esac ;;
+ esac
fi
if [ "${HP_ARCH}" = "" ]; then
eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
+ sed 's/^ //' << EOF >$dummy.c
- #define _HPUX_SOURCE
- #include <stdlib.h>
- #include <unistd.h>
+ #define _HPUX_SOURCE
+ #include <stdlib.h>
+ #include <unistd.h>
- int main ()
- {
- #if defined(_SC_KERNEL_BITS)
- long bits = sysconf(_SC_KERNEL_BITS);
- #endif
- long cpu = sysconf (_SC_CPU_VERSION);
+ int main ()
+ {
+ #if defined(_SC_KERNEL_BITS)
+ long bits = sysconf(_SC_KERNEL_BITS);
+ #endif
+ long cpu = sysconf (_SC_CPU_VERSION);
- switch (cpu)
- {
- case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
- case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
- case CPU_PA_RISC2_0:
- #if defined(_SC_KERNEL_BITS)
- switch (bits)
- {
- case 64: puts ("hppa2.0w"); break;
- case 32: puts ("hppa2.0n"); break;
- default: puts ("hppa2.0"); break;
- } break;
- #else /* !defined(_SC_KERNEL_BITS) */
- puts ("hppa2.0"); break;
- #endif
- default: puts ("hppa1.0"); break;
- }
- exit (0);
- }
+ switch (cpu)
+ {
+ case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
+ case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
+ case CPU_PA_RISC2_0:
+ #if defined(_SC_KERNEL_BITS)
+ switch (bits)
+ {
+ case 64: puts ("hppa2.0w"); break;
+ case 32: puts ("hppa2.0n"); break;
+ default: puts ("hppa2.0"); break;
+ } break;
+ #else /* !defined(_SC_KERNEL_BITS) */
+ puts ("hppa2.0"); break;
+ #endif
+ default: puts ("hppa1.0"); break;
+ }
+ exit (0);
+ }
EOF
(CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`
test -z "$HP_ARCH" && HP_ARCH=hppa
fi ;;
esac
if [ ${HP_ARCH} = "hppa2.0w" ]
then
eval $set_cc_for_build
# hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating
# 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler
# generating 64-bit code. GNU and HP use different nomenclature:
#
# $ CC_FOR_BUILD=cc ./config.guess
# => hppa2.0w-hp-hpux11.23
# $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess
# => hppa64-hp-hpux11.23
if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) |
grep -q __LP64__
then
HP_ARCH="hppa2.0w"
else
HP_ARCH="hppa64"
fi
fi
echo ${HP_ARCH}-hp-hpux${HPUX_REV}
exit ;;
ia64:HP-UX:*:*)
HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
echo ia64-hp-hpux${HPUX_REV}
exit ;;
3050*:HI-UX:*:*)
eval $set_cc_for_build
sed 's/^ //' << EOF >$dummy.c
#include <unistd.h>
int
main ()
{
long cpu = sysconf (_SC_CPU_VERSION);
/* The order matters, because CPU_IS_HP_MC68K erroneously returns
true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct
results, however. */
if (CPU_IS_PA_RISC (cpu))
{
switch (cpu)
{
case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
default: puts ("hppa-hitachi-hiuxwe2"); break;
}
}
else if (CPU_IS_HP_MC68K (cpu))
puts ("m68k-hitachi-hiuxwe2");
else puts ("unknown-hitachi-hiuxwe2");
exit (0);
}
EOF
$CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` &&
{ echo "$SYSTEM_NAME"; exit; }
echo unknown-hitachi-hiuxwe2
exit ;;
9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* )
echo hppa1.1-hp-bsd
exit ;;
9000/8??:4.3bsd:*:*)
echo hppa1.0-hp-bsd
exit ;;
*9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
echo hppa1.0-hp-mpeix
exit ;;
hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* )
echo hppa1.1-hp-osf
exit ;;
hp8??:OSF1:*:*)
echo hppa1.0-hp-osf
exit ;;
i*86:OSF1:*:*)
if [ -x /usr/sbin/sysversion ] ; then
echo ${UNAME_MACHINE}-${VENDOR}-osf1mk
else
echo ${UNAME_MACHINE}-${VENDOR}-osf1
fi
exit ;;
parisc*:Lites*:*:*)
echo hppa1.1-hp-lites
exit ;;
C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
echo c1-convex-bsd
- exit ;;
+ exit ;;
C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
if getsysinfo -f scalar_acc
then echo c32-convex-bsd
else echo c2-convex-bsd
fi
- exit ;;
+ exit ;;
C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
echo c34-convex-bsd
- exit ;;
+ exit ;;
C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
echo c38-convex-bsd
- exit ;;
+ exit ;;
C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
echo c4-convex-bsd
- exit ;;
+ exit ;;
CRAY*Y-MP:*:*:*)
echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
exit ;;
CRAY*[A-Z]90:*:*:*)
echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \
| sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
-e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
-e 's/\.[^.]*$/.X/'
exit ;;
CRAY*TS:*:*:*)
echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
exit ;;
CRAY*T3E:*:*:*)
echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
exit ;;
CRAY*SV1:*:*:*)
echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
exit ;;
*:UNICOS/mp:*:*)
echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
exit ;;
F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
- FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
- FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'`
- echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
- exit ;;
+ FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
+ FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'`
+ echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
+ exit ;;
5000:UNIX_System_V:4.*:*)
- FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
- FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'`
- echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
+ FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
+ FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'`
+ echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
exit ;;
i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE}
exit ;;
sparc*:BSD/OS:*:*)
echo sparc-${VENDOR}-bsdi${UNAME_RELEASE}
exit ;;
*:BSD/OS:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-bsdi${UNAME_RELEASE}
exit ;;
*:FreeBSD:*:*)
- case ${UNAME_MACHINE} in
- pc98)
- echo i386-${VENDOR}-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
+ UNAME_PROCESSOR=`/usr/bin/uname -p`
+ case ${UNAME_PROCESSOR} in
amd64)
echo x86_64-${VENDOR}-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
*)
- echo ${UNAME_MACHINE}-${VENDOR}-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
+ echo ${UNAME_PROCESSOR}-${VENDOR}-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
esac
exit ;;
i*:CYGWIN*:*)
echo ${UNAME_MACHINE}-pc-cygwin
exit ;;
*:MINGW*:*)
echo ${UNAME_MACHINE}-pc-mingw32
exit ;;
+ i*:MSYS*:*)
+ echo ${UNAME_MACHINE}-pc-msys
+ exit ;;
i*:windows32*:*)
- # uname -m includes "-pc" on this system.
- echo ${UNAME_MACHINE}-mingw32
+ # uname -m includes "-pc" on this system.
+ echo ${UNAME_MACHINE}-mingw32
exit ;;
i*:PW*:*)
echo ${UNAME_MACHINE}-pc-pw32
exit ;;
*:Interix*:*)
- case ${UNAME_MACHINE} in
+ case ${UNAME_MACHINE} in
x86)
echo i586-pc-interix${UNAME_RELEASE}
exit ;;
authenticamd | genuineintel | EM64T)
echo x86_64-${VENDOR}-interix${UNAME_RELEASE}
exit ;;
IA64)
echo ia64-${VENDOR}-interix${UNAME_RELEASE}
exit ;;
esac ;;
[345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*)
echo i${UNAME_MACHINE}-pc-mks
exit ;;
8664:Windows_NT:*)
echo x86_64-pc-mks
exit ;;
i*:Windows_NT*:* | Pentium*:Windows_NT*:*)
# How do we know it's Interix rather than the generic POSIX subsystem?
# It also conflicts with pre-2.0 versions of AT&T UWIN. Should we
# UNAME_MACHINE based on the output of uname instead of i386?
echo i586-pc-interix
exit ;;
i*:UWIN*:*)
echo ${UNAME_MACHINE}-pc-uwin
exit ;;
amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*)
echo x86_64-${VENDOR}-cygwin
exit ;;
p*:CYGWIN*:*)
echo powerpcle-${VENDOR}-cygwin
exit ;;
prep*:SunOS:5.*:*)
echo powerpcle-${VENDOR}-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
exit ;;
*:GNU:*:*)
# the GNU system
echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-${VENDOR}-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
exit ;;
*:GNU/*:*:*)
# other systems with GNU libc and userland
echo ${UNAME_MACHINE}-${VENDOR}-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu
exit ;;
i*86:Minix:*:*)
echo ${UNAME_MACHINE}-pc-minix
exit ;;
+ aarch64:Linux:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ exit ;;
+ aarch64_be:Linux:*:*)
+ UNAME_MACHINE=aarch64_be
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ exit ;;
alpha:Linux:*:*)
case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in
EV5) UNAME_MACHINE=alphaev5 ;;
EV56) UNAME_MACHINE=alphaev56 ;;
PCA56) UNAME_MACHINE=alphapca56 ;;
PCA57) UNAME_MACHINE=alphapca56 ;;
EV6) UNAME_MACHINE=alphaev6 ;;
EV67) UNAME_MACHINE=alphaev67 ;;
EV68*) UNAME_MACHINE=alphaev68 ;;
- esac
+ esac
objdump --private-headers /bin/sh | grep -q ld.so.1
if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu${LIBC}
exit ;;
arm*:Linux:*:*)
eval $set_cc_for_build
if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ARM_EABI__
then
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
else
- echo ${UNAME_MACHINE}-${VENDOR}-linux-gnueabi
+ if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
+ | grep -q __ARM_PCS_VFP
+ then
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnueabi
+ else
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnueabihf
+ fi
fi
exit ;;
avr32*:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
cris:Linux:*:*)
- echo cris-axis-linux-gnu
+ echo ${UNAME_MACHINE}-axis-linux-gnu
exit ;;
crisv32:Linux:*:*)
- echo crisv32-axis-linux-gnu
+ echo ${UNAME_MACHINE}-axis-linux-gnu
exit ;;
frv:Linux:*:*)
- echo frv-${VENDOR}-linux-gnu
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ exit ;;
+ hexagon:Linux:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
i*86:Linux:*:*)
LIBC=gnu
eval $set_cc_for_build
sed 's/^ //' << EOF >$dummy.c
#ifdef __dietlibc__
LIBC=dietlibc
#endif
EOF
eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'`
- echo "${UNAME_MACHINE}-${VENDOR}-linux-${LIBC}"
+ echo "${UNAME_MACHINE}-pc-linux-${LIBC}"
exit ;;
ia64:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
m32r*:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
m68*:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
mips:Linux:*:* | mips64:Linux:*:*)
eval $set_cc_for_build
sed 's/^ //' << EOF >$dummy.c
#undef CPU
#undef ${UNAME_MACHINE}
#undef ${UNAME_MACHINE}el
#if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
CPU=${UNAME_MACHINE}el
#else
#if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
CPU=${UNAME_MACHINE}
#else
CPU=
#endif
#endif
EOF
eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'`
test x"${CPU}" != x && { echo "${CPU}-${VENDOR}-linux-gnu"; exit; }
;;
or32:Linux:*:*)
- echo or32-${VENDOR}-linux-gnu
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
padre:Linux:*:*)
echo sparc-${VENDOR}-linux-gnu
exit ;;
parisc64:Linux:*:* | hppa64:Linux:*:*)
echo hppa64-${VENDOR}-linux-gnu
exit ;;
parisc:Linux:*:* | hppa:Linux:*:*)
# Look for CPU level
case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
PA7*) echo hppa1.1-${VENDOR}-linux-gnu ;;
PA8*) echo hppa2.0-${VENDOR}-linux-gnu ;;
*) echo hppa-${VENDOR}-linux-gnu ;;
esac
exit ;;
ppc64:Linux:*:*)
echo powerpc64-${VENDOR}-linux-gnu
exit ;;
ppc:Linux:*:*)
echo powerpc-${VENDOR}-linux-gnu
exit ;;
s390:Linux:*:* | s390x:Linux:*:*)
echo ${UNAME_MACHINE}-ibm-linux
exit ;;
sh64*:Linux:*:*)
- echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
sh*:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
sparc:Linux:*:* | sparc64:Linux:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
+ tile*:Linux:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ exit ;;
vax:Linux:*:*)
echo ${UNAME_MACHINE}-dec-linux-gnu
exit ;;
x86_64:Linux:*:*)
- echo x86_64-${VENDOR}-linux-gnu
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
xtensa*:Linux:*:*)
- echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
+ echo ${UNAME_MACHINE}-${VENDOR}-linux-gnu
exit ;;
i*86:DYNIX/ptx:4*:*)
# ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
# earlier versions are messed up and put the nodename in both
# sysname and nodename.
echo i386-sequent-sysv4
exit ;;
i*86:UNIX_SV:4.2MP:2.*)
- # Unixware is an offshoot of SVR4, but it has its own version
- # number series starting with 2...
- # I am not positive that other SVR4 systems won't match this,
+ # Unixware is an offshoot of SVR4, but it has its own version
+ # number series starting with 2...
+ # I am not positive that other SVR4 systems won't match this,
# I just have to hope. -- rms.
- # Use sysv4.2uw... so that sysv4* matches it.
+ # Use sysv4.2uw... so that sysv4* matches it.
echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION}
exit ;;
i*86:OS/2:*:*)
# If we were able to find `uname', then EMX Unix compatibility
# is probably installed.
echo ${UNAME_MACHINE}-pc-os2-emx
exit ;;
i*86:XTS-300:*:STOP)
echo ${UNAME_MACHINE}-${VENDOR}-stop
exit ;;
i*86:atheos:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-atheos
exit ;;
i*86:syllable:*:*)
echo ${UNAME_MACHINE}-pc-syllable
exit ;;
i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*)
- echo i386-${VENDOR}-lynxos${UNAME_RELEASE}
+ echo i386-${VENODR}-lynxos${UNAME_RELEASE}
exit ;;
i*86:*DOS:*:*)
echo ${UNAME_MACHINE}-pc-msdosdjgpp
exit ;;
i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*)
UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'`
if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL}
else
echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL}
fi
exit ;;
i*86:*:5:[678]*)
- # UnixWare 7.x, OpenUNIX and OpenServer 6.
+ # UnixWare 7.x, OpenUNIX and OpenServer 6.
case `/bin/uname -X | grep "^Machine"` in
*486*) UNAME_MACHINE=i486 ;;
*Pentium) UNAME_MACHINE=i586 ;;
*Pent*|*Celeron) UNAME_MACHINE=i686 ;;
esac
echo ${UNAME_MACHINE}-${VENDOR}-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
exit ;;
i*86:*:3.2:*)
if test -f /usr/options/cb.name; then
UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`
echo ${UNAME_MACHINE}-pc-isc$UNAME_REL
elif /bin/uname -X 2>/dev/null >/dev/null ; then
UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`
(/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486
(/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \
&& UNAME_MACHINE=i586
(/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \
&& UNAME_MACHINE=i686
(/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \
&& UNAME_MACHINE=i686
echo ${UNAME_MACHINE}-pc-sco$UNAME_REL
else
echo ${UNAME_MACHINE}-pc-sysv32
fi
exit ;;
pc:*:*:*)
# Left here for compatibility:
- # uname -m prints for DJGPP always 'pc', but it prints nothing about
- # the processor, so we play safe by assuming i586.
+ # uname -m prints for DJGPP always 'pc', but it prints nothing about
+ # the processor, so we play safe by assuming i586.
# Note: whatever this is, it MUST be the same as what config.sub
# prints for the "djgpp" host, or else GDB configury will decide that
# this is a cross-build.
echo i586-pc-msdosdjgpp
- exit ;;
+ exit ;;
Intel:Mach:3*:*)
echo i386-pc-mach3
exit ;;
paragon:*:*:*)
echo i860-intel-osf1
exit ;;
i860:*:4.*:*) # i860-SVR4
if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4
else # Add other i860-SVR4 vendors below as they are discovered.
- echo i860-${VENDOR}-sysv${UNAME_RELEASE} # Unknown i860-SVR4
+ echo i860-${VENODR}-sysv${UNAME_RELEASE} # Unknown i860-SVR4
fi
exit ;;
mini*:CTIX:SYS*5:*)
# "miniframe"
echo m68010-convergent-sysv
exit ;;
mc68k:UNIX:SYSTEM5:3.51m)
echo m68k-convergent-sysv
exit ;;
M680?0:D-NIX:5.3:*)
echo m68k-diab-dnix
exit ;;
M68*:*:R3V[5678]*:*)
test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;;
3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0)
OS_REL=''
test -r /etc/.relid \
&& OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
/bin/uname -p 2>/dev/null | grep 86 >/dev/null \
&& { echo i486-ncr-sysv4.3${OS_REL}; exit; }
/bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
&& { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;;
3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
- /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
- && { echo i486-ncr-sysv4; exit; } ;;
+ /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
+ && { echo i486-ncr-sysv4; exit; } ;;
NCR*:*:4.2:* | MPRAS*:*:4.2:*)
OS_REL='.3'
test -r /etc/.relid \
&& OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
/bin/uname -p 2>/dev/null | grep 86 >/dev/null \
&& { echo i486-ncr-sysv4.3${OS_REL}; exit; }
/bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
&& { echo i586-ncr-sysv4.3${OS_REL}; exit; }
/bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \
&& { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;;
m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
echo m68k-${VENDOR}-lynxos${UNAME_RELEASE}
exit ;;
mc68030:UNIX_System_V:4.*:*)
echo m68k-atari-sysv4
exit ;;
TSUNAMI:LynxOS:2.*:*)
echo sparc-${VENDOR}-lynxos${UNAME_RELEASE}
exit ;;
rs6000:LynxOS:2.*:*)
echo rs6000-${VENDOR}-lynxos${UNAME_RELEASE}
exit ;;
PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*)
echo powerpc-${VENDOR}-lynxos${UNAME_RELEASE}
exit ;;
SM[BE]S:UNIX_SV:*:*)
echo mips-dde-sysv${UNAME_RELEASE}
exit ;;
RM*:ReliantUNIX-*:*:*)
echo mips-sni-sysv4
exit ;;
RM*:SINIX-*:*:*)
echo mips-sni-sysv4
exit ;;
*:SINIX-*:*:*)
if uname -p 2>/dev/null >/dev/null ; then
UNAME_MACHINE=`(uname -p) 2>/dev/null`
echo ${UNAME_MACHINE}-sni-sysv4
else
echo ns32k-sni-sysv
fi
exit ;;
- PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
- # says <Richard.M.Bartel@ccMail.Census.GOV>
- echo i586-unisys-sysv4
- exit ;;
+ PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
+ # says <Richard.M.Bartel@ccMail.Census.GOV>
+ echo i586-unisys-sysv4
+ exit ;;
*:UNIX_System_V:4*:FTX*)
# From Gerald Hewes <hewes@openmarket.com>.
# How about differentiating between stratus architectures? -djm
echo hppa1.1-stratus-sysv4
exit ;;
*:*:*:FTX*)
# From seanf@swdc.stratus.com.
echo i860-stratus-sysv4
exit ;;
i*86:VOS:*:*)
# From Paul.Green@stratus.com.
echo ${UNAME_MACHINE}-stratus-vos
exit ;;
*:VOS:*:*)
# From Paul.Green@stratus.com.
echo hppa1.1-stratus-vos
exit ;;
mc68*:A/UX:*:*)
echo m68k-apple-aux${UNAME_RELEASE}
exit ;;
news*:NEWS-OS:6*:*)
echo mips-sony-newsos6
exit ;;
R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
if [ -d /usr/nec ]; then
- echo mips-nec-sysv${UNAME_RELEASE}
+ echo mips-nec-sysv${UNAME_RELEASE}
else
- echo mips-${VENDOR}-sysv${UNAME_RELEASE}
+ echo mips-${VENDOR}-sysv${UNAME_RELEASE}
fi
- exit ;;
+ exit ;;
BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
echo powerpc-be-beos
exit ;;
BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only.
echo powerpc-apple-beos
exit ;;
BePC:BeOS:*:*) # BeOS running on Intel PC compatible.
echo i586-pc-beos
exit ;;
BePC:Haiku:*:*) # Haiku running on Intel PC compatible.
echo i586-pc-haiku
exit ;;
SX-4:SUPER-UX:*:*)
echo sx4-nec-superux${UNAME_RELEASE}
exit ;;
SX-5:SUPER-UX:*:*)
echo sx5-nec-superux${UNAME_RELEASE}
exit ;;
SX-6:SUPER-UX:*:*)
echo sx6-nec-superux${UNAME_RELEASE}
exit ;;
SX-7:SUPER-UX:*:*)
echo sx7-nec-superux${UNAME_RELEASE}
exit ;;
SX-8:SUPER-UX:*:*)
echo sx8-nec-superux${UNAME_RELEASE}
exit ;;
SX-8R:SUPER-UX:*:*)
echo sx8r-nec-superux${UNAME_RELEASE}
exit ;;
Power*:Rhapsody:*:*)
echo powerpc-apple-rhapsody${UNAME_RELEASE}
exit ;;
*:Rhapsody:*:*)
echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}
exit ;;
*:Darwin:*:*)
UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown
case $UNAME_PROCESSOR in
i386)
eval $set_cc_for_build
if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \
(CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_64BIT_ARCH >/dev/null
then
UNAME_PROCESSOR="x86_64"
fi
fi ;;
unknown) UNAME_PROCESSOR=powerpc ;;
esac
echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE}
exit ;;
*:procnto*:*:* | *:QNX:[0123456789]*:*)
UNAME_PROCESSOR=`uname -p`
if test "$UNAME_PROCESSOR" = "x86"; then
UNAME_PROCESSOR=i386
UNAME_MACHINE=pc
fi
echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE}
exit ;;
*:QNX:*:4*)
echo i386-pc-qnx
exit ;;
+ NEO-?:NONSTOP_KERNEL:*:*)
+ echo neo-tandem-nsk${UNAME_RELEASE}
+ exit ;;
NSE-?:NONSTOP_KERNEL:*:*)
echo nse-tandem-nsk${UNAME_RELEASE}
exit ;;
NSR-?:NONSTOP_KERNEL:*:*)
echo nsr-tandem-nsk${UNAME_RELEASE}
exit ;;
*:NonStop-UX:*:*)
echo mips-compaq-nonstopux
exit ;;
BS2000:POSIX*:*:*)
echo bs2000-siemens-sysv
exit ;;
DS/*:UNIX_System_V:*:*)
echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE}
exit ;;
*:Plan9:*:*)
# "uname -m" is not consistent, so use $cputype instead. 386
# is converted to i386 for consistency with other x86
# operating systems.
if test "$cputype" = "386"; then
UNAME_MACHINE=i386
else
UNAME_MACHINE="$cputype"
fi
echo ${UNAME_MACHINE}-${VENDOR}-plan9
exit ;;
*:TOPS-10:*:*)
echo pdp10-${VENDOR}-tops10
exit ;;
*:TENEX:*:*)
echo pdp10-${VENDOR}-tenex
exit ;;
KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
echo pdp10-dec-tops20
exit ;;
XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
echo pdp10-xkl-tops20
exit ;;
*:TOPS-20:*:*)
echo pdp10-${VENDOR}-tops20
exit ;;
*:ITS:*:*)
echo pdp10-${VENDOR}-its
exit ;;
SEI:*:*:SEIUX)
- echo mips-sei-seiux${UNAME_RELEASE}
+ echo mips-sei-seiux${UNAME_RELEASE}
exit ;;
*:DragonFly:*:*)
echo ${UNAME_MACHINE}-${VENDOR}-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`
exit ;;
*:*VMS:*:*)
- UNAME_MACHINE=`(uname -p) 2>/dev/null`
+ UNAME_MACHINE=`(uname -p) 2>/dev/null`
case "${UNAME_MACHINE}" in
A*) echo alpha-dec-vms ; exit ;;
I*) echo ia64-dec-vms ; exit ;;
V*) echo vax-dec-vms ; exit ;;
esac ;;
*:XENIX:*:SysV)
echo i386-pc-xenix
exit ;;
i*86:skyos:*:*)
echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//'
exit ;;
i*86:rdos:*:*)
echo ${UNAME_MACHINE}-pc-rdos
exit ;;
i*86:AROS:*:*)
echo ${UNAME_MACHINE}-pc-aros
exit ;;
+ x86_64:VMkernel:*:*)
+ echo ${UNAME_MACHINE}-${VENDOR}-esx
+ exit ;;
esac
#echo '(No uname command or uname output not recognized.)' 1>&2
#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2
eval $set_cc_for_build
cat >$dummy.c <<EOF
#ifdef _SEQUENT_
# include <sys/types.h>
# include <sys/utsname.h>
#endif
main ()
{
#if defined (sony)
#if defined (MIPSEB)
/* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed,
I don't know.... */
printf ("mips-sony-bsd\n"); exit (0);
#else
#include <sys/param.h>
printf ("m68k-sony-newsos%s\n",
#ifdef NEWSOS4
- "4"
+ "4"
#else
- ""
+ ""
#endif
- ); exit (0);
+ ); exit (0);
#endif
#endif
#if defined (__arm) && defined (__acorn) && defined (__unix)
printf ("arm-acorn-riscix\n"); exit (0);
#endif
#if defined (hp300) && !defined (hpux)
printf ("m68k-hp-bsd\n"); exit (0);
#endif
#if defined (NeXT)
#if !defined (__ARCHITECTURE__)
#define __ARCHITECTURE__ "m68k"
#endif
int version;
version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
if (version < 4)
printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
else
printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
exit (0);
#endif
#if defined (MULTIMAX) || defined (n16)
#if defined (UMAXV)
printf ("ns32k-encore-sysv\n"); exit (0);
#else
#if defined (CMU)
printf ("ns32k-encore-mach\n"); exit (0);
#else
printf ("ns32k-encore-bsd\n"); exit (0);
#endif
#endif
#endif
#if defined (__386BSD__)
printf ("i386-pc-bsd\n"); exit (0);
#endif
#if defined (sequent)
#if defined (i386)
printf ("i386-sequent-dynix\n"); exit (0);
#endif
#if defined (ns32000)
printf ("ns32k-sequent-dynix\n"); exit (0);
#endif
#endif
#if defined (_SEQUENT_)
struct utsname un;
uname(&un);
if (strncmp(un.version, "V2", 2) == 0) {
printf ("i386-sequent-ptx2\n"); exit (0);
}
if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
printf ("i386-sequent-ptx1\n"); exit (0);
}
printf ("i386-sequent-ptx\n"); exit (0);
#endif
#if defined (vax)
# if !defined (ultrix)
# include <sys/param.h>
# if defined (BSD)
# if BSD == 43
printf ("vax-dec-bsd4.3\n"); exit (0);
# else
# if BSD == 199006
printf ("vax-dec-bsd4.3reno\n"); exit (0);
# else
printf ("vax-dec-bsd\n"); exit (0);
# endif
# endif
# else
printf ("vax-dec-bsd\n"); exit (0);
# endif
# else
printf ("vax-dec-ultrix\n"); exit (0);
# endif
#endif
#if defined (alliant) && defined (i860)
printf ("i860-alliant-bsd\n"); exit (0);
#endif
exit (1);
}
EOF
$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` &&
{ echo "$SYSTEM_NAME"; exit; }
# Apollos put the system type in the environment.
test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; }
# Convex versions that predate uname can use getsysinfo(1)
if [ -x /usr/convex/getsysinfo ]
then
case `getsysinfo -f cpu_type` in
c1*)
echo c1-convex-bsd
exit ;;
c2*)
if getsysinfo -f scalar_acc
then echo c32-convex-bsd
else echo c2-convex-bsd
fi
exit ;;
c34*)
echo c34-convex-bsd
exit ;;
c38*)
echo c38-convex-bsd
exit ;;
c4*)
echo c4-convex-bsd
exit ;;
esac
fi
cat >&2 <<EOF
$0: unable to guess system type
This script, last modified $timestamp, has failed to recognize
the operating system you are using. It is advised that you
download the most up to date version of the config scripts from
http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
and
http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
If the version you run ($0) is already up to date, please
send the following data and any information you think might be
pertinent to <config-patches@gnu.org> in order to provide the needed
information to handle your system.
config.guess timestamp = $timestamp
uname -m = `(uname -m) 2>/dev/null || echo unknown`
uname -r = `(uname -r) 2>/dev/null || echo unknown`
uname -s = `(uname -s) 2>/dev/null || echo unknown`
uname -v = `(uname -v) 2>/dev/null || echo unknown`
/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
/bin/uname -X = `(/bin/uname -X) 2>/dev/null`
hostinfo = `(hostinfo) 2>/dev/null`
/bin/universe = `(/bin/universe) 2>/dev/null`
/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null`
/bin/arch = `(/bin/arch) 2>/dev/null`
/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null`
/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
UNAME_MACHINE = ${UNAME_MACHINE}
UNAME_RELEASE = ${UNAME_RELEASE}
UNAME_SYSTEM = ${UNAME_SYSTEM}
UNAME_VERSION = ${UNAME_VERSION}
EOF
exit 1
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "timestamp='"
# time-stamp-format: "%:y-%02m-%02d"
# time-stamp-end: "'"
# End:
diff --git a/config.aux/config.sub b/config.aux/config.sub
index 2a55a50..59bb593 100755
--- a/config.aux/config.sub
+++ b/config.aux/config.sub
@@ -1,1705 +1,1779 @@
#! /bin/sh
# Configuration validation subroutine script.
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-# Free Software Foundation, Inc.
+# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+# 2011, 2012 Free Software Foundation, Inc.
-timestamp='2009-11-20'
+timestamp='2012-04-18'
# This file is (in principle) common to ALL GNU software.
# The presence of a machine in this file suggests that SOME GNU software
# can handle that machine. It does not imply ALL GNU software can.
#
# This file is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
-# 02110-1301, USA.
+# along with this program; if not, see <http://www.gnu.org/licenses/>.
#
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.
# Please send patches to <config-patches@gnu.org>. Submit a context
# diff and a properly formatted GNU ChangeLog entry.
#
# Configuration subroutine to validate and canonicalize a configuration type.
# Supply the specified configuration type as an argument.
# If it is invalid, we print an error message on stderr and exit with code 1.
# Otherwise, we print the canonical config type on stdout and succeed.
# You can get the latest version of this script from:
# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
# This file is supposed to be the same for all GNU packages
# and recognize all the CPU types, system types and aliases
# that are meaningful with *any* GNU software.
# Each package is responsible for reporting which valid configurations
# it does not support. The user should be able to distinguish
# a failure to support a valid configuration from a meaningless
# configuration.
# The goal of this file is to map all the various variations of a given
# machine specification into a single specification in the form:
# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
# or in some cases, the newer four-part form:
# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
# It is wrong to echo any other type of specification.
me=`echo "$0" | sed -e 's,.*/,,'`
usage="\
Usage: $0 [OPTION] CPU-MFR-OPSYS
$0 [OPTION] ALIAS
Canonicalize a configuration name.
Operation modes:
-h, --help print this help, then exit
-t, --time-stamp print date of last modification, then exit
-v, --version print version number, then exit
Report bugs and patches to <config-patches@gnu.org>."
version="\
GNU config.sub ($timestamp)
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
-2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
+Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
help="
Try \`$me --help' for more information."
# Parse command line
while test $# -gt 0 ; do
case $1 in
--time-stamp | --time* | -t )
echo "$timestamp" ; exit ;;
--version | -v )
echo "$version" ; exit ;;
--help | --h* | -h )
echo "$usage"; exit ;;
-- ) # Stop option processing
shift; break ;;
- ) # Use stdin as input.
break ;;
-* )
echo "$me: invalid option $1$help"
exit 1 ;;
*local*)
# First pass through any local machine types.
echo $1
exit ;;
* )
break ;;
esac
done
case $# in
0) echo "$me: missing argument$help" >&2
exit 1;;
1) ;;
*) echo "$me: too many arguments$help" >&2
exit 1;;
esac
# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any).
# Here we must recognize all the valid KERNEL-OS combinations.
maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'`
case $maybe_os in
- nto-qnx* | linux-gnu* | linux-dietlibc | linux-newlib* | linux-uclibc* | \
- uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* | \
+ nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \
+ linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \
+ knetbsd*-gnu* | netbsd*-gnu* | \
kopensolaris*-gnu* | \
storm-chaos* | os2-emx* | rtmk-nova*)
os=-$maybe_os
basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`
;;
+ android-linux)
+ os=-linux-android
+ basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown
+ ;;
*)
basic_machine=`echo $1 | sed 's/-[^-]*$//'`
if [ $basic_machine != $1 ]
then os=`echo $1 | sed 's/.*-/-/'`
else os=; fi
;;
esac
### Let's recognize common machines as not being operating systems so
### that things like config.sub decstation-3100 work. We also
### recognize some manufacturers as not being operating systems, so we
### can provide default operating systems below.
case $os in
-sun*os*)
# Prevent following clause from handling this invalid input.
;;
-dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \
-att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \
-unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \
-convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\
-c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \
-harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \
-apple | -axis | -knuth | -cray | -microblaze)
os=
basic_machine=$1
;;
- -bluegene*)
- os=-cnk
+ -bluegene*)
+ os=-cnk
;;
-sim | -cisco | -oki | -wec | -winbond)
os=
basic_machine=$1
;;
-scout)
;;
-wrs)
os=-vxworks
basic_machine=$1
;;
-chorusos*)
os=-chorusos
basic_machine=$1
;;
- -chorusrdb)
- os=-chorusrdb
+ -chorusrdb)
+ os=-chorusrdb
basic_machine=$1
- ;;
+ ;;
-hiux*)
os=-hiuxwe2
;;
-sco6)
os=-sco5v6
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco5)
os=-sco3.2v5
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco4)
os=-sco3.2v4
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco3.2.[4-9]*)
os=`echo $os | sed -e 's/sco3.2./sco3.2v/'`
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco3.2v[4-9]*)
# Don't forget version if it is 3.2v4 or newer.
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco5v6*)
# Don't forget version if it is 3.2v4 or newer.
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-sco*)
os=-sco3.2v2
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-udk*)
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-isc)
os=-isc2.2
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
-clix*)
basic_machine=clipper-intergraph
;;
-isc*)
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
;;
+ -lynx*178)
+ os=-lynxos178
+ ;;
+ -lynx*5)
+ os=-lynxos5
+ ;;
-lynx*)
os=-lynxos
;;
-ptx*)
basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'`
;;
-windowsnt*)
os=`echo $os | sed -e 's/windowsnt/winnt/'`
;;
-psos*)
os=-psos
;;
-mint | -mint[0-9]*)
basic_machine=m68k-atari
os=-mint
;;
esac
# Decode aliases for certain CPU-COMPANY combinations.
case $basic_machine in
# Recognize the basic CPU types without company name.
# Some are omitted here because they have special meanings below.
1750a | 580 \
| a29k \
+ | aarch64 | aarch64_be \
| alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \
| alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \
| am33_2.0 \
| arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \
+ | be32 | be64 \
| bfin \
| c4x | clipper \
| d10v | d30v | dlx | dsp16xx \
+ | epiphany \
| fido | fr30 | frv \
| h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
+ | hexagon \
| i370 | i860 | i960 | ia64 \
| ip2k | iq2000 \
+ | le32 | le64 \
| lm32 \
| m32c | m32r | m32rle | m68000 | m68k | m88k \
| maxq | mb | microblaze | mcore | mep | metag \
| mips | mipsbe | mipseb | mipsel | mipsle \
| mips16 \
| mips64 | mips64el \
| mips64octeon | mips64octeonel \
| mips64orion | mips64orionel \
| mips64r5900 | mips64r5900el \
| mips64vr | mips64vrel \
| mips64vr4100 | mips64vr4100el \
| mips64vr4300 | mips64vr4300el \
| mips64vr5000 | mips64vr5000el \
| mips64vr5900 | mips64vr5900el \
| mipsisa32 | mipsisa32el \
| mipsisa32r2 | mipsisa32r2el \
| mipsisa64 | mipsisa64el \
| mipsisa64r2 | mipsisa64r2el \
| mipsisa64sb1 | mipsisa64sb1el \
| mipsisa64sr71k | mipsisa64sr71kel \
| mipstx39 | mipstx39el \
| mn10200 | mn10300 \
| moxie \
| mt \
| msp430 \
+ | nds32 | nds32le | nds32be \
| nios | nios2 \
| ns16k | ns32k \
+ | open8 \
| or32 \
| pdp10 | pdp11 | pj | pjl \
- | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \
+ | powerpc | powerpc64 | powerpc64le | powerpcle \
| pyramid \
- | rx \
+ | rl78 | rx \
| score \
| sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \
| sh64 | sh64le \
| sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \
| sparcv8 | sparcv9 | sparcv9b | sparcv9v \
- | spu | strongarm \
- | tahoe | thumb | tic4x | tic80 | tron \
+ | spu \
+ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \
| ubicom32 \
- | v850 | v850e \
+ | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \
| we32k \
- | x86 | xc16x | xscale | xscalee[bl] | xstormy16 | xtensa \
+ | x86 | xc16x | xstormy16 | xtensa \
| z8k | z80)
basic_machine=$basic_machine-unknown
;;
- m6811 | m68hc11 | m6812 | m68hc12 | picochip)
- # Motorola 68HC11/12.
+ c54x)
+ basic_machine=tic54x-unknown
+ ;;
+ c55x)
+ basic_machine=tic55x-unknown
+ ;;
+ c6x)
+ basic_machine=tic6x-unknown
+ ;;
+ m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip)
basic_machine=$basic_machine-unknown
os=-none
;;
m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k)
;;
ms1)
basic_machine=mt-unknown
;;
+ strongarm | thumb | xscale)
+ basic_machine=arm-unknown
+ ;;
+ xgate)
+ basic_machine=$basic_machine-unknown
+ os=-none
+ ;;
+ xscaleeb)
+ basic_machine=armeb-unknown
+ ;;
+
+ xscaleel)
+ basic_machine=armel-unknown
+ ;;
+
# We use `pc' rather than `unknown'
# because (1) that's what they normally are, and
# (2) the word "unknown" tends to confuse beginning users.
i*86 | x86_64)
basic_machine=$basic_machine-pc
;;
# Object if more than one company name word.
*-*-*)
echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
exit 1
;;
# Recognize the basic CPU types with company name.
580-* \
| a29k-* \
+ | aarch64-* | aarch64_be-* \
| alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \
| alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \
| alphapca5[67]-* | alpha64pca5[67]-* | arc-* \
| arm-* | armbe-* | armle-* | armeb-* | armv*-* \
| avr-* | avr32-* \
+ | be32-* | be64-* \
| bfin-* | bs2000-* \
- | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \
+ | c[123]* | c30-* | [cjt]90-* | c4x-* \
| clipper-* | craynv-* | cydra-* \
| d10v-* | d30v-* | dlx-* \
| elxsi-* \
| f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \
| h8300-* | h8500-* \
| hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \
+ | hexagon-* \
| i*86-* | i860-* | i960-* | ia64-* \
| ip2k-* | iq2000-* \
+ | le32-* | le64-* \
| lm32-* \
| m32c-* | m32r-* | m32rle-* \
| m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
| m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
| mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
| mips16-* \
| mips64-* | mips64el-* \
| mips64octeon-* | mips64octeonel-* \
| mips64orion-* | mips64orionel-* \
| mips64r5900-* | mips64r5900el-* \
| mips64vr-* | mips64vrel-* \
| mips64vr4100-* | mips64vr4100el-* \
| mips64vr4300-* | mips64vr4300el-* \
| mips64vr5000-* | mips64vr5000el-* \
| mips64vr5900-* | mips64vr5900el-* \
| mipsisa32-* | mipsisa32el-* \
| mipsisa32r2-* | mipsisa32r2el-* \
| mipsisa64-* | mipsisa64el-* \
| mipsisa64r2-* | mipsisa64r2el-* \
| mipsisa64sb1-* | mipsisa64sb1el-* \
| mipsisa64sr71k-* | mipsisa64sr71kel-* \
| mipstx39-* | mipstx39el-* \
| mmix-* \
| mt-* \
| msp430-* \
+ | nds32-* | nds32le-* | nds32be-* \
| nios-* | nios2-* \
| none-* | np1-* | ns16k-* | ns32k-* \
+ | open8-* \
| orion-* \
| pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \
- | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \
+ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \
| pyramid-* \
- | romp-* | rs6000-* | rx-* \
+ | rl78-* | romp-* | rs6000-* | rx-* \
| sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \
| shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \
| sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \
| sparclite-* \
- | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | strongarm-* | sv1-* | sx?-* \
- | tahoe-* | thumb-* \
- | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* | tile-* \
+ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \
+ | tahoe-* \
+ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \
+ | tile*-* \
| tron-* \
| ubicom32-* \
- | v850-* | v850e-* | vax-* \
+ | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \
+ | vax-* \
| we32k-* \
- | x86-* | x86_64-* | xc16x-* | xps100-* | xscale-* | xscalee[bl]-* \
+ | x86-* | x86_64-* | xc16x-* | xps100-* \
| xstormy16-* | xtensa*-* \
| ymp-* \
| z8k-* | z80-*)
;;
# Recognize the basic CPU types without company name, with glob match.
xtensa*)
basic_machine=$basic_machine-unknown
;;
# Recognize the various machine names and aliases which stand
# for a CPU type and a company and sometimes even an OS.
386bsd)
basic_machine=i386-unknown
os=-bsd
;;
3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
basic_machine=m68000-att
;;
3b*)
basic_machine=we32k-att
;;
a29khif)
basic_machine=a29k-amd
os=-udi
;;
- abacus)
+ abacus)
basic_machine=abacus-unknown
;;
adobe68k)
basic_machine=m68010-adobe
os=-scout
;;
alliant | fx80)
basic_machine=fx80-alliant
;;
altos | altos3068)
basic_machine=m68k-altos
;;
am29k)
basic_machine=a29k-none
os=-bsd
;;
amd64)
basic_machine=x86_64-pc
;;
amd64-*)
basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
amdahl)
basic_machine=580-amdahl
os=-sysv
;;
amiga | amiga-*)
basic_machine=m68k-unknown
;;
amigaos | amigados)
basic_machine=m68k-unknown
os=-amigaos
;;
amigaunix | amix)
basic_machine=m68k-unknown
os=-sysv4
;;
apollo68)
basic_machine=m68k-apollo
os=-sysv
;;
apollo68bsd)
basic_machine=m68k-apollo
os=-bsd
;;
aros)
basic_machine=i386-pc
os=-aros
;;
aux)
basic_machine=m68k-apple
os=-aux
;;
balance)
basic_machine=ns32k-sequent
os=-dynix
;;
blackfin)
basic_machine=bfin-unknown
os=-linux
;;
blackfin-*)
basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'`
os=-linux
;;
bluegene*)
basic_machine=powerpc-ibm
os=-cnk
;;
+ c54x-*)
+ basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ c55x-*)
+ basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
+ c6x-*)
+ basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
c90)
basic_machine=c90-cray
os=-unicos
;;
- cegcc)
+ cegcc)
basic_machine=arm-unknown
os=-cegcc
;;
convex-c1)
basic_machine=c1-convex
os=-bsd
;;
convex-c2)
basic_machine=c2-convex
os=-bsd
;;
convex-c32)
basic_machine=c32-convex
os=-bsd
;;
convex-c34)
basic_machine=c34-convex
os=-bsd
;;
convex-c38)
basic_machine=c38-convex
os=-bsd
;;
cray | j90)
basic_machine=j90-cray
os=-unicos
;;
craynv)
basic_machine=craynv-cray
os=-unicosmp
;;
- cr16)
+ cr16 | cr16-*)
basic_machine=cr16-unknown
os=-elf
;;
crds | unos)
basic_machine=m68k-crds
;;
crisv32 | crisv32-* | etraxfs*)
basic_machine=crisv32-axis
;;
cris | cris-* | etrax*)
basic_machine=cris-axis
;;
crx)
basic_machine=crx-unknown
os=-elf
;;
da30 | da30-*)
basic_machine=m68k-da30
;;
decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn)
basic_machine=mips-dec
;;
decsystem10* | dec10*)
basic_machine=pdp10-dec
os=-tops10
;;
decsystem20* | dec20*)
basic_machine=pdp10-dec
os=-tops20
;;
delta | 3300 | motorola-3300 | motorola-delta \
| 3300-motorola | delta-motorola)
basic_machine=m68k-motorola
;;
delta88)
basic_machine=m88k-motorola
os=-sysv3
;;
dicos)
basic_machine=i686-pc
os=-dicos
;;
djgpp)
basic_machine=i586-pc
os=-msdosdjgpp
;;
dpx20 | dpx20-*)
basic_machine=rs6000-bull
os=-bosx
;;
dpx2* | dpx2*-bull)
basic_machine=m68k-bull
os=-sysv3
;;
ebmon29k)
basic_machine=a29k-amd
os=-ebmon
;;
elxsi)
basic_machine=elxsi-elxsi
os=-bsd
;;
encore | umax | mmax)
basic_machine=ns32k-encore
;;
es1800 | OSE68k | ose68k | ose | OSE)
basic_machine=m68k-ericsson
os=-ose
;;
fx2800)
basic_machine=i860-alliant
;;
genix)
basic_machine=ns32k-ns
;;
gmicro)
basic_machine=tron-gmicro
os=-sysv
;;
go32)
basic_machine=i386-pc
os=-go32
;;
h3050r* | hiux*)
basic_machine=hppa1.1-hitachi
os=-hiuxwe2
;;
h8300hms)
basic_machine=h8300-hitachi
os=-hms
;;
h8300xray)
basic_machine=h8300-hitachi
os=-xray
;;
h8500hms)
basic_machine=h8500-hitachi
os=-hms
;;
harris)
basic_machine=m88k-harris
os=-sysv3
;;
hp300-*)
basic_machine=m68k-hp
;;
hp300bsd)
basic_machine=m68k-hp
os=-bsd
;;
hp300hpux)
basic_machine=m68k-hp
os=-hpux
;;
hp3k9[0-9][0-9] | hp9[0-9][0-9])
basic_machine=hppa1.0-hp
;;
hp9k2[0-9][0-9] | hp9k31[0-9])
basic_machine=m68000-hp
;;
hp9k3[2-9][0-9])
basic_machine=m68k-hp
;;
hp9k6[0-9][0-9] | hp6[0-9][0-9])
basic_machine=hppa1.0-hp
;;
hp9k7[0-79][0-9] | hp7[0-79][0-9])
basic_machine=hppa1.1-hp
;;
hp9k78[0-9] | hp78[0-9])
# FIXME: really hppa2.0-hp
basic_machine=hppa1.1-hp
;;
hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
# FIXME: really hppa2.0-hp
basic_machine=hppa1.1-hp
;;
hp9k8[0-9][13679] | hp8[0-9][13679])
basic_machine=hppa1.1-hp
;;
hp9k8[0-9][0-9] | hp8[0-9][0-9])
basic_machine=hppa1.0-hp
;;
hppa-next)
os=-nextstep3
;;
hppaosf)
basic_machine=hppa1.1-hp
os=-osf
;;
hppro)
basic_machine=hppa1.1-hp
os=-proelf
;;
i370-ibm* | ibm*)
basic_machine=i370-ibm
;;
-# I'm not sure what "Sysv32" means. Should this be sysv3.2?
i*86v32)
basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
os=-sysv32
;;
i*86v4*)
basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
os=-sysv4
;;
i*86v)
basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
os=-sysv
;;
i*86sol2)
basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
os=-solaris2
;;
i386mach)
basic_machine=i386-mach
os=-mach
;;
i386-vsta | vsta)
basic_machine=i386-unknown
os=-vsta
;;
iris | iris4d)
basic_machine=mips-sgi
case $os in
-irix*)
;;
*)
os=-irix4
;;
esac
;;
isi68 | isi)
basic_machine=m68k-isi
os=-sysv
;;
m68knommu)
basic_machine=m68k-unknown
os=-linux
;;
m68knommu-*)
basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'`
os=-linux
;;
m88k-omron*)
basic_machine=m88k-omron
;;
magnum | m3230)
basic_machine=mips-mips
os=-sysv
;;
merlin)
basic_machine=ns32k-utek
os=-sysv
;;
- microblaze)
+ microblaze)
basic_machine=microblaze-xilinx
;;
mingw32)
basic_machine=i386-pc
os=-mingw32
;;
mingw32ce)
basic_machine=arm-unknown
os=-mingw32ce
;;
miniframe)
basic_machine=m68000-convergent
;;
*mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*)
basic_machine=m68k-atari
os=-mint
;;
mips3*-*)
basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`
;;
mips3*)
basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown
;;
monitor)
basic_machine=m68k-rom68k
os=-coff
;;
morphos)
basic_machine=powerpc-unknown
os=-morphos
;;
msdos)
basic_machine=i386-pc
os=-msdos
;;
ms1-*)
basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'`
;;
+ msys)
+ basic_machine=i386-pc
+ os=-msys
+ ;;
mvs)
basic_machine=i370-ibm
os=-mvs
;;
+ nacl)
+ basic_machine=le32-unknown
+ os=-nacl
+ ;;
ncr3000)
basic_machine=i486-ncr
os=-sysv4
;;
netbsd386)
basic_machine=i386-unknown
os=-netbsd
;;
netwinder)
basic_machine=armv4l-rebel
os=-linux
;;
news | news700 | news800 | news900)
basic_machine=m68k-sony
os=-newsos
;;
news1000)
basic_machine=m68030-sony
os=-newsos
;;
news-3600 | risc-news)
basic_machine=mips-sony
os=-newsos
;;
necv70)
basic_machine=v70-nec
os=-sysv
;;
next | m*-next )
basic_machine=m68k-next
case $os in
-nextstep* )
;;
-ns2*)
os=-nextstep2
;;
*)
os=-nextstep3
;;
esac
;;
nh3000)
basic_machine=m68k-harris
os=-cxux
;;
nh[45]000)
basic_machine=m88k-harris
os=-cxux
;;
nindy960)
basic_machine=i960-intel
os=-nindy
;;
mon960)
basic_machine=i960-intel
os=-mon960
;;
nonstopux)
basic_machine=mips-compaq
os=-nonstopux
;;
np1)
basic_machine=np1-gould
;;
+ neo-tandem)
+ basic_machine=neo-tandem
+ ;;
+ nse-tandem)
+ basic_machine=nse-tandem
+ ;;
nsr-tandem)
basic_machine=nsr-tandem
;;
op50n-* | op60c-*)
basic_machine=hppa1.1-oki
os=-proelf
;;
openrisc | openrisc-*)
basic_machine=or32-unknown
;;
os400)
basic_machine=powerpc-ibm
os=-os400
;;
OSE68000 | ose68000)
basic_machine=m68000-ericsson
os=-ose
;;
os68k)
basic_machine=m68k-none
os=-os68k
;;
pa-hitachi)
basic_machine=hppa1.1-hitachi
os=-hiuxwe2
;;
paragon)
basic_machine=i860-intel
os=-osf
;;
parisc)
basic_machine=hppa-unknown
os=-linux
;;
parisc-*)
basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'`
os=-linux
;;
pbd)
basic_machine=sparc-tti
;;
pbb)
basic_machine=m68k-tti
;;
pc532 | pc532-*)
basic_machine=ns32k-pc532
;;
pc98)
basic_machine=i386-pc
;;
pc98-*)
basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
pentium | p5 | k5 | k6 | nexgen | viac3)
basic_machine=i586-pc
;;
pentiumpro | p6 | 6x86 | athlon | athlon_*)
basic_machine=i686-pc
;;
pentiumii | pentium2 | pentiumiii | pentium3)
basic_machine=i686-pc
;;
pentium4)
basic_machine=i786-pc
;;
pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*)
basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
pentiumpro-* | p6-* | 6x86-* | athlon-*)
basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*)
basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
pentium4-*)
basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
pn)
basic_machine=pn-gould
;;
power) basic_machine=power-ibm
;;
- ppc) basic_machine=powerpc-unknown
+ ppc | ppcbe) basic_machine=powerpc-unknown
;;
- ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ppc-* | ppcbe-*)
+ basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
ppcle | powerpclittle | ppc-le | powerpc-little)
basic_machine=powerpcle-unknown
;;
ppcle-* | powerpclittle-*)
basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
ppc64) basic_machine=powerpc64-unknown
;;
ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
ppc64le | powerpc64little | ppc64-le | powerpc64-little)
basic_machine=powerpc64le-unknown
;;
ppc64le-* | powerpc64little-*)
basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'`
;;
ps2)
basic_machine=i386-ibm
;;
pw32)
basic_machine=i586-unknown
os=-pw32
;;
rdos)
basic_machine=i386-pc
os=-rdos
;;
rom68k)
basic_machine=m68k-rom68k
os=-coff
;;
rm[46]00)
basic_machine=mips-siemens
;;
rtpc | rtpc-*)
basic_machine=romp-ibm
;;
s390 | s390-*)
basic_machine=s390-ibm
;;
s390x | s390x-*)
basic_machine=s390x-ibm
;;
sa29200)
basic_machine=a29k-amd
os=-udi
;;
sb1)
basic_machine=mipsisa64sb1-unknown
;;
sb1el)
basic_machine=mipsisa64sb1el-unknown
;;
sde)
basic_machine=mipsisa32-sde
os=-elf
;;
sei)
basic_machine=mips-sei
os=-seiux
;;
sequent)
basic_machine=i386-sequent
;;
sh)
basic_machine=sh-hitachi
os=-hms
;;
sh5el)
basic_machine=sh5le-unknown
;;
sh64)
basic_machine=sh64-unknown
;;
sparclite-wrs | simso-wrs)
basic_machine=sparclite-wrs
os=-vxworks
;;
sps7)
basic_machine=m68k-bull
os=-sysv2
;;
spur)
basic_machine=spur-unknown
;;
st2000)
basic_machine=m68k-tandem
;;
stratus)
basic_machine=i860-stratus
os=-sysv4
;;
+ strongarm-* | thumb-*)
+ basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'`
+ ;;
sun2)
basic_machine=m68000-sun
;;
sun2os3)
basic_machine=m68000-sun
os=-sunos3
;;
sun2os4)
basic_machine=m68000-sun
os=-sunos4
;;
sun3os3)
basic_machine=m68k-sun
os=-sunos3
;;
sun3os4)
basic_machine=m68k-sun
os=-sunos4
;;
sun4os3)
basic_machine=sparc-sun
os=-sunos3
;;
sun4os4)
basic_machine=sparc-sun
os=-sunos4
;;
sun4sol2)
basic_machine=sparc-sun
os=-solaris2
;;
sun3 | sun3-*)
basic_machine=m68k-sun
;;
sun4)
basic_machine=sparc-sun
;;
sun386 | sun386i | roadrunner)
basic_machine=i386-sun
;;
sv1)
basic_machine=sv1-cray
os=-unicos
;;
symmetry)
basic_machine=i386-sequent
os=-dynix
;;
t3e)
basic_machine=alphaev5-cray
os=-unicos
;;
t90)
basic_machine=t90-cray
os=-unicos
;;
- tic54x | c54x*)
- basic_machine=tic54x-unknown
- os=-coff
- ;;
- tic55x | c55x*)
- basic_machine=tic55x-unknown
- os=-coff
- ;;
- tic6x | c6x*)
- basic_machine=tic6x-unknown
- os=-coff
- ;;
tile*)
- basic_machine=tile-unknown
+ basic_machine=$basic_machine-unknown
os=-linux-gnu
;;
tx39)
basic_machine=mipstx39-unknown
;;
tx39el)
basic_machine=mipstx39el-unknown
;;
toad1)
basic_machine=pdp10-xkl
os=-tops20
;;
tower | tower-32)
basic_machine=m68k-ncr
;;
tpf)
basic_machine=s390x-ibm
os=-tpf
;;
udi29k)
basic_machine=a29k-amd
os=-udi
;;
ultra3)
basic_machine=a29k-nyu
os=-sym1
;;
v810 | necv810)
basic_machine=v810-nec
os=-none
;;
vaxv)
basic_machine=vax-dec
os=-sysv
;;
vms)
basic_machine=vax-dec
os=-vms
;;
vpp*|vx|vx-*)
basic_machine=f301-fujitsu
;;
vxworks960)
basic_machine=i960-wrs
os=-vxworks
;;
vxworks68)
basic_machine=m68k-wrs
os=-vxworks
;;
vxworks29k)
basic_machine=a29k-wrs
os=-vxworks
;;
w65*)
basic_machine=w65-wdc
os=-none
;;
w89k-*)
basic_machine=hppa1.1-winbond
os=-proelf
;;
xbox)
basic_machine=i686-pc
os=-mingw32
;;
xps | xps100)
basic_machine=xps100-honeywell
;;
+ xscale-* | xscalee[bl]-*)
+ basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'`
+ ;;
ymp)
basic_machine=ymp-cray
os=-unicos
;;
z8k-*-coff)
basic_machine=z8k-unknown
os=-sim
;;
z80-*-coff)
basic_machine=z80-unknown
os=-sim
;;
none)
basic_machine=none-none
os=-none
;;
# Here we handle the default manufacturer of certain CPU types. It is in
# some cases the only manufacturer, in others, it is the most popular.
w89k)
basic_machine=hppa1.1-winbond
;;
op50n)
basic_machine=hppa1.1-oki
;;
op60c)
basic_machine=hppa1.1-oki
;;
romp)
basic_machine=romp-ibm
;;
mmix)
basic_machine=mmix-knuth
;;
rs6000)
basic_machine=rs6000-ibm
;;
vax)
basic_machine=vax-dec
;;
pdp10)
# there are many clones, so DEC is not a safe bet
basic_machine=pdp10-unknown
;;
pdp11)
basic_machine=pdp11-dec
;;
we32k)
basic_machine=we32k-att
;;
sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele)
basic_machine=sh-unknown
;;
sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v)
basic_machine=sparc-sun
;;
cydra)
basic_machine=cydra-cydrome
;;
orion)
basic_machine=orion-highlevel
;;
orion105)
basic_machine=clipper-highlevel
;;
mac | mpw | mac-mpw)
basic_machine=m68k-apple
;;
pmac | pmac-mpw)
basic_machine=powerpc-apple
;;
*-unknown)
# Make sure to match an already-canonicalized machine name.
;;
*)
echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
exit 1
;;
esac
# Here we canonicalize certain aliases for manufacturers.
case $basic_machine in
*-digital*)
basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'`
;;
*-commodore*)
basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'`
;;
*)
;;
esac
# Decode manufacturer-specific aliases for certain operating systems.
if [ x"$os" != x"" ]
then
case $os in
- # First match some system type aliases
- # that might get confused with valid system types.
+ # First match some system type aliases
+ # that might get confused with valid system types.
# -solaris* is a basic system type, with this one exception.
- -auroraux)
- os=-auroraux
+ -auroraux)
+ os=-auroraux
;;
-solaris1 | -solaris1.*)
os=`echo $os | sed -e 's|solaris1|sunos4|'`
;;
-solaris)
os=-solaris2
;;
-svr4*)
os=-sysv4
;;
-unixware*)
os=-sysv4.2uw
;;
-gnu/linux*)
os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'`
;;
# First accept the basic system types.
# The portable systems comes first.
# Each alternative MUST END IN A *, to match a version number.
# -sysv* is not here because it comes later, after sysvr4.
-gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \
| -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\
| -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \
| -sym* | -kopensolaris* \
| -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
| -aos* | -aros* \
| -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
| -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
| -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \
| -openbsd* | -solidbsd* \
| -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \
| -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
| -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
| -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
| -chorusos* | -chorusrdb* | -cegcc* \
- | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
- | -mingw32* | -linux-gnu* | -linux-newlib* | -linux-uclibc* \
+ | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
+ | -mingw32* | -linux-gnu* | -linux-android* \
+ | -linux-newlib* | -linux-uclibc* \
| -uxpv* | -beos* | -mpeix* | -udk* \
| -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \
| -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \
| -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \
| -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \
| -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \
| -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \
| -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*)
# Remember, each alternative MUST END IN *, to match a version number.
;;
-qnx*)
case $basic_machine in
x86-* | i*86-*)
;;
*)
os=-nto$os
;;
esac
;;
-nto-qnx*)
;;
-nto*)
os=`echo $os | sed -e 's|nto|nto-qnx|'`
;;
-sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \
| -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \
| -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*)
;;
-mac*)
os=`echo $os | sed -e 's|mac|macos|'`
;;
-linux-dietlibc)
os=-linux-dietlibc
;;
-linux*)
os=`echo $os | sed -e 's|linux|linux-gnu|'`
;;
-sunos5*)
os=`echo $os | sed -e 's|sunos5|solaris2|'`
;;
-sunos6*)
os=`echo $os | sed -e 's|sunos6|solaris3|'`
;;
-opened*)
os=-openedition
;;
- -os400*)
+ -os400*)
os=-os400
;;
-wince*)
os=-wince
;;
-osfrose*)
os=-osfrose
;;
-osf*)
os=-osf
;;
-utek*)
os=-bsd
;;
-dynix*)
os=-bsd
;;
-acis*)
os=-aos
;;
-atheos*)
os=-atheos
;;
-syllable*)
os=-syllable
;;
-386bsd)
os=-bsd
;;
-ctix* | -uts*)
os=-sysv
;;
-nova*)
os=-rtmk-nova
;;
-ns2 )
os=-nextstep2
;;
-nsk*)
os=-nsk
;;
# Preserve the version number of sinix5.
-sinix5.*)
os=`echo $os | sed -e 's|sinix|sysv|'`
;;
-sinix*)
os=-sysv4
;;
- -tpf*)
+ -tpf*)
os=-tpf
;;
-triton*)
os=-sysv3
;;
-oss*)
os=-sysv3
;;
-svr4)
os=-sysv4
;;
-svr3)
os=-sysv3
;;
-sysvr4)
os=-sysv4
;;
# This must come after -sysvr4.
-sysv*)
;;
-ose*)
os=-ose
;;
-es1800*)
os=-ose
;;
-xenix)
os=-xenix
;;
-*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
os=-mint
;;
-aros*)
os=-aros
;;
-kaos*)
os=-kaos
;;
-zvmoe)
os=-zvmoe
;;
-dicos*)
os=-dicos
;;
+ -nacl*)
+ ;;
-none)
;;
*)
# Get rid of the `-' at the beginning of $os.
os=`echo $os | sed 's/[^-]*-//'`
echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2
exit 1
;;
esac
else
# Here we handle the default operating systems that come with various machines.
# The value should be what the vendor currently ships out the door with their
# machine or put another way, the most popular os provided with the machine.
# Note that if you're going to try to match "-MANUFACTURER" here (say,
# "-sun"), then you have to tell the case statement up towards the top
# that MANUFACTURER isn't an operating system. Otherwise, code above
# will signal an error saying that MANUFACTURER isn't an operating
# system, and we'll never get to this point.
case $basic_machine in
- score-*)
+ score-*)
os=-elf
;;
- spu-*)
+ spu-*)
os=-elf
;;
*-acorn)
os=-riscix1.2
;;
arm*-rebel)
os=-linux
;;
arm*-semi)
os=-aout
;;
- c4x-* | tic4x-*)
- os=-coff
+ c4x-* | tic4x-*)
+ os=-coff
+ ;;
+ tic54x-*)
+ os=-coff
+ ;;
+ tic55x-*)
+ os=-coff
+ ;;
+ tic6x-*)
+ os=-coff
;;
# This must come before the *-dec entry.
pdp10-*)
os=-tops20
;;
pdp11-*)
os=-none
;;
*-dec | vax-*)
os=-ultrix4.2
;;
m68*-apollo)
os=-domain
;;
i386-sun)
os=-sunos4.0.2
;;
m68000-sun)
os=-sunos3
- # This also exists in the configure program, but was not the
- # default.
- # os=-sunos4
;;
m68*-cisco)
os=-aout
;;
- mep-*)
+ mep-*)
os=-elf
;;
mips*-cisco)
os=-elf
;;
mips*-*)
os=-elf
;;
or32-*)
os=-coff
;;
*-tti) # must be before sparc entry or we get the wrong os.
os=-sysv3
;;
sparc-* | *-sun)
os=-sunos4.1.1
;;
*-be)
os=-beos
;;
*-haiku)
os=-haiku
;;
*-ibm)
os=-aix
;;
- *-knuth)
+ *-knuth)
os=-mmixware
;;
*-wec)
os=-proelf
;;
*-winbond)
os=-proelf
;;
*-oki)
os=-proelf
;;
*-hp)
os=-hpux
;;
*-hitachi)
os=-hiux
;;
i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent)
os=-sysv
;;
*-cbm)
os=-amigaos
;;
*-dg)
os=-dgux
;;
*-dolphin)
os=-sysv3
;;
m68k-ccur)
os=-rtu
;;
m88k-omron*)
os=-luna
;;
*-next )
os=-nextstep
;;
*-sequent)
os=-ptx
;;
*-crds)
os=-unos
;;
*-ns)
os=-genix
;;
i370-*)
os=-mvs
;;
*-next)
os=-nextstep3
;;
*-gould)
os=-sysv
;;
*-highlevel)
os=-bsd
;;
*-encore)
os=-bsd
;;
*-sgi)
os=-irix
;;
*-siemens)
os=-sysv4
;;
*-masscomp)
os=-rtu
;;
f30[01]-fujitsu | f700-fujitsu)
os=-uxpv
;;
*-rom68k)
os=-coff
;;
*-*bug)
os=-coff
;;
*-apple)
os=-macos
;;
*-atari*)
os=-mint
;;
*)
os=-none
;;
esac
fi
# Here we handle the case where we know the os, and the CPU type, but not the
# manufacturer. We pick the logical manufacturer.
vendor=unknown
case $basic_machine in
*-unknown)
case $os in
-riscix*)
vendor=acorn
;;
-sunos*)
vendor=sun
;;
-cnk*|-aix*)
vendor=ibm
;;
-beos*)
vendor=be
;;
-hpux*)
vendor=hp
;;
-mpeix*)
vendor=hp
;;
-hiux*)
vendor=hitachi
;;
-unos*)
vendor=crds
;;
-dgux*)
vendor=dg
;;
-luna*)
vendor=omron
;;
-genix*)
vendor=ns
;;
-mvs* | -opened*)
vendor=ibm
;;
-os400*)
vendor=ibm
;;
-ptx*)
vendor=sequent
;;
-tpf*)
vendor=ibm
;;
-vxsim* | -vxworks* | -windiss*)
vendor=wrs
;;
-aux*)
vendor=apple
;;
-hms*)
vendor=hitachi
;;
-mpw* | -macos*)
vendor=apple
;;
-*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
vendor=atari
;;
-vos*)
vendor=stratus
;;
esac
basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"`
;;
esac
echo $basic_machine$os
exit
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "timestamp='"
# time-stamp-format: "%:y-%02m-%02d"
# time-stamp-end: "'"
# End:
diff --git a/config.aux/install-sh b/config.aux/install-sh
index 6781b98..377bb86 100755
--- a/config.aux/install-sh
+++ b/config.aux/install-sh
@@ -1,520 +1,527 @@
#!/bin/sh
# install - install a program, script, or datafile
-scriptversion=2009-04-28.21; # UTC
+scriptversion=2011-11-20.07; # UTC
# This originates from X11R5 (mit/util/scripts/install.sh), which was
# later released in X11R6 (xc/config/util/install.sh) with the
# following copyright and license.
#
# Copyright (C) 1994 X Consortium
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to
# deal in the Software without restriction, including without limitation the
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
# sell copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
# Except as contained in this notice, the name of the X Consortium shall not
# be used in advertising or otherwise to promote the sale, use or other deal-
# ings in this Software without prior written authorization from the X Consor-
# tium.
#
#
# FSF changes to this file are in the public domain.
#
# Calling this script install-sh is preferred over install.sh, to prevent
-# `make' implicit rules from creating a file called install from it
+# 'make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# This script is compatible with the BSD install script, but was written
# from scratch.
nl='
'
IFS=" "" $nl"
# set DOITPROG to echo to test this script
# Don't use :- since 4.3BSD and earlier shells don't like it.
doit=${DOITPROG-}
if test -z "$doit"; then
doit_exec=exec
else
doit_exec=$doit
fi
# Put in absolute file names if you don't have them in your path;
# or use environment vars.
chgrpprog=${CHGRPPROG-chgrp}
chmodprog=${CHMODPROG-chmod}
chownprog=${CHOWNPROG-chown}
cmpprog=${CMPPROG-cmp}
cpprog=${CPPROG-cp}
mkdirprog=${MKDIRPROG-mkdir}
mvprog=${MVPROG-mv}
rmprog=${RMPROG-rm}
stripprog=${STRIPPROG-strip}
posix_glob='?'
initialize_posix_glob='
test "$posix_glob" != "?" || {
if (set -f) 2>/dev/null; then
posix_glob=
else
posix_glob=:
fi
}
'
posix_mkdir=
# Desired mode of installed file.
mode=0755
chgrpcmd=
chmodcmd=$chmodprog
chowncmd=
mvcmd=$mvprog
rmcmd="$rmprog -f"
stripcmd=
src=
dst=
dir_arg=
dst_arg=
copy_on_change=false
no_target_directory=
usage="\
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
or: $0 [OPTION]... SRCFILES... DIRECTORY
or: $0 [OPTION]... -t DIRECTORY SRCFILES...
or: $0 [OPTION]... -d DIRECTORIES...
In the 1st form, copy SRCFILE to DSTFILE.
In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
In the 4th, create DIRECTORIES.
Options:
--help display this help and exit.
--version display version info and exit.
-c (ignored)
-C install only if different (preserve the last data modification time)
-d create directories instead of installing files.
-g GROUP $chgrpprog installed files to GROUP.
-m MODE $chmodprog installed files to MODE.
-o USER $chownprog installed files to USER.
-s $stripprog installed files.
-t DIRECTORY install into DIRECTORY.
-T report an error if DSTFILE is a directory.
Environment variables override the default commands:
CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
RMPROG STRIPPROG
"
while test $# -ne 0; do
case $1 in
-c) ;;
-C) copy_on_change=true;;
-d) dir_arg=true;;
-g) chgrpcmd="$chgrpprog $2"
shift;;
--help) echo "$usage"; exit $?;;
-m) mode=$2
case $mode in
*' '* | *' '* | *'
'* | *'*'* | *'?'* | *'['*)
echo "$0: invalid mode: $mode" >&2
exit 1;;
esac
shift;;
-o) chowncmd="$chownprog $2"
shift;;
-s) stripcmd=$stripprog;;
-t) dst_arg=$2
+ # Protect names problematic for 'test' and other utilities.
+ case $dst_arg in
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
+ esac
shift;;
-T) no_target_directory=true;;
--version) echo "$0 $scriptversion"; exit $?;;
--) shift
break;;
-*) echo "$0: invalid option: $1" >&2
exit 1;;
*) break;;
esac
shift
done
if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
# When -d is used, all remaining arguments are directories to create.
# When -t is used, the destination is already specified.
# Otherwise, the last argument is the destination. Remove it from $@.
for arg
do
if test -n "$dst_arg"; then
# $@ is not empty: it contains at least $arg.
set fnord "$@" "$dst_arg"
shift # fnord
fi
shift # arg
dst_arg=$arg
+ # Protect names problematic for 'test' and other utilities.
+ case $dst_arg in
+ -* | [=\(\)!]) dst_arg=./$dst_arg;;
+ esac
done
fi
if test $# -eq 0; then
if test -z "$dir_arg"; then
echo "$0: no input file specified." >&2
exit 1
fi
- # It's OK to call `install-sh -d' without argument.
+ # It's OK to call 'install-sh -d' without argument.
# This can happen when creating conditional directories.
exit 0
fi
if test -z "$dir_arg"; then
- trap '(exit $?); exit' 1 2 13 15
+ do_exit='(exit $ret); exit $ret'
+ trap "ret=129; $do_exit" 1
+ trap "ret=130; $do_exit" 2
+ trap "ret=141; $do_exit" 13
+ trap "ret=143; $do_exit" 15
# Set umask so as not to create temps with too-generous modes.
# However, 'strip' requires both read and write access to temps.
case $mode in
# Optimize common cases.
*644) cp_umask=133;;
*755) cp_umask=22;;
*[0-7])
if test -z "$stripcmd"; then
u_plus_rw=
else
u_plus_rw='% 200'
fi
cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
*)
if test -z "$stripcmd"; then
u_plus_rw=
else
u_plus_rw=,u+rw
fi
cp_umask=$mode$u_plus_rw;;
esac
fi
for src
do
- # Protect names starting with `-'.
+ # Protect names problematic for 'test' and other utilities.
case $src in
- -*) src=./$src;;
+ -* | [=\(\)!]) src=./$src;;
esac
if test -n "$dir_arg"; then
dst=$src
dstdir=$dst
test -d "$dstdir"
dstdir_status=$?
else
# Waiting for this to be detected by the "$cpprog $src $dsttmp" command
# might cause directories to be created, which would be especially bad
# if $src (and thus $dsttmp) contains '*'.
if test ! -f "$src" && test ! -d "$src"; then
echo "$0: $src does not exist." >&2
exit 1
fi
if test -z "$dst_arg"; then
echo "$0: no destination specified." >&2
exit 1
fi
-
dst=$dst_arg
- # Protect names starting with `-'.
- case $dst in
- -*) dst=./$dst;;
- esac
# If destination is a directory, append the input filename; won't work
# if double slashes aren't ignored.
if test -d "$dst"; then
if test -n "$no_target_directory"; then
echo "$0: $dst_arg: Is a directory" >&2
exit 1
fi
dstdir=$dst
dst=$dstdir/`basename "$src"`
dstdir_status=0
else
# Prefer dirname, but fall back on a substitute if dirname fails.
dstdir=`
(dirname "$dst") 2>/dev/null ||
expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$dst" : 'X\(//\)[^/]' \| \
X"$dst" : 'X\(//\)$' \| \
X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
echo X"$dst" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'
`
test -d "$dstdir"
dstdir_status=$?
fi
fi
obsolete_mkdir_used=false
if test $dstdir_status != 0; then
case $posix_mkdir in
'')
# Create intermediate dirs using mode 755 as modified by the umask.
# This is like FreeBSD 'install' as of 1997-10-28.
umask=`umask`
case $stripcmd.$umask in
# Optimize common cases.
*[2367][2367]) mkdir_umask=$umask;;
.*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
*[0-7])
mkdir_umask=`expr $umask + 22 \
- $umask % 100 % 40 + $umask % 20 \
- $umask % 10 % 4 + $umask % 2
`;;
*) mkdir_umask=$umask,go-w;;
esac
# With -d, create the new directory with the user-specified mode.
# Otherwise, rely on $mkdir_umask.
if test -n "$dir_arg"; then
mkdir_mode=-m$mode
else
mkdir_mode=
fi
posix_mkdir=false
case $umask in
*[123567][0-7][0-7])
# POSIX mkdir -p sets u+wx bits regardless of umask, which
# is incompatible with FreeBSD 'install' when (umask & 300) != 0.
;;
*)
tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
if (umask $mkdir_umask &&
exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
then
if test -z "$dir_arg" || {
# Check for POSIX incompatibilities with -m.
# HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
- # other-writeable bit of parent directory when it shouldn't.
+ # other-writable bit of parent directory when it shouldn't.
# FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
ls_ld_tmpdir=`ls -ld "$tmpdir"`
case $ls_ld_tmpdir in
d????-?r-*) different_mode=700;;
d????-?--*) different_mode=755;;
*) false;;
esac &&
$mkdirprog -m$different_mode -p -- "$tmpdir" && {
ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
}
}
then posix_mkdir=:
fi
rmdir "$tmpdir/d" "$tmpdir"
else
# Remove any dirs left behind by ancient mkdir implementations.
rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
fi
trap '' 0;;
esac;;
esac
if
$posix_mkdir && (
umask $mkdir_umask &&
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
)
then :
else
# The umask is ridiculous, or mkdir does not conform to POSIX,
# or it failed possibly due to a race condition. Create the
# directory the slow way, step by step, checking for races as we go.
case $dstdir in
/*) prefix='/';;
- -*) prefix='./';;
+ [-=\(\)!]*) prefix='./';;
*) prefix='';;
esac
eval "$initialize_posix_glob"
oIFS=$IFS
IFS=/
$posix_glob set -f
set fnord $dstdir
shift
$posix_glob set +f
IFS=$oIFS
prefixes=
for d
do
- test -z "$d" && continue
+ test X"$d" = X && continue
prefix=$prefix$d
if test -d "$prefix"; then
prefixes=
else
if $posix_mkdir; then
(umask=$mkdir_umask &&
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
# Don't fail if two instances are running concurrently.
test -d "$prefix" || exit 1
else
case $prefix in
*\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
*) qprefix=$prefix;;
esac
prefixes="$prefixes '$qprefix'"
fi
fi
prefix=$prefix/
done
if test -n "$prefixes"; then
# Don't fail if two instances are running concurrently.
(umask $mkdir_umask &&
eval "\$doit_exec \$mkdirprog $prefixes") ||
test -d "$dstdir" || exit 1
obsolete_mkdir_used=true
fi
fi
fi
if test -n "$dir_arg"; then
{ test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
{ test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
else
# Make a couple of temp file names in the proper directory.
dsttmp=$dstdir/_inst.$$_
rmtmp=$dstdir/_rm.$$_
# Trap to clean up those temp files at exit.
trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
# Copy the file name to the temp name.
(umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
# and set any options; do chmod last to preserve setuid bits.
#
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $cpprog $src $dsttmp" command.
#
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
{ test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
{ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
# If -C, don't bother to copy if it wouldn't change the file.
if $copy_on_change &&
old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
eval "$initialize_posix_glob" &&
$posix_glob set -f &&
set X $old && old=:$2:$4:$5:$6 &&
set X $new && new=:$2:$4:$5:$6 &&
$posix_glob set +f &&
test "$old" = "$new" &&
$cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
then
rm -f "$dsttmp"
else
# Rename the file to the real destination.
$doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
# The rename failed, perhaps because mv can't rename something else
# to itself, or perhaps because mv is so ancient that it does not
# support -f.
{
# Now remove or move aside any old file at destination location.
# We try this two ways since rm can't unlink itself on some
# systems and the destination file might be busy for other
# reasons. In this case, the final cleanup might fail but the new
# file should still install successfully.
{
test ! -f "$dst" ||
$doit $rmcmd -f "$dst" 2>/dev/null ||
{ $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
{ $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
} ||
{ echo "$0: cannot unlink or rename $dst" >&2
(exit 1); exit 1
}
} &&
# Now rename the file to the real destination.
$doit $mvcmd "$dsttmp" "$dst"
}
fi || exit 1
trap '' 0
fi
done
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "scriptversion="
# time-stamp-format: "%:y-%02m-%02d.%02H"
# time-stamp-time-zone: "UTC"
# time-stamp-end: "; # UTC"
# End:
diff --git a/config.aux/ltmain.sh b/config.aux/ltmain.sh
index 3061e3c..63ae69d 100755
--- a/config.aux/ltmain.sh
+++ b/config.aux/ltmain.sh
@@ -1,9636 +1,9655 @@
-# libtool (GNU libtool) 2.4
+# libtool (GNU libtool) 2.4.2
# Written by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006,
-# 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+# 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
# This is free software; see the source for copying conditions. There is NO
# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# GNU Libtool is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# As a special exception to the GNU General Public License,
# if you distribute this file as part of a program or library that
# is built using GNU Libtool, you may include this file under the
# same distribution terms that you use for the rest of that program.
#
# GNU Libtool is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Libtool; see the file COPYING. If not, a copy
# can be downloaded from http://www.gnu.org/licenses/gpl.html,
# or obtained by writing to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# Usage: $progname [OPTION]... [MODE-ARG]...
#
# Provide generalized library-building support services.
#
# --config show all configuration variables
# --debug enable verbose shell tracing
# -n, --dry-run display commands without modifying any files
# --features display basic configuration information and exit
# --mode=MODE use operation mode MODE
# --preserve-dup-deps don't remove duplicate dependency libraries
# --quiet, --silent don't print informational messages
# --no-quiet, --no-silent
# print informational messages (default)
+# --no-warn don't display warning messages
# --tag=TAG use configuration variables from tag TAG
# -v, --verbose print more informational messages than default
# --no-verbose don't print the extra informational messages
# --version print version information
# -h, --help, --help-all print short, long, or detailed help message
#
# MODE must be one of the following:
#
# clean remove files from the build directory
# compile compile a source file into a libtool object
# execute automatically set library path, then run a program
# finish complete the installation of libtool libraries
# install install libraries or executables
# link create a library or an executable
# uninstall remove libraries from an installed directory
#
# MODE-ARGS vary depending on the MODE. When passed as first option,
# `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that.
# Try `$progname --help --mode=MODE' for a more detailed description of MODE.
#
# When reporting a bug, please describe a test case to reproduce it and
# include the following information:
#
# host-triplet: $host
# shell: $SHELL
# compiler: $LTCC
# compiler flags: $LTCFLAGS
# linker: $LD (gnu? $with_gnu_ld)
-# $progname: (GNU libtool) 2.4
+# $progname: (GNU libtool) 2.4.2
# automake: $automake_version
# autoconf: $autoconf_version
#
# Report bugs to <bug-libtool@gnu.org>.
# GNU libtool home page: <http://www.gnu.org/software/libtool/>.
# General help using GNU software: <http://www.gnu.org/gethelp/>.
PROGRAM=libtool
PACKAGE=libtool
-VERSION=2.4
+VERSION=2.4.2
TIMESTAMP=""
-package_revision=1.3293
+package_revision=1.3337
# Be Bourne compatible
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then
emulate sh
NULLCMD=:
# Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which
# is contrary to our usage. Disable this feature.
alias -g '${1+"$@"}'='"$@"'
setopt NO_GLOB_SUBST
else
case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac
fi
BIN_SH=xpg4; export BIN_SH # for Tru64
DUALCASE=1; export DUALCASE # for MKS sh
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
$1
_LTECHO_EOF'
}
# NLS nuisances: We save the old values to restore during execute mode.
lt_user_locale=
lt_safe_locale=
for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
do
eval "if test \"\${$lt_var+set}\" = set; then
save_$lt_var=\$$lt_var
$lt_var=C
export $lt_var
lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\"
lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\"
fi"
done
LC_ALL=C
LANGUAGE=C
export LANGUAGE LC_ALL
$lt_unset CDPATH
# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh
# is ksh but when the shell is invoked as "sh" and the current value of
# the _XPG environment variable is not equal to 1 (one), the special
# positional parameter $0, within a function call, is the name of the
# function.
progpath="$0"
: ${CP="cp -f"}
test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'}
-: ${EGREP="grep -E"}
-: ${FGREP="grep -F"}
-: ${GREP="grep"}
-: ${LN_S="ln -s"}
: ${MAKE="make"}
: ${MKDIR="mkdir"}
: ${MV="mv -f"}
: ${RM="rm -f"}
-: ${SED="sed"}
: ${SHELL="${CONFIG_SHELL-/bin/sh}"}
: ${Xsed="$SED -e 1s/^X//"}
# Global variables:
EXIT_SUCCESS=0
EXIT_FAILURE=1
EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing.
EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake.
exit_status=$EXIT_SUCCESS
# Make sure IFS has a sensible default
lt_nl='
'
IFS=" $lt_nl"
dirname="s,/[^/]*$,,"
basename="s,^.*/,,"
# func_dirname file append nondir_replacement
# Compute the dirname of FILE. If nonempty, add APPEND to the result,
# otherwise set result to NONDIR_REPLACEMENT.
func_dirname ()
{
func_dirname_result=`$ECHO "${1}" | $SED "$dirname"`
if test "X$func_dirname_result" = "X${1}"; then
func_dirname_result="${3}"
else
func_dirname_result="$func_dirname_result${2}"
fi
} # func_dirname may be replaced by extended shell implementation
# func_basename file
func_basename ()
{
func_basename_result=`$ECHO "${1}" | $SED "$basename"`
} # func_basename may be replaced by extended shell implementation
# func_dirname_and_basename file append nondir_replacement
# perform func_basename and func_dirname in a single function
# call:
# dirname: Compute the dirname of FILE. If nonempty,
# add APPEND to the result, otherwise set result
# to NONDIR_REPLACEMENT.
# value returned in "$func_dirname_result"
# basename: Compute filename of FILE.
# value retuned in "$func_basename_result"
# Implementation must be kept synchronized with func_dirname
# and func_basename. For efficiency, we do not delegate to
# those functions but instead duplicate the functionality here.
func_dirname_and_basename ()
{
# Extract subdirectory from the argument.
func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"`
if test "X$func_dirname_result" = "X${1}"; then
func_dirname_result="${3}"
else
func_dirname_result="$func_dirname_result${2}"
fi
func_basename_result=`$ECHO "${1}" | $SED -e "$basename"`
} # func_dirname_and_basename may be replaced by extended shell implementation
# func_stripname prefix suffix name
# strip PREFIX and SUFFIX off of NAME.
# PREFIX and SUFFIX must not contain globbing or regex special
# characters, hashes, percent signs, but SUFFIX may contain a leading
# dot (in which case that matches only a dot).
# func_strip_suffix prefix name
func_stripname ()
{
case ${2} in
.*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;;
*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;;
esac
} # func_stripname may be replaced by extended shell implementation
# These SED scripts presuppose an absolute path with a trailing slash.
pathcar='s,^/\([^/]*\).*$,\1,'
pathcdr='s,^/[^/]*,,'
removedotparts=':dotsl
s@/\./@/@g
t dotsl
s,/\.$,/,'
collapseslashes='s@/\{1,\}@/@g'
finalslash='s,/*$,/,'
# func_normal_abspath PATH
# Remove doubled-up and trailing slashes, "." path components,
# and cancel out any ".." path components in PATH after making
# it an absolute path.
# value returned in "$func_normal_abspath_result"
func_normal_abspath ()
{
# Start from root dir and reassemble the path.
func_normal_abspath_result=
func_normal_abspath_tpath=$1
func_normal_abspath_altnamespace=
case $func_normal_abspath_tpath in
"")
# Empty path, that just means $cwd.
func_stripname '' '/' "`pwd`"
func_normal_abspath_result=$func_stripname_result
return
;;
# The next three entries are used to spot a run of precisely
# two leading slashes without using negated character classes;
# we take advantage of case's first-match behaviour.
///*)
# Unusual form of absolute path, do nothing.
;;
//*)
# Not necessarily an ordinary path; POSIX reserves leading '//'
# and for example Cygwin uses it to access remote file shares
# over CIFS/SMB, so we conserve a leading double slash if found.
func_normal_abspath_altnamespace=/
;;
/*)
# Absolute path, do nothing.
;;
*)
# Relative path, prepend $cwd.
func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath
;;
esac
# Cancel out all the simple stuff to save iterations. We also want
# the path to end with a slash for ease of parsing, so make sure
# there is one (and only one) here.
func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$removedotparts" -e "$collapseslashes" -e "$finalslash"`
while :; do
# Processed it all yet?
if test "$func_normal_abspath_tpath" = / ; then
# If we ascended to the root using ".." the result may be empty now.
if test -z "$func_normal_abspath_result" ; then
func_normal_abspath_result=/
fi
break
fi
func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$pathcar"`
func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$pathcdr"`
# Figure out what to do with it
case $func_normal_abspath_tcomponent in
"")
# Trailing empty path component, ignore it.
;;
..)
# Parent dir; strip last assembled component from result.
func_dirname "$func_normal_abspath_result"
func_normal_abspath_result=$func_dirname_result
;;
*)
# Actual path component, append it.
func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent
;;
esac
done
# Restore leading double-slash if one was found on entry.
func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result
}
# func_relative_path SRCDIR DSTDIR
# generates a relative path from SRCDIR to DSTDIR, with a trailing
# slash if non-empty, suitable for immediately appending a filename
# without needing to append a separator.
# value returned in "$func_relative_path_result"
func_relative_path ()
{
func_relative_path_result=
func_normal_abspath "$1"
func_relative_path_tlibdir=$func_normal_abspath_result
func_normal_abspath "$2"
func_relative_path_tbindir=$func_normal_abspath_result
# Ascend the tree starting from libdir
while :; do
# check if we have found a prefix of bindir
case $func_relative_path_tbindir in
$func_relative_path_tlibdir)
# found an exact match
func_relative_path_tcancelled=
break
;;
$func_relative_path_tlibdir*)
# found a matching prefix
func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir"
func_relative_path_tcancelled=$func_stripname_result
if test -z "$func_relative_path_result"; then
func_relative_path_result=.
fi
break
;;
*)
func_dirname $func_relative_path_tlibdir
func_relative_path_tlibdir=${func_dirname_result}
if test "x$func_relative_path_tlibdir" = x ; then
# Have to descend all the way to the root!
func_relative_path_result=../$func_relative_path_result
func_relative_path_tcancelled=$func_relative_path_tbindir
break
fi
func_relative_path_result=../$func_relative_path_result
;;
esac
done
# Now calculate path; take care to avoid doubling-up slashes.
func_stripname '' '/' "$func_relative_path_result"
func_relative_path_result=$func_stripname_result
func_stripname '/' '/' "$func_relative_path_tcancelled"
if test "x$func_stripname_result" != x ; then
func_relative_path_result=${func_relative_path_result}/${func_stripname_result}
fi
# Normalisation. If bindir is libdir, return empty string,
# else relative path ending with a slash; either way, target
# file name can be directly appended.
if test ! -z "$func_relative_path_result"; then
func_stripname './' '' "$func_relative_path_result/"
func_relative_path_result=$func_stripname_result
fi
}
# The name of this program:
func_dirname_and_basename "$progpath"
progname=$func_basename_result
# Make sure we have an absolute path for reexecution:
case $progpath in
[\\/]*|[A-Za-z]:\\*) ;;
*[\\/]*)
progdir=$func_dirname_result
progdir=`cd "$progdir" && pwd`
progpath="$progdir/$progname"
;;
*)
save_IFS="$IFS"
- IFS=:
+ IFS=${PATH_SEPARATOR-:}
for progdir in $PATH; do
IFS="$save_IFS"
test -x "$progdir/$progname" && break
done
IFS="$save_IFS"
test -n "$progdir" || progdir=`pwd`
progpath="$progdir/$progname"
;;
esac
# Sed substitution that helps us do robust quoting. It backslashifies
# metacharacters that are still active within double-quoted strings.
Xsed="${SED}"' -e 1s/^X//'
sed_quote_subst='s/\([`"$\\]\)/\\\1/g'
# Same as above, but do not quote variable references.
double_quote_subst='s/\(["`\\]\)/\\\1/g'
# Sed substitution that turns a string into a regex matching for the
# string literally.
sed_make_literal_regex='s,[].[^$\\*\/],\\&,g'
# Sed substitution that converts a w32 file name or path
# which contains forward slashes, into one that contains
# (escaped) backslashes. A very naive implementation.
lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g'
# Re-`\' parameter expansions in output of double_quote_subst that were
# `\'-ed in input to the same. If an odd number of `\' preceded a '$'
# in input to double_quote_subst, that '$' was protected from expansion.
# Since each input `\' is now two `\'s, look for any number of runs of
# four `\'s followed by two `\'s and then a '$'. `\' that '$'.
bs='\\'
bs2='\\\\'
bs4='\\\\\\\\'
dollar='\$'
sed_double_backslash="\
s/$bs4/&\\
/g
s/^$bs2$dollar/$bs&/
s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g
s/\n//g"
# Standard options:
opt_dry_run=false
opt_help=false
opt_quiet=false
opt_verbose=false
opt_warning=:
# func_echo arg...
# Echo program name prefixed message, along with the current mode
# name if it has been set yet.
func_echo ()
{
$ECHO "$progname: ${opt_mode+$opt_mode: }$*"
}
# func_verbose arg...
# Echo program name prefixed message in verbose mode only.
func_verbose ()
{
$opt_verbose && func_echo ${1+"$@"}
# A bug in bash halts the script if the last line of a function
# fails when set -e is in force, so we need another command to
# work around that:
:
}
# func_echo_all arg...
# Invoke $ECHO with all args, space-separated.
func_echo_all ()
{
$ECHO "$*"
}
# func_error arg...
# Echo program name prefixed message to standard error.
func_error ()
{
$ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2
}
# func_warning arg...
# Echo program name prefixed warning message to standard error.
func_warning ()
{
$opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2
# bash bug again:
:
}
# func_fatal_error arg...
# Echo program name prefixed message to standard error, and exit.
func_fatal_error ()
{
func_error ${1+"$@"}
exit $EXIT_FAILURE
}
# func_fatal_help arg...
# Echo program name prefixed message to standard error, followed by
# a help hint, and exit.
func_fatal_help ()
{
func_error ${1+"$@"}
func_fatal_error "$help"
}
help="Try \`$progname --help' for more information." ## default
# func_grep expression filename
# Check whether EXPRESSION matches any line of FILENAME, without output.
func_grep ()
{
$GREP "$1" "$2" >/dev/null 2>&1
}
# func_mkdir_p directory-path
# Make sure the entire path to DIRECTORY-PATH is available.
func_mkdir_p ()
{
my_directory_path="$1"
my_dir_list=
if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then
# Protect directory names starting with `-'
case $my_directory_path in
-*) my_directory_path="./$my_directory_path" ;;
esac
# While some portion of DIR does not yet exist...
while test ! -d "$my_directory_path"; do
# ...make a list in topmost first order. Use a colon delimited
# list incase some portion of path contains whitespace.
my_dir_list="$my_directory_path:$my_dir_list"
# If the last portion added has no slash in it, the list is done
case $my_directory_path in */*) ;; *) break ;; esac
# ...otherwise throw away the child directory and loop
my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"`
done
my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'`
save_mkdir_p_IFS="$IFS"; IFS=':'
for my_dir in $my_dir_list; do
IFS="$save_mkdir_p_IFS"
# mkdir can fail with a `File exist' error if two processes
# try to create one of the directories concurrently. Don't
# stop in that case!
$MKDIR "$my_dir" 2>/dev/null || :
done
IFS="$save_mkdir_p_IFS"
# Bail out if we (or some other process) failed to create a directory.
test -d "$my_directory_path" || \
func_fatal_error "Failed to create \`$1'"
fi
}
# func_mktempdir [string]
# Make a temporary directory that won't clash with other running
# libtool processes, and avoids race conditions if possible. If
# given, STRING is the basename for that directory.
func_mktempdir ()
{
my_template="${TMPDIR-/tmp}/${1-$progname}"
if test "$opt_dry_run" = ":"; then
# Return a directory name, but don't create it in dry-run mode
my_tmpdir="${my_template}-$$"
else
# If mktemp works, use that first and foremost
my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null`
if test ! -d "$my_tmpdir"; then
# Failing that, at least try and use $RANDOM to avoid a race
my_tmpdir="${my_template}-${RANDOM-0}$$"
save_mktempdir_umask=`umask`
umask 0077
$MKDIR "$my_tmpdir"
umask $save_mktempdir_umask
fi
# If we're not in dry-run mode, bomb out on failure
test -d "$my_tmpdir" || \
func_fatal_error "cannot create temporary directory \`$my_tmpdir'"
fi
$ECHO "$my_tmpdir"
}
# func_quote_for_eval arg
# Aesthetically quote ARG to be evaled later.
# This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT
# is double-quoted, suitable for a subsequent eval, whereas
# FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters
# which are still active within double quotes backslashified.
func_quote_for_eval ()
{
case $1 in
*[\\\`\"\$]*)
func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;;
*)
func_quote_for_eval_unquoted_result="$1" ;;
esac
case $func_quote_for_eval_unquoted_result in
# Double-quote args containing shell metacharacters to delay
# word splitting, command substitution and and variable
# expansion for a subsequent eval.
# Many Bourne shells cannot handle close brackets correctly
# in scan sets, so we specify it separately.
*[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\""
;;
*)
func_quote_for_eval_result="$func_quote_for_eval_unquoted_result"
esac
}
# func_quote_for_expand arg
# Aesthetically quote ARG to be evaled later; same as above,
# but do not quote variable references.
func_quote_for_expand ()
{
case $1 in
*[\\\`\"]*)
my_arg=`$ECHO "$1" | $SED \
-e "$double_quote_subst" -e "$sed_double_backslash"` ;;
*)
my_arg="$1" ;;
esac
case $my_arg in
# Double-quote args containing shell metacharacters to delay
# word splitting and command substitution for a subsequent eval.
# Many Bourne shells cannot handle close brackets correctly
# in scan sets, so we specify it separately.
*[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
my_arg="\"$my_arg\""
;;
esac
func_quote_for_expand_result="$my_arg"
}
# func_show_eval cmd [fail_exp]
# Unless opt_silent is true, then output CMD. Then, if opt_dryrun is
# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
# is given, then evaluate it.
func_show_eval ()
{
my_cmd="$1"
my_fail_exp="${2-:}"
${opt_silent-false} || {
func_quote_for_expand "$my_cmd"
eval "func_echo $func_quote_for_expand_result"
}
if ${opt_dry_run-false}; then :; else
eval "$my_cmd"
my_status=$?
if test "$my_status" -eq 0; then :; else
eval "(exit $my_status); $my_fail_exp"
fi
fi
}
# func_show_eval_locale cmd [fail_exp]
# Unless opt_silent is true, then output CMD. Then, if opt_dryrun is
# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
# is given, then evaluate it. Use the saved locale for evaluation.
func_show_eval_locale ()
{
my_cmd="$1"
my_fail_exp="${2-:}"
${opt_silent-false} || {
func_quote_for_expand "$my_cmd"
eval "func_echo $func_quote_for_expand_result"
}
if ${opt_dry_run-false}; then :; else
eval "$lt_user_locale
$my_cmd"
my_status=$?
eval "$lt_safe_locale"
if test "$my_status" -eq 0; then :; else
eval "(exit $my_status); $my_fail_exp"
fi
fi
}
# func_tr_sh
# Turn $1 into a string suitable for a shell variable name.
# Result is stored in $func_tr_sh_result. All characters
# not in the set a-zA-Z0-9_ are replaced with '_'. Further,
# if $1 begins with a digit, a '_' is prepended as well.
func_tr_sh ()
{
case $1 in
[0-9]* | *[!a-zA-Z0-9_]*)
func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'`
;;
* )
func_tr_sh_result=$1
;;
esac
}
# func_version
# Echo version message to standard output and exit.
func_version ()
{
$opt_debug
$SED -n '/(C)/!b go
:more
/\./!{
N
s/\n# / /
b more
}
:go
/^# '$PROGRAM' (GNU /,/# warranty; / {
s/^# //
s/^# *$//
s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/
p
}' < "$progpath"
exit $?
}
# func_usage
# Echo short help message to standard output and exit.
func_usage ()
{
$opt_debug
$SED -n '/^# Usage:/,/^# *.*--help/ {
s/^# //
s/^# *$//
s/\$progname/'$progname'/
p
}' < "$progpath"
echo
$ECHO "run \`$progname --help | more' for full usage"
exit $?
}
# func_help [NOEXIT]
# Echo long help message to standard output and exit,
# unless 'noexit' is passed as argument.
func_help ()
{
$opt_debug
$SED -n '/^# Usage:/,/# Report bugs to/ {
:print
s/^# //
s/^# *$//
s*\$progname*'$progname'*
s*\$host*'"$host"'*
s*\$SHELL*'"$SHELL"'*
s*\$LTCC*'"$LTCC"'*
s*\$LTCFLAGS*'"$LTCFLAGS"'*
s*\$LD*'"$LD"'*
s/\$with_gnu_ld/'"$with_gnu_ld"'/
- s/\$automake_version/'"`(automake --version) 2>/dev/null |$SED 1q`"'/
- s/\$autoconf_version/'"`(autoconf --version) 2>/dev/null |$SED 1q`"'/
+ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/
+ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/
p
d
}
/^# .* home page:/b print
/^# General help using/b print
' < "$progpath"
ret=$?
if test -z "$1"; then
exit $ret
fi
}
# func_missing_arg argname
# Echo program name prefixed message to standard error and set global
# exit_cmd.
func_missing_arg ()
{
$opt_debug
func_error "missing argument for $1."
exit_cmd=exit
}
# func_split_short_opt shortopt
# Set func_split_short_opt_name and func_split_short_opt_arg shell
# variables after splitting SHORTOPT after the 2nd character.
func_split_short_opt ()
{
my_sed_short_opt='1s/^\(..\).*$/\1/;q'
my_sed_short_rest='1s/^..\(.*\)$/\1/;q'
func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"`
func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"`
} # func_split_short_opt may be replaced by extended shell implementation
# func_split_long_opt longopt
# Set func_split_long_opt_name and func_split_long_opt_arg shell
# variables after splitting LONGOPT at the `=' sign.
func_split_long_opt ()
{
my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q'
my_sed_long_arg='1s/^--[^=]*=//'
func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"`
func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"`
} # func_split_long_opt may be replaced by extended shell implementation
exit_cmd=:
magic="%%%MAGIC variable%%%"
magic_exe="%%%MAGIC EXE variable%%%"
# Global variables.
nonopt=
preserve_args=
lo2o="s/\\.lo\$/.${objext}/"
o2lo="s/\\.${objext}\$/.lo/"
extracted_archives=
extracted_serial=0
# If this variable is set in any of the actions, the command in it
# will be execed at the end. This prevents here-documents from being
# left over by shells.
exec_cmd=
# func_append var value
# Append VALUE to the end of shell variable VAR.
func_append ()
{
eval "${1}=\$${1}\${2}"
} # func_append may be replaced by extended shell implementation
# func_append_quoted var value
# Quote VALUE and append to the end of shell variable VAR, separated
# by a space.
func_append_quoted ()
{
func_quote_for_eval "${2}"
eval "${1}=\$${1}\\ \$func_quote_for_eval_result"
} # func_append_quoted may be replaced by extended shell implementation
# func_arith arithmetic-term...
func_arith ()
{
func_arith_result=`expr "${@}"`
} # func_arith may be replaced by extended shell implementation
# func_len string
# STRING may not start with a hyphen.
func_len ()
{
func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len`
} # func_len may be replaced by extended shell implementation
# func_lo2o object
func_lo2o ()
{
func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"`
} # func_lo2o may be replaced by extended shell implementation
# func_xform libobj-or-source
func_xform ()
{
func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'`
} # func_xform may be replaced by extended shell implementation
# func_fatal_configuration arg...
# Echo program name prefixed message to standard error, followed by
# a configuration failure hint, and exit.
func_fatal_configuration ()
{
func_error ${1+"$@"}
func_error "See the $PACKAGE documentation for more information."
func_fatal_error "Fatal configuration error."
}
# func_config
# Display the configuration for all the tags in this script.
func_config ()
{
re_begincf='^# ### BEGIN LIBTOOL'
re_endcf='^# ### END LIBTOOL'
# Default configuration.
$SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath"
# Now print the configurations for the tags.
for tagname in $taglist; do
$SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath"
done
exit $?
}
# func_features
# Display the features supported by this script.
func_features ()
{
echo "host: $host"
if test "$build_libtool_libs" = yes; then
echo "enable shared libraries"
else
echo "disable shared libraries"
fi
if test "$build_old_libs" = yes; then
echo "enable static libraries"
else
echo "disable static libraries"
fi
exit $?
}
# func_enable_tag tagname
# Verify that TAGNAME is valid, and either flag an error and exit, or
# enable the TAGNAME tag. We also add TAGNAME to the global $taglist
# variable here.
func_enable_tag ()
{
# Global variable:
tagname="$1"
re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$"
re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$"
sed_extractcf="/$re_begincf/,/$re_endcf/p"
# Validate tagname.
case $tagname in
*[!-_A-Za-z0-9,/]*)
func_fatal_error "invalid tag name: $tagname"
;;
esac
# Don't test for the "default" C tag, as we know it's
# there but not specially marked.
case $tagname in
CC) ;;
*)
if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then
taglist="$taglist $tagname"
# Evaluate the configuration. Be careful to quote the path
# and the sed script, to avoid splitting on whitespace, but
# also don't use non-portable quotes within backquotes within
# quotes we have to do it in 2 steps:
extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"`
eval "$extractedcf"
else
func_error "ignoring unknown tag $tagname"
fi
;;
esac
}
# func_check_version_match
# Ensure that we are using m4 macros, and libtool script from the same
# release of libtool.
func_check_version_match ()
{
if test "$package_revision" != "$macro_revision"; then
if test "$VERSION" != "$macro_version"; then
if test -z "$macro_version"; then
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
$progname: definition of this LT_INIT comes from an older release.
$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
$progname: and run autoconf again.
_LT_EOF
else
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
$progname: definition of this LT_INIT comes from $PACKAGE $macro_version.
$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
$progname: and run autoconf again.
_LT_EOF
fi
else
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision,
$progname: but the definition of this LT_INIT comes from revision $macro_revision.
$progname: You should recreate aclocal.m4 with macros from revision $package_revision
$progname: of $PACKAGE $VERSION and run autoconf again.
_LT_EOF
fi
exit $EXIT_MISMATCH
fi
}
# Shorthand for --mode=foo, only valid as the first argument
case $1 in
clean|clea|cle|cl)
shift; set dummy --mode clean ${1+"$@"}; shift
;;
compile|compil|compi|comp|com|co|c)
shift; set dummy --mode compile ${1+"$@"}; shift
;;
execute|execut|execu|exec|exe|ex|e)
shift; set dummy --mode execute ${1+"$@"}; shift
;;
finish|finis|fini|fin|fi|f)
shift; set dummy --mode finish ${1+"$@"}; shift
;;
install|instal|insta|inst|ins|in|i)
shift; set dummy --mode install ${1+"$@"}; shift
;;
link|lin|li|l)
shift; set dummy --mode link ${1+"$@"}; shift
;;
uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u)
shift; set dummy --mode uninstall ${1+"$@"}; shift
;;
esac
# Option defaults:
opt_debug=:
opt_dry_run=false
opt_config=false
opt_preserve_dup_deps=false
opt_features=false
opt_finish=false
opt_help=false
opt_help_all=false
opt_silent=:
+opt_warning=:
opt_verbose=:
opt_silent=false
opt_verbose=false
# Parse options once, thoroughly. This comes as soon as possible in the
# script to make things like `--version' happen as quickly as we can.
{
# this just eases exit handling
while test $# -gt 0; do
opt="$1"
shift
case $opt in
--debug|-x) opt_debug='set -x'
func_echo "enabling shell trace mode"
$opt_debug
;;
--dry-run|--dryrun|-n)
opt_dry_run=:
;;
--config)
opt_config=:
func_config
;;
--dlopen|-dlopen)
optarg="$1"
opt_dlopen="${opt_dlopen+$opt_dlopen
}$optarg"
shift
;;
--preserve-dup-deps)
opt_preserve_dup_deps=:
;;
--features)
opt_features=:
func_features
;;
--finish)
opt_finish=:
set dummy --mode finish ${1+"$@"}; shift
;;
--help)
opt_help=:
;;
--help-all)
opt_help_all=:
opt_help=': help-all'
;;
--mode)
test $# = 0 && func_missing_arg $opt && break
optarg="$1"
opt_mode="$optarg"
case $optarg in
# Valid mode arguments:
clean|compile|execute|finish|install|link|relink|uninstall) ;;
# Catch anything else as an error
*) func_error "invalid argument for $opt"
exit_cmd=exit
break
;;
esac
shift
;;
--no-silent|--no-quiet)
opt_silent=false
func_append preserve_args " $opt"
;;
+ --no-warning|--no-warn)
+ opt_warning=false
+func_append preserve_args " $opt"
+ ;;
--no-verbose)
opt_verbose=false
func_append preserve_args " $opt"
;;
--silent|--quiet)
opt_silent=:
func_append preserve_args " $opt"
opt_verbose=false
;;
--verbose|-v)
opt_verbose=:
func_append preserve_args " $opt"
opt_silent=false
;;
--tag)
test $# = 0 && func_missing_arg $opt && break
optarg="$1"
opt_tag="$optarg"
func_append preserve_args " $opt $optarg"
func_enable_tag "$optarg"
shift
;;
-\?|-h) func_usage ;;
--help) func_help ;;
--version) func_version ;;
# Separate optargs to long options:
--*=*)
func_split_long_opt "$opt"
set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"}
shift
;;
# Separate non-argument short options:
-\?*|-h*|-n*|-v*)
func_split_short_opt "$opt"
set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"}
shift
;;
--) break ;;
-*) func_fatal_help "unrecognized option \`$opt'" ;;
*) set dummy "$opt" ${1+"$@"}; shift; break ;;
esac
done
# Validate options:
# save first non-option argument
if test "$#" -gt 0; then
nonopt="$opt"
shift
fi
# preserve --debug
test "$opt_debug" = : || func_append preserve_args " --debug"
case $host in
*cygwin* | *mingw* | *pw32* | *cegcc*)
# don't eliminate duplications in $postdeps and $predeps
opt_duplicate_compiler_generated_deps=:
;;
*)
opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps
;;
esac
$opt_help || {
# Sanity checks first:
func_check_version_match
if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then
func_fatal_configuration "not configured to build any kind of library"
fi
# Darwin sucks
eval std_shrext=\"$shrext_cmds\"
# Only execute mode is allowed to have -dlopen flags.
if test -n "$opt_dlopen" && test "$opt_mode" != execute; then
func_error "unrecognized option \`-dlopen'"
$ECHO "$help" 1>&2
exit $EXIT_FAILURE
fi
# Change the help message to a mode-specific one.
generic_help="$help"
help="Try \`$progname --help --mode=$opt_mode' for more information."
}
# Bail if the options were screwed
$exit_cmd $EXIT_FAILURE
}
## ----------- ##
## Main. ##
## ----------- ##
# func_lalib_p file
# True iff FILE is a libtool `.la' library or `.lo' object file.
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_lalib_p ()
{
test -f "$1" &&
$SED -e 4q "$1" 2>/dev/null \
| $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1
}
# func_lalib_unsafe_p file
# True iff FILE is a libtool `.la' library or `.lo' object file.
# This function implements the same check as func_lalib_p without
# resorting to external programs. To this end, it redirects stdin and
# closes it afterwards, without saving the original file descriptor.
# As a safety measure, use it only where a negative result would be
# fatal anyway. Works if `file' does not exist.
func_lalib_unsafe_p ()
{
lalib_p=no
if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then
for lalib_p_l in 1 2 3 4
do
read lalib_p_line
case "$lalib_p_line" in
\#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;;
esac
done
exec 0<&5 5<&-
fi
test "$lalib_p" = yes
}
# func_ltwrapper_script_p file
# True iff FILE is a libtool wrapper script
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_script_p ()
{
func_lalib_p "$1"
}
# func_ltwrapper_executable_p file
# True iff FILE is a libtool wrapper executable
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_executable_p ()
{
func_ltwrapper_exec_suffix=
case $1 in
*.exe) ;;
*) func_ltwrapper_exec_suffix=.exe ;;
esac
$GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1
}
# func_ltwrapper_scriptname file
# Assumes file is an ltwrapper_executable
# uses $file to determine the appropriate filename for a
# temporary ltwrapper_script.
func_ltwrapper_scriptname ()
{
func_dirname_and_basename "$1" "" "."
func_stripname '' '.exe' "$func_basename_result"
func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper"
}
# func_ltwrapper_p file
# True iff FILE is a libtool wrapper script or wrapper executable
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_p ()
{
func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1"
}
# func_execute_cmds commands fail_cmd
# Execute tilde-delimited COMMANDS.
# If FAIL_CMD is given, eval that upon failure.
# FAIL_CMD may read-access the current command in variable CMD!
func_execute_cmds ()
{
$opt_debug
save_ifs=$IFS; IFS='~'
for cmd in $1; do
IFS=$save_ifs
eval cmd=\"$cmd\"
func_show_eval "$cmd" "${2-:}"
done
IFS=$save_ifs
}
# func_source file
# Source FILE, adding directory component if necessary.
# Note that it is not necessary on cygwin/mingw to append a dot to
# FILE even if both FILE and FILE.exe exist: automatic-append-.exe
# behavior happens only for exec(3), not for open(2)! Also, sourcing
# `FILE.' does not work on cygwin managed mounts.
func_source ()
{
$opt_debug
case $1 in
*/* | *\\*) . "$1" ;;
*) . "./$1" ;;
esac
}
# func_resolve_sysroot PATH
# Replace a leading = in PATH with a sysroot. Store the result into
# func_resolve_sysroot_result
func_resolve_sysroot ()
{
func_resolve_sysroot_result=$1
case $func_resolve_sysroot_result in
=*)
func_stripname '=' '' "$func_resolve_sysroot_result"
func_resolve_sysroot_result=$lt_sysroot$func_stripname_result
;;
esac
}
# func_replace_sysroot PATH
# If PATH begins with the sysroot, replace it with = and
# store the result into func_replace_sysroot_result.
func_replace_sysroot ()
{
case "$lt_sysroot:$1" in
?*:"$lt_sysroot"*)
func_stripname "$lt_sysroot" '' "$1"
func_replace_sysroot_result="=$func_stripname_result"
;;
*)
# Including no sysroot.
func_replace_sysroot_result=$1
;;
esac
}
# func_infer_tag arg
# Infer tagged configuration to use if any are available and
# if one wasn't chosen via the "--tag" command line option.
# Only attempt this if the compiler in the base compile
# command doesn't match the default compiler.
# arg is usually of the form 'gcc ...'
func_infer_tag ()
{
$opt_debug
if test -n "$available_tags" && test -z "$tagname"; then
CC_quoted=
for arg in $CC; do
func_append_quoted CC_quoted "$arg"
done
CC_expanded=`func_echo_all $CC`
CC_quoted_expanded=`func_echo_all $CC_quoted`
case $@ in
# Blanks in the command may have been stripped by the calling shell,
# but not from the CC environment variable when configure was run.
" $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
" $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;;
# Blanks at the start of $base_compile will cause this to fail
# if we don't check for them as well.
*)
for z in $available_tags; do
if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then
# Evaluate the configuration.
eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`"
CC_quoted=
for arg in $CC; do
# Double-quote args containing other shell metacharacters.
func_append_quoted CC_quoted "$arg"
done
CC_expanded=`func_echo_all $CC`
CC_quoted_expanded=`func_echo_all $CC_quoted`
case "$@ " in
" $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
" $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*)
# The compiler in the base compile command matches
# the one in the tagged configuration.
# Assume this is the tagged configuration we want.
tagname=$z
break
;;
esac
fi
done
# If $tagname still isn't set, then no tagged configuration
# was found and let the user know that the "--tag" command
# line option must be used.
if test -z "$tagname"; then
func_echo "unable to infer tagged configuration"
func_fatal_error "specify a tag with \`--tag'"
# else
# func_verbose "using $tagname tagged configuration"
fi
;;
esac
fi
}
# func_write_libtool_object output_name pic_name nonpic_name
# Create a libtool object file (analogous to a ".la" file),
# but don't create it if we're doing a dry run.
func_write_libtool_object ()
{
write_libobj=${1}
if test "$build_libtool_libs" = yes; then
write_lobj=\'${2}\'
else
write_lobj=none
fi
if test "$build_old_libs" = yes; then
write_oldobj=\'${3}\'
else
write_oldobj=none
fi
$opt_dry_run || {
cat >${write_libobj}T <<EOF
# $write_libobj - a libtool object file
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# Please DO NOT delete this file!
# It is necessary for linking the library.
# Name of the PIC object.
pic_object=$write_lobj
# Name of the non-PIC object
non_pic_object=$write_oldobj
EOF
$MV "${write_libobj}T" "${write_libobj}"
}
}
##################################################
# FILE NAME AND PATH CONVERSION HELPER FUNCTIONS #
##################################################
# func_convert_core_file_wine_to_w32 ARG
# Helper function used by file name conversion functions when $build is *nix,
# and $host is mingw, cygwin, or some other w32 environment. Relies on a
# correctly configured wine environment available, with the winepath program
# in $build's $PATH.
#
# ARG is the $build file name to be converted to w32 format.
# Result is available in $func_convert_core_file_wine_to_w32_result, and will
# be empty on error (or when ARG is empty)
func_convert_core_file_wine_to_w32 ()
{
$opt_debug
func_convert_core_file_wine_to_w32_result="$1"
if test -n "$1"; then
# Unfortunately, winepath does not exit with a non-zero error code, so we
# are forced to check the contents of stdout. On the other hand, if the
# command is not found, the shell will set an exit code of 127 and print
# *an error message* to stdout. So we must check for both error code of
# zero AND non-empty stdout, which explains the odd construction:
func_convert_core_file_wine_to_w32_tmp=`winepath -w "$1" 2>/dev/null`
if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then
func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" |
$SED -e "$lt_sed_naive_backslashify"`
else
func_convert_core_file_wine_to_w32_result=
fi
fi
}
# end: func_convert_core_file_wine_to_w32
# func_convert_core_path_wine_to_w32 ARG
# Helper function used by path conversion functions when $build is *nix, and
# $host is mingw, cygwin, or some other w32 environment. Relies on a correctly
# configured wine environment available, with the winepath program in $build's
# $PATH. Assumes ARG has no leading or trailing path separator characters.
#
# ARG is path to be converted from $build format to win32.
# Result is available in $func_convert_core_path_wine_to_w32_result.
# Unconvertible file (directory) names in ARG are skipped; if no directory names
# are convertible, then the result may be empty.
func_convert_core_path_wine_to_w32 ()
{
$opt_debug
# unfortunately, winepath doesn't convert paths, only file names
func_convert_core_path_wine_to_w32_result=""
if test -n "$1"; then
oldIFS=$IFS
IFS=:
for func_convert_core_path_wine_to_w32_f in $1; do
IFS=$oldIFS
func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f"
if test -n "$func_convert_core_file_wine_to_w32_result" ; then
if test -z "$func_convert_core_path_wine_to_w32_result"; then
func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result"
else
func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result"
fi
fi
done
IFS=$oldIFS
fi
}
# end: func_convert_core_path_wine_to_w32
# func_cygpath ARGS...
# Wrapper around calling the cygpath program via LT_CYGPATH. This is used when
# when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2)
# $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or
# (2), returns the Cygwin file name or path in func_cygpath_result (input
# file name or path is assumed to be in w32 format, as previously converted
# from $build's *nix or MSYS format). In case (3), returns the w32 file name
# or path in func_cygpath_result (input file name or path is assumed to be in
# Cygwin format). Returns an empty string on error.
#
# ARGS are passed to cygpath, with the last one being the file name or path to
# be converted.
#
# Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH
# environment variable; do not put it in $PATH.
func_cygpath ()
{
$opt_debug
if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then
func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null`
if test "$?" -ne 0; then
# on failure, ensure result is empty
func_cygpath_result=
fi
else
func_cygpath_result=
func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'"
fi
}
#end: func_cygpath
# func_convert_core_msys_to_w32 ARG
# Convert file name or path ARG from MSYS format to w32 format. Return
# result in func_convert_core_msys_to_w32_result.
func_convert_core_msys_to_w32 ()
{
$opt_debug
# awkward: cmd appends spaces to result
func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null |
$SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"`
}
#end: func_convert_core_msys_to_w32
# func_convert_file_check ARG1 ARG2
# Verify that ARG1 (a file name in $build format) was converted to $host
# format in ARG2. Otherwise, emit an error message, but continue (resetting
# func_to_host_file_result to ARG1).
func_convert_file_check ()
{
$opt_debug
if test -z "$2" && test -n "$1" ; then
func_error "Could not determine host file name corresponding to"
func_error " \`$1'"
func_error "Continuing, but uninstalled executables may not work."
# Fallback:
func_to_host_file_result="$1"
fi
}
# end func_convert_file_check
# func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH
# Verify that FROM_PATH (a path in $build format) was converted to $host
# format in TO_PATH. Otherwise, emit an error message, but continue, resetting
# func_to_host_file_result to a simplistic fallback value (see below).
func_convert_path_check ()
{
$opt_debug
if test -z "$4" && test -n "$3"; then
func_error "Could not determine the host path corresponding to"
func_error " \`$3'"
func_error "Continuing, but uninstalled executables may not work."
# Fallback. This is a deliberately simplistic "conversion" and
# should not be "improved". See libtool.info.
if test "x$1" != "x$2"; then
lt_replace_pathsep_chars="s|$1|$2|g"
func_to_host_path_result=`echo "$3" |
$SED -e "$lt_replace_pathsep_chars"`
else
func_to_host_path_result="$3"
fi
fi
}
# end func_convert_path_check
# func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG
# Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT
# and appending REPL if ORIG matches BACKPAT.
func_convert_path_front_back_pathsep ()
{
$opt_debug
case $4 in
$1 ) func_to_host_path_result="$3$func_to_host_path_result"
;;
esac
case $4 in
$2 ) func_append func_to_host_path_result "$3"
;;
esac
}
# end func_convert_path_front_back_pathsep
##################################################
# $build to $host FILE NAME CONVERSION FUNCTIONS #
##################################################
# invoked via `$to_host_file_cmd ARG'
#
# In each case, ARG is the path to be converted from $build to $host format.
# Result will be available in $func_to_host_file_result.
# func_to_host_file ARG
# Converts the file name ARG from $build format to $host format. Return result
# in func_to_host_file_result.
func_to_host_file ()
{
$opt_debug
$to_host_file_cmd "$1"
}
# end func_to_host_file
# func_to_tool_file ARG LAZY
# converts the file name ARG from $build format to toolchain format. Return
# result in func_to_tool_file_result. If the conversion in use is listed
# in (the comma separated) LAZY, no conversion takes place.
func_to_tool_file ()
{
$opt_debug
case ,$2, in
*,"$to_tool_file_cmd",*)
func_to_tool_file_result=$1
;;
*)
$to_tool_file_cmd "$1"
func_to_tool_file_result=$func_to_host_file_result
;;
esac
}
# end func_to_tool_file
# func_convert_file_noop ARG
# Copy ARG to func_to_host_file_result.
func_convert_file_noop ()
{
func_to_host_file_result="$1"
}
# end func_convert_file_noop
# func_convert_file_msys_to_w32 ARG
# Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic
# conversion to w32 is not available inside the cwrapper. Returns result in
# func_to_host_file_result.
func_convert_file_msys_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_msys_to_w32 "$1"
func_to_host_file_result="$func_convert_core_msys_to_w32_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_msys_to_w32
# func_convert_file_cygwin_to_w32 ARG
# Convert file name ARG from Cygwin to w32 format. Returns result in
# func_to_host_file_result.
func_convert_file_cygwin_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
# because $build is cygwin, we call "the" cygpath in $PATH; no need to use
# LT_CYGPATH in this case.
func_to_host_file_result=`cygpath -m "$1"`
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_cygwin_to_w32
# func_convert_file_nix_to_w32 ARG
# Convert file name ARG from *nix to w32 format. Requires a wine environment
# and a working winepath. Returns result in func_to_host_file_result.
func_convert_file_nix_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_file_wine_to_w32 "$1"
func_to_host_file_result="$func_convert_core_file_wine_to_w32_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_nix_to_w32
# func_convert_file_msys_to_cygwin ARG
# Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
# Returns result in func_to_host_file_result.
func_convert_file_msys_to_cygwin ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_msys_to_w32 "$1"
func_cygpath -u "$func_convert_core_msys_to_w32_result"
func_to_host_file_result="$func_cygpath_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_msys_to_cygwin
# func_convert_file_nix_to_cygwin ARG
# Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed
# in a wine environment, working winepath, and LT_CYGPATH set. Returns result
# in func_to_host_file_result.
func_convert_file_nix_to_cygwin ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
# convert from *nix to w32, then use cygpath to convert from w32 to cygwin.
func_convert_core_file_wine_to_w32 "$1"
func_cygpath -u "$func_convert_core_file_wine_to_w32_result"
func_to_host_file_result="$func_cygpath_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_nix_to_cygwin
#############################################
# $build to $host PATH CONVERSION FUNCTIONS #
#############################################
# invoked via `$to_host_path_cmd ARG'
#
# In each case, ARG is the path to be converted from $build to $host format.
# The result will be available in $func_to_host_path_result.
#
# Path separators are also converted from $build format to $host format. If
# ARG begins or ends with a path separator character, it is preserved (but
# converted to $host format) on output.
#
# All path conversion functions are named using the following convention:
# file name conversion function : func_convert_file_X_to_Y ()
# path conversion function : func_convert_path_X_to_Y ()
# where, for any given $build/$host combination the 'X_to_Y' value is the
# same. If conversion functions are added for new $build/$host combinations,
# the two new functions must follow this pattern, or func_init_to_host_path_cmd
# will break.
# func_init_to_host_path_cmd
# Ensures that function "pointer" variable $to_host_path_cmd is set to the
# appropriate value, based on the value of $to_host_file_cmd.
to_host_path_cmd=
func_init_to_host_path_cmd ()
{
$opt_debug
if test -z "$to_host_path_cmd"; then
func_stripname 'func_convert_file_' '' "$to_host_file_cmd"
to_host_path_cmd="func_convert_path_${func_stripname_result}"
fi
}
# func_to_host_path ARG
# Converts the path ARG from $build format to $host format. Return result
# in func_to_host_path_result.
func_to_host_path ()
{
$opt_debug
func_init_to_host_path_cmd
$to_host_path_cmd "$1"
}
# end func_to_host_path
# func_convert_path_noop ARG
# Copy ARG to func_to_host_path_result.
func_convert_path_noop ()
{
func_to_host_path_result="$1"
}
# end func_convert_path_noop
# func_convert_path_msys_to_w32 ARG
# Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic
# conversion to w32 is not available inside the cwrapper. Returns result in
# func_to_host_path_result.
func_convert_path_msys_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# Remove leading and trailing path separator characters from ARG. MSYS
# behavior is inconsistent here; cygpath turns them into '.;' and ';.';
# and winepath ignores them completely.
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
func_to_host_path_result="$func_convert_core_msys_to_w32_result"
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_msys_to_w32
# func_convert_path_cygwin_to_w32 ARG
# Convert path ARG from Cygwin to w32 format. Returns result in
# func_to_host_file_result.
func_convert_path_cygwin_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"`
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_cygwin_to_w32
# func_convert_path_nix_to_w32 ARG
# Convert path ARG from *nix to w32 format. Requires a wine environment and
# a working winepath. Returns result in func_to_host_file_result.
func_convert_path_nix_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
func_to_host_path_result="$func_convert_core_path_wine_to_w32_result"
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_nix_to_w32
# func_convert_path_msys_to_cygwin ARG
# Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
# Returns result in func_to_host_file_result.
func_convert_path_msys_to_cygwin ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
func_cygpath -u -p "$func_convert_core_msys_to_w32_result"
func_to_host_path_result="$func_cygpath_result"
func_convert_path_check : : \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" : "$1"
fi
}
# end func_convert_path_msys_to_cygwin
# func_convert_path_nix_to_cygwin ARG
# Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a
# a wine environment, working winepath, and LT_CYGPATH set. Returns result in
# func_to_host_file_result.
func_convert_path_nix_to_cygwin ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# Remove leading and trailing path separator characters from
# ARG. msys behavior is inconsistent here, cygpath turns them
# into '.;' and ';.', and winepath ignores them completely.
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result"
func_to_host_path_result="$func_cygpath_result"
func_convert_path_check : : \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" : "$1"
fi
}
# end func_convert_path_nix_to_cygwin
# func_mode_compile arg...
func_mode_compile ()
{
$opt_debug
# Get the compilation command and the source file.
base_compile=
srcfile="$nonopt" # always keep a non-empty value in "srcfile"
suppress_opt=yes
suppress_output=
arg_mode=normal
libobj=
later=
pie_flag=
for arg
do
case $arg_mode in
arg )
# do not "continue". Instead, add this to base_compile
lastarg="$arg"
arg_mode=normal
;;
target )
libobj="$arg"
arg_mode=normal
continue
;;
normal )
# Accept any command-line options.
case $arg in
-o)
test -n "$libobj" && \
func_fatal_error "you cannot specify \`-o' more than once"
arg_mode=target
continue
;;
-pie | -fpie | -fPIE)
func_append pie_flag " $arg"
continue
;;
-shared | -static | -prefer-pic | -prefer-non-pic)
func_append later " $arg"
continue
;;
-no-suppress)
suppress_opt=no
continue
;;
-Xcompiler)
arg_mode=arg # the next one goes into the "base_compile" arg list
continue # The current "srcfile" will either be retained or
;; # replaced later. I would guess that would be a bug.
-Wc,*)
func_stripname '-Wc,' '' "$arg"
args=$func_stripname_result
lastarg=
save_ifs="$IFS"; IFS=','
for arg in $args; do
IFS="$save_ifs"
func_append_quoted lastarg "$arg"
done
IFS="$save_ifs"
func_stripname ' ' '' "$lastarg"
lastarg=$func_stripname_result
# Add the arguments to base_compile.
func_append base_compile " $lastarg"
continue
;;
*)
# Accept the current argument as the source file.
# The previous "srcfile" becomes the current argument.
#
lastarg="$srcfile"
srcfile="$arg"
;;
esac # case $arg
;;
esac # case $arg_mode
# Aesthetically quote the previous argument.
func_append_quoted base_compile "$lastarg"
done # for arg
case $arg_mode in
arg)
func_fatal_error "you must specify an argument for -Xcompile"
;;
target)
func_fatal_error "you must specify a target with \`-o'"
;;
*)
# Get the name of the library object.
test -z "$libobj" && {
func_basename "$srcfile"
libobj="$func_basename_result"
}
;;
esac
# Recognize several different file suffixes.
# If the user specifies -o file.o, it is replaced with file.lo
case $libobj in
*.[cCFSifmso] | \
*.ada | *.adb | *.ads | *.asm | \
*.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \
- *.[fF][09]? | *.for | *.java | *.obj | *.sx | *.cu | *.cup)
+ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup)
func_xform "$libobj"
libobj=$func_xform_result
;;
esac
case $libobj in
*.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;;
*)
func_fatal_error "cannot determine name of library object from \`$libobj'"
;;
esac
func_infer_tag $base_compile
for arg in $later; do
case $arg in
-shared)
test "$build_libtool_libs" != yes && \
func_fatal_configuration "can not build a shared library"
build_old_libs=no
continue
;;
-static)
build_libtool_libs=no
build_old_libs=yes
continue
;;
-prefer-pic)
pic_mode=yes
continue
;;
-prefer-non-pic)
pic_mode=no
continue
;;
esac
done
func_quote_for_eval "$libobj"
test "X$libobj" != "X$func_quote_for_eval_result" \
&& $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \
&& func_warning "libobj name \`$libobj' may not contain shell special characters."
func_dirname_and_basename "$obj" "/" ""
objname="$func_basename_result"
xdir="$func_dirname_result"
lobj=${xdir}$objdir/$objname
test -z "$base_compile" && \
func_fatal_help "you must specify a compilation command"
# Delete any leftover library objects.
if test "$build_old_libs" = yes; then
removelist="$obj $lobj $libobj ${libobj}T"
else
removelist="$lobj $libobj ${libobj}T"
fi
# On Cygwin there's no "real" PIC flag so we must build both object types
case $host_os in
cygwin* | mingw* | pw32* | os2* | cegcc*)
pic_mode=default
;;
esac
if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then
# non-PIC code in shared libraries is not supported
pic_mode=default
fi
# Calculate the filename of the output object if compiler does
# not support -o with -c
if test "$compiler_c_o" = no; then
output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext}
lockfile="$output_obj.lock"
else
output_obj=
need_locks=no
lockfile=
fi
# Lock this critical section if it is needed
# We use this script file to make the link, it avoids creating a new file
if test "$need_locks" = yes; then
until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
func_echo "Waiting for $lockfile to be removed"
sleep 2
done
elif test "$need_locks" = warn; then
if test -f "$lockfile"; then
$ECHO "\
*** ERROR, $lockfile exists and contains:
`cat $lockfile 2>/dev/null`
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
func_append removelist " $output_obj"
$ECHO "$srcfile" > "$lockfile"
fi
$opt_dry_run || $RM $removelist
func_append removelist " $lockfile"
trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15
func_to_tool_file "$srcfile" func_convert_file_msys_to_w32
srcfile=$func_to_tool_file_result
func_quote_for_eval "$srcfile"
qsrcfile=$func_quote_for_eval_result
# Only build a PIC object if we are building libtool libraries.
if test "$build_libtool_libs" = yes; then
# Without this assignment, base_compile gets emptied.
fbsd_hideous_sh_bug=$base_compile
if test "$pic_mode" != no; then
command="$base_compile $qsrcfile $pic_flag"
else
# Don't build PIC code
command="$base_compile $qsrcfile"
fi
func_mkdir_p "$xdir$objdir"
if test -z "$output_obj"; then
# Place PIC objects in $objdir
func_append command " -o $lobj"
fi
func_show_eval_locale "$command" \
'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE'
if test "$need_locks" = warn &&
test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
$ECHO "\
*** ERROR, $lockfile contains:
`cat $lockfile 2>/dev/null`
but it should contain:
$srcfile
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
# Just move the object if needed, then go on to compile the next one
if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then
func_show_eval '$MV "$output_obj" "$lobj"' \
'error=$?; $opt_dry_run || $RM $removelist; exit $error'
fi
# Allow error messages only from the first compilation.
if test "$suppress_opt" = yes; then
suppress_output=' >/dev/null 2>&1'
fi
fi
# Only build a position-dependent object if we build old libraries.
if test "$build_old_libs" = yes; then
if test "$pic_mode" != yes; then
# Don't build PIC code
command="$base_compile $qsrcfile$pie_flag"
else
command="$base_compile $qsrcfile $pic_flag"
fi
if test "$compiler_c_o" = yes; then
func_append command " -o $obj"
fi
# Suppress compiler output if we already did a PIC compilation.
func_append command "$suppress_output"
func_show_eval_locale "$command" \
'$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE'
if test "$need_locks" = warn &&
test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
$ECHO "\
*** ERROR, $lockfile contains:
`cat $lockfile 2>/dev/null`
but it should contain:
$srcfile
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
# Just move the object if needed
if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then
func_show_eval '$MV "$output_obj" "$obj"' \
'error=$?; $opt_dry_run || $RM $removelist; exit $error'
fi
fi
$opt_dry_run || {
func_write_libtool_object "$libobj" "$objdir/$objname" "$objname"
# Unlock the critical section if it was locked
if test "$need_locks" != no; then
removelist=$lockfile
$RM "$lockfile"
fi
}
exit $EXIT_SUCCESS
}
$opt_help || {
test "$opt_mode" = compile && func_mode_compile ${1+"$@"}
}
func_mode_help ()
{
# We need to display help for each of the modes.
case $opt_mode in
"")
# Generic help is extracted from the usage comments
# at the start of this file.
func_help
;;
clean)
$ECHO \
"Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE...
Remove files from the build directory.
RM is the name of the program to use to delete files associated with each FILE
(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
to RM.
If FILE is a libtool library, object or program, all the files associated
with it are deleted. Otherwise, only FILE itself is deleted using RM."
;;
compile)
$ECHO \
"Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE
Compile a source file into a libtool library object.
This mode accepts the following additional options:
-o OUTPUT-FILE set the output file name to OUTPUT-FILE
-no-suppress do not suppress compiler output for multiple passes
-prefer-pic try to build PIC objects only
-prefer-non-pic try to build non-PIC objects only
-shared do not build a \`.o' file suitable for static linking
-static only build a \`.o' file suitable for static linking
-Wc,FLAG pass FLAG directly to the compiler
COMPILE-COMMAND is a command to be used in creating a \`standard' object file
from the given SOURCEFILE.
The output file name is determined by removing the directory component from
SOURCEFILE, then substituting the C source code suffix \`.c' with the
library object suffix, \`.lo'."
;;
execute)
$ECHO \
"Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]...
Automatically set library path, then run a program.
This mode accepts the following additional options:
-dlopen FILE add the directory containing FILE to the library path
This mode sets the library path environment variable according to \`-dlopen'
flags.
If any of the ARGS are libtool executable wrappers, then they are translated
into their corresponding uninstalled binary, and any of their required library
directories are added to the library path.
Then, COMMAND is executed, with ARGS as arguments."
;;
finish)
$ECHO \
"Usage: $progname [OPTION]... --mode=finish [LIBDIR]...
Complete the installation of libtool libraries.
Each LIBDIR is a directory that contains libtool libraries.
The commands that this mode executes may require superuser privileges. Use
the \`--dry-run' option if you just want to see what would be executed."
;;
install)
$ECHO \
"Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND...
Install executables or libraries.
INSTALL-COMMAND is the installation command. The first component should be
either the \`install' or \`cp' program.
The following components of INSTALL-COMMAND are treated specially:
-inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation
The rest of the components are interpreted as arguments to that command (only
BSD-compatible install options are recognized)."
;;
link)
$ECHO \
"Usage: $progname [OPTION]... --mode=link LINK-COMMAND...
Link object files or libraries together to form another library, or to
create an executable program.
LINK-COMMAND is a command using the C compiler that you would use to create
a program from several object files.
The following components of LINK-COMMAND are treated specially:
-all-static do not do any dynamic linking at all
-avoid-version do not add a version suffix if possible
-bindir BINDIR specify path to binaries directory (for systems where
libraries must be found in the PATH setting at runtime)
-dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime
-dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols
-export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3)
-export-symbols SYMFILE
try to export only the symbols listed in SYMFILE
-export-symbols-regex REGEX
try to export only the symbols matching REGEX
-LLIBDIR search LIBDIR for required installed libraries
-lNAME OUTPUT-FILE requires the installed library libNAME
-module build a library that can dlopened
-no-fast-install disable the fast-install mode
-no-install link a not-installable executable
-no-undefined declare that a library does not refer to external symbols
-o OUTPUT-FILE create OUTPUT-FILE from the specified objects
-objectlist FILE Use a list of object files found in FILE to specify objects
-precious-files-regex REGEX
don't remove output files matching REGEX
-release RELEASE specify package release information
-rpath LIBDIR the created library will eventually be installed in LIBDIR
-R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries
-shared only do dynamic linking of libtool libraries
-shrext SUFFIX override the standard shared library file extension
-static do not do any dynamic linking of uninstalled libtool libraries
-static-libtool-libs
do not do any dynamic linking of libtool libraries
-version-info CURRENT[:REVISION[:AGE]]
specify library version info [each variable defaults to 0]
-weak LIBNAME declare that the target provides the LIBNAME interface
-Wc,FLAG
-Xcompiler FLAG pass linker-specific FLAG directly to the compiler
-Wl,FLAG
-Xlinker FLAG pass linker-specific FLAG directly to the linker
-XCClinker FLAG pass link-specific FLAG to the compiler driver (CC)
All other options (arguments beginning with \`-') are ignored.
Every other argument is treated as a filename. Files ending in \`.la' are
treated as uninstalled libtool libraries, other files are standard or library
object files.
If the OUTPUT-FILE ends in \`.la', then a libtool library is created,
only library objects (\`.lo' files) may be specified, and \`-rpath' is
required, except when creating a convenience library.
If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created
using \`ar' and \`ranlib', or on Windows using \`lib'.
If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file
is created, otherwise an executable program is created."
;;
uninstall)
$ECHO \
"Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE...
Remove libraries from an installation directory.
RM is the name of the program to use to delete files associated with each FILE
(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
to RM.
If FILE is a libtool library, all the files associated with it are deleted.
Otherwise, only FILE itself is deleted using RM."
;;
*)
func_fatal_help "invalid operation mode \`$opt_mode'"
;;
esac
echo
$ECHO "Try \`$progname --help' for more information about other modes."
}
# Now that we've collected a possible --mode arg, show help if necessary
if $opt_help; then
if test "$opt_help" = :; then
func_mode_help
else
{
func_help noexit
for opt_mode in compile link execute install finish uninstall clean; do
func_mode_help
done
} | sed -n '1p; 2,$s/^Usage:/ or: /p'
{
func_help noexit
for opt_mode in compile link execute install finish uninstall clean; do
echo
func_mode_help
done
} |
sed '1d
/^When reporting/,/^Report/{
H
d
}
$x
/information about other modes/d
/more detailed .*MODE/d
s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/'
fi
exit $?
fi
# func_mode_execute arg...
func_mode_execute ()
{
$opt_debug
# The first argument is the command name.
cmd="$nonopt"
test -z "$cmd" && \
func_fatal_help "you must specify a COMMAND"
# Handle -dlopen flags immediately.
for file in $opt_dlopen; do
test -f "$file" \
|| func_fatal_help "\`$file' is not a file"
dir=
case $file in
*.la)
func_resolve_sysroot "$file"
file=$func_resolve_sysroot_result
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$file" \
|| func_fatal_help "\`$lib' is not a valid libtool archive"
# Read the libtool library.
dlname=
library_names=
func_source "$file"
# Skip this library if it cannot be dlopened.
if test -z "$dlname"; then
# Warn if it was a shared library.
test -n "$library_names" && \
func_warning "\`$file' was not linked with \`-export-dynamic'"
continue
fi
func_dirname "$file" "" "."
dir="$func_dirname_result"
if test -f "$dir/$objdir/$dlname"; then
func_append dir "/$objdir"
else
if test ! -f "$dir/$dlname"; then
func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'"
fi
fi
;;
*.lo)
# Just add the directory containing the .lo file.
func_dirname "$file" "" "."
dir="$func_dirname_result"
;;
*)
func_warning "\`-dlopen' is ignored for non-libtool libraries and objects"
continue
;;
esac
# Get the absolute pathname.
absdir=`cd "$dir" && pwd`
test -n "$absdir" && dir="$absdir"
# Now add the directory to shlibpath_var.
if eval "test -z \"\$$shlibpath_var\""; then
eval "$shlibpath_var=\"\$dir\""
else
eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\""
fi
done
# This variable tells wrapper scripts just to set shlibpath_var
# rather than running their programs.
libtool_execute_magic="$magic"
# Check if any of the arguments is a wrapper script.
args=
for file
do
case $file in
-* | *.la | *.lo ) ;;
*)
# Do a test to see if this is really a libtool program.
if func_ltwrapper_script_p "$file"; then
func_source "$file"
# Transform arg to wrapped name.
file="$progdir/$program"
elif func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
func_source "$func_ltwrapper_scriptname_result"
# Transform arg to wrapped name.
file="$progdir/$program"
fi
;;
esac
# Quote arguments (to preserve shell metacharacters).
func_append_quoted args "$file"
done
if test "X$opt_dry_run" = Xfalse; then
if test -n "$shlibpath_var"; then
# Export the shlibpath_var.
eval "export $shlibpath_var"
fi
# Restore saved environment variables
for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
do
eval "if test \"\${save_$lt_var+set}\" = set; then
$lt_var=\$save_$lt_var; export $lt_var
else
$lt_unset $lt_var
fi"
done
# Now prepare to actually exec the command.
exec_cmd="\$cmd$args"
else
# Display what would be done.
if test -n "$shlibpath_var"; then
eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\""
echo "export $shlibpath_var"
fi
$ECHO "$cmd$args"
exit $EXIT_SUCCESS
fi
}
test "$opt_mode" = execute && func_mode_execute ${1+"$@"}
# func_mode_finish arg...
func_mode_finish ()
{
$opt_debug
libs=
libdirs=
admincmds=
for opt in "$nonopt" ${1+"$@"}
do
if test -d "$opt"; then
func_append libdirs " $opt"
elif test -f "$opt"; then
if func_lalib_unsafe_p "$opt"; then
func_append libs " $opt"
else
func_warning "\`$opt' is not a valid libtool archive"
fi
else
func_fatal_error "invalid argument \`$opt'"
fi
done
if test -n "$libs"; then
if test -n "$lt_sysroot"; then
sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"`
sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;"
else
sysroot_cmd=
fi
# Remove sysroot references
if $opt_dry_run; then
for lib in $libs; do
echo "removing references to $lt_sysroot and \`=' prefixes from $lib"
done
else
tmpdir=`func_mktempdir`
for lib in $libs; do
sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \
> $tmpdir/tmp-la
mv -f $tmpdir/tmp-la $lib
done
${RM}r "$tmpdir"
fi
fi
if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
for libdir in $libdirs; do
if test -n "$finish_cmds"; then
# Do each command in the finish commands.
func_execute_cmds "$finish_cmds" 'admincmds="$admincmds
'"$cmd"'"'
fi
if test -n "$finish_eval"; then
# Do the single finish_eval.
eval cmds=\"$finish_eval\"
$opt_dry_run || eval "$cmds" || func_append admincmds "
$cmds"
fi
done
fi
# Exit here if they wanted silent mode.
$opt_silent && exit $EXIT_SUCCESS
if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
echo "----------------------------------------------------------------------"
echo "Libraries have been installed in:"
for libdir in $libdirs; do
$ECHO " $libdir"
done
echo
echo "If you ever happen to want to link against installed libraries"
echo "in a given directory, LIBDIR, you must either use libtool, and"
echo "specify the full pathname of the library, or use the \`-LLIBDIR'"
echo "flag during linking and do at least one of the following:"
if test -n "$shlibpath_var"; then
echo " - add LIBDIR to the \`$shlibpath_var' environment variable"
echo " during execution"
fi
if test -n "$runpath_var"; then
echo " - add LIBDIR to the \`$runpath_var' environment variable"
echo " during linking"
fi
if test -n "$hardcode_libdir_flag_spec"; then
libdir=LIBDIR
eval flag=\"$hardcode_libdir_flag_spec\"
$ECHO " - use the \`$flag' linker flag"
fi
if test -n "$admincmds"; then
$ECHO " - have your system administrator run these commands:$admincmds"
fi
if test -f /etc/ld.so.conf; then
echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'"
fi
echo
echo "See any operating system documentation about shared libraries for"
case $host in
solaris2.[6789]|solaris2.1[0-9])
echo "more information, such as the ld(1), crle(1) and ld.so(8) manual"
echo "pages."
;;
*)
echo "more information, such as the ld(1) and ld.so(8) manual pages."
;;
esac
echo "----------------------------------------------------------------------"
fi
exit $EXIT_SUCCESS
}
test "$opt_mode" = finish && func_mode_finish ${1+"$@"}
# func_mode_install arg...
func_mode_install ()
{
$opt_debug
# There may be an optional sh(1) argument at the beginning of
# install_prog (especially on Windows NT).
if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh ||
# Allow the use of GNU shtool's install command.
case $nonopt in *shtool*) :;; *) false;; esac; then
# Aesthetically quote it.
func_quote_for_eval "$nonopt"
install_prog="$func_quote_for_eval_result "
arg=$1
shift
else
install_prog=
arg=$nonopt
fi
# The real first argument should be the name of the installation program.
# Aesthetically quote it.
func_quote_for_eval "$arg"
func_append install_prog "$func_quote_for_eval_result"
install_shared_prog=$install_prog
case " $install_prog " in
*[\\\ /]cp\ *) install_cp=: ;;
*) install_cp=false ;;
esac
# We need to accept at least all the BSD install flags.
dest=
files=
opts=
prev=
install_type=
isdir=no
stripme=
no_mode=:
for arg
do
arg2=
if test -n "$dest"; then
func_append files " $dest"
dest=$arg
continue
fi
case $arg in
-d) isdir=yes ;;
-f)
if $install_cp; then :; else
prev=$arg
fi
;;
-g | -m | -o)
prev=$arg
;;
-s)
stripme=" -s"
continue
;;
-*)
;;
*)
# If the previous option needed an argument, then skip it.
if test -n "$prev"; then
if test "x$prev" = x-m && test -n "$install_override_mode"; then
arg2=$install_override_mode
no_mode=false
fi
prev=
else
dest=$arg
continue
fi
;;
esac
# Aesthetically quote the argument.
func_quote_for_eval "$arg"
func_append install_prog " $func_quote_for_eval_result"
if test -n "$arg2"; then
func_quote_for_eval "$arg2"
fi
func_append install_shared_prog " $func_quote_for_eval_result"
done
test -z "$install_prog" && \
func_fatal_help "you must specify an install program"
test -n "$prev" && \
func_fatal_help "the \`$prev' option requires an argument"
if test -n "$install_override_mode" && $no_mode; then
if $install_cp; then :; else
func_quote_for_eval "$install_override_mode"
func_append install_shared_prog " -m $func_quote_for_eval_result"
fi
fi
if test -z "$files"; then
if test -z "$dest"; then
func_fatal_help "no file or destination specified"
else
func_fatal_help "you must specify a destination"
fi
fi
# Strip any trailing slash from the destination.
func_stripname '' '/' "$dest"
dest=$func_stripname_result
# Check to see that the destination is a directory.
test -d "$dest" && isdir=yes
if test "$isdir" = yes; then
destdir="$dest"
destname=
else
func_dirname_and_basename "$dest" "" "."
destdir="$func_dirname_result"
destname="$func_basename_result"
# Not a directory, so check to see that there is only one file specified.
set dummy $files; shift
test "$#" -gt 1 && \
func_fatal_help "\`$dest' is not a directory"
fi
case $destdir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
for file in $files; do
case $file in
*.lo) ;;
*)
func_fatal_help "\`$destdir' must be an absolute directory name"
;;
esac
done
;;
esac
# This variable tells wrapper scripts just to set variables rather
# than running their programs.
libtool_install_magic="$magic"
staticlibs=
future_libdirs=
current_libdirs=
for file in $files; do
# Do each installation.
case $file in
*.$libext)
# Do the static libraries later.
func_append staticlibs " $file"
;;
*.la)
func_resolve_sysroot "$file"
file=$func_resolve_sysroot_result
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$file" \
|| func_fatal_help "\`$file' is not a valid libtool archive"
library_names=
old_library=
relink_command=
func_source "$file"
# Add the libdir to current_libdirs if it is the destination.
if test "X$destdir" = "X$libdir"; then
case "$current_libdirs " in
*" $libdir "*) ;;
*) func_append current_libdirs " $libdir" ;;
esac
else
# Note the libdir as a future libdir.
case "$future_libdirs " in
*" $libdir "*) ;;
*) func_append future_libdirs " $libdir" ;;
esac
fi
func_dirname "$file" "/" ""
dir="$func_dirname_result"
func_append dir "$objdir"
if test -n "$relink_command"; then
# Determine the prefix the user has applied to our future dir.
inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"`
# Don't allow the user to place us outside of our expected
# location b/c this prevents finding dependent libraries that
# are installed to the same prefix.
# At present, this check doesn't affect windows .dll's that
# are installed into $libdir/../bin (currently, that works fine)
# but it's something to keep an eye on.
test "$inst_prefix_dir" = "$destdir" && \
func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir"
if test -n "$inst_prefix_dir"; then
# Stick the inst_prefix_dir data into the link command.
relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"`
else
relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"`
fi
func_warning "relinking \`$file'"
func_show_eval "$relink_command" \
'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"'
fi
# See the names of the shared library.
set dummy $library_names; shift
if test -n "$1"; then
realname="$1"
shift
srcname="$realname"
test -n "$relink_command" && srcname="$realname"T
# Install the shared library and build the symlinks.
func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \
'exit $?'
tstripme="$stripme"
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
case $realname in
*.dll.a)
tstripme=""
;;
esac
;;
esac
if test -n "$tstripme" && test -n "$striplib"; then
func_show_eval "$striplib $destdir/$realname" 'exit $?'
fi
if test "$#" -gt 0; then
# Delete the old symlinks, and create new ones.
# Try `ln -sf' first, because the `ln' binary might depend on
# the symlink we replace! Solaris /bin/ln does not understand -f,
# so we also need to try rm && ln -s.
for linkname
do
test "$linkname" != "$realname" \
&& func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })"
done
fi
# Do each command in the postinstall commands.
lib="$destdir/$realname"
func_execute_cmds "$postinstall_cmds" 'exit $?'
fi
# Install the pseudo-library for information purposes.
func_basename "$file"
name="$func_basename_result"
instname="$dir/$name"i
func_show_eval "$install_prog $instname $destdir/$name" 'exit $?'
# Maybe install the static library, too.
test -n "$old_library" && func_append staticlibs " $dir/$old_library"
;;
*.lo)
# Install (i.e. copy) a libtool object.
# Figure out destination file name, if it wasn't already specified.
if test -n "$destname"; then
destfile="$destdir/$destname"
else
func_basename "$file"
destfile="$func_basename_result"
destfile="$destdir/$destfile"
fi
# Deduce the name of the destination old-style object file.
case $destfile in
*.lo)
func_lo2o "$destfile"
staticdest=$func_lo2o_result
;;
*.$objext)
staticdest="$destfile"
destfile=
;;
*)
func_fatal_help "cannot copy a libtool object to \`$destfile'"
;;
esac
# Install the libtool object if requested.
test -n "$destfile" && \
func_show_eval "$install_prog $file $destfile" 'exit $?'
# Install the old object if enabled.
if test "$build_old_libs" = yes; then
# Deduce the name of the old-style object file.
func_lo2o "$file"
staticobj=$func_lo2o_result
func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?'
fi
exit $EXIT_SUCCESS
;;
*)
# Figure out destination file name, if it wasn't already specified.
if test -n "$destname"; then
destfile="$destdir/$destname"
else
func_basename "$file"
destfile="$func_basename_result"
destfile="$destdir/$destfile"
fi
# If the file is missing, and there is a .exe on the end, strip it
# because it is most likely a libtool script we actually want to
# install
stripped_ext=""
case $file in
*.exe)
if test ! -f "$file"; then
func_stripname '' '.exe' "$file"
file=$func_stripname_result
stripped_ext=".exe"
fi
;;
esac
# Do a test to see if this is really a libtool program.
case $host in
*cygwin* | *mingw*)
if func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
wrapper=$func_ltwrapper_scriptname_result
else
func_stripname '' '.exe' "$file"
wrapper=$func_stripname_result
fi
;;
*)
wrapper=$file
;;
esac
if func_ltwrapper_script_p "$wrapper"; then
notinst_deplibs=
relink_command=
func_source "$wrapper"
# Check the variables that should have been set.
test -z "$generated_by_libtool_version" && \
func_fatal_error "invalid libtool wrapper script \`$wrapper'"
finalize=yes
for lib in $notinst_deplibs; do
# Check to see that each library is installed.
libdir=
if test -f "$lib"; then
func_source "$lib"
fi
libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test
if test -n "$libdir" && test ! -f "$libfile"; then
func_warning "\`$lib' has not been installed in \`$libdir'"
finalize=no
fi
done
relink_command=
func_source "$wrapper"
outputname=
if test "$fast_install" = no && test -n "$relink_command"; then
$opt_dry_run || {
if test "$finalize" = yes; then
tmpdir=`func_mktempdir`
func_basename "$file$stripped_ext"
file="$func_basename_result"
outputname="$tmpdir/$file"
# Replace the output file specification.
relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'`
$opt_silent || {
func_quote_for_expand "$relink_command"
eval "func_echo $func_quote_for_expand_result"
}
if eval "$relink_command"; then :
else
func_error "error: relink \`$file' with the above command before installing it"
$opt_dry_run || ${RM}r "$tmpdir"
continue
fi
file="$outputname"
else
func_warning "cannot relink \`$file'"
fi
}
else
# Install the binary that we compiled earlier.
file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"`
fi
fi
# remove .exe since cygwin /usr/bin/install will append another
# one anyway
case $install_prog,$host in
*/usr/bin/install*,*cygwin*)
case $file:$destfile in
*.exe:*.exe)
# this is ok
;;
*.exe:*)
destfile=$destfile.exe
;;
*:*.exe)
func_stripname '' '.exe' "$destfile"
destfile=$func_stripname_result
;;
esac
;;
esac
func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?'
$opt_dry_run || if test -n "$outputname"; then
${RM}r "$tmpdir"
fi
;;
esac
done
for file in $staticlibs; do
func_basename "$file"
name="$func_basename_result"
# Set up the ranlib parameters.
oldlib="$destdir/$name"
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
func_show_eval "$install_prog \$file \$oldlib" 'exit $?'
if test -n "$stripme" && test -n "$old_striplib"; then
- func_show_eval "$old_striplib $oldlib" 'exit $?'
+ func_show_eval "$old_striplib $tool_oldlib" 'exit $?'
fi
# Do each command in the postinstall commands.
func_execute_cmds "$old_postinstall_cmds" 'exit $?'
done
test -n "$future_libdirs" && \
func_warning "remember to run \`$progname --finish$future_libdirs'"
if test -n "$current_libdirs"; then
# Maybe just do a dry run.
$opt_dry_run && current_libdirs=" -n$current_libdirs"
exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs'
else
exit $EXIT_SUCCESS
fi
}
test "$opt_mode" = install && func_mode_install ${1+"$@"}
# func_generate_dlsyms outputname originator pic_p
# Extract symbols from dlprefiles and create ${outputname}S.o with
# a dlpreopen symbol table.
func_generate_dlsyms ()
{
$opt_debug
my_outputname="$1"
my_originator="$2"
my_pic_p="${3-no}"
my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'`
my_dlsyms=
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
if test -n "$NM" && test -n "$global_symbol_pipe"; then
my_dlsyms="${my_outputname}S.c"
else
func_error "not configured to extract global symbols from dlpreopened files"
fi
fi
if test -n "$my_dlsyms"; then
case $my_dlsyms in
"") ;;
*.c)
# Discover the nlist of each of the dlfiles.
nlist="$output_objdir/${my_outputname}.nm"
func_show_eval "$RM $nlist ${nlist}S ${nlist}T"
# Parse the name list into a source file.
func_verbose "creating $output_objdir/$my_dlsyms"
$opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\
/* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */
/* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */
#ifdef __cplusplus
extern \"C\" {
#endif
#if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4))
#pragma GCC diagnostic ignored \"-Wstrict-prototypes\"
#endif
/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
#if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE)
/* DATA imports from DLLs on WIN32 con't be const, because runtime
relocations are performed -- see ld's documentation on pseudo-relocs. */
# define LT_DLSYM_CONST
#elif defined(__osf__)
/* This system does not cope well with relocations in const data. */
# define LT_DLSYM_CONST
#else
# define LT_DLSYM_CONST const
#endif
/* External symbol declarations for the compiler. */\
"
if test "$dlself" = yes; then
func_verbose "generating symbol list for \`$output'"
$opt_dry_run || echo ': @PROGRAM@ ' > "$nlist"
# Add our own program objects to the symbol list.
progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP`
for progfile in $progfiles; do
func_to_tool_file "$progfile" func_convert_file_msys_to_w32
func_verbose "extracting global C symbols from \`$func_to_tool_file_result'"
$opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'"
done
if test -n "$exclude_expsyms"; then
$opt_dry_run || {
eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
}
fi
if test -n "$export_symbols_regex"; then
$opt_dry_run || {
eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
}
fi
# Prepare the list of exported symbols
if test -z "$export_symbols"; then
export_symbols="$output_objdir/$outputname.exp"
$opt_dry_run || {
$RM $export_symbols
eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"'
case $host in
*cygwin* | *mingw* | *cegcc* )
eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"'
;;
esac
}
else
$opt_dry_run || {
eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"'
eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
case $host in
*cygwin* | *mingw* | *cegcc* )
eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
eval 'cat "$nlist" >> "$output_objdir/$outputname.def"'
;;
esac
}
fi
fi
for dlprefile in $dlprefiles; do
func_verbose "extracting global C symbols from \`$dlprefile'"
func_basename "$dlprefile"
name="$func_basename_result"
case $host in
*cygwin* | *mingw* | *cegcc* )
# if an import library, we need to obtain dlname
if func_win32_import_lib_p "$dlprefile"; then
func_tr_sh "$dlprefile"
eval "curr_lafile=\$libfile_$func_tr_sh_result"
dlprefile_dlbasename=""
if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then
# Use subshell, to avoid clobbering current variable values
dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"`
if test -n "$dlprefile_dlname" ; then
func_basename "$dlprefile_dlname"
dlprefile_dlbasename="$func_basename_result"
else
# no lafile. user explicitly requested -dlpreopen <import library>.
$sharedlib_from_linklib_cmd "$dlprefile"
dlprefile_dlbasename=$sharedlib_from_linklib_result
fi
fi
$opt_dry_run || {
if test -n "$dlprefile_dlbasename" ; then
eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"'
else
func_warning "Could not compute DLL name from $name"
eval '$ECHO ": $name " >> "$nlist"'
fi
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe |
$SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'"
}
else # not an import lib
$opt_dry_run || {
eval '$ECHO ": $name " >> "$nlist"'
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
}
fi
;;
*)
$opt_dry_run || {
eval '$ECHO ": $name " >> "$nlist"'
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
}
;;
esac
done
$opt_dry_run || {
# Make sure we have at least an empty file.
test -f "$nlist" || : > "$nlist"
if test -n "$exclude_expsyms"; then
$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T
$MV "$nlist"T "$nlist"
fi
# Try sorting and uniquifying the output.
if $GREP -v "^: " < "$nlist" |
if sort -k 3 </dev/null >/dev/null 2>&1; then
sort -k 3
else
sort +2
fi |
uniq > "$nlist"S; then
:
else
$GREP -v "^: " < "$nlist" > "$nlist"S
fi
if test -f "$nlist"S; then
eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"'
else
echo '/* NONE */' >> "$output_objdir/$my_dlsyms"
fi
echo >> "$output_objdir/$my_dlsyms" "\
/* The mapping between symbol names and symbols. */
typedef struct {
const char *name;
void *address;
} lt_dlsymlist;
extern LT_DLSYM_CONST lt_dlsymlist
lt_${my_prefix}_LTX_preloaded_symbols[];
LT_DLSYM_CONST lt_dlsymlist
lt_${my_prefix}_LTX_preloaded_symbols[] =
{\
{ \"$my_originator\", (void *) 0 },"
case $need_lib_prefix in
no)
eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms"
;;
*)
eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms"
;;
esac
echo >> "$output_objdir/$my_dlsyms" "\
{0, (void *) 0}
};
/* This works around a problem in FreeBSD linker */
#ifdef FREEBSD_WORKAROUND
static const void *lt_preloaded_setup() {
return lt_${my_prefix}_LTX_preloaded_symbols;
}
#endif
#ifdef __cplusplus
}
#endif\
"
} # !$opt_dry_run
pic_flag_for_symtable=
case "$compile_command " in
*" -static "*) ;;
*)
case $host in
# compiling the symbol table file with pic_flag works around
# a FreeBSD bug that causes programs to crash when -lm is
# linked before any other PIC object. But we must not use
# pic_flag when linking with -static. The problem exists in
# FreeBSD 2.2.6 and is fixed in FreeBSD 3.1.
- *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
+ *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;;
*-*-hpux*)
pic_flag_for_symtable=" $pic_flag" ;;
*)
if test "X$my_pic_p" != Xno; then
pic_flag_for_symtable=" $pic_flag"
fi
;;
esac
;;
esac
symtab_cflags=
for arg in $LTCFLAGS; do
case $arg in
-pie | -fpie | -fPIE) ;;
*) func_append symtab_cflags " $arg" ;;
esac
done
# Now compile the dynamic symbol file.
func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?'
# Clean up the generated files.
func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"'
# Transform the symbol file into the correct name.
symfileobj="$output_objdir/${my_outputname}S.$objext"
case $host in
*cygwin* | *mingw* | *cegcc* )
if test -f "$output_objdir/$my_outputname.def"; then
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
else
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
fi
;;
*)
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
;;
esac
;;
*)
func_fatal_error "unknown suffix for \`$my_dlsyms'"
;;
esac
else
# We keep going just in case the user didn't refer to
# lt_preloaded_symbols. The linker will fail if global_symbol_pipe
# really was required.
# Nullify the symbol file.
compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"`
fi
}
# func_win32_libid arg
# return the library type of file 'arg'
#
# Need a lot of goo to handle *both* DLLs and import libs
# Has to be a shell function in order to 'eat' the argument
# that is supplied when $file_magic_command is called.
# Despite the name, also deal with 64 bit binaries.
func_win32_libid ()
{
$opt_debug
win32_libid_type="unknown"
win32_fileres=`file -L $1 2>/dev/null`
case $win32_fileres in
*ar\ archive\ import\ library*) # definitely import
win32_libid_type="x86 archive import"
;;
*ar\ archive*) # could be an import, or static
# Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD.
if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null |
$EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then
func_to_tool_file "$1" func_convert_file_msys_to_w32
win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" |
$SED -n -e '
1,100{
/ I /{
s,.*,import,
p
q
}
}'`
case $win32_nmres in
import*) win32_libid_type="x86 archive import";;
*) win32_libid_type="x86 archive static";;
esac
fi
;;
*DLL*)
win32_libid_type="x86 DLL"
;;
*executable*) # but shell scripts are "executable" too...
case $win32_fileres in
*MS\ Windows\ PE\ Intel*)
win32_libid_type="x86 DLL"
;;
esac
;;
esac
$ECHO "$win32_libid_type"
}
# func_cygming_dll_for_implib ARG
#
# Platform-specific function to extract the
# name of the DLL associated with the specified
# import library ARG.
# Invoked by eval'ing the libtool variable
# $sharedlib_from_linklib_cmd
# Result is available in the variable
# $sharedlib_from_linklib_result
func_cygming_dll_for_implib ()
{
$opt_debug
sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"`
}
# func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs
#
# The is the core of a fallback implementation of a
# platform-specific function to extract the name of the
# DLL associated with the specified import library LIBNAME.
#
# SECTION_NAME is either .idata$6 or .idata$7, depending
# on the platform and compiler that created the implib.
#
# Echos the name of the DLL associated with the
# specified import library.
func_cygming_dll_for_implib_fallback_core ()
{
$opt_debug
match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"`
$OBJDUMP -s --section "$1" "$2" 2>/dev/null |
$SED '/^Contents of section '"$match_literal"':/{
# Place marker at beginning of archive member dllname section
s/.*/====MARK====/
p
d
}
# These lines can sometimes be longer than 43 characters, but
# are always uninteresting
/:[ ]*file format pe[i]\{,1\}-/d
/^In archive [^:]*:/d
# Ensure marker is printed
/^====MARK====/p
# Remove all lines with less than 43 characters
/^.\{43\}/!d
# From remaining lines, remove first 43 characters
s/^.\{43\}//' |
$SED -n '
# Join marker and all lines until next marker into a single line
/^====MARK====/ b para
H
$ b para
b
:para
x
s/\n//g
# Remove the marker
s/^====MARK====//
# Remove trailing dots and whitespace
s/[\. \t]*$//
# Print
/./p' |
# we now have a list, one entry per line, of the stringified
# contents of the appropriate section of all members of the
# archive which possess that section. Heuristic: eliminate
# all those which have a first or second character that is
# a '.' (that is, objdump's representation of an unprintable
# character.) This should work for all archives with less than
# 0x302f exports -- but will fail for DLLs whose name actually
# begins with a literal '.' or a single character followed by
# a '.'.
#
# Of those that remain, print the first one.
$SED -e '/^\./d;/^.\./d;q'
}
# func_cygming_gnu_implib_p ARG
# This predicate returns with zero status (TRUE) if
# ARG is a GNU/binutils-style import library. Returns
# with nonzero status (FALSE) otherwise.
func_cygming_gnu_implib_p ()
{
$opt_debug
func_to_tool_file "$1" func_convert_file_msys_to_w32
func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'`
test -n "$func_cygming_gnu_implib_tmp"
}
# func_cygming_ms_implib_p ARG
# This predicate returns with zero status (TRUE) if
# ARG is an MS-style import library. Returns
# with nonzero status (FALSE) otherwise.
func_cygming_ms_implib_p ()
{
$opt_debug
func_to_tool_file "$1" func_convert_file_msys_to_w32
func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'`
test -n "$func_cygming_ms_implib_tmp"
}
# func_cygming_dll_for_implib_fallback ARG
# Platform-specific function to extract the
# name of the DLL associated with the specified
# import library ARG.
#
# This fallback implementation is for use when $DLLTOOL
# does not support the --identify-strict option.
# Invoked by eval'ing the libtool variable
# $sharedlib_from_linklib_cmd
# Result is available in the variable
# $sharedlib_from_linklib_result
func_cygming_dll_for_implib_fallback ()
{
$opt_debug
if func_cygming_gnu_implib_p "$1" ; then
# binutils import library
sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"`
elif func_cygming_ms_implib_p "$1" ; then
# ms-generated import library
sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"`
else
# unknown
sharedlib_from_linklib_result=""
fi
}
# func_extract_an_archive dir oldlib
func_extract_an_archive ()
{
$opt_debug
f_ex_an_ar_dir="$1"; shift
f_ex_an_ar_oldlib="$1"
if test "$lock_old_archive_extraction" = yes; then
lockfile=$f_ex_an_ar_oldlib.lock
until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
func_echo "Waiting for $lockfile to be removed"
sleep 2
done
fi
func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \
'stat=$?; rm -f "$lockfile"; exit $stat'
if test "$lock_old_archive_extraction" = yes; then
$opt_dry_run || rm -f "$lockfile"
fi
if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then
:
else
func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib"
fi
}
# func_extract_archives gentop oldlib ...
func_extract_archives ()
{
$opt_debug
my_gentop="$1"; shift
my_oldlibs=${1+"$@"}
my_oldobjs=""
my_xlib=""
my_xabs=""
my_xdir=""
for my_xlib in $my_oldlibs; do
# Extract the objects.
case $my_xlib in
[\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;;
*) my_xabs=`pwd`"/$my_xlib" ;;
esac
func_basename "$my_xlib"
my_xlib="$func_basename_result"
my_xlib_u=$my_xlib
while :; do
case " $extracted_archives " in
*" $my_xlib_u "*)
func_arith $extracted_serial + 1
extracted_serial=$func_arith_result
my_xlib_u=lt$extracted_serial-$my_xlib ;;
*) break ;;
esac
done
extracted_archives="$extracted_archives $my_xlib_u"
my_xdir="$my_gentop/$my_xlib_u"
func_mkdir_p "$my_xdir"
case $host in
*-darwin*)
func_verbose "Extracting $my_xabs"
# Do not bother doing anything if just a dry run
$opt_dry_run || {
darwin_orig_dir=`pwd`
cd $my_xdir || exit $?
darwin_archive=$my_xabs
darwin_curdir=`pwd`
darwin_base_archive=`basename "$darwin_archive"`
darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true`
if test -n "$darwin_arches"; then
darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'`
darwin_arch=
func_verbose "$darwin_base_archive has multiple architectures $darwin_arches"
for darwin_arch in $darwin_arches ; do
func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}"
$LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}"
cd "unfat-$$/${darwin_base_archive}-${darwin_arch}"
func_extract_an_archive "`pwd`" "${darwin_base_archive}"
cd "$darwin_curdir"
$RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}"
done # $darwin_arches
## Okay now we've a bunch of thin objects, gotta fatten them up :)
darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u`
darwin_file=
darwin_files=
for darwin_file in $darwin_filelist; do
darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP`
$LIPO -create -output "$darwin_file" $darwin_files
done # $darwin_filelist
$RM -rf unfat-$$
cd "$darwin_orig_dir"
else
cd $darwin_orig_dir
func_extract_an_archive "$my_xdir" "$my_xabs"
fi # $darwin_arches
} # !$opt_dry_run
;;
*)
func_extract_an_archive "$my_xdir" "$my_xabs"
;;
esac
my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP`
done
func_extract_archives_result="$my_oldobjs"
}
# func_emit_wrapper [arg=no]
#
# Emit a libtool wrapper script on stdout.
# Don't directly open a file because we may want to
# incorporate the script contents within a cygwin/mingw
# wrapper executable. Must ONLY be called from within
# func_mode_link because it depends on a number of variables
# set therein.
#
# ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR
# variable will take. If 'yes', then the emitted script
# will assume that the directory in which it is stored is
# the $objdir directory. This is a cygwin/mingw-specific
# behavior.
func_emit_wrapper ()
{
func_emit_wrapper_arg1=${1-no}
$ECHO "\
#! $SHELL
# $output - temporary wrapper script for $objdir/$outputname
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# The $output program cannot be directly executed until all the libtool
# libraries that it depends on are installed.
#
# This wrapper script should never be moved out of the build directory.
# If it is, it will not operate correctly.
# Sed substitution that helps us do robust quoting. It backslashifies
# metacharacters that are still active within double-quoted strings.
sed_quote_subst='$sed_quote_subst'
# Be Bourne compatible
if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then
emulate sh
NULLCMD=:
# Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which
# is contrary to our usage. Disable this feature.
alias -g '\${1+\"\$@\"}'='\"\$@\"'
setopt NO_GLOB_SUBST
else
case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac
fi
BIN_SH=xpg4; export BIN_SH # for Tru64
DUALCASE=1; export DUALCASE # for MKS sh
# The HP-UX ksh and POSIX shell print the target directory to stdout
# if CDPATH is set.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
relink_command=\"$relink_command\"
# This environment variable determines our operation mode.
if test \"\$libtool_install_magic\" = \"$magic\"; then
# install mode needs the following variables:
generated_by_libtool_version='$macro_version'
notinst_deplibs='$notinst_deplibs'
else
# When we are sourced in execute mode, \$file and \$ECHO are already set.
if test \"\$libtool_execute_magic\" != \"$magic\"; then
file=\"\$0\""
qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"`
$ECHO "\
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
\$1
_LTECHO_EOF'
}
ECHO=\"$qECHO\"
fi
# Very basic option parsing. These options are (a) specific to
# the libtool wrapper, (b) are identical between the wrapper
# /script/ and the wrapper /executable/ which is used only on
# windows platforms, and (c) all begin with the string "--lt-"
# (application programs are unlikely to have options which match
# this pattern).
#
# There are only two supported options: --lt-debug and
# --lt-dump-script. There is, deliberately, no --lt-help.
#
# The first argument to this parsing function should be the
# script's $0 value, followed by "$@".
lt_option_debug=
func_parse_lt_options ()
{
lt_script_arg0=\$0
shift
for lt_opt
do
case \"\$lt_opt\" in
--lt-debug) lt_option_debug=1 ;;
--lt-dump-script)
lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\`
test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=.
lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\`
cat \"\$lt_dump_D/\$lt_dump_F\"
exit 0
;;
--lt-*)
\$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2
exit 1
;;
esac
done
# Print the debug banner immediately:
if test -n \"\$lt_option_debug\"; then
echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2
fi
}
# Used when --lt-debug. Prints its arguments to stdout
# (redirection is the responsibility of the caller)
func_lt_dump_args ()
{
lt_dump_args_N=1;
for lt_arg
do
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\"
lt_dump_args_N=\`expr \$lt_dump_args_N + 1\`
done
}
# Core function for launching the target application
func_exec_program_core ()
{
"
case $host in
# Backslashes separate directories on plain windows
*-*-mingw | *-*-os2* | *-cegcc*)
$ECHO "\
if test -n \"\$lt_option_debug\"; then
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2
func_lt_dump_args \${1+\"\$@\"} 1>&2
fi
exec \"\$progdir\\\\\$program\" \${1+\"\$@\"}
"
;;
*)
$ECHO "\
if test -n \"\$lt_option_debug\"; then
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2
func_lt_dump_args \${1+\"\$@\"} 1>&2
fi
exec \"\$progdir/\$program\" \${1+\"\$@\"}
"
;;
esac
$ECHO "\
\$ECHO \"\$0: cannot exec \$program \$*\" 1>&2
exit 1
}
# A function to encapsulate launching the target application
# Strips options in the --lt-* namespace from \$@ and
# launches target application with the remaining arguments.
func_exec_program ()
{
- for lt_wr_arg
- do
- case \$lt_wr_arg in
- --lt-*) ;;
- *) set x \"\$@\" \"\$lt_wr_arg\"; shift;;
- esac
- shift
- done
+ case \" \$* \" in
+ *\\ --lt-*)
+ for lt_wr_arg
+ do
+ case \$lt_wr_arg in
+ --lt-*) ;;
+ *) set x \"\$@\" \"\$lt_wr_arg\"; shift;;
+ esac
+ shift
+ done ;;
+ esac
func_exec_program_core \${1+\"\$@\"}
}
# Parse options
func_parse_lt_options \"\$0\" \${1+\"\$@\"}
# Find the directory that this script lives in.
thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\`
test \"x\$thisdir\" = \"x\$file\" && thisdir=.
# Follow symbolic links until we get to the real thisdir.
file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\`
while test -n \"\$file\"; do
destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\`
# If there was a directory component, then change thisdir.
if test \"x\$destdir\" != \"x\$file\"; then
case \"\$destdir\" in
[\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;;
*) thisdir=\"\$thisdir/\$destdir\" ;;
esac
fi
file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\`
file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\`
done
# Usually 'no', except on cygwin/mingw when embedded into
# the cwrapper.
WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1
if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then
# special case for '.'
if test \"\$thisdir\" = \".\"; then
thisdir=\`pwd\`
fi
# remove .libs from thisdir
case \"\$thisdir\" in
*[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;;
$objdir ) thisdir=. ;;
esac
fi
# Try to get the absolute directory name.
absdir=\`cd \"\$thisdir\" && pwd\`
test -n \"\$absdir\" && thisdir=\"\$absdir\"
"
if test "$fast_install" = yes; then
$ECHO "\
program=lt-'$outputname'$exeext
progdir=\"\$thisdir/$objdir\"
if test ! -f \"\$progdir/\$program\" ||
{ file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\
test \"X\$file\" != \"X\$progdir/\$program\"; }; then
file=\"\$\$-\$program\"
if test ! -d \"\$progdir\"; then
$MKDIR \"\$progdir\"
else
$RM \"\$progdir/\$file\"
fi"
$ECHO "\
# relink executable if necessary
if test -n \"\$relink_command\"; then
if relink_command_output=\`eval \$relink_command 2>&1\`; then :
else
$ECHO \"\$relink_command_output\" >&2
$RM \"\$progdir/\$file\"
exit 1
fi
fi
$MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null ||
{ $RM \"\$progdir/\$program\";
$MV \"\$progdir/\$file\" \"\$progdir/\$program\"; }
$RM \"\$progdir/\$file\"
fi"
else
$ECHO "\
program='$outputname'
progdir=\"\$thisdir/$objdir\"
"
fi
$ECHO "\
if test -f \"\$progdir/\$program\"; then"
# fixup the dll searchpath if we need to.
#
# Fix the DLL searchpath if we need to. Do this before prepending
# to shlibpath, because on Windows, both are PATH and uninstalled
# libraries must come first.
if test -n "$dllsearchpath"; then
$ECHO "\
# Add the dll search path components to the executable PATH
PATH=$dllsearchpath:\$PATH
"
fi
# Export our shlibpath_var if we have one.
if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
$ECHO "\
# Add our own library path to $shlibpath_var
$shlibpath_var=\"$temp_rpath\$$shlibpath_var\"
# Some systems cannot cope with colon-terminated $shlibpath_var
# The second colon is a workaround for a bug in BeOS R4 sed
$shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\`
export $shlibpath_var
"
fi
$ECHO "\
if test \"\$libtool_execute_magic\" != \"$magic\"; then
# Run the actual program with our arguments.
func_exec_program \${1+\"\$@\"}
fi
else
# The program doesn't exist.
\$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2
\$ECHO \"This script is just a wrapper for \$program.\" 1>&2
\$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2
exit 1
fi
fi\
"
}
# func_emit_cwrapperexe_src
# emit the source code for a wrapper executable on stdout
# Must ONLY be called from within func_mode_link because
# it depends on a number of variable set therein.
func_emit_cwrapperexe_src ()
{
cat <<EOF
/* $cwrappersource - temporary wrapper executable for $objdir/$outputname
Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
The $output program cannot be directly executed until all the libtool
libraries that it depends on are installed.
This wrapper executable should never be moved out of the build directory.
If it is, it will not operate correctly.
*/
EOF
cat <<"EOF"
#ifdef _MSC_VER
# define _CRT_SECURE_NO_DEPRECATE 1
#endif
#include <stdio.h>
#include <stdlib.h>
#ifdef _MSC_VER
# include <direct.h>
# include <process.h>
# include <io.h>
#else
# include <unistd.h>
# include <stdint.h>
# ifdef __CYGWIN__
# include <io.h>
# endif
#endif
#include <malloc.h>
#include <stdarg.h>
#include <assert.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <sys/stat.h>
/* declarations of non-ANSI functions */
#if defined(__MINGW32__)
# ifdef __STRICT_ANSI__
int _putenv (const char *);
# endif
#elif defined(__CYGWIN__)
# ifdef __STRICT_ANSI__
char *realpath (const char *, char *);
int putenv (char *);
int setenv (const char *, const char *, int);
# endif
/* #elif defined (other platforms) ... */
#endif
/* portability defines, excluding path handling macros */
#if defined(_MSC_VER)
# define setmode _setmode
# define stat _stat
# define chmod _chmod
# define getcwd _getcwd
# define putenv _putenv
# define S_IXUSR _S_IEXEC
# ifndef _INTPTR_T_DEFINED
# define _INTPTR_T_DEFINED
# define intptr_t int
# endif
#elif defined(__MINGW32__)
# define setmode _setmode
# define stat _stat
# define chmod _chmod
# define getcwd _getcwd
# define putenv _putenv
#elif defined(__CYGWIN__)
# define HAVE_SETENV
# define FOPEN_WB "wb"
/* #elif defined (other platforms) ... */
#endif
#if defined(PATH_MAX)
# define LT_PATHMAX PATH_MAX
#elif defined(MAXPATHLEN)
# define LT_PATHMAX MAXPATHLEN
#else
# define LT_PATHMAX 1024
#endif
#ifndef S_IXOTH
# define S_IXOTH 0
#endif
#ifndef S_IXGRP
# define S_IXGRP 0
#endif
/* path handling portability macros */
#ifndef DIR_SEPARATOR
# define DIR_SEPARATOR '/'
# define PATH_SEPARATOR ':'
#endif
#if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
defined (__OS2__)
# define HAVE_DOS_BASED_FILE_SYSTEM
# define FOPEN_WB "wb"
# ifndef DIR_SEPARATOR_2
# define DIR_SEPARATOR_2 '\\'
# endif
# ifndef PATH_SEPARATOR_2
# define PATH_SEPARATOR_2 ';'
# endif
#endif
#ifndef DIR_SEPARATOR_2
# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
#else /* DIR_SEPARATOR_2 */
# define IS_DIR_SEPARATOR(ch) \
(((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
#endif /* DIR_SEPARATOR_2 */
#ifndef PATH_SEPARATOR_2
# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR)
#else /* PATH_SEPARATOR_2 */
# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2)
#endif /* PATH_SEPARATOR_2 */
#ifndef FOPEN_WB
# define FOPEN_WB "w"
#endif
#ifndef _O_BINARY
# define _O_BINARY 0
#endif
#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type)))
#define XFREE(stale) do { \
if (stale) { free ((void *) stale); stale = 0; } \
} while (0)
#if defined(LT_DEBUGWRAPPER)
static int lt_debug = 1;
#else
static int lt_debug = 0;
#endif
const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */
void *xmalloc (size_t num);
char *xstrdup (const char *string);
const char *base_name (const char *name);
char *find_executable (const char *wrapper);
char *chase_symlinks (const char *pathspec);
int make_executable (const char *path);
int check_executable (const char *path);
char *strendzap (char *str, const char *pat);
void lt_debugprintf (const char *file, int line, const char *fmt, ...);
void lt_fatal (const char *file, int line, const char *message, ...);
static const char *nonnull (const char *s);
static const char *nonempty (const char *s);
void lt_setenv (const char *name, const char *value);
char *lt_extend_str (const char *orig_value, const char *add, int to_end);
void lt_update_exe_path (const char *name, const char *value);
void lt_update_lib_path (const char *name, const char *value);
char **prepare_spawn (char **argv);
void lt_dump_script (FILE *f);
EOF
cat <<EOF
volatile const char * MAGIC_EXE = "$magic_exe";
const char * LIB_PATH_VARNAME = "$shlibpath_var";
EOF
if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
func_to_host_path "$temp_rpath"
cat <<EOF
const char * LIB_PATH_VALUE = "$func_to_host_path_result";
EOF
else
cat <<"EOF"
const char * LIB_PATH_VALUE = "";
EOF
fi
if test -n "$dllsearchpath"; then
func_to_host_path "$dllsearchpath:"
cat <<EOF
const char * EXE_PATH_VARNAME = "PATH";
const char * EXE_PATH_VALUE = "$func_to_host_path_result";
EOF
else
cat <<"EOF"
const char * EXE_PATH_VARNAME = "";
const char * EXE_PATH_VALUE = "";
EOF
fi
if test "$fast_install" = yes; then
cat <<EOF
const char * TARGET_PROGRAM_NAME = "lt-$outputname"; /* hopefully, no .exe */
EOF
else
cat <<EOF
const char * TARGET_PROGRAM_NAME = "$outputname"; /* hopefully, no .exe */
EOF
fi
cat <<"EOF"
#define LTWRAPPER_OPTION_PREFIX "--lt-"
static const char *ltwrapper_option_prefix = LTWRAPPER_OPTION_PREFIX;
static const char *dumpscript_opt = LTWRAPPER_OPTION_PREFIX "dump-script";
static const char *debug_opt = LTWRAPPER_OPTION_PREFIX "debug";
int
main (int argc, char *argv[])
{
char **newargz;
int newargc;
char *tmp_pathspec;
char *actual_cwrapper_path;
char *actual_cwrapper_name;
char *target_name;
char *lt_argv_zero;
intptr_t rval = 127;
int i;
program_name = (char *) xstrdup (base_name (argv[0]));
newargz = XMALLOC (char *, argc + 1);
/* very simple arg parsing; don't want to rely on getopt
* also, copy all non cwrapper options to newargz, except
* argz[0], which is handled differently
*/
newargc=0;
for (i = 1; i < argc; i++)
{
if (strcmp (argv[i], dumpscript_opt) == 0)
{
EOF
case "$host" in
*mingw* | *cygwin* )
# make stdout use "unix" line endings
echo " setmode(1,_O_BINARY);"
;;
esac
cat <<"EOF"
lt_dump_script (stdout);
return 0;
}
if (strcmp (argv[i], debug_opt) == 0)
{
lt_debug = 1;
continue;
}
if (strcmp (argv[i], ltwrapper_option_prefix) == 0)
{
/* however, if there is an option in the LTWRAPPER_OPTION_PREFIX
namespace, but it is not one of the ones we know about and
have already dealt with, above (inluding dump-script), then
report an error. Otherwise, targets might begin to believe
they are allowed to use options in the LTWRAPPER_OPTION_PREFIX
namespace. The first time any user complains about this, we'll
need to make LTWRAPPER_OPTION_PREFIX a configure-time option
or a configure.ac-settable value.
*/
lt_fatal (__FILE__, __LINE__,
"unrecognized %s option: '%s'",
ltwrapper_option_prefix, argv[i]);
}
/* otherwise ... */
newargz[++newargc] = xstrdup (argv[i]);
}
newargz[++newargc] = NULL;
EOF
cat <<EOF
/* The GNU banner must be the first non-error debug message */
lt_debugprintf (__FILE__, __LINE__, "libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\n");
EOF
cat <<"EOF"
lt_debugprintf (__FILE__, __LINE__, "(main) argv[0]: %s\n", argv[0]);
lt_debugprintf (__FILE__, __LINE__, "(main) program_name: %s\n", program_name);
tmp_pathspec = find_executable (argv[0]);
if (tmp_pathspec == NULL)
lt_fatal (__FILE__, __LINE__, "couldn't find %s", argv[0]);
lt_debugprintf (__FILE__, __LINE__,
"(main) found exe (before symlink chase) at: %s\n",
tmp_pathspec);
actual_cwrapper_path = chase_symlinks (tmp_pathspec);
lt_debugprintf (__FILE__, __LINE__,
"(main) found exe (after symlink chase) at: %s\n",
actual_cwrapper_path);
XFREE (tmp_pathspec);
actual_cwrapper_name = xstrdup (base_name (actual_cwrapper_path));
strendzap (actual_cwrapper_path, actual_cwrapper_name);
/* wrapper name transforms */
strendzap (actual_cwrapper_name, ".exe");
tmp_pathspec = lt_extend_str (actual_cwrapper_name, ".exe", 1);
XFREE (actual_cwrapper_name);
actual_cwrapper_name = tmp_pathspec;
tmp_pathspec = 0;
/* target_name transforms -- use actual target program name; might have lt- prefix */
target_name = xstrdup (base_name (TARGET_PROGRAM_NAME));
strendzap (target_name, ".exe");
tmp_pathspec = lt_extend_str (target_name, ".exe", 1);
XFREE (target_name);
target_name = tmp_pathspec;
tmp_pathspec = 0;
lt_debugprintf (__FILE__, __LINE__,
"(main) libtool target name: %s\n",
target_name);
EOF
cat <<EOF
newargz[0] =
XMALLOC (char, (strlen (actual_cwrapper_path) +
strlen ("$objdir") + 1 + strlen (actual_cwrapper_name) + 1));
strcpy (newargz[0], actual_cwrapper_path);
strcat (newargz[0], "$objdir");
strcat (newargz[0], "/");
EOF
cat <<"EOF"
/* stop here, and copy so we don't have to do this twice */
tmp_pathspec = xstrdup (newargz[0]);
/* do NOT want the lt- prefix here, so use actual_cwrapper_name */
strcat (newargz[0], actual_cwrapper_name);
/* DO want the lt- prefix here if it exists, so use target_name */
lt_argv_zero = lt_extend_str (tmp_pathspec, target_name, 1);
XFREE (tmp_pathspec);
tmp_pathspec = NULL;
EOF
case $host_os in
mingw*)
cat <<"EOF"
{
char* p;
while ((p = strchr (newargz[0], '\\')) != NULL)
{
*p = '/';
}
while ((p = strchr (lt_argv_zero, '\\')) != NULL)
{
*p = '/';
}
}
EOF
;;
esac
cat <<"EOF"
XFREE (target_name);
XFREE (actual_cwrapper_path);
XFREE (actual_cwrapper_name);
lt_setenv ("BIN_SH", "xpg4"); /* for Tru64 */
lt_setenv ("DUALCASE", "1"); /* for MSK sh */
/* Update the DLL searchpath. EXE_PATH_VALUE ($dllsearchpath) must
be prepended before (that is, appear after) LIB_PATH_VALUE ($temp_rpath)
because on Windows, both *_VARNAMEs are PATH but uninstalled
libraries must come first. */
lt_update_exe_path (EXE_PATH_VARNAME, EXE_PATH_VALUE);
lt_update_lib_path (LIB_PATH_VARNAME, LIB_PATH_VALUE);
lt_debugprintf (__FILE__, __LINE__, "(main) lt_argv_zero: %s\n",
nonnull (lt_argv_zero));
for (i = 0; i < newargc; i++)
{
lt_debugprintf (__FILE__, __LINE__, "(main) newargz[%d]: %s\n",
i, nonnull (newargz[i]));
}
EOF
case $host_os in
mingw*)
cat <<"EOF"
/* execv doesn't actually work on mingw as expected on unix */
newargz = prepare_spawn (newargz);
rval = _spawnv (_P_WAIT, lt_argv_zero, (const char * const *) newargz);
if (rval == -1)
{
/* failed to start process */
lt_debugprintf (__FILE__, __LINE__,
"(main) failed to launch target \"%s\": %s\n",
lt_argv_zero, nonnull (strerror (errno)));
return 127;
}
return rval;
EOF
;;
*)
cat <<"EOF"
execv (lt_argv_zero, newargz);
return rval; /* =127, but avoids unused variable warning */
EOF
;;
esac
cat <<"EOF"
}
void *
xmalloc (size_t num)
{
void *p = (void *) malloc (num);
if (!p)
lt_fatal (__FILE__, __LINE__, "memory exhausted");
return p;
}
char *
xstrdup (const char *string)
{
return string ? strcpy ((char *) xmalloc (strlen (string) + 1),
string) : NULL;
}
const char *
base_name (const char *name)
{
const char *base;
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
/* Skip over the disk name in MSDOS pathnames. */
if (isalpha ((unsigned char) name[0]) && name[1] == ':')
name += 2;
#endif
for (base = name; *name; name++)
if (IS_DIR_SEPARATOR (*name))
base = name + 1;
return base;
}
int
check_executable (const char *path)
{
struct stat st;
lt_debugprintf (__FILE__, __LINE__, "(check_executable): %s\n",
nonempty (path));
if ((!path) || (!*path))
return 0;
if ((stat (path, &st) >= 0)
&& (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH)))
return 1;
else
return 0;
}
int
make_executable (const char *path)
{
int rval = 0;
struct stat st;
lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n",
nonempty (path));
if ((!path) || (!*path))
return 0;
if (stat (path, &st) >= 0)
{
rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR);
}
return rval;
}
/* Searches for the full path of the wrapper. Returns
newly allocated full path name if found, NULL otherwise
Does not chase symlinks, even on platforms that support them.
*/
char *
find_executable (const char *wrapper)
{
int has_slash = 0;
const char *p;
const char *p_next;
/* static buffer for getcwd */
char tmp[LT_PATHMAX + 1];
int tmp_len;
char *concat_name;
lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n",
nonempty (wrapper));
if ((wrapper == NULL) || (*wrapper == '\0'))
return NULL;
/* Absolute path? */
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':')
{
concat_name = xstrdup (wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
else
{
#endif
if (IS_DIR_SEPARATOR (wrapper[0]))
{
concat_name = xstrdup (wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
}
#endif
for (p = wrapper; *p; p++)
if (*p == '/')
{
has_slash = 1;
break;
}
if (!has_slash)
{
/* no slashes; search PATH */
const char *path = getenv ("PATH");
if (path != NULL)
{
for (p = path; *p; p = p_next)
{
const char *q;
size_t p_len;
for (q = p; *q; q++)
if (IS_PATH_SEPARATOR (*q))
break;
p_len = q - p;
p_next = (*q == '\0' ? q : q + 1);
if (p_len == 0)
{
/* empty path: current directory */
if (getcwd (tmp, LT_PATHMAX) == NULL)
lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
nonnull (strerror (errno)));
tmp_len = strlen (tmp);
concat_name =
XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, tmp, tmp_len);
concat_name[tmp_len] = '/';
strcpy (concat_name + tmp_len + 1, wrapper);
}
else
{
concat_name =
XMALLOC (char, p_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, p, p_len);
concat_name[p_len] = '/';
strcpy (concat_name + p_len + 1, wrapper);
}
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
}
/* not found in PATH; assume curdir */
}
/* Relative path | not found in path: prepend cwd */
if (getcwd (tmp, LT_PATHMAX) == NULL)
lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
nonnull (strerror (errno)));
tmp_len = strlen (tmp);
concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, tmp, tmp_len);
concat_name[tmp_len] = '/';
strcpy (concat_name + tmp_len + 1, wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
return NULL;
}
char *
chase_symlinks (const char *pathspec)
{
#ifndef S_ISLNK
return xstrdup (pathspec);
#else
char buf[LT_PATHMAX];
struct stat s;
char *tmp_pathspec = xstrdup (pathspec);
char *p;
int has_symlinks = 0;
while (strlen (tmp_pathspec) && !has_symlinks)
{
lt_debugprintf (__FILE__, __LINE__,
"checking path component for symlinks: %s\n",
tmp_pathspec);
if (lstat (tmp_pathspec, &s) == 0)
{
if (S_ISLNK (s.st_mode) != 0)
{
has_symlinks = 1;
break;
}
/* search backwards for last DIR_SEPARATOR */
p = tmp_pathspec + strlen (tmp_pathspec) - 1;
while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
p--;
if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
{
/* no more DIR_SEPARATORS left */
break;
}
*p = '\0';
}
else
{
lt_fatal (__FILE__, __LINE__,
"error accessing file \"%s\": %s",
tmp_pathspec, nonnull (strerror (errno)));
}
}
XFREE (tmp_pathspec);
if (!has_symlinks)
{
return xstrdup (pathspec);
}
tmp_pathspec = realpath (pathspec, buf);
if (tmp_pathspec == 0)
{
lt_fatal (__FILE__, __LINE__,
"could not follow symlinks for %s", pathspec);
}
return xstrdup (tmp_pathspec);
#endif
}
char *
strendzap (char *str, const char *pat)
{
size_t len, patlen;
assert (str != NULL);
assert (pat != NULL);
len = strlen (str);
patlen = strlen (pat);
if (patlen <= len)
{
str += len - patlen;
if (strcmp (str, pat) == 0)
*str = '\0';
}
return str;
}
void
lt_debugprintf (const char *file, int line, const char *fmt, ...)
{
va_list args;
if (lt_debug)
{
(void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line);
va_start (args, fmt);
(void) vfprintf (stderr, fmt, args);
va_end (args);
}
}
static void
lt_error_core (int exit_status, const char *file,
int line, const char *mode,
const char *message, va_list ap)
{
fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode);
vfprintf (stderr, message, ap);
fprintf (stderr, ".\n");
if (exit_status >= 0)
exit (exit_status);
}
void
lt_fatal (const char *file, int line, const char *message, ...)
{
va_list ap;
va_start (ap, message);
lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap);
va_end (ap);
}
static const char *
nonnull (const char *s)
{
return s ? s : "(null)";
}
static const char *
nonempty (const char *s)
{
return (s && !*s) ? "(empty)" : nonnull (s);
}
void
lt_setenv (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_setenv) setting '%s' to '%s'\n",
nonnull (name), nonnull (value));
{
#ifdef HAVE_SETENV
/* always make a copy, for consistency with !HAVE_SETENV */
char *str = xstrdup (value);
setenv (name, str, 1);
#else
int len = strlen (name) + 1 + strlen (value) + 1;
char *str = XMALLOC (char, len);
sprintf (str, "%s=%s", name, value);
if (putenv (str) != EXIT_SUCCESS)
{
XFREE (str);
}
#endif
}
}
char *
lt_extend_str (const char *orig_value, const char *add, int to_end)
{
char *new_value;
if (orig_value && *orig_value)
{
int orig_value_len = strlen (orig_value);
int add_len = strlen (add);
new_value = XMALLOC (char, add_len + orig_value_len + 1);
if (to_end)
{
strcpy (new_value, orig_value);
strcpy (new_value + orig_value_len, add);
}
else
{
strcpy (new_value, add);
strcpy (new_value + add_len, orig_value);
}
}
else
{
new_value = xstrdup (add);
}
return new_value;
}
void
lt_update_exe_path (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_update_exe_path) modifying '%s' by prepending '%s'\n",
nonnull (name), nonnull (value));
if (name && *name && value && *value)
{
char *new_value = lt_extend_str (getenv (name), value, 0);
/* some systems can't cope with a ':'-terminated path #' */
int len = strlen (new_value);
while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1]))
{
new_value[len-1] = '\0';
}
lt_setenv (name, new_value);
XFREE (new_value);
}
}
void
lt_update_lib_path (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_update_lib_path) modifying '%s' by prepending '%s'\n",
nonnull (name), nonnull (value));
if (name && *name && value && *value)
{
char *new_value = lt_extend_str (getenv (name), value, 0);
lt_setenv (name, new_value);
XFREE (new_value);
}
}
EOF
case $host_os in
mingw*)
cat <<"EOF"
/* Prepares an argument vector before calling spawn().
Note that spawn() does not by itself call the command interpreter
(getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") :
({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&v);
v.dwPlatformId == VER_PLATFORM_WIN32_NT;
}) ? "cmd.exe" : "command.com").
Instead it simply concatenates the arguments, separated by ' ', and calls
CreateProcess(). We must quote the arguments since Win32 CreateProcess()
interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a
special way:
- Space and tab are interpreted as delimiters. They are not treated as
delimiters if they are surrounded by double quotes: "...".
- Unescaped double quotes are removed from the input. Their only effect is
that within double quotes, space and tab are treated like normal
characters.
- Backslashes not followed by double quotes are not special.
- But 2*n+1 backslashes followed by a double quote become
n backslashes followed by a double quote (n >= 0):
\" -> "
\\\" -> \"
\\\\\" -> \\"
*/
#define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
#define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
char **
prepare_spawn (char **argv)
{
size_t argc;
char **new_argv;
size_t i;
/* Count number of arguments. */
for (argc = 0; argv[argc] != NULL; argc++)
;
/* Allocate new argument vector. */
new_argv = XMALLOC (char *, argc + 1);
/* Put quoted arguments into the new argument vector. */
for (i = 0; i < argc; i++)
{
const char *string = argv[i];
if (string[0] == '\0')
new_argv[i] = xstrdup ("\"\"");
else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL)
{
int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL);
size_t length;
unsigned int backslashes;
const char *s;
char *quoted_string;
char *p;
length = 0;
backslashes = 0;
if (quote_around)
length++;
for (s = string; *s != '\0'; s++)
{
char c = *s;
if (c == '"')
length += backslashes + 1;
length++;
if (c == '\\')
backslashes++;
else
backslashes = 0;
}
if (quote_around)
length += backslashes + 1;
quoted_string = XMALLOC (char, length + 1);
p = quoted_string;
backslashes = 0;
if (quote_around)
*p++ = '"';
for (s = string; *s != '\0'; s++)
{
char c = *s;
if (c == '"')
{
unsigned int j;
for (j = backslashes + 1; j > 0; j--)
*p++ = '\\';
}
*p++ = c;
if (c == '\\')
backslashes++;
else
backslashes = 0;
}
if (quote_around)
{
unsigned int j;
for (j = backslashes; j > 0; j--)
*p++ = '\\';
*p++ = '"';
}
*p = '\0';
new_argv[i] = quoted_string;
}
else
new_argv[i] = (char *) string;
}
new_argv[argc] = NULL;
return new_argv;
}
EOF
;;
esac
cat <<"EOF"
void lt_dump_script (FILE* f)
{
EOF
func_emit_wrapper yes |
- $SED -e 's/\([\\"]\)/\\\1/g' \
- -e 's/^/ fputs ("/' -e 's/$/\\n", f);/'
-
+ $SED -n -e '
+s/^\(.\{79\}\)\(..*\)/\1\
+\2/
+h
+s/\([\\"]\)/\\\1/g
+s/$/\\n/
+s/\([^\n]*\).*/ fputs ("\1", f);/p
+g
+D'
cat <<"EOF"
}
EOF
}
# end: func_emit_cwrapperexe_src
# func_win32_import_lib_p ARG
# True if ARG is an import lib, as indicated by $file_magic_cmd
func_win32_import_lib_p ()
{
$opt_debug
case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in
*import*) : ;;
*) false ;;
esac
}
# func_mode_link arg...
func_mode_link ()
{
$opt_debug
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
# It is impossible to link a dll without this setting, and
# we shouldn't force the makefile maintainer to figure out
# which system we are compiling for in order to pass an extra
# flag for every libtool invocation.
# allow_undefined=no
# FIXME: Unfortunately, there are problems with the above when trying
# to make a dll which has undefined symbols, in which case not
# even a static library is built. For now, we need to specify
# -no-undefined on the libtool link line when we can be certain
# that all symbols are satisfied, otherwise we get a static library.
allow_undefined=yes
;;
*)
allow_undefined=yes
;;
esac
libtool_args=$nonopt
base_compile="$nonopt $@"
compile_command=$nonopt
finalize_command=$nonopt
compile_rpath=
finalize_rpath=
compile_shlibpath=
finalize_shlibpath=
convenience=
old_convenience=
deplibs=
old_deplibs=
compiler_flags=
linker_flags=
dllsearchpath=
lib_search_path=`pwd`
inst_prefix_dir=
new_inherited_linker_flags=
avoid_version=no
bindir=
dlfiles=
dlprefiles=
dlself=no
export_dynamic=no
export_symbols=
export_symbols_regex=
generated=
libobjs=
ltlibs=
module=no
no_install=no
objs=
non_pic_objects=
precious_files_regex=
prefer_static_libs=no
preload=no
prev=
prevarg=
release=
rpath=
xrpath=
perm_rpath=
temp_rpath=
thread_safe=no
vinfo=
vinfo_number=no
weak_libs=
single_module="${wl}-single_module"
func_infer_tag $base_compile
# We need to know -static, to get the right output filenames.
for arg
do
case $arg in
-shared)
test "$build_libtool_libs" != yes && \
func_fatal_configuration "can not build a shared library"
build_old_libs=no
break
;;
-all-static | -static | -static-libtool-libs)
case $arg in
-all-static)
if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then
func_warning "complete static linking is impossible in this configuration"
fi
if test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=yes
;;
-static)
if test -z "$pic_flag" && test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=built
;;
-static-libtool-libs)
if test -z "$pic_flag" && test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=yes
;;
esac
build_libtool_libs=no
build_old_libs=yes
break
;;
esac
done
# See if our shared archives depend on static archives.
test -n "$old_archive_from_new_cmds" && build_old_libs=yes
# Go through the arguments, transforming them on the way.
while test "$#" -gt 0; do
arg="$1"
shift
func_quote_for_eval "$arg"
qarg=$func_quote_for_eval_unquoted_result
func_append libtool_args " $func_quote_for_eval_result"
# If the previous option needs an argument, assign it.
if test -n "$prev"; then
case $prev in
output)
func_append compile_command " @OUTPUT@"
func_append finalize_command " @OUTPUT@"
;;
esac
case $prev in
bindir)
bindir="$arg"
prev=
continue
;;
dlfiles|dlprefiles)
if test "$preload" = no; then
# Add the symbol object into the linking commands.
func_append compile_command " @SYMFILE@"
func_append finalize_command " @SYMFILE@"
preload=yes
fi
case $arg in
*.la | *.lo) ;; # We handle these cases below.
force)
if test "$dlself" = no; then
dlself=needless
export_dynamic=yes
fi
prev=
continue
;;
self)
if test "$prev" = dlprefiles; then
dlself=yes
elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then
dlself=yes
else
dlself=needless
export_dynamic=yes
fi
prev=
continue
;;
*)
if test "$prev" = dlfiles; then
func_append dlfiles " $arg"
else
func_append dlprefiles " $arg"
fi
prev=
continue
;;
esac
;;
expsyms)
export_symbols="$arg"
test -f "$arg" \
|| func_fatal_error "symbol file \`$arg' does not exist"
prev=
continue
;;
expsyms_regex)
export_symbols_regex="$arg"
prev=
continue
;;
framework)
case $host in
*-*-darwin*)
case "$deplibs " in
*" $qarg.ltframework "*) ;;
*) func_append deplibs " $qarg.ltframework" # this is fixed later
;;
esac
;;
esac
prev=
continue
;;
inst_prefix)
inst_prefix_dir="$arg"
prev=
continue
;;
objectlist)
if test -f "$arg"; then
save_arg=$arg
moreargs=
for fil in `cat "$save_arg"`
do
# func_append moreargs " $fil"
arg=$fil
# A libtool-controlled object.
# Check to see that this really is a libtool object.
if func_lalib_unsafe_p "$arg"; then
pic_object=
non_pic_object=
# Read the .lo file
func_source "$arg"
if test -z "$pic_object" ||
test -z "$non_pic_object" ||
test "$pic_object" = none &&
test "$non_pic_object" = none; then
func_fatal_error "cannot find name of object for \`$arg'"
fi
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
if test "$pic_object" != none; then
# Prepend the subdirectory the object is found in.
pic_object="$xdir$pic_object"
if test "$prev" = dlfiles; then
if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
func_append dlfiles " $pic_object"
prev=
continue
else
# If libtool objects are unsupported, then we need to preload.
prev=dlprefiles
fi
fi
# CHECK ME: I think I busted this. -Ossama
if test "$prev" = dlprefiles; then
# Preload the old-style object.
func_append dlprefiles " $pic_object"
prev=
fi
# A PIC object.
func_append libobjs " $pic_object"
arg="$pic_object"
fi
# Non-PIC object.
if test "$non_pic_object" != none; then
# Prepend the subdirectory the object is found in.
non_pic_object="$xdir$non_pic_object"
# A standard non-PIC object
func_append non_pic_objects " $non_pic_object"
if test -z "$pic_object" || test "$pic_object" = none ; then
arg="$non_pic_object"
fi
else
# If the PIC object exists, use it instead.
# $xdir was prepended to $pic_object above.
non_pic_object="$pic_object"
func_append non_pic_objects " $non_pic_object"
fi
else
# Only an error if not doing a dry-run.
if $opt_dry_run; then
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
func_lo2o "$arg"
pic_object=$xdir$objdir/$func_lo2o_result
non_pic_object=$xdir$func_lo2o_result
func_append libobjs " $pic_object"
func_append non_pic_objects " $non_pic_object"
else
func_fatal_error "\`$arg' is not a valid libtool object"
fi
fi
done
else
func_fatal_error "link input file \`$arg' does not exist"
fi
arg=$save_arg
prev=
continue
;;
precious_regex)
precious_files_regex="$arg"
prev=
continue
;;
release)
release="-$arg"
prev=
continue
;;
rpath | xrpath)
# We need an absolute path.
case $arg in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
func_fatal_error "only absolute run-paths are allowed"
;;
esac
if test "$prev" = rpath; then
case "$rpath " in
*" $arg "*) ;;
*) func_append rpath " $arg" ;;
esac
else
case "$xrpath " in
*" $arg "*) ;;
*) func_append xrpath " $arg" ;;
esac
fi
prev=
continue
;;
shrext)
shrext_cmds="$arg"
prev=
continue
;;
weak)
func_append weak_libs " $arg"
prev=
continue
;;
xcclinker)
func_append linker_flags " $qarg"
func_append compiler_flags " $qarg"
prev=
func_append compile_command " $qarg"
func_append finalize_command " $qarg"
continue
;;
xcompiler)
func_append compiler_flags " $qarg"
prev=
func_append compile_command " $qarg"
func_append finalize_command " $qarg"
continue
;;
xlinker)
func_append linker_flags " $qarg"
func_append compiler_flags " $wl$qarg"
prev=
func_append compile_command " $wl$qarg"
func_append finalize_command " $wl$qarg"
continue
;;
*)
eval "$prev=\"\$arg\""
prev=
continue
;;
esac
fi # test -n "$prev"
prevarg="$arg"
case $arg in
-all-static)
if test -n "$link_static_flag"; then
# See comment for -static flag below, for more details.
func_append compile_command " $link_static_flag"
func_append finalize_command " $link_static_flag"
fi
continue
;;
-allow-undefined)
# FIXME: remove this flag sometime in the future.
func_fatal_error "\`-allow-undefined' must not be used because it is the default"
;;
-avoid-version)
avoid_version=yes
continue
;;
-bindir)
prev=bindir
continue
;;
-dlopen)
prev=dlfiles
continue
;;
-dlpreopen)
prev=dlprefiles
continue
;;
-export-dynamic)
export_dynamic=yes
continue
;;
-export-symbols | -export-symbols-regex)
if test -n "$export_symbols" || test -n "$export_symbols_regex"; then
func_fatal_error "more than one -exported-symbols argument is not allowed"
fi
if test "X$arg" = "X-export-symbols"; then
prev=expsyms
else
prev=expsyms_regex
fi
continue
;;
-framework)
prev=framework
continue
;;
-inst-prefix-dir)
prev=inst_prefix
continue
;;
# The native IRIX linker understands -LANG:*, -LIST:* and -LNO:*
# so, if we see these flags be careful not to treat them like -L
-L[A-Z][A-Z]*:*)
case $with_gcc/$host in
no/*-*-irix* | /*-*-irix*)
func_append compile_command " $arg"
func_append finalize_command " $arg"
;;
esac
continue
;;
-L*)
func_stripname "-L" '' "$arg"
if test -z "$func_stripname_result"; then
if test "$#" -gt 0; then
func_fatal_error "require no space between \`-L' and \`$1'"
else
func_fatal_error "need path for \`-L' option"
fi
fi
func_resolve_sysroot "$func_stripname_result"
dir=$func_resolve_sysroot_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
absdir=`cd "$dir" && pwd`
test -z "$absdir" && \
func_fatal_error "cannot determine absolute directory name of \`$dir'"
dir="$absdir"
;;
esac
case "$deplibs " in
*" -L$dir "* | *" $arg "*)
# Will only happen for absolute or sysroot arguments
;;
*)
# Preserve sysroot, but never include relative directories
case $dir in
[\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;;
*) func_append deplibs " -L$dir" ;;
esac
func_append lib_search_path " $dir"
;;
esac
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'`
case :$dllsearchpath: in
*":$dir:"*) ;;
::) dllsearchpath=$dir;;
*) func_append dllsearchpath ":$dir";;
esac
case :$dllsearchpath: in
*":$testbindir:"*) ;;
::) dllsearchpath=$testbindir;;
*) func_append dllsearchpath ":$testbindir";;
esac
;;
esac
continue
;;
-l*)
if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*)
# These systems don't actually have a C or math library (as such)
continue
;;
*-*-os2*)
# These systems don't actually have a C library (as such)
test "X$arg" = "X-lc" && continue
;;
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc due to us having libc/libc_r.
test "X$arg" = "X-lc" && continue
;;
*-*-rhapsody* | *-*-darwin1.[012])
# Rhapsody C and math libraries are in the System framework
func_append deplibs " System.ltframework"
continue
;;
*-*-sco3.2v5* | *-*-sco5v6*)
# Causes problems with __ctype
test "X$arg" = "X-lc" && continue
;;
*-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
# Compiler inserts libc in the correct place for threads to work
test "X$arg" = "X-lc" && continue
;;
esac
elif test "X$arg" = "X-lc_r"; then
case $host in
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc_r directly, use -pthread flag.
continue
;;
esac
fi
func_append deplibs " $arg"
continue
;;
-module)
module=yes
continue
;;
# Tru64 UNIX uses -model [arg] to determine the layout of C++
# classes, name mangling, and exception handling.
# Darwin uses the -arch flag to determine output architecture.
-model|-arch|-isysroot|--sysroot)
func_append compiler_flags " $arg"
func_append compile_command " $arg"
func_append finalize_command " $arg"
prev=xcompiler
continue
;;
- -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads)
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
func_append compiler_flags " $arg"
func_append compile_command " $arg"
func_append finalize_command " $arg"
case "$new_inherited_linker_flags " in
*" $arg "*) ;;
* ) func_append new_inherited_linker_flags " $arg" ;;
esac
continue
;;
-multi_module)
single_module="${wl}-multi_module"
continue
;;
-no-fast-install)
fast_install=no
continue
;;
-no-install)
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*)
# The PATH hackery in wrapper scripts is required on Windows
# and Darwin in order for the loader to find any dlls it needs.
func_warning "\`-no-install' is ignored for $host"
func_warning "assuming \`-no-fast-install' instead"
fast_install=no
;;
*) no_install=yes ;;
esac
continue
;;
-no-undefined)
allow_undefined=no
continue
;;
-objectlist)
prev=objectlist
continue
;;
-o) prev=output ;;
-precious-files-regex)
prev=precious_regex
continue
;;
-release)
prev=release
continue
;;
-rpath)
prev=rpath
continue
;;
-R)
prev=xrpath
continue
;;
-R*)
func_stripname '-R' '' "$arg"
dir=$func_stripname_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
=*)
func_stripname '=' '' "$dir"
dir=$lt_sysroot$func_stripname_result
;;
*)
func_fatal_error "only absolute run-paths are allowed"
;;
esac
case "$xrpath " in
*" $dir "*) ;;
*) func_append xrpath " $dir" ;;
esac
continue
;;
-shared)
# The effects of -shared are defined in a previous loop.
continue
;;
-shrext)
prev=shrext
continue
;;
-static | -static-libtool-libs)
# The effects of -static are defined in a previous loop.
# We used to do the same as -all-static on platforms that
# didn't have a PIC flag, but the assumption that the effects
# would be equivalent was wrong. It would break on at least
# Digital Unix and AIX.
continue
;;
-thread-safe)
thread_safe=yes
continue
;;
-version-info)
prev=vinfo
continue
;;
-version-number)
prev=vinfo
vinfo_number=yes
continue
;;
-weak)
prev=weak
continue
;;
-Wc,*)
func_stripname '-Wc,' '' "$arg"
args=$func_stripname_result
arg=
save_ifs="$IFS"; IFS=','
for flag in $args; do
IFS="$save_ifs"
func_quote_for_eval "$flag"
func_append arg " $func_quote_for_eval_result"
func_append compiler_flags " $func_quote_for_eval_result"
done
IFS="$save_ifs"
func_stripname ' ' '' "$arg"
arg=$func_stripname_result
;;
-Wl,*)
func_stripname '-Wl,' '' "$arg"
args=$func_stripname_result
arg=
save_ifs="$IFS"; IFS=','
for flag in $args; do
IFS="$save_ifs"
func_quote_for_eval "$flag"
func_append arg " $wl$func_quote_for_eval_result"
func_append compiler_flags " $wl$func_quote_for_eval_result"
func_append linker_flags " $func_quote_for_eval_result"
done
IFS="$save_ifs"
func_stripname ' ' '' "$arg"
arg=$func_stripname_result
;;
-Xcompiler)
prev=xcompiler
continue
;;
-Xlinker)
prev=xlinker
continue
;;
-XCClinker)
prev=xcclinker
continue
;;
# -msg_* for osf cc
-msg_*)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
# Flags to be passed through unchanged, with rationale:
# -64, -mips[0-9] enable 64-bit mode for the SGI compiler
# -r[0-9][0-9]* specify processor for the SGI compiler
# -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler
# +DA*, +DD* enable 64-bit mode for the HP compiler
# -q* compiler args for the IBM compiler
# -m*, -t[45]*, -txscale* architecture-specific flags for GCC
# -F/path path to uninstalled frameworks, gcc on darwin
# -p, -pg, --coverage, -fprofile-* profiling flags for GCC
# @file GCC response files
# -tp=* Portland pgcc target processor selection
# --sysroot=* for sysroot support
# -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization
-64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \
-t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \
-O*|-flto*|-fwhopr*|-fuse-linker-plugin)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
func_append compile_command " $arg"
func_append finalize_command " $arg"
func_append compiler_flags " $arg"
continue
;;
# Some other compiler flag.
-* | +*)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
*.$objext)
# A standard object.
func_append objs " $arg"
;;
*.lo)
# A libtool-controlled object.
# Check to see that this really is a libtool object.
if func_lalib_unsafe_p "$arg"; then
pic_object=
non_pic_object=
# Read the .lo file
func_source "$arg"
if test -z "$pic_object" ||
test -z "$non_pic_object" ||
test "$pic_object" = none &&
test "$non_pic_object" = none; then
func_fatal_error "cannot find name of object for \`$arg'"
fi
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
if test "$pic_object" != none; then
# Prepend the subdirectory the object is found in.
pic_object="$xdir$pic_object"
if test "$prev" = dlfiles; then
if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
func_append dlfiles " $pic_object"
prev=
continue
else
# If libtool objects are unsupported, then we need to preload.
prev=dlprefiles
fi
fi
# CHECK ME: I think I busted this. -Ossama
if test "$prev" = dlprefiles; then
# Preload the old-style object.
func_append dlprefiles " $pic_object"
prev=
fi
# A PIC object.
func_append libobjs " $pic_object"
arg="$pic_object"
fi
# Non-PIC object.
if test "$non_pic_object" != none; then
# Prepend the subdirectory the object is found in.
non_pic_object="$xdir$non_pic_object"
# A standard non-PIC object
func_append non_pic_objects " $non_pic_object"
if test -z "$pic_object" || test "$pic_object" = none ; then
arg="$non_pic_object"
fi
else
# If the PIC object exists, use it instead.
# $xdir was prepended to $pic_object above.
non_pic_object="$pic_object"
func_append non_pic_objects " $non_pic_object"
fi
else
# Only an error if not doing a dry-run.
if $opt_dry_run; then
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
func_lo2o "$arg"
pic_object=$xdir$objdir/$func_lo2o_result
non_pic_object=$xdir$func_lo2o_result
func_append libobjs " $pic_object"
func_append non_pic_objects " $non_pic_object"
else
func_fatal_error "\`$arg' is not a valid libtool object"
fi
fi
;;
*.$libext)
# An archive.
func_append deplibs " $arg"
func_append old_deplibs " $arg"
continue
;;
*.la)
# A libtool-controlled library.
func_resolve_sysroot "$arg"
if test "$prev" = dlfiles; then
# This library was specified with -dlopen.
func_append dlfiles " $func_resolve_sysroot_result"
prev=
elif test "$prev" = dlprefiles; then
# The library was specified with -dlpreopen.
func_append dlprefiles " $func_resolve_sysroot_result"
prev=
else
func_append deplibs " $func_resolve_sysroot_result"
fi
continue
;;
# Some other compiler argument.
*)
# Unknown arguments in both finalize_command and compile_command need
# to be aesthetically quoted because they are evaled later.
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
esac # arg
# Now actually substitute the argument into the commands.
if test -n "$arg"; then
func_append compile_command " $arg"
func_append finalize_command " $arg"
fi
done # argument parsing loop
test -n "$prev" && \
func_fatal_help "the \`$prevarg' option requires an argument"
if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then
eval arg=\"$export_dynamic_flag_spec\"
func_append compile_command " $arg"
func_append finalize_command " $arg"
fi
oldlibs=
# calculate the name of the file, without its directory
func_basename "$output"
outputname="$func_basename_result"
libobjs_save="$libobjs"
if test -n "$shlibpath_var"; then
# get the directories listed in $shlibpath_var
eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\`
else
shlib_search_path=
fi
eval sys_lib_search_path=\"$sys_lib_search_path_spec\"
eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\"
func_dirname "$output" "/" ""
output_objdir="$func_dirname_result$objdir"
func_to_tool_file "$output_objdir/"
tool_output_objdir=$func_to_tool_file_result
# Create the object directory.
func_mkdir_p "$output_objdir"
# Determine the type of output
case $output in
"")
func_fatal_help "you must specify an output file"
;;
*.$libext) linkmode=oldlib ;;
*.lo | *.$objext) linkmode=obj ;;
*.la) linkmode=lib ;;
*) linkmode=prog ;; # Anything else should be a program.
esac
specialdeplibs=
libs=
# Find all interdependent deplibs by searching for libraries
# that are linked more than once (e.g. -la -lb -la)
for deplib in $deplibs; do
if $opt_preserve_dup_deps ; then
case "$libs " in
*" $deplib "*) func_append specialdeplibs " $deplib" ;;
esac
fi
func_append libs " $deplib"
done
if test "$linkmode" = lib; then
libs="$predeps $libs $compiler_lib_search_path $postdeps"
# Compute libraries that are listed more than once in $predeps
# $postdeps and mark them as special (i.e., whose duplicates are
# not to be eliminated).
pre_post_deps=
if $opt_duplicate_compiler_generated_deps; then
for pre_post_dep in $predeps $postdeps; do
case "$pre_post_deps " in
*" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;;
esac
func_append pre_post_deps " $pre_post_dep"
done
fi
pre_post_deps=
fi
deplibs=
newdependency_libs=
newlib_search_path=
need_relink=no # whether we're linking any uninstalled libtool libraries
notinst_deplibs= # not-installed libtool libraries
notinst_path= # paths that contain not-installed libtool libraries
case $linkmode in
lib)
passes="conv dlpreopen link"
for file in $dlfiles $dlprefiles; do
case $file in
*.la) ;;
*)
func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file"
;;
esac
done
;;
prog)
compile_deplibs=
finalize_deplibs=
alldeplibs=no
newdlfiles=
newdlprefiles=
passes="conv scan dlopen dlpreopen link"
;;
*) passes="conv"
;;
esac
for pass in $passes; do
# The preopen pass in lib mode reverses $deplibs; put it back here
# so that -L comes before libs that need it for instance...
if test "$linkmode,$pass" = "lib,link"; then
## FIXME: Find the place where the list is rebuilt in the wrong
## order, and fix it there properly
tmp_deplibs=
for deplib in $deplibs; do
tmp_deplibs="$deplib $tmp_deplibs"
done
deplibs="$tmp_deplibs"
fi
if test "$linkmode,$pass" = "lib,link" ||
test "$linkmode,$pass" = "prog,scan"; then
libs="$deplibs"
deplibs=
fi
if test "$linkmode" = prog; then
case $pass in
dlopen) libs="$dlfiles" ;;
dlpreopen) libs="$dlprefiles" ;;
link) libs="$deplibs %DEPLIBS% $dependency_libs" ;;
esac
fi
if test "$linkmode,$pass" = "lib,dlpreopen"; then
# Collect and forward deplibs of preopened libtool libs
for lib in $dlprefiles; do
# Ignore non-libtool-libs
dependency_libs=
func_resolve_sysroot "$lib"
case $lib in
*.la) func_source "$func_resolve_sysroot_result" ;;
esac
# Collect preopened libtool deplibs, except any this library
# has declared as weak libs
for deplib in $dependency_libs; do
func_basename "$deplib"
deplib_base=$func_basename_result
case " $weak_libs " in
*" $deplib_base "*) ;;
*) func_append deplibs " $deplib" ;;
esac
done
done
libs="$dlprefiles"
fi
if test "$pass" = dlopen; then
# Collect dlpreopened libraries
save_deplibs="$deplibs"
deplibs=
fi
for deplib in $libs; do
lib=
found=no
case $deplib in
- -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads)
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
func_append compiler_flags " $deplib"
if test "$linkmode" = lib ; then
case "$new_inherited_linker_flags " in
*" $deplib "*) ;;
* ) func_append new_inherited_linker_flags " $deplib" ;;
esac
fi
fi
continue
;;
-l*)
if test "$linkmode" != lib && test "$linkmode" != prog; then
func_warning "\`-l' is ignored for archives/objects"
continue
fi
func_stripname '-l' '' "$deplib"
name=$func_stripname_result
if test "$linkmode" = lib; then
searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path"
else
searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path"
fi
for searchdir in $searchdirs; do
for search_ext in .la $std_shrext .so .a; do
# Search the libtool library
lib="$searchdir/lib${name}${search_ext}"
if test -f "$lib"; then
if test "$search_ext" = ".la"; then
found=yes
else
found=no
fi
break 2
fi
done
done
if test "$found" != yes; then
# deplib doesn't seem to be a libtool library
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
fi
continue
else # deplib is a libtool library
# If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib,
# We need to do some special things here, and not later.
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $deplib "*)
if func_lalib_p "$lib"; then
library_names=
old_library=
func_source "$lib"
for l in $old_library $library_names; do
ll="$l"
done
if test "X$ll" = "X$old_library" ; then # only static version available
found=no
func_dirname "$lib" "" "."
ladir="$func_dirname_result"
lib=$ladir/$old_library
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
fi
continue
fi
fi
;;
*) ;;
esac
fi
fi
;; # -l
*.ltframework)
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
if test "$linkmode" = lib ; then
case "$new_inherited_linker_flags " in
*" $deplib "*) ;;
* ) func_append new_inherited_linker_flags " $deplib" ;;
esac
fi
fi
continue
;;
-L*)
case $linkmode in
lib)
deplibs="$deplib $deplibs"
test "$pass" = conv && continue
newdependency_libs="$deplib $newdependency_libs"
func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
func_append newlib_search_path " $func_resolve_sysroot_result"
;;
prog)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
continue
fi
if test "$pass" = scan; then
deplibs="$deplib $deplibs"
else
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
fi
func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
func_append newlib_search_path " $func_resolve_sysroot_result"
;;
*)
func_warning "\`-L' is ignored for archives/objects"
;;
esac # linkmode
continue
;; # -L
-R*)
if test "$pass" = link; then
func_stripname '-R' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
dir=$func_resolve_sysroot_result
# Make sure the xrpath contains only unique directories.
case "$xrpath " in
*" $dir "*) ;;
*) func_append xrpath " $dir" ;;
esac
fi
deplibs="$deplib $deplibs"
continue
;;
*.la)
func_resolve_sysroot "$deplib"
lib=$func_resolve_sysroot_result
;;
*.$libext)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
continue
fi
case $linkmode in
lib)
# Linking convenience modules into shared libraries is allowed,
# but linking other static libraries is non-portable.
case " $dlpreconveniencelibs " in
*" $deplib "*) ;;
*)
valid_a_lib=no
case $deplibs_check_method in
match_pattern*)
set dummy $deplibs_check_method; shift
match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \
| $EGREP "$match_pattern_regex" > /dev/null; then
valid_a_lib=yes
fi
;;
pass_all)
valid_a_lib=yes
;;
esac
if test "$valid_a_lib" != yes; then
echo
$ECHO "*** Warning: Trying to link with static lib archive $deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because the file extensions .$libext of this argument makes me believe"
echo "*** that it is just a static archive that I should not use here."
else
echo
$ECHO "*** Warning: Linking the shared library $output against the"
$ECHO "*** static library $deplib is not portable!"
deplibs="$deplib $deplibs"
fi
;;
esac
continue
;;
prog)
if test "$pass" != link; then
deplibs="$deplib $deplibs"
else
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
fi
continue
;;
esac # linkmode
;; # *.$libext
*.lo | *.$objext)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
elif test "$linkmode" = prog; then
if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then
# If there is no dlopen support or we're linking statically,
# we need to preload.
func_append newdlprefiles " $deplib"
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
func_append newdlfiles " $deplib"
fi
fi
continue
;;
%DEPLIBS%)
alldeplibs=yes
continue
;;
esac # case $deplib
if test "$found" = yes || test -f "$lib"; then :
else
func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'"
fi
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$lib" \
|| func_fatal_error "\`$lib' is not a valid libtool archive"
func_dirname "$lib" "" "."
ladir="$func_dirname_result"
dlname=
dlopen=
dlpreopen=
libdir=
library_names=
old_library=
inherited_linker_flags=
# If the library was installed with an old release of libtool,
# it will not redefine variables installed, or shouldnotlink
installed=yes
shouldnotlink=no
avoidtemprpath=
# Read the .la file
func_source "$lib"
# Convert "-framework foo" to "foo.ltframework"
if test -n "$inherited_linker_flags"; then
tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'`
for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do
case " $new_inherited_linker_flags " in
*" $tmp_inherited_linker_flag "*) ;;
*) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";;
esac
done
fi
dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
if test "$linkmode,$pass" = "lib,link" ||
test "$linkmode,$pass" = "prog,scan" ||
{ test "$linkmode" != prog && test "$linkmode" != lib; }; then
test -n "$dlopen" && func_append dlfiles " $dlopen"
test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen"
fi
if test "$pass" = conv; then
# Only check for convenience libraries
deplibs="$lib $deplibs"
if test -z "$libdir"; then
if test -z "$old_library"; then
func_fatal_error "cannot find name of link library for \`$lib'"
fi
# It is a libtool convenience library, so add in its objects.
func_append convenience " $ladir/$objdir/$old_library"
func_append old_convenience " $ladir/$objdir/$old_library"
elif test "$linkmode" != prog && test "$linkmode" != lib; then
func_fatal_error "\`$lib' is not a convenience library"
fi
tmp_libs=
for deplib in $dependency_libs; do
deplibs="$deplib $deplibs"
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
*" $deplib "*) func_append specialdeplibs " $deplib" ;;
esac
fi
func_append tmp_libs " $deplib"
done
continue
fi # $pass = conv
# Get the name of the library we link against.
linklib=
if test -n "$old_library" &&
{ test "$prefer_static_libs" = yes ||
test "$prefer_static_libs,$installed" = "built,no"; }; then
linklib=$old_library
else
for l in $old_library $library_names; do
linklib="$l"
done
fi
if test -z "$linklib"; then
func_fatal_error "cannot find name of link library for \`$lib'"
fi
# This library was specified with -dlopen.
if test "$pass" = dlopen; then
if test -z "$libdir"; then
func_fatal_error "cannot -dlopen a convenience library: \`$lib'"
fi
if test -z "$dlname" ||
test "$dlopen_support" != yes ||
test "$build_libtool_libs" = no; then
# If there is no dlname, no dlopen support or we're linking
# statically, we need to preload. We also need to preload any
# dependent libraries so libltdl's deplib preloader doesn't
# bomb out in the load deplibs phase.
func_append dlprefiles " $lib $dependency_libs"
else
func_append newdlfiles " $lib"
fi
continue
fi # $pass = dlopen
# We need an absolute path.
case $ladir in
[\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;;
*)
abs_ladir=`cd "$ladir" && pwd`
if test -z "$abs_ladir"; then
func_warning "cannot determine absolute directory name of \`$ladir'"
func_warning "passing it literally to the linker, although it might fail"
abs_ladir="$ladir"
fi
;;
esac
func_basename "$lib"
laname="$func_basename_result"
# Find the relevant object directory and library name.
if test "X$installed" = Xyes; then
if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then
func_warning "library \`$lib' was moved."
dir="$ladir"
absdir="$abs_ladir"
libdir="$abs_ladir"
else
dir="$lt_sysroot$libdir"
absdir="$lt_sysroot$libdir"
fi
test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes
else
if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then
dir="$ladir"
absdir="$abs_ladir"
# Remove this search path later
func_append notinst_path " $abs_ladir"
else
dir="$ladir/$objdir"
absdir="$abs_ladir/$objdir"
# Remove this search path later
func_append notinst_path " $abs_ladir"
fi
fi # $installed = yes
func_stripname 'lib' '.la' "$laname"
name=$func_stripname_result
# This library was specified with -dlpreopen.
if test "$pass" = dlpreopen; then
if test -z "$libdir" && test "$linkmode" = prog; then
func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'"
fi
case "$host" in
# special handling for platforms with PE-DLLs.
*cygwin* | *mingw* | *cegcc* )
# Linker will automatically link against shared library if both
# static and shared are present. Therefore, ensure we extract
# symbols from the import library if a shared library is present
# (otherwise, the dlopen module name will be incorrect). We do
# this by putting the import library name into $newdlprefiles.
# We recover the dlopen module name by 'saving' the la file
# name in a special purpose variable, and (later) extracting the
# dlname from the la file.
if test -n "$dlname"; then
func_tr_sh "$dir/$linklib"
eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname"
func_append newdlprefiles " $dir/$linklib"
else
func_append newdlprefiles " $dir/$old_library"
# Keep a list of preopened convenience libraries to check
# that they are being used correctly in the link pass.
test -z "$libdir" && \
func_append dlpreconveniencelibs " $dir/$old_library"
fi
;;
* )
# Prefer using a static library (so that no silly _DYNAMIC symbols
# are required to link).
if test -n "$old_library"; then
func_append newdlprefiles " $dir/$old_library"
# Keep a list of preopened convenience libraries to check
# that they are being used correctly in the link pass.
test -z "$libdir" && \
func_append dlpreconveniencelibs " $dir/$old_library"
# Otherwise, use the dlname, so that lt_dlopen finds it.
elif test -n "$dlname"; then
func_append newdlprefiles " $dir/$dlname"
else
func_append newdlprefiles " $dir/$linklib"
fi
;;
esac
fi # $pass = dlpreopen
if test -z "$libdir"; then
# Link the convenience library
if test "$linkmode" = lib; then
deplibs="$dir/$old_library $deplibs"
elif test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$dir/$old_library $compile_deplibs"
finalize_deplibs="$dir/$old_library $finalize_deplibs"
else
deplibs="$lib $deplibs" # used for prog,scan pass
fi
continue
fi
if test "$linkmode" = prog && test "$pass" != link; then
func_append newlib_search_path " $ladir"
deplibs="$lib $deplibs"
linkalldeplibs=no
if test "$link_all_deplibs" != no || test -z "$library_names" ||
test "$build_libtool_libs" = no; then
linkalldeplibs=yes
fi
tmp_libs=
for deplib in $dependency_libs; do
case $deplib in
-L*) func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
func_append newlib_search_path " $func_resolve_sysroot_result"
;;
esac
# Need to link against all dependency_libs?
if test "$linkalldeplibs" = yes; then
deplibs="$deplib $deplibs"
else
# Need to hardcode shared library paths
# or/and link against static libraries
newdependency_libs="$deplib $newdependency_libs"
fi
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
*" $deplib "*) func_append specialdeplibs " $deplib" ;;
esac
fi
func_append tmp_libs " $deplib"
done # for deplib
continue
fi # $linkmode = prog...
if test "$linkmode,$pass" = "prog,link"; then
if test -n "$library_names" &&
{ { test "$prefer_static_libs" = no ||
test "$prefer_static_libs,$installed" = "built,yes"; } ||
test -z "$old_library"; }; then
# We need to hardcode the library path
if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then
# Make sure the rpath contains only unique directories.
case "$temp_rpath:" in
*"$absdir:"*) ;;
*) func_append temp_rpath "$absdir:" ;;
esac
fi
# Hardcode the library path.
# Skip directories that are in the system default run-time
# search path.
case " $sys_lib_dlsearch_path " in
*" $absdir "*) ;;
*)
case "$compile_rpath " in
*" $absdir "*) ;;
*) func_append compile_rpath " $absdir" ;;
esac
;;
esac
case " $sys_lib_dlsearch_path " in
*" $libdir "*) ;;
*)
case "$finalize_rpath " in
*" $libdir "*) ;;
*) func_append finalize_rpath " $libdir" ;;
esac
;;
esac
fi # $linkmode,$pass = prog,link...
if test "$alldeplibs" = yes &&
{ test "$deplibs_check_method" = pass_all ||
{ test "$build_libtool_libs" = yes &&
test -n "$library_names"; }; }; then
# We only need to search for static libraries
continue
fi
fi
link_static=no # Whether the deplib will be linked statically
use_static_libs=$prefer_static_libs
if test "$use_static_libs" = built && test "$installed" = yes; then
use_static_libs=no
fi
if test -n "$library_names" &&
{ test "$use_static_libs" = no || test -z "$old_library"; }; then
case $host in
*cygwin* | *mingw* | *cegcc*)
# No point in relinking DLLs because paths are not encoded
func_append notinst_deplibs " $lib"
need_relink=no
;;
*)
if test "$installed" = no; then
func_append notinst_deplibs " $lib"
need_relink=yes
fi
;;
esac
# This is a shared library
# Warn about portability, can't link against -module's on some
# systems (darwin). Don't bleat about dlopened modules though!
dlopenmodule=""
for dlpremoduletest in $dlprefiles; do
if test "X$dlpremoduletest" = "X$lib"; then
dlopenmodule="$dlpremoduletest"
break
fi
done
if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then
echo
if test "$linkmode" = prog; then
$ECHO "*** Warning: Linking the executable $output against the loadable module"
else
$ECHO "*** Warning: Linking the shared library $output against the loadable module"
fi
$ECHO "*** $linklib is not portable!"
fi
if test "$linkmode" = lib &&
test "$hardcode_into_libs" = yes; then
# Hardcode the library path.
# Skip directories that are in the system default run-time
# search path.
case " $sys_lib_dlsearch_path " in
*" $absdir "*) ;;
*)
case "$compile_rpath " in
*" $absdir "*) ;;
*) func_append compile_rpath " $absdir" ;;
esac
;;
esac
case " $sys_lib_dlsearch_path " in
*" $libdir "*) ;;
*)
case "$finalize_rpath " in
*" $libdir "*) ;;
*) func_append finalize_rpath " $libdir" ;;
esac
;;
esac
fi
if test -n "$old_archive_from_expsyms_cmds"; then
# figure out the soname
set dummy $library_names
shift
realname="$1"
shift
libname=`eval "\\$ECHO \"$libname_spec\""`
# use dlname if we got it. it's perfectly good, no?
if test -n "$dlname"; then
soname="$dlname"
elif test -n "$soname_spec"; then
# bleh windows
case $host in
*cygwin* | mingw* | *cegcc*)
func_arith $current - $age
major=$func_arith_result
versuffix="-$major"
;;
esac
eval soname=\"$soname_spec\"
else
soname="$realname"
fi
# Make a new name for the extract_expsyms_cmds to use
soroot="$soname"
func_basename "$soroot"
soname="$func_basename_result"
func_stripname 'lib' '.dll' "$soname"
newlib=libimp-$func_stripname_result.a
# If the library has no export list, then create one now
if test -f "$output_objdir/$soname-def"; then :
else
func_verbose "extracting exported symbol list from \`$soname'"
func_execute_cmds "$extract_expsyms_cmds" 'exit $?'
fi
# Create $newlib
if test -f "$output_objdir/$newlib"; then :; else
func_verbose "generating import library for \`$soname'"
func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?'
fi
# make sure the library variables are pointing to the new library
dir=$output_objdir
linklib=$newlib
fi # test -n "$old_archive_from_expsyms_cmds"
if test "$linkmode" = prog || test "$opt_mode" != relink; then
add_shlibpath=
add_dir=
add=
lib_linked=yes
case $hardcode_action in
immediate | unsupported)
if test "$hardcode_direct" = no; then
add="$dir/$linklib"
case $host in
*-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;;
*-*-sysv4*uw2*) add_dir="-L$dir" ;;
*-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \
*-*-unixware7*) add_dir="-L$dir" ;;
*-*-darwin* )
# if the lib is a (non-dlopened) module then we can not
# link against it, someone is ignoring the earlier warnings
if /usr/bin/file -L $add 2> /dev/null |
$GREP ": [^:]* bundle" >/dev/null ; then
if test "X$dlopenmodule" != "X$lib"; then
$ECHO "*** Warning: lib $linklib is a module, not a shared library"
if test -z "$old_library" ; then
echo
echo "*** And there doesn't seem to be a static archive available"
echo "*** The link will probably fail, sorry"
else
add="$dir/$old_library"
fi
elif test -n "$old_library"; then
add="$dir/$old_library"
fi
fi
esac
elif test "$hardcode_minus_L" = no; then
case $host in
*-*-sunos*) add_shlibpath="$dir" ;;
esac
add_dir="-L$dir"
add="-l$name"
elif test "$hardcode_shlibpath_var" = no; then
add_shlibpath="$dir"
add="-l$name"
else
lib_linked=no
fi
;;
relink)
if test "$hardcode_direct" = yes &&
test "$hardcode_direct_absolute" = no; then
add="$dir/$linklib"
elif test "$hardcode_minus_L" = yes; then
- add_dir="-L$dir"
+ add_dir="-L$absdir"
# Try looking first in the location we're being installed to.
if test -n "$inst_prefix_dir"; then
case $libdir in
[\\/]*)
func_append add_dir " -L$inst_prefix_dir$libdir"
;;
esac
fi
add="-l$name"
elif test "$hardcode_shlibpath_var" = yes; then
add_shlibpath="$dir"
add="-l$name"
else
lib_linked=no
fi
;;
*) lib_linked=no ;;
esac
if test "$lib_linked" != yes; then
func_fatal_configuration "unsupported hardcode properties"
fi
if test -n "$add_shlibpath"; then
case :$compile_shlibpath: in
*":$add_shlibpath:"*) ;;
*) func_append compile_shlibpath "$add_shlibpath:" ;;
esac
fi
if test "$linkmode" = prog; then
test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs"
test -n "$add" && compile_deplibs="$add $compile_deplibs"
else
test -n "$add_dir" && deplibs="$add_dir $deplibs"
test -n "$add" && deplibs="$add $deplibs"
if test "$hardcode_direct" != yes &&
test "$hardcode_minus_L" != yes &&
test "$hardcode_shlibpath_var" = yes; then
case :$finalize_shlibpath: in
*":$libdir:"*) ;;
*) func_append finalize_shlibpath "$libdir:" ;;
esac
fi
fi
fi
if test "$linkmode" = prog || test "$opt_mode" = relink; then
add_shlibpath=
add_dir=
add=
# Finalize command for both is simple: just hardcode it.
if test "$hardcode_direct" = yes &&
test "$hardcode_direct_absolute" = no; then
add="$libdir/$linklib"
elif test "$hardcode_minus_L" = yes; then
add_dir="-L$libdir"
add="-l$name"
elif test "$hardcode_shlibpath_var" = yes; then
case :$finalize_shlibpath: in
*":$libdir:"*) ;;
*) func_append finalize_shlibpath "$libdir:" ;;
esac
add="-l$name"
elif test "$hardcode_automatic" = yes; then
if test -n "$inst_prefix_dir" &&
test -f "$inst_prefix_dir$libdir/$linklib" ; then
add="$inst_prefix_dir$libdir/$linklib"
else
add="$libdir/$linklib"
fi
else
# We cannot seem to hardcode it, guess we'll fake it.
add_dir="-L$libdir"
# Try looking first in the location we're being installed to.
if test -n "$inst_prefix_dir"; then
case $libdir in
[\\/]*)
func_append add_dir " -L$inst_prefix_dir$libdir"
;;
esac
fi
add="-l$name"
fi
if test "$linkmode" = prog; then
test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs"
test -n "$add" && finalize_deplibs="$add $finalize_deplibs"
else
test -n "$add_dir" && deplibs="$add_dir $deplibs"
test -n "$add" && deplibs="$add $deplibs"
fi
fi
elif test "$linkmode" = prog; then
# Here we assume that one of hardcode_direct or hardcode_minus_L
# is not unsupported. This is valid on all known static and
# shared platforms.
if test "$hardcode_direct" != unsupported; then
test -n "$old_library" && linklib="$old_library"
compile_deplibs="$dir/$linklib $compile_deplibs"
finalize_deplibs="$dir/$linklib $finalize_deplibs"
else
compile_deplibs="-l$name -L$dir $compile_deplibs"
finalize_deplibs="-l$name -L$dir $finalize_deplibs"
fi
elif test "$build_libtool_libs" = yes; then
# Not a shared library
if test "$deplibs_check_method" != pass_all; then
# We're trying link a shared library against a static one
# but the system doesn't support it.
# Just print a warning and add the library to dependency_libs so
# that the program can be linked against the static library.
echo
$ECHO "*** Warning: This system can not link to static lib archive $lib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have."
if test "$module" = yes; then
echo "*** But as you try to build a module library, libtool will still create "
echo "*** a static module, that should work as long as the dlopening application"
echo "*** is linked with the -dlopen flag to resolve symbols at runtime."
if test -z "$global_symbol_pipe"; then
echo
echo "*** However, this would only work if libtool was able to extract symbol"
echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
echo "*** not find such a program. So, this module is probably useless."
echo "*** \`nm' from GNU binutils and a full rebuild may help."
fi
if test "$build_old_libs" = no; then
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
fi
else
deplibs="$dir/$old_library $deplibs"
link_static=yes
fi
fi # link shared/static library?
if test "$linkmode" = lib; then
if test -n "$dependency_libs" &&
{ test "$hardcode_into_libs" != yes ||
test "$build_old_libs" = yes ||
test "$link_static" = yes; }; then
# Extract -R from dependency_libs
temp_deplibs=
for libdir in $dependency_libs; do
case $libdir in
-R*) func_stripname '-R' '' "$libdir"
temp_xrpath=$func_stripname_result
case " $xrpath " in
*" $temp_xrpath "*) ;;
*) func_append xrpath " $temp_xrpath";;
esac;;
*) func_append temp_deplibs " $libdir";;
esac
done
dependency_libs="$temp_deplibs"
fi
func_append newlib_search_path " $absdir"
# Link against this library
test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs"
# ... and its dependency_libs
tmp_libs=
for deplib in $dependency_libs; do
newdependency_libs="$deplib $newdependency_libs"
case $deplib in
-L*) func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result";;
*) func_resolve_sysroot "$deplib" ;;
esac
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
*" $func_resolve_sysroot_result "*)
func_append specialdeplibs " $func_resolve_sysroot_result" ;;
esac
fi
func_append tmp_libs " $func_resolve_sysroot_result"
done
if test "$link_all_deplibs" != no; then
# Add the search paths of all dependency libraries
for deplib in $dependency_libs; do
path=
case $deplib in
-L*) path="$deplib" ;;
*.la)
func_resolve_sysroot "$deplib"
deplib=$func_resolve_sysroot_result
func_dirname "$deplib" "" "."
dir=$func_dirname_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;;
*)
absdir=`cd "$dir" && pwd`
if test -z "$absdir"; then
func_warning "cannot determine absolute directory name of \`$dir'"
absdir="$dir"
fi
;;
esac
if $GREP "^installed=no" $deplib > /dev/null; then
case $host in
*-*-darwin*)
depdepl=
eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib`
if test -n "$deplibrary_names" ; then
for tmp in $deplibrary_names ; do
depdepl=$tmp
done
if test -f "$absdir/$objdir/$depdepl" ; then
depdepl="$absdir/$objdir/$depdepl"
darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
if test -z "$darwin_install_name"; then
darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
fi
func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}"
func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}"
path=
fi
fi
;;
*)
path="-L$absdir/$objdir"
;;
esac
else
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
test -z "$libdir" && \
func_fatal_error "\`$deplib' is not a valid libtool archive"
test "$absdir" != "$libdir" && \
func_warning "\`$deplib' seems to be moved"
path="-L$absdir"
fi
;;
esac
case " $deplibs " in
*" $path "*) ;;
*) deplibs="$path $deplibs" ;;
esac
done
fi # link_all_deplibs != no
fi # linkmode = lib
done # for deplib in $libs
if test "$pass" = link; then
if test "$linkmode" = "prog"; then
compile_deplibs="$new_inherited_linker_flags $compile_deplibs"
finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs"
else
compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
fi
fi
dependency_libs="$newdependency_libs"
if test "$pass" = dlpreopen; then
# Link the dlpreopened libraries before other libraries
for deplib in $save_deplibs; do
deplibs="$deplib $deplibs"
done
fi
if test "$pass" != dlopen; then
if test "$pass" != conv; then
# Make sure lib_search_path contains only unique directories.
lib_search_path=
for dir in $newlib_search_path; do
case "$lib_search_path " in
*" $dir "*) ;;
*) func_append lib_search_path " $dir" ;;
esac
done
newlib_search_path=
fi
if test "$linkmode,$pass" != "prog,link"; then
vars="deplibs"
else
vars="compile_deplibs finalize_deplibs"
fi
for var in $vars dependency_libs; do
# Add libraries to $var in reverse order
eval tmp_libs=\"\$$var\"
new_libs=
for deplib in $tmp_libs; do
# FIXME: Pedantically, this is the right thing to do, so
# that some nasty dependency loop isn't accidentally
# broken:
#new_libs="$deplib $new_libs"
# Pragmatically, this seems to cause very few problems in
# practice:
case $deplib in
-L*) new_libs="$deplib $new_libs" ;;
-R*) ;;
*)
# And here is the reason: when a library appears more
# than once as an explicit dependence of a library, or
# is implicitly linked in more than once by the
# compiler, it is considered special, and multiple
# occurrences thereof are not removed. Compare this
# with having the same library being listed as a
# dependency of multiple other libraries: in this case,
# we know (pedantically, we assume) the library does not
# need to be listed more than once, so we keep only the
# last copy. This is not always right, but it is rare
# enough that we require users that really mean to play
# such unportable linking tricks to link the library
# using -Wl,-lname, so that libtool does not consider it
# for duplicate removal.
case " $specialdeplibs " in
*" $deplib "*) new_libs="$deplib $new_libs" ;;
*)
case " $new_libs " in
*" $deplib "*) ;;
*) new_libs="$deplib $new_libs" ;;
esac
;;
esac
;;
esac
done
tmp_libs=
for deplib in $new_libs; do
case $deplib in
-L*)
case " $tmp_libs " in
*" $deplib "*) ;;
*) func_append tmp_libs " $deplib" ;;
esac
;;
*) func_append tmp_libs " $deplib" ;;
esac
done
eval $var=\"$tmp_libs\"
done # for var
fi
# Last step: remove runtime libs from dependency_libs
# (they stay in deplibs)
tmp_libs=
for i in $dependency_libs ; do
case " $predeps $postdeps $compiler_lib_search_path " in
*" $i "*)
i=""
;;
esac
if test -n "$i" ; then
func_append tmp_libs " $i"
fi
done
dependency_libs=$tmp_libs
done # for pass
if test "$linkmode" = prog; then
dlfiles="$newdlfiles"
fi
if test "$linkmode" = prog || test "$linkmode" = lib; then
dlprefiles="$newdlprefiles"
fi
case $linkmode in
oldlib)
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
func_warning "\`-dlopen' is ignored for archives"
fi
case " $deplibs" in
*\ -l* | *\ -L*)
func_warning "\`-l' and \`-L' are ignored for archives" ;;
esac
test -n "$rpath" && \
func_warning "\`-rpath' is ignored for archives"
test -n "$xrpath" && \
func_warning "\`-R' is ignored for archives"
test -n "$vinfo" && \
func_warning "\`-version-info/-version-number' is ignored for archives"
test -n "$release" && \
func_warning "\`-release' is ignored for archives"
test -n "$export_symbols$export_symbols_regex" && \
func_warning "\`-export-symbols' is ignored for archives"
# Now set the variables for building old libraries.
build_libtool_libs=no
oldlibs="$output"
func_append objs "$old_deplibs"
;;
lib)
# Make sure we only generate libraries of the form `libNAME.la'.
case $outputname in
lib*)
func_stripname 'lib' '.la' "$outputname"
name=$func_stripname_result
eval shared_ext=\"$shrext_cmds\"
eval libname=\"$libname_spec\"
;;
*)
test "$module" = no && \
func_fatal_help "libtool library \`$output' must begin with \`lib'"
if test "$need_lib_prefix" != no; then
# Add the "lib" prefix for modules if required
func_stripname '' '.la' "$outputname"
name=$func_stripname_result
eval shared_ext=\"$shrext_cmds\"
eval libname=\"$libname_spec\"
else
func_stripname '' '.la' "$outputname"
libname=$func_stripname_result
fi
;;
esac
if test -n "$objs"; then
if test "$deplibs_check_method" != pass_all; then
func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs"
else
echo
$ECHO "*** Warning: Linking the shared library $output against the non-libtool"
$ECHO "*** objects $objs is not portable!"
func_append libobjs " $objs"
fi
fi
test "$dlself" != no && \
func_warning "\`-dlopen self' is ignored for libtool libraries"
set dummy $rpath
shift
test "$#" -gt 1 && \
func_warning "ignoring multiple \`-rpath's for a libtool library"
install_libdir="$1"
oldlibs=
if test -z "$rpath"; then
if test "$build_libtool_libs" = yes; then
# Building a libtool convenience library.
# Some compilers have problems with a `.al' extension so
# convenience libraries should have the same extension an
# archive normally would.
oldlibs="$output_objdir/$libname.$libext $oldlibs"
build_libtool_libs=convenience
build_old_libs=yes
fi
test -n "$vinfo" && \
func_warning "\`-version-info/-version-number' is ignored for convenience libraries"
test -n "$release" && \
func_warning "\`-release' is ignored for convenience libraries"
else
# Parse the version information argument.
save_ifs="$IFS"; IFS=':'
set dummy $vinfo 0 0 0
shift
IFS="$save_ifs"
test -n "$7" && \
func_fatal_help "too many parameters to \`-version-info'"
# convert absolute version numbers to libtool ages
# this retains compatibility with .la files and attempts
# to make the code below a bit more comprehensible
case $vinfo_number in
yes)
number_major="$1"
number_minor="$2"
number_revision="$3"
#
# There are really only two kinds -- those that
# use the current revision as the major version
# and those that subtract age and use age as
# a minor version. But, then there is irix
# which has an extra 1 added just for fun
#
case $version_type in
+ # correct linux to gnu/linux during the next big refactor
darwin|linux|osf|windows|none)
func_arith $number_major + $number_minor
current=$func_arith_result
age="$number_minor"
revision="$number_revision"
;;
freebsd-aout|freebsd-elf|qnx|sunos)
current="$number_major"
revision="$number_minor"
age="0"
;;
irix|nonstopux)
func_arith $number_major + $number_minor
current=$func_arith_result
age="$number_minor"
revision="$number_minor"
lt_irix_increment=no
;;
esac
;;
no)
current="$1"
revision="$2"
age="$3"
;;
esac
# Check that each of the things are valid numbers.
case $current in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "CURRENT \`$current' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
case $revision in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "REVISION \`$revision' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
case $age in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "AGE \`$age' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
if test "$age" -gt "$current"; then
func_error "AGE \`$age' is greater than the current interface number \`$current'"
func_fatal_error "\`$vinfo' is not valid version information"
fi
# Calculate the version variables.
major=
versuffix=
verstring=
case $version_type in
none) ;;
darwin)
# Like Linux, but with the current version available in
# verstring for coding it into the library header
func_arith $current - $age
major=.$func_arith_result
versuffix="$major.$age.$revision"
# Darwin ld doesn't like 0 for these options...
func_arith $current + 1
minor_current=$func_arith_result
xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision"
verstring="-compatibility_version $minor_current -current_version $minor_current.$revision"
;;
freebsd-aout)
major=".$current"
versuffix=".$current.$revision";
;;
freebsd-elf)
major=".$current"
versuffix=".$current"
;;
irix | nonstopux)
if test "X$lt_irix_increment" = "Xno"; then
func_arith $current - $age
else
func_arith $current - $age + 1
fi
major=$func_arith_result
case $version_type in
nonstopux) verstring_prefix=nonstopux ;;
*) verstring_prefix=sgi ;;
esac
verstring="$verstring_prefix$major.$revision"
# Add in all the interfaces that we are compatible with.
loop=$revision
while test "$loop" -ne 0; do
func_arith $revision - $loop
iface=$func_arith_result
func_arith $loop - 1
loop=$func_arith_result
verstring="$verstring_prefix$major.$iface:$verstring"
done
# Before this point, $major must not contain `.'.
major=.$major
versuffix="$major.$revision"
;;
- linux)
+ linux) # correct to gnu/linux during the next big refactor
func_arith $current - $age
major=.$func_arith_result
versuffix="$major.$age.$revision"
;;
osf)
func_arith $current - $age
major=.$func_arith_result
versuffix=".$current.$age.$revision"
verstring="$current.$age.$revision"
# Add in all the interfaces that we are compatible with.
loop=$age
while test "$loop" -ne 0; do
func_arith $current - $loop
iface=$func_arith_result
func_arith $loop - 1
loop=$func_arith_result
verstring="$verstring:${iface}.0"
done
# Make executables depend on our current version.
func_append verstring ":${current}.0"
;;
qnx)
major=".$current"
versuffix=".$current"
;;
sunos)
major=".$current"
versuffix=".$current.$revision"
;;
windows)
# Use '-' rather than '.', since we only want one
# extension on DOS 8.3 filesystems.
func_arith $current - $age
major=$func_arith_result
versuffix="-$major"
;;
*)
func_fatal_configuration "unknown library version type \`$version_type'"
;;
esac
# Clear the version info if we defaulted, and they specified a release.
if test -z "$vinfo" && test -n "$release"; then
major=
case $version_type in
darwin)
# we can't check for "0.0" in archive_cmds due to quoting
# problems, so we reset it completely
verstring=
;;
*)
verstring="0.0"
;;
esac
if test "$need_version" = no; then
versuffix=
else
versuffix=".0.0"
fi
fi
# Remove version info from name if versioning should be avoided
if test "$avoid_version" = yes && test "$need_version" = no; then
major=
versuffix=
verstring=""
fi
# Check to see if the archive will have undefined symbols.
if test "$allow_undefined" = yes; then
if test "$allow_undefined_flag" = unsupported; then
func_warning "undefined symbols not allowed in $host shared libraries"
build_libtool_libs=no
build_old_libs=yes
fi
else
# Don't allow undefined symbols.
allow_undefined_flag="$no_undefined_flag"
fi
fi
func_generate_dlsyms "$libname" "$libname" "yes"
func_append libobjs " $symfileobj"
test "X$libobjs" = "X " && libobjs=
if test "$opt_mode" != relink; then
# Remove our outputs, but don't remove object files since they
# may have been created when compiling PIC objects.
removelist=
tempremovelist=`$ECHO "$output_objdir/*"`
for p in $tempremovelist; do
case $p in
*.$objext | *.gcno)
;;
$output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*)
if test "X$precious_files_regex" != "X"; then
if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1
then
continue
fi
fi
func_append removelist " $p"
;;
*) ;;
esac
done
test -n "$removelist" && \
func_show_eval "${RM}r \$removelist"
fi
# Now set the variables for building old libraries.
if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then
func_append oldlibs " $output_objdir/$libname.$libext"
# Transform .lo files to .o files.
oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP`
fi
# Eliminate all temporary directories.
#for path in $notinst_path; do
# lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"`
# deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"`
# dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"`
#done
if test -n "$xrpath"; then
# If the user specified any rpath flags, then add them.
temp_xrpath=
for libdir in $xrpath; do
func_replace_sysroot "$libdir"
func_append temp_xrpath " -R$func_replace_sysroot_result"
case "$finalize_rpath " in
*" $libdir "*) ;;
*) func_append finalize_rpath " $libdir" ;;
esac
done
if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then
dependency_libs="$temp_xrpath $dependency_libs"
fi
fi
# Make sure dlfiles contains only unique files that won't be dlpreopened
old_dlfiles="$dlfiles"
dlfiles=
for lib in $old_dlfiles; do
case " $dlprefiles $dlfiles " in
*" $lib "*) ;;
*) func_append dlfiles " $lib" ;;
esac
done
# Make sure dlprefiles contains only unique files
old_dlprefiles="$dlprefiles"
dlprefiles=
for lib in $old_dlprefiles; do
case "$dlprefiles " in
*" $lib "*) ;;
*) func_append dlprefiles " $lib" ;;
esac
done
if test "$build_libtool_libs" = yes; then
if test -n "$rpath"; then
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*)
# these systems don't actually have a c library (as such)!
;;
*-*-rhapsody* | *-*-darwin1.[012])
# Rhapsody C library is in the System framework
func_append deplibs " System.ltframework"
;;
*-*-netbsd*)
# Don't link with libc until the a.out ld.so is fixed.
;;
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc due to us having libc/libc_r.
;;
*-*-sco3.2v5* | *-*-sco5v6*)
# Causes problems with __ctype
;;
*-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
# Compiler inserts libc in the correct place for threads to work
;;
*)
# Add libc to deplibs on all other systems if necessary.
if test "$build_libtool_need_lc" = "yes"; then
func_append deplibs " -lc"
fi
;;
esac
fi
# Transform deplibs into only deplibs that can be linked in shared.
name_save=$name
libname_save=$libname
release_save=$release
versuffix_save=$versuffix
major_save=$major
# I'm not sure if I'm treating the release correctly. I think
# release should show up in the -l (ie -lgmp5) so we don't want to
# add it in twice. Is that correct?
release=""
versuffix=""
major=""
newdeplibs=
droppeddeps=no
case $deplibs_check_method in
pass_all)
# Don't check for shared/static. Everything works.
# This might be a little naive. We might want to check
# whether the library exists or not. But this is on
# osf3 & osf4 and I'm not really sure... Just
# implementing what was already the behavior.
newdeplibs=$deplibs
;;
test_compile)
# This code stresses the "libraries are programs" paradigm to its
# limits. Maybe even breaks it. We compile a program, linking it
# against the deplibs as a proxy for the library. Then we can check
# whether they linked in statically or dynamically with ldd.
$opt_dry_run || $RM conftest.c
cat > conftest.c <<EOF
int main() { return 0; }
EOF
$opt_dry_run || $RM conftest
if $LTCC $LTCFLAGS -o conftest conftest.c $deplibs; then
ldd_output=`ldd conftest`
for i in $deplibs; do
case $i in
-l*)
func_stripname -l '' "$i"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $i "*)
func_append newdeplibs " $i"
i=""
;;
esac
fi
if test -n "$i" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
set dummy $deplib_matches; shift
deplib_match=$1
if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
func_append newdeplibs " $i"
else
droppeddeps=yes
echo
$ECHO "*** Warning: dynamic linker does not accept needed library $i."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which I believe you do not have"
echo "*** because a test_compile did reveal that the linker did not use it for"
echo "*** its dynamic dependency list that programs get resolved with at runtime."
fi
fi
;;
*)
func_append newdeplibs " $i"
;;
esac
done
else
# Error occurred in the first compile. Let's try to salvage
# the situation: Compile a separate program for each library.
for i in $deplibs; do
case $i in
-l*)
func_stripname -l '' "$i"
name=$func_stripname_result
$opt_dry_run || $RM conftest
if $LTCC $LTCFLAGS -o conftest conftest.c $i; then
ldd_output=`ldd conftest`
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $i "*)
func_append newdeplibs " $i"
i=""
;;
esac
fi
if test -n "$i" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
set dummy $deplib_matches; shift
deplib_match=$1
if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
func_append newdeplibs " $i"
else
droppeddeps=yes
echo
$ECHO "*** Warning: dynamic linker does not accept needed library $i."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because a test_compile did reveal that the linker did not use this one"
echo "*** as a dynamic dependency that programs can get resolved with at runtime."
fi
fi
else
droppeddeps=yes
echo
$ECHO "*** Warning! Library $i is needed by this library but I was not able to"
echo "*** make it link in! You will probably need to install it or some"
echo "*** library that it depends on before this library will be fully"
echo "*** functional. Installing it before continuing would be even better."
fi
;;
*)
func_append newdeplibs " $i"
;;
esac
done
fi
;;
file_magic*)
set dummy $deplibs_check_method; shift
file_magic_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
for a_deplib in $deplibs; do
case $a_deplib in
-l*)
func_stripname -l '' "$a_deplib"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $a_deplib "*)
func_append newdeplibs " $a_deplib"
a_deplib=""
;;
esac
fi
if test -n "$a_deplib" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
if test -n "$file_magic_glob"; then
libnameglob=`func_echo_all "$libname" | $SED -e $file_magic_glob`
else
libnameglob=$libname
fi
test "$want_nocaseglob" = yes && nocaseglob=`shopt -p nocaseglob`
for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
if test "$want_nocaseglob" = yes; then
shopt -s nocaseglob
potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
$nocaseglob
else
potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
fi
for potent_lib in $potential_libs; do
# Follow soft links.
if ls -lLd "$potent_lib" 2>/dev/null |
$GREP " -> " >/dev/null; then
continue
fi
# The statement above tries to avoid entering an
# endless loop below, in case of cyclic links.
# We might still enter an endless loop, since a link
# loop can be closed while we follow links,
# but so what?
potlib="$potent_lib"
while test -h "$potlib" 2>/dev/null; do
potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'`
case $potliblink in
[\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";;
*) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";;
esac
done
if eval $file_magic_cmd \"\$potlib\" 2>/dev/null |
$SED -e 10q |
$EGREP "$file_magic_regex" > /dev/null; then
func_append newdeplibs " $a_deplib"
a_deplib=""
break 2
fi
done
done
fi
if test -n "$a_deplib" ; then
droppeddeps=yes
echo
$ECHO "*** Warning: linker path does not have real file for library $a_deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because I did check the linker path looking for a file starting"
if test -z "$potlib" ; then
$ECHO "*** with $libname but no candidates were found. (...for file magic test)"
else
$ECHO "*** with $libname and none of the candidates passed a file format test"
$ECHO "*** using a file magic. Last file checked: $potlib"
fi
fi
;;
*)
# Add a -L argument.
func_append newdeplibs " $a_deplib"
;;
esac
done # Gone through all deplibs.
;;
match_pattern*)
set dummy $deplibs_check_method; shift
match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
for a_deplib in $deplibs; do
case $a_deplib in
-l*)
func_stripname -l '' "$a_deplib"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $a_deplib "*)
func_append newdeplibs " $a_deplib"
a_deplib=""
;;
esac
fi
if test -n "$a_deplib" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
potential_libs=`ls $i/$libname[.-]* 2>/dev/null`
for potent_lib in $potential_libs; do
potlib="$potent_lib" # see symlink-check above in file_magic test
if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \
$EGREP "$match_pattern_regex" > /dev/null; then
func_append newdeplibs " $a_deplib"
a_deplib=""
break 2
fi
done
done
fi
if test -n "$a_deplib" ; then
droppeddeps=yes
echo
$ECHO "*** Warning: linker path does not have real file for library $a_deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because I did check the linker path looking for a file starting"
if test -z "$potlib" ; then
$ECHO "*** with $libname but no candidates were found. (...for regex pattern test)"
else
$ECHO "*** with $libname and none of the candidates passed a file format test"
$ECHO "*** using a regex pattern. Last file checked: $potlib"
fi
fi
;;
*)
# Add a -L argument.
func_append newdeplibs " $a_deplib"
;;
esac
done # Gone through all deplibs.
;;
none | unknown | *)
newdeplibs=""
tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'`
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
for i in $predeps $postdeps ; do
# can't use Xsed below, because $i might contain '/'
tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"`
done
fi
case $tmp_deplibs in
*[!\ \ ]*)
echo
if test "X$deplibs_check_method" = "Xnone"; then
echo "*** Warning: inter-library dependencies are not supported in this platform."
else
echo "*** Warning: inter-library dependencies are not known to be supported."
fi
echo "*** All declared inter-library dependencies are being dropped."
droppeddeps=yes
;;
esac
;;
esac
versuffix=$versuffix_save
major=$major_save
release=$release_save
libname=$libname_save
name=$name_save
case $host in
*-*-rhapsody* | *-*-darwin1.[012])
# On Rhapsody replace the C library with the System framework
newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'`
;;
esac
if test "$droppeddeps" = yes; then
if test "$module" = yes; then
echo
echo "*** Warning: libtool could not satisfy all declared inter-library"
$ECHO "*** dependencies of module $libname. Therefore, libtool will create"
echo "*** a static module, that should work as long as the dlopening"
echo "*** application is linked with the -dlopen flag."
if test -z "$global_symbol_pipe"; then
echo
echo "*** However, this would only work if libtool was able to extract symbol"
echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
echo "*** not find such a program. So, this module is probably useless."
echo "*** \`nm' from GNU binutils and a full rebuild may help."
fi
if test "$build_old_libs" = no; then
oldlibs="$output_objdir/$libname.$libext"
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
else
echo "*** The inter-library dependencies that have been dropped here will be"
echo "*** automatically added whenever a program is linked with this library"
echo "*** or is declared to -dlopen it."
if test "$allow_undefined" = no; then
echo
echo "*** Since this library must not contain undefined symbols,"
echo "*** because either the platform does not support them or"
echo "*** it was explicitly requested with -no-undefined,"
echo "*** libtool will only create a static version of it."
if test "$build_old_libs" = no; then
oldlibs="$output_objdir/$libname.$libext"
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
fi
fi
fi
# Done checking deplibs!
deplibs=$newdeplibs
fi
# Time to change all our "foo.ltframework" stuff back to "-framework foo"
case $host in
*-*-darwin*)
newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
;;
esac
# move library search paths that coincide with paths to not yet
# installed libraries to the beginning of the library search list
new_libs=
for path in $notinst_path; do
case " $new_libs " in
*" -L$path/$objdir "*) ;;
*)
case " $deplibs " in
*" -L$path/$objdir "*)
func_append new_libs " -L$path/$objdir" ;;
esac
;;
esac
done
for deplib in $deplibs; do
case $deplib in
-L*)
case " $new_libs " in
*" $deplib "*) ;;
*) func_append new_libs " $deplib" ;;
esac
;;
*) func_append new_libs " $deplib" ;;
esac
done
deplibs="$new_libs"
# All the library-specific variables (install_libdir is set above).
library_names=
old_library=
dlname=
# Test again, we may have decided not to build it any more
if test "$build_libtool_libs" = yes; then
+ # Remove ${wl} instances when linking with ld.
+ # FIXME: should test the right _cmds variable.
+ case $archive_cmds in
+ *\$LD\ *) wl= ;;
+ esac
if test "$hardcode_into_libs" = yes; then
# Hardcode the library paths
hardcode_libdirs=
dep_rpath=
rpath="$finalize_rpath"
test "$opt_mode" != relink && rpath="$compile_rpath$rpath"
for libdir in $rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
func_replace_sysroot "$libdir"
libdir=$func_replace_sysroot_result
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
func_append dep_rpath " $flag"
fi
elif test -n "$runpath_var"; then
case "$perm_rpath " in
*" $libdir "*) ;;
- *) func_apped perm_rpath " $libdir" ;;
+ *) func_append perm_rpath " $libdir" ;;
esac
fi
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
- if test -n "$hardcode_libdir_flag_spec_ld"; then
- eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\"
- else
- eval dep_rpath=\"$hardcode_libdir_flag_spec\"
- fi
+ eval "dep_rpath=\"$hardcode_libdir_flag_spec\""
fi
if test -n "$runpath_var" && test -n "$perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $perm_rpath; do
func_append rpath "$dir:"
done
eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var"
fi
test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs"
fi
shlibpath="$finalize_shlibpath"
test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath"
if test -n "$shlibpath"; then
eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var"
fi
# Get the real and link names of the library.
eval shared_ext=\"$shrext_cmds\"
eval library_names=\"$library_names_spec\"
set dummy $library_names
shift
realname="$1"
shift
if test -n "$soname_spec"; then
eval soname=\"$soname_spec\"
else
soname="$realname"
fi
if test -z "$dlname"; then
dlname=$soname
fi
lib="$output_objdir/$realname"
linknames=
for link
do
func_append linknames " $link"
done
# Use standard objects if they are pic
test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP`
test "X$libobjs" = "X " && libobjs=
delfiles=
if test -n "$export_symbols" && test -n "$include_expsyms"; then
$opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp"
export_symbols="$output_objdir/$libname.uexp"
func_append delfiles " $export_symbols"
fi
orig_export_symbols=
case $host_os in
cygwin* | mingw* | cegcc*)
if test -n "$export_symbols" && test -z "$export_symbols_regex"; then
# exporting using user supplied symfile
if test "x`$SED 1q $export_symbols`" != xEXPORTS; then
# and it's NOT already a .def file. Must figure out
# which of the given symbols are data symbols and tag
# them as such. So, trigger use of export_symbols_cmds.
# export_symbols gets reassigned inside the "prepare
# the list of exported symbols" if statement, so the
# include_expsyms logic still works.
orig_export_symbols="$export_symbols"
export_symbols=
always_export_symbols=yes
fi
fi
;;
esac
# Prepare the list of exported symbols
if test -z "$export_symbols"; then
if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then
func_verbose "generating symbol list for \`$libname.la'"
export_symbols="$output_objdir/$libname.exp"
$opt_dry_run || $RM $export_symbols
cmds=$export_symbols_cmds
save_ifs="$IFS"; IFS='~'
for cmd1 in $cmds; do
IFS="$save_ifs"
# Take the normal branch if the nm_file_list_spec branch
# doesn't work or if tool conversion is not needed.
case $nm_file_list_spec~$to_tool_file_cmd in
*~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*)
try_normal_branch=yes
eval cmd=\"$cmd1\"
func_len " $cmd"
len=$func_len_result
;;
*)
try_normal_branch=no
;;
esac
if test "$try_normal_branch" = yes \
&& { test "$len" -lt "$max_cmd_len" \
|| test "$max_cmd_len" -le -1; }
then
func_show_eval "$cmd" 'exit $?'
skipped_export=false
elif test -n "$nm_file_list_spec"; then
func_basename "$output"
output_la=$func_basename_result
save_libobjs=$libobjs
save_output=$output
output=${output_objdir}/${output_la}.nm
func_to_tool_file "$output"
libobjs=$nm_file_list_spec$func_to_tool_file_result
func_append delfiles " $output"
func_verbose "creating $NM input file list: $output"
for obj in $save_libobjs; do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result"
done > "$output"
eval cmd=\"$cmd1\"
func_show_eval "$cmd" 'exit $?'
output=$save_output
libobjs=$save_libobjs
skipped_export=false
else
# The command line is too long to execute in one step.
func_verbose "using reloadable object file for export list..."
skipped_export=:
# Break out early, otherwise skipped_export may be
# set to false by a later but shorter cmd.
break
fi
done
IFS="$save_ifs"
if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then
func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
fi
fi
fi
if test -n "$export_symbols" && test -n "$include_expsyms"; then
tmp_export_symbols="$export_symbols"
test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols"
$opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
fi
if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then
# The given exports_symbols file has to be filtered, so filter it.
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
tmp_deplibs=
for test_deplib in $deplibs; do
case " $convenience " in
*" $test_deplib "*) ;;
*)
func_append tmp_deplibs " $test_deplib"
;;
esac
done
deplibs="$tmp_deplibs"
if test -n "$convenience"; then
if test -n "$whole_archive_flag_spec" &&
test "$compiler_needs_object" = yes &&
test -z "$libobjs"; then
# extract the archives, so we have objects to list.
# TODO: could optimize this to just extract one archive.
whole_archive_flag_spec=
fi
if test -n "$whole_archive_flag_spec"; then
save_libobjs=$libobjs
eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
test "X$libobjs" = "X " && libobjs=
else
gentop="$output_objdir/${outputname}x"
func_append generated " $gentop"
func_extract_archives $gentop $convenience
func_append libobjs " $func_extract_archives_result"
test "X$libobjs" = "X " && libobjs=
fi
fi
if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then
eval flag=\"$thread_safe_flag_spec\"
func_append linker_flags " $flag"
fi
# Make a backup of the uninstalled library when relinking
if test "$opt_mode" = relink; then
$opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $?
fi
# Do each of the archive commands.
if test "$module" = yes && test -n "$module_cmds" ; then
if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
eval test_cmds=\"$module_expsym_cmds\"
cmds=$module_expsym_cmds
else
eval test_cmds=\"$module_cmds\"
cmds=$module_cmds
fi
else
if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
eval test_cmds=\"$archive_expsym_cmds\"
cmds=$archive_expsym_cmds
else
eval test_cmds=\"$archive_cmds\"
cmds=$archive_cmds
fi
fi
if test "X$skipped_export" != "X:" &&
func_len " $test_cmds" &&
len=$func_len_result &&
test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
:
else
# The command line is too long to link in one step, link piecewise
# or, if using GNU ld and skipped_export is not :, use a linker
# script.
# Save the value of $output and $libobjs because we want to
# use them later. If we have whole_archive_flag_spec, we
# want to use save_libobjs as it was before
# whole_archive_flag_spec was expanded, because we can't
# assume the linker understands whole_archive_flag_spec.
# This may have to be revisited, in case too many
# convenience libraries get linked in and end up exceeding
# the spec.
if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then
save_libobjs=$libobjs
fi
save_output=$output
func_basename "$output"
output_la=$func_basename_result
# Clear the reloadable object creation command queue and
# initialize k to one.
test_cmds=
concat_cmds=
objlist=
last_robj=
k=1
if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then
output=${output_objdir}/${output_la}.lnkscript
func_verbose "creating GNU ld script: $output"
echo 'INPUT (' > $output
for obj in $save_libobjs
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result" >> $output
done
echo ')' >> $output
func_append delfiles " $output"
func_to_tool_file "$output"
output=$func_to_tool_file_result
elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then
output=${output_objdir}/${output_la}.lnk
func_verbose "creating linker input file list: $output"
: > $output
set x $save_libobjs
shift
firstobj=
if test "$compiler_needs_object" = yes; then
firstobj="$1 "
shift
fi
for obj
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result" >> $output
done
func_append delfiles " $output"
func_to_tool_file "$output"
output=$firstobj\"$file_list_spec$func_to_tool_file_result\"
else
if test -n "$save_libobjs"; then
func_verbose "creating reloadable object files..."
output=$output_objdir/$output_la-${k}.$objext
eval test_cmds=\"$reload_cmds\"
func_len " $test_cmds"
len0=$func_len_result
len=$len0
# Loop over the list of objects to be linked.
for obj in $save_libobjs
do
func_len " $obj"
func_arith $len + $func_len_result
len=$func_arith_result
if test "X$objlist" = X ||
test "$len" -lt "$max_cmd_len"; then
func_append objlist " $obj"
else
# The command $test_cmds is almost too long, add a
# command to the queue.
if test "$k" -eq 1 ; then
# The first file doesn't have a previous command to add.
reload_objs=$objlist
eval concat_cmds=\"$reload_cmds\"
else
# All subsequent reloadable object files will link in
# the last one created.
reload_objs="$objlist $last_robj"
eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\"
fi
last_robj=$output_objdir/$output_la-${k}.$objext
func_arith $k + 1
k=$func_arith_result
output=$output_objdir/$output_la-${k}.$objext
objlist=" $obj"
func_len " $last_robj"
func_arith $len0 + $func_len_result
len=$func_arith_result
fi
done
# Handle the remaining objects by creating one last
# reloadable object file. All subsequent reloadable object
# files will link in the last one created.
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
reload_objs="$objlist $last_robj"
eval concat_cmds=\"\${concat_cmds}$reload_cmds\"
if test -n "$last_robj"; then
eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\"
fi
func_append delfiles " $output"
else
output=
fi
if ${skipped_export-false}; then
func_verbose "generating symbol list for \`$libname.la'"
export_symbols="$output_objdir/$libname.exp"
$opt_dry_run || $RM $export_symbols
libobjs=$output
# Append the command to create the export file.
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\"
if test -n "$last_robj"; then
eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\"
fi
fi
test -n "$save_libobjs" &&
func_verbose "creating a temporary reloadable object file: $output"
# Loop through the commands generated above and execute them.
save_ifs="$IFS"; IFS='~'
for cmd in $concat_cmds; do
IFS="$save_ifs"
$opt_silent || {
func_quote_for_expand "$cmd"
eval "func_echo $func_quote_for_expand_result"
}
$opt_dry_run || eval "$cmd" || {
lt_exit=$?
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
( cd "$output_objdir" && \
$RM "${realname}T" && \
$MV "${realname}U" "$realname" )
fi
exit $lt_exit
}
done
IFS="$save_ifs"
if test -n "$export_symbols_regex" && ${skipped_export-false}; then
func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
fi
fi
if ${skipped_export-false}; then
if test -n "$export_symbols" && test -n "$include_expsyms"; then
tmp_export_symbols="$export_symbols"
test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols"
$opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
fi
if test -n "$orig_export_symbols"; then
# The given exports_symbols file has to be filtered, so filter it.
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
func_append delfiles " $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
fi
libobjs=$output
# Restore the value of output.
output=$save_output
if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then
eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
test "X$libobjs" = "X " && libobjs=
fi
# Expand the library linking commands again to reset the
# value of $libobjs for piecewise linking.
# Do each of the archive commands.
if test "$module" = yes && test -n "$module_cmds" ; then
if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
cmds=$module_expsym_cmds
else
cmds=$module_cmds
fi
else
if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
cmds=$archive_expsym_cmds
else
cmds=$archive_cmds
fi
fi
fi
if test -n "$delfiles"; then
# Append the command to remove temporary files to $cmds.
eval cmds=\"\$cmds~\$RM $delfiles\"
fi
# Add any objects from preloaded convenience libraries
if test -n "$dlprefiles"; then
gentop="$output_objdir/${outputname}x"
func_append generated " $gentop"
func_extract_archives $gentop $dlprefiles
func_append libobjs " $func_extract_archives_result"
test "X$libobjs" = "X " && libobjs=
fi
save_ifs="$IFS"; IFS='~'
for cmd in $cmds; do
IFS="$save_ifs"
eval cmd=\"$cmd\"
$opt_silent || {
func_quote_for_expand "$cmd"
eval "func_echo $func_quote_for_expand_result"
}
$opt_dry_run || eval "$cmd" || {
lt_exit=$?
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
( cd "$output_objdir" && \
$RM "${realname}T" && \
$MV "${realname}U" "$realname" )
fi
exit $lt_exit
}
done
IFS="$save_ifs"
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
$opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $?
if test -n "$convenience"; then
if test -z "$whole_archive_flag_spec"; then
func_show_eval '${RM}r "$gentop"'
fi
fi
exit $EXIT_SUCCESS
fi
# Create links to the real library.
for linkname in $linknames; do
if test "$realname" != "$linkname"; then
func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?'
fi
done
# If -module or -export-dynamic was specified, set the dlname.
if test "$module" = yes || test "$export_dynamic" = yes; then
# On all known operating systems, these are identical.
dlname="$soname"
fi
fi
;;
obj)
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
func_warning "\`-dlopen' is ignored for objects"
fi
case " $deplibs" in
*\ -l* | *\ -L*)
func_warning "\`-l' and \`-L' are ignored for objects" ;;
esac
test -n "$rpath" && \
func_warning "\`-rpath' is ignored for objects"
test -n "$xrpath" && \
func_warning "\`-R' is ignored for objects"
test -n "$vinfo" && \
func_warning "\`-version-info' is ignored for objects"
test -n "$release" && \
func_warning "\`-release' is ignored for objects"
case $output in
*.lo)
test -n "$objs$old_deplibs" && \
func_fatal_error "cannot build library object \`$output' from non-libtool objects"
libobj=$output
func_lo2o "$libobj"
obj=$func_lo2o_result
;;
*)
libobj=
obj="$output"
;;
esac
# Delete the old objects.
$opt_dry_run || $RM $obj $libobj
# Objects from convenience libraries. This assumes
# single-version convenience libraries. Whenever we create
# different ones for PIC/non-PIC, this we'll have to duplicate
# the extraction.
reload_conv_objs=
gentop=
# reload_cmds runs $LD directly, so let us get rid of
# -Wl from whole_archive_flag_spec and hope we can get by with
# turning comma into space..
wl=
if test -n "$convenience"; then
if test -n "$whole_archive_flag_spec"; then
eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\"
reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'`
else
gentop="$output_objdir/${obj}x"
func_append generated " $gentop"
func_extract_archives $gentop $convenience
reload_conv_objs="$reload_objs $func_extract_archives_result"
fi
fi
# If we're not building shared, we need to use non_pic_objs
test "$build_libtool_libs" != yes && libobjs="$non_pic_objects"
# Create the old-style object.
reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test
output="$obj"
func_execute_cmds "$reload_cmds" 'exit $?'
# Exit if we aren't doing a library object file.
if test -z "$libobj"; then
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
exit $EXIT_SUCCESS
fi
if test "$build_libtool_libs" != yes; then
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
# Create an invalid libtool object if no PIC, so that we don't
# accidentally link it into a program.
# $show "echo timestamp > $libobj"
# $opt_dry_run || eval "echo timestamp > $libobj" || exit $?
exit $EXIT_SUCCESS
fi
if test -n "$pic_flag" || test "$pic_mode" != default; then
# Only do commands if we really have different PIC objects.
reload_objs="$libobjs $reload_conv_objs"
output="$libobj"
func_execute_cmds "$reload_cmds" 'exit $?'
fi
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
exit $EXIT_SUCCESS
;;
prog)
case $host in
*cygwin*) func_stripname '' '.exe' "$output"
output=$func_stripname_result.exe;;
esac
test -n "$vinfo" && \
func_warning "\`-version-info' is ignored for programs"
test -n "$release" && \
func_warning "\`-release' is ignored for programs"
test "$preload" = yes \
&& test "$dlopen_support" = unknown \
&& test "$dlopen_self" = unknown \
&& test "$dlopen_self_static" = unknown && \
func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support."
case $host in
*-*-rhapsody* | *-*-darwin1.[012])
# On Rhapsody replace the C library is the System framework
compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'`
finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'`
;;
esac
case $host in
*-*-darwin*)
# Don't allow lazy linking, it breaks C++ global constructors
# But is supposedly fixed on 10.4 or later (yay!).
if test "$tagname" = CXX ; then
case ${MACOSX_DEPLOYMENT_TARGET-10.0} in
10.[0123])
func_append compile_command " ${wl}-bind_at_load"
func_append finalize_command " ${wl}-bind_at_load"
;;
esac
fi
# Time to change all our "foo.ltframework" stuff back to "-framework foo"
compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
;;
esac
# move library search paths that coincide with paths to not yet
# installed libraries to the beginning of the library search list
new_libs=
for path in $notinst_path; do
case " $new_libs " in
*" -L$path/$objdir "*) ;;
*)
case " $compile_deplibs " in
*" -L$path/$objdir "*)
func_append new_libs " -L$path/$objdir" ;;
esac
;;
esac
done
for deplib in $compile_deplibs; do
case $deplib in
-L*)
case " $new_libs " in
*" $deplib "*) ;;
*) func_append new_libs " $deplib" ;;
esac
;;
*) func_append new_libs " $deplib" ;;
esac
done
compile_deplibs="$new_libs"
func_append compile_command " $compile_deplibs"
func_append finalize_command " $finalize_deplibs"
if test -n "$rpath$xrpath"; then
# If the user specified any rpath flags, then add them.
for libdir in $rpath $xrpath; do
# This is the magic to use -rpath.
case "$finalize_rpath " in
*" $libdir "*) ;;
*) func_append finalize_rpath " $libdir" ;;
esac
done
fi
# Now hardcode the library paths
rpath=
hardcode_libdirs=
for libdir in $compile_rpath $finalize_rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
func_append rpath " $flag"
fi
elif test -n "$runpath_var"; then
case "$perm_rpath " in
*" $libdir "*) ;;
*) func_append perm_rpath " $libdir" ;;
esac
fi
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'`
case :$dllsearchpath: in
*":$libdir:"*) ;;
::) dllsearchpath=$libdir;;
*) func_append dllsearchpath ":$libdir";;
esac
case :$dllsearchpath: in
*":$testbindir:"*) ;;
::) dllsearchpath=$testbindir;;
*) func_append dllsearchpath ":$testbindir";;
esac
;;
esac
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
eval rpath=\" $hardcode_libdir_flag_spec\"
fi
compile_rpath="$rpath"
rpath=
hardcode_libdirs=
for libdir in $finalize_rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
func_append rpath " $flag"
fi
elif test -n "$runpath_var"; then
case "$finalize_perm_rpath " in
*" $libdir "*) ;;
*) func_append finalize_perm_rpath " $libdir" ;;
esac
fi
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
eval rpath=\" $hardcode_libdir_flag_spec\"
fi
finalize_rpath="$rpath"
if test -n "$libobjs" && test "$build_old_libs" = yes; then
# Transform all the library objects into standard objects.
compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
fi
func_generate_dlsyms "$outputname" "@PROGRAM@" "no"
# template prelinking step
if test -n "$prelink_cmds"; then
func_execute_cmds "$prelink_cmds" 'exit $?'
fi
wrappers_required=yes
case $host in
*cegcc* | *mingw32ce*)
# Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway.
wrappers_required=no
;;
*cygwin* | *mingw* )
if test "$build_libtool_libs" != yes; then
wrappers_required=no
fi
;;
*)
if test "$need_relink" = no || test "$build_libtool_libs" != yes; then
wrappers_required=no
fi
;;
esac
if test "$wrappers_required" = no; then
# Replace the output file specification.
compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
link_command="$compile_command$compile_rpath"
# We have no uninstalled library dependencies, so finalize right now.
exit_status=0
func_show_eval "$link_command" 'exit_status=$?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
# Delete the generated files.
if test -f "$output_objdir/${outputname}S.${objext}"; then
func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"'
fi
exit $exit_status
fi
if test -n "$compile_shlibpath$finalize_shlibpath"; then
compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command"
fi
if test -n "$finalize_shlibpath"; then
finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command"
fi
compile_var=
finalize_var=
if test -n "$runpath_var"; then
if test -n "$perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $perm_rpath; do
func_append rpath "$dir:"
done
compile_var="$runpath_var=\"$rpath\$$runpath_var\" "
fi
if test -n "$finalize_perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $finalize_perm_rpath; do
func_append rpath "$dir:"
done
finalize_var="$runpath_var=\"$rpath\$$runpath_var\" "
fi
fi
if test "$no_install" = yes; then
# We don't need to create a wrapper script.
link_command="$compile_var$compile_command$compile_rpath"
# Replace the output file specification.
link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
# Delete the old output file.
$opt_dry_run || $RM $output
# Link the executable and exit
func_show_eval "$link_command" 'exit $?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
exit $EXIT_SUCCESS
fi
if test "$hardcode_action" = relink; then
# Fast installation is not supported
link_command="$compile_var$compile_command$compile_rpath"
relink_command="$finalize_var$finalize_command$finalize_rpath"
func_warning "this platform does not like uninstalled shared libraries"
func_warning "\`$output' will be relinked during installation"
else
if test "$fast_install" != no; then
link_command="$finalize_var$compile_command$finalize_rpath"
if test "$fast_install" = yes; then
relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'`
else
# fast_install is set to needless
relink_command=
fi
else
link_command="$compile_var$compile_command$compile_rpath"
relink_command="$finalize_var$finalize_command$finalize_rpath"
fi
fi
# Replace the output file specification.
link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'`
# Delete the old output files.
$opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname
func_show_eval "$link_command" 'exit $?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output_objdir/$outputname"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
# Now create the wrapper script.
func_verbose "creating $output"
# Quote the relink command for shipping.
if test -n "$relink_command"; then
# Preserve any variables that may affect compiler behavior
for var in $variables_saved_for_relink; do
if eval test -z \"\${$var+set}\"; then
relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
elif eval var_value=\$$var; test -z "$var_value"; then
relink_command="$var=; export $var; $relink_command"
else
func_quote_for_eval "$var_value"
relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
fi
done
relink_command="(cd `pwd`; $relink_command)"
relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
fi
# Only actually do things if not in dry run mode.
$opt_dry_run || {
# win32 will think the script is a binary if it has
# a .exe suffix, so we strip it off here.
case $output in
*.exe) func_stripname '' '.exe' "$output"
output=$func_stripname_result ;;
esac
# test for cygwin because mv fails w/o .exe extensions
case $host in
*cygwin*)
exeext=.exe
func_stripname '' '.exe' "$outputname"
outputname=$func_stripname_result ;;
*) exeext= ;;
esac
case $host in
*cygwin* | *mingw* )
func_dirname_and_basename "$output" "" "."
output_name=$func_basename_result
output_path=$func_dirname_result
cwrappersource="$output_path/$objdir/lt-$output_name.c"
cwrapper="$output_path/$output_name.exe"
$RM $cwrappersource $cwrapper
trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15
func_emit_cwrapperexe_src > $cwrappersource
# The wrapper executable is built using the $host compiler,
# because it contains $host paths and files. If cross-
# compiling, it, like the target executable, must be
# executed on the $host or under an emulation environment.
$opt_dry_run || {
$LTCC $LTCFLAGS -o $cwrapper $cwrappersource
$STRIP $cwrapper
}
# Now, create the wrapper script for func_source use:
func_ltwrapper_scriptname $cwrapper
$RM $func_ltwrapper_scriptname_result
trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15
$opt_dry_run || {
# note: this script will not be executed, so do not chmod.
if test "x$build" = "x$host" ; then
$cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result
else
func_emit_wrapper no > $func_ltwrapper_scriptname_result
fi
}
;;
* )
$RM $output
trap "$RM $output; exit $EXIT_FAILURE" 1 2 15
func_emit_wrapper no > $output
chmod +x $output
;;
esac
}
exit $EXIT_SUCCESS
;;
esac
# See if we need to build an old-fashioned archive.
for oldlib in $oldlibs; do
if test "$build_libtool_libs" = convenience; then
oldobjs="$libobjs_save $symfileobj"
addlibs="$convenience"
build_libtool_libs=no
else
if test "$build_libtool_libs" = module; then
oldobjs="$libobjs_save"
build_libtool_libs=no
else
oldobjs="$old_deplibs $non_pic_objects"
if test "$preload" = yes && test -f "$symfileobj"; then
func_append oldobjs " $symfileobj"
fi
fi
addlibs="$old_convenience"
fi
if test -n "$addlibs"; then
gentop="$output_objdir/${outputname}x"
func_append generated " $gentop"
func_extract_archives $gentop $addlibs
func_append oldobjs " $func_extract_archives_result"
fi
# Do each command in the archive commands.
if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then
cmds=$old_archive_from_new_cmds
else
# Add any objects from preloaded convenience libraries
if test -n "$dlprefiles"; then
gentop="$output_objdir/${outputname}x"
func_append generated " $gentop"
func_extract_archives $gentop $dlprefiles
func_append oldobjs " $func_extract_archives_result"
fi
# POSIX demands no paths to be encoded in archives. We have
# to avoid creating archives with duplicate basenames if we
# might have to extract them afterwards, e.g., when creating a
# static archive out of a convenience library, or when linking
# the entirety of a libtool archive into another (currently
# not supported by libtool).
if (for obj in $oldobjs
do
func_basename "$obj"
$ECHO "$func_basename_result"
done | sort | sort -uc >/dev/null 2>&1); then
:
else
echo "copying selected object files to avoid basename conflicts..."
gentop="$output_objdir/${outputname}x"
func_append generated " $gentop"
func_mkdir_p "$gentop"
save_oldobjs=$oldobjs
oldobjs=
counter=1
for obj in $save_oldobjs
do
func_basename "$obj"
objbase="$func_basename_result"
case " $oldobjs " in
" ") oldobjs=$obj ;;
*[\ /]"$objbase "*)
while :; do
# Make sure we don't pick an alternate name that also
# overlaps.
newobj=lt$counter-$objbase
func_arith $counter + 1
counter=$func_arith_result
case " $oldobjs " in
*[\ /]"$newobj "*) ;;
*) if test ! -f "$gentop/$newobj"; then break; fi ;;
esac
done
func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj"
func_append oldobjs " $gentop/$newobj"
;;
*) func_append oldobjs " $obj" ;;
esac
done
fi
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
eval cmds=\"$old_archive_cmds\"
func_len " $cmds"
len=$func_len_result
if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
cmds=$old_archive_cmds
elif test -n "$archiver_list_spec"; then
func_verbose "using command file archive linking..."
for obj in $oldobjs
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result"
done > $output_objdir/$libname.libcmd
func_to_tool_file "$output_objdir/$libname.libcmd"
oldobjs=" $archiver_list_spec$func_to_tool_file_result"
cmds=$old_archive_cmds
else
# the command line is too long to link in one step, link in parts
func_verbose "using piecewise archive linking..."
save_RANLIB=$RANLIB
RANLIB=:
objlist=
concat_cmds=
save_oldobjs=$oldobjs
oldobjs=
# Is there a better way of finding the last object in the list?
for obj in $save_oldobjs
do
last_oldobj=$obj
done
eval test_cmds=\"$old_archive_cmds\"
func_len " $test_cmds"
len0=$func_len_result
len=$len0
for obj in $save_oldobjs
do
func_len " $obj"
func_arith $len + $func_len_result
len=$func_arith_result
func_append objlist " $obj"
if test "$len" -lt "$max_cmd_len"; then
:
else
# the above command should be used before it gets too long
oldobjs=$objlist
if test "$obj" = "$last_oldobj" ; then
RANLIB=$save_RANLIB
fi
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\"
objlist=
len=$len0
fi
done
RANLIB=$save_RANLIB
oldobjs=$objlist
if test "X$oldobjs" = "X" ; then
eval cmds=\"\$concat_cmds\"
else
eval cmds=\"\$concat_cmds~\$old_archive_cmds\"
fi
fi
fi
func_execute_cmds "$cmds" 'exit $?'
done
test -n "$generated" && \
func_show_eval "${RM}r$generated"
# Now create the libtool archive.
case $output in
*.la)
old_library=
test "$build_old_libs" = yes && old_library="$libname.$libext"
func_verbose "creating $output"
# Preserve any variables that may affect compiler behavior
for var in $variables_saved_for_relink; do
if eval test -z \"\${$var+set}\"; then
relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
elif eval var_value=\$$var; test -z "$var_value"; then
relink_command="$var=; export $var; $relink_command"
else
func_quote_for_eval "$var_value"
relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
fi
done
# Quote the link command for shipping.
relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)"
relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
if test "$hardcode_automatic" = yes ; then
relink_command=
fi
# Only create the output if not a dry run.
$opt_dry_run || {
for installed in no yes; do
if test "$installed" = yes; then
if test -z "$install_libdir"; then
break
fi
output="$output_objdir/$outputname"i
# Replace all uninstalled libtool libraries with the installed ones
newdependency_libs=
for deplib in $dependency_libs; do
case $deplib in
*.la)
func_basename "$deplib"
name="$func_basename_result"
- eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
+ func_resolve_sysroot "$deplib"
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result`
test -z "$libdir" && \
func_fatal_error "\`$deplib' is not a valid libtool archive"
func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name"
;;
-L*)
func_stripname -L '' "$deplib"
func_replace_sysroot "$func_stripname_result"
func_append newdependency_libs " -L$func_replace_sysroot_result"
;;
-R*)
func_stripname -R '' "$deplib"
func_replace_sysroot "$func_stripname_result"
func_append newdependency_libs " -R$func_replace_sysroot_result"
;;
*) func_append newdependency_libs " $deplib" ;;
esac
done
dependency_libs="$newdependency_libs"
newdlfiles=
for lib in $dlfiles; do
case $lib in
*.la)
func_basename "$lib"
name="$func_basename_result"
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
test -z "$libdir" && \
func_fatal_error "\`$lib' is not a valid libtool archive"
func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name"
;;
*) func_append newdlfiles " $lib" ;;
esac
done
dlfiles="$newdlfiles"
newdlprefiles=
for lib in $dlprefiles; do
case $lib in
*.la)
# Only pass preopened files to the pseudo-archive (for
# eventual linking with the app. that links it) if we
# didn't already link the preopened objects directly into
# the library:
func_basename "$lib"
name="$func_basename_result"
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
test -z "$libdir" && \
func_fatal_error "\`$lib' is not a valid libtool archive"
func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name"
;;
esac
done
dlprefiles="$newdlprefiles"
else
newdlfiles=
for lib in $dlfiles; do
case $lib in
[\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
*) abs=`pwd`"/$lib" ;;
esac
func_append newdlfiles " $abs"
done
dlfiles="$newdlfiles"
newdlprefiles=
for lib in $dlprefiles; do
case $lib in
[\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
*) abs=`pwd`"/$lib" ;;
esac
func_append newdlprefiles " $abs"
done
dlprefiles="$newdlprefiles"
fi
$RM $output
# place dlname in correct position for cygwin
# In fact, it would be nice if we could use this code for all target
# systems that can't hard-code library paths into their executables
# and that have no shared library path variable independent of PATH,
# but it turns out we can't easily determine that from inspecting
# libtool variables, so we have to hard-code the OSs to which it
# applies here; at the moment, that means platforms that use the PE
# object format with DLL files. See the long comment at the top of
# tests/bindir.at for full details.
tdlname=$dlname
case $host,$output,$installed,$module,$dlname in
*cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll)
# If a -bindir argument was supplied, place the dll there.
if test "x$bindir" != x ;
then
func_relative_path "$install_libdir" "$bindir"
tdlname=$func_relative_path_result$dlname
else
# Otherwise fall back on heuristic.
tdlname=../bin/$dlname
fi
;;
esac
$ECHO > $output "\
# $outputname - a libtool library file
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# Please DO NOT delete this file!
# It is necessary for linking the library.
# The name that we can dlopen(3).
dlname='$tdlname'
# Names of this library.
library_names='$library_names'
# The name of the static archive.
old_library='$old_library'
# Linker flags that can not go in dependency_libs.
inherited_linker_flags='$new_inherited_linker_flags'
# Libraries that this one depends upon.
dependency_libs='$dependency_libs'
# Names of additional weak libraries provided by this library
weak_library_names='$weak_libs'
# Version information for $libname.
current=$current
age=$age
revision=$revision
# Is this an already installed library?
installed=$installed
# Should we warn about portability when linking against -modules?
shouldnotlink=$module
# Files to dlopen/dlpreopen
dlopen='$dlfiles'
dlpreopen='$dlprefiles'
# Directory that this library needs to be installed in:
libdir='$install_libdir'"
if test "$installed" = no && test "$need_relink" = yes; then
$ECHO >> $output "\
relink_command=\"$relink_command\""
fi
done
}
# Do a symbolic link so that the libtool archive can be found in
# LD_LIBRARY_PATH before the program is installed.
func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?'
;;
esac
exit $EXIT_SUCCESS
}
{ test "$opt_mode" = link || test "$opt_mode" = relink; } &&
func_mode_link ${1+"$@"}
# func_mode_uninstall arg...
func_mode_uninstall ()
{
$opt_debug
RM="$nonopt"
files=
rmforce=
exit_status=0
# This variable tells wrapper scripts just to set variables rather
# than running their programs.
libtool_install_magic="$magic"
for arg
do
case $arg in
-f) func_append RM " $arg"; rmforce=yes ;;
-*) func_append RM " $arg" ;;
*) func_append files " $arg" ;;
esac
done
test -z "$RM" && \
func_fatal_help "you must specify an RM program"
rmdirs=
for file in $files; do
func_dirname "$file" "" "."
dir="$func_dirname_result"
if test "X$dir" = X.; then
odir="$objdir"
else
odir="$dir/$objdir"
fi
func_basename "$file"
name="$func_basename_result"
test "$opt_mode" = uninstall && odir="$dir"
# Remember odir for removal later, being careful to avoid duplicates
if test "$opt_mode" = clean; then
case " $rmdirs " in
*" $odir "*) ;;
*) func_append rmdirs " $odir" ;;
esac
fi
# Don't error if the file doesn't exist and rm -f was used.
if { test -L "$file"; } >/dev/null 2>&1 ||
{ test -h "$file"; } >/dev/null 2>&1 ||
test -f "$file"; then
:
elif test -d "$file"; then
exit_status=1
continue
elif test "$rmforce" = yes; then
continue
fi
rmfiles="$file"
case $name in
*.la)
# Possibly a libtool archive, so verify it.
if func_lalib_p "$file"; then
func_source $dir/$name
# Delete the libtool libraries and symlinks.
for n in $library_names; do
func_append rmfiles " $odir/$n"
done
test -n "$old_library" && func_append rmfiles " $odir/$old_library"
case "$opt_mode" in
clean)
case " $library_names " in
*" $dlname "*) ;;
*) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;;
esac
test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i"
;;
uninstall)
if test -n "$library_names"; then
# Do each command in the postuninstall commands.
func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1'
fi
if test -n "$old_library"; then
# Do each command in the old_postuninstall commands.
func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1'
fi
# FIXME: should reinstall the best remaining shared library.
;;
esac
fi
;;
*.lo)
# Possibly a libtool object, so verify it.
if func_lalib_p "$file"; then
# Read the .lo file
func_source $dir/$name
# Add PIC object to the list of files to remove.
if test -n "$pic_object" &&
test "$pic_object" != none; then
func_append rmfiles " $dir/$pic_object"
fi
# Add non-PIC object to the list of files to remove.
if test -n "$non_pic_object" &&
test "$non_pic_object" != none; then
func_append rmfiles " $dir/$non_pic_object"
fi
fi
;;
*)
if test "$opt_mode" = clean ; then
noexename=$name
case $file in
*.exe)
func_stripname '' '.exe' "$file"
file=$func_stripname_result
func_stripname '' '.exe' "$name"
noexename=$func_stripname_result
# $file with .exe has already been added to rmfiles,
# add $file without .exe
func_append rmfiles " $file"
;;
esac
# Do a test to see if this is a libtool program.
if func_ltwrapper_p "$file"; then
if func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
relink_command=
func_source $func_ltwrapper_scriptname_result
func_append rmfiles " $func_ltwrapper_scriptname_result"
else
relink_command=
func_source $dir/$noexename
fi
# note $name still contains .exe if it was in $file originally
# as does the version of $file that was added into $rmfiles
func_append rmfiles " $odir/$name $odir/${name}S.${objext}"
if test "$fast_install" = yes && test -n "$relink_command"; then
func_append rmfiles " $odir/lt-$name"
fi
if test "X$noexename" != "X$name" ; then
func_append rmfiles " $odir/lt-${noexename}.c"
fi
fi
fi
;;
esac
func_show_eval "$RM $rmfiles" 'exit_status=1'
done
# Try to remove the ${objdir}s in the directories where we deleted files
for dir in $rmdirs; do
if test -d "$dir"; then
func_show_eval "rmdir $dir >/dev/null 2>&1"
fi
done
exit $exit_status
}
{ test "$opt_mode" = uninstall || test "$opt_mode" = clean; } &&
func_mode_uninstall ${1+"$@"}
test -z "$opt_mode" && {
help="$generic_help"
func_fatal_help "you must specify a MODE"
}
test -z "$exec_cmd" && \
func_fatal_help "invalid operation mode \`$opt_mode'"
if test -n "$exec_cmd"; then
eval exec "$exec_cmd"
exit $EXIT_FAILURE
fi
exit $exit_status
# The TAGs below are defined such that we never get into a situation
# in which we disable both kinds of libraries. Given conflicting
# choices, we go for a static library, that is the most portable,
# since we can't tell whether shared libraries were disabled because
# the user asked for that or because the platform doesn't support
# them. This is particularly important on AIX, because we don't
# support having both static and shared libraries enabled at the same
# time on that platform, so we default to a shared-only configuration.
# If a disable-shared tag is given, we'll fallback to a static-only
# configuration. But we'll never go from static-only to shared-only.
# ### BEGIN LIBTOOL TAG CONFIG: disable-shared
build_libtool_libs=no
build_old_libs=yes
# ### END LIBTOOL TAG CONFIG: disable-shared
# ### BEGIN LIBTOOL TAG CONFIG: disable-static
build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac`
# ### END LIBTOOL TAG CONFIG: disable-static
# Local Variables:
# mode:shell-script
# sh-indentation:2
# End:
# vi:sw=2
diff --git a/config.aux/missing b/config.aux/missing
index 28055d2..9a55648 100755
--- a/config.aux/missing
+++ b/config.aux/missing
@@ -1,376 +1,330 @@
#! /bin/sh
# Common stub for a few missing GNU programs while installing.
-scriptversion=2009-04-28.21; # UTC
+scriptversion=2012-01-06.18; # UTC
-# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006,
-# 2008, 2009 Free Software Foundation, Inc.
+# Copyright (C) 1996-2012 Free Software Foundation, Inc.
# Originally by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.
if test $# -eq 0; then
- echo 1>&2 "Try \`$0 --help' for more information"
+ echo 1>&2 "Try '$0 --help' for more information"
exit 1
fi
run=:
sed_output='s/.* --output[ =]\([^ ]*\).*/\1/p'
sed_minuso='s/.* -o \([^ ]*\).*/\1/p'
-# In the cases where this matters, `missing' is being run in the
+# In the cases where this matters, 'missing' is being run in the
# srcdir already.
if test -f configure.ac; then
configure_ac=configure.ac
else
configure_ac=configure.in
fi
msg="missing on your system"
case $1 in
--run)
# Try to run requested program, and just exit if it succeeds.
run=
shift
"$@" && exit 0
# Exit code 63 means version mismatch. This often happens
# when the user try to use an ancient version of a tool on
# a file that requires a minimum version. In this case we
# we should proceed has if the program had been absent, or
# if --run hadn't been passed.
if test $? = 63; then
run=:
msg="probably too old"
fi
;;
-h|--h|--he|--hel|--help)
echo "\
$0 [OPTION]... PROGRAM [ARGUMENT]...
-Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an
+Handle 'PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an
error status if there is no known handling for PROGRAM.
Options:
-h, --help display this help and exit
-v, --version output version information and exit
--run try to run the given command, and emulate it if it fails
Supported PROGRAM values:
- aclocal touch file \`aclocal.m4'
- autoconf touch file \`configure'
- autoheader touch file \`config.h.in'
+ aclocal touch file 'aclocal.m4'
+ autoconf touch file 'configure'
+ autoheader touch file 'config.h.in'
autom4te touch the output file, or create a stub one
- automake touch all \`Makefile.in' files
- bison create \`y.tab.[ch]', if possible, from existing .[ch]
- flex create \`lex.yy.c', if possible, from existing .c
+ automake touch all 'Makefile.in' files
+ bison create 'y.tab.[ch]', if possible, from existing .[ch]
+ flex create 'lex.yy.c', if possible, from existing .c
help2man touch the output file
- lex create \`lex.yy.c', if possible, from existing .c
+ lex create 'lex.yy.c', if possible, from existing .c
makeinfo touch the output file
- tar try tar, gnutar, gtar, then tar without non-portable flags
- yacc create \`y.tab.[ch]', if possible, from existing .[ch]
+ yacc create 'y.tab.[ch]', if possible, from existing .[ch]
-Version suffixes to PROGRAM as well as the prefixes \`gnu-', \`gnu', and
-\`g' are ignored when checking the name.
+Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and
+'g' are ignored when checking the name.
Send bug reports to <bug-automake@gnu.org>."
exit $?
;;
-v|--v|--ve|--ver|--vers|--versi|--versio|--version)
echo "missing $scriptversion (GNU Automake)"
exit $?
;;
-*)
- echo 1>&2 "$0: Unknown \`$1' option"
- echo 1>&2 "Try \`$0 --help' for more information"
+ echo 1>&2 "$0: Unknown '$1' option"
+ echo 1>&2 "Try '$0 --help' for more information"
exit 1
;;
esac
# normalize program name to check for.
program=`echo "$1" | sed '
s/^gnu-//; t
s/^gnu//; t
s/^g//; t'`
# Now exit if we have it, but it failed. Also exit now if we
# don't have it and --version was passed (most likely to detect
# the program). This is about non-GNU programs, so use $1 not
# $program.
case $1 in
lex*|yacc*)
# Not GNU programs, they don't have --version.
;;
- tar*)
- if test -n "$run"; then
- echo 1>&2 "ERROR: \`tar' requires --run"
- exit 1
- elif test "x$2" = "x--version" || test "x$2" = "x--help"; then
- exit 1
- fi
- ;;
-
*)
if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
# We have it, but it failed.
exit 1
elif test "x$2" = "x--version" || test "x$2" = "x--help"; then
# Could not run --version or --help. This is probably someone
- # running `$TOOL --version' or `$TOOL --help' to check whether
+ # running '$TOOL --version' or '$TOOL --help' to check whether
# $TOOL exists and not knowing $TOOL uses missing.
exit 1
fi
;;
esac
# If it does not exist, or fails to run (possibly an outdated version),
# try to emulate it.
case $program in
aclocal*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`acinclude.m4' or \`${configure_ac}'. You might want
- to install the \`Automake' and \`Perl' packages. Grab them from
+WARNING: '$1' is $msg. You should only need it if
+ you modified 'acinclude.m4' or '${configure_ac}'. You might want
+ to install the Automake and Perl packages. Grab them from
any GNU archive site."
touch aclocal.m4
;;
autoconf*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`${configure_ac}'. You might want to install the
- \`Autoconf' and \`GNU m4' packages. Grab them from any GNU
+WARNING: '$1' is $msg. You should only need it if
+ you modified '${configure_ac}'. You might want to install the
+ Autoconf and GNU m4 packages. Grab them from any GNU
archive site."
touch configure
;;
autoheader*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`acconfig.h' or \`${configure_ac}'. You might want
- to install the \`Autoconf' and \`GNU m4' packages. Grab them
+WARNING: '$1' is $msg. You should only need it if
+ you modified 'acconfig.h' or '${configure_ac}'. You might want
+ to install the Autoconf and GNU m4 packages. Grab them
from any GNU archive site."
files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}`
test -z "$files" && files="config.h"
touch_files=
for f in $files; do
case $f in
*:*) touch_files="$touch_files "`echo "$f" |
sed -e 's/^[^:]*://' -e 's/:.*//'`;;
*) touch_files="$touch_files $f.in";;
esac
done
touch $touch_files
;;
automake*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'.
- You might want to install the \`Automake' and \`Perl' packages.
+WARNING: '$1' is $msg. You should only need it if
+ you modified 'Makefile.am', 'acinclude.m4' or '${configure_ac}'.
+ You might want to install the Automake and Perl packages.
Grab them from any GNU archive site."
find . -type f -name Makefile.am -print |
sed 's/\.am$/.in/' |
while read f; do touch "$f"; done
;;
autom4te*)
echo 1>&2 "\
-WARNING: \`$1' is needed, but is $msg.
+WARNING: '$1' is needed, but is $msg.
You might have modified some files without having the
proper tools for further handling them.
- You can get \`$1' as part of \`Autoconf' from any GNU
+ You can get '$1' as part of Autoconf from any GNU
archive site."
file=`echo "$*" | sed -n "$sed_output"`
test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
if test -f "$file"; then
touch $file
else
test -z "$file" || exec >$file
echo "#! /bin/sh"
echo "# Created by GNU Automake missing as a replacement of"
echo "# $ $@"
echo "exit 0"
chmod +x $file
exit 1
fi
;;
bison*|yacc*)
echo 1>&2 "\
-WARNING: \`$1' $msg. You should only need it if
- you modified a \`.y' file. You may need the \`Bison' package
+WARNING: '$1' $msg. You should only need it if
+ you modified a '.y' file. You may need the Bison package
in order for those modifications to take effect. You can get
- \`Bison' from any GNU archive site."
+ Bison from any GNU archive site."
rm -f y.tab.c y.tab.h
if test $# -ne 1; then
- eval LASTARG="\${$#}"
+ eval LASTARG=\${$#}
case $LASTARG in
*.y)
SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'`
if test -f "$SRCFILE"; then
cp "$SRCFILE" y.tab.c
fi
SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'`
if test -f "$SRCFILE"; then
cp "$SRCFILE" y.tab.h
fi
;;
esac
fi
if test ! -f y.tab.h; then
echo >y.tab.h
fi
if test ! -f y.tab.c; then
echo 'main() { return 0; }' >y.tab.c
fi
;;
lex*|flex*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified a \`.l' file. You may need the \`Flex' package
+WARNING: '$1' is $msg. You should only need it if
+ you modified a '.l' file. You may need the Flex package
in order for those modifications to take effect. You can get
- \`Flex' from any GNU archive site."
+ Flex from any GNU archive site."
rm -f lex.yy.c
if test $# -ne 1; then
- eval LASTARG="\${$#}"
+ eval LASTARG=\${$#}
case $LASTARG in
*.l)
SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'`
if test -f "$SRCFILE"; then
cp "$SRCFILE" lex.yy.c
fi
;;
esac
fi
if test ! -f lex.yy.c; then
echo 'main() { return 0; }' >lex.yy.c
fi
;;
help2man*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
+WARNING: '$1' is $msg. You should only need it if
you modified a dependency of a manual page. You may need the
- \`Help2man' package in order for those modifications to take
- effect. You can get \`Help2man' from any GNU archive site."
+ Help2man package in order for those modifications to take
+ effect. You can get Help2man from any GNU archive site."
file=`echo "$*" | sed -n "$sed_output"`
test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
if test -f "$file"; then
touch $file
else
test -z "$file" || exec >$file
echo ".ab help2man is required to generate this page"
exit $?
fi
;;
makeinfo*)
echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified a \`.texi' or \`.texinfo' file, or any other file
+WARNING: '$1' is $msg. You should only need it if
+ you modified a '.texi' or '.texinfo' file, or any other file
indirectly affecting the aspect of the manual. The spurious
- call might also be the consequence of using a buggy \`make' (AIX,
- DU, IRIX). You might want to install the \`Texinfo' package or
- the \`GNU make' package. Grab either from any GNU archive site."
+ call might also be the consequence of using a buggy 'make' (AIX,
+ DU, IRIX). You might want to install the Texinfo package or
+ the GNU make package. Grab either from any GNU archive site."
# The file to touch is that specified with -o ...
file=`echo "$*" | sed -n "$sed_output"`
test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
if test -z "$file"; then
# ... or it is the one specified with @setfilename ...
infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'`
file=`sed -n '
/^@setfilename/{
s/.* \([^ ]*\) *$/\1/
p
q
}' $infile`
# ... or it is derived from the source name (dir/f.texi becomes f.info)
test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info
fi
# If the file does not exist, the user really needs makeinfo;
# let's fail without touching anything.
test -f $file || exit 1
touch $file
;;
- tar*)
- shift
-
- # We have already tried tar in the generic part.
- # Look for gnutar/gtar before invocation to avoid ugly error
- # messages.
- if (gnutar --version > /dev/null 2>&1); then
- gnutar "$@" && exit 0
- fi
- if (gtar --version > /dev/null 2>&1); then
- gtar "$@" && exit 0
- fi
- firstarg="$1"
- if shift; then
- case $firstarg in
- *o*)
- firstarg=`echo "$firstarg" | sed s/o//`
- tar "$firstarg" "$@" && exit 0
- ;;
- esac
- case $firstarg in
- *h*)
- firstarg=`echo "$firstarg" | sed s/h//`
- tar "$firstarg" "$@" && exit 0
- ;;
- esac
- fi
-
- echo 1>&2 "\
-WARNING: I can't seem to be able to run \`tar' with the given arguments.
- You may want to install GNU tar or Free paxutils, or check the
- command line arguments."
- exit 1
- ;;
-
*)
echo 1>&2 "\
-WARNING: \`$1' is needed, and is $msg.
+WARNING: '$1' is needed, and is $msg.
You might have modified some files without having the
- proper tools for further handling them. Check the \`README' file,
+ proper tools for further handling them. Check the 'README' file,
it often tells you about the needed prerequisites for installing
this package. You may also peek at any GNU archive site, in case
- some other package would contain this missing \`$1' program."
+ some other package would contain this missing '$1' program."
exit 1
;;
esac
exit 0
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "scriptversion="
# time-stamp-format: "%:y-%02m-%02d.%02H"
# time-stamp-time-zone: "UTC"
# time-stamp-end: "; # UTC"
# End:
diff --git a/configure b/configure
index 7c5b47b..3316849 100755
--- a/configure
+++ b/configure
@@ -1,21657 +1,21811 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.68 for GoSam Convenience Package 1.0.
+# Generated by GNU Autoconf 2.69 for GoSam Convenience Package 1.0.
#
# Report bugs to <reiterth@mpp.mpg.de>.
#
#
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software
-# Foundation, Inc.
+# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
#
#
# This configure script is free software; the Free Software Foundation
# gives unlimited permission to copy, distribute and modify it.
## -------------------- ##
## M4sh Initialization. ##
## -------------------- ##
# Be more Bourne compatible
DUALCASE=1; export DUALCASE # for MKS sh
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
emulate sh
NULLCMD=:
# Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
# is contrary to our usage. Disable this feature.
alias -g '${1+"$@"}'='"$@"'
setopt NO_GLOB_SUBST
else
case `(set -o) 2>/dev/null` in #(
*posix*) :
set -o posix ;; #(
*) :
;;
esac
fi
as_nl='
'
export as_nl
# Printing a long string crashes Solaris 7 /usr/bin/printf.
as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
# Prefer a ksh shell builtin over an external printf program on Solaris,
# but without wasting forks for bash or zsh.
if test -z "$BASH_VERSION$ZSH_VERSION" \
&& (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
as_echo='print -r --'
as_echo_n='print -rn --'
elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
as_echo='printf %s\n'
as_echo_n='printf %s'
else
if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
as_echo_n='/usr/ucb/echo -n'
else
as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
as_echo_n_body='eval
arg=$1;
case $arg in #(
*"$as_nl"*)
expr "X$arg" : "X\\(.*\\)$as_nl";
arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
esac;
expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
'
export as_echo_n_body
as_echo_n='sh -c $as_echo_n_body as_echo'
fi
export as_echo_body
as_echo='sh -c $as_echo_body as_echo'
fi
# The user is always right.
if test "${PATH_SEPARATOR+set}" != set; then
PATH_SEPARATOR=:
(PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
(PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
PATH_SEPARATOR=';'
}
fi
# IFS
# We need space, tab and new line, in precisely that order. Quoting is
# there to prevent editors from complaining about space-tab.
# (If _AS_PATH_WALK were called with IFS unset, it would disable word
# splitting by setting IFS to empty value.)
IFS=" "" $as_nl"
# Find who we are. Look in the path if we contain no directory separator.
as_myself=
case $0 in #((
*[\\/]* ) as_myself=$0 ;;
*) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
done
IFS=$as_save_IFS
;;
esac
# We did not find ourselves, most probably we were run as `sh COMMAND'
# in which case we are not to be found in the path.
if test "x$as_myself" = x; then
as_myself=$0
fi
if test ! -f "$as_myself"; then
$as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
exit 1
fi
# Unset variables that we do not need and which cause bugs (e.g. in
# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
# suppresses any "Segmentation fault" message there. '((' could
# trigger a bug in pdksh 5.2.14.
for as_var in BASH_ENV ENV MAIL MAILPATH
do eval test x\${$as_var+set} = xset \
&& ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
done
PS1='$ '
PS2='> '
PS4='+ '
# NLS nuisances.
LC_ALL=C
export LC_ALL
LANGUAGE=C
export LANGUAGE
# CDPATH.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+# Use a proper internal environment variable to ensure we don't fall
+ # into an infinite loop, continuously re-executing ourselves.
+ if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+ _as_can_reexec=no; export _as_can_reexec;
+ # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in # ((((
+ *v*x* | *x*v* ) as_opts=-vx ;;
+ *v* ) as_opts=-v ;;
+ *x* ) as_opts=-x ;;
+ * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+ fi
+ # We don't want this to propagate to other subprocesses.
+ { _as_can_reexec=; unset _as_can_reexec;}
if test "x$CONFIG_SHELL" = x; then
as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
emulate sh
NULLCMD=:
# Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
# is contrary to our usage. Disable this feature.
alias -g '\${1+\"\$@\"}'='\"\$@\"'
setopt NO_GLOB_SUBST
else
case \`(set -o) 2>/dev/null\` in #(
*posix*) :
set -o posix ;; #(
*) :
;;
esac
fi
"
as_required="as_fn_return () { (exit \$1); }
as_fn_success () { as_fn_return 0; }
as_fn_failure () { as_fn_return 1; }
as_fn_ret_success () { return 0; }
as_fn_ret_failure () { return 1; }
exitcode=0
as_fn_success || { exitcode=1; echo as_fn_success failed.; }
as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
else
exitcode=1; echo positional parameters were not saved.
fi
-test x\$exitcode = x0 || exit 1"
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || (
ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO
PATH=/empty FPATH=/empty; export PATH FPATH
test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\
|| test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1
test \$(( 1 + 1 )) = 2 || exit 1"
if (eval "$as_required") 2>/dev/null; then :
as_have_required=yes
else
as_have_required=no
fi
if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
as_found=false
for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
as_found=:
case $as_dir in #(
/*)
for as_base in sh bash ksh sh5; do
# Try only shells that exist, to save several forks.
as_shell=$as_dir/$as_base
if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
{ $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
CONFIG_SHELL=$as_shell as_have_required=yes
if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
break 2
fi
fi
done;;
esac
as_found=false
done
$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
{ $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
CONFIG_SHELL=$SHELL as_have_required=yes
fi; }
IFS=$as_save_IFS
if test "x$CONFIG_SHELL" != x; then :
- # We cannot yet assume a decent shell, so we have to provide a
- # neutralization value for shells without unset; and this also
- # works around shells that cannot unset nonexistent variables.
- # Preserve -v and -x to the replacement shell.
- BASH_ENV=/dev/null
- ENV=/dev/null
- (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
- export CONFIG_SHELL
- case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
- esac
- exec "$CONFIG_SHELL" $as_opts "$as_myself" ${1+"$@"}
+ export CONFIG_SHELL
+ # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in # ((((
+ *v*x* | *x*v* ) as_opts=-vx ;;
+ *v* ) as_opts=-v ;;
+ *x* ) as_opts=-x ;;
+ * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+exit 255
fi
if test x$as_have_required = xno; then :
$as_echo "$0: This script requires a shell more modern than all"
$as_echo "$0: the shells that I found on your system."
if test x${ZSH_VERSION+set} = xset ; then
$as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
$as_echo "$0: be upgraded to zsh 4.3.4 or later."
else
$as_echo "$0: Please tell bug-autoconf@gnu.org and
$0: reiterth@mpp.mpg.de about your system, including any
$0: error possibly output before this message. Then install
$0: a modern shell, or manually run the script under such a
$0: shell if you do have one."
fi
exit 1
fi
fi
fi
SHELL=${CONFIG_SHELL-/bin/sh}
export SHELL
# Unset more variables known to interfere with behavior of common tools.
CLICOLOR_FORCE= GREP_OPTIONS=
unset CLICOLOR_FORCE GREP_OPTIONS
## --------------------- ##
## M4sh Shell Functions. ##
## --------------------- ##
# as_fn_unset VAR
# ---------------
# Portably unset VAR.
as_fn_unset ()
{
{ eval $1=; unset $1;}
}
as_unset=as_fn_unset
# as_fn_set_status STATUS
# -----------------------
# Set $? to STATUS, without forking.
as_fn_set_status ()
{
return $1
} # as_fn_set_status
# as_fn_exit STATUS
# -----------------
# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
as_fn_exit ()
{
set +e
as_fn_set_status $1
exit $1
} # as_fn_exit
# as_fn_mkdir_p
# -------------
# Create "$as_dir" as a directory, including parents if necessary.
as_fn_mkdir_p ()
{
case $as_dir in #(
-*) as_dir=./$as_dir;;
esac
test -d "$as_dir" || eval $as_mkdir_p || {
as_dirs=
while :; do
case $as_dir in #(
*\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
*) as_qdir=$as_dir;;
esac
as_dirs="'$as_qdir' $as_dirs"
as_dir=`$as_dirname -- "$as_dir" ||
$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$as_dir" : 'X\(//\)[^/]' \| \
X"$as_dir" : 'X\(//\)$' \| \
X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$as_dir" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
test -d "$as_dir" && break
done
test -z "$as_dirs" || eval "mkdir $as_dirs"
} || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
} # as_fn_mkdir_p
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+} # as_fn_executable_p
# as_fn_append VAR VALUE
# ----------------------
# Append the text in VALUE to the end of the definition contained in VAR. Take
# advantage of any shell optimizations that allow amortized linear growth over
# repeated appends, instead of the typical quadratic growth present in naive
# implementations.
if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
eval 'as_fn_append ()
{
eval $1+=\$2
}'
else
as_fn_append ()
{
eval $1=\$$1\$2
}
fi # as_fn_append
# as_fn_arith ARG...
# ------------------
# Perform arithmetic evaluation on the ARGs, and store the result in the
# global $as_val. Take advantage of shells that can avoid forks. The arguments
# must be portable across $(()) and expr.
if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
eval 'as_fn_arith ()
{
as_val=$(( $* ))
}'
else
as_fn_arith ()
{
as_val=`expr "$@" || test $? -eq 1`
}
fi # as_fn_arith
# as_fn_error STATUS ERROR [LINENO LOG_FD]
# ----------------------------------------
# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
# script with STATUS, using 1 if that was 0.
as_fn_error ()
{
as_status=$1; test $as_status -eq 0 && as_status=1
if test "$4"; then
as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
$as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
fi
$as_echo "$as_me: error: $2" >&2
as_fn_exit $as_status
} # as_fn_error
if expr a : '\(a\)' >/dev/null 2>&1 &&
test "X`expr 00001 : '.*\(...\)'`" = X001; then
as_expr=expr
else
as_expr=false
fi
if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
as_basename=basename
else
as_basename=false
fi
if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
as_dirname=dirname
else
as_dirname=false
fi
as_me=`$as_basename -- "$0" ||
$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
X"$0" : 'X\(//\)$' \| \
X"$0" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X/"$0" |
sed '/^.*\/\([^/][^/]*\)\/*$/{
s//\1/
q
}
/^X\/\(\/\/\)$/{
s//\1/
q
}
/^X\/\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
# Avoid depending upon Character Ranges.
as_cr_letters='abcdefghijklmnopqrstuvwxyz'
as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
as_cr_Letters=$as_cr_letters$as_cr_LETTERS
as_cr_digits='0123456789'
as_cr_alnum=$as_cr_Letters$as_cr_digits
as_lineno_1=$LINENO as_lineno_1a=$LINENO
as_lineno_2=$LINENO as_lineno_2a=$LINENO
eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
# Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
sed -n '
p
/[$]LINENO/=
' <$as_myself |
sed '
s/[$]LINENO.*/&-/
t lineno
b
:lineno
N
:loop
s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
t loop
s/-\n.*//
' >$as_me.lineno &&
chmod +x "$as_me.lineno" ||
{ $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
+ # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
+ # already done that, so ensure we don't try to do so again and fall
+ # in an infinite loop. This has already happened in practice.
+ _as_can_reexec=no; export _as_can_reexec
# Don't try to exec as it changes $[0], causing all sort of problems
# (the dirname of $[0] is not the place where we might find the
# original and so on. Autoconf is especially sensitive to this).
. "./$as_me.lineno"
# Exit status is that of the last command.
exit
}
ECHO_C= ECHO_N= ECHO_T=
case `echo -n x` in #(((((
-n*)
case `echo 'xy\c'` in
*c*) ECHO_T=' ';; # ECHO_T is single tab character.
xy) ECHO_C='\c';;
*) echo `echo ksh88 bug on AIX 6.1` > /dev/null
ECHO_T=' ';;
esac;;
*)
ECHO_N='-n';;
esac
rm -f conf$$ conf$$.exe conf$$.file
if test -d conf$$.dir; then
rm -f conf$$.dir/conf$$.file
else
rm -f conf$$.dir
mkdir conf$$.dir 2>/dev/null
fi
if (echo >conf$$.file) 2>/dev/null; then
if ln -s conf$$.file conf$$ 2>/dev/null; then
as_ln_s='ln -s'
# ... but there are two gotchas:
# 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
# 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -p'.
+ # In both cases, we have to default to `cp -pR'.
ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
elif ln conf$$.file conf$$ 2>/dev/null; then
as_ln_s=ln
else
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
fi
else
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
fi
rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
rmdir conf$$.dir 2>/dev/null
if mkdir -p . 2>/dev/null; then
as_mkdir_p='mkdir -p "$as_dir"'
else
test -d ./-p && rmdir ./-p
as_mkdir_p=false
fi
-if test -x / >/dev/null 2>&1; then
- as_test_x='test -x'
-else
- if ls -dL / >/dev/null 2>&1; then
- as_ls_L_option=L
- else
- as_ls_L_option=
- fi
- as_test_x='
- eval sh -c '\''
- if test -d "$1"; then
- test -d "$1/.";
- else
- case $1 in #(
- -*)set "./$1";;
- esac;
- case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #((
- ???[sx]*):;;*)false;;esac;fi
- '\'' sh
- '
-fi
-as_executable_p=$as_test_x
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
# Sed expression to map a string onto a valid CPP name.
as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
# Sed expression to map a string onto a valid variable name.
as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
SHELL=${CONFIG_SHELL-/bin/sh}
test -n "$DJDIR" || exec 7<&0 </dev/null
exec 6>&1
# Name of the host.
# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
# so uname gets run too.
ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
#
# Initializations.
#
ac_default_prefix=/usr/local
ac_clean_files=
ac_config_libobj_dir=.
LIBOBJS=
cross_compiling=no
subdirs=
MFLAGS=
MAKEFLAGS=
# Identity of this package.
PACKAGE_NAME='GoSam Convenience Package'
PACKAGE_TARNAME='gosam-contrib'
PACKAGE_VERSION='1.0'
PACKAGE_STRING='GoSam Convenience Package 1.0'
PACKAGE_BUGREPORT='reiterth@mpp.mpg.de'
PACKAGE_URL='http://projects.hepforge.org/golem/gosam-contrib/'
# Factoring default headers for most tests.
ac_includes_default="\
#include <stdio.h>
#ifdef HAVE_SYS_TYPES_H
# include <sys/types.h>
#endif
#ifdef HAVE_SYS_STAT_H
# include <sys/stat.h>
#endif
#ifdef STDC_HEADERS
# include <stdlib.h>
# include <stddef.h>
#else
# ifdef HAVE_STDLIB_H
# include <stdlib.h>
# endif
#endif
#ifdef HAVE_STRING_H
# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
# include <memory.h>
# endif
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#ifdef HAVE_INTTYPES_H
# include <inttypes.h>
#endif
#ifdef HAVE_STDINT_H
# include <stdint.h>
#endif
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif"
ac_subst_vars='am__EXEEXT_FALSE
am__EXEEXT_TRUE
LTLIBOBJS
LIBOBJS
lt_real_kind
case_wout_lt
case_with_lt
conf_wout_lt
conf_with_lt
LIBLOOPTOOLS
SAMURAIVERSION
case_wout_samurai
case_with_samurai
conf_wout_samurai
conf_with_samurai
COMPILE_SAMURAI_FALSE
COMPILE_SAMURAI_TRUE
COMPILE_TENSREC_FALSE
COMPILE_TENSREC_TRUE
case_wout_golem
case_with_golem
conf_wout_golem95
conf_with_golem95
COMPILE_GOLEM95C_FALSE
COMPILE_GOLEM95C_TRUE
case_wout_avh
case_with_avh
case_wout_olo
case_with_olo
conf_wout_olo
conf_with_olo
avh_olo_real_kind
COMPILE_OLO_FALSE
COMPILE_OLO_TRUE
case_wout_ql
case_with_ql
conf_wout_ql
conf_with_ql
COMPILE_QL_FALSE
COMPILE_QL_TRUE
case_wout_ff
case_with_ff
conf_wout_ff
conf_with_ff
COMPILE_FF_FALSE
COMPILE_FF_TRUE
fortran_real_kind
DATADIR
CPP
OTOOL64
OTOOL
LIPO
NMEDIT
DSYMUTIL
MANIFEST_TOOL
RANLIB
ac_ct_AR
AR
DLLTOOL
OBJDUMP
LN_S
NM
ac_ct_DUMPBIN
DUMPBIN
LD
FGREP
EGREP
GREP
SED
-host_os
-host_vendor
-host_cpu
-host
-build_os
-build_vendor
-build_cpu
-build
LIBTOOL
FCFLAGS_f90
am__fastdepCC_FALSE
am__fastdepCC_TRUE
CCDEPMODE
+am__nodep
AMDEPBACKSLASH
AMDEP_FALSE
AMDEP_TRUE
am__quote
am__include
DEPDIR
ac_ct_CC
CPPFLAGS
CFLAGS
CC
FCLIBS
+host_os
+host_vendor
+host_cpu
+host
+build_os
+build_vendor
+build_cpu
+build
ac_ct_FC
FCFLAGS
FC
OBJEXT
EXEEXT
ac_ct_F77
LDFLAGS
FFLAGS
F77
am__untar
am__tar
AMTAR
am__leading_dot
SET_MAKE
AWK
mkdir_p
MKDIR_P
INSTALL_STRIP_PROGRAM
STRIP
install_sh
MAKEINFO
AUTOHEADER
AUTOMAKE
AUTOCONF
ACLOCAL
VERSION
PACKAGE
CYGPATH_W
am__isrc
INSTALL_DATA
INSTALL_SCRIPT
INSTALL_PROGRAM
target_alias
host_alias
build_alias
LIBS
ECHO_T
ECHO_N
ECHO_C
DEFS
mandir
localedir
libdir
psdir
pdfdir
dvidir
htmldir
infodir
docdir
oldincludedir
includedir
localstatedir
sharedstatedir
sysconfdir
datadir
datarootdir
libexecdir
sbindir
bindir
program_transform_name
prefix
exec_prefix
PACKAGE_URL
PACKAGE_BUGREPORT
PACKAGE_STRING
PACKAGE_VERSION
PACKAGE_TARNAME
PACKAGE_NAME
PATH_SEPARATOR
SHELL'
ac_subst_files=''
ac_user_opts='
enable_option_checking
enable_dependency_tracking
enable_shared
enable_static
with_pic
enable_fast_install
with_gnu_ld
with_sysroot
enable_libtool_lock
with_precision
enable_ff
enable_ql
enable_olo
enable_golem95
enable_samurai
with_looptools
with_lt_precision
'
ac_precious_vars='build_alias
host_alias
target_alias
F77
FFLAGS
LDFLAGS
LIBS
FC
FCFLAGS
CC
CFLAGS
CPPFLAGS
CPP'
# Initialize some variables set by options.
ac_init_help=
ac_init_version=false
ac_unrecognized_opts=
ac_unrecognized_sep=
# The variables have the same names as the options, with
# dashes changed to underlines.
cache_file=/dev/null
exec_prefix=NONE
no_create=
no_recursion=
prefix=NONE
program_prefix=NONE
program_suffix=NONE
program_transform_name=s,x,x,
silent=
site=
srcdir=
verbose=
x_includes=NONE
x_libraries=NONE
# Installation directory options.
# These are left unexpanded so users can "make install exec_prefix=/foo"
# and all the variables that are supposed to be based on exec_prefix
# by default will actually change.
# Use braces instead of parens because sh, perl, etc. also accept them.
# (The list follows the same order as the GNU Coding Standards.)
bindir='${exec_prefix}/bin'
sbindir='${exec_prefix}/sbin'
libexecdir='${exec_prefix}/libexec'
datarootdir='${prefix}/share'
datadir='${datarootdir}'
sysconfdir='${prefix}/etc'
sharedstatedir='${prefix}/com'
localstatedir='${prefix}/var'
includedir='${prefix}/include'
oldincludedir='/usr/include'
docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
infodir='${datarootdir}/info'
htmldir='${docdir}'
dvidir='${docdir}'
pdfdir='${docdir}'
psdir='${docdir}'
libdir='${exec_prefix}/lib'
localedir='${datarootdir}/locale'
mandir='${datarootdir}/man'
ac_prev=
ac_dashdash=
for ac_option
do
# If the previous option needs an argument, assign it.
if test -n "$ac_prev"; then
eval $ac_prev=\$ac_option
ac_prev=
continue
fi
case $ac_option in
*=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
*=) ac_optarg= ;;
*) ac_optarg=yes ;;
esac
# Accept the important Cygnus configure options, so we can diagnose typos.
case $ac_dashdash$ac_option in
--)
ac_dashdash=yes ;;
-bindir | --bindir | --bindi | --bind | --bin | --bi)
ac_prev=bindir ;;
-bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
bindir=$ac_optarg ;;
-build | --build | --buil | --bui | --bu)
ac_prev=build_alias ;;
-build=* | --build=* | --buil=* | --bui=* | --bu=*)
build_alias=$ac_optarg ;;
-cache-file | --cache-file | --cache-fil | --cache-fi \
| --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
ac_prev=cache_file ;;
-cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
| --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
cache_file=$ac_optarg ;;
--config-cache | -C)
cache_file=config.cache ;;
-datadir | --datadir | --datadi | --datad)
ac_prev=datadir ;;
-datadir=* | --datadir=* | --datadi=* | --datad=*)
datadir=$ac_optarg ;;
-datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
| --dataroo | --dataro | --datar)
ac_prev=datarootdir ;;
-datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
| --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
datarootdir=$ac_optarg ;;
-disable-* | --disable-*)
ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
# Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error $? "invalid feature name: $ac_useropt"
ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in
*"
"enable_$ac_useropt"
"*) ;;
*) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
ac_unrecognized_sep=', ';;
esac
eval enable_$ac_useropt=no ;;
-docdir | --docdir | --docdi | --doc | --do)
ac_prev=docdir ;;
-docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
docdir=$ac_optarg ;;
-dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
ac_prev=dvidir ;;
-dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
dvidir=$ac_optarg ;;
-enable-* | --enable-*)
ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
# Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error $? "invalid feature name: $ac_useropt"
ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in
*"
"enable_$ac_useropt"
"*) ;;
*) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
ac_unrecognized_sep=', ';;
esac
eval enable_$ac_useropt=\$ac_optarg ;;
-exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
| --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
| --exec | --exe | --ex)
ac_prev=exec_prefix ;;
-exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
| --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
| --exec=* | --exe=* | --ex=*)
exec_prefix=$ac_optarg ;;
-gas | --gas | --ga | --g)
# Obsolete; use --with-gas.
with_gas=yes ;;
-help | --help | --hel | --he | -h)
ac_init_help=long ;;
-help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
ac_init_help=recursive ;;
-help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
ac_init_help=short ;;
-host | --host | --hos | --ho)
ac_prev=host_alias ;;
-host=* | --host=* | --hos=* | --ho=*)
host_alias=$ac_optarg ;;
-htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
ac_prev=htmldir ;;
-htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
| --ht=*)
htmldir=$ac_optarg ;;
-includedir | --includedir | --includedi | --included | --include \
| --includ | --inclu | --incl | --inc)
ac_prev=includedir ;;
-includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
| --includ=* | --inclu=* | --incl=* | --inc=*)
includedir=$ac_optarg ;;
-infodir | --infodir | --infodi | --infod | --info | --inf)
ac_prev=infodir ;;
-infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
infodir=$ac_optarg ;;
-libdir | --libdir | --libdi | --libd)
ac_prev=libdir ;;
-libdir=* | --libdir=* | --libdi=* | --libd=*)
libdir=$ac_optarg ;;
-libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
| --libexe | --libex | --libe)
ac_prev=libexecdir ;;
-libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
| --libexe=* | --libex=* | --libe=*)
libexecdir=$ac_optarg ;;
-localedir | --localedir | --localedi | --localed | --locale)
ac_prev=localedir ;;
-localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
localedir=$ac_optarg ;;
-localstatedir | --localstatedir | --localstatedi | --localstated \
| --localstate | --localstat | --localsta | --localst | --locals)
ac_prev=localstatedir ;;
-localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
| --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
localstatedir=$ac_optarg ;;
-mandir | --mandir | --mandi | --mand | --man | --ma | --m)
ac_prev=mandir ;;
-mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
mandir=$ac_optarg ;;
-nfp | --nfp | --nf)
# Obsolete; use --without-fp.
with_fp=no ;;
-no-create | --no-create | --no-creat | --no-crea | --no-cre \
| --no-cr | --no-c | -n)
no_create=yes ;;
-no-recursion | --no-recursion | --no-recursio | --no-recursi \
| --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
no_recursion=yes ;;
-oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
| --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
| --oldin | --oldi | --old | --ol | --o)
ac_prev=oldincludedir ;;
-oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
| --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
| --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
oldincludedir=$ac_optarg ;;
-prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
ac_prev=prefix ;;
-prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
prefix=$ac_optarg ;;
-program-prefix | --program-prefix | --program-prefi | --program-pref \
| --program-pre | --program-pr | --program-p)
ac_prev=program_prefix ;;
-program-prefix=* | --program-prefix=* | --program-prefi=* \
| --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
program_prefix=$ac_optarg ;;
-program-suffix | --program-suffix | --program-suffi | --program-suff \
| --program-suf | --program-su | --program-s)
ac_prev=program_suffix ;;
-program-suffix=* | --program-suffix=* | --program-suffi=* \
| --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
program_suffix=$ac_optarg ;;
-program-transform-name | --program-transform-name \
| --program-transform-nam | --program-transform-na \
| --program-transform-n | --program-transform- \
| --program-transform | --program-transfor \
| --program-transfo | --program-transf \
| --program-trans | --program-tran \
| --progr-tra | --program-tr | --program-t)
ac_prev=program_transform_name ;;
-program-transform-name=* | --program-transform-name=* \
| --program-transform-nam=* | --program-transform-na=* \
| --program-transform-n=* | --program-transform-=* \
| --program-transform=* | --program-transfor=* \
| --program-transfo=* | --program-transf=* \
| --program-trans=* | --program-tran=* \
| --progr-tra=* | --program-tr=* | --program-t=*)
program_transform_name=$ac_optarg ;;
-pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
ac_prev=pdfdir ;;
-pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
pdfdir=$ac_optarg ;;
-psdir | --psdir | --psdi | --psd | --ps)
ac_prev=psdir ;;
-psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
psdir=$ac_optarg ;;
-q | -quiet | --quiet | --quie | --qui | --qu | --q \
| -silent | --silent | --silen | --sile | --sil)
silent=yes ;;
-sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
ac_prev=sbindir ;;
-sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
| --sbi=* | --sb=*)
sbindir=$ac_optarg ;;
-sharedstatedir | --sharedstatedir | --sharedstatedi \
| --sharedstated | --sharedstate | --sharedstat | --sharedsta \
| --sharedst | --shareds | --shared | --share | --shar \
| --sha | --sh)
ac_prev=sharedstatedir ;;
-sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
| --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
| --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
| --sha=* | --sh=*)
sharedstatedir=$ac_optarg ;;
-site | --site | --sit)
ac_prev=site ;;
-site=* | --site=* | --sit=*)
site=$ac_optarg ;;
-srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
ac_prev=srcdir ;;
-srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
srcdir=$ac_optarg ;;
-sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
| --syscon | --sysco | --sysc | --sys | --sy)
ac_prev=sysconfdir ;;
-sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
| --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
sysconfdir=$ac_optarg ;;
-target | --target | --targe | --targ | --tar | --ta | --t)
ac_prev=target_alias ;;
-target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
target_alias=$ac_optarg ;;
-v | -verbose | --verbose | --verbos | --verbo | --verb)
verbose=yes ;;
-version | --version | --versio | --versi | --vers | -V)
ac_init_version=: ;;
-with-* | --with-*)
ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
# Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error $? "invalid package name: $ac_useropt"
ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in
*"
"with_$ac_useropt"
"*) ;;
*) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
ac_unrecognized_sep=', ';;
esac
eval with_$ac_useropt=\$ac_optarg ;;
-without-* | --without-*)
ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
# Reject names that are not valid shell variable names.
expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
as_fn_error $? "invalid package name: $ac_useropt"
ac_useropt_orig=$ac_useropt
ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
case $ac_user_opts in
*"
"with_$ac_useropt"
"*) ;;
*) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
ac_unrecognized_sep=', ';;
esac
eval with_$ac_useropt=no ;;
--x)
# Obsolete; use --with-x.
with_x=yes ;;
-x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
| --x-incl | --x-inc | --x-in | --x-i)
ac_prev=x_includes ;;
-x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
| --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
x_includes=$ac_optarg ;;
-x-libraries | --x-libraries | --x-librarie | --x-librari \
| --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
ac_prev=x_libraries ;;
-x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
| --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
x_libraries=$ac_optarg ;;
-*) as_fn_error $? "unrecognized option: \`$ac_option'
Try \`$0 --help' for more information"
;;
*=*)
ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
# Reject names that are not valid shell variable names.
case $ac_envvar in #(
'' | [0-9]* | *[!_$as_cr_alnum]* )
as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
esac
eval $ac_envvar=\$ac_optarg
export $ac_envvar ;;
*)
# FIXME: should be removed in autoconf 3.0.
$as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
$as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
: "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
;;
esac
done
if test -n "$ac_prev"; then
ac_option=--`echo $ac_prev | sed 's/_/-/g'`
as_fn_error $? "missing argument to $ac_option"
fi
if test -n "$ac_unrecognized_opts"; then
case $enable_option_checking in
no) ;;
fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
*) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
esac
fi
# Check all directory arguments for consistency.
for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
datadir sysconfdir sharedstatedir localstatedir includedir \
oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
libdir localedir mandir
do
eval ac_val=\$$ac_var
# Remove trailing slashes.
case $ac_val in
*/ )
ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
eval $ac_var=\$ac_val;;
esac
# Be sure to have absolute directory names.
case $ac_val in
[\\/$]* | ?:[\\/]* ) continue;;
NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
esac
as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
done
# There might be people who depend on the old broken behavior: `$host'
# used to hold the argument of --host etc.
# FIXME: To remove some day.
build=$build_alias
host=$host_alias
target=$target_alias
# FIXME: To remove some day.
if test "x$host_alias" != x; then
if test "x$build_alias" = x; then
cross_compiling=maybe
- $as_echo "$as_me: WARNING: if you wanted to set the --build type, don't use --host.
- If a cross compiler is detected then cross compile mode will be used" >&2
elif test "x$build_alias" != "x$host_alias"; then
cross_compiling=yes
fi
fi
ac_tool_prefix=
test -n "$host_alias" && ac_tool_prefix=$host_alias-
test "$silent" = yes && exec 6>/dev/null
ac_pwd=`pwd` && test -n "$ac_pwd" &&
ac_ls_di=`ls -di .` &&
ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
as_fn_error $? "working directory cannot be determined"
test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
as_fn_error $? "pwd does not report name of working directory"
# Find the source files, if location was not specified.
if test -z "$srcdir"; then
ac_srcdir_defaulted=yes
# Try the directory containing this script, then the parent directory.
ac_confdir=`$as_dirname -- "$as_myself" ||
$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$as_myself" : 'X\(//\)[^/]' \| \
X"$as_myself" : 'X\(//\)$' \| \
X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$as_myself" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
srcdir=$ac_confdir
if test ! -r "$srcdir/$ac_unique_file"; then
srcdir=..
fi
else
ac_srcdir_defaulted=no
fi
if test ! -r "$srcdir/$ac_unique_file"; then
test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
fi
ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
ac_abs_confdir=`(
cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
pwd)`
# When building in place, set srcdir=.
if test "$ac_abs_confdir" = "$ac_pwd"; then
srcdir=.
fi
# Remove unnecessary trailing slashes from srcdir.
# Double slashes in file names in object file debugging info
# mess up M-x gdb in Emacs.
case $srcdir in
*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
esac
for ac_var in $ac_precious_vars; do
eval ac_env_${ac_var}_set=\${${ac_var}+set}
eval ac_env_${ac_var}_value=\$${ac_var}
eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
eval ac_cv_env_${ac_var}_value=\$${ac_var}
done
#
# Report the --help message.
#
if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
\`configure' configures GoSam Convenience Package 1.0 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
To assign environment variables (e.g., CC, CFLAGS...), specify them as
VAR=VALUE. See below for descriptions of some of the useful variables.
Defaults for the options are specified in brackets.
Configuration:
-h, --help display this help and exit
--help=short display options specific to this package
--help=recursive display the short help of all the included packages
-V, --version display version information and exit
-q, --quiet, --silent do not print \`checking ...' messages
--cache-file=FILE cache test results in FILE [disabled]
-C, --config-cache alias for \`--cache-file=config.cache'
-n, --no-create do not create output files
--srcdir=DIR find the sources in DIR [configure dir or \`..']
Installation directories:
--prefix=PREFIX install architecture-independent files in PREFIX
[$ac_default_prefix]
--exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
[PREFIX]
By default, \`make install' will install all the files in
\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
an installation prefix other than \`$ac_default_prefix' using \`--prefix',
for instance \`--prefix=\$HOME'.
For better control, use the options below.
Fine tuning of the installation directories:
--bindir=DIR user executables [EPREFIX/bin]
--sbindir=DIR system admin executables [EPREFIX/sbin]
--libexecdir=DIR program executables [EPREFIX/libexec]
--sysconfdir=DIR read-only single-machine data [PREFIX/etc]
--sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
--localstatedir=DIR modifiable single-machine data [PREFIX/var]
--libdir=DIR object code libraries [EPREFIX/lib]
--includedir=DIR C header files [PREFIX/include]
--oldincludedir=DIR C header files for non-gcc [/usr/include]
--datarootdir=DIR read-only arch.-independent data root [PREFIX/share]
--datadir=DIR read-only architecture-independent data [DATAROOTDIR]
--infodir=DIR info documentation [DATAROOTDIR/info]
--localedir=DIR locale-dependent data [DATAROOTDIR/locale]
--mandir=DIR man documentation [DATAROOTDIR/man]
--docdir=DIR documentation root [DATAROOTDIR/doc/gosam-contrib]
--htmldir=DIR html documentation [DOCDIR]
--dvidir=DIR dvi documentation [DOCDIR]
--pdfdir=DIR pdf documentation [DOCDIR]
--psdir=DIR ps documentation [DOCDIR]
_ACEOF
cat <<\_ACEOF
Program names:
--program-prefix=PREFIX prepend PREFIX to installed program names
--program-suffix=SUFFIX append SUFFIX to installed program names
--program-transform-name=PROGRAM run sed PROGRAM on installed program names
System types:
--build=BUILD configure for building on BUILD [guessed]
--host=HOST cross-compile to build programs to run on HOST [BUILD]
_ACEOF
fi
if test -n "$ac_init_help"; then
case $ac_init_help in
short | recursive ) echo "Configuration of GoSam Convenience Package 1.0:";;
esac
cat <<\_ACEOF
Optional Features:
--disable-option-checking ignore unrecognized --enable/--with options
--disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
--enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --disable-dependency-tracking speeds up one-time build
- --enable-dependency-tracking do not reject slow dependency extractors
+ --enable-dependency-tracking
+ do not reject slow dependency extractors
+ --disable-dependency-tracking
+ speeds up one-time build
--enable-shared[=PKGS] build shared libraries [default=yes]
--enable-static[=PKGS] build static libraries [default=yes]
--enable-fast-install[=PKGS]
optimize for fast installation [default=yes]
--disable-libtool-lock avoid locking (might break parallel builds)
--disable-ff do not compile and install FF
--disable-ql do not compile and install QCDLoop
--disable-olo do not compile and install AVH OneLOop
--disable-golem95 do not compile and install Golem95C
--disable-samurai do not compile and install Samurai
Optional Packages:
--with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
--without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --with-pic try to use only PIC/non-PIC objects [default=use
+ --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use
both]
--with-gnu-ld assume the C compiler uses GNU ld [default=no]
--with-sysroot=DIR Search for dependent libraries within DIR
(or the compiler's sysroot if not specified).
--with-precision set the precision of the library to either 'double'
or 'quadruple'. [default=double]
--with-looptools enable linking to LoopTools
--with-lt-precision set the precision used by LoopTools to either
'double' or 'quadruple'. [default=double]
Some influential environment variables:
F77 Fortran 77 compiler command
FFLAGS Fortran 77 compiler flags
LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a
nonstandard directory <lib dir>
LIBS libraries to pass to the linker, e.g. -l<library>
FC Fortran compiler command
FCFLAGS Fortran compiler flags
CC C compiler command
CFLAGS C compiler flags
CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
you have headers in a nonstandard directory <include dir>
CPP C preprocessor
Use these variables to override the choices made by `configure' or to help
it to find libraries and programs with nonstandard names/locations.
Report bugs to <reiterth@mpp.mpg.de>.
GoSam Convenience Package home page: <http://projects.hepforge.org/golem/gosam-contrib/>.
_ACEOF
ac_status=$?
fi
if test "$ac_init_help" = "recursive"; then
# If there are subdirs, report their specific --help.
for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
test -d "$ac_dir" ||
{ cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
continue
ac_builddir=.
case "$ac_dir" in
.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
*)
ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
# A ".." for each directory in $ac_dir_suffix.
ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
case $ac_top_builddir_sub in
"") ac_top_builddir_sub=. ac_top_build_prefix= ;;
*) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
esac ;;
esac
ac_abs_top_builddir=$ac_pwd
ac_abs_builddir=$ac_pwd$ac_dir_suffix
# for backward compatibility:
ac_top_builddir=$ac_top_build_prefix
case $srcdir in
.) # We are building in place.
ac_srcdir=.
ac_top_srcdir=$ac_top_builddir_sub
ac_abs_top_srcdir=$ac_pwd ;;
[\\/]* | ?:[\\/]* ) # Absolute name.
ac_srcdir=$srcdir$ac_dir_suffix;
ac_top_srcdir=$srcdir
ac_abs_top_srcdir=$srcdir ;;
*) # Relative name.
ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
ac_top_srcdir=$ac_top_build_prefix$srcdir
ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
esac
ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
cd "$ac_dir" || { ac_status=$?; continue; }
# Check for guested configure.
if test -f "$ac_srcdir/configure.gnu"; then
echo &&
$SHELL "$ac_srcdir/configure.gnu" --help=recursive
elif test -f "$ac_srcdir/configure"; then
echo &&
$SHELL "$ac_srcdir/configure" --help=recursive
else
$as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
fi || ac_status=$?
cd "$ac_pwd" || { ac_status=$?; break; }
done
fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
GoSam Convenience Package configure 1.0
-generated by GNU Autoconf 2.68
+generated by GNU Autoconf 2.69
-Copyright (C) 2010 Free Software Foundation, Inc.
+Copyright (C) 2012 Free Software Foundation, Inc.
This configure script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it.
_ACEOF
exit
fi
## ------------------------ ##
## Autoconf initialization. ##
## ------------------------ ##
# ac_fn_f77_try_compile LINENO
# ----------------------------
# Try to compile conftest.$ac_ext, and return whether this succeeded.
ac_fn_f77_try_compile ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext
if { { ac_try="$ac_compile"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compile") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_f77_werror_flag" ||
test ! -s conftest.err
} && test -s conftest.$ac_objext; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_f77_try_compile
# ac_fn_fc_try_compile LINENO
# ---------------------------
# Try to compile conftest.$ac_ext, and return whether this succeeded.
ac_fn_fc_try_compile ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext
if { { ac_try="$ac_compile"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compile") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_fc_werror_flag" ||
test ! -s conftest.err
} && test -s conftest.$ac_objext; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_fc_try_compile
# ac_fn_c_try_compile LINENO
# --------------------------
# Try to compile conftest.$ac_ext, and return whether this succeeded.
ac_fn_c_try_compile ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext
if { { ac_try="$ac_compile"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compile") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_c_werror_flag" ||
test ! -s conftest.err
} && test -s conftest.$ac_objext; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_c_try_compile
# ac_fn_c_try_link LINENO
# -----------------------
# Try to link conftest.$ac_ext, and return whether this succeeded.
ac_fn_c_try_link ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext conftest$ac_exeext
if { { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_c_werror_flag" ||
test ! -s conftest.err
} && test -s conftest$ac_exeext && {
test "$cross_compiling" = yes ||
- $as_test_x conftest$ac_exeext
+ test -x conftest$ac_exeext
}; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
# Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
# created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
# interfere with the next link command; also delete a directory that is
# left behind by Apple's compiler. We do this before executing the actions.
rm -rf conftest.dSYM conftest_ipa8_conftest.oo
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_c_try_link
# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
# -------------------------------------------------------
# Tests whether HEADER exists and can be compiled using the include files in
# INCLUDES, setting the cache variable VAR accordingly.
ac_fn_c_check_header_compile ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; }
if eval \${$3+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
$4
#include <$2>
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
eval "$3=yes"
else
eval "$3=no"
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
eval ac_res=\$$3
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
$as_echo "$ac_res" >&6; }
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
} # ac_fn_c_check_header_compile
# ac_fn_c_try_cpp LINENO
# ----------------------
# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
ac_fn_c_try_cpp ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
if { { ac_try="$ac_cpp conftest.$ac_ext"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } > conftest.i && {
test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
test ! -s conftest.err
}; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_c_try_cpp
# ac_fn_c_try_run LINENO
# ----------------------
# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
# that executables *can* be run.
ac_fn_c_try_run ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
if { { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
{ { case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_try") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; }; then :
ac_retval=0
else
$as_echo "$as_me: program exited with status $ac_status" >&5
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=$ac_status
fi
rm -rf conftest.dSYM conftest_ipa8_conftest.oo
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_c_try_run
# ac_fn_c_check_func LINENO FUNC VAR
# ----------------------------------
# Tests whether FUNC exists, setting the cache variable VAR accordingly
ac_fn_c_check_func ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
$as_echo_n "checking for $2... " >&6; }
if eval \${$3+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
For example, HP-UX 11i <limits.h> declares gettimeofday. */
#define $2 innocuous_$2
/* System header to define __stub macros and hopefully few prototypes,
which can conflict with char $2 (); below.
Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
<limits.h> exists even on freestanding compilers. */
#ifdef __STDC__
# include <limits.h>
#else
# include <assert.h>
#endif
#undef $2
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char $2 ();
/* The GNU C library defines this for functions which it implements
to always fail with ENOSYS. Some functions are actually named
something starting with __ and the normal name is an alias. */
#if defined __stub_$2 || defined __stub___$2
choke me
#endif
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return $2 ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
eval "$3=yes"
else
eval "$3=no"
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
fi
eval ac_res=\$$3
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
$as_echo "$ac_res" >&6; }
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
} # ac_fn_c_check_func
# ac_fn_f77_try_link LINENO
# -------------------------
# Try to link conftest.$ac_ext, and return whether this succeeded.
ac_fn_f77_try_link ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext conftest$ac_exeext
if { { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_f77_werror_flag" ||
test ! -s conftest.err
} && test -s conftest$ac_exeext && {
test "$cross_compiling" = yes ||
- $as_test_x conftest$ac_exeext
+ test -x conftest$ac_exeext
}; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
# Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
# created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
# interfere with the next link command; also delete a directory that is
# left behind by Apple's compiler. We do this before executing the actions.
rm -rf conftest.dSYM conftest_ipa8_conftest.oo
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_f77_try_link
# ac_fn_fc_try_link LINENO
# ------------------------
# Try to link conftest.$ac_ext, and return whether this succeeded.
ac_fn_fc_try_link ()
{
as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
rm -f conftest.$ac_objext conftest$ac_exeext
if { { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
grep -v '^ *+' conftest.err >conftest.er1
cat conftest.er1 >&5
mv -f conftest.er1 conftest.err
fi
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && {
test -z "$ac_fc_werror_flag" ||
test ! -s conftest.err
} && test -s conftest$ac_exeext && {
test "$cross_compiling" = yes ||
- $as_test_x conftest$ac_exeext
+ test -x conftest$ac_exeext
}; then :
ac_retval=0
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
ac_retval=1
fi
# Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
# created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
# interfere with the next link command; also delete a directory that is
# left behind by Apple's compiler. We do this before executing the actions.
rm -rf conftest.dSYM conftest_ipa8_conftest.oo
eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
as_fn_set_status $ac_retval
} # ac_fn_fc_try_link
cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
It was created by GoSam Convenience Package $as_me 1.0, which was
-generated by GNU Autoconf 2.68. Invocation command line was
+generated by GNU Autoconf 2.69. Invocation command line was
$ $0 $@
_ACEOF
exec 5>>config.log
{
cat <<_ASUNAME
## --------- ##
## Platform. ##
## --------- ##
hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
uname -m = `(uname -m) 2>/dev/null || echo unknown`
uname -r = `(uname -r) 2>/dev/null || echo unknown`
uname -s = `(uname -s) 2>/dev/null || echo unknown`
uname -v = `(uname -v) 2>/dev/null || echo unknown`
/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
_ASUNAME
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
$as_echo "PATH: $as_dir"
done
IFS=$as_save_IFS
} >&5
cat >&5 <<_ACEOF
## ----------- ##
## Core tests. ##
## ----------- ##
_ACEOF
# Keep a trace of the command line.
# Strip out --no-create and --no-recursion so they do not pile up.
# Strip out --silent because we don't want to record it for future runs.
# Also quote any args containing shell meta-characters.
# Make two passes to allow for proper duplicate-argument suppression.
ac_configure_args=
ac_configure_args0=
ac_configure_args1=
ac_must_keep_next=false
for ac_pass in 1 2
do
for ac_arg
do
case $ac_arg in
-no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
-q | -quiet | --quiet | --quie | --qui | --qu | --q \
| -silent | --silent | --silen | --sile | --sil)
continue ;;
*\'*)
ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
esac
case $ac_pass in
1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
2)
as_fn_append ac_configure_args1 " '$ac_arg'"
if test $ac_must_keep_next = true; then
ac_must_keep_next=false # Got value, back to normal.
else
case $ac_arg in
*=* | --config-cache | -C | -disable-* | --disable-* \
| -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
| -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
| -with-* | --with-* | -without-* | --without-* | --x)
case "$ac_configure_args0 " in
"$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
esac
;;
-* ) ac_must_keep_next=true ;;
esac
fi
as_fn_append ac_configure_args " '$ac_arg'"
;;
esac
done
done
{ ac_configure_args0=; unset ac_configure_args0;}
{ ac_configure_args1=; unset ac_configure_args1;}
# When interrupted or exit'd, cleanup temporary files, and complete
# config.log. We remove comments because anyway the quotes in there
# would cause problems or look ugly.
# WARNING: Use '\'' to represent an apostrophe within the trap.
# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
trap 'exit_status=$?
# Save into config.log some information that might help in debugging.
{
echo
$as_echo "## ---------------- ##
## Cache variables. ##
## ---------------- ##"
echo
# The following way of writing the cache mishandles newlines in values,
(
for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
eval ac_val=\$$ac_var
case $ac_val in #(
*${as_nl}*)
case $ac_var in #(
*_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
esac
case $ac_var in #(
_ | IFS | as_nl) ;; #(
BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
*) { eval $ac_var=; unset $ac_var;} ;;
esac ;;
esac
done
(set) 2>&1 |
case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
*${as_nl}ac_space=\ *)
sed -n \
"s/'\''/'\''\\\\'\'''\''/g;
s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
;; #(
*)
sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
;;
esac |
sort
)
echo
$as_echo "## ----------------- ##
## Output variables. ##
## ----------------- ##"
echo
for ac_var in $ac_subst_vars
do
eval ac_val=\$$ac_var
case $ac_val in
*\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
esac
$as_echo "$ac_var='\''$ac_val'\''"
done | sort
echo
if test -n "$ac_subst_files"; then
$as_echo "## ------------------- ##
## File substitutions. ##
## ------------------- ##"
echo
for ac_var in $ac_subst_files
do
eval ac_val=\$$ac_var
case $ac_val in
*\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
esac
$as_echo "$ac_var='\''$ac_val'\''"
done | sort
echo
fi
if test -s confdefs.h; then
$as_echo "## ----------- ##
## confdefs.h. ##
## ----------- ##"
echo
cat confdefs.h
echo
fi
test "$ac_signal" != 0 &&
$as_echo "$as_me: caught signal $ac_signal"
$as_echo "$as_me: exit $exit_status"
} >&5
rm -f core *.core core.conftest.* &&
rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
exit $exit_status
' 0
for ac_signal in 1 2 13 15; do
trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
done
ac_signal=0
# confdefs.h avoids OS command line length limits that DEFS can exceed.
rm -f -r conftest* confdefs.h
$as_echo "/* confdefs.h */" > confdefs.h
# Predefined preprocessor variables.
cat >>confdefs.h <<_ACEOF
#define PACKAGE_NAME "$PACKAGE_NAME"
_ACEOF
cat >>confdefs.h <<_ACEOF
#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
_ACEOF
cat >>confdefs.h <<_ACEOF
#define PACKAGE_VERSION "$PACKAGE_VERSION"
_ACEOF
cat >>confdefs.h <<_ACEOF
#define PACKAGE_STRING "$PACKAGE_STRING"
_ACEOF
cat >>confdefs.h <<_ACEOF
#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
_ACEOF
cat >>confdefs.h <<_ACEOF
#define PACKAGE_URL "$PACKAGE_URL"
_ACEOF
# Let the site file select an alternate cache file if it wants to.
# Prefer an explicitly selected file to automatically selected ones.
ac_site_file1=NONE
ac_site_file2=NONE
if test -n "$CONFIG_SITE"; then
# We do not want a PATH search for config.site.
case $CONFIG_SITE in #((
-*) ac_site_file1=./$CONFIG_SITE;;
*/*) ac_site_file1=$CONFIG_SITE;;
*) ac_site_file1=./$CONFIG_SITE;;
esac
elif test "x$prefix" != xNONE; then
ac_site_file1=$prefix/share/config.site
ac_site_file2=$prefix/etc/config.site
else
ac_site_file1=$ac_default_prefix/share/config.site
ac_site_file2=$ac_default_prefix/etc/config.site
fi
for ac_site_file in "$ac_site_file1" "$ac_site_file2"
do
test "x$ac_site_file" = xNONE && continue
if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
$as_echo "$as_me: loading site script $ac_site_file" >&6;}
sed 's/^/| /' "$ac_site_file" >&5
. "$ac_site_file" \
|| { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "failed to load site script $ac_site_file
See \`config.log' for more details" "$LINENO" 5; }
fi
done
if test -r "$cache_file"; then
# Some versions of bash will fail to source /dev/null (special files
# actually), so we avoid doing that. DJGPP emulates it as a regular file.
if test /dev/null != "$cache_file" && test -f "$cache_file"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
$as_echo "$as_me: loading cache $cache_file" >&6;}
case $cache_file in
[\\/]* | ?:[\\/]* ) . "$cache_file";;
*) . "./$cache_file";;
esac
fi
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
$as_echo "$as_me: creating cache $cache_file" >&6;}
>$cache_file
fi
# Check that the precious variables saved in the cache have kept the same
# value.
ac_cache_corrupted=false
for ac_var in $ac_precious_vars; do
eval ac_old_set=\$ac_cv_env_${ac_var}_set
eval ac_new_set=\$ac_env_${ac_var}_set
eval ac_old_val=\$ac_cv_env_${ac_var}_value
eval ac_new_val=\$ac_env_${ac_var}_value
case $ac_old_set,$ac_new_set in
set,)
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
ac_cache_corrupted=: ;;
,set)
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
ac_cache_corrupted=: ;;
,);;
*)
if test "x$ac_old_val" != "x$ac_new_val"; then
# differences in whitespace do not lead to failure.
ac_old_val_w=`echo x $ac_old_val`
ac_new_val_w=`echo x $ac_new_val`
if test "$ac_old_val_w" != "$ac_new_val_w"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
ac_cache_corrupted=:
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
eval $ac_var=\$ac_old_val
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5
$as_echo "$as_me: former value: \`$ac_old_val'" >&2;}
{ $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5
$as_echo "$as_me: current value: \`$ac_new_val'" >&2;}
fi;;
esac
# Pass precious variables to config.status.
if test "$ac_new_set" = set; then
case $ac_new_val in
*\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
*) ac_arg=$ac_var=$ac_new_val ;;
esac
case " $ac_configure_args " in
*" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy.
*) as_fn_append ac_configure_args " '$ac_arg'" ;;
esac
fi
done
if $ac_cache_corrupted; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
{ $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
fi
## -------------------- ##
## Main body of script. ##
## -------------------- ##
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
ac_aux_dir=
for ac_dir in config.aux "$srcdir"/config.aux; do
if test -f "$ac_dir/install-sh"; then
ac_aux_dir=$ac_dir
ac_install_sh="$ac_aux_dir/install-sh -c"
break
elif test -f "$ac_dir/install.sh"; then
ac_aux_dir=$ac_dir
ac_install_sh="$ac_aux_dir/install.sh -c"
break
elif test -f "$ac_dir/shtool"; then
ac_aux_dir=$ac_dir
ac_install_sh="$ac_aux_dir/shtool install -c"
break
fi
done
if test -z "$ac_aux_dir"; then
as_fn_error $? "cannot find install-sh, install.sh, or shtool in config.aux \"$srcdir\"/config.aux" "$LINENO" 5
fi
# These three variables are undocumented and unsupported,
# and are intended to be withdrawn in a future Autoconf release.
# They can cause serious problems if a builder's source tree is in a directory
# whose full name contains unusual characters.
ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var.
ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var.
ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var.
VERSION=1.0
PACKAGE=gosam-contrib
-am__api_version='1.11'
+am__api_version='1.12'
# Find a good install program. We prefer a C program (faster),
# so one script is as good as another. But avoid the broken or
# incompatible versions:
# SysV /etc/install, /usr/sbin/install
# SunOS /usr/etc/install
# IRIX /sbin/install
# AIX /bin/install
# AmigaOS /C/install, which installs bootblocks on floppy discs
# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
# AFS /usr/afsws/bin/install, which mishandles nonexistent args
# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
# OS/2's system install, which has a completely different semantic
# ./install, which can be erroneously created by make from ./install.sh.
# Reject install programs that cannot install multiple files.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
$as_echo_n "checking for a BSD-compatible install... " >&6; }
if test -z "$INSTALL"; then
if ${ac_cv_path_install+:} false; then :
$as_echo_n "(cached) " >&6
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
# Account for people who put trailing slashes in PATH elements.
case $as_dir/ in #((
./ | .// | /[cC]/* | \
/etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
/usr/ucb/* ) ;;
*)
# OSF1 and SCO ODT 3.0 have their own names for install.
# Don't use installbsd from OSF since it installs stuff as root
# by default.
for ac_prog in ginstall scoinst install; do
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then
if test $ac_prog = install &&
grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
# AIX install. It has an incompatible calling convention.
:
elif test $ac_prog = install &&
grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
# program-specific install script used by HP pwplus--don't use.
:
else
rm -rf conftest.one conftest.two conftest.dir
echo one > conftest.one
echo two > conftest.two
mkdir conftest.dir
if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
test -s conftest.one && test -s conftest.two &&
test -s conftest.dir/conftest.one &&
test -s conftest.dir/conftest.two
then
ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
break 3
fi
fi
fi
done
done
;;
esac
done
IFS=$as_save_IFS
rm -rf conftest.one conftest.two conftest.dir
fi
if test "${ac_cv_path_install+set}" = set; then
INSTALL=$ac_cv_path_install
else
# As a last resort, use the slow shell script. Don't cache a
# value for INSTALL within a source directory, because that will
# break other packages using the cache if that directory is
# removed, or if the value is a relative name.
INSTALL=$ac_install_sh
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
$as_echo "$INSTALL" >&6; }
# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
# It thinks the first close brace ends the variable substitution.
test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
$as_echo_n "checking whether build environment is sane... " >&6; }
-# Just in case
-sleep 1
-echo timestamp > conftest.file
# Reject unsafe characters in $srcdir or the absolute working directory
# name. Accept space and tab only in the latter.
am_lf='
'
case `pwd` in
*[\\\"\#\$\&\'\`$am_lf]*)
as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
esac
case $srcdir in
*[\\\"\#\$\&\'\`$am_lf\ \ ]*)
- as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;;
+ as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;;
esac
-# Do `set' in a subshell so we don't clobber the current shell's
+# Do 'set' in a subshell so we don't clobber the current shell's
# arguments. Must try -L first in case configure is actually a
# symlink; some systems play weird games with the mod time of symlinks
# (eg FreeBSD returns the mod time of the symlink's containing
# directory).
if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$*" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$*" != "X $srcdir/configure conftest.file" \
- && test "$*" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
-alias in your environment" "$LINENO" 5
- fi
-
+ am_has_slept=no
+ for am_try in 1 2; do
+ echo "timestamp, slept: $am_has_slept" > conftest.file
+ set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
+ if test "$*" = "X"; then
+ # -L didn't work.
+ set X `ls -t "$srcdir/configure" conftest.file`
+ fi
+ if test "$*" != "X $srcdir/configure conftest.file" \
+ && test "$*" != "X conftest.file $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
+ alias in your environment" "$LINENO" 5
+ fi
+ if test "$2" = conftest.file || test $am_try -eq 2; then
+ break
+ fi
+ # Just in case.
+ sleep 1
+ am_has_slept=yes
+ done
test "$2" = conftest.file
)
then
# Ok.
:
else
as_fn_error $? "newly created file is older than distributed files!
Check your system clock" "$LINENO" 5
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
+# If we didn't sleep, we still need to ensure time stamps of config.status and
+# generated files are strictly newer.
+am_sleep_pid=
+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
+ ( sleep 1 ) &
+ am_sleep_pid=$!
+fi
+
+rm -f conftest.file
+
test "$program_prefix" != NONE &&
program_transform_name="s&^&$program_prefix&;$program_transform_name"
# Use a double $ so make ignores it.
test "$program_suffix" != NONE &&
program_transform_name="s&\$&$program_suffix&;$program_transform_name"
# Double any \ or $.
# By default was `s,x,x', remove it if useless.
ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
# expand $ac_aux_dir to an absolute path
am_aux_dir=`cd $ac_aux_dir && pwd`
if test x"${MISSING+set}" != xset; then
case $am_aux_dir in
*\ * | *\ *)
MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
*)
MISSING="\${SHELL} $am_aux_dir/missing" ;;
esac
fi
# Use eval to expand $SHELL
if eval "$MISSING --run true"; then
am_missing_run="$MISSING --run "
else
am_missing_run=
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5
-$as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;}
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5
+$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;}
fi
if test x"${install_sh}" != xset; then
case $am_aux_dir in
*\ * | *\ *)
install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
*)
install_sh="\${SHELL} $am_aux_dir/install-sh"
esac
fi
-# Installed binaries are usually stripped using `strip' when the user
-# run `make install-strip'. However `strip' might not be the right
+# Installed binaries are usually stripped using 'strip' when the user
+# run "make install-strip". However 'strip' might not be the right
# tool to use in cross-compilation environments, therefore Automake
-# will honor the `STRIP' environment variable to overrule this program.
+# will honor the 'STRIP' environment variable to overrule this program.
if test "$cross_compiling" != no; then
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
set dummy ${ac_tool_prefix}strip; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_STRIP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$STRIP"; then
ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_STRIP="${ac_tool_prefix}strip"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
STRIP=$ac_cv_prog_STRIP
if test -n "$STRIP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
$as_echo "$STRIP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_STRIP"; then
ac_ct_STRIP=$STRIP
# Extract the first word of "strip", so it can be a program name with args.
set dummy strip; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_STRIP"; then
ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_STRIP="strip"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
if test -n "$ac_ct_STRIP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
$as_echo "$ac_ct_STRIP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_STRIP" = x; then
STRIP=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
STRIP=$ac_ct_STRIP
fi
else
STRIP="$ac_cv_prog_STRIP"
fi
fi
INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
if test -z "$MKDIR_P"; then
if ${ac_cv_path_mkdir+:} false; then :
$as_echo_n "(cached) " >&6
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_prog in mkdir gmkdir; do
for ac_exec_ext in '' $ac_executable_extensions; do
- { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; } || continue
+ as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue
case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
'mkdir (GNU coreutils) '* | \
'mkdir (coreutils) '* | \
'mkdir (fileutils) '4.1*)
ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
break 3;;
esac
done
done
done
IFS=$as_save_IFS
fi
test -d ./--version && rmdir ./--version
if test "${ac_cv_path_mkdir+set}" = set; then
MKDIR_P="$ac_cv_path_mkdir -p"
else
# As a last resort, use the slow shell script. Don't cache a
# value for MKDIR_P within a source directory, because that will
# break other packages using the cache if that directory is
# removed, or if the value is a relative name.
MKDIR_P="$ac_install_sh -d"
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
$as_echo "$MKDIR_P" >&6; }
-mkdir_p="$MKDIR_P"
-case $mkdir_p in
- [\\/$]* | ?:[\\/]*) ;;
- */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;;
-esac
-
for ac_prog in gawk mawk nawk awk
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_AWK+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$AWK"; then
ac_cv_prog_AWK="$AWK" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_AWK="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
AWK=$ac_cv_prog_AWK
if test -n "$AWK"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
$as_echo "$AWK" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$AWK" && break
done
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
set x ${MAKE-make}
ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
$as_echo_n "(cached) " >&6
else
cat >conftest.make <<\_ACEOF
SHELL = /bin/sh
all:
@echo '@@@%%%=$(MAKE)=@@@%%%'
_ACEOF
# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
case `${MAKE-make} -f conftest.make 2>/dev/null` in
*@@@%%%=?*=@@@%%%*)
eval ac_cv_prog_make_${ac_make}_set=yes;;
*)
eval ac_cv_prog_make_${ac_make}_set=no;;
esac
rm -f conftest.make
fi
if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
SET_MAKE=
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
SET_MAKE="MAKE=${MAKE-make}"
fi
rm -rf .tst 2>/dev/null
mkdir .tst 2>/dev/null
if test -d .tst; then
am__leading_dot=.
else
am__leading_dot=_
fi
rmdir .tst 2>/dev/null
if test "`cd $srcdir && pwd`" != "`pwd`"; then
# Use -I$(srcdir) only when $(srcdir) != ., so that make's output
# is not polluted with repeated "-I."
am__isrc=' -I$(srcdir)'
# test to see if srcdir already configured
if test -f $srcdir/config.status; then
as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
fi
fi
# test whether we have cygpath
if test -z "$CYGPATH_W"; then
if (cygpath --version) >/dev/null 2>/dev/null; then
CYGPATH_W='cygpath -w'
else
CYGPATH_W=echo
fi
fi
# Define the identity of the package.
+
PACKAGE=$PACKAGE
VERSION=$VERSION
# Some tools Automake needs.
ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
+mkdir_p="$MKDIR_P"
# We need awk for the "check" target. The system "awk" is bad on
# some platforms.
-# Always define AMTAR for backward compatibility.
+# Always define AMTAR for backward compatibility. Yes, it's still used
+# in the wild :-( We should find a proper way to deprecate it ...
+AMTAR='$${TAR-tar}'
-AMTAR=${AMTAR-"${am_missing_run}tar"}
-
-am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -'
+am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=f
ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu
if test -n "$ac_tool_prefix"; then
for ac_prog in gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77
do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$F77"; then
ac_cv_prog_F77="$F77" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_F77="$ac_tool_prefix$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
F77=$ac_cv_prog_F77
if test -n "$F77"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $F77" >&5
$as_echo "$F77" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$F77" && break
done
fi
if test -z "$F77"; then
ac_ct_F77=$F77
for ac_prog in gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_F77"; then
ac_cv_prog_ac_ct_F77="$ac_ct_F77" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_F77="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_F77=$ac_cv_prog_ac_ct_F77
if test -n "$ac_ct_F77"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_F77" >&5
$as_echo "$ac_ct_F77" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$ac_ct_F77" && break
done
if test "x$ac_ct_F77" = x; then
F77=""
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
F77=$ac_ct_F77
fi
fi
# Provide some information about the compiler.
$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 compiler version" >&5
set X $ac_compile
ac_compiler=$2
for ac_option in --version -v -V -qversion; do
{ { ac_try="$ac_compiler $ac_option >&5"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compiler $ac_option >&5") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
sed '10a\
... rest of stderr output deleted ...
10q' conftest.err >conftest.er1
cat conftest.er1 >&5
fi
rm -f conftest.er1 conftest.err
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
done
rm -f a.out
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
ac_clean_files_save=$ac_clean_files
ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
# Try to create an executable without -o first, disregard a.out.
# It will help us diagnose broken compilers, and finding out an intuition
# of exeext.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the Fortran 77 compiler works" >&5
$as_echo_n "checking whether the Fortran 77 compiler works... " >&6; }
ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
# The possible output files:
ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
ac_rmfiles=
for ac_file in $ac_files
do
case $ac_file in
*.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
* ) ac_rmfiles="$ac_rmfiles $ac_file";;
esac
done
rm -f $ac_rmfiles
if { { ac_try="$ac_link_default"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link_default") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then :
# Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
# in a Makefile. We should not override ac_cv_exeext if it was cached,
# so that the user can short-circuit this test for compilers unknown to
# Autoconf.
for ac_file in $ac_files ''
do
test -f "$ac_file" || continue
case $ac_file in
*.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
;;
[ab].out )
# We found the default executable, but exeext='' is most
# certainly right.
break;;
*.* )
if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
then :; else
ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
fi
# We set ac_cv_exeext here because the later test for it is not
# safe: cross compilers may not add the suffix if given an `-o'
# argument, so we may need to know it at that point already.
# Even if this section looks crufty: it has the advantage of
# actually working.
break;;
* )
break;;
esac
done
test "$ac_cv_exeext" = no && ac_cv_exeext=
else
ac_file=''
fi
if test -z "$ac_file"; then :
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error 77 "Fortran 77 compiler cannot create executables
See \`config.log' for more details" "$LINENO" 5; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 compiler default output file name" >&5
$as_echo_n "checking for Fortran 77 compiler default output file name... " >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
$as_echo "$ac_file" >&6; }
ac_exeext=$ac_cv_exeext
rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
ac_clean_files=$ac_clean_files_save
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
$as_echo_n "checking for suffix of executables... " >&6; }
if { { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then :
# If both `conftest.exe' and `conftest' are `present' (well, observable)
# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will
# work properly (i.e., refer to `conftest.exe'), while it won't with
# `rm'.
for ac_file in conftest.exe conftest conftest.*; do
test -f "$ac_file" || continue
case $ac_file in
*.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
*.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
break;;
* ) break;;
esac
done
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "cannot compute suffix of executables: cannot compile and link
See \`config.log' for more details" "$LINENO" 5; }
fi
rm -f conftest conftest$ac_cv_exeext
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
$as_echo "$ac_cv_exeext" >&6; }
rm -f conftest.$ac_ext
EXEEXT=$ac_cv_exeext
ac_exeext=$EXEEXT
cat > conftest.$ac_ext <<_ACEOF
program main
open(unit=9,file='conftest.out')
close(unit=9)
end
_ACEOF
ac_clean_files="$ac_clean_files conftest.out"
# Check that the compiler produces executables we can run. If not, either
# the compiler is broken, or we cross compile.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
$as_echo_n "checking whether we are cross compiling... " >&6; }
if test "$cross_compiling" != yes; then
{ { ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_link") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
if { ac_try='./conftest$ac_cv_exeext'
{ { case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_try") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; }; then
cross_compiling=no
else
if test "$cross_compiling" = maybe; then
cross_compiling=yes
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "cannot run Fortran 77 compiled programs.
If you meant to cross compile, use \`--host'.
See \`config.log' for more details" "$LINENO" 5; }
fi
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
$as_echo "$cross_compiling" >&6; }
rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
ac_clean_files=$ac_clean_files_save
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
$as_echo_n "checking for suffix of object files... " >&6; }
if ${ac_cv_objext+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
rm -f conftest.o conftest.obj
if { { ac_try="$ac_compile"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compile") 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then :
for ac_file in conftest.o conftest.obj conftest.*; do
test -f "$ac_file" || continue;
case $ac_file in
*.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
*) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
break;;
esac
done
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "cannot compute suffix of object files: cannot compile
See \`config.log' for more details" "$LINENO" 5; }
fi
rm -f conftest.$ac_cv_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
$as_echo "$ac_cv_objext" >&6; }
OBJEXT=$ac_cv_objext
ac_objext=$OBJEXT
# If we don't use `.F' as extension, the preprocessor is not run on the
# input file. (Note that this only needs to work for GNU compilers.)
ac_save_ext=$ac_ext
ac_ext=F
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran 77 compiler" >&5
$as_echo_n "checking whether we are using the GNU Fortran 77 compiler... " >&6; }
if ${ac_cv_f77_compiler_gnu+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
#ifndef __GNUC__
choke me
#endif
end
_ACEOF
if ac_fn_f77_try_compile "$LINENO"; then :
ac_compiler_gnu=yes
else
ac_compiler_gnu=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
ac_cv_f77_compiler_gnu=$ac_compiler_gnu
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_compiler_gnu" >&5
$as_echo "$ac_cv_f77_compiler_gnu" >&6; }
ac_ext=$ac_save_ext
ac_test_FFLAGS=${FFLAGS+set}
ac_save_FFLAGS=$FFLAGS
FFLAGS=
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $F77 accepts -g" >&5
$as_echo_n "checking whether $F77 accepts -g... " >&6; }
if ${ac_cv_prog_f77_g+:} false; then :
$as_echo_n "(cached) " >&6
else
FFLAGS=-g
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_f77_try_compile "$LINENO"; then :
ac_cv_prog_f77_g=yes
else
ac_cv_prog_f77_g=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_f77_g" >&5
$as_echo "$ac_cv_prog_f77_g" >&6; }
if test "$ac_test_FFLAGS" = set; then
FFLAGS=$ac_save_FFLAGS
elif test $ac_cv_prog_f77_g = yes; then
if test "x$ac_cv_f77_compiler_gnu" = xyes; then
FFLAGS="-g -O2"
else
FFLAGS="-g"
fi
else
if test "x$ac_cv_f77_compiler_gnu" = xyes; then
FFLAGS="-O2"
else
FFLAGS=
fi
fi
if test $ac_compiler_gnu = yes; then
G77=yes
else
G77=
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
if test -n "$ac_tool_prefix"; then
for ac_prog in gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77
do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$FC"; then
ac_cv_prog_FC="$FC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_FC="$ac_tool_prefix$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
FC=$ac_cv_prog_FC
if test -n "$FC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $FC" >&5
$as_echo "$FC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$FC" && break
done
fi
if test -z "$FC"; then
ac_ct_FC=$FC
for ac_prog in gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_FC"; then
ac_cv_prog_ac_ct_FC="$ac_ct_FC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_FC="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_FC=$ac_cv_prog_ac_ct_FC
if test -n "$ac_ct_FC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_FC" >&5
$as_echo "$ac_ct_FC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$ac_ct_FC" && break
done
if test "x$ac_ct_FC" = x; then
FC=""
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
FC=$ac_ct_FC
fi
fi
# Provide some information about the compiler.
$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler version" >&5
set X $ac_compile
ac_compiler=$2
for ac_option in --version -v -V -qversion; do
{ { ac_try="$ac_compiler $ac_option >&5"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compiler $ac_option >&5") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
sed '10a\
... rest of stderr output deleted ...
10q' conftest.err >conftest.er1
cat conftest.er1 >&5
fi
rm -f conftest.er1 conftest.err
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
done
rm -f a.out
# If we don't use `.F' as extension, the preprocessor is not run on the
# input file. (Note that this only needs to work for GNU compilers.)
ac_save_ext=$ac_ext
ac_ext=F
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran compiler" >&5
$as_echo_n "checking whether we are using the GNU Fortran compiler... " >&6; }
if ${ac_cv_fc_compiler_gnu+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
#ifndef __GNUC__
choke me
#endif
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_compiler_gnu=yes
else
ac_compiler_gnu=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
ac_cv_fc_compiler_gnu=$ac_compiler_gnu
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_compiler_gnu" >&5
$as_echo "$ac_cv_fc_compiler_gnu" >&6; }
ac_ext=$ac_save_ext
ac_test_FCFLAGS=${FCFLAGS+set}
ac_save_FCFLAGS=$FCFLAGS
FCFLAGS=
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $FC accepts -g" >&5
$as_echo_n "checking whether $FC accepts -g... " >&6; }
if ${ac_cv_prog_fc_g+:} false; then :
$as_echo_n "(cached) " >&6
else
FCFLAGS=-g
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_cv_prog_fc_g=yes
else
ac_cv_prog_fc_g=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_g" >&5
$as_echo "$ac_cv_prog_fc_g" >&6; }
if test "$ac_test_FCFLAGS" = set; then
FCFLAGS=$ac_save_FCFLAGS
elif test $ac_cv_prog_fc_g = yes; then
if test "x$ac_cv_fc_compiler_gnu" = xyes; then
FCFLAGS="-g -O2"
else
FCFLAGS="-g"
fi
else
if test "x$ac_cv_fc_compiler_gnu" = xyes; then
FCFLAGS="-O2"
else
FCFLAGS=
fi
fi
+if test $ac_compiler_gnu = yes; then
+ GFC=yes
+else
+ GFC=
+fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
+# Make sure we can run config.sub.
+$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
+ as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
+$as_echo_n "checking build system type... " >&6; }
+if ${ac_cv_build+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ ac_build_alias=$build_alias
+test "x$ac_build_alias" = x &&
+ ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
+test "x$ac_build_alias" = x &&
+ as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
+ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
+ as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
+$as_echo "$ac_cv_build" >&6; }
+case $ac_cv_build in
+*-*-*) ;;
+*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;;
+esac
+build=$ac_cv_build
+ac_save_IFS=$IFS; IFS='-'
+set x $ac_cv_build
+shift
+build_cpu=$1
+build_vendor=$2
+shift; shift
+# Remember, the first character of IFS is used to create $*,
+# except with old shells:
+build_os=$*
+IFS=$ac_save_IFS
+case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
+
+
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
+$as_echo_n "checking host system type... " >&6; }
+if ${ac_cv_host+:} false; then :
+ $as_echo_n "(cached) " >&6
+else
+ if test "x$host_alias" = x; then
+ ac_cv_host=$ac_cv_build
+else
+ ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
+ as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
+fi
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
+$as_echo "$ac_cv_host" >&6; }
+case $ac_cv_host in
+*-*-*) ;;
+*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;;
+esac
+host=$ac_cv_host
+ac_save_IFS=$IFS; IFS='-'
+set x $ac_cv_host
+shift
+host_cpu=$1
+host_vendor=$2
+shift; shift
+# Remember, the first character of IFS is used to create $*,
+# except with old shells:
+host_os=$*
+IFS=$ac_save_IFS
+case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
+
+
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to get verbose linking output from $FC" >&5
$as_echo_n "checking how to get verbose linking output from $FC... " >&6; }
if ${ac_cv_prog_fc_v+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_cv_prog_fc_v=
# Try some options frequently used verbose output
for ac_verb in -v -verbose --verbose -V -\#\#\#; do
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
# Compile and link our simple test program by passing a flag (argument
# 1 to this macro) to the Fortran compiler in order to get
# "verbose" output that we can then parse for the Fortran linker
# flags.
ac_save_FCFLAGS=$FCFLAGS
FCFLAGS="$FCFLAGS $ac_verb"
eval "set x $ac_link"
shift
$as_echo "$as_me:${as_lineno-$LINENO}: $*" >&5
# gfortran 4.3 outputs lines setting COLLECT_GCC_OPTIONS, COMPILER_PATH,
# LIBRARY_PATH; skip all such settings.
ac_fc_v_output=`eval $ac_link 5>&1 2>&1 |
sed '/^Driving:/d; /^Configured with:/d;
'"/^[_$as_cr_Letters][_$as_cr_alnum]*=/d"`
$as_echo "$ac_fc_v_output" >&5
FCFLAGS=$ac_save_FCFLAGS
rm -rf conftest*
# On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where
# /foo, /bar, and /baz are search directories for the Fortran linker.
# Here, we change these into -L/foo -L/bar -L/baz (and put it first):
ac_fc_v_output="`echo $ac_fc_v_output |
grep 'LPATH is:' |
sed 's|.*LPATH is\(: *[^ ]*\).*|\1|;s|: */| -L/|g'` $ac_fc_v_output"
# FIXME: we keep getting bitten by quoted arguments; a more general fix
# that detects unbalanced quotes in FLIBS should be implemented
# and (ugh) tested at some point.
case $ac_fc_v_output in
- # If we are using xlf then replace all the commas with spaces.
+ # With xlf replace commas with spaces,
+ # and remove "-link" and closing parenthesis.
*xlfentry*)
- ac_fc_v_output=`echo $ac_fc_v_output | sed 's/,/ /g'` ;;
+ ac_fc_v_output=`echo $ac_fc_v_output |
+ sed '
+ s/,/ /g
+ s/ -link / /g
+ s/) *$//
+ '
+ ` ;;
# With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted
# $LIBS confuse us, and the libraries appear later in the output anyway).
*mGLOB_options_string*)
ac_fc_v_output=`echo $ac_fc_v_output | sed 's/"-mGLOB[^"]*"/ /g'` ;;
# Portland Group compiler has singly- or doubly-quoted -cmdline argument
# Singly-quoted arguments were reported for versions 5.2-4 and 6.0-4.
# Doubly-quoted arguments were reported for "PGF90/x86 Linux/x86 5.0-2".
*-cmdline\ * | *-ignore\ * | *-def\ *)
ac_fc_v_output=`echo $ac_fc_v_output | sed "\
s/-cmdline *'[^']*'/ /g; s/-cmdline *\"[^\"]*\"/ /g
s/-ignore *'[^']*'/ /g; s/-ignore *\"[^\"]*\"/ /g
s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;;
+ # If we are using fort77 (the f2c wrapper) then filter output and delete quotes.
+ *fort77*f2c*gcc*)
+ ac_fc_v_output=`echo "$ac_fc_v_output" | sed -n '
+ /:[ ]\+Running[ ]\{1,\}"gcc"/{
+ /"-c"/d
+ /[.]c"*/d
+ s/^.*"gcc"/"gcc"/
+ s/"//gp
+ }'` ;;
+
# If we are using Cray Fortran then delete quotes.
*cft90*)
ac_fc_v_output=`echo $ac_fc_v_output | sed 's/"//g'` ;;
esac
# look for -l* and *.a constructs in the output
for ac_arg in $ac_fc_v_output; do
case $ac_arg in
[\\/]*.a | ?:[\\/]*.a | -[lLRu]*)
ac_cv_prog_fc_v=$ac_verb
break 2 ;;
esac
done
done
if test -z "$ac_cv_prog_fc_v"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot determine how to obtain linking information from $FC" >&5
$as_echo "$as_me: WARNING: cannot determine how to obtain linking information from $FC" >&2;}
fi
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: compilation failed" >&5
$as_echo "$as_me: WARNING: compilation failed" >&2;}
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_v" >&5
$as_echo "$ac_cv_prog_fc_v" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran libraries of $FC" >&5
$as_echo_n "checking for Fortran libraries of $FC... " >&6; }
if ${ac_cv_fc_libs+:} false; then :
$as_echo_n "(cached) " >&6
else
if test "x$FCLIBS" != "x"; then
ac_cv_fc_libs="$FCLIBS" # Let the user override the test.
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
# Compile and link our simple test program by passing a flag (argument
# 1 to this macro) to the Fortran compiler in order to get
# "verbose" output that we can then parse for the Fortran linker
# flags.
ac_save_FCFLAGS=$FCFLAGS
FCFLAGS="$FCFLAGS $ac_cv_prog_fc_v"
eval "set x $ac_link"
shift
$as_echo "$as_me:${as_lineno-$LINENO}: $*" >&5
# gfortran 4.3 outputs lines setting COLLECT_GCC_OPTIONS, COMPILER_PATH,
# LIBRARY_PATH; skip all such settings.
ac_fc_v_output=`eval $ac_link 5>&1 2>&1 |
sed '/^Driving:/d; /^Configured with:/d;
'"/^[_$as_cr_Letters][_$as_cr_alnum]*=/d"`
$as_echo "$ac_fc_v_output" >&5
FCFLAGS=$ac_save_FCFLAGS
rm -rf conftest*
# On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where
# /foo, /bar, and /baz are search directories for the Fortran linker.
# Here, we change these into -L/foo -L/bar -L/baz (and put it first):
ac_fc_v_output="`echo $ac_fc_v_output |
grep 'LPATH is:' |
sed 's|.*LPATH is\(: *[^ ]*\).*|\1|;s|: */| -L/|g'` $ac_fc_v_output"
# FIXME: we keep getting bitten by quoted arguments; a more general fix
# that detects unbalanced quotes in FLIBS should be implemented
# and (ugh) tested at some point.
case $ac_fc_v_output in
- # If we are using xlf then replace all the commas with spaces.
+ # With xlf replace commas with spaces,
+ # and remove "-link" and closing parenthesis.
*xlfentry*)
- ac_fc_v_output=`echo $ac_fc_v_output | sed 's/,/ /g'` ;;
+ ac_fc_v_output=`echo $ac_fc_v_output |
+ sed '
+ s/,/ /g
+ s/ -link / /g
+ s/) *$//
+ '
+ ` ;;
# With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted
# $LIBS confuse us, and the libraries appear later in the output anyway).
*mGLOB_options_string*)
ac_fc_v_output=`echo $ac_fc_v_output | sed 's/"-mGLOB[^"]*"/ /g'` ;;
# Portland Group compiler has singly- or doubly-quoted -cmdline argument
# Singly-quoted arguments were reported for versions 5.2-4 and 6.0-4.
# Doubly-quoted arguments were reported for "PGF90/x86 Linux/x86 5.0-2".
*-cmdline\ * | *-ignore\ * | *-def\ *)
ac_fc_v_output=`echo $ac_fc_v_output | sed "\
s/-cmdline *'[^']*'/ /g; s/-cmdline *\"[^\"]*\"/ /g
s/-ignore *'[^']*'/ /g; s/-ignore *\"[^\"]*\"/ /g
s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;;
+ # If we are using fort77 (the f2c wrapper) then filter output and delete quotes.
+ *fort77*f2c*gcc*)
+ ac_fc_v_output=`echo "$ac_fc_v_output" | sed -n '
+ /:[ ]\+Running[ ]\{1,\}"gcc"/{
+ /"-c"/d
+ /[.]c"*/d
+ s/^.*"gcc"/"gcc"/
+ s/"//gp
+ }'` ;;
+
# If we are using Cray Fortran then delete quotes.
*cft90*)
ac_fc_v_output=`echo $ac_fc_v_output | sed 's/"//g'` ;;
esac
ac_cv_fc_libs=
# Save positional arguments (if any)
ac_save_positional="$@"
set X $ac_fc_v_output
while test $# != 1; do
shift
ac_arg=$1
case $ac_arg in
[\\/]*.a | ?:[\\/]*.a)
ac_exists=false
for ac_i in $ac_cv_fc_libs; do
if test x"$ac_arg" = x"$ac_i"; then
ac_exists=true
break
fi
done
if test x"$ac_exists" = xtrue; then :
else
ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
fi
;;
-bI:*)
ac_exists=false
for ac_i in $ac_cv_fc_libs; do
if test x"$ac_arg" = x"$ac_i"; then
ac_exists=true
break
fi
done
if test x"$ac_exists" = xtrue; then :
else
if test "$ac_compiler_gnu" = yes; then
for ac_link_opt in $ac_arg; do
ac_cv_fc_libs="$ac_cv_fc_libs -Xlinker $ac_link_opt"
done
else
ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
fi
fi
;;
# Ignore these flags.
-lang* | -lcrt*.o | -lc | -lgcc* | -lSystem | -libmil | -little \
|-LANG:=* | -LIST:* | -LNO:* | -link)
;;
-lkernel32)
- test x"$CYGWIN" != xyes && ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
+ case $host_os in
+ *cygwin*) ;;
+ *) ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
+ ;;
+ esac
;;
-[LRuYz])
# These flags, when seen by themselves, take an argument.
# We remove the space between option and argument and re-iterate
# unless we find an empty arg or a new option (starting with -)
case $2 in
"" | -*);;
*)
ac_arg="$ac_arg$2"
shift; shift
set X $ac_arg "$@"
;;
esac
;;
-YP,*)
for ac_j in `$as_echo "$ac_arg" | sed -e 's/-YP,/-L/;s/:/ -L/g'`; do
ac_exists=false
for ac_i in $ac_cv_fc_libs; do
if test x"$ac_j" = x"$ac_i"; then
ac_exists=true
break
fi
done
if test x"$ac_exists" = xtrue; then :
else
ac_arg="$ac_arg $ac_j"
ac_cv_fc_libs="$ac_cv_fc_libs $ac_j"
fi
done
;;
-[lLR]*)
ac_exists=false
for ac_i in $ac_cv_fc_libs; do
if test x"$ac_arg" = x"$ac_i"; then
ac_exists=true
break
fi
done
if test x"$ac_exists" = xtrue; then :
else
ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
fi
;;
-zallextract*| -zdefaultextract)
ac_cv_fc_libs="$ac_cv_fc_libs $ac_arg"
;;
# Ignore everything else.
esac
done
# restore positional arguments
set X $ac_save_positional; shift
# We only consider "LD_RUN_PATH" on Solaris systems. If this is seen,
# then we insist that the "run path" must be an absolute path (i.e. it
# must begin with a "/").
case `(uname -sr) 2>/dev/null` in
"SunOS 5"*)
ac_ld_run_path=`$as_echo "$ac_fc_v_output" |
sed -n 's,^.*LD_RUN_PATH *= *\(/[^ ]*\).*$,-R\1,p'`
test "x$ac_ld_run_path" != x &&
if test "$ac_compiler_gnu" = yes; then
for ac_link_opt in $ac_ld_run_path; do
ac_cv_fc_libs="$ac_cv_fc_libs -Xlinker $ac_link_opt"
done
else
ac_cv_fc_libs="$ac_cv_fc_libs $ac_ld_run_path"
fi
;;
esac
fi # test "x$[]_AC_LANG_PREFIX[]LIBS" = "x"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_libs" >&5
$as_echo "$ac_cv_fc_libs" >&6; }
FCLIBS="$ac_cv_fc_libs"
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
DEPDIR="${am__leading_dot}deps"
ac_config_commands="$ac_config_commands depfiles"
am_make=${MAKE-make}
cat > confinc << 'END'
am__doit:
@echo this is the am__doit target
.PHONY: am__doit
END
# If we don't find an include directive, just comment out the code.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5
$as_echo_n "checking for style of include used by $am_make... " >&6; }
am__include="#"
am__quote=
_am_result=none
# First try GNU make style include.
echo "include confinc" > confmf
-# Ignore all kinds of additional output from `make'.
+# Ignore all kinds of additional output from 'make'.
case `$am_make -s -f confmf 2> /dev/null` in #(
*the\ am__doit\ target*)
am__include=include
am__quote=
_am_result=GNU
;;
esac
# Now try BSD make style include.
if test "$am__include" = "#"; then
echo '.include "confinc"' > confmf
case `$am_make -s -f confmf 2> /dev/null` in #(
*the\ am__doit\ target*)
am__include=.include
am__quote="\""
_am_result=BSD
;;
esac
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5
$as_echo "$_am_result" >&6; }
rm -f confinc confmf
# Check whether --enable-dependency-tracking was given.
if test "${enable_dependency_tracking+set}" = set; then :
enableval=$enable_dependency_tracking;
fi
if test "x$enable_dependency_tracking" != xno; then
am_depcomp="$ac_aux_dir/depcomp"
AMDEPBACKSLASH='\'
+ am__nodep='_no'
fi
if test "x$enable_dependency_tracking" != xno; then
AMDEP_TRUE=
AMDEP_FALSE='#'
else
AMDEP_TRUE='#'
AMDEP_FALSE=
fi
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
set dummy ${ac_tool_prefix}gcc; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$CC"; then
ac_cv_prog_CC="$CC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_CC="${ac_tool_prefix}gcc"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
CC=$ac_cv_prog_CC
if test -n "$CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
$as_echo "$CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_CC"; then
ac_ct_CC=$CC
# Extract the first word of "gcc", so it can be a program name with args.
set dummy gcc; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_CC"; then
ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_CC="gcc"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_CC=$ac_cv_prog_ac_ct_CC
if test -n "$ac_ct_CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
$as_echo "$ac_ct_CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_CC" = x; then
CC=""
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
CC=$ac_ct_CC
fi
else
CC="$ac_cv_prog_CC"
fi
if test -z "$CC"; then
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
set dummy ${ac_tool_prefix}cc; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$CC"; then
ac_cv_prog_CC="$CC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_CC="${ac_tool_prefix}cc"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
CC=$ac_cv_prog_CC
if test -n "$CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
$as_echo "$CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
fi
if test -z "$CC"; then
# Extract the first word of "cc", so it can be a program name with args.
set dummy cc; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$CC"; then
ac_cv_prog_CC="$CC" # Let the user override the test.
else
ac_prog_rejected=no
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
ac_prog_rejected=yes
continue
fi
ac_cv_prog_CC="cc"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
if test $ac_prog_rejected = yes; then
# We found a bogon in the path, so make sure we never use it.
set dummy $ac_cv_prog_CC
shift
if test $# != 0; then
# We chose a different compiler from the bogus one.
# However, it has the same basename, so the bogon will be chosen
# first if we set CC to just the basename; use the full file name.
shift
ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
fi
fi
fi
fi
CC=$ac_cv_prog_CC
if test -n "$CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
$as_echo "$CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$CC"; then
if test -n "$ac_tool_prefix"; then
for ac_prog in cl.exe
do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$CC"; then
ac_cv_prog_CC="$CC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
CC=$ac_cv_prog_CC
if test -n "$CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
$as_echo "$CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$CC" && break
done
fi
if test -z "$CC"; then
ac_ct_CC=$CC
for ac_prog in cl.exe
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_CC+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_CC"; then
ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_CC="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_CC=$ac_cv_prog_ac_ct_CC
if test -n "$ac_ct_CC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
$as_echo "$ac_ct_CC" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$ac_ct_CC" && break
done
if test "x$ac_ct_CC" = x; then
CC=""
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
CC=$ac_ct_CC
fi
fi
fi
test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "no acceptable C compiler found in \$PATH
See \`config.log' for more details" "$LINENO" 5; }
# Provide some information about the compiler.
$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
set X $ac_compile
ac_compiler=$2
for ac_option in --version -v -V -qversion; do
{ { ac_try="$ac_compiler $ac_option >&5"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
$as_echo "$ac_try_echo"; } >&5
(eval "$ac_compiler $ac_option >&5") 2>conftest.err
ac_status=$?
if test -s conftest.err; then
sed '10a\
... rest of stderr output deleted ...
10q' conftest.err >conftest.er1
cat conftest.er1 >&5
fi
rm -f conftest.er1 conftest.err
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
done
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
if ${ac_cv_c_compiler_gnu+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
#ifndef __GNUC__
choke me
#endif
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
ac_compiler_gnu=yes
else
ac_compiler_gnu=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
ac_cv_c_compiler_gnu=$ac_compiler_gnu
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
$as_echo "$ac_cv_c_compiler_gnu" >&6; }
if test $ac_compiler_gnu = yes; then
GCC=yes
else
GCC=
fi
ac_test_CFLAGS=${CFLAGS+set}
ac_save_CFLAGS=$CFLAGS
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
$as_echo_n "checking whether $CC accepts -g... " >&6; }
if ${ac_cv_prog_cc_g+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_save_c_werror_flag=$ac_c_werror_flag
ac_c_werror_flag=yes
ac_cv_prog_cc_g=no
CFLAGS="-g"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
ac_cv_prog_cc_g=yes
else
CFLAGS=""
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
else
ac_c_werror_flag=$ac_save_c_werror_flag
CFLAGS="-g"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
ac_cv_prog_cc_g=yes
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
ac_c_werror_flag=$ac_save_c_werror_flag
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
$as_echo "$ac_cv_prog_cc_g" >&6; }
if test "$ac_test_CFLAGS" = set; then
CFLAGS=$ac_save_CFLAGS
elif test $ac_cv_prog_cc_g = yes; then
if test "$GCC" = yes; then
CFLAGS="-g -O2"
else
CFLAGS="-g"
fi
else
if test "$GCC" = yes; then
CFLAGS="-O2"
else
CFLAGS=
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
if ${ac_cv_prog_cc_c89+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_cv_prog_cc_c89=no
ac_save_CC=$CC
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <stdarg.h>
#include <stdio.h>
-#include <sys/types.h>
-#include <sys/stat.h>
+struct stat;
/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
struct buf { int x; };
FILE * (*rcsopen) (struct buf *, struct stat *, int);
static char *e (p, i)
char **p;
int i;
{
return p[i];
}
static char *f (char * (*g) (char **, int), char **p, ...)
{
char *s;
va_list v;
va_start (v,p);
s = g (p, va_arg (v,int));
va_end (v);
return s;
}
/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
function prototypes and stuff, but not '\xHH' hex character constants.
These don't provoke an error unfortunately, instead are silently treated
as 'x'. The following induces an error, until -std is added to get
proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
array size at least. It's necessary to write '\x00'==0 to get something
that's true only with -std. */
int osf4_cc_array ['\x00' == 0 ? 1 : -1];
/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
inside strings and character constants. */
#define FOO(x) 'x'
int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
int test (int i, double x);
struct s1 {int (*f) (int a);};
struct s2 {int (*f) (double a);};
int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
int argc;
char **argv;
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
;
return 0;
}
_ACEOF
for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
-Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
do
CC="$ac_save_CC $ac_arg"
if ac_fn_c_try_compile "$LINENO"; then :
ac_cv_prog_cc_c89=$ac_arg
fi
rm -f core conftest.err conftest.$ac_objext
test "x$ac_cv_prog_cc_c89" != "xno" && break
done
rm -f conftest.$ac_ext
CC=$ac_save_CC
fi
# AC_CACHE_VAL
case "x$ac_cv_prog_cc_c89" in
x)
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
$as_echo "none needed" >&6; } ;;
xno)
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
$as_echo "unsupported" >&6; } ;;
*)
CC="$CC $ac_cv_prog_cc_c89"
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
esac
if test "x$ac_cv_prog_cc_c89" != xno; then :
fi
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
depcc="$CC" am_compiler_list=
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
$as_echo_n "checking dependency style of $depcc... " >&6; }
if ${am_cv_CC_dependencies_compiler_type+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
# We make a subdir and do the tests there. Otherwise we can end up
# making bogus files that we don't know about and never remove. For
# instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
+ # making a dummy file named 'D' -- because '-MD' means "put the output
+ # in D".
+ rm -rf conftest.dir
mkdir conftest.dir
# Copy depcomp to subdir because otherwise we won't find it if we're
# using a relative directory.
cp "$am_depcomp" conftest.dir
cd conftest.dir
# We will build objects and dependencies in a subdirectory because
# it helps to detect inapplicable dependency modes. For instance
# both Tru64's cc and ICC support -MD to output dependencies as a
# side effect of compilation, but ICC will put the dependencies in
# the current directory while Tru64 will put them in the object
# directory.
mkdir sub
am_cv_CC_dependencies_compiler_type=none
if test "$am_compiler_list" = ""; then
am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
fi
am__universal=false
case " $depcc " in #(
*\ -arch\ *\ -arch\ *) am__universal=true ;;
esac
for depmode in $am_compiler_list; do
# Setup a source with many dependencies, because some compilers
# like to wrap large dependency lists on column 80 (with \), and
# we should not choose a depcomp mode which is confused by this.
#
# We need to recreate these files for each test, as the compiler may
# overwrite some of them when testing with obscure command lines.
# This happens at least with the AIX C compiler.
: > sub/conftest.c
for i in 1 2 3 4 5 6; do
echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
+ # Using ": > sub/conftst$i.h" creates only sub/conftst1.h with
+ # Solaris 10 /bin/sh.
+ echo '/* dummy */' > sub/conftst$i.h
done
echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
+ # We check with '-c' and '-o' for the sake of the "dashmstdout"
# mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
+ # handle '-M -o', and we need to detect this. Also, some Intel
+ # versions had trouble with output in subdirs.
am__obj=sub/conftest.${OBJEXT-o}
am__minus_obj="-o $am__obj"
case $depmode in
gcc)
# This depmode causes a compiler race in universal mode.
test "$am__universal" = false || continue
;;
nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
+ # After this tag, mechanisms are not by side-effect, so they'll
+ # only be used when explicitly requested.
if test "x$enable_dependency_tracking" = xyes; then
continue
else
break
fi
;;
- msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
+ msvc7 | msvc7msys | msvisualcpp | msvcmsys)
+ # This compiler won't grok '-c -o', but also, the minuso test has
# not run yet. These depmodes are late enough in the game, and
# so weak that their functioning should not be impacted.
am__obj=conftest.${OBJEXT-o}
am__minus_obj=
;;
none) break ;;
esac
if depmode=$depmode \
source=sub/conftest.c object=$am__obj \
depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
$SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
>/dev/null 2>conftest.err &&
grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
${MAKE-make} -s -f confmf > /dev/null 2>&1; then
# icc doesn't choke on unknown options, it will just issue warnings
# or remarks (even with -Werror). So we grep stderr for any message
# that says an option was ignored or not supported.
# When given -MP, icc 7.0 and 7.1 complain thusly:
# icc: Command line warning: ignoring option '-M'; no argument required
# The diagnosis changed in icc 8.0:
# icc: Command line remark: option '-MP' not supported
if (grep 'ignoring option' conftest.err ||
grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
am_cv_CC_dependencies_compiler_type=$depmode
break
fi
fi
done
cd ..
rm -rf conftest.dir
else
am_cv_CC_dependencies_compiler_type=none
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
if
test "x$enable_dependency_tracking" != xno \
&& test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
am__fastdepCC_TRUE=
am__fastdepCC_FALSE='#'
else
am__fastdepCC_TRUE='#'
am__fastdepCC_FALSE=
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dummy main to link with Fortran libraries" >&5
$as_echo_n "checking for dummy main to link with Fortran libraries... " >&6; }
if ${ac_cv_fc_dummy_main+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_fc_dm_save_LIBS=$LIBS
LIBS="$LIBS $FCLIBS"
ac_fortran_dm_var=FC_DUMMY_MAIN
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
# First, try linking without a dummy main:
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_fortran_dummy_main=none
else
ac_cv_fortran_dummy_main=unknown
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test $ac_cv_fortran_dummy_main = unknown; then
for ac_func in MAIN__ MAIN_ __main MAIN _MAIN __MAIN main_ main__ _main; do
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#define $ac_fortran_dm_var $ac_func
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_fortran_dummy_main=$ac_func; break
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
done
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_cv_fc_dummy_main=$ac_cv_fortran_dummy_main
rm -rf conftest*
LIBS=$ac_fc_dm_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_dummy_main" >&5
$as_echo "$ac_cv_fc_dummy_main" >&6; }
FC_DUMMY_MAIN=$ac_cv_fc_dummy_main
if test "$FC_DUMMY_MAIN" != unknown; then :
if test $FC_DUMMY_MAIN != none; then
cat >>confdefs.h <<_ACEOF
#define FC_DUMMY_MAIN $FC_DUMMY_MAIN
_ACEOF
if test "x$ac_cv_fc_dummy_main" = "x$ac_cv_f77_dummy_main"; then
$as_echo "#define FC_DUMMY_MAIN_EQ_F77 1" >>confdefs.h
fi
fi
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "linking to Fortran libraries from C fails
See \`config.log' for more details" "$LINENO" 5; }
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran name-mangling scheme" >&5
$as_echo_n "checking for Fortran name-mangling scheme... " >&6; }
if ${ac_cv_fc_mangling+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
subroutine foobar()
return
end
subroutine foo_bar()
return
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
mv conftest.$ac_objext cfortran_test.$ac_objext
ac_save_LIBS=$LIBS
LIBS="cfortran_test.$ac_objext $LIBS $FCLIBS"
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
ac_success=no
for ac_foobar in foobar FOOBAR; do
for ac_underscore in "" "_"; do
ac_func="$ac_foobar$ac_underscore"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char $ac_func ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return $ac_func ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_success=yes; break 2
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
done
done
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
if test "$ac_success" = "yes"; then
case $ac_foobar in
foobar)
ac_case=lower
ac_foo_bar=foo_bar
;;
FOOBAR)
ac_case=upper
ac_foo_bar=FOO_BAR
;;
esac
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
ac_success_extra=no
for ac_extra in "" "_"; do
ac_func="$ac_foo_bar$ac_underscore$ac_extra"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char $ac_func ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return $ac_func ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_success_extra=yes; break
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
done
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
if test "$ac_success_extra" = "yes"; then
ac_cv_fc_mangling="$ac_case case"
if test -z "$ac_underscore"; then
ac_cv_fc_mangling="$ac_cv_fc_mangling, no underscore"
else
ac_cv_fc_mangling="$ac_cv_fc_mangling, underscore"
fi
if test -z "$ac_extra"; then
ac_cv_fc_mangling="$ac_cv_fc_mangling, no extra underscore"
else
ac_cv_fc_mangling="$ac_cv_fc_mangling, extra underscore"
fi
else
ac_cv_fc_mangling="unknown"
fi
else
ac_cv_fc_mangling="unknown"
fi
LIBS=$ac_save_LIBS
rm -rf conftest*
rm -f cfortran_test*
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "cannot compile a simple Fortran program
See \`config.log' for more details" "$LINENO" 5; }
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_mangling" >&5
$as_echo "$ac_cv_fc_mangling" >&6; }
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
case $ac_cv_fc_mangling in
"lower case, no underscore, no extra underscore")
$as_echo "#define FC_FUNC(name,NAME) name" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) name" >>confdefs.h
;;
"lower case, no underscore, extra underscore")
$as_echo "#define FC_FUNC(name,NAME) name" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) name ## _" >>confdefs.h
;;
"lower case, underscore, no extra underscore")
$as_echo "#define FC_FUNC(name,NAME) name ## _" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) name ## _" >>confdefs.h
;;
"lower case, underscore, extra underscore")
$as_echo "#define FC_FUNC(name,NAME) name ## _" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) name ## __" >>confdefs.h
;;
"upper case, no underscore, no extra underscore")
$as_echo "#define FC_FUNC(name,NAME) NAME" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) NAME" >>confdefs.h
;;
"upper case, no underscore, extra underscore")
$as_echo "#define FC_FUNC(name,NAME) NAME" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) NAME ## _" >>confdefs.h
;;
"upper case, underscore, no extra underscore")
$as_echo "#define FC_FUNC(name,NAME) NAME ## _" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) NAME ## _" >>confdefs.h
;;
"upper case, underscore, extra underscore")
$as_echo "#define FC_FUNC(name,NAME) NAME ## _" >>confdefs.h
$as_echo "#define FC_FUNC_(name,NAME) NAME ## __" >>confdefs.h
;;
*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unknown Fortran name-mangling scheme" >&5
$as_echo "$as_me: WARNING: unknown Fortran name-mangling scheme" >&2;}
;;
esac
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran flag to compile .f90 files" >&5
$as_echo_n "checking for Fortran flag to compile .f90 files... " >&6; }
if ${ac_cv_fc_srcext_f90+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_ext=f90
ac_fcflags_srcext_save=$ac_fcflags_srcext
ac_fcflags_srcext=
ac_cv_fc_srcext_f90=unknown
-for ac_flag in none -qsuffix=f=f90 -Tf; do
+case $ac_ext in #(
+ [fF]77) ac_try=f77;; #(
+ *) ac_try=f95;;
+esac
+for ac_flag in none -qsuffix=f=f90 -Tf "-x $ac_try"; do
test "x$ac_flag" != xnone && ac_fcflags_srcext="$ac_flag"
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_cv_fc_srcext_f90=$ac_flag; break
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
done
rm -f conftest.$ac_objext conftest.f90
ac_fcflags_srcext=$ac_fcflags_srcext_save
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_srcext_f90" >&5
$as_echo "$ac_cv_fc_srcext_f90" >&6; }
if test "x$ac_cv_fc_srcext_f90" = xunknown; then
as_fn_error $? "Fortran could not compile .f90 files" "$LINENO" 5
else
ac_fc_srcext=f90
if test "x$ac_cv_fc_srcext_f90" = xnone; then
ac_fcflags_srcext=""
FCFLAGS_f90=""
else
ac_fcflags_srcext=$ac_cv_fc_srcext_f90
FCFLAGS_f90=$ac_cv_fc_srcext_f90
fi
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran flag needed to accept free-form source" >&5
$as_echo_n "checking for Fortran flag needed to accept free-form source... " >&6; }
if ${ac_cv_fc_freeform+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_cv_fc_freeform=unknown
ac_fc_freeform_FCFLAGS_save=$FCFLAGS
for ac_flag in none -ffree-form -FR -free -qfree -Mfree -Mfreeform \
- -freeform "-f free" +source=free -nfix
+ -freeform "-f free" -8 +source=free -nfix --nfix -Free
do
test "x$ac_flag" != xnone && FCFLAGS="$ac_fc_freeform_FCFLAGS_save $ac_flag"
cat > conftest.$ac_ext <<_ACEOF
program freeform
! FIXME: how to best confuse non-freeform compilers?
print *, 'Hello ', &
'world.'
end
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_cv_fc_freeform=$ac_flag; break
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
done
rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
FCFLAGS=$ac_fc_freeform_FCFLAGS_save
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_freeform" >&5
$as_echo "$ac_cv_fc_freeform" >&6; }
if test "x$ac_cv_fc_freeform" = xunknown; then
as_fn_error 77 "Fortran does not accept free-form source" "$LINENO" 5
else
if test "x$ac_cv_fc_freeform" != xnone; then
FCFLAGS="$FCFLAGS $ac_cv_fc_freeform"
fi
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_fc_line_len_string=unlimited
ac_fc_line_len=0
ac_fc_line_length_test='
subroutine longer_than_132(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,'\
'arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19)'
: ${ac_fc_line_len_string=$ac_fc_line_len}
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran flag needed to accept $ac_fc_line_len_string column source lines" >&5
$as_echo_n "checking for Fortran flag needed to accept $ac_fc_line_len_string column source lines... " >&6; }
if ${ac_cv_fc_line_length+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_cv_fc_line_length=unknown
ac_fc_line_length_FCFLAGS_save=$FCFLAGS
for ac_flag in none \
-ffree-line-length-none -ffixed-line-length-none \
+ -ffree-line-length-huge \
-ffree-line-length-$ac_fc_line_len \
-ffixed-line-length-$ac_fc_line_len \
-qfixed=$ac_fc_line_len -Mextend \
-$ac_fc_line_len -extend_source \
- "-W $ac_fc_line_len" +extend_source -wide -e
+ -W$ac_fc_line_len -W +extend_source +es -wide --wide -w -e \
+ -f -Wf,-f -xline
do
test "x$ac_flag" != xnone && FCFLAGS="$ac_fc_line_length_FCFLAGS_save $ac_flag"
cat > conftest.$ac_ext <<_ACEOF
$ac_fc_line_length_test
end subroutine
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
ac_cv_fc_line_length=$ac_flag; break
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
done
rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
FCFLAGS=$ac_fc_line_length_FCFLAGS_save
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_line_length" >&5
$as_echo "$ac_cv_fc_line_length" >&6; }
if test "x$ac_cv_fc_line_length" = xunknown; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Fortran compiler does not accept long source lines" >&5
$as_echo "$as_me: WARNING: Fortran compiler does not accept long source lines" >&2;}
else
if test "x$ac_cv_fc_line_length" != xnone; then
FCFLAGS="$FCFLAGS $ac_cv_fc_line_length"
fi
fi
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
ac_ext=f
ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu
ac_ext=f
ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu
my_f77_line_len=132
my_f77_line_length_test='
subroutine longer_than_80(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,'\
'arg10)'
: ${my_f77_line_len_string=$my_f77_line_len}
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 flag needed to accept $my_f77_line_len_string column source lines" >&5
$as_echo_n "checking for Fortran 77 flag needed to accept $my_f77_line_len_string column source lines... " >&6; }
if ${my_cv_f77_line_length+:} false; then :
$as_echo_n "(cached) " >&6
else
my_cv_f77_line_length=unknown
my_f77_line_length_FFLAGS_save=$FFLAGS
for ac_flag in none \
-ffixed-line-length-none \
-ffixed-line-length-$my_f77_line_len \
-qfixed=$my_f77_line_len -Mextend \
-$my_f77_line_len -extend_source \
"-W $my_f77_line_len" +extend_source -wide -e
do
test "x$ac_flag" != xnone && FFLAGS="$my_f77_line_length_FFLAGS_save $ac_flag"
cat > conftest.$ac_ext <<_ACEOF
$my_f77_line_length_test
end subroutine
_ACEOF
if ac_fn_f77_try_compile "$LINENO"; then :
my_cv_f77_line_length=$ac_flag; break
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
done
rm -f conftest.err conftest.$ac_objext conftest.$ac_ext
FFLAGS=$my_f77_line_length_FFLAGS_save
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $my_cv_f77_line_length" >&5
$as_echo "$my_cv_f77_line_length" >&6; }
if test "x$my_cv_f77_line_length" = xunknown; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Fortran 77 compiler does not accept long source lines" >&5
$as_echo "$as_me: WARNING: Fortran 77 compiler does not accept long source lines" >&2;}
else
if test "x$my_cv_f77_line_length" != xnone; then
FFLAGS="$FFLAGS $my_cv_f77_line_length"
fi
fi
ac_ext=f
ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
case `pwd` in
*\ * | *\ *)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5
$as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;;
esac
-macro_version='2.4'
-macro_revision='1.3293'
+macro_version='2.4.2'
+macro_revision='1.3337'
ltmain="$ac_aux_dir/ltmain.sh"
-# Make sure we can run config.sub.
-$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
- as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
-$as_echo_n "checking build system type... " >&6; }
-if ${ac_cv_build+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_build_alias=$build_alias
-test "x$ac_build_alias" = x &&
- ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
-test "x$ac_build_alias" = x &&
- as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
-ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
-$as_echo "$ac_cv_build" >&6; }
-case $ac_cv_build in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;;
-esac
-build=$ac_cv_build
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_build
-shift
-build_cpu=$1
-build_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-build_os=$*
-IFS=$ac_save_IFS
-case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
-$as_echo_n "checking host system type... " >&6; }
-if ${ac_cv_host+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "x$host_alias" = x; then
- ac_cv_host=$ac_cv_build
-else
- ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
-$as_echo "$ac_cv_host" >&6; }
-case $ac_cv_host in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;;
-esac
-host=$ac_cv_host
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_host
-shift
-host_cpu=$1
-host_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-host_os=$*
-IFS=$ac_save_IFS
-case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
-
-
# Backslashify metacharacters that are still active within
# double-quoted strings.
sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
# Same as above, but do not quote variable references.
double_quote_subst='s/\(["`\\]\)/\\\1/g'
# Sed substitution to delay expansion of an escaped shell variable in a
# double_quote_subst'ed string.
delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
# Sed substitution to delay expansion of an escaped single quote.
delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
# Sed substitution to avoid accidental globbing in evaled expressions
no_glob_subst='s/\*/\\\*/g'
ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5
$as_echo_n "checking how to print strings... " >&6; }
# Test print first, because it will be a builtin if present.
if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='print -r --'
elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='printf %s\n'
else
# Use this function as a fallback that always works.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
$1
_LTECHO_EOF'
}
ECHO='func_fallback_echo'
fi
# func_echo_all arg...
# Invoke $ECHO with all args, space-separated.
func_echo_all ()
{
$ECHO ""
}
case "$ECHO" in
printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5
$as_echo "printf" >&6; } ;;
print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5
$as_echo "print -r" >&6; } ;;
*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5
$as_echo "cat" >&6; } ;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5
$as_echo_n "checking for a sed that does not truncate output... " >&6; }
if ${ac_cv_path_SED+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/
for ac_i in 1 2 3 4 5 6 7; do
ac_script="$ac_script$as_nl$ac_script"
done
echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed
{ ac_script=; unset ac_script;}
if test -z "$SED"; then
ac_path_SED_found=false
# Loop through the user's path and test for each of PROGNAME-LIST
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_prog in sed gsed; do
for ac_exec_ext in '' $ac_executable_extensions; do
ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_SED" && $as_test_x "$ac_path_SED"; } || continue
+ as_fn_executable_p "$ac_path_SED" || continue
# Check for GNU ac_path_SED and select it if it is found.
# Check for GNU $ac_path_SED
case `"$ac_path_SED" --version 2>&1` in
*GNU*)
ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
*)
ac_count=0
$as_echo_n 0123456789 >"conftest.in"
while :
do
cat "conftest.in" "conftest.in" >"conftest.tmp"
mv "conftest.tmp" "conftest.in"
cp "conftest.in" "conftest.nl"
$as_echo '' >> "conftest.nl"
"$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break
diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
as_fn_arith $ac_count + 1 && ac_count=$as_val
if test $ac_count -gt ${ac_path_SED_max-0}; then
# Best one so far, save it but keep looking for a better one
ac_cv_path_SED="$ac_path_SED"
ac_path_SED_max=$ac_count
fi
# 10*(2^10) chars as input seems more than enough
test $ac_count -gt 10 && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
esac
$ac_path_SED_found && break 3
done
done
done
IFS=$as_save_IFS
if test -z "$ac_cv_path_SED"; then
as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5
fi
else
ac_cv_path_SED=$SED
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5
$as_echo "$ac_cv_path_SED" >&6; }
SED="$ac_cv_path_SED"
rm -f conftest.sed
test -z "$SED" && SED=sed
Xsed="$SED -e 1s/^X//"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
if ${ac_cv_path_GREP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -z "$GREP"; then
ac_path_GREP_found=false
# Loop through the user's path and test for each of PROGNAME-LIST
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_prog in grep ggrep; do
for ac_exec_ext in '' $ac_executable_extensions; do
ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue
+ as_fn_executable_p "$ac_path_GREP" || continue
# Check for GNU ac_path_GREP and select it if it is found.
# Check for GNU $ac_path_GREP
case `"$ac_path_GREP" --version 2>&1` in
*GNU*)
ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
*)
ac_count=0
$as_echo_n 0123456789 >"conftest.in"
while :
do
cat "conftest.in" "conftest.in" >"conftest.tmp"
mv "conftest.tmp" "conftest.in"
cp "conftest.in" "conftest.nl"
$as_echo 'GREP' >> "conftest.nl"
"$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
as_fn_arith $ac_count + 1 && ac_count=$as_val
if test $ac_count -gt ${ac_path_GREP_max-0}; then
# Best one so far, save it but keep looking for a better one
ac_cv_path_GREP="$ac_path_GREP"
ac_path_GREP_max=$ac_count
fi
# 10*(2^10) chars as input seems more than enough
test $ac_count -gt 10 && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
esac
$ac_path_GREP_found && break 3
done
done
done
IFS=$as_save_IFS
if test -z "$ac_cv_path_GREP"; then
as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
fi
else
ac_cv_path_GREP=$GREP
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
$as_echo "$ac_cv_path_GREP" >&6; }
GREP="$ac_cv_path_GREP"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
$as_echo_n "checking for egrep... " >&6; }
if ${ac_cv_path_EGREP+:} false; then :
$as_echo_n "(cached) " >&6
else
if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
then ac_cv_path_EGREP="$GREP -E"
else
if test -z "$EGREP"; then
ac_path_EGREP_found=false
# Loop through the user's path and test for each of PROGNAME-LIST
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_prog in egrep; do
for ac_exec_ext in '' $ac_executable_extensions; do
ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue
+ as_fn_executable_p "$ac_path_EGREP" || continue
# Check for GNU ac_path_EGREP and select it if it is found.
# Check for GNU $ac_path_EGREP
case `"$ac_path_EGREP" --version 2>&1` in
*GNU*)
ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
*)
ac_count=0
$as_echo_n 0123456789 >"conftest.in"
while :
do
cat "conftest.in" "conftest.in" >"conftest.tmp"
mv "conftest.tmp" "conftest.in"
cp "conftest.in" "conftest.nl"
$as_echo 'EGREP' >> "conftest.nl"
"$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
as_fn_arith $ac_count + 1 && ac_count=$as_val
if test $ac_count -gt ${ac_path_EGREP_max-0}; then
# Best one so far, save it but keep looking for a better one
ac_cv_path_EGREP="$ac_path_EGREP"
ac_path_EGREP_max=$ac_count
fi
# 10*(2^10) chars as input seems more than enough
test $ac_count -gt 10 && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
esac
$ac_path_EGREP_found && break 3
done
done
done
IFS=$as_save_IFS
if test -z "$ac_cv_path_EGREP"; then
as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
fi
else
ac_cv_path_EGREP=$EGREP
fi
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
$as_echo "$ac_cv_path_EGREP" >&6; }
EGREP="$ac_cv_path_EGREP"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5
$as_echo_n "checking for fgrep... " >&6; }
if ${ac_cv_path_FGREP+:} false; then :
$as_echo_n "(cached) " >&6
else
if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1
then ac_cv_path_FGREP="$GREP -F"
else
if test -z "$FGREP"; then
ac_path_FGREP_found=false
# Loop through the user's path and test for each of PROGNAME-LIST
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_prog in fgrep; do
for ac_exec_ext in '' $ac_executable_extensions; do
ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_FGREP" && $as_test_x "$ac_path_FGREP"; } || continue
+ as_fn_executable_p "$ac_path_FGREP" || continue
# Check for GNU ac_path_FGREP and select it if it is found.
# Check for GNU $ac_path_FGREP
case `"$ac_path_FGREP" --version 2>&1` in
*GNU*)
ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
*)
ac_count=0
$as_echo_n 0123456789 >"conftest.in"
while :
do
cat "conftest.in" "conftest.in" >"conftest.tmp"
mv "conftest.tmp" "conftest.in"
cp "conftest.in" "conftest.nl"
$as_echo 'FGREP' >> "conftest.nl"
"$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break
diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
as_fn_arith $ac_count + 1 && ac_count=$as_val
if test $ac_count -gt ${ac_path_FGREP_max-0}; then
# Best one so far, save it but keep looking for a better one
ac_cv_path_FGREP="$ac_path_FGREP"
ac_path_FGREP_max=$ac_count
fi
# 10*(2^10) chars as input seems more than enough
test $ac_count -gt 10 && break
done
rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
esac
$ac_path_FGREP_found && break 3
done
done
done
IFS=$as_save_IFS
if test -z "$ac_cv_path_FGREP"; then
as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
fi
else
ac_cv_path_FGREP=$FGREP
fi
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5
$as_echo "$ac_cv_path_FGREP" >&6; }
FGREP="$ac_cv_path_FGREP"
test -z "$GREP" && GREP=grep
# Check whether --with-gnu-ld was given.
if test "${with_gnu_ld+set}" = set; then :
withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes
else
with_gnu_ld=no
fi
ac_prog=ld
if test "$GCC" = yes; then
# Check if gcc -print-prog-name=ld gives a path.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
$as_echo_n "checking for ld used by $CC... " >&6; }
case $host in
*-*-mingw*)
# gcc leaves a trailing carriage return which upsets mingw
ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
*)
ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
esac
case $ac_prog in
# Accept absolute paths.
[\\/]* | ?:[\\/]*)
re_direlt='/[^/][^/]*/\.\./'
# Canonicalize the pathname of ld
ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
done
test -z "$LD" && LD="$ac_prog"
;;
"")
# If it fails, then pretend we aren't using GCC.
ac_prog=ld
;;
*)
# If it is relative, then search for the first ld in PATH.
with_gnu_ld=unknown
;;
esac
elif test "$with_gnu_ld" = yes; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
$as_echo_n "checking for GNU ld... " >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
$as_echo_n "checking for non-GNU ld... " >&6; }
fi
if ${lt_cv_path_LD+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -z "$LD"; then
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
for ac_dir in $PATH; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
lt_cv_path_LD="$ac_dir/$ac_prog"
# Check to see if the program is GNU ld. I'd rather use --version,
# but apparently some variants of GNU ld only accept -v.
# Break only if it was the GNU/non-GNU ld that we prefer.
case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
*GNU* | *'with BFD'*)
test "$with_gnu_ld" != no && break
;;
*)
test "$with_gnu_ld" != yes && break
;;
esac
fi
done
IFS="$lt_save_ifs"
else
lt_cv_path_LD="$LD" # Let the user override the test with a path.
fi
fi
LD="$lt_cv_path_LD"
if test -n "$LD"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
$as_echo "$LD" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
if ${lt_cv_prog_gnu_ld+:} false; then :
$as_echo_n "(cached) " >&6
else
# I'd rather use --version here, but apparently some GNU lds only accept -v.
case `$LD -v 2>&1 </dev/null` in
*GNU* | *'with BFD'*)
lt_cv_prog_gnu_ld=yes
;;
*)
lt_cv_prog_gnu_ld=no
;;
esac
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
$as_echo "$lt_cv_prog_gnu_ld" >&6; }
with_gnu_ld=$lt_cv_prog_gnu_ld
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5
$as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; }
if ${lt_cv_path_NM+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$NM"; then
# Let the user override the test.
lt_cv_path_NM="$NM"
else
lt_nm_to_check="${ac_tool_prefix}nm"
if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
lt_nm_to_check="$lt_nm_to_check nm"
fi
for lt_tmp_nm in $lt_nm_to_check; do
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
tmp_nm="$ac_dir/$lt_tmp_nm"
if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then
# Check to see if the nm accepts a BSD-compat flag.
# Adding the `sed 1q' prevents false positives on HP-UX, which says:
# nm: unknown option "B" ignored
# Tru64's nm complains that /dev/null is an invalid object file
case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in
*/dev/null* | *'Invalid file or object type'*)
lt_cv_path_NM="$tmp_nm -B"
break
;;
*)
case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
*/dev/null*)
lt_cv_path_NM="$tmp_nm -p"
break
;;
*)
lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
continue # so that we can try to find one that supports BSD flags
;;
esac
;;
esac
fi
done
IFS="$lt_save_ifs"
done
: ${lt_cv_path_NM=no}
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5
$as_echo "$lt_cv_path_NM" >&6; }
if test "$lt_cv_path_NM" != "no"; then
NM="$lt_cv_path_NM"
else
# Didn't find any BSD compatible name lister, look for dumpbin.
if test -n "$DUMPBIN"; then :
# Let the user override the test.
else
if test -n "$ac_tool_prefix"; then
for ac_prog in dumpbin "link -dump"
do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_DUMPBIN+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$DUMPBIN"; then
ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
DUMPBIN=$ac_cv_prog_DUMPBIN
if test -n "$DUMPBIN"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5
$as_echo "$DUMPBIN" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$DUMPBIN" && break
done
fi
if test -z "$DUMPBIN"; then
ac_ct_DUMPBIN=$DUMPBIN
for ac_prog in dumpbin "link -dump"
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_DUMPBIN"; then
ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_DUMPBIN="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN
if test -n "$ac_ct_DUMPBIN"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5
$as_echo "$ac_ct_DUMPBIN" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$ac_ct_DUMPBIN" && break
done
if test "x$ac_ct_DUMPBIN" = x; then
DUMPBIN=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
DUMPBIN=$ac_ct_DUMPBIN
fi
fi
case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in
*COFF*)
DUMPBIN="$DUMPBIN -symbols"
;;
*)
DUMPBIN=:
;;
esac
fi
if test "$DUMPBIN" != ":"; then
NM="$DUMPBIN"
fi
fi
test -z "$NM" && NM=nm
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5
$as_echo_n "checking the name lister ($NM) interface... " >&6; }
if ${lt_cv_nm_interface+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_nm_interface="BSD nm"
echo "int some_variable = 0;" > conftest.$ac_ext
(eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5)
(eval "$ac_compile" 2>conftest.err)
cat conftest.err >&5
(eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
(eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
cat conftest.err >&5
(eval echo "\"\$as_me:$LINENO: output\"" >&5)
cat conftest.out >&5
if $GREP 'External.*some_variable' conftest.out > /dev/null; then
lt_cv_nm_interface="MS dumpbin"
fi
rm -f conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5
$as_echo "$lt_cv_nm_interface" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
$as_echo_n "checking whether ln -s works... " >&6; }
LN_S=$as_ln_s
if test "$LN_S" = "ln -s"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
$as_echo "no, using $LN_S" >&6; }
fi
# find the maximum length of command line arguments
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5
$as_echo_n "checking the maximum length of command line arguments... " >&6; }
if ${lt_cv_sys_max_cmd_len+:} false; then :
$as_echo_n "(cached) " >&6
else
i=0
teststring="ABCD"
case $build_os in
msdosdjgpp*)
# On DJGPP, this test can blow up pretty badly due to problems in libc
# (any single argument exceeding 2000 bytes causes a buffer overrun
# during glob expansion). Even if it were fixed, the result of this
# check would be larger than it should be.
lt_cv_sys_max_cmd_len=12288; # 12K is about right
;;
gnu*)
# Under GNU Hurd, this test is not required because there is
# no limit to the length of command line arguments.
# Libtool will interpret -1 as no limit whatsoever
lt_cv_sys_max_cmd_len=-1;
;;
cygwin* | mingw* | cegcc*)
# On Win9x/ME, this test blows up -- it succeeds, but takes
# about 5 minutes as the teststring grows exponentially.
# Worse, since 9x/ME are not pre-emptively multitasking,
# you end up with a "frozen" computer, even though with patience
# the test eventually succeeds (with a max line length of 256k).
# Instead, let's just punt: use the minimum linelength reported by
# all of the supported platforms: 8192 (on NT/2K/XP).
lt_cv_sys_max_cmd_len=8192;
;;
mint*)
# On MiNT this can take a long time and run out of memory.
lt_cv_sys_max_cmd_len=8192;
;;
amigaos*)
# On AmigaOS with pdksh, this test takes hours, literally.
# So we just punt and use a minimum line length of 8192.
lt_cv_sys_max_cmd_len=8192;
;;
netbsd* | freebsd* | openbsd* | darwin* | dragonfly*)
# This has been around since 386BSD, at least. Likely further.
if test -x /sbin/sysctl; then
lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
elif test -x /usr/sbin/sysctl; then
lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
else
lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
fi
# And add a safety zone
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
;;
interix*)
# We know the value 262144 and hardcode it with a safety zone (like BSD)
lt_cv_sys_max_cmd_len=196608
;;
+ os2*)
+ # The test takes a long time on OS/2.
+ lt_cv_sys_max_cmd_len=8192
+ ;;
+
osf*)
# Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
# due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
# nice to cause kernel panics so lets avoid the loop below.
# First set a reasonable default.
lt_cv_sys_max_cmd_len=16384
#
if test -x /sbin/sysconfig; then
case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
*1*) lt_cv_sys_max_cmd_len=-1 ;;
esac
fi
;;
sco3.2v5*)
lt_cv_sys_max_cmd_len=102400
;;
sysv5* | sco5v6* | sysv4.2uw2*)
kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
if test -n "$kargmax"; then
lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'`
else
lt_cv_sys_max_cmd_len=32768
fi
;;
*)
lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
if test -n "$lt_cv_sys_max_cmd_len"; then
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
else
# Make teststring a little bigger before we do anything with it.
# a 1K string should be a reasonable start.
for i in 1 2 3 4 5 6 7 8 ; do
teststring=$teststring$teststring
done
SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
# If test is not a shell built-in, we'll probably end up computing a
# maximum length that is only half of the actual maximum length, but
# we can't tell.
- while { test "X"`func_fallback_echo "$teststring$teststring" 2>/dev/null` \
+ while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \
= "X$teststring$teststring"; } >/dev/null 2>&1 &&
test $i != 17 # 1/2 MB should be enough
do
i=`expr $i + 1`
teststring=$teststring$teststring
done
# Only check the string length outside the loop.
lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
teststring=
# Add a significant safety factor because C++ compilers can tack on
# massive amounts of additional arguments before passing them to the
# linker. It appears as though 1/2 is a usable value.
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
fi
;;
esac
fi
if test -n $lt_cv_sys_max_cmd_len ; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5
$as_echo "$lt_cv_sys_max_cmd_len" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5
$as_echo "none" >&6; }
fi
max_cmd_len=$lt_cv_sys_max_cmd_len
: ${CP="cp -f"}
: ${MV="mv -f"}
: ${RM="rm -f"}
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5
$as_echo_n "checking whether the shell understands some XSI constructs... " >&6; }
# Try some XSI features
xsi_shell=no
( _lt_dummy="a/b/c"
test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \
= c,a/b,b/c, \
&& eval 'test $(( 1 + 1 )) -eq 2 \
&& test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \
&& xsi_shell=yes
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5
$as_echo "$xsi_shell" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5
$as_echo_n "checking whether the shell understands \"+=\"... " >&6; }
lt_shell_append=no
( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \
>/dev/null 2>&1 \
&& lt_shell_append=yes
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5
$as_echo "$lt_shell_append" >&6; }
if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
lt_unset=unset
else
lt_unset=false
fi
# test EBCDIC or ASCII
case `echo X|tr X '\101'` in
A) # ASCII based system
# \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
lt_SP2NL='tr \040 \012'
lt_NL2SP='tr \015\012 \040\040'
;;
*) # EBCDIC based system
lt_SP2NL='tr \100 \n'
lt_NL2SP='tr \r\n \100\100'
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5
$as_echo_n "checking how to convert $build file names to $host format... " >&6; }
if ${lt_cv_to_host_file_cmd+:} false; then :
$as_echo_n "(cached) " >&6
else
case $host in
*-*-mingw* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32
;;
*-*-cygwin* )
lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32
;;
* ) # otherwise, assume *nix
lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32
;;
esac
;;
*-*-cygwin* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin
;;
*-*-cygwin* )
lt_cv_to_host_file_cmd=func_convert_file_noop
;;
* ) # otherwise, assume *nix
lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin
;;
esac
;;
* ) # unhandled hosts (and "normal" native builds)
lt_cv_to_host_file_cmd=func_convert_file_noop
;;
esac
fi
to_host_file_cmd=$lt_cv_to_host_file_cmd
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5
$as_echo "$lt_cv_to_host_file_cmd" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5
$as_echo_n "checking how to convert $build file names to toolchain format... " >&6; }
if ${lt_cv_to_tool_file_cmd+:} false; then :
$as_echo_n "(cached) " >&6
else
#assume ordinary cross tools, or native build.
lt_cv_to_tool_file_cmd=func_convert_file_noop
case $host in
*-*-mingw* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32
;;
esac
;;
esac
fi
to_tool_file_cmd=$lt_cv_to_tool_file_cmd
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5
$as_echo "$lt_cv_to_tool_file_cmd" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5
$as_echo_n "checking for $LD option to reload object files... " >&6; }
if ${lt_cv_ld_reload_flag+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_ld_reload_flag='-r'
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5
$as_echo "$lt_cv_ld_reload_flag" >&6; }
reload_flag=$lt_cv_ld_reload_flag
case $reload_flag in
"" | " "*) ;;
*) reload_flag=" $reload_flag" ;;
esac
reload_cmds='$LD$reload_flag -o $output$reload_objs'
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
if test "$GCC" != yes; then
reload_cmds=false
fi
;;
darwin*)
if test "$GCC" = yes; then
reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs'
else
reload_cmds='$LD$reload_flag -o $output$reload_objs'
fi
;;
esac
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args.
set dummy ${ac_tool_prefix}objdump; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_OBJDUMP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$OBJDUMP"; then
ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
OBJDUMP=$ac_cv_prog_OBJDUMP
if test -n "$OBJDUMP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5
$as_echo "$OBJDUMP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_OBJDUMP"; then
ac_ct_OBJDUMP=$OBJDUMP
# Extract the first word of "objdump", so it can be a program name with args.
set dummy objdump; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_OBJDUMP"; then
ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_OBJDUMP="objdump"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP
if test -n "$ac_ct_OBJDUMP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5
$as_echo "$ac_ct_OBJDUMP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_OBJDUMP" = x; then
OBJDUMP="false"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
OBJDUMP=$ac_ct_OBJDUMP
fi
else
OBJDUMP="$ac_cv_prog_OBJDUMP"
fi
test -z "$OBJDUMP" && OBJDUMP=objdump
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5
$as_echo_n "checking how to recognize dependent libraries... " >&6; }
if ${lt_cv_deplibs_check_method+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_file_magic_cmd='$MAGIC_CMD'
lt_cv_file_magic_test_file=
lt_cv_deplibs_check_method='unknown'
# Need to set the preceding variable on all platforms that support
# interlibrary dependencies.
# 'none' -- dependencies not supported.
# `unknown' -- same as none, but documents that we really don't know.
# 'pass_all' -- all dependencies passed with no checks.
# 'test_compile' -- check by making test program.
# 'file_magic [[regex]]' -- check by looking for files in library path
# which responds to the $file_magic_cmd with a given extended regex.
# If you have `file' or equivalent on your system and you're not sure
# whether `pass_all' will *always* work, you probably want this one.
case $host_os in
aix[4-9]*)
lt_cv_deplibs_check_method=pass_all
;;
beos*)
lt_cv_deplibs_check_method=pass_all
;;
bsdi[45]*)
lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)'
lt_cv_file_magic_cmd='/usr/bin/file -L'
lt_cv_file_magic_test_file=/shlib/libc.so
;;
cygwin*)
# func_win32_libid is a shell function defined in ltmain.sh
lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
lt_cv_file_magic_cmd='func_win32_libid'
;;
mingw* | pw32*)
# Base MSYS/MinGW do not provide the 'file' command needed by
# func_win32_libid shell function, so use a weaker test based on 'objdump',
# unless we find 'file', for example because we are cross-compiling.
# func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin.
if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then
lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
lt_cv_file_magic_cmd='func_win32_libid'
else
# Keep this pattern in sync with the one in func_win32_libid.
lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)'
lt_cv_file_magic_cmd='$OBJDUMP -f'
fi
;;
cegcc*)
# use the weaker test based on 'objdump'. See mingw*.
lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
lt_cv_file_magic_cmd='$OBJDUMP -f'
;;
darwin* | rhapsody*)
lt_cv_deplibs_check_method=pass_all
;;
freebsd* | dragonfly*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
case $host_cpu in
i*86 )
# Not sure whether the presence of OpenBSD here was a mistake.
# Let's accept both of them until this is cleared up.
lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library'
lt_cv_file_magic_cmd=/usr/bin/file
lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
;;
esac
else
lt_cv_deplibs_check_method=pass_all
fi
;;
gnu*)
lt_cv_deplibs_check_method=pass_all
;;
haiku*)
lt_cv_deplibs_check_method=pass_all
;;
hpux10.20* | hpux11*)
lt_cv_file_magic_cmd=/usr/bin/file
case $host_cpu in
ia64*)
lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64'
lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
;;
hppa*64*)
lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'
lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
;;
*)
lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library'
lt_cv_file_magic_test_file=/usr/lib/libc.sl
;;
esac
;;
interix[3-9]*)
# PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$'
;;
irix5* | irix6* | nonstopux*)
case $LD in
*-32|*"-32 ") libmagic=32-bit;;
*-n32|*"-n32 ") libmagic=N32;;
*-64|*"-64 ") libmagic=64-bit;;
*) libmagic=never-match;;
esac
lt_cv_deplibs_check_method=pass_all
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
lt_cv_deplibs_check_method=pass_all
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
else
lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$'
fi
;;
newos6*)
lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)'
lt_cv_file_magic_cmd=/usr/bin/file
lt_cv_file_magic_test_file=/usr/lib/libnls.so
;;
*nto* | *qnx*)
lt_cv_deplibs_check_method=pass_all
;;
openbsd*)
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$'
else
lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
fi
;;
osf3* | osf4* | osf5*)
lt_cv_deplibs_check_method=pass_all
;;
rdos*)
lt_cv_deplibs_check_method=pass_all
;;
solaris*)
lt_cv_deplibs_check_method=pass_all
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
lt_cv_deplibs_check_method=pass_all
;;
sysv4 | sysv4.3*)
case $host_vendor in
motorola)
lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]'
lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
;;
ncr)
lt_cv_deplibs_check_method=pass_all
;;
sequent)
lt_cv_file_magic_cmd='/bin/file'
lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )'
;;
sni)
lt_cv_file_magic_cmd='/bin/file'
lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib"
lt_cv_file_magic_test_file=/lib/libc.so
;;
siemens)
lt_cv_deplibs_check_method=pass_all
;;
pc)
lt_cv_deplibs_check_method=pass_all
;;
esac
;;
tpf*)
lt_cv_deplibs_check_method=pass_all
;;
esac
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5
$as_echo "$lt_cv_deplibs_check_method" >&6; }
file_magic_glob=
want_nocaseglob=no
if test "$build" = "$host"; then
case $host_os in
mingw* | pw32*)
if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then
want_nocaseglob=yes
else
file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"`
fi
;;
esac
fi
file_magic_cmd=$lt_cv_file_magic_cmd
deplibs_check_method=$lt_cv_deplibs_check_method
test -z "$deplibs_check_method" && deplibs_check_method=unknown
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args.
set dummy ${ac_tool_prefix}dlltool; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_DLLTOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$DLLTOOL"; then
ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
DLLTOOL=$ac_cv_prog_DLLTOOL
if test -n "$DLLTOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5
$as_echo "$DLLTOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_DLLTOOL"; then
ac_ct_DLLTOOL=$DLLTOOL
# Extract the first word of "dlltool", so it can be a program name with args.
set dummy dlltool; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_DLLTOOL"; then
ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_DLLTOOL="dlltool"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL
if test -n "$ac_ct_DLLTOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5
$as_echo "$ac_ct_DLLTOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_DLLTOOL" = x; then
DLLTOOL="false"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
DLLTOOL=$ac_ct_DLLTOOL
fi
else
DLLTOOL="$ac_cv_prog_DLLTOOL"
fi
test -z "$DLLTOOL" && DLLTOOL=dlltool
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5
$as_echo_n "checking how to associate runtime and link libraries... " >&6; }
if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_sharedlib_from_linklib_cmd='unknown'
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# two different shell functions defined in ltmain.sh
# decide which to use based on capabilities of $DLLTOOL
case `$DLLTOOL --help 2>&1` in
*--identify-strict*)
lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib
;;
*)
lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback
;;
esac
;;
*)
# fallback: assume linklib IS sharedlib
lt_cv_sharedlib_from_linklib_cmd="$ECHO"
;;
esac
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5
$as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; }
sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd
test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO
if test -n "$ac_tool_prefix"; then
for ac_prog in ar
do
# Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
set dummy $ac_tool_prefix$ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_AR+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$AR"; then
ac_cv_prog_AR="$AR" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_AR="$ac_tool_prefix$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
AR=$ac_cv_prog_AR
if test -n "$AR"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
$as_echo "$AR" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$AR" && break
done
fi
if test -z "$AR"; then
ac_ct_AR=$AR
for ac_prog in ar
do
# Extract the first word of "$ac_prog", so it can be a program name with args.
set dummy $ac_prog; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_AR+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_AR"; then
ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_AR="$ac_prog"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_AR=$ac_cv_prog_ac_ct_AR
if test -n "$ac_ct_AR"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
$as_echo "$ac_ct_AR" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
test -n "$ac_ct_AR" && break
done
if test "x$ac_ct_AR" = x; then
AR="false"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
AR=$ac_ct_AR
fi
fi
: ${AR=ar}
: ${AR_FLAGS=cru}
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5
$as_echo_n "checking for archiver @FILE support... " >&6; }
if ${lt_cv_ar_at_file+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_ar_at_file=no
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
echo conftest.$ac_objext > conftest.lst
lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5'
{ { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
(eval $lt_ar_try) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
if test "$ac_status" -eq 0; then
# Ensure the archiver fails upon bogus file names.
rm -f conftest.$ac_objext libconftest.a
{ { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5
(eval $lt_ar_try) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
if test "$ac_status" -ne 0; then
lt_cv_ar_at_file=@
fi
fi
rm -f conftest.* libconftest.a
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5
$as_echo "$lt_cv_ar_at_file" >&6; }
if test "x$lt_cv_ar_at_file" = xno; then
archiver_list_spec=
else
archiver_list_spec=$lt_cv_ar_at_file
fi
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
set dummy ${ac_tool_prefix}strip; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_STRIP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$STRIP"; then
ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_STRIP="${ac_tool_prefix}strip"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
STRIP=$ac_cv_prog_STRIP
if test -n "$STRIP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
$as_echo "$STRIP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_STRIP"; then
ac_ct_STRIP=$STRIP
# Extract the first word of "strip", so it can be a program name with args.
set dummy strip; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_STRIP"; then
ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_STRIP="strip"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
if test -n "$ac_ct_STRIP"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
$as_echo "$ac_ct_STRIP" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_STRIP" = x; then
STRIP=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
STRIP=$ac_ct_STRIP
fi
else
STRIP="$ac_cv_prog_STRIP"
fi
test -z "$STRIP" && STRIP=:
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
set dummy ${ac_tool_prefix}ranlib; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_RANLIB+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$RANLIB"; then
ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
RANLIB=$ac_cv_prog_RANLIB
if test -n "$RANLIB"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
$as_echo "$RANLIB" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_RANLIB"; then
ac_ct_RANLIB=$RANLIB
# Extract the first word of "ranlib", so it can be a program name with args.
set dummy ranlib; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_RANLIB"; then
ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_RANLIB="ranlib"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
if test -n "$ac_ct_RANLIB"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
$as_echo "$ac_ct_RANLIB" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_RANLIB" = x; then
RANLIB=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
RANLIB=$ac_ct_RANLIB
fi
else
RANLIB="$ac_cv_prog_RANLIB"
fi
test -z "$RANLIB" && RANLIB=:
# Determine commands to create old-style static archives.
old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
old_postinstall_cmds='chmod 644 $oldlib'
old_postuninstall_cmds=
if test -n "$RANLIB"; then
case $host_os in
openbsd*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$oldlib"
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib"
;;
*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib"
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib"
;;
esac
- old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib"
+ old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib"
fi
case $host_os in
darwin*)
lock_old_archive_extraction=yes ;;
*)
lock_old_archive_extraction=no ;;
esac
# If no C compiler was specified, use CC.
LTCC=${LTCC-"$CC"}
# If no C compiler flags were specified, use CFLAGS.
LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
# Allow CC to be a program name with arguments.
compiler=$CC
# Check for command to grab the raw symbol name followed by C symbol from nm.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5
$as_echo_n "checking command to parse $NM output from $compiler object... " >&6; }
if ${lt_cv_sys_global_symbol_pipe+:} false; then :
$as_echo_n "(cached) " >&6
else
# These are sane defaults that work on at least a few old systems.
# [They come from Ultrix. What could be older than Ultrix?!! ;)]
# Character class describing NM global symbol codes.
symcode='[BCDEGRST]'
# Regexp to match symbols that can be accessed directly from C.
sympat='\([_A-Za-z][_A-Za-z0-9]*\)'
# Define system-specific variables.
case $host_os in
aix*)
symcode='[BCDT]'
;;
cygwin* | mingw* | pw32* | cegcc*)
symcode='[ABCDGISTW]'
;;
hpux*)
if test "$host_cpu" = ia64; then
symcode='[ABCDEGRST]'
fi
;;
irix* | nonstopux*)
symcode='[BCDEGRST]'
;;
osf*)
symcode='[BCDEGQRST]'
;;
solaris*)
symcode='[BDRT]'
;;
sco3.2v5*)
symcode='[DT]'
;;
sysv4.2uw2*)
symcode='[DT]'
;;
sysv5* | sco5v6* | unixware* | OpenUNIX*)
symcode='[ABDT]'
;;
sysv4)
symcode='[DFNSTU]'
;;
esac
# If we're using GNU nm, then use its standard symbol codes.
case `$NM -V 2>&1` in
*GNU* | *'with BFD'*)
symcode='[ABCDGIRSTW]' ;;
esac
# Transform an extracted symbol line into a proper C declaration.
# Some systems (esp. on ia64) link data and code symbols differently,
# so use this general approach.
lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'"
# Transform an extracted symbol line into symbol name and symbol address
lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'"
lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'"
# Handle CRLF in mingw tool chain
opt_cr=
case $build_os in
mingw*)
opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
;;
esac
# Try without a prefix underscore, then with it.
for ac_symprfx in "" "_"; do
# Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
symxfrm="\\1 $ac_symprfx\\2 \\2"
# Write the raw and C identifiers.
if test "$lt_cv_nm_interface" = "MS dumpbin"; then
# Fake it for dumpbin and say T for any non-static function
# and D for any global variable.
# Also find C++ and __fastcall symbols from MSVC++,
# which start with @ or ?.
lt_cv_sys_global_symbol_pipe="$AWK '"\
" {last_section=section; section=\$ 3};"\
+" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\
" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
" \$ 0!~/External *\|/{next};"\
" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
" {if(hide[section]) next};"\
" {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\
" {split(\$ 0, a, /\||\r/); split(a[2], s)};"\
" s[1]~/^[@?]/{print s[1], s[1]; next};"\
" s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\
" ' prfx=^$ac_symprfx"
else
lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
fi
lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'"
# Check to see that the pipe works correctly.
pipe_works=no
rm -f conftest*
cat > conftest.$ac_ext <<_LT_EOF
#ifdef __cplusplus
extern "C" {
#endif
char nm_test_var;
void nm_test_func(void);
void nm_test_func(void){}
#ifdef __cplusplus
}
#endif
int main(){nm_test_var='a';nm_test_func();return(0);}
_LT_EOF
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
# Now try to grab the symbols.
nlist=conftest.nm
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5
(eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && test -s "$nlist"; then
# Try sorting and uniquifying the output.
if sort "$nlist" | uniq > "$nlist"T; then
mv -f "$nlist"T "$nlist"
else
rm -f "$nlist"T
fi
# Make sure that we snagged all the symbols we need.
if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
cat <<_LT_EOF > conftest.$ac_ext
/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
#if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE)
/* DATA imports from DLLs on WIN32 con't be const, because runtime
relocations are performed -- see ld's documentation on pseudo-relocs. */
# define LT_DLSYM_CONST
#elif defined(__osf__)
/* This system does not cope well with relocations in const data. */
# define LT_DLSYM_CONST
#else
# define LT_DLSYM_CONST const
#endif
#ifdef __cplusplus
extern "C" {
#endif
_LT_EOF
# Now generate the symbol file.
eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
cat <<_LT_EOF >> conftest.$ac_ext
/* The mapping between symbol names and symbols. */
LT_DLSYM_CONST struct {
const char *name;
void *address;
}
lt__PROGRAM__LTX_preloaded_symbols[] =
{
{ "@PROGRAM@", (void *) 0 },
_LT_EOF
$SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
cat <<\_LT_EOF >> conftest.$ac_ext
{0, (void *) 0}
};
/* This works around a problem in FreeBSD linker */
#ifdef FREEBSD_WORKAROUND
static const void *lt_preloaded_setup() {
return lt__PROGRAM__LTX_preloaded_symbols;
}
#endif
#ifdef __cplusplus
}
#endif
_LT_EOF
# Now try linking the two files.
mv conftest.$ac_objext conftstm.$ac_objext
lt_globsym_save_LIBS=$LIBS
lt_globsym_save_CFLAGS=$CFLAGS
LIBS="conftstm.$ac_objext"
CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag"
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
(eval $ac_link) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && test -s conftest${ac_exeext}; then
pipe_works=yes
fi
LIBS=$lt_globsym_save_LIBS
CFLAGS=$lt_globsym_save_CFLAGS
else
echo "cannot find nm_test_func in $nlist" >&5
fi
else
echo "cannot find nm_test_var in $nlist" >&5
fi
else
echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5
fi
else
echo "$progname: failed program was:" >&5
cat conftest.$ac_ext >&5
fi
rm -rf conftest* conftst*
# Do not use the global_symbol_pipe unless it works.
if test "$pipe_works" = yes; then
break
else
lt_cv_sys_global_symbol_pipe=
fi
done
fi
if test -z "$lt_cv_sys_global_symbol_pipe"; then
lt_cv_sys_global_symbol_to_cdecl=
fi
if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5
$as_echo "failed" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5
$as_echo "ok" >&6; }
fi
# Response file support.
if test "$lt_cv_nm_interface" = "MS dumpbin"; then
nm_file_list_spec='@'
elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then
nm_file_list_spec='@'
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5
$as_echo_n "checking for sysroot... " >&6; }
# Check whether --with-sysroot was given.
if test "${with_sysroot+set}" = set; then :
withval=$with_sysroot;
else
with_sysroot=no
fi
lt_sysroot=
case ${with_sysroot} in #(
yes)
if test "$GCC" = yes; then
lt_sysroot=`$CC --print-sysroot 2>/dev/null`
fi
;; #(
/*)
lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
;; #(
no|'')
;; #(
*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${with_sysroot}" >&5
$as_echo "${with_sysroot}" >&6; }
as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5
$as_echo "${lt_sysroot:-no}" >&6; }
# Check whether --enable-libtool-lock was given.
if test "${enable_libtool_lock+set}" = set; then :
enableval=$enable_libtool_lock;
fi
test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes
# Some flags need to be propagated to the compiler or linker for good
# libtool support.
case $host in
ia64-*-hpux*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
case `/usr/bin/file conftest.$ac_objext` in
*ELF-32*)
HPUX_IA64_MODE="32"
;;
*ELF-64*)
HPUX_IA64_MODE="64"
;;
esac
fi
rm -rf conftest*
;;
*-*-irix6*)
# Find out which ABI we are using.
echo '#line '$LINENO' "configure"' > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
if test "$lt_cv_prog_gnu_ld" = yes; then
case `/usr/bin/file conftest.$ac_objext` in
*32-bit*)
LD="${LD-ld} -melf32bsmip"
;;
*N32*)
LD="${LD-ld} -melf32bmipn32"
;;
*64-bit*)
LD="${LD-ld} -melf64bmip"
;;
esac
else
case `/usr/bin/file conftest.$ac_objext` in
*32-bit*)
LD="${LD-ld} -32"
;;
*N32*)
LD="${LD-ld} -n32"
;;
*64-bit*)
LD="${LD-ld} -64"
;;
esac
fi
fi
rm -rf conftest*
;;
x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \
s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
case `/usr/bin/file conftest.o` in
*32-bit*)
case $host in
x86_64-*kfreebsd*-gnu)
LD="${LD-ld} -m elf_i386_fbsd"
;;
x86_64-*linux*)
LD="${LD-ld} -m elf_i386"
;;
ppc64-*linux*|powerpc64-*linux*)
LD="${LD-ld} -m elf32ppclinux"
;;
s390x-*linux*)
LD="${LD-ld} -m elf_s390"
;;
sparc64-*linux*)
LD="${LD-ld} -m elf32_sparc"
;;
esac
;;
*64-bit*)
case $host in
x86_64-*kfreebsd*-gnu)
LD="${LD-ld} -m elf_x86_64_fbsd"
;;
x86_64-*linux*)
LD="${LD-ld} -m elf_x86_64"
;;
ppc*-*linux*|powerpc*-*linux*)
LD="${LD-ld} -m elf64ppc"
;;
s390*-*linux*|s390*-*tpf*)
LD="${LD-ld} -m elf64_s390"
;;
sparc*-*linux*)
LD="${LD-ld} -m elf64_sparc"
;;
esac
;;
esac
fi
rm -rf conftest*
;;
*-*-sco3.2v5*)
# On SCO OpenServer 5, we need -belf to get full-featured binaries.
SAVE_CFLAGS="$CFLAGS"
CFLAGS="$CFLAGS -belf"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5
$as_echo_n "checking whether the C compiler needs -belf... " >&6; }
if ${lt_cv_cc_needs_belf+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
lt_cv_cc_needs_belf=yes
else
lt_cv_cc_needs_belf=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5
$as_echo "$lt_cv_cc_needs_belf" >&6; }
if test x"$lt_cv_cc_needs_belf" != x"yes"; then
# this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
CFLAGS="$SAVE_CFLAGS"
fi
;;
-sparc*-*solaris*)
+*-*solaris*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
case `/usr/bin/file conftest.o` in
*64-bit*)
case $lt_cv_prog_gnu_ld in
- yes*) LD="${LD-ld} -m elf64_sparc" ;;
+ yes*)
+ case $host in
+ i?86-*-solaris*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ sparc*-*-solaris*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ # GNU ld 2.21 introduced _sol2 emulations. Use them if available.
+ if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then
+ LD="${LD-ld}_sol2"
+ fi
+ ;;
*)
if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
LD="${LD-ld} -64"
fi
;;
esac
;;
esac
fi
rm -rf conftest*
;;
esac
need_locks="$enable_libtool_lock"
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args.
set dummy ${ac_tool_prefix}mt; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_MANIFEST_TOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$MANIFEST_TOOL"; then
ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL
if test -n "$MANIFEST_TOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5
$as_echo "$MANIFEST_TOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_MANIFEST_TOOL"; then
ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL
# Extract the first word of "mt", so it can be a program name with args.
set dummy mt; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_MANIFEST_TOOL"; then
ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_MANIFEST_TOOL="mt"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL
if test -n "$ac_ct_MANIFEST_TOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5
$as_echo "$ac_ct_MANIFEST_TOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_MANIFEST_TOOL" = x; then
MANIFEST_TOOL=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL
fi
else
MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL"
fi
test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5
$as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; }
if ${lt_cv_path_mainfest_tool+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_path_mainfest_tool=no
echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5
$MANIFEST_TOOL '-?' 2>conftest.err > conftest.out
cat conftest.err >&5
if $GREP 'Manifest Tool' conftest.out > /dev/null; then
lt_cv_path_mainfest_tool=yes
fi
rm -f conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5
$as_echo "$lt_cv_path_mainfest_tool" >&6; }
if test "x$lt_cv_path_mainfest_tool" != xyes; then
MANIFEST_TOOL=:
fi
case $host_os in
rhapsody* | darwin*)
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args.
set dummy ${ac_tool_prefix}dsymutil; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_DSYMUTIL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$DSYMUTIL"; then
ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
DSYMUTIL=$ac_cv_prog_DSYMUTIL
if test -n "$DSYMUTIL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5
$as_echo "$DSYMUTIL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_DSYMUTIL"; then
ac_ct_DSYMUTIL=$DSYMUTIL
# Extract the first word of "dsymutil", so it can be a program name with args.
set dummy dsymutil; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_DSYMUTIL"; then
ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_DSYMUTIL="dsymutil"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL
if test -n "$ac_ct_DSYMUTIL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5
$as_echo "$ac_ct_DSYMUTIL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_DSYMUTIL" = x; then
DSYMUTIL=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
DSYMUTIL=$ac_ct_DSYMUTIL
fi
else
DSYMUTIL="$ac_cv_prog_DSYMUTIL"
fi
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args.
set dummy ${ac_tool_prefix}nmedit; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_NMEDIT+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$NMEDIT"; then
ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
NMEDIT=$ac_cv_prog_NMEDIT
if test -n "$NMEDIT"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5
$as_echo "$NMEDIT" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_NMEDIT"; then
ac_ct_NMEDIT=$NMEDIT
# Extract the first word of "nmedit", so it can be a program name with args.
set dummy nmedit; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_NMEDIT"; then
ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_NMEDIT="nmedit"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT
if test -n "$ac_ct_NMEDIT"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5
$as_echo "$ac_ct_NMEDIT" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_NMEDIT" = x; then
NMEDIT=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
NMEDIT=$ac_ct_NMEDIT
fi
else
NMEDIT="$ac_cv_prog_NMEDIT"
fi
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args.
set dummy ${ac_tool_prefix}lipo; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_LIPO+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$LIPO"; then
ac_cv_prog_LIPO="$LIPO" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_LIPO="${ac_tool_prefix}lipo"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
LIPO=$ac_cv_prog_LIPO
if test -n "$LIPO"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5
$as_echo "$LIPO" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_LIPO"; then
ac_ct_LIPO=$LIPO
# Extract the first word of "lipo", so it can be a program name with args.
set dummy lipo; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_LIPO+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_LIPO"; then
ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_LIPO="lipo"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO
if test -n "$ac_ct_LIPO"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5
$as_echo "$ac_ct_LIPO" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_LIPO" = x; then
LIPO=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
LIPO=$ac_ct_LIPO
fi
else
LIPO="$ac_cv_prog_LIPO"
fi
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args.
set dummy ${ac_tool_prefix}otool; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_OTOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$OTOOL"; then
ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_OTOOL="${ac_tool_prefix}otool"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
OTOOL=$ac_cv_prog_OTOOL
if test -n "$OTOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5
$as_echo "$OTOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_OTOOL"; then
ac_ct_OTOOL=$OTOOL
# Extract the first word of "otool", so it can be a program name with args.
set dummy otool; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_OTOOL+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_OTOOL"; then
ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_OTOOL="otool"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL
if test -n "$ac_ct_OTOOL"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5
$as_echo "$ac_ct_OTOOL" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_OTOOL" = x; then
OTOOL=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
OTOOL=$ac_ct_OTOOL
fi
else
OTOOL="$ac_cv_prog_OTOOL"
fi
if test -n "$ac_tool_prefix"; then
# Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args.
set dummy ${ac_tool_prefix}otool64; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_OTOOL64+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$OTOOL64"; then
ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
OTOOL64=$ac_cv_prog_OTOOL64
if test -n "$OTOOL64"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5
$as_echo "$OTOOL64" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
fi
if test -z "$ac_cv_prog_OTOOL64"; then
ac_ct_OTOOL64=$OTOOL64
# Extract the first word of "otool64", so it can be a program name with args.
set dummy otool64; ac_word=$2
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
$as_echo_n "checking for $ac_word... " >&6; }
if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then :
$as_echo_n "(cached) " >&6
else
if test -n "$ac_ct_OTOOL64"; then
ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test.
else
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
ac_cv_prog_ac_ct_OTOOL64="otool64"
$as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
break 2
fi
done
done
IFS=$as_save_IFS
fi
fi
ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64
if test -n "$ac_ct_OTOOL64"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5
$as_echo "$ac_ct_OTOOL64" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test "x$ac_ct_OTOOL64" = x; then
OTOOL64=":"
else
case $cross_compiling:$ac_tool_warned in
yes:)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
ac_tool_warned=yes ;;
esac
OTOOL64=$ac_ct_OTOOL64
fi
else
OTOOL64="$ac_cv_prog_OTOOL64"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5
$as_echo_n "checking for -single_module linker flag... " >&6; }
if ${lt_cv_apple_cc_single_mod+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_apple_cc_single_mod=no
if test -z "${LT_MULTI_MODULE}"; then
# By default we will add the -single_module flag. You can override
# by either setting the environment variable LT_MULTI_MODULE
# non-empty at configure time, or by adding -multi_module to the
# link flags.
rm -rf libconftest.dylib*
echo "int foo(void){return 1;}" > conftest.c
echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
-dynamiclib -Wl,-single_module conftest.c" >&5
$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
-dynamiclib -Wl,-single_module conftest.c 2>conftest.err
_lt_result=$?
- if test -f libconftest.dylib && test ! -s conftest.err && test $_lt_result = 0; then
+ # If there is a non-empty error log, and "single_module"
+ # appears in it, assume the flag caused a linker warning
+ if test -s conftest.err && $GREP single_module conftest.err; then
+ cat conftest.err >&5
+ # Otherwise, if the output was created with a 0 exit code from
+ # the compiler, it worked.
+ elif test -f libconftest.dylib && test $_lt_result -eq 0; then
lt_cv_apple_cc_single_mod=yes
else
cat conftest.err >&5
fi
rm -rf libconftest.dylib*
rm -f conftest.*
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5
$as_echo "$lt_cv_apple_cc_single_mod" >&6; }
+
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5
$as_echo_n "checking for -exported_symbols_list linker flag... " >&6; }
if ${lt_cv_ld_exported_symbols_list+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_ld_exported_symbols_list=no
save_LDFLAGS=$LDFLAGS
echo "_main" > conftest.sym
LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
lt_cv_ld_exported_symbols_list=yes
else
lt_cv_ld_exported_symbols_list=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5
$as_echo "$lt_cv_ld_exported_symbols_list" >&6; }
+
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5
$as_echo_n "checking for -force_load linker flag... " >&6; }
if ${lt_cv_ld_force_load+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_ld_force_load=no
cat > conftest.c << _LT_EOF
int forced_loaded() { return 2;}
_LT_EOF
echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5
$LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5
echo "$AR cru libconftest.a conftest.o" >&5
$AR cru libconftest.a conftest.o 2>&5
echo "$RANLIB libconftest.a" >&5
$RANLIB libconftest.a 2>&5
cat > conftest.c << _LT_EOF
int main() { return 0;}
_LT_EOF
echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5
$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err
_lt_result=$?
- if test -f conftest && test ! -s conftest.err && test $_lt_result = 0 && $GREP forced_load conftest 2>&1 >/dev/null; then
+ if test -s conftest.err && $GREP force_load conftest.err; then
+ cat conftest.err >&5
+ elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then
lt_cv_ld_force_load=yes
else
cat conftest.err >&5
fi
rm -f conftest.err libconftest.a conftest conftest.c
rm -rf conftest.dSYM
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5
$as_echo "$lt_cv_ld_force_load" >&6; }
case $host_os in
rhapsody* | darwin1.[012])
_lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;;
darwin1.*)
_lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
darwin*) # darwin 5.x on
# if running on 10.5 or later, the deployment target defaults
# to the OS version, if on x86, and 10.4, the deployment
# target defaults to 10.4. Don't you love it?
case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
10.0,*86*-darwin8*|10.0,*-darwin[91]*)
_lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
10.[012]*)
_lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
10.*)
_lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
esac
;;
esac
if test "$lt_cv_apple_cc_single_mod" = "yes"; then
_lt_dar_single_mod='$single_module'
fi
if test "$lt_cv_ld_exported_symbols_list" = "yes"; then
_lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym'
else
_lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}'
fi
if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then
_lt_dsymutil='~$DSYMUTIL $lib || :'
else
_lt_dsymutil=
fi
;;
esac
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
$as_echo_n "checking how to run the C preprocessor... " >&6; }
# On Suns, sometimes $CPP names a directory.
if test -n "$CPP" && test -d "$CPP"; then
CPP=
fi
if test -z "$CPP"; then
if ${ac_cv_prog_CPP+:} false; then :
$as_echo_n "(cached) " >&6
else
# Double quotes because CPP needs to be expanded
for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
do
ac_preproc_ok=false
for ac_c_preproc_warn_flag in '' yes
do
# Use a header file that comes with gcc, so configuring glibc
# with a fresh cross-compiler works.
# Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
# <limits.h> exists even on freestanding compilers.
# On the NeXT, cc -E runs the code through the compiler's parser,
# not just through cpp. "Syntax error" is here to catch this case.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef __STDC__
# include <limits.h>
#else
# include <assert.h>
#endif
Syntax error
_ACEOF
if ac_fn_c_try_cpp "$LINENO"; then :
else
# Broken: fails on valid input.
continue
fi
rm -f conftest.err conftest.i conftest.$ac_ext
# OK, works on sane cases. Now check whether nonexistent headers
# can be detected and how.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <ac_nonexistent.h>
_ACEOF
if ac_fn_c_try_cpp "$LINENO"; then :
# Broken: success on invalid input.
continue
else
# Passes both tests.
ac_preproc_ok=:
break
fi
rm -f conftest.err conftest.i conftest.$ac_ext
done
# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
rm -f conftest.i conftest.err conftest.$ac_ext
if $ac_preproc_ok; then :
break
fi
done
ac_cv_prog_CPP=$CPP
fi
CPP=$ac_cv_prog_CPP
else
ac_cv_prog_CPP=$CPP
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
$as_echo "$CPP" >&6; }
ac_preproc_ok=false
for ac_c_preproc_warn_flag in '' yes
do
# Use a header file that comes with gcc, so configuring glibc
# with a fresh cross-compiler works.
# Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
# <limits.h> exists even on freestanding compilers.
# On the NeXT, cc -E runs the code through the compiler's parser,
# not just through cpp. "Syntax error" is here to catch this case.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef __STDC__
# include <limits.h>
#else
# include <assert.h>
#endif
Syntax error
_ACEOF
if ac_fn_c_try_cpp "$LINENO"; then :
else
# Broken: fails on valid input.
continue
fi
rm -f conftest.err conftest.i conftest.$ac_ext
# OK, works on sane cases. Now check whether nonexistent headers
# can be detected and how.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <ac_nonexistent.h>
_ACEOF
if ac_fn_c_try_cpp "$LINENO"; then :
# Broken: success on invalid input.
continue
else
# Passes both tests.
ac_preproc_ok=:
break
fi
rm -f conftest.err conftest.i conftest.$ac_ext
done
# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
rm -f conftest.i conftest.err conftest.$ac_ext
if $ac_preproc_ok; then :
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
See \`config.log' for more details" "$LINENO" 5; }
fi
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
$as_echo_n "checking for ANSI C header files... " >&6; }
if ${ac_cv_header_stdc+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <float.h>
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_compile "$LINENO"; then :
ac_cv_header_stdc=yes
else
ac_cv_header_stdc=no
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
if test $ac_cv_header_stdc = yes; then
# SunOS 4.x string.h does not declare mem*, contrary to ANSI.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <string.h>
_ACEOF
if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
$EGREP "memchr" >/dev/null 2>&1; then :
else
ac_cv_header_stdc=no
fi
rm -f conftest*
fi
if test $ac_cv_header_stdc = yes; then
# ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <stdlib.h>
_ACEOF
if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
$EGREP "free" >/dev/null 2>&1; then :
else
ac_cv_header_stdc=no
fi
rm -f conftest*
fi
if test $ac_cv_header_stdc = yes; then
# /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
if test "$cross_compiling" = yes; then :
:
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <ctype.h>
#include <stdlib.h>
#if ((' ' & 0x0FF) == 0x020)
# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
#else
# define ISLOWER(c) \
(('a' <= (c) && (c) <= 'i') \
|| ('j' <= (c) && (c) <= 'r') \
|| ('s' <= (c) && (c) <= 'z'))
# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
#endif
#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
int
main ()
{
int i;
for (i = 0; i < 256; i++)
if (XOR (islower (i), ISLOWER (i))
|| toupper (i) != TOUPPER (i))
return 2;
return 0;
}
_ACEOF
if ac_fn_c_try_run "$LINENO"; then :
else
ac_cv_header_stdc=no
fi
rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
conftest.$ac_objext conftest.beam conftest.$ac_ext
fi
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
$as_echo "$ac_cv_header_stdc" >&6; }
if test $ac_cv_header_stdc = yes; then
$as_echo "#define STDC_HEADERS 1" >>confdefs.h
fi
# On IRIX 5.3, sys/types and inttypes.h are conflicting.
for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
inttypes.h stdint.h unistd.h
do :
as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
"
if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
cat >>confdefs.h <<_ACEOF
#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
_ACEOF
fi
done
for ac_header in dlfcn.h
do :
ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default
"
if test "x$ac_cv_header_dlfcn_h" = xyes; then :
cat >>confdefs.h <<_ACEOF
#define HAVE_DLFCN_H 1
_ACEOF
fi
done
func_stripname_cnf ()
{
case ${2} in
.*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;;
*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;;
esac
} # func_stripname_cnf
# Set options
enable_dlopen=no
enable_win32_dll=no
# Check whether --enable-shared was given.
if test "${enable_shared+set}" = set; then :
enableval=$enable_shared; p=${PACKAGE-default}
case $enableval in
yes) enable_shared=yes ;;
no) enable_shared=no ;;
*)
enable_shared=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_shared=yes
fi
done
IFS="$lt_save_ifs"
;;
esac
else
enable_shared=yes
fi
# Check whether --enable-static was given.
if test "${enable_static+set}" = set; then :
enableval=$enable_static; p=${PACKAGE-default}
case $enableval in
yes) enable_static=yes ;;
no) enable_static=no ;;
*)
enable_static=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_static=yes
fi
done
IFS="$lt_save_ifs"
;;
esac
else
enable_static=yes
fi
# Check whether --with-pic was given.
if test "${with_pic+set}" = set; then :
- withval=$with_pic; pic_mode="$withval"
+ withval=$with_pic; lt_p=${PACKAGE-default}
+ case $withval in
+ yes|no) pic_mode=$withval ;;
+ *)
+ pic_mode=default
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for lt_pkg in $withval; do
+ IFS="$lt_save_ifs"
+ if test "X$lt_pkg" = "X$lt_p"; then
+ pic_mode=yes
+ fi
+ done
+ IFS="$lt_save_ifs"
+ ;;
+ esac
else
pic_mode=default
fi
test -z "$pic_mode" && pic_mode=default
# Check whether --enable-fast-install was given.
if test "${enable_fast_install+set}" = set; then :
enableval=$enable_fast_install; p=${PACKAGE-default}
case $enableval in
yes) enable_fast_install=yes ;;
no) enable_fast_install=no ;;
*)
enable_fast_install=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_fast_install=yes
fi
done
IFS="$lt_save_ifs"
;;
esac
else
enable_fast_install=yes
fi
# This can be used to rebuild libtool when needed
LIBTOOL_DEPS="$ltmain"
# Always use our own libtool.
LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+
+
+
+
test -z "$LN_S" && LN_S="ln -s"
if test -n "${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5
$as_echo_n "checking for objdir... " >&6; }
if ${lt_cv_objdir+:} false; then :
$as_echo_n "(cached) " >&6
else
rm -f .libs 2>/dev/null
mkdir .libs 2>/dev/null
if test -d .libs; then
lt_cv_objdir=.libs
else
# MS-DOS does not allow filenames that begin with a dot.
lt_cv_objdir=_libs
fi
rmdir .libs 2>/dev/null
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5
$as_echo "$lt_cv_objdir" >&6; }
objdir=$lt_cv_objdir
cat >>confdefs.h <<_ACEOF
#define LT_OBJDIR "$lt_cv_objdir/"
_ACEOF
case $host_os in
aix3*)
# AIX sometimes has problems with the GCC collect2 program. For some
# reason, if we set the COLLECT_NAMES environment variable, the problems
# vanish in a puff of smoke.
if test "X${COLLECT_NAMES+set}" != Xset; then
COLLECT_NAMES=
export COLLECT_NAMES
fi
;;
esac
# Global variables:
ofile=libtool
can_build_shared=yes
# All known linkers require a `.a' archive for static linking (except MSVC,
# which needs '.lib').
libext=a
with_gnu_ld="$lt_cv_prog_gnu_ld"
old_CC="$CC"
old_CFLAGS="$CFLAGS"
# Set sane defaults for various variables
test -z "$CC" && CC=cc
test -z "$LTCC" && LTCC=$CC
test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
test -z "$LD" && LD=ld
test -z "$ac_objext" && ac_objext=o
for cc_temp in $compiler""; do
case $cc_temp in
compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
\-*) ;;
*) break;;
esac
done
cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
# Only perform the check for file, if the check method requires it
test -z "$MAGIC_CMD" && MAGIC_CMD=file
case $deplibs_check_method in
file_magic*)
if test "$file_magic_cmd" = '$MAGIC_CMD'; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5
$as_echo_n "checking for ${ac_tool_prefix}file... " >&6; }
if ${lt_cv_path_MAGIC_CMD+:} false; then :
$as_echo_n "(cached) " >&6
else
case $MAGIC_CMD in
[\\/*] | ?:[\\/]*)
lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
;;
*)
lt_save_MAGIC_CMD="$MAGIC_CMD"
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
for ac_dir in $ac_dummy; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
if test -f $ac_dir/${ac_tool_prefix}file; then
lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file"
if test -n "$file_magic_test_file"; then
case $deplibs_check_method in
"file_magic "*)
file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
$EGREP "$file_magic_regex" > /dev/null; then
:
else
cat <<_LT_EOF 1>&2
*** Warning: the command libtool uses to detect shared libraries,
*** $file_magic_cmd, produces output that libtool cannot recognize.
*** The result is that libtool may fail to recognize shared libraries
*** as such. This will affect the creation of libtool libraries that
*** depend on shared libraries, but programs linked with such libtool
*** libraries will work regardless of this problem. Nevertheless, you
*** may want to report the problem to your system manager and/or to
*** bug-libtool@gnu.org
_LT_EOF
fi ;;
esac
fi
break
fi
done
IFS="$lt_save_ifs"
MAGIC_CMD="$lt_save_MAGIC_CMD"
;;
esac
fi
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if test -n "$MAGIC_CMD"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
$as_echo "$MAGIC_CMD" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
if test -z "$lt_cv_path_MAGIC_CMD"; then
if test -n "$ac_tool_prefix"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5
$as_echo_n "checking for file... " >&6; }
if ${lt_cv_path_MAGIC_CMD+:} false; then :
$as_echo_n "(cached) " >&6
else
case $MAGIC_CMD in
[\\/*] | ?:[\\/]*)
lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
;;
*)
lt_save_MAGIC_CMD="$MAGIC_CMD"
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
for ac_dir in $ac_dummy; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
if test -f $ac_dir/file; then
lt_cv_path_MAGIC_CMD="$ac_dir/file"
if test -n "$file_magic_test_file"; then
case $deplibs_check_method in
"file_magic "*)
file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
$EGREP "$file_magic_regex" > /dev/null; then
:
else
cat <<_LT_EOF 1>&2
*** Warning: the command libtool uses to detect shared libraries,
*** $file_magic_cmd, produces output that libtool cannot recognize.
*** The result is that libtool may fail to recognize shared libraries
*** as such. This will affect the creation of libtool libraries that
*** depend on shared libraries, but programs linked with such libtool
*** libraries will work regardless of this problem. Nevertheless, you
*** may want to report the problem to your system manager and/or to
*** bug-libtool@gnu.org
_LT_EOF
fi ;;
esac
fi
break
fi
done
IFS="$lt_save_ifs"
MAGIC_CMD="$lt_save_MAGIC_CMD"
;;
esac
fi
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if test -n "$MAGIC_CMD"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
$as_echo "$MAGIC_CMD" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
else
MAGIC_CMD=:
fi
fi
fi
;;
esac
# Use C for the default configuration in the libtool script
lt_save_CC="$CC"
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
# Source file extension for C test sources.
ac_ext=c
# Object file extension for compiled C test sources.
objext=o
objext=$objext
# Code to be used in simple compile tests
lt_simple_compile_test_code="int some_variable = 0;"
# Code to be used in simple link tests
lt_simple_link_test_code='int main(){return(0);}'
# If no C compiler was specified, use CC.
LTCC=${LTCC-"$CC"}
# If no C compiler flags were specified, use CFLAGS.
LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
# Allow CC to be a program name with arguments.
compiler=$CC
# Save the default compiler, since it gets overwritten when the other
# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
compiler_DEFAULT=$CC
# save warnings/boilerplate of simple test code
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" >conftest.$ac_ext
eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_compiler_boilerplate=`cat conftest.err`
$RM conftest*
ac_outfile=conftest.$ac_objext
echo "$lt_simple_link_test_code" >conftest.$ac_ext
eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_linker_boilerplate=`cat conftest.err`
$RM -r conftest*
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
if test -n "$compiler"; then
lt_prog_compiler_no_builtin_flag=
if test "$GCC" = yes; then
case $cc_basename in
nvcc*)
lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;;
*)
lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5
$as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; }
if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_rtti_exceptions=no
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-fno-rtti -fno-exceptions"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
# The option is referenced via a variable to avoid confusing sed.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_rtti_exceptions=yes
fi
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5
$as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; }
if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then
lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions"
else
:
fi
fi
lt_prog_compiler_wl=
lt_prog_compiler_pic=
lt_prog_compiler_static=
if test "$GCC" = yes; then
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_static='-static'
case $host_os in
aix*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static='-Bstatic'
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
lt_prog_compiler_pic='-fPIC'
;;
m68k)
# FIXME: we need at least 68020 code to build shared libraries, but
# adding the `-m68020' flag to GCC prevents building anything better,
# like `-m68040'.
lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4'
;;
esac
;;
beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
# PIC is the default for these OSes.
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
# Although the cygwin gcc ignores -fPIC, still need this for old-style
# (--disable-auto-import) libraries
lt_prog_compiler_pic='-DDLL_EXPORT'
;;
darwin* | rhapsody*)
# PIC is the default on this platform
# Common symbols not allowed in MH_DYLIB files
lt_prog_compiler_pic='-fno-common'
;;
haiku*)
# PIC is the default for Haiku.
# The "-static" flag exists, but is broken.
lt_prog_compiler_static=
;;
hpux*)
# PIC is the default for 64-bit PA HP-UX, but not for 32-bit
# PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
# sets the default TLS model and affects inlining.
case $host_cpu in
hppa*64*)
# +Z the default
;;
*)
lt_prog_compiler_pic='-fPIC'
;;
esac
;;
interix[3-9]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
msdosdjgpp*)
# Just because we use GCC doesn't mean we suddenly get shared libraries
# on systems that don't support them.
lt_prog_compiler_can_build_shared=no
enable_shared=no
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic='-fPIC -shared'
;;
sysv4*MP*)
if test -d /usr/nec; then
lt_prog_compiler_pic=-Kconform_pic
fi
;;
*)
lt_prog_compiler_pic='-fPIC'
;;
esac
case $cc_basename in
nvcc*) # Cuda Compiler Driver 2.2
lt_prog_compiler_wl='-Xlinker '
- lt_prog_compiler_pic='-Xcompiler -fPIC'
+ if test -n "$lt_prog_compiler_pic"; then
+ lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic"
+ fi
;;
esac
else
# PORTME Check for flag to pass linker flags through the system compiler.
case $host_os in
aix*)
lt_prog_compiler_wl='-Wl,'
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static='-Bstatic'
else
lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp'
fi
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
lt_prog_compiler_pic='-DDLL_EXPORT'
;;
hpux9* | hpux10* | hpux11*)
lt_prog_compiler_wl='-Wl,'
# PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
# not for PA HP-UX.
case $host_cpu in
hppa*64*|ia64*)
# +Z the default
;;
*)
lt_prog_compiler_pic='+Z'
;;
esac
# Is there a better lt_prog_compiler_static that works with the bundled CC?
lt_prog_compiler_static='${wl}-a ${wl}archive'
;;
irix5* | irix6* | nonstopux*)
lt_prog_compiler_wl='-Wl,'
# PIC (with -KPIC) is the default.
lt_prog_compiler_static='-non_shared'
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
# old Intel for x86_64 which still supported -KPIC.
ecc*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-static'
;;
# icc used to be incompatible with GCC.
# ICC 10 doesn't accept -KPIC any more.
icc* | ifort*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-fPIC'
lt_prog_compiler_static='-static'
;;
# Lahey Fortran 8.1.
lf95*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='--shared'
lt_prog_compiler_static='--static'
;;
nagfor*)
# NAG Fortran compiler
lt_prog_compiler_wl='-Wl,-Wl,,'
lt_prog_compiler_pic='-PIC'
lt_prog_compiler_static='-Bstatic'
;;
pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group compilers (*not* the Pentium gcc compiler,
# which looks to be a dead project)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-fpic'
lt_prog_compiler_static='-Bstatic'
;;
ccc*)
lt_prog_compiler_wl='-Wl,'
# All Alpha code is PIC.
lt_prog_compiler_static='-non_shared'
;;
xl* | bgxl* | bgf* | mpixl*)
# IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-qpic'
lt_prog_compiler_static='-qstaticlink'
;;
*)
case `$CC -V 2>&1 | sed 5q` in
- *Sun\ F* | *Sun*Fortran*)
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
# Sun Fortran 8.3 passes all unrecognized flags to the linker
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
lt_prog_compiler_wl=''
;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic='-KPIC'
+ lt_prog_compiler_static='-Bstatic'
+ lt_prog_compiler_wl='-Qoption ld '
+ ;;
*Sun\ C*)
# Sun C 5.9
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
lt_prog_compiler_wl='-Wl,'
;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fPIC'
+ lt_prog_compiler_static='-static'
+ ;;
+ *Portland\ Group*)
+ lt_prog_compiler_wl='-Wl,'
+ lt_prog_compiler_pic='-fpic'
+ lt_prog_compiler_static='-Bstatic'
+ ;;
esac
;;
esac
;;
newsos6)
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic='-fPIC -shared'
;;
osf3* | osf4* | osf5*)
lt_prog_compiler_wl='-Wl,'
# All OSF/1 code is PIC.
lt_prog_compiler_static='-non_shared'
;;
rdos*)
lt_prog_compiler_static='-non_shared'
;;
solaris*)
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
case $cc_basename in
f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
lt_prog_compiler_wl='-Qoption ld ';;
*)
lt_prog_compiler_wl='-Wl,';;
esac
;;
sunos4*)
lt_prog_compiler_wl='-Qoption ld '
lt_prog_compiler_pic='-PIC'
lt_prog_compiler_static='-Bstatic'
;;
sysv4 | sysv4.2uw2* | sysv4.3*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
;;
sysv4*MP*)
if test -d /usr/nec ;then
lt_prog_compiler_pic='-Kconform_pic'
lt_prog_compiler_static='-Bstatic'
fi
;;
sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_pic='-KPIC'
lt_prog_compiler_static='-Bstatic'
;;
unicos*)
lt_prog_compiler_wl='-Wl,'
lt_prog_compiler_can_build_shared=no
;;
uts4*)
lt_prog_compiler_pic='-pic'
lt_prog_compiler_static='-Bstatic'
;;
*)
lt_prog_compiler_can_build_shared=no
;;
esac
fi
case $host_os in
# For platforms which do not support PIC, -DPIC is meaningless:
*djgpp*)
lt_prog_compiler_pic=
;;
*)
lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC"
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
if ${lt_cv_prog_compiler_pic+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic=$lt_prog_compiler_pic
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5
$as_echo "$lt_cv_prog_compiler_pic" >&6; }
lt_prog_compiler_pic=$lt_cv_prog_compiler_pic
#
# Check to make sure the PIC flag actually works.
#
if test -n "$lt_prog_compiler_pic"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5
$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; }
if ${lt_cv_prog_compiler_pic_works+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic_works=no
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="$lt_prog_compiler_pic -DPIC"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
# The option is referenced via a variable to avoid confusing sed.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_pic_works=yes
fi
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5
$as_echo "$lt_cv_prog_compiler_pic_works" >&6; }
if test x"$lt_cv_prog_compiler_pic_works" = xyes; then
case $lt_prog_compiler_pic in
"" | " "*) ;;
*) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;;
esac
else
lt_prog_compiler_pic=
lt_prog_compiler_can_build_shared=no
fi
fi
#
# Check to make sure the static flag actually works.
#
wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
if ${lt_cv_prog_compiler_static_works+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_static_works=no
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
echo "$lt_simple_link_test_code" > conftest.$ac_ext
if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
# The linker can only warn and ignore the option if not recognized
# So say no if there are warnings
if test -s conftest.err; then
# Append any errors to the config.log.
cat conftest.err 1>&5
$ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_static_works=yes
fi
else
lt_cv_prog_compiler_static_works=yes
fi
fi
$RM -r conftest*
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5
$as_echo "$lt_cv_prog_compiler_static_works" >&6; }
if test x"$lt_cv_prog_compiler_static_works" = xyes; then
:
else
lt_prog_compiler_static=
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
hard_links="nottested"
if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then
# do not overwrite the value of need_locks provided by the user
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
$as_echo_n "checking if we can lock with hard links... " >&6; }
hard_links=yes
$RM conftest*
ln conftest.a conftest.b 2>/dev/null && hard_links=no
touch conftest.a
ln conftest.a conftest.b 2>&5 || hard_links=no
ln conftest.a conftest.b 2>/dev/null && hard_links=no
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
$as_echo "$hard_links" >&6; }
if test "$hard_links" = no; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5
$as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;}
need_locks=warn
fi
else
need_locks=no
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
runpath_var=
allow_undefined_flag=
always_export_symbols=no
archive_cmds=
archive_expsym_cmds=
compiler_needs_object=no
enable_shared_with_static_runtimes=no
export_dynamic_flag_spec=
export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
hardcode_automatic=no
hardcode_direct=no
hardcode_direct_absolute=no
hardcode_libdir_flag_spec=
- hardcode_libdir_flag_spec_ld=
hardcode_libdir_separator=
hardcode_minus_L=no
hardcode_shlibpath_var=unsupported
inherit_rpath=no
link_all_deplibs=unknown
module_cmds=
module_expsym_cmds=
old_archive_from_new_cmds=
old_archive_from_expsyms_cmds=
thread_safe_flag_spec=
whole_archive_flag_spec=
# include_expsyms should be a list of space-separated symbols to be *always*
# included in the symbol list
include_expsyms=
# exclude_expsyms can be an extended regexp of symbols to exclude
# it will be wrapped by ` (' and `)$', so one must not match beginning or
# end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
# as well as any symbol that contains `d'.
exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
# Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
# platforms (ab)use it in PIC code, but their linkers get confused if
# the symbol is explicitly referenced. Since portable code cannot
# rely on this symbol name, it's probably fine to never include it in
# preloaded symbol tables.
# Exclude shared library initialization/finalization symbols.
extract_expsyms_cmds=
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# FIXME: the MSVC++ port hasn't been tested in a loooong time
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
if test "$GCC" != yes; then
with_gnu_ld=no
fi
;;
interix*)
# we just hope/assume this is gcc and not c89 (= MSVC++)
with_gnu_ld=yes
;;
openbsd*)
with_gnu_ld=no
;;
esac
ld_shlibs=yes
# On some targets, GNU ld is compatible enough with the native linker
# that we're better off using the native interface for both.
lt_use_gnu_ld_interface=no
if test "$with_gnu_ld" = yes; then
case $host_os in
aix*)
# The AIX port of GNU ld has always aspired to compatibility
# with the native linker. However, as the warning in the GNU ld
# block says, versions before 2.19.5* couldn't really create working
# shared libraries, regardless of the interface used.
case `$LD -v 2>&1` in
*\ \(GNU\ Binutils\)\ 2.19.5*) ;;
*\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
*\ \(GNU\ Binutils\)\ [3-9]*) ;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
fi
if test "$lt_use_gnu_ld_interface" = yes; then
# If archive_cmds runs LD, not CC, wlarc should be empty
wlarc='${wl}'
# Set some defaults for GNU ld with shared library support. These
# are reset later if shared libraries are not supported. Putting them
# here allows them to be overridden if necessary.
runpath_var=LD_RUN_PATH
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
export_dynamic_flag_spec='${wl}--export-dynamic'
# ancient GNU ld didn't support --whole-archive et. al.
if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
else
whole_archive_flag_spec=
fi
supports_anon_versioning=no
case `$LD -v 2>&1` in
*GNU\ gold*) supports_anon_versioning=yes ;;
*\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
*\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
*\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
*\ 2.11.*) ;; # other 2.11 versions
*) supports_anon_versioning=yes ;;
esac
# See if GNU ld supports shared libraries.
case $host_os in
aix[3-9]*)
# On AIX/PPC, the GNU linker is very broken
if test "$host_cpu" != ia64; then
ld_shlibs=no
cat <<_LT_EOF 1>&2
*** Warning: the GNU linker, at least up to release 2.19, is reported
*** to be unable to reliably create shared libraries on AIX.
*** Therefore, libtool is disabling shared libraries support. If you
*** really care for shared libraries, you may want to install binutils
*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
*** You will then need to restart the configuration process.
_LT_EOF
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds=''
;;
m68k)
archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec='-L$libdir'
hardcode_minus_L=yes
;;
esac
;;
beos*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
allow_undefined_flag=unsupported
# Joseph Beckenbach <jrb3@best.com> says some releases of gcc
# support --undefined. This deserves some investigation. FIXME
archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
else
ld_shlibs=no
fi
;;
cygwin* | mingw* | pw32* | cegcc*)
# _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless,
# as there is no search path for DLLs.
hardcode_libdir_flag_spec='-L$libdir'
export_dynamic_flag_spec='${wl}--export-all-symbols'
allow_undefined_flag=unsupported
always_export_symbols=no
enable_shared_with_static_runtimes=yes
export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
# If the export-symbols file already is a .def file (1st line
# is EXPORTS), use it as is; otherwise, prepend...
archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
cp $export_symbols $output_objdir/$soname.def;
else
echo EXPORTS > $output_objdir/$soname.def;
cat $export_symbols >> $output_objdir/$soname.def;
fi~
$CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
else
ld_shlibs=no
fi
;;
haiku*)
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
link_all_deplibs=yes
;;
interix[3-9]*)
hardcode_direct=no
hardcode_shlibpath_var=no
hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
export_dynamic_flag_spec='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
;;
gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
tmp_diet=no
if test "$host_os" = linux-dietlibc; then
case $cc_basename in
diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
esac
fi
if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
&& test "$tmp_diet" = no
then
tmp_addflag=' $pic_flag'
tmp_sharedflag='-shared'
case $cc_basename,$host_cpu in
pgcc*) # Portland Group C compiler
whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag'
;;
pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group f77 and f90 compilers
whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag -Mnomain' ;;
ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
tmp_addflag=' -i_dynamic' ;;
efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
tmp_addflag=' -i_dynamic -nofor_main' ;;
ifc* | ifort*) # Intel Fortran compiler
tmp_addflag=' -nofor_main' ;;
lf95*) # Lahey Fortran 8.1
whole_archive_flag_spec=
tmp_sharedflag='--shared' ;;
xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
tmp_sharedflag='-qmkshrobj'
tmp_addflag= ;;
nvcc*) # Cuda Compiler Driver 2.2
whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object=yes
;;
esac
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*) # Sun C 5.9
whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object=yes
tmp_sharedflag='-G' ;;
*Sun\ F*) # Sun Fortran 8.3
tmp_sharedflag='-G' ;;
esac
archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
fi
case $cc_basename in
xlf* | bgf* | bgxlf* | mpixlf*)
# IBM XL Fortran 10.1 on PPC cannot create shared libs itself
whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive'
- hardcode_libdir_flag_spec=
- hardcode_libdir_flag_spec_ld='-rpath $libdir'
+ hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
fi
;;
esac
else
ld_shlibs=no
fi
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
wlarc=
else
archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
fi
;;
solaris*)
if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
ld_shlibs=no
cat <<_LT_EOF 1>&2
*** Warning: The releases 2.8.* of the GNU linker cannot reliably
*** create shared libraries on Solaris systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.9.1 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs=no
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
case `$LD -v 2>&1` in
*\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
ld_shlibs=no
cat <<_LT_EOF 1>&2
*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not
*** reliably create shared libraries on SCO systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
;;
*)
# For security reasons, it is highly recommended that you always
# use absolute paths for naming shared libraries, and exclude the
# DT_RUNPATH tag from executables and libraries. But doing so
# requires that you compile everything twice, which is a pain.
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs=no
fi
;;
esac
;;
sunos4*)
archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
wlarc=
hardcode_direct=yes
hardcode_shlibpath_var=no
;;
*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs=no
fi
;;
esac
if test "$ld_shlibs" = no; then
runpath_var=
hardcode_libdir_flag_spec=
export_dynamic_flag_spec=
whole_archive_flag_spec=
fi
else
# PORTME fill in a description of your system's linker (not GNU ld)
case $host_os in
aix3*)
allow_undefined_flag=unsupported
always_export_symbols=yes
archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
# Note: this linker hardcodes the directories in LIBPATH if there
# are no directories specified by -L.
hardcode_minus_L=yes
if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then
# Neither direct hardcoding nor static linking is supported with a
# broken collect2.
hardcode_direct=unsupported
fi
;;
aix[4-9]*)
if test "$host_cpu" = ia64; then
# On IA64, the linker does run time linking by default, so we don't
# have to do anything special.
aix_use_runtimelinking=no
exp_sym_flag='-Bexport'
no_entry_flag=""
else
# If we're using GNU nm, then we don't want the "-C" option.
# -C means demangle to AIX nm, but means don't demangle with GNU nm
# Also, AIX nm treats weak defined symbols like other global
# defined symbols, whereas GNU nm marks them as "W".
if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
else
export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
fi
aix_use_runtimelinking=no
# Test if we are trying to use run time linking or normal
# AIX style linking. If -brtl is somewhere in LDFLAGS, we
# need to do runtime linking.
case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
for ld_flag in $LDFLAGS; do
if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
aix_use_runtimelinking=yes
break
fi
done
;;
esac
exp_sym_flag='-bexport'
no_entry_flag='-bnoentry'
fi
# When large executables or shared objects are built, AIX ld can
# have problems creating the table of contents. If linking a library
# or program results in "error TOC overflow" add -mminimal-toc to
# CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
# enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
archive_cmds=''
hardcode_direct=yes
hardcode_direct_absolute=yes
hardcode_libdir_separator=':'
link_all_deplibs=yes
file_list_spec='${wl}-f,'
if test "$GCC" = yes; then
case $host_os in aix4.[012]|aix4.[012].*)
# We only want to do this on AIX 4.2 and lower, the check
# below for broken collect2 doesn't work under 4.3+
collect2name=`${CC} -print-prog-name=collect2`
if test -f "$collect2name" &&
strings "$collect2name" | $GREP resolve_lib_name >/dev/null
then
# We have reworked collect2
:
else
# We have old collect2
hardcode_direct=unsupported
# It fails to find uninstalled libraries when the uninstalled
# path is not listed in the libpath. Setting hardcode_minus_L
# to unsupported forces relinking
hardcode_minus_L=yes
hardcode_libdir_flag_spec='-L$libdir'
hardcode_libdir_separator=
fi
;;
esac
shared_flag='-shared'
if test "$aix_use_runtimelinking" = yes; then
shared_flag="$shared_flag "'${wl}-G'
fi
else
# not using gcc
if test "$host_cpu" = ia64; then
# VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
# chokes on -Wl,-G. The following line is correct:
shared_flag='-G'
else
if test "$aix_use_runtimelinking" = yes; then
shared_flag='${wl}-G'
else
shared_flag='${wl}-bM:SRE'
fi
fi
fi
export_dynamic_flag_spec='${wl}-bexpall'
# It seems that -bexpall does not export symbols beginning with
# underscore (_), so it is better to generate a list of symbols to export.
always_export_symbols=yes
if test "$aix_use_runtimelinking" = yes; then
# Warning - without using the other runtime loading flags (-brtl),
# -berok will link without error, but may produce a broken library.
allow_undefined_flag='-berok'
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath_+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath_"; then
lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath_"; then
lt_cv_aix_libpath_="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath_
fi
hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath"
archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
else
if test "$host_cpu" = ia64; then
hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib'
allow_undefined_flag="-z nodefs"
archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
else
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath_+:} false; then :
$as_echo_n "(cached) " >&6
else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath_"; then
lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath_"; then
lt_cv_aix_libpath_="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath_
fi
hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath"
# Warning - without using the other run time loading flags,
# -berok will link without error, but may produce a broken library.
no_undefined_flag=' ${wl}-bernotok'
allow_undefined_flag=' ${wl}-berok'
if test "$with_gnu_ld" = yes; then
# We only use this code for GNU lds that support --whole-archive.
whole_archive_flag_spec='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
else
# Exported symbols can be pulled into shared objects from archives
whole_archive_flag_spec='$convenience'
fi
archive_cmds_need_lc=yes
# This is similar to how AIX traditionally builds its shared libraries.
archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
fi
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds=''
;;
m68k)
archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec='-L$libdir'
hardcode_minus_L=yes
;;
esac
;;
bsdi[45]*)
export_dynamic_flag_spec=-rdynamic
;;
cygwin* | mingw* | pw32* | cegcc*)
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
# hardcode_libdir_flag_spec is actually meaningless, as there is
# no search path for DLLs.
case $cc_basename in
cl*)
# Native MSVC
hardcode_libdir_flag_spec=' '
allow_undefined_flag=unsupported
always_export_symbols=yes
file_list_spec='@'
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames='
archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp;
else
sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp;
fi~
$CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
linknames='
# The linker will not automatically build a static lib if we build a DLL.
# _LT_TAGVAR(old_archive_from_new_cmds, )='true'
enable_shared_with_static_runtimes=yes
+ exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
# Don't use ranlib
old_postinstall_cmds='chmod 644 $oldlib'
postlink_cmds='lt_outputfile="@OUTPUT@"~
lt_tool_outputfile="@TOOL_OUTPUT@"~
case $lt_outputfile in
*.exe|*.EXE) ;;
*)
lt_outputfile="$lt_outputfile.exe"
lt_tool_outputfile="$lt_tool_outputfile.exe"
;;
esac~
if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then
$MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
$RM "$lt_outputfile.manifest";
fi'
;;
*)
# Assume MSVC wrapper
hardcode_libdir_flag_spec=' '
allow_undefined_flag=unsupported
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
# The linker will automatically build a .lib file if we build a DLL.
old_archive_from_new_cmds='true'
# FIXME: Should let the user specify the lib program.
old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs'
enable_shared_with_static_runtimes=yes
;;
esac
;;
darwin* | rhapsody*)
archive_cmds_need_lc=no
hardcode_direct=no
hardcode_automatic=yes
hardcode_shlibpath_var=unsupported
if test "$lt_cv_ld_force_load" = "yes"; then
whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+
else
whole_archive_flag_spec=''
fi
link_all_deplibs=yes
allow_undefined_flag="$_lt_dar_allow_undefined"
case $cc_basename in
ifort*) _lt_dar_can_shared=yes ;;
*) _lt_dar_can_shared=$GCC ;;
esac
if test "$_lt_dar_can_shared" = "yes"; then
output_verbose_link_cmd=func_echo_all
archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
else
ld_shlibs=no
fi
;;
dgux*)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec='-L$libdir'
hardcode_shlibpath_var=no
;;
- freebsd1*)
- ld_shlibs=no
- ;;
-
# FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
# support. Future versions do this automatically, but an explicit c++rt0.o
# does not break anything, and helps significantly (at the cost of a little
# extra space).
freebsd2.2*)
archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
hardcode_libdir_flag_spec='-R$libdir'
hardcode_direct=yes
hardcode_shlibpath_var=no
;;
# Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2*)
+ freebsd2.*)
archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct=yes
hardcode_minus_L=yes
hardcode_shlibpath_var=no
;;
# FreeBSD 3 and greater uses gcc -shared to do shared libraries.
freebsd* | dragonfly*)
archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec='-R$libdir'
hardcode_direct=yes
hardcode_shlibpath_var=no
;;
hpux9*)
if test "$GCC" = yes; then
archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
else
archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
fi
hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
hardcode_libdir_separator=:
hardcode_direct=yes
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L=yes
export_dynamic_flag_spec='${wl}-E'
;;
hpux10*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
- hardcode_libdir_flag_spec_ld='+b $libdir'
hardcode_libdir_separator=:
hardcode_direct=yes
hardcode_direct_absolute=yes
export_dynamic_flag_spec='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L=yes
fi
;;
hpux11*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
case $host_cpu in
hppa*64*)
archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
else
case $host_cpu in
hppa*64*)
archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
# Older versions of the 11.00 compiler do not understand -b yet
# (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does)
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5
$as_echo_n "checking if $CC understands -b... " >&6; }
if ${lt_cv_prog_compiler__b+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler__b=no
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -b"
echo "$lt_simple_link_test_code" > conftest.$ac_ext
if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
# The linker can only warn and ignore the option if not recognized
# So say no if there are warnings
if test -s conftest.err; then
# Append any errors to the config.log.
cat conftest.err 1>&5
$ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler__b=yes
fi
else
lt_cv_prog_compiler__b=yes
fi
fi
$RM -r conftest*
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5
$as_echo "$lt_cv_prog_compiler__b" >&6; }
if test x"$lt_cv_prog_compiler__b" = xyes; then
archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
fi
;;
esac
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
hardcode_libdir_separator=:
case $host_cpu in
hppa*64*|ia64*)
hardcode_direct=no
hardcode_shlibpath_var=no
;;
*)
hardcode_direct=yes
hardcode_direct_absolute=yes
export_dynamic_flag_spec='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L=yes
;;
esac
fi
;;
irix5* | irix6* | nonstopux*)
if test "$GCC" = yes; then
archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
# Try to use the -exported_symbol ld option, if it does not
# work, assume that -exports_file does not work either and
# implicitly export all symbols.
# This should be the same for all languages, so no per-tag cache variable.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
if ${lt_cv_irix_exported_symbol+:} false; then :
$as_echo_n "(cached) " >&6
else
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
int foo (void) { return 0; }
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
lt_cv_irix_exported_symbol=yes
else
lt_cv_irix_exported_symbol=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
$as_echo "$lt_cv_irix_exported_symbol" >&6; }
if test "$lt_cv_irix_exported_symbol" = yes; then
archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
fi
else
archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib'
fi
archive_cmds_need_lc='no'
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator=:
inherit_rpath=yes
link_all_deplibs=yes
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
else
archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
fi
hardcode_libdir_flag_spec='-R$libdir'
hardcode_direct=yes
hardcode_shlibpath_var=no
;;
newsos6)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct=yes
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator=:
hardcode_shlibpath_var=no
;;
*nto* | *qnx*)
;;
openbsd*)
if test -f /usr/libexec/ld.so; then
hardcode_direct=yes
hardcode_shlibpath_var=no
hardcode_direct_absolute=yes
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols'
hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
export_dynamic_flag_spec='${wl}-E'
else
case $host_os in
openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*)
archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec='-R$libdir'
;;
*)
archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
;;
esac
fi
else
ld_shlibs=no
fi
;;
os2*)
hardcode_libdir_flag_spec='-L$libdir'
hardcode_minus_L=yes
allow_undefined_flag=unsupported
archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
;;
osf3*)
if test "$GCC" = yes; then
allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
allow_undefined_flag=' -expect_unresolved \*'
archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
fi
archive_cmds_need_lc='no'
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator=:
;;
osf4* | osf5*) # as osf3* with the addition of -msym flag
if test "$GCC" = yes; then
allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
else
allow_undefined_flag=' -expect_unresolved \*'
archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
$CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp'
# Both c and cxx compiler support -rpath directly
hardcode_libdir_flag_spec='-rpath $libdir'
fi
archive_cmds_need_lc='no'
hardcode_libdir_separator=:
;;
solaris*)
no_undefined_flag=' -z defs'
if test "$GCC" = yes; then
wlarc='${wl}'
archive_cmds='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
else
case `$CC -V 2>&1` in
*"Compilers 5.0"*)
wlarc=''
archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
;;
*)
wlarc='${wl}'
archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
;;
esac
fi
hardcode_libdir_flag_spec='-R$libdir'
hardcode_shlibpath_var=no
case $host_os in
solaris2.[0-5] | solaris2.[0-5].*) ;;
*)
# The compiler driver will combine and reorder linker options,
# but understands `-z linker_flag'. GCC discards it without `$wl',
# but is careful enough not to reorder.
# Supported since Solaris 2.6 (maybe 2.5.1?)
if test "$GCC" = yes; then
whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
else
whole_archive_flag_spec='-z allextract$convenience -z defaultextract'
fi
;;
esac
link_all_deplibs=yes
;;
sunos4*)
if test "x$host_vendor" = xsequent; then
# Use $CC to link under sequent, because it throws in some extra .o
# files that make .init and .fini sections work.
archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
fi
hardcode_libdir_flag_spec='-L$libdir'
hardcode_direct=yes
hardcode_minus_L=yes
hardcode_shlibpath_var=no
;;
sysv4)
case $host_vendor in
sni)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct=yes # is this really true???
;;
siemens)
## LD is ld it makes a PLAMLIB
## CC just makes a GrossModule.
archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags'
reload_cmds='$CC -r -o $output$reload_objs'
hardcode_direct=no
;;
motorola)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct=no #Motorola manual says yes, but my tests say they lie
;;
esac
runpath_var='LD_RUN_PATH'
hardcode_shlibpath_var=no
;;
sysv4.3*)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var=no
export_dynamic_flag_spec='-Bexport'
;;
sysv4*MP*)
if test -d /usr/nec; then
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var=no
runpath_var=LD_RUN_PATH
hardcode_runpath_var=yes
ld_shlibs=yes
fi
;;
sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
no_undefined_flag='${wl}-z,text'
archive_cmds_need_lc=no
hardcode_shlibpath_var=no
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
sysv5* | sco3.2v5* | sco5v6*)
# Note: We can NOT use -z defs as we might desire, because we do not
# link with -lc, and that would cause any symbols used from libc to
# always be unresolved, which means just about no library would
# ever link correctly. If we're not using GNU ld we use -z text
# though, which does catch some bad symbols but isn't as heavy-handed
# as -z defs.
no_undefined_flag='${wl}-z,text'
allow_undefined_flag='${wl}-z,nodefs'
archive_cmds_need_lc=no
hardcode_shlibpath_var=no
hardcode_libdir_flag_spec='${wl}-R,$libdir'
hardcode_libdir_separator=':'
link_all_deplibs=yes
export_dynamic_flag_spec='${wl}-Bexport'
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
uts4*)
archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec='-L$libdir'
hardcode_shlibpath_var=no
;;
*)
ld_shlibs=no
;;
esac
if test x$host_vendor = xsni; then
case $host in
sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
export_dynamic_flag_spec='${wl}-Blargedynsym'
;;
esac
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5
$as_echo "$ld_shlibs" >&6; }
test "$ld_shlibs" = no && can_build_shared=no
with_gnu_ld=$with_gnu_ld
#
# Do we need to explicitly link libc?
#
case "x$archive_cmds_need_lc" in
x|xyes)
# Assume -lc should be added
archive_cmds_need_lc=yes
if test "$enable_shared" = yes && test "$GCC" = yes; then
case $archive_cmds in
*'~'*)
# FIXME: we may have to deal with multi-command sequences.
;;
'$CC '*)
# Test whether the compiler implicitly links with -lc since on some
# systems, -lgcc has to come before -lc. If gcc already passes -lc
# to ld, don't add -lc before -lgcc.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
if ${lt_cv_archive_cmds_need_lc+:} false; then :
$as_echo_n "(cached) " >&6
else
$RM conftest*
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } 2>conftest.err; then
soname=conftest
lib=conftest
libobjs=conftest.$ac_objext
deplibs=
wl=$lt_prog_compiler_wl
pic_flag=$lt_prog_compiler_pic
compiler_flags=-v
linker_flags=-v
verstring=
output_objdir=.
libname=conftest
lt_save_allow_undefined_flag=$allow_undefined_flag
allow_undefined_flag=
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
(eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
then
lt_cv_archive_cmds_need_lc=no
else
lt_cv_archive_cmds_need_lc=yes
fi
allow_undefined_flag=$lt_save_allow_undefined_flag
else
cat conftest.err 1>&5
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5
$as_echo "$lt_cv_archive_cmds_need_lc" >&6; }
archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc
;;
esac
fi
;;
esac
-
-
-
-
-
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
$as_echo_n "checking dynamic linker characteristics... " >&6; }
if test "$GCC" = yes; then
case $host_os in
darwin*) lt_awk_arg="/^libraries:/,/LR/" ;;
*) lt_awk_arg="/^libraries:/" ;;
esac
case $host_os in
mingw* | cegcc*) lt_sed_strip_eq="s,=\([A-Za-z]:\),\1,g" ;;
*) lt_sed_strip_eq="s,=/,/,g" ;;
esac
lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq`
case $lt_search_path_spec in
*\;*)
# if the path contains ";" then we assume it to be the separator
# otherwise default to the standard path separator (i.e. ":") - it is
# assumed that no part of a normal pathname contains ";" but that should
# okay in the real world where ";" in dirpaths is itself problematic.
lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'`
;;
*)
lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"`
;;
esac
# Ok, now we have the path, separated by spaces, we can step through it
# and add multilib dir if necessary.
lt_tmp_lt_search_path_spec=
lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
for lt_sys_path in $lt_search_path_spec; do
if test -d "$lt_sys_path/$lt_multi_os_dir"; then
lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir"
else
test -d "$lt_sys_path" && \
lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
fi
done
lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk '
BEGIN {RS=" "; FS="/|\n";} {
lt_foo="";
lt_count=0;
for (lt_i = NF; lt_i > 0; lt_i--) {
if ($lt_i != "" && $lt_i != ".") {
if ($lt_i == "..") {
lt_count++;
} else {
if (lt_count == 0) {
lt_foo="/" $lt_i lt_foo;
} else {
lt_count--;
}
}
}
}
if (lt_foo != "") { lt_freq[lt_foo]++; }
if (lt_freq[lt_foo] == 1) { print lt_foo; }
}'`
# AWK program above erroneously prepends '/' to C:/dos/paths
# for these hosts.
case $host_os in
mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\
$SED 's,/\([A-Za-z]:\),\1,g'` ;;
esac
sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP`
else
sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
fi
library_names_spec=
libname_spec='lib$name'
soname_spec=
shrext_cmds=".so"
postinstall_cmds=
postuninstall_cmds=
finish_cmds=
finish_eval=
shlibpath_var=
shlibpath_overrides_runpath=unknown
version_type=none
dynamic_linker="$host_os ld.so"
sys_lib_dlsearch_path_spec="/lib /usr/lib"
need_lib_prefix=unknown
hardcode_into_libs=no
# when you set need_version to no, make sure it does not cause -set_version
# flags to be left without arguments
need_version=unknown
case $host_os in
aix3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
shlibpath_var=LIBPATH
# AIX 3 has no versioning support, so we append a major version to the name.
soname_spec='${libname}${release}${shared_ext}$major'
;;
aix[4-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
hardcode_into_libs=yes
if test "$host_cpu" = ia64; then
# AIX 5 supports IA64
library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
else
# With GCC up to 2.95.x, collect2 would create an import file
# for dependence libraries. The import file would start with
# the line `#! .'. This would cause the generated library to
# depend on `.', always an invalid library. This was fixed in
# development snapshots of GCC prior to 3.0.
case $host_os in
aix4 | aix4.[01] | aix4.[01].*)
if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
echo ' yes '
echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
:
else
can_build_shared=no
fi
;;
esac
# AIX (on Power*) has no versioning support, so currently we can not hardcode correct
# soname into executable. Probably we can add versioning support to
# collect2, so additional links can be useful in future.
if test "$aix_use_runtimelinking" = yes; then
# If using run time linking (on AIX 4.2 or later) use lib<name>.so
# instead of lib<name>.a to let people know that these are not
# typical AIX shared libraries.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
else
# We preserve .a as extension for shared libraries through AIX4.2
# and later when we are not doing run time linking.
library_names_spec='${libname}${release}.a $libname.a'
soname_spec='${libname}${release}${shared_ext}$major'
fi
shlibpath_var=LIBPATH
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# Since July 2007 AmigaOS4 officially supports .so libraries.
# When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
;;
m68k)
library_names_spec='$libname.ixlibrary $libname.a'
# Create ${libname}_ixlibrary.a entries in /sys/libs.
finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
;;
esac
;;
beos*)
library_names_spec='${libname}${shared_ext}'
dynamic_linker="$host_os ld.so"
shlibpath_var=LIBRARY_PATH
;;
bsdi[45]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
# the default ld.so.conf also contains /usr/contrib/lib and
# /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
# libtool to hard-code these into programs
;;
cygwin* | mingw* | pw32* | cegcc*)
version_type=windows
shrext_cmds=".dll"
need_version=no
need_lib_prefix=no
case $GCC,$cc_basename in
yes,*)
# gcc
library_names_spec='$libname.dll.a'
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname~
chmod a+x \$dldir/$dlname~
if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
fi'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
case $host_os in
cygwin*)
# Cygwin DLLs use 'cyg' prefix rather than 'lib'
soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"
;;
mingw* | cegcc*)
# MinGW DLLs use traditional 'lib' prefix
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
pw32*)
# pw32 DLLs use 'pw' prefix rather than 'lib'
library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
esac
dynamic_linker='Win32 ld.exe'
;;
*,cl*)
# Native MSVC
libname_spec='$name'
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
library_names_spec='${libname}.dll.lib'
case $build_os in
mingw*)
sys_lib_search_path_spec=
lt_save_ifs=$IFS
IFS=';'
for lt_path in $LIB
do
IFS=$lt_save_ifs
# Let DOS variable expansion print the short 8.3 style file name.
lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
done
IFS=$lt_save_ifs
# Convert to MSYS style.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
;;
cygwin*)
# Convert to unix form, then to dos form, then back to unix form
# but this time dos style (no spaces!) so that the unix form looks
# like /cygdrive/c/PROGRA~1:/cygdr...
sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
;;
*)
sys_lib_search_path_spec="$LIB"
if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
# It is most probably a Windows format PATH.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
else
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
fi
# FIXME: find the short name or the path components, as spaces are
# common. (e.g. "Program Files" -> "PROGRA~1")
;;
esac
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
dynamic_linker='Win32 link.exe'
;;
*)
# Assume MSVC wrapper
library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib'
dynamic_linker='Win32 ld.exe'
;;
esac
# FIXME: first we should search . and the directory the executable is in
shlibpath_var=PATH
;;
darwin* | rhapsody*)
dynamic_linker="$host_os dyld"
version_type=darwin
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
soname_spec='${libname}${release}${major}$shared_ext'
shlibpath_overrides_runpath=yes
shlibpath_var=DYLD_LIBRARY_PATH
shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"
sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
;;
dgux*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
-freebsd1*)
- dynamic_linker=no
- ;;
-
freebsd* | dragonfly*)
# DragonFly does not have aout. When/if they implement a new
# versioning mechanism, adjust this.
if test -x /usr/bin/objformat; then
objformat=`/usr/bin/objformat`
else
case $host_os in
- freebsd[123]*) objformat=aout ;;
+ freebsd[23].*) objformat=aout ;;
*) objformat=elf ;;
esac
fi
version_type=freebsd-$objformat
case $version_type in
freebsd-elf*)
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
need_version=no
need_lib_prefix=no
;;
freebsd-*)
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
need_version=yes
;;
esac
shlibpath_var=LD_LIBRARY_PATH
case $host_os in
- freebsd2*)
+ freebsd2.*)
shlibpath_overrides_runpath=yes
;;
freebsd3.[01]* | freebsdelf3.[01]*)
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
*) # from 4.6 on, and DragonFly
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
esac
;;
gnu*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
haiku*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
dynamic_linker="$host_os runtime_loader"
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LIBRARY_PATH
shlibpath_overrides_runpath=yes
sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
hardcode_into_libs=yes
;;
hpux9* | hpux10* | hpux11*)
# Give a soname corresponding to the major version so that dld.sl refuses to
# link against other versions.
version_type=sunos
need_lib_prefix=no
need_version=no
case $host_cpu in
ia64*)
shrext_cmds='.so'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.so"
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
if test "X$HPUX_IA64_MODE" = X32; then
sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
else
sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
fi
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
hppa*64*)
shrext_cmds='.sl'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.sl"
shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
*)
shrext_cmds='.sl'
dynamic_linker="$host_os dld.sl"
shlibpath_var=SHLIB_PATH
shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
;;
esac
# HP-UX runs *really* slowly unless shared libraries are mode 555, ...
postinstall_cmds='chmod 555 $lib'
# or fails outright, so override atomically:
install_override_mode=555
;;
interix[3-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
irix5* | irix6* | nonstopux*)
case $host_os in
nonstopux*) version_type=nonstopux ;;
*)
if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
else
version_type=irix
fi ;;
esac
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
case $host_os in
irix5* | nonstopux*)
libsuff= shlibsuff=
;;
*)
case $LD in # libtool.m4 will add one of these switches to LD
*-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
libsuff= shlibsuff= libmagic=32-bit;;
*-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
libsuff=32 shlibsuff=N32 libmagic=N32;;
*-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
libsuff=64 shlibsuff=64 libmagic=64-bit;;
*) libsuff= shlibsuff= libmagic=never-match;;
esac
;;
esac
shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
shlibpath_overrides_runpath=no
sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
hardcode_into_libs=yes
;;
# No shared lib support for Linux oldld, aout, or coff.
linux*oldld* | linux*aout* | linux*coff*)
dynamic_linker=no
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
# Some binutils ld are patched to set DT_RUNPATH
if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_shlibpath_overrides_runpath=no
save_LDFLAGS=$LDFLAGS
save_libdir=$libdir
eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \
LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\""
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
lt_cv_shlibpath_overrides_runpath=yes
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS=$save_LDFLAGS
libdir=$save_libdir
fi
shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
# This implies no fast_install, which is unacceptable.
# Some rework will be needed to allow for fast_install
# before this can be enabled.
hardcode_into_libs=yes
# Append ld.so.conf contents to the search path
if test -f /etc/ld.so.conf; then
lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
fi
# We used to test for /lib/ld.so.1 and disable shared libraries on
# powerpc, because MkLinux only supported shared libraries with the
# GNU dynamic linker. Since this was broken with cross compilers,
# most powerpc-linux boxes support dynamic linking these days and
# people can always --disable-shared, the test was removed, and we
# assume the GNU/Linux dynamic linker is in use.
dynamic_linker='GNU/Linux ld.so'
;;
netbsd*)
version_type=sunos
need_lib_prefix=no
need_version=no
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
dynamic_linker='NetBSD (a.out) ld.so'
else
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='NetBSD ld.elf_so'
fi
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
newsos6)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
;;
*nto* | *qnx*)
version_type=qnx
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
dynamic_linker='ldqnx.so'
;;
openbsd*)
version_type=sunos
sys_lib_dlsearch_path_spec="/usr/lib"
need_lib_prefix=no
# Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
case $host_os in
openbsd3.3 | openbsd3.3.*) need_version=yes ;;
*) need_version=no ;;
esac
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
shlibpath_var=LD_LIBRARY_PATH
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
case $host_os in
openbsd2.[89] | openbsd2.[89].*)
shlibpath_overrides_runpath=no
;;
*)
shlibpath_overrides_runpath=yes
;;
esac
else
shlibpath_overrides_runpath=yes
fi
;;
os2*)
libname_spec='$name'
shrext_cmds=".dll"
need_lib_prefix=no
library_names_spec='$libname${shared_ext} $libname.a'
dynamic_linker='OS/2 ld.exe'
shlibpath_var=LIBPATH
;;
osf3* | osf4* | osf5*)
version_type=osf
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
;;
rdos*)
dynamic_linker=no
;;
solaris*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
# ldd complains unless libraries are executable
postinstall_cmds='chmod +x $lib'
;;
sunos4*)
version_type=sunos
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
if test "$with_gnu_ld" = yes; then
need_lib_prefix=no
fi
need_version=yes
;;
sysv4 | sysv4.3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
case $host_vendor in
sni)
shlibpath_overrides_runpath=no
need_lib_prefix=no
runpath_var=LD_RUN_PATH
;;
siemens)
need_lib_prefix=no
;;
motorola)
need_lib_prefix=no
need_version=no
shlibpath_overrides_runpath=no
sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
;;
esac
;;
sysv4*MP*)
if test -d /usr/nec ;then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
soname_spec='$libname${shared_ext}.$major'
shlibpath_var=LD_LIBRARY_PATH
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
version_type=freebsd-elf
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
if test "$with_gnu_ld" = yes; then
sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
else
sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
case $host_os in
sco3.2v5*)
sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
;;
esac
fi
sys_lib_dlsearch_path_spec='/usr/lib'
;;
tpf*)
# TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
uts4*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
*)
dynamic_linker=no
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
$as_echo "$dynamic_linker" >&6; }
test "$dynamic_linker" = no && can_build_shared=no
variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
if test "$GCC" = yes; then
variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
fi
if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
fi
if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
hardcode_action=
if test -n "$hardcode_libdir_flag_spec" ||
test -n "$runpath_var" ||
test "X$hardcode_automatic" = "Xyes" ; then
# We can hardcode non-existent directories.
if test "$hardcode_direct" != no &&
# If the only mechanism to avoid hardcoding is shlibpath_var, we
# have to relink, otherwise we might link with an installed library
# when we should be linking with a yet-to-be-installed one
## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no &&
test "$hardcode_minus_L" != no; then
# Linking always hardcodes the temporary library directory.
hardcode_action=relink
else
# We can link without hardcoding, and we can hardcode nonexisting dirs.
hardcode_action=immediate
fi
else
# We cannot hardcode anything, or else we can only hardcode existing
# directories.
hardcode_action=unsupported
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5
$as_echo "$hardcode_action" >&6; }
if test "$hardcode_action" = relink ||
test "$inherit_rpath" = yes; then
# Fast installation is not supported
enable_fast_install=no
elif test "$shlibpath_overrides_runpath" = yes ||
test "$enable_shared" = no; then
# Fast installation is not necessary
enable_fast_install=needless
fi
if test "x$enable_dlopen" != xyes; then
enable_dlopen=unknown
enable_dlopen_self=unknown
enable_dlopen_self_static=unknown
else
lt_cv_dlopen=no
lt_cv_dlopen_libs=
case $host_os in
beos*)
lt_cv_dlopen="load_add_on"
lt_cv_dlopen_libs=
lt_cv_dlopen_self=yes
;;
mingw* | pw32* | cegcc*)
lt_cv_dlopen="LoadLibrary"
lt_cv_dlopen_libs=
;;
cygwin*)
lt_cv_dlopen="dlopen"
lt_cv_dlopen_libs=
;;
darwin*)
# if libdl is installed we need to link against it
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
$as_echo_n "checking for dlopen in -ldl... " >&6; }
if ${ac_cv_lib_dl_dlopen+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-ldl $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char dlopen ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return dlopen ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_dl_dlopen=yes
else
ac_cv_lib_dl_dlopen=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"
else
lt_cv_dlopen="dyld"
lt_cv_dlopen_libs=
lt_cv_dlopen_self=yes
fi
;;
*)
ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load"
if test "x$ac_cv_func_shl_load" = xyes; then :
lt_cv_dlopen="shl_load"
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5
$as_echo_n "checking for shl_load in -ldld... " >&6; }
if ${ac_cv_lib_dld_shl_load+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-ldld $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char shl_load ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return shl_load ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_dld_shl_load=yes
else
ac_cv_lib_dld_shl_load=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5
$as_echo "$ac_cv_lib_dld_shl_load" >&6; }
if test "x$ac_cv_lib_dld_shl_load" = xyes; then :
lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"
else
ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen"
if test "x$ac_cv_func_dlopen" = xyes; then :
lt_cv_dlopen="dlopen"
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
$as_echo_n "checking for dlopen in -ldl... " >&6; }
if ${ac_cv_lib_dl_dlopen+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-ldl $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char dlopen ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return dlopen ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_dl_dlopen=yes
else
ac_cv_lib_dl_dlopen=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
if test "x$ac_cv_lib_dl_dlopen" = xyes; then :
lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5
$as_echo_n "checking for dlopen in -lsvld... " >&6; }
if ${ac_cv_lib_svld_dlopen+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-lsvld $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char dlopen ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return dlopen ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_svld_dlopen=yes
else
ac_cv_lib_svld_dlopen=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5
$as_echo "$ac_cv_lib_svld_dlopen" >&6; }
if test "x$ac_cv_lib_svld_dlopen" = xyes; then :
lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5
$as_echo_n "checking for dld_link in -ldld... " >&6; }
if ${ac_cv_lib_dld_dld_link+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-ldld $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char dld_link ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return dld_link ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_dld_dld_link=yes
else
ac_cv_lib_dld_dld_link=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5
$as_echo "$ac_cv_lib_dld_dld_link" >&6; }
if test "x$ac_cv_lib_dld_dld_link" = xyes; then :
lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"
fi
fi
fi
fi
fi
fi
;;
esac
if test "x$lt_cv_dlopen" != xno; then
enable_dlopen=yes
else
enable_dlopen=no
fi
case $lt_cv_dlopen in
dlopen)
save_CPPFLAGS="$CPPFLAGS"
test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
save_LDFLAGS="$LDFLAGS"
wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
save_LIBS="$LIBS"
LIBS="$lt_cv_dlopen_libs $LIBS"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5
$as_echo_n "checking whether a program can dlopen itself... " >&6; }
if ${lt_cv_dlopen_self+:} false; then :
$as_echo_n "(cached) " >&6
else
if test "$cross_compiling" = yes; then :
lt_cv_dlopen_self=cross
else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
#line $LINENO "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
#include <dlfcn.h>
#endif
#include <stdio.h>
#ifdef RTLD_GLOBAL
# define LT_DLGLOBAL RTLD_GLOBAL
#else
# ifdef DL_GLOBAL
# define LT_DLGLOBAL DL_GLOBAL
# else
# define LT_DLGLOBAL 0
# endif
#endif
/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
find out it does not work in some platform. */
#ifndef LT_DLLAZY_OR_NOW
# ifdef RTLD_LAZY
# define LT_DLLAZY_OR_NOW RTLD_LAZY
# else
# ifdef DL_LAZY
# define LT_DLLAZY_OR_NOW DL_LAZY
# else
# ifdef RTLD_NOW
# define LT_DLLAZY_OR_NOW RTLD_NOW
# else
# ifdef DL_NOW
# define LT_DLLAZY_OR_NOW DL_NOW
# else
# define LT_DLLAZY_OR_NOW 0
# endif
# endif
# endif
# endif
#endif
/* When -fvisbility=hidden is used, assume the code has been annotated
correspondingly for the symbols needed. */
#if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
int fnord () __attribute__((visibility("default")));
#endif
int fnord () { return 42; }
int main ()
{
void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
int status = $lt_dlunknown;
if (self)
{
if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
else
{
if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
else puts (dlerror ());
}
/* dlclose (self); */
}
else
puts (dlerror ());
return status;
}
_LT_EOF
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
(eval $ac_link) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then
(./conftest; exit; ) >&5 2>/dev/null
lt_status=$?
case x$lt_status in
x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;;
x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;;
x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;;
esac
else :
# compilation failed
lt_cv_dlopen_self=no
fi
fi
rm -fr conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5
$as_echo "$lt_cv_dlopen_self" >&6; }
if test "x$lt_cv_dlopen_self" = xyes; then
wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5
$as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; }
if ${lt_cv_dlopen_self_static+:} false; then :
$as_echo_n "(cached) " >&6
else
if test "$cross_compiling" = yes; then :
lt_cv_dlopen_self_static=cross
else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
#line $LINENO "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
#include <dlfcn.h>
#endif
#include <stdio.h>
#ifdef RTLD_GLOBAL
# define LT_DLGLOBAL RTLD_GLOBAL
#else
# ifdef DL_GLOBAL
# define LT_DLGLOBAL DL_GLOBAL
# else
# define LT_DLGLOBAL 0
# endif
#endif
/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
find out it does not work in some platform. */
#ifndef LT_DLLAZY_OR_NOW
# ifdef RTLD_LAZY
# define LT_DLLAZY_OR_NOW RTLD_LAZY
# else
# ifdef DL_LAZY
# define LT_DLLAZY_OR_NOW DL_LAZY
# else
# ifdef RTLD_NOW
# define LT_DLLAZY_OR_NOW RTLD_NOW
# else
# ifdef DL_NOW
# define LT_DLLAZY_OR_NOW DL_NOW
# else
# define LT_DLLAZY_OR_NOW 0
# endif
# endif
# endif
# endif
#endif
/* When -fvisbility=hidden is used, assume the code has been annotated
correspondingly for the symbols needed. */
#if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
int fnord () __attribute__((visibility("default")));
#endif
int fnord () { return 42; }
int main ()
{
void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
int status = $lt_dlunknown;
if (self)
{
if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
else
{
if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
else puts (dlerror ());
}
/* dlclose (self); */
}
else
puts (dlerror ());
return status;
}
_LT_EOF
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
(eval $ac_link) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then
(./conftest; exit; ) >&5 2>/dev/null
lt_status=$?
case x$lt_status in
x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;;
x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;;
x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;;
esac
else :
# compilation failed
lt_cv_dlopen_self_static=no
fi
fi
rm -fr conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5
$as_echo "$lt_cv_dlopen_self_static" >&6; }
fi
CPPFLAGS="$save_CPPFLAGS"
LDFLAGS="$save_LDFLAGS"
LIBS="$save_LIBS"
;;
esac
case $lt_cv_dlopen_self in
yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
*) enable_dlopen_self=unknown ;;
esac
case $lt_cv_dlopen_self_static in
yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
*) enable_dlopen_self_static=unknown ;;
esac
fi
striplib=
old_striplib=
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5
$as_echo_n "checking whether stripping libraries is possible... " >&6; }
if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
test -z "$striplib" && striplib="$STRIP --strip-unneeded"
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
else
# FIXME - insert some real tests, host_os isn't really good enough
case $host_os in
darwin*)
if test -n "$STRIP" ; then
striplib="$STRIP -x"
old_striplib="$STRIP -S"
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
fi
;;
*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
;;
esac
fi
# Report which library types will actually be built
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
$as_echo_n "checking if libtool supports shared libraries... " >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
$as_echo "$can_build_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
$as_echo_n "checking whether to build shared libraries... " >&6; }
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[4-9]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
$as_echo "$enable_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
$as_echo_n "checking whether to build static libraries... " >&6; }
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
$as_echo "$enable_static" >&6; }
fi
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
CC="$lt_save_CC"
ac_ext=f
ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5'
ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_f77_compiler_gnu
if test -z "$F77" || test "X$F77" = "Xno"; then
_lt_disable_F77=yes
fi
archive_cmds_need_lc_F77=no
allow_undefined_flag_F77=
always_export_symbols_F77=no
archive_expsym_cmds_F77=
export_dynamic_flag_spec_F77=
hardcode_direct_F77=no
hardcode_direct_absolute_F77=no
hardcode_libdir_flag_spec_F77=
-hardcode_libdir_flag_spec_ld_F77=
hardcode_libdir_separator_F77=
hardcode_minus_L_F77=no
hardcode_automatic_F77=no
inherit_rpath_F77=no
module_cmds_F77=
module_expsym_cmds_F77=
link_all_deplibs_F77=unknown
old_archive_cmds_F77=$old_archive_cmds
reload_flag_F77=$reload_flag
reload_cmds_F77=$reload_cmds
no_undefined_flag_F77=
whole_archive_flag_spec_F77=
enable_shared_with_static_runtimes_F77=no
# Source file extension for f77 test sources.
ac_ext=f
# Object file extension for compiled f77 test sources.
objext=o
objext_F77=$objext
# No sense in running all these tests if we already determined that
# the F77 compiler isn't working. Some variables (like enable_shared)
# are currently assumed to apply to all compilers on this platform,
# and will be corrupted by setting them based on a non-working compiler.
if test "$_lt_disable_F77" != yes; then
# Code to be used in simple compile tests
lt_simple_compile_test_code="\
subroutine t
return
end
"
# Code to be used in simple link tests
lt_simple_link_test_code="\
program t
end
"
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
# If no C compiler was specified, use CC.
LTCC=${LTCC-"$CC"}
# If no C compiler flags were specified, use CFLAGS.
LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
# Allow CC to be a program name with arguments.
compiler=$CC
# save warnings/boilerplate of simple test code
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" >conftest.$ac_ext
eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_compiler_boilerplate=`cat conftest.err`
$RM conftest*
ac_outfile=conftest.$ac_objext
echo "$lt_simple_link_test_code" >conftest.$ac_ext
eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_linker_boilerplate=`cat conftest.err`
$RM -r conftest*
# Allow CC to be a program name with arguments.
lt_save_CC="$CC"
lt_save_GCC=$GCC
lt_save_CFLAGS=$CFLAGS
CC=${F77-"f77"}
CFLAGS=$FFLAGS
compiler=$CC
compiler_F77=$CC
for cc_temp in $compiler""; do
case $cc_temp in
compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
\-*) ;;
*) break;;
esac
done
cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
GCC=$G77
if test -n "$compiler"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
$as_echo_n "checking if libtool supports shared libraries... " >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
$as_echo "$can_build_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
$as_echo_n "checking whether to build shared libraries... " >&6; }
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[4-9]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
$as_echo "$enable_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
$as_echo_n "checking whether to build static libraries... " >&6; }
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
$as_echo "$enable_static" >&6; }
GCC_F77="$G77"
LD_F77="$LD"
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
lt_prog_compiler_wl_F77=
lt_prog_compiler_pic_F77=
lt_prog_compiler_static_F77=
if test "$GCC" = yes; then
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_static_F77='-static'
case $host_os in
aix*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static_F77='-Bstatic'
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
lt_prog_compiler_pic_F77='-fPIC'
;;
m68k)
# FIXME: we need at least 68020 code to build shared libraries, but
# adding the `-m68020' flag to GCC prevents building anything better,
# like `-m68040'.
lt_prog_compiler_pic_F77='-m68020 -resident32 -malways-restore-a4'
;;
esac
;;
beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
# PIC is the default for these OSes.
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
# Although the cygwin gcc ignores -fPIC, still need this for old-style
# (--disable-auto-import) libraries
lt_prog_compiler_pic_F77='-DDLL_EXPORT'
;;
darwin* | rhapsody*)
# PIC is the default on this platform
# Common symbols not allowed in MH_DYLIB files
lt_prog_compiler_pic_F77='-fno-common'
;;
haiku*)
# PIC is the default for Haiku.
# The "-static" flag exists, but is broken.
lt_prog_compiler_static_F77=
;;
hpux*)
# PIC is the default for 64-bit PA HP-UX, but not for 32-bit
# PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
# sets the default TLS model and affects inlining.
case $host_cpu in
hppa*64*)
# +Z the default
;;
*)
lt_prog_compiler_pic_F77='-fPIC'
;;
esac
;;
interix[3-9]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
msdosdjgpp*)
# Just because we use GCC doesn't mean we suddenly get shared libraries
# on systems that don't support them.
lt_prog_compiler_can_build_shared_F77=no
enable_shared=no
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic_F77='-fPIC -shared'
;;
sysv4*MP*)
if test -d /usr/nec; then
lt_prog_compiler_pic_F77=-Kconform_pic
fi
;;
*)
lt_prog_compiler_pic_F77='-fPIC'
;;
esac
case $cc_basename in
nvcc*) # Cuda Compiler Driver 2.2
lt_prog_compiler_wl_F77='-Xlinker '
- lt_prog_compiler_pic_F77='-Xcompiler -fPIC'
+ if test -n "$lt_prog_compiler_pic_F77"; then
+ lt_prog_compiler_pic_F77="-Xcompiler $lt_prog_compiler_pic_F77"
+ fi
;;
esac
else
# PORTME Check for flag to pass linker flags through the system compiler.
case $host_os in
aix*)
lt_prog_compiler_wl_F77='-Wl,'
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static_F77='-Bstatic'
else
lt_prog_compiler_static_F77='-bnso -bI:/lib/syscalls.exp'
fi
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
lt_prog_compiler_pic_F77='-DDLL_EXPORT'
;;
hpux9* | hpux10* | hpux11*)
lt_prog_compiler_wl_F77='-Wl,'
# PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
# not for PA HP-UX.
case $host_cpu in
hppa*64*|ia64*)
# +Z the default
;;
*)
lt_prog_compiler_pic_F77='+Z'
;;
esac
# Is there a better lt_prog_compiler_static that works with the bundled CC?
lt_prog_compiler_static_F77='${wl}-a ${wl}archive'
;;
irix5* | irix6* | nonstopux*)
lt_prog_compiler_wl_F77='-Wl,'
# PIC (with -KPIC) is the default.
lt_prog_compiler_static_F77='-non_shared'
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
# old Intel for x86_64 which still supported -KPIC.
ecc*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-static'
;;
# icc used to be incompatible with GCC.
# ICC 10 doesn't accept -KPIC any more.
icc* | ifort*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-fPIC'
lt_prog_compiler_static_F77='-static'
;;
# Lahey Fortran 8.1.
lf95*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='--shared'
lt_prog_compiler_static_F77='--static'
;;
nagfor*)
# NAG Fortran compiler
lt_prog_compiler_wl_F77='-Wl,-Wl,,'
lt_prog_compiler_pic_F77='-PIC'
lt_prog_compiler_static_F77='-Bstatic'
;;
pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group compilers (*not* the Pentium gcc compiler,
# which looks to be a dead project)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-fpic'
lt_prog_compiler_static_F77='-Bstatic'
;;
ccc*)
lt_prog_compiler_wl_F77='-Wl,'
# All Alpha code is PIC.
lt_prog_compiler_static_F77='-non_shared'
;;
xl* | bgxl* | bgf* | mpixl*)
# IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-qpic'
lt_prog_compiler_static_F77='-qstaticlink'
;;
*)
case `$CC -V 2>&1 | sed 5q` in
- *Sun\ F* | *Sun*Fortran*)
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
# Sun Fortran 8.3 passes all unrecognized flags to the linker
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
lt_prog_compiler_wl_F77=''
;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic_F77='-KPIC'
+ lt_prog_compiler_static_F77='-Bstatic'
+ lt_prog_compiler_wl_F77='-Qoption ld '
+ ;;
*Sun\ C*)
# Sun C 5.9
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
lt_prog_compiler_wl_F77='-Wl,'
;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fPIC'
+ lt_prog_compiler_static_F77='-static'
+ ;;
+ *Portland\ Group*)
+ lt_prog_compiler_wl_F77='-Wl,'
+ lt_prog_compiler_pic_F77='-fpic'
+ lt_prog_compiler_static_F77='-Bstatic'
+ ;;
esac
;;
esac
;;
newsos6)
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic_F77='-fPIC -shared'
;;
osf3* | osf4* | osf5*)
lt_prog_compiler_wl_F77='-Wl,'
# All OSF/1 code is PIC.
lt_prog_compiler_static_F77='-non_shared'
;;
rdos*)
lt_prog_compiler_static_F77='-non_shared'
;;
solaris*)
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
case $cc_basename in
f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
lt_prog_compiler_wl_F77='-Qoption ld ';;
*)
lt_prog_compiler_wl_F77='-Wl,';;
esac
;;
sunos4*)
lt_prog_compiler_wl_F77='-Qoption ld '
lt_prog_compiler_pic_F77='-PIC'
lt_prog_compiler_static_F77='-Bstatic'
;;
sysv4 | sysv4.2uw2* | sysv4.3*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
;;
sysv4*MP*)
if test -d /usr/nec ;then
lt_prog_compiler_pic_F77='-Kconform_pic'
lt_prog_compiler_static_F77='-Bstatic'
fi
;;
sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_pic_F77='-KPIC'
lt_prog_compiler_static_F77='-Bstatic'
;;
unicos*)
lt_prog_compiler_wl_F77='-Wl,'
lt_prog_compiler_can_build_shared_F77=no
;;
uts4*)
lt_prog_compiler_pic_F77='-pic'
lt_prog_compiler_static_F77='-Bstatic'
;;
*)
lt_prog_compiler_can_build_shared_F77=no
;;
esac
fi
case $host_os in
# For platforms which do not support PIC, -DPIC is meaningless:
*djgpp*)
lt_prog_compiler_pic_F77=
;;
*)
lt_prog_compiler_pic_F77="$lt_prog_compiler_pic_F77"
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
if ${lt_cv_prog_compiler_pic_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic_F77=$lt_prog_compiler_pic_F77
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_F77" >&5
$as_echo "$lt_cv_prog_compiler_pic_F77" >&6; }
lt_prog_compiler_pic_F77=$lt_cv_prog_compiler_pic_F77
#
# Check to make sure the PIC flag actually works.
#
if test -n "$lt_prog_compiler_pic_F77"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works" >&5
$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works... " >&6; }
if ${lt_cv_prog_compiler_pic_works_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic_works_F77=no
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="$lt_prog_compiler_pic_F77"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
# The option is referenced via a variable to avoid confusing sed.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_pic_works_F77=yes
fi
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_F77" >&5
$as_echo "$lt_cv_prog_compiler_pic_works_F77" >&6; }
if test x"$lt_cv_prog_compiler_pic_works_F77" = xyes; then
case $lt_prog_compiler_pic_F77 in
"" | " "*) ;;
*) lt_prog_compiler_pic_F77=" $lt_prog_compiler_pic_F77" ;;
esac
else
lt_prog_compiler_pic_F77=
lt_prog_compiler_can_build_shared_F77=no
fi
fi
#
# Check to make sure the static flag actually works.
#
wl=$lt_prog_compiler_wl_F77 eval lt_tmp_static_flag=\"$lt_prog_compiler_static_F77\"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
if ${lt_cv_prog_compiler_static_works_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_static_works_F77=no
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
echo "$lt_simple_link_test_code" > conftest.$ac_ext
if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
# The linker can only warn and ignore the option if not recognized
# So say no if there are warnings
if test -s conftest.err; then
# Append any errors to the config.log.
cat conftest.err 1>&5
$ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_static_works_F77=yes
fi
else
lt_cv_prog_compiler_static_works_F77=yes
fi
fi
$RM -r conftest*
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_F77" >&5
$as_echo "$lt_cv_prog_compiler_static_works_F77" >&6; }
if test x"$lt_cv_prog_compiler_static_works_F77" = xyes; then
:
else
lt_prog_compiler_static_F77=
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o_F77=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o_F77=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_F77" >&5
$as_echo "$lt_cv_prog_compiler_c_o_F77" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o_F77=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o_F77=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_F77" >&5
$as_echo "$lt_cv_prog_compiler_c_o_F77" >&6; }
hard_links="nottested"
if test "$lt_cv_prog_compiler_c_o_F77" = no && test "$need_locks" != no; then
# do not overwrite the value of need_locks provided by the user
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
$as_echo_n "checking if we can lock with hard links... " >&6; }
hard_links=yes
$RM conftest*
ln conftest.a conftest.b 2>/dev/null && hard_links=no
touch conftest.a
ln conftest.a conftest.b 2>&5 || hard_links=no
ln conftest.a conftest.b 2>/dev/null && hard_links=no
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
$as_echo "$hard_links" >&6; }
if test "$hard_links" = no; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5
$as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;}
need_locks=warn
fi
else
need_locks=no
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
runpath_var=
allow_undefined_flag_F77=
always_export_symbols_F77=no
archive_cmds_F77=
archive_expsym_cmds_F77=
compiler_needs_object_F77=no
enable_shared_with_static_runtimes_F77=no
export_dynamic_flag_spec_F77=
export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
hardcode_automatic_F77=no
hardcode_direct_F77=no
hardcode_direct_absolute_F77=no
hardcode_libdir_flag_spec_F77=
- hardcode_libdir_flag_spec_ld_F77=
hardcode_libdir_separator_F77=
hardcode_minus_L_F77=no
hardcode_shlibpath_var_F77=unsupported
inherit_rpath_F77=no
link_all_deplibs_F77=unknown
module_cmds_F77=
module_expsym_cmds_F77=
old_archive_from_new_cmds_F77=
old_archive_from_expsyms_cmds_F77=
thread_safe_flag_spec_F77=
whole_archive_flag_spec_F77=
# include_expsyms should be a list of space-separated symbols to be *always*
# included in the symbol list
include_expsyms_F77=
# exclude_expsyms can be an extended regexp of symbols to exclude
# it will be wrapped by ` (' and `)$', so one must not match beginning or
# end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
# as well as any symbol that contains `d'.
exclude_expsyms_F77='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
# Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
# platforms (ab)use it in PIC code, but their linkers get confused if
# the symbol is explicitly referenced. Since portable code cannot
# rely on this symbol name, it's probably fine to never include it in
# preloaded symbol tables.
# Exclude shared library initialization/finalization symbols.
extract_expsyms_cmds=
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# FIXME: the MSVC++ port hasn't been tested in a loooong time
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
if test "$GCC" != yes; then
with_gnu_ld=no
fi
;;
interix*)
# we just hope/assume this is gcc and not c89 (= MSVC++)
with_gnu_ld=yes
;;
openbsd*)
with_gnu_ld=no
;;
esac
ld_shlibs_F77=yes
# On some targets, GNU ld is compatible enough with the native linker
# that we're better off using the native interface for both.
lt_use_gnu_ld_interface=no
if test "$with_gnu_ld" = yes; then
case $host_os in
aix*)
# The AIX port of GNU ld has always aspired to compatibility
# with the native linker. However, as the warning in the GNU ld
# block says, versions before 2.19.5* couldn't really create working
# shared libraries, regardless of the interface used.
case `$LD -v 2>&1` in
*\ \(GNU\ Binutils\)\ 2.19.5*) ;;
*\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
*\ \(GNU\ Binutils\)\ [3-9]*) ;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
fi
if test "$lt_use_gnu_ld_interface" = yes; then
# If archive_cmds runs LD, not CC, wlarc should be empty
wlarc='${wl}'
# Set some defaults for GNU ld with shared library support. These
# are reset later if shared libraries are not supported. Putting them
# here allows them to be overridden if necessary.
runpath_var=LD_RUN_PATH
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
export_dynamic_flag_spec_F77='${wl}--export-dynamic'
# ancient GNU ld didn't support --whole-archive et. al.
if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
whole_archive_flag_spec_F77="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
else
whole_archive_flag_spec_F77=
fi
supports_anon_versioning=no
case `$LD -v 2>&1` in
*GNU\ gold*) supports_anon_versioning=yes ;;
*\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
*\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
*\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
*\ 2.11.*) ;; # other 2.11 versions
*) supports_anon_versioning=yes ;;
esac
# See if GNU ld supports shared libraries.
case $host_os in
aix[3-9]*)
# On AIX/PPC, the GNU linker is very broken
if test "$host_cpu" != ia64; then
ld_shlibs_F77=no
cat <<_LT_EOF 1>&2
*** Warning: the GNU linker, at least up to release 2.19, is reported
*** to be unable to reliably create shared libraries on AIX.
*** Therefore, libtool is disabling shared libraries support. If you
*** really care for shared libraries, you may want to install binutils
*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
*** You will then need to restart the configuration process.
_LT_EOF
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77=''
;;
m68k)
archive_cmds_F77='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_minus_L_F77=yes
;;
esac
;;
beos*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
allow_undefined_flag_F77=unsupported
# Joseph Beckenbach <jrb3@best.com> says some releases of gcc
# support --undefined. This deserves some investigation. FIXME
archive_cmds_F77='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
else
ld_shlibs_F77=no
fi
;;
cygwin* | mingw* | pw32* | cegcc*)
# _LT_TAGVAR(hardcode_libdir_flag_spec, F77) is actually meaningless,
# as there is no search path for DLLs.
hardcode_libdir_flag_spec_F77='-L$libdir'
export_dynamic_flag_spec_F77='${wl}--export-all-symbols'
allow_undefined_flag_F77=unsupported
always_export_symbols_F77=no
enable_shared_with_static_runtimes_F77=yes
export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
exclude_expsyms_F77='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
# If the export-symbols file already is a .def file (1st line
# is EXPORTS), use it as is; otherwise, prepend...
archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
cp $export_symbols $output_objdir/$soname.def;
else
echo EXPORTS > $output_objdir/$soname.def;
cat $export_symbols >> $output_objdir/$soname.def;
fi~
$CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
else
ld_shlibs_F77=no
fi
;;
haiku*)
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
link_all_deplibs_F77=yes
;;
interix[3-9]*)
hardcode_direct_F77=no
hardcode_shlibpath_var_F77=no
hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir'
export_dynamic_flag_spec_F77='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
archive_expsym_cmds_F77='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
;;
gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
tmp_diet=no
if test "$host_os" = linux-dietlibc; then
case $cc_basename in
diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
esac
fi
if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
&& test "$tmp_diet" = no
then
tmp_addflag=' $pic_flag'
tmp_sharedflag='-shared'
case $cc_basename,$host_cpu in
pgcc*) # Portland Group C compiler
whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag'
;;
pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group f77 and f90 compilers
whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag -Mnomain' ;;
ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
tmp_addflag=' -i_dynamic' ;;
efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
tmp_addflag=' -i_dynamic -nofor_main' ;;
ifc* | ifort*) # Intel Fortran compiler
tmp_addflag=' -nofor_main' ;;
lf95*) # Lahey Fortran 8.1
whole_archive_flag_spec_F77=
tmp_sharedflag='--shared' ;;
xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
tmp_sharedflag='-qmkshrobj'
tmp_addflag= ;;
nvcc*) # Cuda Compiler Driver 2.2
whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object_F77=yes
;;
esac
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*) # Sun C 5.9
whole_archive_flag_spec_F77='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object_F77=yes
tmp_sharedflag='-G' ;;
*Sun\ F*) # Sun Fortran 8.3
tmp_sharedflag='-G' ;;
esac
archive_cmds_F77='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds_F77='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
fi
case $cc_basename in
xlf* | bgf* | bgxlf* | mpixlf*)
# IBM XL Fortran 10.1 on PPC cannot create shared libs itself
whole_archive_flag_spec_F77='--whole-archive$convenience --no-whole-archive'
- hardcode_libdir_flag_spec_F77=
- hardcode_libdir_flag_spec_ld_F77='-rpath $libdir'
+ hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
archive_cmds_F77='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds_F77='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
fi
;;
esac
else
ld_shlibs_F77=no
fi
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds_F77='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
wlarc=
else
archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
fi
;;
solaris*)
if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
ld_shlibs_F77=no
cat <<_LT_EOF 1>&2
*** Warning: The releases 2.8.* of the GNU linker cannot reliably
*** create shared libraries on Solaris systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.9.1 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_F77=no
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
case `$LD -v 2>&1` in
*\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
ld_shlibs_F77=no
cat <<_LT_EOF 1>&2
*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not
*** reliably create shared libraries on SCO systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
;;
*)
# For security reasons, it is highly recommended that you always
# use absolute paths for naming shared libraries, and exclude the
# DT_RUNPATH tag from executables and libraries. But doing so
# requires that you compile everything twice, which is a pain.
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_F77=no
fi
;;
esac
;;
sunos4*)
archive_cmds_F77='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
wlarc=
hardcode_direct_F77=yes
hardcode_shlibpath_var_F77=no
;;
*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_F77=no
fi
;;
esac
if test "$ld_shlibs_F77" = no; then
runpath_var=
hardcode_libdir_flag_spec_F77=
export_dynamic_flag_spec_F77=
whole_archive_flag_spec_F77=
fi
else
# PORTME fill in a description of your system's linker (not GNU ld)
case $host_os in
aix3*)
allow_undefined_flag_F77=unsupported
always_export_symbols_F77=yes
archive_expsym_cmds_F77='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
# Note: this linker hardcodes the directories in LIBPATH if there
# are no directories specified by -L.
hardcode_minus_L_F77=yes
if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then
# Neither direct hardcoding nor static linking is supported with a
# broken collect2.
hardcode_direct_F77=unsupported
fi
;;
aix[4-9]*)
if test "$host_cpu" = ia64; then
# On IA64, the linker does run time linking by default, so we don't
# have to do anything special.
aix_use_runtimelinking=no
exp_sym_flag='-Bexport'
no_entry_flag=""
else
# If we're using GNU nm, then we don't want the "-C" option.
# -C means demangle to AIX nm, but means don't demangle with GNU nm
# Also, AIX nm treats weak defined symbols like other global
# defined symbols, whereas GNU nm marks them as "W".
if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
export_symbols_cmds_F77='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
else
export_symbols_cmds_F77='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
fi
aix_use_runtimelinking=no
# Test if we are trying to use run time linking or normal
# AIX style linking. If -brtl is somewhere in LDFLAGS, we
# need to do runtime linking.
case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
for ld_flag in $LDFLAGS; do
if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
aix_use_runtimelinking=yes
break
fi
done
;;
esac
exp_sym_flag='-bexport'
no_entry_flag='-bnoentry'
fi
# When large executables or shared objects are built, AIX ld can
# have problems creating the table of contents. If linking a library
# or program results in "error TOC overflow" add -mminimal-toc to
# CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
# enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
archive_cmds_F77=''
hardcode_direct_F77=yes
hardcode_direct_absolute_F77=yes
hardcode_libdir_separator_F77=':'
link_all_deplibs_F77=yes
file_list_spec_F77='${wl}-f,'
if test "$GCC" = yes; then
case $host_os in aix4.[012]|aix4.[012].*)
# We only want to do this on AIX 4.2 and lower, the check
# below for broken collect2 doesn't work under 4.3+
collect2name=`${CC} -print-prog-name=collect2`
if test -f "$collect2name" &&
strings "$collect2name" | $GREP resolve_lib_name >/dev/null
then
# We have reworked collect2
:
else
# We have old collect2
hardcode_direct_F77=unsupported
# It fails to find uninstalled libraries when the uninstalled
# path is not listed in the libpath. Setting hardcode_minus_L
# to unsupported forces relinking
hardcode_minus_L_F77=yes
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_libdir_separator_F77=
fi
;;
esac
shared_flag='-shared'
if test "$aix_use_runtimelinking" = yes; then
shared_flag="$shared_flag "'${wl}-G'
fi
else
# not using gcc
if test "$host_cpu" = ia64; then
# VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
# chokes on -Wl,-G. The following line is correct:
shared_flag='-G'
else
if test "$aix_use_runtimelinking" = yes; then
shared_flag='${wl}-G'
else
shared_flag='${wl}-bM:SRE'
fi
fi
fi
export_dynamic_flag_spec_F77='${wl}-bexpall'
# It seems that -bexpall does not export symbols beginning with
# underscore (_), so it is better to generate a list of symbols to export.
always_export_symbols_F77=yes
if test "$aix_use_runtimelinking" = yes; then
# Warning - without using the other runtime loading flags (-brtl),
# -berok will link without error, but may produce a broken library.
allow_undefined_flag_F77='-berok'
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath__F77+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_f77_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath__F77=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath__F77"; then
lt_cv_aix_libpath__F77=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath__F77"; then
lt_cv_aix_libpath__F77="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath__F77
fi
hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath"
archive_expsym_cmds_F77='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
else
if test "$host_cpu" = ia64; then
hardcode_libdir_flag_spec_F77='${wl}-R $libdir:/usr/lib:/lib'
allow_undefined_flag_F77="-z nodefs"
archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
else
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath__F77+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_f77_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath__F77=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath__F77"; then
lt_cv_aix_libpath__F77=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath__F77"; then
lt_cv_aix_libpath__F77="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath__F77
fi
hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath"
# Warning - without using the other run time loading flags,
# -berok will link without error, but may produce a broken library.
no_undefined_flag_F77=' ${wl}-bernotok'
allow_undefined_flag_F77=' ${wl}-berok'
if test "$with_gnu_ld" = yes; then
# We only use this code for GNU lds that support --whole-archive.
whole_archive_flag_spec_F77='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
else
# Exported symbols can be pulled into shared objects from archives
whole_archive_flag_spec_F77='$convenience'
fi
archive_cmds_need_lc_F77=yes
# This is similar to how AIX traditionally builds its shared libraries.
archive_expsym_cmds_F77="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
fi
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_F77=''
;;
m68k)
archive_cmds_F77='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_minus_L_F77=yes
;;
esac
;;
bsdi[45]*)
export_dynamic_flag_spec_F77=-rdynamic
;;
cygwin* | mingw* | pw32* | cegcc*)
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
# hardcode_libdir_flag_spec is actually meaningless, as there is
# no search path for DLLs.
case $cc_basename in
cl*)
# Native MSVC
hardcode_libdir_flag_spec_F77=' '
allow_undefined_flag_F77=unsupported
always_export_symbols_F77=yes
file_list_spec_F77='@'
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds_F77='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames='
archive_expsym_cmds_F77='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp;
else
sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp;
fi~
$CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
linknames='
# The linker will not automatically build a static lib if we build a DLL.
# _LT_TAGVAR(old_archive_from_new_cmds, F77)='true'
enable_shared_with_static_runtimes_F77=yes
+ exclude_expsyms_F77='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
# Don't use ranlib
old_postinstall_cmds_F77='chmod 644 $oldlib'
postlink_cmds_F77='lt_outputfile="@OUTPUT@"~
lt_tool_outputfile="@TOOL_OUTPUT@"~
case $lt_outputfile in
*.exe|*.EXE) ;;
*)
lt_outputfile="$lt_outputfile.exe"
lt_tool_outputfile="$lt_tool_outputfile.exe"
;;
esac~
if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then
$MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
$RM "$lt_outputfile.manifest";
fi'
;;
*)
# Assume MSVC wrapper
hardcode_libdir_flag_spec_F77=' '
allow_undefined_flag_F77=unsupported
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds_F77='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
# The linker will automatically build a .lib file if we build a DLL.
old_archive_from_new_cmds_F77='true'
# FIXME: Should let the user specify the lib program.
old_archive_cmds_F77='lib -OUT:$oldlib$oldobjs$old_deplibs'
enable_shared_with_static_runtimes_F77=yes
;;
esac
;;
darwin* | rhapsody*)
archive_cmds_need_lc_F77=no
hardcode_direct_F77=no
hardcode_automatic_F77=yes
hardcode_shlibpath_var_F77=unsupported
if test "$lt_cv_ld_force_load" = "yes"; then
whole_archive_flag_spec_F77='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ compiler_needs_object_F77=yes
else
whole_archive_flag_spec_F77=''
fi
link_all_deplibs_F77=yes
allow_undefined_flag_F77="$_lt_dar_allow_undefined"
case $cc_basename in
ifort*) _lt_dar_can_shared=yes ;;
*) _lt_dar_can_shared=$GCC ;;
esac
if test "$_lt_dar_can_shared" = "yes"; then
output_verbose_link_cmd=func_echo_all
archive_cmds_F77="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
module_cmds_F77="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
archive_expsym_cmds_F77="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
module_expsym_cmds_F77="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
else
ld_shlibs_F77=no
fi
;;
dgux*)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_shlibpath_var_F77=no
;;
- freebsd1*)
- ld_shlibs_F77=no
- ;;
-
# FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
# support. Future versions do this automatically, but an explicit c++rt0.o
# does not break anything, and helps significantly (at the cost of a little
# extra space).
freebsd2.2*)
archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
hardcode_libdir_flag_spec_F77='-R$libdir'
hardcode_direct_F77=yes
hardcode_shlibpath_var_F77=no
;;
# Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2*)
+ freebsd2.*)
archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_F77=yes
hardcode_minus_L_F77=yes
hardcode_shlibpath_var_F77=no
;;
# FreeBSD 3 and greater uses gcc -shared to do shared libraries.
freebsd* | dragonfly*)
archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec_F77='-R$libdir'
hardcode_direct_F77=yes
hardcode_shlibpath_var_F77=no
;;
hpux9*)
if test "$GCC" = yes; then
archive_cmds_F77='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
else
archive_cmds_F77='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
fi
hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir'
hardcode_libdir_separator_F77=:
hardcode_direct_F77=yes
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_F77=yes
export_dynamic_flag_spec_F77='${wl}-E'
;;
hpux10*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
archive_cmds_F77='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_F77='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir'
- hardcode_libdir_flag_spec_ld_F77='+b $libdir'
hardcode_libdir_separator_F77=:
hardcode_direct_F77=yes
hardcode_direct_absolute_F77=yes
export_dynamic_flag_spec_F77='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_F77=yes
fi
;;
hpux11*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
case $host_cpu in
hppa*64*)
archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds_F77='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
archive_cmds_F77='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
else
case $host_cpu in
hppa*64*)
archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir'
hardcode_libdir_separator_F77=:
case $host_cpu in
hppa*64*|ia64*)
hardcode_direct_F77=no
hardcode_shlibpath_var_F77=no
;;
*)
hardcode_direct_F77=yes
hardcode_direct_absolute_F77=yes
export_dynamic_flag_spec_F77='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_F77=yes
;;
esac
fi
;;
irix5* | irix6* | nonstopux*)
if test "$GCC" = yes; then
archive_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
# Try to use the -exported_symbol ld option, if it does not
# work, assume that -exports_file does not work either and
# implicitly export all symbols.
# This should be the same for all languages, so no per-tag cache variable.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
if ${lt_cv_irix_exported_symbol+:} false; then :
$as_echo_n "(cached) " >&6
else
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
cat > conftest.$ac_ext <<_ACEOF
subroutine foo
end
_ACEOF
if ac_fn_f77_try_link "$LINENO"; then :
lt_cv_irix_exported_symbol=yes
else
lt_cv_irix_exported_symbol=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
$as_echo "$lt_cv_irix_exported_symbol" >&6; }
if test "$lt_cv_irix_exported_symbol" = yes; then
archive_expsym_cmds_F77='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
fi
else
archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib'
fi
archive_cmds_need_lc_F77='no'
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_F77=:
inherit_rpath_F77=yes
link_all_deplibs_F77=yes
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
else
archive_cmds_F77='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
fi
hardcode_libdir_flag_spec_F77='-R$libdir'
hardcode_direct_F77=yes
hardcode_shlibpath_var_F77=no
;;
newsos6)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_F77=yes
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_F77=:
hardcode_shlibpath_var_F77=no
;;
*nto* | *qnx*)
;;
openbsd*)
if test -f /usr/libexec/ld.so; then
hardcode_direct_F77=yes
hardcode_shlibpath_var_F77=no
hardcode_direct_absolute_F77=yes
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols'
hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir'
export_dynamic_flag_spec_F77='${wl}-E'
else
case $host_os in
openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*)
archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_F77='-R$libdir'
;;
*)
archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir'
;;
esac
fi
else
ld_shlibs_F77=no
fi
;;
os2*)
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_minus_L_F77=yes
allow_undefined_flag_F77=unsupported
archive_cmds_F77='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
old_archive_from_new_cmds_F77='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
;;
osf3*)
if test "$GCC" = yes; then
allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
allow_undefined_flag_F77=' -expect_unresolved \*'
archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
fi
archive_cmds_need_lc_F77='no'
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_F77=:
;;
osf4* | osf5*) # as osf3* with the addition of -msym flag
if test "$GCC" = yes; then
allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds_F77='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir'
else
allow_undefined_flag_F77=' -expect_unresolved \*'
archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds_F77='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
$CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp'
# Both c and cxx compiler support -rpath directly
hardcode_libdir_flag_spec_F77='-rpath $libdir'
fi
archive_cmds_need_lc_F77='no'
hardcode_libdir_separator_F77=:
;;
solaris*)
no_undefined_flag_F77=' -z defs'
if test "$GCC" = yes; then
wlarc='${wl}'
archive_cmds_F77='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
else
case `$CC -V 2>&1` in
*"Compilers 5.0"*)
wlarc=''
archive_cmds_F77='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
;;
*)
wlarc='${wl}'
archive_cmds_F77='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
;;
esac
fi
hardcode_libdir_flag_spec_F77='-R$libdir'
hardcode_shlibpath_var_F77=no
case $host_os in
solaris2.[0-5] | solaris2.[0-5].*) ;;
*)
# The compiler driver will combine and reorder linker options,
# but understands `-z linker_flag'. GCC discards it without `$wl',
# but is careful enough not to reorder.
# Supported since Solaris 2.6 (maybe 2.5.1?)
if test "$GCC" = yes; then
whole_archive_flag_spec_F77='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
else
whole_archive_flag_spec_F77='-z allextract$convenience -z defaultextract'
fi
;;
esac
link_all_deplibs_F77=yes
;;
sunos4*)
if test "x$host_vendor" = xsequent; then
# Use $CC to link under sequent, because it throws in some extra .o
# files that make .init and .fini sections work.
archive_cmds_F77='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_F77='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
fi
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_direct_F77=yes
hardcode_minus_L_F77=yes
hardcode_shlibpath_var_F77=no
;;
sysv4)
case $host_vendor in
sni)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_F77=yes # is this really true???
;;
siemens)
## LD is ld it makes a PLAMLIB
## CC just makes a GrossModule.
archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags'
reload_cmds_F77='$CC -r -o $output$reload_objs'
hardcode_direct_F77=no
;;
motorola)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_F77=no #Motorola manual says yes, but my tests say they lie
;;
esac
runpath_var='LD_RUN_PATH'
hardcode_shlibpath_var_F77=no
;;
sysv4.3*)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var_F77=no
export_dynamic_flag_spec_F77='-Bexport'
;;
sysv4*MP*)
if test -d /usr/nec; then
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var_F77=no
runpath_var=LD_RUN_PATH
hardcode_runpath_var=yes
ld_shlibs_F77=yes
fi
;;
sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
no_undefined_flag_F77='${wl}-z,text'
archive_cmds_need_lc_F77=no
hardcode_shlibpath_var_F77=no
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds_F77='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_F77='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
sysv5* | sco3.2v5* | sco5v6*)
# Note: We can NOT use -z defs as we might desire, because we do not
# link with -lc, and that would cause any symbols used from libc to
# always be unresolved, which means just about no library would
# ever link correctly. If we're not using GNU ld we use -z text
# though, which does catch some bad symbols but isn't as heavy-handed
# as -z defs.
no_undefined_flag_F77='${wl}-z,text'
allow_undefined_flag_F77='${wl}-z,nodefs'
archive_cmds_need_lc_F77=no
hardcode_shlibpath_var_F77=no
hardcode_libdir_flag_spec_F77='${wl}-R,$libdir'
hardcode_libdir_separator_F77=':'
link_all_deplibs_F77=yes
export_dynamic_flag_spec_F77='${wl}-Bexport'
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds_F77='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_F77='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_F77='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
uts4*)
archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_F77='-L$libdir'
hardcode_shlibpath_var_F77=no
;;
*)
ld_shlibs_F77=no
;;
esac
if test x$host_vendor = xsni; then
case $host in
sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
export_dynamic_flag_spec_F77='${wl}-Blargedynsym'
;;
esac
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_F77" >&5
$as_echo "$ld_shlibs_F77" >&6; }
test "$ld_shlibs_F77" = no && can_build_shared=no
with_gnu_ld_F77=$with_gnu_ld
#
# Do we need to explicitly link libc?
#
case "x$archive_cmds_need_lc_F77" in
x|xyes)
# Assume -lc should be added
archive_cmds_need_lc_F77=yes
if test "$enable_shared" = yes && test "$GCC" = yes; then
case $archive_cmds_F77 in
*'~'*)
# FIXME: we may have to deal with multi-command sequences.
;;
'$CC '*)
# Test whether the compiler implicitly links with -lc since on some
# systems, -lgcc has to come before -lc. If gcc already passes -lc
# to ld, don't add -lc before -lgcc.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
if ${lt_cv_archive_cmds_need_lc_F77+:} false; then :
$as_echo_n "(cached) " >&6
else
$RM conftest*
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } 2>conftest.err; then
soname=conftest
lib=conftest
libobjs=conftest.$ac_objext
deplibs=
wl=$lt_prog_compiler_wl_F77
pic_flag=$lt_prog_compiler_pic_F77
compiler_flags=-v
linker_flags=-v
verstring=
output_objdir=.
libname=conftest
lt_save_allow_undefined_flag=$allow_undefined_flag_F77
allow_undefined_flag_F77=
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_F77 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
(eval $archive_cmds_F77 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
then
lt_cv_archive_cmds_need_lc_F77=no
else
lt_cv_archive_cmds_need_lc_F77=yes
fi
allow_undefined_flag_F77=$lt_save_allow_undefined_flag
else
cat conftest.err 1>&5
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_F77" >&5
$as_echo "$lt_cv_archive_cmds_need_lc_F77" >&6; }
archive_cmds_need_lc_F77=$lt_cv_archive_cmds_need_lc_F77
;;
esac
fi
;;
esac
-
-
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
$as_echo_n "checking dynamic linker characteristics... " >&6; }
library_names_spec=
libname_spec='lib$name'
soname_spec=
shrext_cmds=".so"
postinstall_cmds=
postuninstall_cmds=
finish_cmds=
finish_eval=
shlibpath_var=
shlibpath_overrides_runpath=unknown
version_type=none
dynamic_linker="$host_os ld.so"
sys_lib_dlsearch_path_spec="/lib /usr/lib"
need_lib_prefix=unknown
hardcode_into_libs=no
# when you set need_version to no, make sure it does not cause -set_version
# flags to be left without arguments
need_version=unknown
case $host_os in
aix3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
shlibpath_var=LIBPATH
# AIX 3 has no versioning support, so we append a major version to the name.
soname_spec='${libname}${release}${shared_ext}$major'
;;
aix[4-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
hardcode_into_libs=yes
if test "$host_cpu" = ia64; then
# AIX 5 supports IA64
library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
else
# With GCC up to 2.95.x, collect2 would create an import file
# for dependence libraries. The import file would start with
# the line `#! .'. This would cause the generated library to
# depend on `.', always an invalid library. This was fixed in
# development snapshots of GCC prior to 3.0.
case $host_os in
aix4 | aix4.[01] | aix4.[01].*)
if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
echo ' yes '
echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
:
else
can_build_shared=no
fi
;;
esac
# AIX (on Power*) has no versioning support, so currently we can not hardcode correct
# soname into executable. Probably we can add versioning support to
# collect2, so additional links can be useful in future.
if test "$aix_use_runtimelinking" = yes; then
# If using run time linking (on AIX 4.2 or later) use lib<name>.so
# instead of lib<name>.a to let people know that these are not
# typical AIX shared libraries.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
else
# We preserve .a as extension for shared libraries through AIX4.2
# and later when we are not doing run time linking.
library_names_spec='${libname}${release}.a $libname.a'
soname_spec='${libname}${release}${shared_ext}$major'
fi
shlibpath_var=LIBPATH
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# Since July 2007 AmigaOS4 officially supports .so libraries.
# When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
;;
m68k)
library_names_spec='$libname.ixlibrary $libname.a'
# Create ${libname}_ixlibrary.a entries in /sys/libs.
finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
;;
esac
;;
beos*)
library_names_spec='${libname}${shared_ext}'
dynamic_linker="$host_os ld.so"
shlibpath_var=LIBRARY_PATH
;;
bsdi[45]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
# the default ld.so.conf also contains /usr/contrib/lib and
# /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
# libtool to hard-code these into programs
;;
cygwin* | mingw* | pw32* | cegcc*)
version_type=windows
shrext_cmds=".dll"
need_version=no
need_lib_prefix=no
case $GCC,$cc_basename in
yes,*)
# gcc
library_names_spec='$libname.dll.a'
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname~
chmod a+x \$dldir/$dlname~
if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
fi'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
case $host_os in
cygwin*)
# Cygwin DLLs use 'cyg' prefix rather than 'lib'
soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
mingw* | cegcc*)
# MinGW DLLs use traditional 'lib' prefix
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
pw32*)
# pw32 DLLs use 'pw' prefix rather than 'lib'
library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
esac
dynamic_linker='Win32 ld.exe'
;;
*,cl*)
# Native MSVC
libname_spec='$name'
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
library_names_spec='${libname}.dll.lib'
case $build_os in
mingw*)
sys_lib_search_path_spec=
lt_save_ifs=$IFS
IFS=';'
for lt_path in $LIB
do
IFS=$lt_save_ifs
# Let DOS variable expansion print the short 8.3 style file name.
lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
done
IFS=$lt_save_ifs
# Convert to MSYS style.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
;;
cygwin*)
# Convert to unix form, then to dos form, then back to unix form
# but this time dos style (no spaces!) so that the unix form looks
# like /cygdrive/c/PROGRA~1:/cygdr...
sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
;;
*)
sys_lib_search_path_spec="$LIB"
if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
# It is most probably a Windows format PATH.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
else
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
fi
# FIXME: find the short name or the path components, as spaces are
# common. (e.g. "Program Files" -> "PROGRA~1")
;;
esac
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
dynamic_linker='Win32 link.exe'
;;
*)
# Assume MSVC wrapper
library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib'
dynamic_linker='Win32 ld.exe'
;;
esac
# FIXME: first we should search . and the directory the executable is in
shlibpath_var=PATH
;;
darwin* | rhapsody*)
dynamic_linker="$host_os dyld"
version_type=darwin
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
soname_spec='${libname}${release}${major}$shared_ext'
shlibpath_overrides_runpath=yes
shlibpath_var=DYLD_LIBRARY_PATH
shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
;;
dgux*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
-freebsd1*)
- dynamic_linker=no
- ;;
-
freebsd* | dragonfly*)
# DragonFly does not have aout. When/if they implement a new
# versioning mechanism, adjust this.
if test -x /usr/bin/objformat; then
objformat=`/usr/bin/objformat`
else
case $host_os in
- freebsd[123]*) objformat=aout ;;
+ freebsd[23].*) objformat=aout ;;
*) objformat=elf ;;
esac
fi
version_type=freebsd-$objformat
case $version_type in
freebsd-elf*)
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
need_version=no
need_lib_prefix=no
;;
freebsd-*)
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
need_version=yes
;;
esac
shlibpath_var=LD_LIBRARY_PATH
case $host_os in
- freebsd2*)
+ freebsd2.*)
shlibpath_overrides_runpath=yes
;;
freebsd3.[01]* | freebsdelf3.[01]*)
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
*) # from 4.6 on, and DragonFly
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
esac
;;
gnu*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
haiku*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
dynamic_linker="$host_os runtime_loader"
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LIBRARY_PATH
shlibpath_overrides_runpath=yes
sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
hardcode_into_libs=yes
;;
hpux9* | hpux10* | hpux11*)
# Give a soname corresponding to the major version so that dld.sl refuses to
# link against other versions.
version_type=sunos
need_lib_prefix=no
need_version=no
case $host_cpu in
ia64*)
shrext_cmds='.so'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.so"
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
if test "X$HPUX_IA64_MODE" = X32; then
sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
else
sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
fi
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
hppa*64*)
shrext_cmds='.sl'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.sl"
shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
*)
shrext_cmds='.sl'
dynamic_linker="$host_os dld.sl"
shlibpath_var=SHLIB_PATH
shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
;;
esac
# HP-UX runs *really* slowly unless shared libraries are mode 555, ...
postinstall_cmds='chmod 555 $lib'
# or fails outright, so override atomically:
install_override_mode=555
;;
interix[3-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
irix5* | irix6* | nonstopux*)
case $host_os in
nonstopux*) version_type=nonstopux ;;
*)
if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
else
version_type=irix
fi ;;
esac
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
case $host_os in
irix5* | nonstopux*)
libsuff= shlibsuff=
;;
*)
case $LD in # libtool.m4 will add one of these switches to LD
*-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
libsuff= shlibsuff= libmagic=32-bit;;
*-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
libsuff=32 shlibsuff=N32 libmagic=N32;;
*-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
libsuff=64 shlibsuff=64 libmagic=64-bit;;
*) libsuff= shlibsuff= libmagic=never-match;;
esac
;;
esac
shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
shlibpath_overrides_runpath=no
sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
hardcode_into_libs=yes
;;
# No shared lib support for Linux oldld, aout, or coff.
linux*oldld* | linux*aout* | linux*coff*)
dynamic_linker=no
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
# Some binutils ld are patched to set DT_RUNPATH
if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_shlibpath_overrides_runpath=no
save_LDFLAGS=$LDFLAGS
save_libdir=$libdir
eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_F77\"; \
LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_F77\""
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_f77_try_link "$LINENO"; then :
if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
lt_cv_shlibpath_overrides_runpath=yes
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS=$save_LDFLAGS
libdir=$save_libdir
fi
shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
# This implies no fast_install, which is unacceptable.
# Some rework will be needed to allow for fast_install
# before this can be enabled.
hardcode_into_libs=yes
# Append ld.so.conf contents to the search path
if test -f /etc/ld.so.conf; then
lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
fi
# We used to test for /lib/ld.so.1 and disable shared libraries on
# powerpc, because MkLinux only supported shared libraries with the
# GNU dynamic linker. Since this was broken with cross compilers,
# most powerpc-linux boxes support dynamic linking these days and
# people can always --disable-shared, the test was removed, and we
# assume the GNU/Linux dynamic linker is in use.
dynamic_linker='GNU/Linux ld.so'
;;
netbsd*)
version_type=sunos
need_lib_prefix=no
need_version=no
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
dynamic_linker='NetBSD (a.out) ld.so'
else
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='NetBSD ld.elf_so'
fi
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
newsos6)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
;;
*nto* | *qnx*)
version_type=qnx
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
dynamic_linker='ldqnx.so'
;;
openbsd*)
version_type=sunos
sys_lib_dlsearch_path_spec="/usr/lib"
need_lib_prefix=no
# Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
case $host_os in
openbsd3.3 | openbsd3.3.*) need_version=yes ;;
*) need_version=no ;;
esac
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
shlibpath_var=LD_LIBRARY_PATH
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
case $host_os in
openbsd2.[89] | openbsd2.[89].*)
shlibpath_overrides_runpath=no
;;
*)
shlibpath_overrides_runpath=yes
;;
esac
else
shlibpath_overrides_runpath=yes
fi
;;
os2*)
libname_spec='$name'
shrext_cmds=".dll"
need_lib_prefix=no
library_names_spec='$libname${shared_ext} $libname.a'
dynamic_linker='OS/2 ld.exe'
shlibpath_var=LIBPATH
;;
osf3* | osf4* | osf5*)
version_type=osf
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
;;
rdos*)
dynamic_linker=no
;;
solaris*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
# ldd complains unless libraries are executable
postinstall_cmds='chmod +x $lib'
;;
sunos4*)
version_type=sunos
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
if test "$with_gnu_ld" = yes; then
need_lib_prefix=no
fi
need_version=yes
;;
sysv4 | sysv4.3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
case $host_vendor in
sni)
shlibpath_overrides_runpath=no
need_lib_prefix=no
runpath_var=LD_RUN_PATH
;;
siemens)
need_lib_prefix=no
;;
motorola)
need_lib_prefix=no
need_version=no
shlibpath_overrides_runpath=no
sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
;;
esac
;;
sysv4*MP*)
if test -d /usr/nec ;then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
soname_spec='$libname${shared_ext}.$major'
shlibpath_var=LD_LIBRARY_PATH
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
version_type=freebsd-elf
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
if test "$with_gnu_ld" = yes; then
sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
else
sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
case $host_os in
sco3.2v5*)
sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
;;
esac
fi
sys_lib_dlsearch_path_spec='/usr/lib'
;;
tpf*)
# TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
uts4*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
*)
dynamic_linker=no
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
$as_echo "$dynamic_linker" >&6; }
test "$dynamic_linker" = no && can_build_shared=no
variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
if test "$GCC" = yes; then
variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
fi
if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
fi
if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
hardcode_action_F77=
if test -n "$hardcode_libdir_flag_spec_F77" ||
test -n "$runpath_var_F77" ||
test "X$hardcode_automatic_F77" = "Xyes" ; then
# We can hardcode non-existent directories.
if test "$hardcode_direct_F77" != no &&
# If the only mechanism to avoid hardcoding is shlibpath_var, we
# have to relink, otherwise we might link with an installed library
# when we should be linking with a yet-to-be-installed one
## test "$_LT_TAGVAR(hardcode_shlibpath_var, F77)" != no &&
test "$hardcode_minus_L_F77" != no; then
# Linking always hardcodes the temporary library directory.
hardcode_action_F77=relink
else
# We can link without hardcoding, and we can hardcode nonexisting dirs.
hardcode_action_F77=immediate
fi
else
# We cannot hardcode anything, or else we can only hardcode existing
# directories.
hardcode_action_F77=unsupported
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_F77" >&5
$as_echo "$hardcode_action_F77" >&6; }
if test "$hardcode_action_F77" = relink ||
test "$inherit_rpath_F77" = yes; then
# Fast installation is not supported
enable_fast_install=no
elif test "$shlibpath_overrides_runpath" = yes ||
test "$enable_shared" = no; then
# Fast installation is not necessary
enable_fast_install=needless
fi
fi # test -n "$compiler"
GCC=$lt_save_GCC
CC="$lt_save_CC"
CFLAGS="$lt_save_CFLAGS"
fi # test "$_lt_disable_F77" != yes
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
ac_ext=${ac_fc_srcext-f}
ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5'
ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_fc_compiler_gnu
if test -z "$FC" || test "X$FC" = "Xno"; then
_lt_disable_FC=yes
fi
archive_cmds_need_lc_FC=no
allow_undefined_flag_FC=
always_export_symbols_FC=no
archive_expsym_cmds_FC=
export_dynamic_flag_spec_FC=
hardcode_direct_FC=no
hardcode_direct_absolute_FC=no
hardcode_libdir_flag_spec_FC=
-hardcode_libdir_flag_spec_ld_FC=
hardcode_libdir_separator_FC=
hardcode_minus_L_FC=no
hardcode_automatic_FC=no
inherit_rpath_FC=no
module_cmds_FC=
module_expsym_cmds_FC=
link_all_deplibs_FC=unknown
old_archive_cmds_FC=$old_archive_cmds
reload_flag_FC=$reload_flag
reload_cmds_FC=$reload_cmds
no_undefined_flag_FC=
whole_archive_flag_spec_FC=
enable_shared_with_static_runtimes_FC=no
# Source file extension for fc test sources.
ac_ext=${ac_fc_srcext-f}
# Object file extension for compiled fc test sources.
objext=o
objext_FC=$objext
# No sense in running all these tests if we already determined that
# the FC compiler isn't working. Some variables (like enable_shared)
# are currently assumed to apply to all compilers on this platform,
# and will be corrupted by setting them based on a non-working compiler.
if test "$_lt_disable_FC" != yes; then
# Code to be used in simple compile tests
lt_simple_compile_test_code="\
subroutine t
return
end
"
# Code to be used in simple link tests
lt_simple_link_test_code="\
program t
end
"
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
# If no C compiler was specified, use CC.
LTCC=${LTCC-"$CC"}
# If no C compiler flags were specified, use CFLAGS.
LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
# Allow CC to be a program name with arguments.
compiler=$CC
# save warnings/boilerplate of simple test code
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" >conftest.$ac_ext
eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_compiler_boilerplate=`cat conftest.err`
$RM conftest*
ac_outfile=conftest.$ac_objext
echo "$lt_simple_link_test_code" >conftest.$ac_ext
eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_linker_boilerplate=`cat conftest.err`
$RM -r conftest*
# Allow CC to be a program name with arguments.
lt_save_CC="$CC"
lt_save_GCC=$GCC
lt_save_CFLAGS=$CFLAGS
CC=${FC-"f95"}
CFLAGS=$FCFLAGS
compiler=$CC
GCC=$ac_cv_fc_compiler_gnu
compiler_FC=$CC
for cc_temp in $compiler""; do
case $cc_temp in
compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
\-*) ;;
*) break;;
esac
done
cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
if test -n "$compiler"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
$as_echo_n "checking if libtool supports shared libraries... " >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
$as_echo "$can_build_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
$as_echo_n "checking whether to build shared libraries... " >&6; }
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[4-9]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
$as_echo "$enable_shared" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
$as_echo_n "checking whether to build static libraries... " >&6; }
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
$as_echo "$enable_static" >&6; }
GCC_FC="$ac_cv_fc_compiler_gnu"
LD_FC="$LD"
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
# Dependencies to place before and after the object being linked:
predep_objects_FC=
postdep_objects_FC=
predeps_FC=
postdeps_FC=
compiler_lib_search_path_FC=
cat > conftest.$ac_ext <<_LT_EOF
subroutine foo
implicit none
integer a
a=0
return
end
_LT_EOF
_lt_libdeps_save_CFLAGS=$CFLAGS
case "$CC $CFLAGS " in #(
*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;;
*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;;
+*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;;
esac
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }; then
# Parse the compiler output and extract the necessary
# objects, libraries and library flags.
# Sentinel used to keep track of whether or not we are before
# the conftest object file.
pre_test_object_deps_done=no
for p in `eval "$output_verbose_link_cmd"`; do
case ${prev}${p} in
-L* | -R* | -l*)
# Some compilers place space between "-{L,R}" and the path.
# Remove the space.
if test $p = "-L" ||
test $p = "-R"; then
prev=$p
continue
fi
# Expand the sysroot to ease extracting the directories later.
if test -z "$prev"; then
case $p in
-L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;;
-R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;;
-l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;;
esac
fi
case $p in
=*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;;
esac
if test "$pre_test_object_deps_done" = no; then
case ${prev} in
-L | -R)
# Internal compiler library paths should come after those
# provided the user. The postdeps already come after the
# user supplied libs so there is no need to process them.
if test -z "$compiler_lib_search_path_FC"; then
compiler_lib_search_path_FC="${prev}${p}"
else
compiler_lib_search_path_FC="${compiler_lib_search_path_FC} ${prev}${p}"
fi
;;
# The "-l" case would never come before the object being
# linked, so don't bother handling this case.
esac
else
if test -z "$postdeps_FC"; then
postdeps_FC="${prev}${p}"
else
postdeps_FC="${postdeps_FC} ${prev}${p}"
fi
fi
prev=
;;
*.lto.$objext) ;; # Ignore GCC LTO objects
*.$objext)
# This assumes that the test object file only shows up
# once in the compiler output.
if test "$p" = "conftest.$objext"; then
pre_test_object_deps_done=yes
continue
fi
if test "$pre_test_object_deps_done" = no; then
if test -z "$predep_objects_FC"; then
predep_objects_FC="$p"
else
predep_objects_FC="$predep_objects_FC $p"
fi
else
if test -z "$postdep_objects_FC"; then
postdep_objects_FC="$p"
else
postdep_objects_FC="$postdep_objects_FC $p"
fi
fi
;;
*) ;; # Ignore the rest.
esac
done
# Clean up.
rm -f a.out a.exe
else
echo "libtool.m4: error: problem compiling FC test program"
fi
$RM -f confest.$objext
CFLAGS=$_lt_libdeps_save_CFLAGS
# PORTME: override above test on systems where it is broken
case " $postdeps_FC " in
*" -lc "*) archive_cmds_need_lc_FC=no ;;
esac
compiler_lib_search_dirs_FC=
if test -n "${compiler_lib_search_path_FC}"; then
compiler_lib_search_dirs_FC=`echo " ${compiler_lib_search_path_FC}" | ${SED} -e 's! -L! !g' -e 's!^ !!'`
fi
lt_prog_compiler_wl_FC=
lt_prog_compiler_pic_FC=
lt_prog_compiler_static_FC=
if test "$GCC" = yes; then
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_static_FC='-static'
case $host_os in
aix*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static_FC='-Bstatic'
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
lt_prog_compiler_pic_FC='-fPIC'
;;
m68k)
# FIXME: we need at least 68020 code to build shared libraries, but
# adding the `-m68020' flag to GCC prevents building anything better,
# like `-m68040'.
lt_prog_compiler_pic_FC='-m68020 -resident32 -malways-restore-a4'
;;
esac
;;
beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
# PIC is the default for these OSes.
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
# Although the cygwin gcc ignores -fPIC, still need this for old-style
# (--disable-auto-import) libraries
lt_prog_compiler_pic_FC='-DDLL_EXPORT'
;;
darwin* | rhapsody*)
# PIC is the default on this platform
# Common symbols not allowed in MH_DYLIB files
lt_prog_compiler_pic_FC='-fno-common'
;;
haiku*)
# PIC is the default for Haiku.
# The "-static" flag exists, but is broken.
lt_prog_compiler_static_FC=
;;
hpux*)
# PIC is the default for 64-bit PA HP-UX, but not for 32-bit
# PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
# sets the default TLS model and affects inlining.
case $host_cpu in
hppa*64*)
# +Z the default
;;
*)
lt_prog_compiler_pic_FC='-fPIC'
;;
esac
;;
interix[3-9]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
msdosdjgpp*)
# Just because we use GCC doesn't mean we suddenly get shared libraries
# on systems that don't support them.
lt_prog_compiler_can_build_shared_FC=no
enable_shared=no
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic_FC='-fPIC -shared'
;;
sysv4*MP*)
if test -d /usr/nec; then
lt_prog_compiler_pic_FC=-Kconform_pic
fi
;;
*)
lt_prog_compiler_pic_FC='-fPIC'
;;
esac
case $cc_basename in
nvcc*) # Cuda Compiler Driver 2.2
lt_prog_compiler_wl_FC='-Xlinker '
- lt_prog_compiler_pic_FC='-Xcompiler -fPIC'
+ if test -n "$lt_prog_compiler_pic_FC"; then
+ lt_prog_compiler_pic_FC="-Xcompiler $lt_prog_compiler_pic_FC"
+ fi
;;
esac
else
# PORTME Check for flag to pass linker flags through the system compiler.
case $host_os in
aix*)
lt_prog_compiler_wl_FC='-Wl,'
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
lt_prog_compiler_static_FC='-Bstatic'
else
lt_prog_compiler_static_FC='-bnso -bI:/lib/syscalls.exp'
fi
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
lt_prog_compiler_pic_FC='-DDLL_EXPORT'
;;
hpux9* | hpux10* | hpux11*)
lt_prog_compiler_wl_FC='-Wl,'
# PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
# not for PA HP-UX.
case $host_cpu in
hppa*64*|ia64*)
# +Z the default
;;
*)
lt_prog_compiler_pic_FC='+Z'
;;
esac
# Is there a better lt_prog_compiler_static that works with the bundled CC?
lt_prog_compiler_static_FC='${wl}-a ${wl}archive'
;;
irix5* | irix6* | nonstopux*)
lt_prog_compiler_wl_FC='-Wl,'
# PIC (with -KPIC) is the default.
lt_prog_compiler_static_FC='-non_shared'
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
# old Intel for x86_64 which still supported -KPIC.
ecc*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-static'
;;
# icc used to be incompatible with GCC.
# ICC 10 doesn't accept -KPIC any more.
icc* | ifort*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-fPIC'
lt_prog_compiler_static_FC='-static'
;;
# Lahey Fortran 8.1.
lf95*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='--shared'
lt_prog_compiler_static_FC='--static'
;;
nagfor*)
# NAG Fortran compiler
lt_prog_compiler_wl_FC='-Wl,-Wl,,'
lt_prog_compiler_pic_FC='-PIC'
lt_prog_compiler_static_FC='-Bstatic'
;;
pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group compilers (*not* the Pentium gcc compiler,
# which looks to be a dead project)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-fpic'
lt_prog_compiler_static_FC='-Bstatic'
;;
ccc*)
lt_prog_compiler_wl_FC='-Wl,'
# All Alpha code is PIC.
lt_prog_compiler_static_FC='-non_shared'
;;
xl* | bgxl* | bgf* | mpixl*)
# IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-qpic'
lt_prog_compiler_static_FC='-qstaticlink'
;;
*)
case `$CC -V 2>&1 | sed 5q` in
- *Sun\ F* | *Sun*Fortran*)
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*)
# Sun Fortran 8.3 passes all unrecognized flags to the linker
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
lt_prog_compiler_wl_FC=''
;;
+ *Sun\ F* | *Sun*Fortran*)
+ lt_prog_compiler_pic_FC='-KPIC'
+ lt_prog_compiler_static_FC='-Bstatic'
+ lt_prog_compiler_wl_FC='-Qoption ld '
+ ;;
*Sun\ C*)
# Sun C 5.9
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
lt_prog_compiler_wl_FC='-Wl,'
;;
+ *Intel*\ [CF]*Compiler*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fPIC'
+ lt_prog_compiler_static_FC='-static'
+ ;;
+ *Portland\ Group*)
+ lt_prog_compiler_wl_FC='-Wl,'
+ lt_prog_compiler_pic_FC='-fpic'
+ lt_prog_compiler_static_FC='-Bstatic'
+ ;;
esac
;;
esac
;;
newsos6)
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
lt_prog_compiler_pic_FC='-fPIC -shared'
;;
osf3* | osf4* | osf5*)
lt_prog_compiler_wl_FC='-Wl,'
# All OSF/1 code is PIC.
lt_prog_compiler_static_FC='-non_shared'
;;
rdos*)
lt_prog_compiler_static_FC='-non_shared'
;;
solaris*)
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
case $cc_basename in
f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
lt_prog_compiler_wl_FC='-Qoption ld ';;
*)
lt_prog_compiler_wl_FC='-Wl,';;
esac
;;
sunos4*)
lt_prog_compiler_wl_FC='-Qoption ld '
lt_prog_compiler_pic_FC='-PIC'
lt_prog_compiler_static_FC='-Bstatic'
;;
sysv4 | sysv4.2uw2* | sysv4.3*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
;;
sysv4*MP*)
if test -d /usr/nec ;then
lt_prog_compiler_pic_FC='-Kconform_pic'
lt_prog_compiler_static_FC='-Bstatic'
fi
;;
sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_pic_FC='-KPIC'
lt_prog_compiler_static_FC='-Bstatic'
;;
unicos*)
lt_prog_compiler_wl_FC='-Wl,'
lt_prog_compiler_can_build_shared_FC=no
;;
uts4*)
lt_prog_compiler_pic_FC='-pic'
lt_prog_compiler_static_FC='-Bstatic'
;;
*)
lt_prog_compiler_can_build_shared_FC=no
;;
esac
fi
case $host_os in
# For platforms which do not support PIC, -DPIC is meaningless:
*djgpp*)
lt_prog_compiler_pic_FC=
;;
*)
lt_prog_compiler_pic_FC="$lt_prog_compiler_pic_FC"
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
if ${lt_cv_prog_compiler_pic_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic_FC=$lt_prog_compiler_pic_FC
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_FC" >&5
$as_echo "$lt_cv_prog_compiler_pic_FC" >&6; }
lt_prog_compiler_pic_FC=$lt_cv_prog_compiler_pic_FC
#
# Check to make sure the PIC flag actually works.
#
if test -n "$lt_prog_compiler_pic_FC"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_FC works" >&5
$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_FC works... " >&6; }
if ${lt_cv_prog_compiler_pic_works_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_pic_works_FC=no
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="$lt_prog_compiler_pic_FC"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
# The option is referenced via a variable to avoid confusing sed.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_pic_works_FC=yes
fi
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_FC" >&5
$as_echo "$lt_cv_prog_compiler_pic_works_FC" >&6; }
if test x"$lt_cv_prog_compiler_pic_works_FC" = xyes; then
case $lt_prog_compiler_pic_FC in
"" | " "*) ;;
*) lt_prog_compiler_pic_FC=" $lt_prog_compiler_pic_FC" ;;
esac
else
lt_prog_compiler_pic_FC=
lt_prog_compiler_can_build_shared_FC=no
fi
fi
#
# Check to make sure the static flag actually works.
#
wl=$lt_prog_compiler_wl_FC eval lt_tmp_static_flag=\"$lt_prog_compiler_static_FC\"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
if ${lt_cv_prog_compiler_static_works_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_static_works_FC=no
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
echo "$lt_simple_link_test_code" > conftest.$ac_ext
if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
# The linker can only warn and ignore the option if not recognized
# So say no if there are warnings
if test -s conftest.err; then
# Append any errors to the config.log.
cat conftest.err 1>&5
$ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if diff conftest.exp conftest.er2 >/dev/null; then
lt_cv_prog_compiler_static_works_FC=yes
fi
else
lt_cv_prog_compiler_static_works_FC=yes
fi
fi
$RM -r conftest*
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_FC" >&5
$as_echo "$lt_cv_prog_compiler_static_works_FC" >&6; }
if test x"$lt_cv_prog_compiler_static_works_FC" = xyes; then
:
else
lt_prog_compiler_static_FC=
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o_FC=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o_FC=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_FC" >&5
$as_echo "$lt_cv_prog_compiler_c_o_FC" >&6; }
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
if ${lt_cv_prog_compiler_c_o_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_prog_compiler_c_o_FC=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
lt_cv_prog_compiler_c_o_FC=yes
fi
fi
chmod u+w . 2>&5
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_FC" >&5
$as_echo "$lt_cv_prog_compiler_c_o_FC" >&6; }
hard_links="nottested"
if test "$lt_cv_prog_compiler_c_o_FC" = no && test "$need_locks" != no; then
# do not overwrite the value of need_locks provided by the user
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
$as_echo_n "checking if we can lock with hard links... " >&6; }
hard_links=yes
$RM conftest*
ln conftest.a conftest.b 2>/dev/null && hard_links=no
touch conftest.a
ln conftest.a conftest.b 2>&5 || hard_links=no
ln conftest.a conftest.b 2>/dev/null && hard_links=no
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
$as_echo "$hard_links" >&6; }
if test "$hard_links" = no; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5
$as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;}
need_locks=warn
fi
else
need_locks=no
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
runpath_var=
allow_undefined_flag_FC=
always_export_symbols_FC=no
archive_cmds_FC=
archive_expsym_cmds_FC=
compiler_needs_object_FC=no
enable_shared_with_static_runtimes_FC=no
export_dynamic_flag_spec_FC=
export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
hardcode_automatic_FC=no
hardcode_direct_FC=no
hardcode_direct_absolute_FC=no
hardcode_libdir_flag_spec_FC=
- hardcode_libdir_flag_spec_ld_FC=
hardcode_libdir_separator_FC=
hardcode_minus_L_FC=no
hardcode_shlibpath_var_FC=unsupported
inherit_rpath_FC=no
link_all_deplibs_FC=unknown
module_cmds_FC=
module_expsym_cmds_FC=
old_archive_from_new_cmds_FC=
old_archive_from_expsyms_cmds_FC=
thread_safe_flag_spec_FC=
whole_archive_flag_spec_FC=
# include_expsyms should be a list of space-separated symbols to be *always*
# included in the symbol list
include_expsyms_FC=
# exclude_expsyms can be an extended regexp of symbols to exclude
# it will be wrapped by ` (' and `)$', so one must not match beginning or
# end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
# as well as any symbol that contains `d'.
exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
# Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
# platforms (ab)use it in PIC code, but their linkers get confused if
# the symbol is explicitly referenced. Since portable code cannot
# rely on this symbol name, it's probably fine to never include it in
# preloaded symbol tables.
# Exclude shared library initialization/finalization symbols.
extract_expsyms_cmds=
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# FIXME: the MSVC++ port hasn't been tested in a loooong time
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
if test "$GCC" != yes; then
with_gnu_ld=no
fi
;;
interix*)
# we just hope/assume this is gcc and not c89 (= MSVC++)
with_gnu_ld=yes
;;
openbsd*)
with_gnu_ld=no
;;
esac
ld_shlibs_FC=yes
# On some targets, GNU ld is compatible enough with the native linker
# that we're better off using the native interface for both.
lt_use_gnu_ld_interface=no
if test "$with_gnu_ld" = yes; then
case $host_os in
aix*)
# The AIX port of GNU ld has always aspired to compatibility
# with the native linker. However, as the warning in the GNU ld
# block says, versions before 2.19.5* couldn't really create working
# shared libraries, regardless of the interface used.
case `$LD -v 2>&1` in
*\ \(GNU\ Binutils\)\ 2.19.5*) ;;
*\ \(GNU\ Binutils\)\ 2.[2-9]*) ;;
*\ \(GNU\ Binutils\)\ [3-9]*) ;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
fi
if test "$lt_use_gnu_ld_interface" = yes; then
# If archive_cmds runs LD, not CC, wlarc should be empty
wlarc='${wl}'
# Set some defaults for GNU ld with shared library support. These
# are reset later if shared libraries are not supported. Putting them
# here allows them to be overridden if necessary.
runpath_var=LD_RUN_PATH
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
export_dynamic_flag_spec_FC='${wl}--export-dynamic'
# ancient GNU ld didn't support --whole-archive et. al.
if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
whole_archive_flag_spec_FC="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
else
whole_archive_flag_spec_FC=
fi
supports_anon_versioning=no
case `$LD -v 2>&1` in
*GNU\ gold*) supports_anon_versioning=yes ;;
*\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
*\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
*\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
*\ 2.11.*) ;; # other 2.11 versions
*) supports_anon_versioning=yes ;;
esac
# See if GNU ld supports shared libraries.
case $host_os in
aix[3-9]*)
# On AIX/PPC, the GNU linker is very broken
if test "$host_cpu" != ia64; then
ld_shlibs_FC=no
cat <<_LT_EOF 1>&2
*** Warning: the GNU linker, at least up to release 2.19, is reported
*** to be unable to reliably create shared libraries on AIX.
*** Therefore, libtool is disabling shared libraries support. If you
*** really care for shared libraries, you may want to install binutils
*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
*** You will then need to restart the configuration process.
_LT_EOF
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC=''
;;
m68k)
archive_cmds_FC='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_minus_L_FC=yes
;;
esac
;;
beos*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
allow_undefined_flag_FC=unsupported
# Joseph Beckenbach <jrb3@best.com> says some releases of gcc
# support --undefined. This deserves some investigation. FIXME
archive_cmds_FC='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
else
ld_shlibs_FC=no
fi
;;
cygwin* | mingw* | pw32* | cegcc*)
# _LT_TAGVAR(hardcode_libdir_flag_spec, FC) is actually meaningless,
# as there is no search path for DLLs.
hardcode_libdir_flag_spec_FC='-L$libdir'
export_dynamic_flag_spec_FC='${wl}--export-all-symbols'
allow_undefined_flag_FC=unsupported
always_export_symbols_FC=no
enable_shared_with_static_runtimes_FC=yes
export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
exclude_expsyms_FC='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'
if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
# If the export-symbols file already is a .def file (1st line
# is EXPORTS), use it as is; otherwise, prepend...
archive_expsym_cmds_FC='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
cp $export_symbols $output_objdir/$soname.def;
else
echo EXPORTS > $output_objdir/$soname.def;
cat $export_symbols >> $output_objdir/$soname.def;
fi~
$CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
else
ld_shlibs_FC=no
fi
;;
haiku*)
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
link_all_deplibs_FC=yes
;;
interix[3-9]*)
hardcode_direct_FC=no
hardcode_shlibpath_var_FC=no
hardcode_libdir_flag_spec_FC='${wl}-rpath,$libdir'
export_dynamic_flag_spec_FC='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
archive_expsym_cmds_FC='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
;;
gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
tmp_diet=no
if test "$host_os" = linux-dietlibc; then
case $cc_basename in
diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
esac
fi
if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
&& test "$tmp_diet" = no
then
tmp_addflag=' $pic_flag'
tmp_sharedflag='-shared'
case $cc_basename,$host_cpu in
pgcc*) # Portland Group C compiler
whole_archive_flag_spec_FC='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag'
;;
pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group f77 and f90 compilers
whole_archive_flag_spec_FC='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag -Mnomain' ;;
ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
tmp_addflag=' -i_dynamic' ;;
efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
tmp_addflag=' -i_dynamic -nofor_main' ;;
ifc* | ifort*) # Intel Fortran compiler
tmp_addflag=' -nofor_main' ;;
lf95*) # Lahey Fortran 8.1
whole_archive_flag_spec_FC=
tmp_sharedflag='--shared' ;;
xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
tmp_sharedflag='-qmkshrobj'
tmp_addflag= ;;
nvcc*) # Cuda Compiler Driver 2.2
whole_archive_flag_spec_FC='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object_FC=yes
;;
esac
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*) # Sun C 5.9
whole_archive_flag_spec_FC='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
compiler_needs_object_FC=yes
tmp_sharedflag='-G' ;;
*Sun\ F*) # Sun Fortran 8.3
tmp_sharedflag='-G' ;;
esac
archive_cmds_FC='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
fi
case $cc_basename in
xlf* | bgf* | bgxlf* | mpixlf*)
# IBM XL Fortran 10.1 on PPC cannot create shared libs itself
whole_archive_flag_spec_FC='--whole-archive$convenience --no-whole-archive'
- hardcode_libdir_flag_spec_FC=
- hardcode_libdir_flag_spec_ld_FC='-rpath $libdir'
+ hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
archive_cmds_FC='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
fi
;;
esac
else
ld_shlibs_FC=no
fi
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds_FC='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
wlarc=
else
archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
fi
;;
solaris*)
if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
ld_shlibs_FC=no
cat <<_LT_EOF 1>&2
*** Warning: The releases 2.8.* of the GNU linker cannot reliably
*** create shared libraries on Solaris systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.9.1 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_FC=no
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
case `$LD -v 2>&1` in
*\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
ld_shlibs_FC=no
cat <<_LT_EOF 1>&2
*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not
*** reliably create shared libraries on SCO systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
;;
*)
# For security reasons, it is highly recommended that you always
# use absolute paths for naming shared libraries, and exclude the
# DT_RUNPATH tag from executables and libraries. But doing so
# requires that you compile everything twice, which is a pain.
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_FC=no
fi
;;
esac
;;
sunos4*)
archive_cmds_FC='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
wlarc=
hardcode_direct_FC=yes
hardcode_shlibpath_var_FC=no
;;
*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
ld_shlibs_FC=no
fi
;;
esac
if test "$ld_shlibs_FC" = no; then
runpath_var=
hardcode_libdir_flag_spec_FC=
export_dynamic_flag_spec_FC=
whole_archive_flag_spec_FC=
fi
else
# PORTME fill in a description of your system's linker (not GNU ld)
case $host_os in
aix3*)
allow_undefined_flag_FC=unsupported
always_export_symbols_FC=yes
archive_expsym_cmds_FC='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
# Note: this linker hardcodes the directories in LIBPATH if there
# are no directories specified by -L.
hardcode_minus_L_FC=yes
if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then
# Neither direct hardcoding nor static linking is supported with a
# broken collect2.
hardcode_direct_FC=unsupported
fi
;;
aix[4-9]*)
if test "$host_cpu" = ia64; then
# On IA64, the linker does run time linking by default, so we don't
# have to do anything special.
aix_use_runtimelinking=no
exp_sym_flag='-Bexport'
no_entry_flag=""
else
# If we're using GNU nm, then we don't want the "-C" option.
# -C means demangle to AIX nm, but means don't demangle with GNU nm
# Also, AIX nm treats weak defined symbols like other global
# defined symbols, whereas GNU nm marks them as "W".
if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
export_symbols_cmds_FC='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
else
export_symbols_cmds_FC='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
fi
aix_use_runtimelinking=no
# Test if we are trying to use run time linking or normal
# AIX style linking. If -brtl is somewhere in LDFLAGS, we
# need to do runtime linking.
case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
for ld_flag in $LDFLAGS; do
if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
aix_use_runtimelinking=yes
break
fi
done
;;
esac
exp_sym_flag='-bexport'
no_entry_flag='-bnoentry'
fi
# When large executables or shared objects are built, AIX ld can
# have problems creating the table of contents. If linking a library
# or program results in "error TOC overflow" add -mminimal-toc to
# CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
# enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
archive_cmds_FC=''
hardcode_direct_FC=yes
hardcode_direct_absolute_FC=yes
hardcode_libdir_separator_FC=':'
link_all_deplibs_FC=yes
file_list_spec_FC='${wl}-f,'
if test "$GCC" = yes; then
case $host_os in aix4.[012]|aix4.[012].*)
# We only want to do this on AIX 4.2 and lower, the check
# below for broken collect2 doesn't work under 4.3+
collect2name=`${CC} -print-prog-name=collect2`
if test -f "$collect2name" &&
strings "$collect2name" | $GREP resolve_lib_name >/dev/null
then
# We have reworked collect2
:
else
# We have old collect2
hardcode_direct_FC=unsupported
# It fails to find uninstalled libraries when the uninstalled
# path is not listed in the libpath. Setting hardcode_minus_L
# to unsupported forces relinking
hardcode_minus_L_FC=yes
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_libdir_separator_FC=
fi
;;
esac
shared_flag='-shared'
if test "$aix_use_runtimelinking" = yes; then
shared_flag="$shared_flag "'${wl}-G'
fi
else
# not using gcc
if test "$host_cpu" = ia64; then
# VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
# chokes on -Wl,-G. The following line is correct:
shared_flag='-G'
else
if test "$aix_use_runtimelinking" = yes; then
shared_flag='${wl}-G'
else
shared_flag='${wl}-bM:SRE'
fi
fi
fi
export_dynamic_flag_spec_FC='${wl}-bexpall'
# It seems that -bexpall does not export symbols beginning with
# underscore (_), so it is better to generate a list of symbols to export.
always_export_symbols_FC=yes
if test "$aix_use_runtimelinking" = yes; then
# Warning - without using the other runtime loading flags (-brtl),
# -berok will link without error, but may produce a broken library.
allow_undefined_flag_FC='-berok'
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath__FC+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath__FC=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath__FC"; then
lt_cv_aix_libpath__FC=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath__FC"; then
lt_cv_aix_libpath__FC="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath__FC
fi
hardcode_libdir_flag_spec_FC='${wl}-blibpath:$libdir:'"$aix_libpath"
archive_expsym_cmds_FC='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
else
if test "$host_cpu" = ia64; then
hardcode_libdir_flag_spec_FC='${wl}-R $libdir:/usr/lib:/lib'
allow_undefined_flag_FC="-z nodefs"
archive_expsym_cmds_FC="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
else
# Determine the default libpath from the value encoded in an
# empty executable.
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
if ${lt_cv_aix_libpath__FC+:} false; then :
$as_echo_n "(cached) " >&6
else
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_link "$LINENO"; then :
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}'
lt_cv_aix_libpath__FC=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$lt_cv_aix_libpath__FC"; then
lt_cv_aix_libpath__FC=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
if test -z "$lt_cv_aix_libpath__FC"; then
lt_cv_aix_libpath__FC="/usr/lib:/lib"
fi
fi
aix_libpath=$lt_cv_aix_libpath__FC
fi
hardcode_libdir_flag_spec_FC='${wl}-blibpath:$libdir:'"$aix_libpath"
# Warning - without using the other run time loading flags,
# -berok will link without error, but may produce a broken library.
no_undefined_flag_FC=' ${wl}-bernotok'
allow_undefined_flag_FC=' ${wl}-berok'
if test "$with_gnu_ld" = yes; then
# We only use this code for GNU lds that support --whole-archive.
whole_archive_flag_spec_FC='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
else
# Exported symbols can be pulled into shared objects from archives
whole_archive_flag_spec_FC='$convenience'
fi
archive_cmds_need_lc_FC=yes
# This is similar to how AIX traditionally builds its shared libraries.
archive_expsym_cmds_FC="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
fi
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
archive_expsym_cmds_FC=''
;;
m68k)
archive_cmds_FC='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_minus_L_FC=yes
;;
esac
;;
bsdi[45]*)
export_dynamic_flag_spec_FC=-rdynamic
;;
cygwin* | mingw* | pw32* | cegcc*)
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
# hardcode_libdir_flag_spec is actually meaningless, as there is
# no search path for DLLs.
case $cc_basename in
cl*)
# Native MSVC
hardcode_libdir_flag_spec_FC=' '
allow_undefined_flag_FC=unsupported
always_export_symbols_FC=yes
file_list_spec_FC='@'
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds_FC='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames='
archive_expsym_cmds_FC='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp;
else
sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp;
fi~
$CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
linknames='
# The linker will not automatically build a static lib if we build a DLL.
# _LT_TAGVAR(old_archive_from_new_cmds, FC)='true'
enable_shared_with_static_runtimes_FC=yes
+ exclude_expsyms_FC='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
# Don't use ranlib
old_postinstall_cmds_FC='chmod 644 $oldlib'
postlink_cmds_FC='lt_outputfile="@OUTPUT@"~
lt_tool_outputfile="@TOOL_OUTPUT@"~
case $lt_outputfile in
*.exe|*.EXE) ;;
*)
lt_outputfile="$lt_outputfile.exe"
lt_tool_outputfile="$lt_tool_outputfile.exe"
;;
esac~
if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then
$MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
$RM "$lt_outputfile.manifest";
fi'
;;
*)
# Assume MSVC wrapper
hardcode_libdir_flag_spec_FC=' '
allow_undefined_flag_FC=unsupported
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
archive_cmds_FC='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
# The linker will automatically build a .lib file if we build a DLL.
old_archive_from_new_cmds_FC='true'
# FIXME: Should let the user specify the lib program.
old_archive_cmds_FC='lib -OUT:$oldlib$oldobjs$old_deplibs'
enable_shared_with_static_runtimes_FC=yes
;;
esac
;;
darwin* | rhapsody*)
archive_cmds_need_lc_FC=no
hardcode_direct_FC=no
hardcode_automatic_FC=yes
hardcode_shlibpath_var_FC=unsupported
if test "$lt_cv_ld_force_load" = "yes"; then
whole_archive_flag_spec_FC='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ compiler_needs_object_FC=yes
else
whole_archive_flag_spec_FC=''
fi
link_all_deplibs_FC=yes
allow_undefined_flag_FC="$_lt_dar_allow_undefined"
case $cc_basename in
ifort*) _lt_dar_can_shared=yes ;;
*) _lt_dar_can_shared=$GCC ;;
esac
if test "$_lt_dar_can_shared" = "yes"; then
output_verbose_link_cmd=func_echo_all
archive_cmds_FC="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
module_cmds_FC="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
archive_expsym_cmds_FC="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
module_expsym_cmds_FC="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
else
ld_shlibs_FC=no
fi
;;
dgux*)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_shlibpath_var_FC=no
;;
- freebsd1*)
- ld_shlibs_FC=no
- ;;
-
# FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
# support. Future versions do this automatically, but an explicit c++rt0.o
# does not break anything, and helps significantly (at the cost of a little
# extra space).
freebsd2.2*)
archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
hardcode_libdir_flag_spec_FC='-R$libdir'
hardcode_direct_FC=yes
hardcode_shlibpath_var_FC=no
;;
# Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2*)
+ freebsd2.*)
archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_FC=yes
hardcode_minus_L_FC=yes
hardcode_shlibpath_var_FC=no
;;
# FreeBSD 3 and greater uses gcc -shared to do shared libraries.
freebsd* | dragonfly*)
archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec_FC='-R$libdir'
hardcode_direct_FC=yes
hardcode_shlibpath_var_FC=no
;;
hpux9*)
if test "$GCC" = yes; then
archive_cmds_FC='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
else
archive_cmds_FC='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
fi
hardcode_libdir_flag_spec_FC='${wl}+b ${wl}$libdir'
hardcode_libdir_separator_FC=:
hardcode_direct_FC=yes
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_FC=yes
export_dynamic_flag_spec_FC='${wl}-E'
;;
hpux10*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
archive_cmds_FC='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_FC='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec_FC='${wl}+b ${wl}$libdir'
- hardcode_libdir_flag_spec_ld_FC='+b $libdir'
hardcode_libdir_separator_FC=:
hardcode_direct_FC=yes
hardcode_direct_absolute_FC=yes
export_dynamic_flag_spec_FC='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_FC=yes
fi
;;
hpux11*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
case $host_cpu in
hppa*64*)
archive_cmds_FC='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds_FC='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
archive_cmds_FC='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
else
case $host_cpu in
hppa*64*)
archive_cmds_FC='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
archive_cmds_FC='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
archive_cmds_FC='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
fi
if test "$with_gnu_ld" = no; then
hardcode_libdir_flag_spec_FC='${wl}+b ${wl}$libdir'
hardcode_libdir_separator_FC=:
case $host_cpu in
hppa*64*|ia64*)
hardcode_direct_FC=no
hardcode_shlibpath_var_FC=no
;;
*)
hardcode_direct_FC=yes
hardcode_direct_absolute_FC=yes
export_dynamic_flag_spec_FC='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
hardcode_minus_L_FC=yes
;;
esac
fi
;;
irix5* | irix6* | nonstopux*)
if test "$GCC" = yes; then
archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
# Try to use the -exported_symbol ld option, if it does not
# work, assume that -exports_file does not work either and
# implicitly export all symbols.
# This should be the same for all languages, so no per-tag cache variable.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5
$as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; }
if ${lt_cv_irix_exported_symbol+:} false; then :
$as_echo_n "(cached) " >&6
else
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
cat > conftest.$ac_ext <<_ACEOF
subroutine foo
end
_ACEOF
if ac_fn_fc_try_link "$LINENO"; then :
lt_cv_irix_exported_symbol=yes
else
lt_cv_irix_exported_symbol=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS="$save_LDFLAGS"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5
$as_echo "$lt_cv_irix_exported_symbol" >&6; }
if test "$lt_cv_irix_exported_symbol" = yes; then
archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
fi
else
archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib'
fi
archive_cmds_need_lc_FC='no'
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_FC=:
inherit_rpath_FC=yes
link_all_deplibs_FC=yes
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
else
archive_cmds_FC='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
fi
hardcode_libdir_flag_spec_FC='-R$libdir'
hardcode_direct_FC=yes
hardcode_shlibpath_var_FC=no
;;
newsos6)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_FC=yes
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_FC=:
hardcode_shlibpath_var_FC=no
;;
*nto* | *qnx*)
;;
openbsd*)
if test -f /usr/libexec/ld.so; then
hardcode_direct_FC=yes
hardcode_shlibpath_var_FC=no
hardcode_direct_absolute_FC=yes
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols'
hardcode_libdir_flag_spec_FC='${wl}-rpath,$libdir'
export_dynamic_flag_spec_FC='${wl}-E'
else
case $host_os in
openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*)
archive_cmds_FC='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_FC='-R$libdir'
;;
*)
archive_cmds_FC='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
hardcode_libdir_flag_spec_FC='${wl}-rpath,$libdir'
;;
esac
fi
else
ld_shlibs_FC=no
fi
;;
os2*)
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_minus_L_FC=yes
allow_undefined_flag_FC=unsupported
archive_cmds_FC='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
old_archive_from_new_cmds_FC='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
;;
osf3*)
if test "$GCC" = yes; then
allow_undefined_flag_FC=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds_FC='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
allow_undefined_flag_FC=' -expect_unresolved \*'
archive_cmds_FC='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
fi
archive_cmds_need_lc_FC='no'
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
hardcode_libdir_separator_FC=:
;;
osf4* | osf5*) # as osf3* with the addition of -msym flag
if test "$GCC" = yes; then
allow_undefined_flag_FC=' ${wl}-expect_unresolved ${wl}\*'
archive_cmds_FC='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
hardcode_libdir_flag_spec_FC='${wl}-rpath ${wl}$libdir'
else
allow_undefined_flag_FC=' -expect_unresolved \*'
archive_cmds_FC='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
archive_expsym_cmds_FC='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
$CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp'
# Both c and cxx compiler support -rpath directly
hardcode_libdir_flag_spec_FC='-rpath $libdir'
fi
archive_cmds_need_lc_FC='no'
hardcode_libdir_separator_FC=:
;;
solaris*)
no_undefined_flag_FC=' -z defs'
if test "$GCC" = yes; then
wlarc='${wl}'
archive_cmds_FC='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
else
case `$CC -V 2>&1` in
*"Compilers 5.0"*)
wlarc=''
archive_cmds_FC='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
;;
*)
wlarc='${wl}'
archive_cmds_FC='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
;;
esac
fi
hardcode_libdir_flag_spec_FC='-R$libdir'
hardcode_shlibpath_var_FC=no
case $host_os in
solaris2.[0-5] | solaris2.[0-5].*) ;;
*)
# The compiler driver will combine and reorder linker options,
# but understands `-z linker_flag'. GCC discards it without `$wl',
# but is careful enough not to reorder.
# Supported since Solaris 2.6 (maybe 2.5.1?)
if test "$GCC" = yes; then
whole_archive_flag_spec_FC='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
else
whole_archive_flag_spec_FC='-z allextract$convenience -z defaultextract'
fi
;;
esac
link_all_deplibs_FC=yes
;;
sunos4*)
if test "x$host_vendor" = xsequent; then
# Use $CC to link under sequent, because it throws in some extra .o
# files that make .init and .fini sections work.
archive_cmds_FC='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_FC='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
fi
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_direct_FC=yes
hardcode_minus_L_FC=yes
hardcode_shlibpath_var_FC=no
;;
sysv4)
case $host_vendor in
sni)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_FC=yes # is this really true???
;;
siemens)
## LD is ld it makes a PLAMLIB
## CC just makes a GrossModule.
archive_cmds_FC='$LD -G -o $lib $libobjs $deplibs $linker_flags'
reload_cmds_FC='$CC -r -o $output$reload_objs'
hardcode_direct_FC=no
;;
motorola)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_direct_FC=no #Motorola manual says yes, but my tests say they lie
;;
esac
runpath_var='LD_RUN_PATH'
hardcode_shlibpath_var_FC=no
;;
sysv4.3*)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var_FC=no
export_dynamic_flag_spec_FC='-Bexport'
;;
sysv4*MP*)
if test -d /usr/nec; then
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_shlibpath_var_FC=no
runpath_var=LD_RUN_PATH
hardcode_runpath_var=yes
ld_shlibs_FC=yes
fi
;;
sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
no_undefined_flag_FC='${wl}-z,text'
archive_cmds_need_lc_FC=no
hardcode_shlibpath_var_FC=no
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds_FC='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_FC='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
sysv5* | sco3.2v5* | sco5v6*)
# Note: We can NOT use -z defs as we might desire, because we do not
# link with -lc, and that would cause any symbols used from libc to
# always be unresolved, which means just about no library would
# ever link correctly. If we're not using GNU ld we use -z text
# though, which does catch some bad symbols but isn't as heavy-handed
# as -z defs.
no_undefined_flag_FC='${wl}-z,text'
allow_undefined_flag_FC='${wl}-z,nodefs'
archive_cmds_need_lc_FC=no
hardcode_shlibpath_var_FC=no
hardcode_libdir_flag_spec_FC='${wl}-R,$libdir'
hardcode_libdir_separator_FC=':'
link_all_deplibs_FC=yes
export_dynamic_flag_spec_FC='${wl}-Bexport'
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
archive_cmds_FC='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
archive_cmds_FC='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
archive_expsym_cmds_FC='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
uts4*)
archive_cmds_FC='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
hardcode_libdir_flag_spec_FC='-L$libdir'
hardcode_shlibpath_var_FC=no
;;
*)
ld_shlibs_FC=no
;;
esac
if test x$host_vendor = xsni; then
case $host in
sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
export_dynamic_flag_spec_FC='${wl}-Blargedynsym'
;;
esac
fi
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_FC" >&5
$as_echo "$ld_shlibs_FC" >&6; }
test "$ld_shlibs_FC" = no && can_build_shared=no
with_gnu_ld_FC=$with_gnu_ld
#
# Do we need to explicitly link libc?
#
case "x$archive_cmds_need_lc_FC" in
x|xyes)
# Assume -lc should be added
archive_cmds_need_lc_FC=yes
if test "$enable_shared" = yes && test "$GCC" = yes; then
case $archive_cmds_FC in
*'~'*)
# FIXME: we may have to deal with multi-command sequences.
;;
'$CC '*)
# Test whether the compiler implicitly links with -lc since on some
# systems, -lgcc has to come before -lc. If gcc already passes -lc
# to ld, don't add -lc before -lgcc.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
if ${lt_cv_archive_cmds_need_lc_FC+:} false; then :
$as_echo_n "(cached) " >&6
else
$RM conftest*
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
(eval $ac_compile) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; } 2>conftest.err; then
soname=conftest
lib=conftest
libobjs=conftest.$ac_objext
deplibs=
wl=$lt_prog_compiler_wl_FC
pic_flag=$lt_prog_compiler_pic_FC
compiler_flags=-v
linker_flags=-v
verstring=
output_objdir=.
libname=conftest
lt_save_allow_undefined_flag=$allow_undefined_flag_FC
allow_undefined_flag_FC=
if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_FC 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
(eval $archive_cmds_FC 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
ac_status=$?
$as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
test $ac_status = 0; }
then
lt_cv_archive_cmds_need_lc_FC=no
else
lt_cv_archive_cmds_need_lc_FC=yes
fi
allow_undefined_flag_FC=$lt_save_allow_undefined_flag
else
cat conftest.err 1>&5
fi
$RM conftest*
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_FC" >&5
$as_echo "$lt_cv_archive_cmds_need_lc_FC" >&6; }
archive_cmds_need_lc_FC=$lt_cv_archive_cmds_need_lc_FC
;;
esac
fi
;;
esac
-
-
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
$as_echo_n "checking dynamic linker characteristics... " >&6; }
library_names_spec=
libname_spec='lib$name'
soname_spec=
shrext_cmds=".so"
postinstall_cmds=
postuninstall_cmds=
finish_cmds=
finish_eval=
shlibpath_var=
shlibpath_overrides_runpath=unknown
version_type=none
dynamic_linker="$host_os ld.so"
sys_lib_dlsearch_path_spec="/lib /usr/lib"
need_lib_prefix=unknown
hardcode_into_libs=no
# when you set need_version to no, make sure it does not cause -set_version
# flags to be left without arguments
need_version=unknown
case $host_os in
aix3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
shlibpath_var=LIBPATH
# AIX 3 has no versioning support, so we append a major version to the name.
soname_spec='${libname}${release}${shared_ext}$major'
;;
aix[4-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
hardcode_into_libs=yes
if test "$host_cpu" = ia64; then
# AIX 5 supports IA64
library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
else
# With GCC up to 2.95.x, collect2 would create an import file
# for dependence libraries. The import file would start with
# the line `#! .'. This would cause the generated library to
# depend on `.', always an invalid library. This was fixed in
# development snapshots of GCC prior to 3.0.
case $host_os in
aix4 | aix4.[01] | aix4.[01].*)
if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
echo ' yes '
echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
:
else
can_build_shared=no
fi
;;
esac
# AIX (on Power*) has no versioning support, so currently we can not hardcode correct
# soname into executable. Probably we can add versioning support to
# collect2, so additional links can be useful in future.
if test "$aix_use_runtimelinking" = yes; then
# If using run time linking (on AIX 4.2 or later) use lib<name>.so
# instead of lib<name>.a to let people know that these are not
# typical AIX shared libraries.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
else
# We preserve .a as extension for shared libraries through AIX4.2
# and later when we are not doing run time linking.
library_names_spec='${libname}${release}.a $libname.a'
soname_spec='${libname}${release}${shared_ext}$major'
fi
shlibpath_var=LIBPATH
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# Since July 2007 AmigaOS4 officially supports .so libraries.
# When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
;;
m68k)
library_names_spec='$libname.ixlibrary $libname.a'
# Create ${libname}_ixlibrary.a entries in /sys/libs.
finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
;;
esac
;;
beos*)
library_names_spec='${libname}${shared_ext}'
dynamic_linker="$host_os ld.so"
shlibpath_var=LIBRARY_PATH
;;
bsdi[45]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
# the default ld.so.conf also contains /usr/contrib/lib and
# /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
# libtool to hard-code these into programs
;;
cygwin* | mingw* | pw32* | cegcc*)
version_type=windows
shrext_cmds=".dll"
need_version=no
need_lib_prefix=no
case $GCC,$cc_basename in
yes,*)
# gcc
library_names_spec='$libname.dll.a'
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname~
chmod a+x \$dldir/$dlname~
if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
fi'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
case $host_os in
cygwin*)
# Cygwin DLLs use 'cyg' prefix rather than 'lib'
soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
mingw* | cegcc*)
# MinGW DLLs use traditional 'lib' prefix
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
pw32*)
# pw32 DLLs use 'pw' prefix rather than 'lib'
library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
;;
esac
dynamic_linker='Win32 ld.exe'
;;
*,cl*)
# Native MSVC
libname_spec='$name'
soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
library_names_spec='${libname}.dll.lib'
case $build_os in
mingw*)
sys_lib_search_path_spec=
lt_save_ifs=$IFS
IFS=';'
for lt_path in $LIB
do
IFS=$lt_save_ifs
# Let DOS variable expansion print the short 8.3 style file name.
lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
done
IFS=$lt_save_ifs
# Convert to MSYS style.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'`
;;
cygwin*)
# Convert to unix form, then to dos form, then back to unix form
# but this time dos style (no spaces!) so that the unix form looks
# like /cygdrive/c/PROGRA~1:/cygdr...
sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
;;
*)
sys_lib_search_path_spec="$LIB"
if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
# It is most probably a Windows format PATH.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
else
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
fi
# FIXME: find the short name or the path components, as spaces are
# common. (e.g. "Program Files" -> "PROGRA~1")
;;
esac
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
dynamic_linker='Win32 link.exe'
;;
*)
# Assume MSVC wrapper
library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib'
dynamic_linker='Win32 ld.exe'
;;
esac
# FIXME: first we should search . and the directory the executable is in
shlibpath_var=PATH
;;
darwin* | rhapsody*)
dynamic_linker="$host_os dyld"
version_type=darwin
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
soname_spec='${libname}${release}${major}$shared_ext'
shlibpath_overrides_runpath=yes
shlibpath_var=DYLD_LIBRARY_PATH
shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
;;
dgux*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
-freebsd1*)
- dynamic_linker=no
- ;;
-
freebsd* | dragonfly*)
# DragonFly does not have aout. When/if they implement a new
# versioning mechanism, adjust this.
if test -x /usr/bin/objformat; then
objformat=`/usr/bin/objformat`
else
case $host_os in
- freebsd[123]*) objformat=aout ;;
+ freebsd[23].*) objformat=aout ;;
*) objformat=elf ;;
esac
fi
version_type=freebsd-$objformat
case $version_type in
freebsd-elf*)
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
need_version=no
need_lib_prefix=no
;;
freebsd-*)
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
need_version=yes
;;
esac
shlibpath_var=LD_LIBRARY_PATH
case $host_os in
- freebsd2*)
+ freebsd2.*)
shlibpath_overrides_runpath=yes
;;
freebsd3.[01]* | freebsdelf3.[01]*)
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
*) # from 4.6 on, and DragonFly
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
esac
;;
gnu*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
haiku*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
dynamic_linker="$host_os runtime_loader"
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LIBRARY_PATH
shlibpath_overrides_runpath=yes
sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
hardcode_into_libs=yes
;;
hpux9* | hpux10* | hpux11*)
# Give a soname corresponding to the major version so that dld.sl refuses to
# link against other versions.
version_type=sunos
need_lib_prefix=no
need_version=no
case $host_cpu in
ia64*)
shrext_cmds='.so'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.so"
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
if test "X$HPUX_IA64_MODE" = X32; then
sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
else
sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
fi
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
hppa*64*)
shrext_cmds='.sl'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.sl"
shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
*)
shrext_cmds='.sl'
dynamic_linker="$host_os dld.sl"
shlibpath_var=SHLIB_PATH
shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
;;
esac
# HP-UX runs *really* slowly unless shared libraries are mode 555, ...
postinstall_cmds='chmod 555 $lib'
# or fails outright, so override atomically:
install_override_mode=555
;;
interix[3-9]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
irix5* | irix6* | nonstopux*)
case $host_os in
nonstopux*) version_type=nonstopux ;;
*)
if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
else
version_type=irix
fi ;;
esac
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
case $host_os in
irix5* | nonstopux*)
libsuff= shlibsuff=
;;
*)
case $LD in # libtool.m4 will add one of these switches to LD
*-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
libsuff= shlibsuff= libmagic=32-bit;;
*-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
libsuff=32 shlibsuff=N32 libmagic=N32;;
*-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
libsuff=64 shlibsuff=64 libmagic=64-bit;;
*) libsuff= shlibsuff= libmagic=never-match;;
esac
;;
esac
shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
shlibpath_overrides_runpath=no
sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
hardcode_into_libs=yes
;;
# No shared lib support for Linux oldld, aout, or coff.
linux*oldld* | linux*aout* | linux*coff*)
dynamic_linker=no
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
# Some binutils ld are patched to set DT_RUNPATH
if ${lt_cv_shlibpath_overrides_runpath+:} false; then :
$as_echo_n "(cached) " >&6
else
lt_cv_shlibpath_overrides_runpath=no
save_LDFLAGS=$LDFLAGS
save_libdir=$libdir
eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_FC\"; \
LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_FC\""
cat > conftest.$ac_ext <<_ACEOF
program main
end
_ACEOF
if ac_fn_fc_try_link "$LINENO"; then :
if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
lt_cv_shlibpath_overrides_runpath=yes
fi
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LDFLAGS=$save_LDFLAGS
libdir=$save_libdir
fi
shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
# This implies no fast_install, which is unacceptable.
# Some rework will be needed to allow for fast_install
# before this can be enabled.
hardcode_into_libs=yes
# Append ld.so.conf contents to the search path
if test -f /etc/ld.so.conf; then
lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
fi
# We used to test for /lib/ld.so.1 and disable shared libraries on
# powerpc, because MkLinux only supported shared libraries with the
# GNU dynamic linker. Since this was broken with cross compilers,
# most powerpc-linux boxes support dynamic linking these days and
# people can always --disable-shared, the test was removed, and we
# assume the GNU/Linux dynamic linker is in use.
dynamic_linker='GNU/Linux ld.so'
;;
netbsd*)
version_type=sunos
need_lib_prefix=no
need_version=no
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
dynamic_linker='NetBSD (a.out) ld.so'
else
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='NetBSD ld.elf_so'
fi
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
newsos6)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
;;
*nto* | *qnx*)
version_type=qnx
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
dynamic_linker='ldqnx.so'
;;
openbsd*)
version_type=sunos
sys_lib_dlsearch_path_spec="/usr/lib"
need_lib_prefix=no
# Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
case $host_os in
openbsd3.3 | openbsd3.3.*) need_version=yes ;;
*) need_version=no ;;
esac
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
shlibpath_var=LD_LIBRARY_PATH
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
case $host_os in
openbsd2.[89] | openbsd2.[89].*)
shlibpath_overrides_runpath=no
;;
*)
shlibpath_overrides_runpath=yes
;;
esac
else
shlibpath_overrides_runpath=yes
fi
;;
os2*)
libname_spec='$name'
shrext_cmds=".dll"
need_lib_prefix=no
library_names_spec='$libname${shared_ext} $libname.a'
dynamic_linker='OS/2 ld.exe'
shlibpath_var=LIBPATH
;;
osf3* | osf4* | osf5*)
version_type=osf
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
;;
rdos*)
dynamic_linker=no
;;
solaris*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
# ldd complains unless libraries are executable
postinstall_cmds='chmod +x $lib'
;;
sunos4*)
version_type=sunos
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
if test "$with_gnu_ld" = yes; then
need_lib_prefix=no
fi
need_version=yes
;;
sysv4 | sysv4.3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
case $host_vendor in
sni)
shlibpath_overrides_runpath=no
need_lib_prefix=no
runpath_var=LD_RUN_PATH
;;
siemens)
need_lib_prefix=no
;;
motorola)
need_lib_prefix=no
need_version=no
shlibpath_overrides_runpath=no
sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
;;
esac
;;
sysv4*MP*)
if test -d /usr/nec ;then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
soname_spec='$libname${shared_ext}.$major'
shlibpath_var=LD_LIBRARY_PATH
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
version_type=freebsd-elf
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
if test "$with_gnu_ld" = yes; then
sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
else
sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
case $host_os in
sco3.2v5*)
sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
;;
esac
fi
sys_lib_dlsearch_path_spec='/usr/lib'
;;
tpf*)
# TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
uts4*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
*)
dynamic_linker=no
;;
esac
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
$as_echo "$dynamic_linker" >&6; }
test "$dynamic_linker" = no && can_build_shared=no
variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
if test "$GCC" = yes; then
variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
fi
if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
fi
if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
hardcode_action_FC=
if test -n "$hardcode_libdir_flag_spec_FC" ||
test -n "$runpath_var_FC" ||
test "X$hardcode_automatic_FC" = "Xyes" ; then
# We can hardcode non-existent directories.
if test "$hardcode_direct_FC" != no &&
# If the only mechanism to avoid hardcoding is shlibpath_var, we
# have to relink, otherwise we might link with an installed library
# when we should be linking with a yet-to-be-installed one
## test "$_LT_TAGVAR(hardcode_shlibpath_var, FC)" != no &&
test "$hardcode_minus_L_FC" != no; then
# Linking always hardcodes the temporary library directory.
hardcode_action_FC=relink
else
# We can link without hardcoding, and we can hardcode nonexisting dirs.
hardcode_action_FC=immediate
fi
else
# We cannot hardcode anything, or else we can only hardcode existing
# directories.
hardcode_action_FC=unsupported
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_FC" >&5
$as_echo "$hardcode_action_FC" >&6; }
if test "$hardcode_action_FC" = relink ||
test "$inherit_rpath_FC" = yes; then
# Fast installation is not supported
enable_fast_install=no
elif test "$shlibpath_overrides_runpath" = yes ||
test "$enable_shared" = no; then
# Fast installation is not necessary
enable_fast_install=needless
fi
fi # test -n "$compiler"
GCC=$lt_save_GCC
CC=$lt_save_CC
CFLAGS=$lt_save_CFLAGS
fi # test "$_lt_disable_FC" != yes
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
+
+
ac_config_commands="$ac_config_commands libtool"
# Only expand once:
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
$as_echo_n "checking whether build environment is sane... " >&6; }
-# Just in case
-sleep 1
-echo timestamp > conftest.file
# Reject unsafe characters in $srcdir or the absolute working directory
# name. Accept space and tab only in the latter.
am_lf='
'
case `pwd` in
*[\\\"\#\$\&\'\`$am_lf]*)
as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
esac
case $srcdir in
*[\\\"\#\$\&\'\`$am_lf\ \ ]*)
- as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;;
+ as_fn_error $? "unsafe srcdir value: '$srcdir'" "$LINENO" 5;;
esac
-# Do `set' in a subshell so we don't clobber the current shell's
+# Do 'set' in a subshell so we don't clobber the current shell's
# arguments. Must try -L first in case configure is actually a
# symlink; some systems play weird games with the mod time of symlinks
# (eg FreeBSD returns the mod time of the symlink's containing
# directory).
if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$*" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$*" != "X $srcdir/configure conftest.file" \
- && test "$*" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
-alias in your environment" "$LINENO" 5
- fi
-
+ am_has_slept=no
+ for am_try in 1 2; do
+ echo "timestamp, slept: $am_has_slept" > conftest.file
+ set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
+ if test "$*" = "X"; then
+ # -L didn't work.
+ set X `ls -t "$srcdir/configure" conftest.file`
+ fi
+ if test "$*" != "X $srcdir/configure conftest.file" \
+ && test "$*" != "X conftest.file $srcdir/configure"; then
+
+ # If neither matched, then we have a broken ls. This can happen
+ # if, for instance, CONFIG_SHELL is bash and it inherits a
+ # broken ls alias from the environment. This has actually
+ # happened. Such a system could not be considered "sane".
+ as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
+ alias in your environment" "$LINENO" 5
+ fi
+ if test "$2" = conftest.file || test $am_try -eq 2; then
+ break
+ fi
+ # Just in case.
+ sleep 1
+ am_has_slept=yes
+ done
test "$2" = conftest.file
)
then
# Ok.
:
else
as_fn_error $? "newly created file is older than distributed files!
Check your system clock" "$LINENO" 5
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
+# If we didn't sleep, we still need to ensure time stamps of config.status and
+# generated files are strictly newer.
+am_sleep_pid=
+if grep 'slept: no' conftest.file >/dev/null 2>&1; then
+ ( sleep 1 ) &
+ am_sleep_pid=$!
+fi
+
+rm -f conftest.file
+
prefix_NONE=
exec_prefix_NONE=
test "x$prefix" = xNONE && prefix_NONE=yes && prefix=$ac_default_prefix
test "x$exec_prefix" = xNONE && exec_prefix_NONE=yes && exec_prefix=$prefix
eval ac_define_dir="\"$datadir\""
eval ac_define_dir="\"$ac_define_dir\""
DATADIR="$ac_define_dir"
cat >>confdefs.h <<_ACEOF
#define DATADIR "$ac_define_dir"
_ACEOF
test "$prefix_NONE" && prefix=NONE
test "$exec_prefix_NONE" && exec_prefix=NONE
# Check whether --with-precision was given.
if test "${with_precision+set}" = set; then :
withval=$with_precision;
else
with_precision=double
fi
if test "x$with_precision" == xquadruple; then :
fortran_real_kind="selected_real_kind(32,50)"
elif test "x$with_precision" == xquad; then :
fortran_real_kind="selected_real_kind(32,50)"
elif test "x$with_precision" == xdouble; then :
fortran_real_kind="kind(1.0d0)"
elif test "x$with_precision" == xintermediate; then :
fortran_real_kind="selected_real_kind(18,4931)"
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "--with-precision was given with an unrecognized
parameter
See \`config.log' for more details" "$LINENO" 5; }
fi
# Check whether --enable-ff was given.
if test "${enable_ff+set}" = set; then :
enableval=$enable_ff;
fi
if test "x$enable_ff" != xno; then
COMPILE_FF_TRUE=
COMPILE_FF_FALSE='#'
else
COMPILE_FF_TRUE='#'
COMPILE_FF_FALSE=
fi
if test "x$enable_ff" != xno; then :
conf_with_ff=""
else
conf_with_ff="# "
fi
if test "x$enable_ff" != xno; then :
conf_wout_ff="# "
else
conf_wout_ff=""
fi
if test "x$enable_ff" != xno; then :
case_with_ff=" "
else
case_with_ff="!AC!"
fi
if test "x$enable_ff" != xno; then :
case_wout_ff="!AC!"
else
case_wout_ff=" "
fi
# Check whether --enable-ql was given.
if test "${enable_ql+set}" = set; then :
enableval=$enable_ql;
fi
if test "x$enable_ql" != xno; then
COMPILE_QL_TRUE=
COMPILE_QL_FALSE='#'
else
COMPILE_QL_TRUE='#'
COMPILE_QL_FALSE=
fi
if test "x$enable_ql" != xno; then :
conf_with_ql=""
else
conf_with_ql="# "
fi
if test "x$enable_ql" != xno; then :
conf_wout_ql="# "
else
conf_wout_ql=""
fi
if test "x$enable_ql" != xno; then :
case_with_ql=" "
else
case_with_ql="!AC!"
fi
if test "x$enable_ql" != xno; then :
case_wout_ql="!AC!"
else
case_wout_ql=" "
fi
# Check whether --enable-olo was given.
if test "${enable_olo+set}" = set; then :
enableval=$enable_olo;
fi
if test "x$enable_olo" != xno; then
COMPILE_OLO_TRUE=
COMPILE_OLO_FALSE='#'
else
COMPILE_OLO_TRUE='#'
COMPILE_OLO_FALSE=
fi
avh_olo_real_kind="$fortran_real_kind"
if test "x$enable_olo" != xno; then :
conf_with_olo=""
else
conf_with_olo="# "
fi
if test "x$enable_olo" != xno; then :
conf_wout_olo="# "
else
conf_wout_olo=""
fi
if test "x$enable_olo" != xno; then :
case_with_olo=" "
else
case_with_olo="!AC!"
fi
if test "x$enable_olo" != xno; then :
case_wout_olo="!AC!"
else
case_wout_olo=" "
fi
if test "x$enable_olo" != xno; then :
case_with_avh=" "
else
case_with_avh="!AC!"
fi
if test "x$enable_olo" != xno; then :
case_wout_avh="!AC!"
else
case_wout_avh=" "
fi
# Check whether --enable-golem95 was given.
if test "${enable_golem95+set}" = set; then :
enableval=$enable_golem95;
fi
if test "x$enable_golem95" != xno; then
COMPILE_GOLEM95C_TRUE=
COMPILE_GOLEM95C_FALSE='#'
else
COMPILE_GOLEM95C_TRUE='#'
COMPILE_GOLEM95C_FALSE=
fi
if test "x$enable_golem95" != xno; then :
conf_with_golem95=""
else
conf_with_golem95="# "
fi
if test "x$enable_golem95" != xno; then :
conf_wout_golem95="# "
else
conf_wout_golem95=""
fi
if test "x$enable_golem95" != xno; then :
case_with_golem=" "
else
case_with_golem="!AC!"
fi
if test "x$enable_golem95" != xno; then :
case_wout_golem="!AC!"
else
case_wout_golem=" "
fi
if test "x" == "x"; then
COMPILE_TENSREC_TRUE=
COMPILE_TENSREC_FALSE='#'
else
COMPILE_TENSREC_TRUE='#'
COMPILE_TENSREC_FALSE=
fi
SAMURAIVERSION=2.1.1
# Check whether --enable-samurai was given.
if test "${enable_samurai+set}" = set; then :
enableval=$enable_samurai;
fi
if test "x$enable_golem95" != xno; then
COMPILE_SAMURAI_TRUE=
COMPILE_SAMURAI_FALSE='#'
else
COMPILE_SAMURAI_TRUE='#'
COMPILE_SAMURAI_FALSE=
fi
if test "x$enable_samurai" != xno; then :
conf_with_samurai=""
else
conf_with_samurai="# "
fi
if test "x$enable_samurai" != xno; then :
conf_wout_samurai="# "
else
conf_wout_samurai=""
fi
if test "x$enable_samurai" != xno; then :
case_with_samurai=" "
else
case_with_samurai="!AC!"
fi
if test "x$enable_samurai" != xno; then :
case_wout_samurai="!AC!"
else
case_wout_samurai=" "
fi
# Check whether --with-looptools was given.
if test "${with_looptools+set}" = set; then :
withval=$with_looptools;
else
with_looptools=no
fi
LIBLOOPTOOLS=
if test "x$with_looptools" == xyes; then :
as_ac_Lib=`$as_echo "ac_cv_lib_ooptools -lgfortran''_ltexi_" | $as_tr_sh`
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ltexi_ in -looptools -lgfortran" >&5
$as_echo_n "checking for ltexi_ in -looptools -lgfortran... " >&6; }
if eval \${$as_ac_Lib+:} false; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-looptools -lgfortran -looptools $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char ltexi_ ();
#ifdef FC_DUMMY_MAIN
#ifndef FC_DUMMY_MAIN_EQ_F77
# ifdef __cplusplus
extern "C"
# endif
int FC_DUMMY_MAIN() { return 1; }
#endif
#endif
int
main ()
{
return ltexi_ ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
eval "$as_ac_Lib=yes"
else
eval "$as_ac_Lib=no"
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
eval ac_res=\$$as_ac_Lib
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
$as_echo "$ac_res" >&6; }
if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
LIBLOOPTOOLS="-looptools"
$as_echo "#define HAVE_LT 1" >>confdefs.h
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "--with-looptools was given, but test for -looptools failed. \
Consider using --with-looptools=path/libooptools.a .
See \`config.log' for more details" "$LINENO" 5; }
fi
elif test "x$with_looptools" != xno; then :
as_ac_File=`$as_echo "ac_cv_file_$with_looptools" | $as_tr_sh`
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $with_looptools" >&5
$as_echo_n "checking for $with_looptools... " >&6; }
if eval \${$as_ac_File+:} false; then :
$as_echo_n "(cached) " >&6
else
test "$cross_compiling" = yes &&
as_fn_error $? "cannot check for file existence when cross compiling" "$LINENO" 5
if test -r "$with_looptools"; then
eval "$as_ac_File=yes"
else
eval "$as_ac_File=no"
fi
fi
eval ac_res=\$$as_ac_File
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
$as_echo "$ac_res" >&6; }
if eval test \"x\$"$as_ac_File"\" = x"yes"; then :
LIBLOOPTOOLS="$with_looptools"
$as_echo "#define HAVE_LT 1" >>confdefs.h
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "--with-looptools was given, but location '$with_looptools' \
is wrong.
See \`config.log' for more details" "$LINENO" 5; }
fi
fi
if test "x$with_looptools" != xno; then :
conf_with_lt=""
else
conf_with_lt="#"
fi
if test "x$with_looptools" != xno; then :
conf_wout_lt="#"
else
conf_wout_lt=""
fi
if test "x$with_looptools" != xno; then :
case_with_lt=" "
else
case_with_lt="!AC!"
fi
if test "x$with_looptools" != xno; then :
case_wout_lt="!AC!"
else
case_wout_lt=" "
fi
# Check whether --with-lt-precision was given.
if test "${with_lt_precision+set}" = set; then :
withval=$with_lt_precision;
else
with_lt_precision=double
fi
if test "x$with_lt_precision" == xquadruple; then :
lt_real_kind="selected_real_kind(32,50)"
elif test "x$with_lt_precision" == xquad; then :
lt_real_kind="selected_real_kind(32,50)"
elif test "x$with_lt_precision" == xdouble; then :
lt_real_kind="kind(1.0d0)"
else
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error $? "--with-lt-precision was given with an
unrecognized parameter
See \`config.log' for more details" "$LINENO" 5; }
fi
-ac_config_files="$ac_config_files gosam.conf samurai.pc Makefile ff-2.0/Makefile ff-2.0/ffinit.f qcdloop-1.9/Makefile avh_olo-2.2.1/Makefile golem95c-1.2.1/Makefile golem95c-1.2.1/module/Makefile golem95c-1.2.1/module/precision_golem.f90 golem95c-1.2.1/integrals/Makefile golem95c-1.2.1/integrals/two_point/Makefile golem95c-1.2.1/integrals/one_point/Makefile golem95c-1.2.1/integrals/three_point/Makefile golem95c-1.2.1/integrals/four_point/Makefile golem95c-1.2.1/integrals/four_point/generic_function_4p.f90 golem95c-1.2.1/interface/Makefile golem95c-1.2.1/numerical/Makefile golem95c-1.2.1/kinematic/Makefile golem95c-1.2.1/form_factor/Makefile samurai-2.1.1/Makefile samurai-2.1.1/madds.f90 samurai-2.1.1/msamurai.f90 samurai-2.1.1/precision.f90"
+ac_config_files="$ac_config_files gosam.conf samurai.pc Makefile ff-2.0/Makefile ff-2.0/ffinit.f qcdloop-1.9/Makefile avh_olo-2.2.1/Makefile golem95c-1.2.1/Makefile golem95c-1.2.1/module/Makefile golem95c-1.2.1/module/precision_golem.f90 golem95c-1.2.1/integrals/Makefile golem95c-1.2.1/integrals/two_point/Makefile golem95c-1.2.1/integrals/one_point/Makefile golem95c-1.2.1/integrals/three_point/Makefile golem95c-1.2.1/integrals/four_point/Makefile golem95c-1.2.1/integrals/four_point/generic_function_4p.f90 golem95c-1.2.1/higherrank/Makefile golem95c-1.2.1/interface/Makefile golem95c-1.2.1/numerical/Makefile golem95c-1.2.1/kinematic/Makefile golem95c-1.2.1/form_factor/Makefile samurai-2.1.1/Makefile samurai-2.1.1/madds.f90 samurai-2.1.1/msamurai.f90 samurai-2.1.1/precision.f90"
cat >confcache <<\_ACEOF
# This file is a shell script that caches the results of configure
# tests run on this system so they can be shared between configure
# scripts and configure runs, see configure's option --config-cache.
# It is not useful on other systems. If it contains results you don't
# want to keep, you may remove or edit it.
#
# config.status only pays attention to the cache file if you give it
# the --recheck option to rerun configure.
#
# `ac_cv_env_foo' variables (set or unset) will be overridden when
# loading this file, other *unset* `ac_cv_foo' will be assigned the
# following values.
_ACEOF
# The following way of writing the cache mishandles newlines in values,
# but we know of no workaround that is simple, portable, and efficient.
# So, we kill variables containing newlines.
# Ultrix sh set writes to stderr and can't be redirected directly,
# and sets the high bit in the cache file unless we assign to the vars.
(
for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
eval ac_val=\$$ac_var
case $ac_val in #(
*${as_nl}*)
case $ac_var in #(
*_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
esac
case $ac_var in #(
_ | IFS | as_nl) ;; #(
BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
*) { eval $ac_var=; unset $ac_var;} ;;
esac ;;
esac
done
(set) 2>&1 |
case $as_nl`(ac_space=' '; set) 2>&1` in #(
*${as_nl}ac_space=\ *)
# `set' does not quote correctly, so add quotes: double-quote
# substitution turns \\\\ into \\, and sed turns \\ into \.
sed -n \
"s/'/'\\\\''/g;
s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
;; #(
*)
# `set' quotes correctly as required by POSIX, so do not add quotes.
sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
;;
esac |
sort
) |
sed '
/^ac_cv_env_/b end
t clear
:clear
s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
t end
s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
:end' >>confcache
if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
if test -w "$cache_file"; then
if test "x$cache_file" != "x/dev/null"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
$as_echo "$as_me: updating cache $cache_file" >&6;}
if test ! -f "$cache_file" || test -h "$cache_file"; then
cat confcache >"$cache_file"
else
case $cache_file in #(
*/* | ?:*)
mv -f confcache "$cache_file"$$ &&
mv -f "$cache_file"$$ "$cache_file" ;; #(
*)
mv -f confcache "$cache_file" ;;
esac
fi
fi
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
fi
fi
rm -f confcache
test "x$prefix" = xNONE && prefix=$ac_default_prefix
# Let make expand exec_prefix.
test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
# Transform confdefs.h into DEFS.
# Protect against shell expansion while executing Makefile rules.
# Protect against Makefile macro expansion.
#
# If the first sed substitution is executed (which looks for macros that
# take arguments), then branch to the quote section. Otherwise,
# look for a macro that doesn't take arguments.
ac_script='
:mline
/\\$/{
N
s,\\\n,,
b mline
}
t clear
:clear
s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g
t quote
s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g
t quote
b any
:quote
s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g
s/\[/\\&/g
s/\]/\\&/g
s/\$/$$/g
H
:any
${
g
s/^\n//
s/\n/ /g
p
}
'
DEFS=`sed -n "$ac_script" confdefs.h`
ac_libobjs=
ac_ltlibobjs=
U=
for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
# 1. Remove the extension, and $U if already installed.
ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
# 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
# will be set to the directory where LIBOBJS objects are built.
as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
done
LIBOBJS=$ac_libobjs
LTLIBOBJS=$ac_ltlibobjs
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5
+$as_echo_n "checking that generated files are newer than configure... " >&6; }
+ if test -n "$am_sleep_pid"; then
+ # Hide warnings about reused PIDs.
+ wait $am_sleep_pid 2>/dev/null
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5
+$as_echo "done" >&6; }
if test -n "$EXEEXT"; then
am__EXEEXT_TRUE=
am__EXEEXT_FALSE='#'
else
am__EXEEXT_TRUE='#'
am__EXEEXT_FALSE=
fi
if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
as_fn_error $? "conditional \"AMDEP\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
as_fn_error $? "conditional \"am__fastdepCC\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5
+$as_echo_n "checking that generated files are newer than configure... " >&6; }
+ if test -n "$am_sleep_pid"; then
+ # Hide warnings about reused PIDs.
+ wait $am_sleep_pid 2>/dev/null
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5
+$as_echo "done" >&6; }
if test -z "${COMPILE_FF_TRUE}" && test -z "${COMPILE_FF_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_FF\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${COMPILE_QL_TRUE}" && test -z "${COMPILE_QL_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_QL\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${COMPILE_OLO_TRUE}" && test -z "${COMPILE_OLO_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_OLO\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${COMPILE_GOLEM95C_TRUE}" && test -z "${COMPILE_GOLEM95C_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_GOLEM95C\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${COMPILE_TENSREC_TRUE}" && test -z "${COMPILE_TENSREC_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_TENSREC\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${COMPILE_SAMURAI_TRUE}" && test -z "${COMPILE_SAMURAI_FALSE}"; then
as_fn_error $? "conditional \"COMPILE_SAMURAI\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
: "${CONFIG_STATUS=./config.status}"
ac_write_fail=0
ac_clean_files_save=$ac_clean_files
ac_clean_files="$ac_clean_files $CONFIG_STATUS"
{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
as_write_fail=0
cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
#! $SHELL
# Generated by $as_me.
# Run this file to recreate the current configuration.
# Compiler output produced by configure, useful for debugging
# configure, is in config.log if it exists.
debug=false
ac_cs_recheck=false
ac_cs_silent=false
SHELL=\${CONFIG_SHELL-$SHELL}
export SHELL
_ASEOF
cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
## -------------------- ##
## M4sh Initialization. ##
## -------------------- ##
# Be more Bourne compatible
DUALCASE=1; export DUALCASE # for MKS sh
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
emulate sh
NULLCMD=:
# Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
# is contrary to our usage. Disable this feature.
alias -g '${1+"$@"}'='"$@"'
setopt NO_GLOB_SUBST
else
case `(set -o) 2>/dev/null` in #(
*posix*) :
set -o posix ;; #(
*) :
;;
esac
fi
as_nl='
'
export as_nl
# Printing a long string crashes Solaris 7 /usr/bin/printf.
as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
# Prefer a ksh shell builtin over an external printf program on Solaris,
# but without wasting forks for bash or zsh.
if test -z "$BASH_VERSION$ZSH_VERSION" \
&& (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
as_echo='print -r --'
as_echo_n='print -rn --'
elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
as_echo='printf %s\n'
as_echo_n='printf %s'
else
if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
as_echo_n='/usr/ucb/echo -n'
else
as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
as_echo_n_body='eval
arg=$1;
case $arg in #(
*"$as_nl"*)
expr "X$arg" : "X\\(.*\\)$as_nl";
arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
esac;
expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
'
export as_echo_n_body
as_echo_n='sh -c $as_echo_n_body as_echo'
fi
export as_echo_body
as_echo='sh -c $as_echo_body as_echo'
fi
# The user is always right.
if test "${PATH_SEPARATOR+set}" != set; then
PATH_SEPARATOR=:
(PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
(PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
PATH_SEPARATOR=';'
}
fi
# IFS
# We need space, tab and new line, in precisely that order. Quoting is
# there to prevent editors from complaining about space-tab.
# (If _AS_PATH_WALK were called with IFS unset, it would disable word
# splitting by setting IFS to empty value.)
IFS=" "" $as_nl"
# Find who we are. Look in the path if we contain no directory separator.
as_myself=
case $0 in #((
*[\\/]* ) as_myself=$0 ;;
*) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
done
IFS=$as_save_IFS
;;
esac
# We did not find ourselves, most probably we were run as `sh COMMAND'
# in which case we are not to be found in the path.
if test "x$as_myself" = x; then
as_myself=$0
fi
if test ! -f "$as_myself"; then
$as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
exit 1
fi
# Unset variables that we do not need and which cause bugs (e.g. in
# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
# suppresses any "Segmentation fault" message there. '((' could
# trigger a bug in pdksh 5.2.14.
for as_var in BASH_ENV ENV MAIL MAILPATH
do eval test x\${$as_var+set} = xset \
&& ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
done
PS1='$ '
PS2='> '
PS4='+ '
# NLS nuisances.
LC_ALL=C
export LC_ALL
LANGUAGE=C
export LANGUAGE
# CDPATH.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
# as_fn_error STATUS ERROR [LINENO LOG_FD]
# ----------------------------------------
# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
# script with STATUS, using 1 if that was 0.
as_fn_error ()
{
as_status=$1; test $as_status -eq 0 && as_status=1
if test "$4"; then
as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
$as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
fi
$as_echo "$as_me: error: $2" >&2
as_fn_exit $as_status
} # as_fn_error
# as_fn_set_status STATUS
# -----------------------
# Set $? to STATUS, without forking.
as_fn_set_status ()
{
return $1
} # as_fn_set_status
# as_fn_exit STATUS
# -----------------
# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
as_fn_exit ()
{
set +e
as_fn_set_status $1
exit $1
} # as_fn_exit
# as_fn_unset VAR
# ---------------
# Portably unset VAR.
as_fn_unset ()
{
{ eval $1=; unset $1;}
}
as_unset=as_fn_unset
# as_fn_append VAR VALUE
# ----------------------
# Append the text in VALUE to the end of the definition contained in VAR. Take
# advantage of any shell optimizations that allow amortized linear growth over
# repeated appends, instead of the typical quadratic growth present in naive
# implementations.
if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
eval 'as_fn_append ()
{
eval $1+=\$2
}'
else
as_fn_append ()
{
eval $1=\$$1\$2
}
fi # as_fn_append
# as_fn_arith ARG...
# ------------------
# Perform arithmetic evaluation on the ARGs, and store the result in the
# global $as_val. Take advantage of shells that can avoid forks. The arguments
# must be portable across $(()) and expr.
if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
eval 'as_fn_arith ()
{
as_val=$(( $* ))
}'
else
as_fn_arith ()
{
as_val=`expr "$@" || test $? -eq 1`
}
fi # as_fn_arith
if expr a : '\(a\)' >/dev/null 2>&1 &&
test "X`expr 00001 : '.*\(...\)'`" = X001; then
as_expr=expr
else
as_expr=false
fi
if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
as_basename=basename
else
as_basename=false
fi
if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
as_dirname=dirname
else
as_dirname=false
fi
as_me=`$as_basename -- "$0" ||
$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
X"$0" : 'X\(//\)$' \| \
X"$0" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X/"$0" |
sed '/^.*\/\([^/][^/]*\)\/*$/{
s//\1/
q
}
/^X\/\(\/\/\)$/{
s//\1/
q
}
/^X\/\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
# Avoid depending upon Character Ranges.
as_cr_letters='abcdefghijklmnopqrstuvwxyz'
as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
as_cr_Letters=$as_cr_letters$as_cr_LETTERS
as_cr_digits='0123456789'
as_cr_alnum=$as_cr_Letters$as_cr_digits
ECHO_C= ECHO_N= ECHO_T=
case `echo -n x` in #(((((
-n*)
case `echo 'xy\c'` in
*c*) ECHO_T=' ';; # ECHO_T is single tab character.
xy) ECHO_C='\c';;
*) echo `echo ksh88 bug on AIX 6.1` > /dev/null
ECHO_T=' ';;
esac;;
*)
ECHO_N='-n';;
esac
rm -f conf$$ conf$$.exe conf$$.file
if test -d conf$$.dir; then
rm -f conf$$.dir/conf$$.file
else
rm -f conf$$.dir
mkdir conf$$.dir 2>/dev/null
fi
if (echo >conf$$.file) 2>/dev/null; then
if ln -s conf$$.file conf$$ 2>/dev/null; then
as_ln_s='ln -s'
# ... but there are two gotchas:
# 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
# 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -p'.
+ # In both cases, we have to default to `cp -pR'.
ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
elif ln conf$$.file conf$$ 2>/dev/null; then
as_ln_s=ln
else
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
fi
else
- as_ln_s='cp -p'
+ as_ln_s='cp -pR'
fi
rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
rmdir conf$$.dir 2>/dev/null
# as_fn_mkdir_p
# -------------
# Create "$as_dir" as a directory, including parents if necessary.
as_fn_mkdir_p ()
{
case $as_dir in #(
-*) as_dir=./$as_dir;;
esac
test -d "$as_dir" || eval $as_mkdir_p || {
as_dirs=
while :; do
case $as_dir in #(
*\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
*) as_qdir=$as_dir;;
esac
as_dirs="'$as_qdir' $as_dirs"
as_dir=`$as_dirname -- "$as_dir" ||
$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$as_dir" : 'X\(//\)[^/]' \| \
X"$as_dir" : 'X\(//\)$' \| \
X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$as_dir" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
test -d "$as_dir" && break
done
test -z "$as_dirs" || eval "mkdir $as_dirs"
} || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
} # as_fn_mkdir_p
if mkdir -p . 2>/dev/null; then
as_mkdir_p='mkdir -p "$as_dir"'
else
test -d ./-p && rmdir ./-p
as_mkdir_p=false
fi
-if test -x / >/dev/null 2>&1; then
- as_test_x='test -x'
-else
- if ls -dL / >/dev/null 2>&1; then
- as_ls_L_option=L
- else
- as_ls_L_option=
- fi
- as_test_x='
- eval sh -c '\''
- if test -d "$1"; then
- test -d "$1/.";
- else
- case $1 in #(
- -*)set "./$1";;
- esac;
- case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #((
- ???[sx]*):;;*)false;;esac;fi
- '\'' sh
- '
-fi
-as_executable_p=$as_test_x
+
+# as_fn_executable_p FILE
+# -----------------------
+# Test if FILE is an executable regular file.
+as_fn_executable_p ()
+{
+ test -f "$1" && test -x "$1"
+} # as_fn_executable_p
+as_test_x='test -x'
+as_executable_p=as_fn_executable_p
# Sed expression to map a string onto a valid CPP name.
as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
# Sed expression to map a string onto a valid variable name.
as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
exec 6>&1
## ----------------------------------- ##
## Main body of $CONFIG_STATUS script. ##
## ----------------------------------- ##
_ASEOF
test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# Save the log message, to keep $0 and so on meaningful, and to
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
This file was extended by GoSam Convenience Package $as_me 1.0, which was
-generated by GNU Autoconf 2.68. Invocation command line was
+generated by GNU Autoconf 2.69. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
CONFIG_HEADERS = $CONFIG_HEADERS
CONFIG_LINKS = $CONFIG_LINKS
CONFIG_COMMANDS = $CONFIG_COMMANDS
$ $0 $@
on `(hostname || uname -n) 2>/dev/null | sed 1q`
"
_ACEOF
case $ac_config_files in *"
"*) set x $ac_config_files; shift; ac_config_files=$*;;
esac
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
# Files that config.status was made for.
config_files="$ac_config_files"
config_commands="$ac_config_commands"
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
ac_cs_usage="\
\`$as_me' instantiates files and other configuration actions
from templates according to the current configuration. Unless the files
and actions are specified as TAGs, all are instantiated by default.
Usage: $0 [OPTION]... [TAG]...
-h, --help print this help, then exit
-V, --version print version number and configuration settings, then exit
--config print configuration, then exit
-q, --quiet, --silent
do not print progress messages
-d, --debug don't remove temporary files
--recheck update $as_me by reconfiguring in the same conditions
--file=FILE[:TEMPLATE]
instantiate the configuration file FILE
Configuration files:
$config_files
Configuration commands:
$config_commands
Report bugs to <reiterth@mpp.mpg.de>.
GoSam Convenience Package home page: <http://projects.hepforge.org/golem/gosam-contrib/>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
ac_cs_version="\\
GoSam Convenience Package config.status 1.0
-configured by $0, generated by GNU Autoconf 2.68,
+configured by $0, generated by GNU Autoconf 2.69,
with options \\"\$ac_cs_config\\"
-Copyright (C) 2010 Free Software Foundation, Inc.
+Copyright (C) 2012 Free Software Foundation, Inc.
This config.status script is free software; the Free Software Foundation
gives unlimited permission to copy, distribute and modify it."
ac_pwd='$ac_pwd'
srcdir='$srcdir'
INSTALL='$INSTALL'
MKDIR_P='$MKDIR_P'
AWK='$AWK'
test -n "\$AWK" || AWK=awk
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# The default lists apply if the user does not specify any file.
ac_need_defaults=:
while test $# != 0
do
case $1 in
--*=?*)
ac_option=`expr "X$1" : 'X\([^=]*\)='`
ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
ac_shift=:
;;
--*=)
ac_option=`expr "X$1" : 'X\([^=]*\)='`
ac_optarg=
ac_shift=:
;;
*)
ac_option=$1
ac_optarg=$2
ac_shift=shift
;;
esac
case $ac_option in
# Handling of the options.
-recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
ac_cs_recheck=: ;;
--version | --versio | --versi | --vers | --ver | --ve | --v | -V )
$as_echo "$ac_cs_version"; exit ;;
--config | --confi | --conf | --con | --co | --c )
$as_echo "$ac_cs_config"; exit ;;
--debug | --debu | --deb | --de | --d | -d )
debug=: ;;
--file | --fil | --fi | --f )
$ac_shift
case $ac_optarg in
*\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
'') as_fn_error $? "missing file argument" ;;
esac
as_fn_append CONFIG_FILES " '$ac_optarg'"
ac_need_defaults=false;;
--he | --h | --help | --hel | -h )
$as_echo "$ac_cs_usage"; exit ;;
-q | -quiet | --quiet | --quie | --qui | --qu | --q \
| -silent | --silent | --silen | --sile | --sil | --si | --s)
ac_cs_silent=: ;;
# This is an error.
-*) as_fn_error $? "unrecognized option: \`$1'
Try \`$0 --help' for more information." ;;
*) as_fn_append ac_config_targets " $1"
ac_need_defaults=false ;;
esac
shift
done
ac_configure_extra_args=
if $ac_cs_silent; then
exec 6>/dev/null
ac_configure_extra_args="$ac_configure_extra_args --silent"
fi
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
if \$ac_cs_recheck; then
- set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
+ set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
shift
\$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
CONFIG_SHELL='$SHELL'
export CONFIG_SHELL
exec "\$@"
fi
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
exec 5>>config.log
{
echo
sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
## Running $as_me. ##
_ASBOX
$as_echo "$ac_log"
} >&5
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
#
# INIT-COMMANDS
#
AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"
# The HP-UX ksh and POSIX shell print the target directory to stdout
# if CDPATH is set.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
sed_quote_subst='$sed_quote_subst'
double_quote_subst='$double_quote_subst'
delay_variable_subst='$delay_variable_subst'
macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`'
macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`'
enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`'
enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`'
pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`'
enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`'
SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`'
ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`'
+PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`'
host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`'
host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`'
host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`'
build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`'
build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`'
build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`'
SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`'
Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`'
GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`'
EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`'
FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`'
LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`'
NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`'
LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`'
max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`'
ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`'
exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`'
lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`'
lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`'
lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`'
lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`'
lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`'
reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`'
reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`'
OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`'
deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`'
file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`'
file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`'
want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`'
DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`'
sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`'
AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`'
AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`'
archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`'
STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`'
RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`'
old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`'
old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`'
lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`'
CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`'
CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`'
compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`'
GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`'
lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`'
lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`'
lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`'
lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`'
nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`'
lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`'
objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`'
MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`'
lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`'
need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`'
MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`'
DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`'
NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`'
LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`'
OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`'
OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`'
libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`'
shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`'
extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`'
enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`'
export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`'
whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`'
compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`'
old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`'
old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`'
archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`'
archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`'
module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`'
module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`'
with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`'
allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`'
no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_ld='`$ECHO "$hardcode_libdir_flag_spec_ld" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`'
hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`'
hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`'
hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`'
hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`'
hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`'
inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`'
link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`'
always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`'
export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`'
exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`'
include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`'
prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`'
postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`'
file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`'
variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`'
need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`'
need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`'
version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`'
runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`'
shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`'
shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`'
libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`'
library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`'
soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`'
install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`'
postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`'
postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`'
finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`'
finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`'
hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`'
sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`'
sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $SED "$delay_single_quote_subst"`'
hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`'
enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`'
enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`'
enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`'
old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`'
striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_dirs='`$ECHO "$compiler_lib_search_dirs" | $SED "$delay_single_quote_subst"`'
predep_objects='`$ECHO "$predep_objects" | $SED "$delay_single_quote_subst"`'
postdep_objects='`$ECHO "$postdep_objects" | $SED "$delay_single_quote_subst"`'
predeps='`$ECHO "$predeps" | $SED "$delay_single_quote_subst"`'
postdeps='`$ECHO "$postdeps" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_path='`$ECHO "$compiler_lib_search_path" | $SED "$delay_single_quote_subst"`'
LD_F77='`$ECHO "$LD_F77" | $SED "$delay_single_quote_subst"`'
LD_FC='`$ECHO "$LD_FC" | $SED "$delay_single_quote_subst"`'
reload_flag_F77='`$ECHO "$reload_flag_F77" | $SED "$delay_single_quote_subst"`'
reload_flag_FC='`$ECHO "$reload_flag_FC" | $SED "$delay_single_quote_subst"`'
reload_cmds_F77='`$ECHO "$reload_cmds_F77" | $SED "$delay_single_quote_subst"`'
reload_cmds_FC='`$ECHO "$reload_cmds_FC" | $SED "$delay_single_quote_subst"`'
old_archive_cmds_F77='`$ECHO "$old_archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
old_archive_cmds_FC='`$ECHO "$old_archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
compiler_F77='`$ECHO "$compiler_F77" | $SED "$delay_single_quote_subst"`'
compiler_FC='`$ECHO "$compiler_FC" | $SED "$delay_single_quote_subst"`'
GCC_F77='`$ECHO "$GCC_F77" | $SED "$delay_single_quote_subst"`'
GCC_FC='`$ECHO "$GCC_FC" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_no_builtin_flag_F77='`$ECHO "$lt_prog_compiler_no_builtin_flag_F77" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_no_builtin_flag_FC='`$ECHO "$lt_prog_compiler_no_builtin_flag_FC" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_pic_F77='`$ECHO "$lt_prog_compiler_pic_F77" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_pic_FC='`$ECHO "$lt_prog_compiler_pic_FC" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_wl_F77='`$ECHO "$lt_prog_compiler_wl_F77" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_wl_FC='`$ECHO "$lt_prog_compiler_wl_FC" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_static_F77='`$ECHO "$lt_prog_compiler_static_F77" | $SED "$delay_single_quote_subst"`'
lt_prog_compiler_static_FC='`$ECHO "$lt_prog_compiler_static_FC" | $SED "$delay_single_quote_subst"`'
lt_cv_prog_compiler_c_o_F77='`$ECHO "$lt_cv_prog_compiler_c_o_F77" | $SED "$delay_single_quote_subst"`'
lt_cv_prog_compiler_c_o_FC='`$ECHO "$lt_cv_prog_compiler_c_o_FC" | $SED "$delay_single_quote_subst"`'
archive_cmds_need_lc_F77='`$ECHO "$archive_cmds_need_lc_F77" | $SED "$delay_single_quote_subst"`'
archive_cmds_need_lc_FC='`$ECHO "$archive_cmds_need_lc_FC" | $SED "$delay_single_quote_subst"`'
enable_shared_with_static_runtimes_F77='`$ECHO "$enable_shared_with_static_runtimes_F77" | $SED "$delay_single_quote_subst"`'
enable_shared_with_static_runtimes_FC='`$ECHO "$enable_shared_with_static_runtimes_FC" | $SED "$delay_single_quote_subst"`'
export_dynamic_flag_spec_F77='`$ECHO "$export_dynamic_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
export_dynamic_flag_spec_FC='`$ECHO "$export_dynamic_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
whole_archive_flag_spec_F77='`$ECHO "$whole_archive_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
whole_archive_flag_spec_FC='`$ECHO "$whole_archive_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
compiler_needs_object_F77='`$ECHO "$compiler_needs_object_F77" | $SED "$delay_single_quote_subst"`'
compiler_needs_object_FC='`$ECHO "$compiler_needs_object_FC" | $SED "$delay_single_quote_subst"`'
old_archive_from_new_cmds_F77='`$ECHO "$old_archive_from_new_cmds_F77" | $SED "$delay_single_quote_subst"`'
old_archive_from_new_cmds_FC='`$ECHO "$old_archive_from_new_cmds_FC" | $SED "$delay_single_quote_subst"`'
old_archive_from_expsyms_cmds_F77='`$ECHO "$old_archive_from_expsyms_cmds_F77" | $SED "$delay_single_quote_subst"`'
old_archive_from_expsyms_cmds_FC='`$ECHO "$old_archive_from_expsyms_cmds_FC" | $SED "$delay_single_quote_subst"`'
archive_cmds_F77='`$ECHO "$archive_cmds_F77" | $SED "$delay_single_quote_subst"`'
archive_cmds_FC='`$ECHO "$archive_cmds_FC" | $SED "$delay_single_quote_subst"`'
archive_expsym_cmds_F77='`$ECHO "$archive_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
archive_expsym_cmds_FC='`$ECHO "$archive_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
module_cmds_F77='`$ECHO "$module_cmds_F77" | $SED "$delay_single_quote_subst"`'
module_cmds_FC='`$ECHO "$module_cmds_FC" | $SED "$delay_single_quote_subst"`'
module_expsym_cmds_F77='`$ECHO "$module_expsym_cmds_F77" | $SED "$delay_single_quote_subst"`'
module_expsym_cmds_FC='`$ECHO "$module_expsym_cmds_FC" | $SED "$delay_single_quote_subst"`'
with_gnu_ld_F77='`$ECHO "$with_gnu_ld_F77" | $SED "$delay_single_quote_subst"`'
with_gnu_ld_FC='`$ECHO "$with_gnu_ld_FC" | $SED "$delay_single_quote_subst"`'
allow_undefined_flag_F77='`$ECHO "$allow_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
allow_undefined_flag_FC='`$ECHO "$allow_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
no_undefined_flag_F77='`$ECHO "$no_undefined_flag_F77" | $SED "$delay_single_quote_subst"`'
no_undefined_flag_FC='`$ECHO "$no_undefined_flag_FC" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_flag_spec_F77='`$ECHO "$hardcode_libdir_flag_spec_F77" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_flag_spec_FC='`$ECHO "$hardcode_libdir_flag_spec_FC" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_ld_F77='`$ECHO "$hardcode_libdir_flag_spec_ld_F77" | $SED "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_ld_FC='`$ECHO "$hardcode_libdir_flag_spec_ld_FC" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_separator_F77='`$ECHO "$hardcode_libdir_separator_F77" | $SED "$delay_single_quote_subst"`'
hardcode_libdir_separator_FC='`$ECHO "$hardcode_libdir_separator_FC" | $SED "$delay_single_quote_subst"`'
hardcode_direct_F77='`$ECHO "$hardcode_direct_F77" | $SED "$delay_single_quote_subst"`'
hardcode_direct_FC='`$ECHO "$hardcode_direct_FC" | $SED "$delay_single_quote_subst"`'
hardcode_direct_absolute_F77='`$ECHO "$hardcode_direct_absolute_F77" | $SED "$delay_single_quote_subst"`'
hardcode_direct_absolute_FC='`$ECHO "$hardcode_direct_absolute_FC" | $SED "$delay_single_quote_subst"`'
hardcode_minus_L_F77='`$ECHO "$hardcode_minus_L_F77" | $SED "$delay_single_quote_subst"`'
hardcode_minus_L_FC='`$ECHO "$hardcode_minus_L_FC" | $SED "$delay_single_quote_subst"`'
hardcode_shlibpath_var_F77='`$ECHO "$hardcode_shlibpath_var_F77" | $SED "$delay_single_quote_subst"`'
hardcode_shlibpath_var_FC='`$ECHO "$hardcode_shlibpath_var_FC" | $SED "$delay_single_quote_subst"`'
hardcode_automatic_F77='`$ECHO "$hardcode_automatic_F77" | $SED "$delay_single_quote_subst"`'
hardcode_automatic_FC='`$ECHO "$hardcode_automatic_FC" | $SED "$delay_single_quote_subst"`'
inherit_rpath_F77='`$ECHO "$inherit_rpath_F77" | $SED "$delay_single_quote_subst"`'
inherit_rpath_FC='`$ECHO "$inherit_rpath_FC" | $SED "$delay_single_quote_subst"`'
link_all_deplibs_F77='`$ECHO "$link_all_deplibs_F77" | $SED "$delay_single_quote_subst"`'
link_all_deplibs_FC='`$ECHO "$link_all_deplibs_FC" | $SED "$delay_single_quote_subst"`'
always_export_symbols_F77='`$ECHO "$always_export_symbols_F77" | $SED "$delay_single_quote_subst"`'
always_export_symbols_FC='`$ECHO "$always_export_symbols_FC" | $SED "$delay_single_quote_subst"`'
export_symbols_cmds_F77='`$ECHO "$export_symbols_cmds_F77" | $SED "$delay_single_quote_subst"`'
export_symbols_cmds_FC='`$ECHO "$export_symbols_cmds_FC" | $SED "$delay_single_quote_subst"`'
exclude_expsyms_F77='`$ECHO "$exclude_expsyms_F77" | $SED "$delay_single_quote_subst"`'
exclude_expsyms_FC='`$ECHO "$exclude_expsyms_FC" | $SED "$delay_single_quote_subst"`'
include_expsyms_F77='`$ECHO "$include_expsyms_F77" | $SED "$delay_single_quote_subst"`'
include_expsyms_FC='`$ECHO "$include_expsyms_FC" | $SED "$delay_single_quote_subst"`'
prelink_cmds_F77='`$ECHO "$prelink_cmds_F77" | $SED "$delay_single_quote_subst"`'
prelink_cmds_FC='`$ECHO "$prelink_cmds_FC" | $SED "$delay_single_quote_subst"`'
postlink_cmds_F77='`$ECHO "$postlink_cmds_F77" | $SED "$delay_single_quote_subst"`'
postlink_cmds_FC='`$ECHO "$postlink_cmds_FC" | $SED "$delay_single_quote_subst"`'
file_list_spec_F77='`$ECHO "$file_list_spec_F77" | $SED "$delay_single_quote_subst"`'
file_list_spec_FC='`$ECHO "$file_list_spec_FC" | $SED "$delay_single_quote_subst"`'
hardcode_action_F77='`$ECHO "$hardcode_action_F77" | $SED "$delay_single_quote_subst"`'
hardcode_action_FC='`$ECHO "$hardcode_action_FC" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_dirs_F77='`$ECHO "$compiler_lib_search_dirs_F77" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_dirs_FC='`$ECHO "$compiler_lib_search_dirs_FC" | $SED "$delay_single_quote_subst"`'
predep_objects_F77='`$ECHO "$predep_objects_F77" | $SED "$delay_single_quote_subst"`'
predep_objects_FC='`$ECHO "$predep_objects_FC" | $SED "$delay_single_quote_subst"`'
postdep_objects_F77='`$ECHO "$postdep_objects_F77" | $SED "$delay_single_quote_subst"`'
postdep_objects_FC='`$ECHO "$postdep_objects_FC" | $SED "$delay_single_quote_subst"`'
predeps_F77='`$ECHO "$predeps_F77" | $SED "$delay_single_quote_subst"`'
predeps_FC='`$ECHO "$predeps_FC" | $SED "$delay_single_quote_subst"`'
postdeps_F77='`$ECHO "$postdeps_F77" | $SED "$delay_single_quote_subst"`'
postdeps_FC='`$ECHO "$postdeps_FC" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_path_F77='`$ECHO "$compiler_lib_search_path_F77" | $SED "$delay_single_quote_subst"`'
compiler_lib_search_path_FC='`$ECHO "$compiler_lib_search_path_FC" | $SED "$delay_single_quote_subst"`'
LTCC='$LTCC'
LTCFLAGS='$LTCFLAGS'
compiler='$compiler_DEFAULT'
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
\$1
_LTECHO_EOF'
}
# Quote evaled strings.
for var in SHELL \
ECHO \
+PATH_SEPARATOR \
SED \
GREP \
EGREP \
FGREP \
LD \
NM \
LN_S \
lt_SP2NL \
lt_NL2SP \
reload_flag \
OBJDUMP \
deplibs_check_method \
file_magic_cmd \
file_magic_glob \
want_nocaseglob \
DLLTOOL \
sharedlib_from_linklib_cmd \
AR \
AR_FLAGS \
archiver_list_spec \
STRIP \
RANLIB \
CC \
CFLAGS \
compiler \
lt_cv_sys_global_symbol_pipe \
lt_cv_sys_global_symbol_to_cdecl \
lt_cv_sys_global_symbol_to_c_name_address \
lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \
nm_file_list_spec \
lt_prog_compiler_no_builtin_flag \
lt_prog_compiler_pic \
lt_prog_compiler_wl \
lt_prog_compiler_static \
lt_cv_prog_compiler_c_o \
need_locks \
MANIFEST_TOOL \
DSYMUTIL \
NMEDIT \
LIPO \
OTOOL \
OTOOL64 \
shrext_cmds \
export_dynamic_flag_spec \
whole_archive_flag_spec \
compiler_needs_object \
with_gnu_ld \
allow_undefined_flag \
no_undefined_flag \
hardcode_libdir_flag_spec \
-hardcode_libdir_flag_spec_ld \
hardcode_libdir_separator \
exclude_expsyms \
include_expsyms \
file_list_spec \
variables_saved_for_relink \
libname_spec \
library_names_spec \
soname_spec \
install_override_mode \
finish_eval \
old_striplib \
striplib \
compiler_lib_search_dirs \
predep_objects \
postdep_objects \
predeps \
postdeps \
compiler_lib_search_path \
LD_F77 \
LD_FC \
reload_flag_F77 \
reload_flag_FC \
compiler_F77 \
compiler_FC \
lt_prog_compiler_no_builtin_flag_F77 \
lt_prog_compiler_no_builtin_flag_FC \
lt_prog_compiler_pic_F77 \
lt_prog_compiler_pic_FC \
lt_prog_compiler_wl_F77 \
lt_prog_compiler_wl_FC \
lt_prog_compiler_static_F77 \
lt_prog_compiler_static_FC \
lt_cv_prog_compiler_c_o_F77 \
lt_cv_prog_compiler_c_o_FC \
export_dynamic_flag_spec_F77 \
export_dynamic_flag_spec_FC \
whole_archive_flag_spec_F77 \
whole_archive_flag_spec_FC \
compiler_needs_object_F77 \
compiler_needs_object_FC \
with_gnu_ld_F77 \
with_gnu_ld_FC \
allow_undefined_flag_F77 \
allow_undefined_flag_FC \
no_undefined_flag_F77 \
no_undefined_flag_FC \
hardcode_libdir_flag_spec_F77 \
hardcode_libdir_flag_spec_FC \
-hardcode_libdir_flag_spec_ld_F77 \
-hardcode_libdir_flag_spec_ld_FC \
hardcode_libdir_separator_F77 \
hardcode_libdir_separator_FC \
exclude_expsyms_F77 \
exclude_expsyms_FC \
include_expsyms_F77 \
include_expsyms_FC \
file_list_spec_F77 \
file_list_spec_FC \
compiler_lib_search_dirs_F77 \
compiler_lib_search_dirs_FC \
predep_objects_F77 \
predep_objects_FC \
postdep_objects_F77 \
postdep_objects_FC \
predeps_F77 \
predeps_FC \
postdeps_F77 \
postdeps_FC \
compiler_lib_search_path_F77 \
compiler_lib_search_path_FC; do
case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
*[\\\\\\\`\\"\\\$]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\""
;;
*)
eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
;;
esac
done
# Double-quote double-evaled strings.
for var in reload_cmds \
old_postinstall_cmds \
old_postuninstall_cmds \
old_archive_cmds \
extract_expsyms_cmds \
old_archive_from_new_cmds \
old_archive_from_expsyms_cmds \
archive_cmds \
archive_expsym_cmds \
module_cmds \
module_expsym_cmds \
export_symbols_cmds \
prelink_cmds \
postlink_cmds \
postinstall_cmds \
postuninstall_cmds \
finish_cmds \
sys_lib_search_path_spec \
sys_lib_dlsearch_path_spec \
reload_cmds_F77 \
reload_cmds_FC \
old_archive_cmds_F77 \
old_archive_cmds_FC \
old_archive_from_new_cmds_F77 \
old_archive_from_new_cmds_FC \
old_archive_from_expsyms_cmds_F77 \
old_archive_from_expsyms_cmds_FC \
archive_cmds_F77 \
archive_cmds_FC \
archive_expsym_cmds_F77 \
archive_expsym_cmds_FC \
module_cmds_F77 \
module_cmds_FC \
module_expsym_cmds_F77 \
module_expsym_cmds_FC \
export_symbols_cmds_F77 \
export_symbols_cmds_FC \
prelink_cmds_F77 \
prelink_cmds_FC \
postlink_cmds_F77 \
postlink_cmds_FC; do
case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
*[\\\\\\\`\\"\\\$]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\""
;;
*)
eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
;;
esac
done
ac_aux_dir='$ac_aux_dir'
xsi_shell='$xsi_shell'
lt_shell_append='$lt_shell_append'
# See if we are running on zsh, and set the options which allow our
# commands through without removal of \ escapes INIT.
if test -n "\${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
PACKAGE='$PACKAGE'
VERSION='$VERSION'
TIMESTAMP='$TIMESTAMP'
RM='$RM'
ofile='$ofile'
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# Handling of arguments.
for ac_config_target in $ac_config_targets
do
case $ac_config_target in
"depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
"libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;;
"gosam.conf") CONFIG_FILES="$CONFIG_FILES gosam.conf" ;;
"samurai.pc") CONFIG_FILES="$CONFIG_FILES samurai.pc" ;;
"Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
"ff-2.0/Makefile") CONFIG_FILES="$CONFIG_FILES ff-2.0/Makefile" ;;
"ff-2.0/ffinit.f") CONFIG_FILES="$CONFIG_FILES ff-2.0/ffinit.f" ;;
"qcdloop-1.9/Makefile") CONFIG_FILES="$CONFIG_FILES qcdloop-1.9/Makefile" ;;
"avh_olo-2.2.1/Makefile") CONFIG_FILES="$CONFIG_FILES avh_olo-2.2.1/Makefile" ;;
"golem95c-1.2.1/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/Makefile" ;;
"golem95c-1.2.1/module/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/module/Makefile" ;;
"golem95c-1.2.1/module/precision_golem.f90") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/module/precision_golem.f90" ;;
"golem95c-1.2.1/integrals/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/Makefile" ;;
"golem95c-1.2.1/integrals/two_point/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/two_point/Makefile" ;;
"golem95c-1.2.1/integrals/one_point/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/one_point/Makefile" ;;
"golem95c-1.2.1/integrals/three_point/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/three_point/Makefile" ;;
"golem95c-1.2.1/integrals/four_point/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/four_point/Makefile" ;;
"golem95c-1.2.1/integrals/four_point/generic_function_4p.f90") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/integrals/four_point/generic_function_4p.f90" ;;
+ "golem95c-1.2.1/higherrank/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/higherrank/Makefile" ;;
"golem95c-1.2.1/interface/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/interface/Makefile" ;;
"golem95c-1.2.1/numerical/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/numerical/Makefile" ;;
"golem95c-1.2.1/kinematic/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/kinematic/Makefile" ;;
"golem95c-1.2.1/form_factor/Makefile") CONFIG_FILES="$CONFIG_FILES golem95c-1.2.1/form_factor/Makefile" ;;
"samurai-2.1.1/Makefile") CONFIG_FILES="$CONFIG_FILES samurai-2.1.1/Makefile" ;;
"samurai-2.1.1/madds.f90") CONFIG_FILES="$CONFIG_FILES samurai-2.1.1/madds.f90" ;;
"samurai-2.1.1/msamurai.f90") CONFIG_FILES="$CONFIG_FILES samurai-2.1.1/msamurai.f90" ;;
"samurai-2.1.1/precision.f90") CONFIG_FILES="$CONFIG_FILES samurai-2.1.1/precision.f90" ;;
*) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
esac
done
# If the user did not use the arguments to specify the items to instantiate,
# then the envvar interface is used. Set only those that are not.
# We use the long form for the default assignment because of an extremely
# bizarre bug on SunOS 4.1.3.
if $ac_need_defaults; then
test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
fi
# Have a temporary directory for convenience. Make it in the build tree
# simply because there is no reason against having it here, and in addition,
# creating and moving files from /tmp can sometimes cause problems.
# Hook for its removal unless debugging.
# Note that there is a small window in which the directory will not be cleaned:
# after its creation but before its name has been assigned to `$tmp'.
$debug ||
{
tmp= ac_tmp=
trap 'exit_status=$?
: "${ac_tmp:=$tmp}"
{ test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
' 0
trap 'as_fn_exit 1' 1 2 13 15
}
# Create a (secure) tmp directory for tmp files.
{
tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
test -d "$tmp"
} ||
{
tmp=./conf$$-$RANDOM
(umask 077 && mkdir "$tmp")
} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
ac_tmp=$tmp
# Set up the scripts for CONFIG_FILES section.
# No need to generate them if there are no CONFIG_FILES.
# This happens for instance with `./config.status config.h'.
if test -n "$CONFIG_FILES"; then
ac_cr=`echo X | tr X '\015'`
# On cygwin, bash can eat \r inside `` if the user requested igncr.
# But we know of no other shell where ac_cr would be empty at this
# point, so we can use a bashism as a fallback.
if test "x$ac_cr" = x; then
eval ac_cr=\$\'\\r\'
fi
ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
ac_cs_awk_cr='\\r'
else
ac_cs_awk_cr=$ac_cr
fi
echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
_ACEOF
{
echo "cat >conf$$subs.awk <<_ACEOF" &&
echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
echo "_ACEOF"
} >conf$$subs.sh ||
as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
ac_delim='%!_!# '
for ac_last_try in false false false false false :; do
. ./conf$$subs.sh ||
as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
if test $ac_delim_n = $ac_delim_num; then
break
elif $ac_last_try; then
as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
else
ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
fi
done
rm -f conf$$subs.sh
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
_ACEOF
sed -n '
h
s/^/S["/; s/!.*/"]=/
p
g
s/^[^!]*!//
:repl
t repl
s/'"$ac_delim"'$//
t delim
:nl
h
s/\(.\{148\}\)..*/\1/
t more1
s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
p
n
b repl
:more1
s/["\\]/\\&/g; s/^/"/; s/$/"\\/
p
g
s/.\{148\}//
t nl
:delim
h
s/\(.\{148\}\)..*/\1/
t more2
s/["\\]/\\&/g; s/^/"/; s/$/"/
p
b
:more2
s/["\\]/\\&/g; s/^/"/; s/$/"\\/
p
g
s/.\{148\}//
t delim
' <conf$$subs.awk | sed '
/^[^""]/{
N
s/\n//
}
' >>$CONFIG_STATUS || ac_write_fail=1
rm -f conf$$subs.awk
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
_ACAWK
cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
for (key in S) S_is_set[key] = 1
FS = ""
}
{
line = $ 0
nfields = split(line, field, "@")
substed = 0
len = length(field[1])
for (i = 2; i < nfields; i++) {
key = field[i]
keylen = length(key)
if (S_is_set[key]) {
value = S[key]
line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
len += length(value) + length(field[++i])
substed = 1
} else
len += 1 + keylen
}
print line
}
_ACAWK
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
else
cat
fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
|| as_fn_error $? "could not setup config files machinery" "$LINENO" 5
_ACEOF
# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
# trailing colons and then remove the whole line if VPATH becomes empty
# (actually we leave an empty line to preserve line numbers).
if test "x$srcdir" = x.; then
ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{
h
s///
s/^/:/
s/[ ]*$/:/
s/:\$(srcdir):/:/g
s/:\${srcdir}:/:/g
s/:@srcdir@:/:/g
s/^:*//
s/:*$//
x
s/\(=[ ]*\).*/\1/
G
s/\n//
s/^[^=]*=[ ]*$//
}'
fi
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
fi # test -n "$CONFIG_FILES"
eval set X " :F $CONFIG_FILES :C $CONFIG_COMMANDS"
shift
for ac_tag
do
case $ac_tag in
:[FHLC]) ac_mode=$ac_tag; continue;;
esac
case $ac_mode$ac_tag in
:[FHL]*:*);;
:L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
:[FH]-) ac_tag=-:-;;
:[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
esac
ac_save_IFS=$IFS
IFS=:
set x $ac_tag
IFS=$ac_save_IFS
shift
ac_file=$1
shift
case $ac_mode in
:L) ac_source=$1;;
:[FH])
ac_file_inputs=
for ac_f
do
case $ac_f in
-) ac_f="$ac_tmp/stdin";;
*) # Look for the file first in the build tree, then in the source tree
# (if the path is not absolute). The absolute path cannot be DOS-style,
# because $ac_f cannot contain `:'.
test -f "$ac_f" ||
case $ac_f in
[\\/$]*) false;;
*) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
esac ||
as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
esac
case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
as_fn_append ac_file_inputs " '$ac_f'"
done
# Let's still pretend it is `configure' which instantiates (i.e., don't
# use $as_me), people would be surprised to read:
# /* config.h. Generated by config.status. */
configure_input='Generated from '`
$as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
`' by configure.'
if test x"$ac_file" != x-; then
configure_input="$ac_file. $configure_input"
{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
$as_echo "$as_me: creating $ac_file" >&6;}
fi
# Neutralize special characters interpreted by sed in replacement strings.
case $configure_input in #(
*\&* | *\|* | *\\* )
ac_sed_conf_input=`$as_echo "$configure_input" |
sed 's/[\\\\&|]/\\\\&/g'`;; #(
*) ac_sed_conf_input=$configure_input;;
esac
case $ac_tag in
*:-:* | *:-) cat >"$ac_tmp/stdin" \
|| as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
esac
;;
esac
ac_dir=`$as_dirname -- "$ac_file" ||
$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$ac_file" : 'X\(//\)[^/]' \| \
X"$ac_file" : 'X\(//\)$' \| \
X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$ac_file" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
as_dir="$ac_dir"; as_fn_mkdir_p
ac_builddir=.
case "$ac_dir" in
.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
*)
ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
# A ".." for each directory in $ac_dir_suffix.
ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
case $ac_top_builddir_sub in
"") ac_top_builddir_sub=. ac_top_build_prefix= ;;
*) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
esac ;;
esac
ac_abs_top_builddir=$ac_pwd
ac_abs_builddir=$ac_pwd$ac_dir_suffix
# for backward compatibility:
ac_top_builddir=$ac_top_build_prefix
case $srcdir in
.) # We are building in place.
ac_srcdir=.
ac_top_srcdir=$ac_top_builddir_sub
ac_abs_top_srcdir=$ac_pwd ;;
[\\/]* | ?:[\\/]* ) # Absolute name.
ac_srcdir=$srcdir$ac_dir_suffix;
ac_top_srcdir=$srcdir
ac_abs_top_srcdir=$srcdir ;;
*) # Relative name.
ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
ac_top_srcdir=$ac_top_build_prefix$srcdir
ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
esac
ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
case $ac_mode in
:F)
#
# CONFIG_FILE
#
case $INSTALL in
[\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
*) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
esac
ac_MKDIR_P=$MKDIR_P
case $MKDIR_P in
[\\/$]* | ?:[\\/]* ) ;;
*/*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
esac
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
# If the template does not know about datarootdir, expand it.
# FIXME: This hack should be removed a few years after 2.60.
ac_datarootdir_hack=; ac_datarootdir_seen=
ac_sed_dataroot='
/datarootdir/ {
p
q
}
/@datadir@/p
/@docdir@/p
/@infodir@/p
/@localedir@/p
/@mandir@/p'
case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
*datarootdir*) ac_datarootdir_seen=yes;;
*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_datarootdir_hack='
s&@datadir@&$datadir&g
s&@docdir@&$docdir&g
s&@infodir@&$infodir&g
s&@localedir@&$localedir&g
s&@mandir@&$mandir&g
s&\\\${datarootdir}&$datarootdir&g' ;;
esac
_ACEOF
# Neutralize VPATH when `$srcdir' = `.'.
# Shell code in configure.ac might set extrasub.
# FIXME: do we really want to maintain this feature?
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_sed_extra="$ac_vpsub
$extrasub
_ACEOF
cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
:t
/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
s|@configure_input@|$ac_sed_conf_input|;t t
s&@top_builddir@&$ac_top_builddir_sub&;t t
s&@top_build_prefix@&$ac_top_build_prefix&;t t
s&@srcdir@&$ac_srcdir&;t t
s&@abs_srcdir@&$ac_abs_srcdir&;t t
s&@top_srcdir@&$ac_top_srcdir&;t t
s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
s&@builddir@&$ac_builddir&;t t
s&@abs_builddir@&$ac_abs_builddir&;t t
s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
s&@INSTALL@&$ac_INSTALL&;t t
s&@MKDIR_P@&$ac_MKDIR_P&;t t
$ac_datarootdir_hack
"
eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
>$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
{ ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
{ ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \
"$ac_tmp/out"`; test -z "$ac_out"; } &&
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
which seems to be undefined. Please make sure it is defined" >&5
$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
which seems to be undefined. Please make sure it is defined" >&2;}
rm -f "$ac_tmp/stdin"
case $ac_file in
-) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
*) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
esac \
|| as_fn_error $? "could not create $ac_file" "$LINENO" 5
;;
:C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
$as_echo "$as_me: executing $ac_file commands" >&6;}
;;
esac
case $ac_file$ac_mode in
"depfiles":C) test x"$AMDEP_TRUE" != x"" || {
# Autoconf 2.62 quotes --file arguments for eval, but not when files
# are listed without --file. Let's play safe and only enable the eval
# if we detect the quoting.
case $CONFIG_FILES in
*\'*) eval set x "$CONFIG_FILES" ;;
*) set x $CONFIG_FILES ;;
esac
shift
for mf
do
# Strip MF so we end up with the name of the file.
mf=`echo "$mf" | sed -e 's/:.*$//'`
# Check whether this is an Automake generated Makefile or not.
- # We used to match only the files named `Makefile.in', but
+ # We used to match only the files named 'Makefile.in', but
# some people rename them; so instead we look at the file content.
# Grep'ing the first line is not enough: some people post-process
# each Makefile.in and add a new line on top of each file to say so.
# Grep'ing the whole file is not good either: AIX grep has a line
# limit of 2048, but all sed's we know have understand at least 4000.
if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
dirpart=`$as_dirname -- "$mf" ||
$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$mf" : 'X\(//\)[^/]' \| \
X"$mf" : 'X\(//\)$' \| \
X"$mf" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$mf" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
else
continue
fi
# Extract the definition of DEPDIR, am__include, and am__quote
- # from the Makefile without running `make'.
+ # from the Makefile without running 'make'.
DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
test -z "$DEPDIR" && continue
am__include=`sed -n 's/^am__include = //p' < "$mf"`
test -z "am__include" && continue
am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
- # When using ansi2knr, U may be empty or an underscore; expand it
- U=`sed -n 's/^U = //p' < "$mf"`
# Find all dependency output files, they are included files with
# $(DEPDIR) in their names. We invoke sed twice because it is the
# simplest approach to changing $(DEPDIR) to its actual value in the
# expansion.
for file in `sed -n "
s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
- sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
+ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do
# Make sure the directory exists.
test -f "$dirpart/$file" && continue
fdir=`$as_dirname -- "$file" ||
$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
X"$file" : 'X\(//\)[^/]' \| \
X"$file" : 'X\(//\)$' \| \
X"$file" : 'X\(/\)' \| . 2>/dev/null ||
$as_echo X"$file" |
sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
s//\1/
q
}
/^X\(\/\/\)[^/].*/{
s//\1/
q
}
/^X\(\/\/\)$/{
s//\1/
q
}
/^X\(\/\).*/{
s//\1/
q
}
s/.*/./; q'`
as_dir=$dirpart/$fdir; as_fn_mkdir_p
# echo "creating $dirpart/$file"
echo '# dummy' > "$dirpart/$file"
done
done
}
;;
"libtool":C)
# See if we are running on zsh, and set the options which allow our
# commands through without removal of \ escapes.
if test -n "${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
cfgfile="${ofile}T"
trap "$RM \"$cfgfile\"; exit 1" 1 2 15
$RM "$cfgfile"
cat <<_LT_EOF >> "$cfgfile"
#! $SHELL
# `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services.
# Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION
# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
# NOTE: Changes made to this file will be lost: look at ltmain.sh.
#
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
-# 2006, 2007, 2008, 2009, 2010 Free Software Foundation,
-# Inc.
+# 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+# Foundation, Inc.
# Written by Gordon Matzigkeit, 1996
#
# This file is part of GNU Libtool.
#
# GNU Libtool is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
#
# As a special exception to the GNU General Public License,
# if you distribute this file as part of a program or library that
# is built using GNU Libtool, you may include this file under the
# same distribution terms that you use for the rest of that program.
#
# GNU Libtool is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Libtool; see the file COPYING. If not, a copy
# can be downloaded from http://www.gnu.org/licenses/gpl.html, or
# obtained by writing to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# The names of the tagged configurations supported by this script.
available_tags="F77 FC "
# ### BEGIN LIBTOOL CONFIG
# Which release of libtool.m4 was used?
macro_version=$macro_version
macro_revision=$macro_revision
# Whether or not to build shared libraries.
build_libtool_libs=$enable_shared
# Whether or not to build static libraries.
build_old_libs=$enable_static
# What type of objects to build.
pic_mode=$pic_mode
# Whether or not to optimize for fast installation.
fast_install=$enable_fast_install
# Shell to use when invoking shell scripts.
SHELL=$lt_SHELL
# An echo program that protects backslashes.
ECHO=$lt_ECHO
+# The PATH separator for the build system.
+PATH_SEPARATOR=$lt_PATH_SEPARATOR
+
# The host system.
host_alias=$host_alias
host=$host
host_os=$host_os
# The build system.
build_alias=$build_alias
build=$build
build_os=$build_os
# A sed program that does not truncate output.
SED=$lt_SED
# Sed that helps us avoid accidentally triggering echo(1) options like -n.
Xsed="\$SED -e 1s/^X//"
# A grep program that handles long lines.
GREP=$lt_GREP
# An ERE matcher.
EGREP=$lt_EGREP
# A literal string matcher.
FGREP=$lt_FGREP
# A BSD- or MS-compatible name lister.
NM=$lt_NM
# Whether we need soft or hard links.
LN_S=$lt_LN_S
# What is the maximum length of a command?
max_cmd_len=$max_cmd_len
# Object file suffix (normally "o").
objext=$ac_objext
# Executable file suffix (normally "").
exeext=$exeext
# whether the shell understands "unset".
lt_unset=$lt_unset
# turn spaces into newlines.
SP2NL=$lt_lt_SP2NL
# turn newlines into spaces.
NL2SP=$lt_lt_NL2SP
# convert \$build file names to \$host format.
to_host_file_cmd=$lt_cv_to_host_file_cmd
# convert \$build files to toolchain format.
to_tool_file_cmd=$lt_cv_to_tool_file_cmd
# An object symbol dumper.
OBJDUMP=$lt_OBJDUMP
# Method to check whether dependent libraries are shared objects.
deplibs_check_method=$lt_deplibs_check_method
# Command to use when deplibs_check_method = "file_magic".
file_magic_cmd=$lt_file_magic_cmd
# How to find potential files when deplibs_check_method = "file_magic".
file_magic_glob=$lt_file_magic_glob
# Find potential files using nocaseglob when deplibs_check_method = "file_magic".
want_nocaseglob=$lt_want_nocaseglob
# DLL creation program.
DLLTOOL=$lt_DLLTOOL
# Command to associate shared and link libraries.
sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd
# The archiver.
AR=$lt_AR
# Flags to create an archive.
AR_FLAGS=$lt_AR_FLAGS
# How to feed a file listing to the archiver.
archiver_list_spec=$lt_archiver_list_spec
# A symbol stripping program.
STRIP=$lt_STRIP
# Commands used to install an old-style archive.
RANLIB=$lt_RANLIB
old_postinstall_cmds=$lt_old_postinstall_cmds
old_postuninstall_cmds=$lt_old_postuninstall_cmds
# Whether to use a lock for old archive extraction.
lock_old_archive_extraction=$lock_old_archive_extraction
# A C compiler.
LTCC=$lt_CC
# LTCC compiler flags.
LTCFLAGS=$lt_CFLAGS
# Take the output of nm and produce a listing of raw symbols and C names.
global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
# Transform the output of nm in a proper C declaration.
global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
# Transform the output of nm in a C name address pair.
global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
# Transform the output of nm in a C name address pair when lib prefix is needed.
global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix
# Specify filename containing input files for \$NM.
nm_file_list_spec=$lt_nm_file_list_spec
# The root where to search for dependent libraries,and in which our libraries should be installed.
lt_sysroot=$lt_sysroot
# The name of the directory that contains temporary libtool files.
objdir=$objdir
# Used to examine libraries when file_magic_cmd begins with "file".
MAGIC_CMD=$MAGIC_CMD
# Must we lock files when doing compilation?
need_locks=$lt_need_locks
# Manifest tool.
MANIFEST_TOOL=$lt_MANIFEST_TOOL
# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
DSYMUTIL=$lt_DSYMUTIL
# Tool to change global to local symbols on Mac OS X.
NMEDIT=$lt_NMEDIT
# Tool to manipulate fat objects and archives on Mac OS X.
LIPO=$lt_LIPO
# ldd/readelf like tool for Mach-O binaries on Mac OS X.
OTOOL=$lt_OTOOL
# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
OTOOL64=$lt_OTOOL64
# Old archive suffix (normally "a").
libext=$libext
# Shared library suffix (normally ".so").
shrext_cmds=$lt_shrext_cmds
# The commands to extract the exported symbol list from a shared archive.
extract_expsyms_cmds=$lt_extract_expsyms_cmds
# Variables whose values should be saved in libtool wrapper scripts and
# restored at link time.
variables_saved_for_relink=$lt_variables_saved_for_relink
# Do we need the "lib" prefix for modules?
need_lib_prefix=$need_lib_prefix
# Do we need a version for libraries?
need_version=$need_version
# Library versioning type.
version_type=$version_type
# Shared library runtime path variable.
runpath_var=$runpath_var
# Shared library path variable.
shlibpath_var=$shlibpath_var
# Is shlibpath searched before the hard-coded library search path?
shlibpath_overrides_runpath=$shlibpath_overrides_runpath
# Format of library name prefix.
libname_spec=$lt_libname_spec
# List of archive names. First name is the real one, the rest are links.
# The last name is the one that the linker finds with -lNAME
library_names_spec=$lt_library_names_spec
# The coded name of the library, if different from the real name.
soname_spec=$lt_soname_spec
# Permission mode override for installation of shared libraries.
install_override_mode=$lt_install_override_mode
# Command to use after installation of a shared archive.
postinstall_cmds=$lt_postinstall_cmds
# Command to use after uninstallation of a shared archive.
postuninstall_cmds=$lt_postuninstall_cmds
# Commands used to finish a libtool library installation in a directory.
finish_cmds=$lt_finish_cmds
# As "finish_cmds", except a single script fragment to be evaled but
# not shown.
finish_eval=$lt_finish_eval
# Whether we should hardcode library paths into libraries.
hardcode_into_libs=$hardcode_into_libs
# Compile-time system search path for libraries.
sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
# Run-time system search path for libraries.
sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec
# Whether dlopen is supported.
dlopen_support=$enable_dlopen
# Whether dlopen of programs is supported.
dlopen_self=$enable_dlopen_self
# Whether dlopen of statically linked programs is supported.
dlopen_self_static=$enable_dlopen_self_static
# Commands to strip libraries.
old_striplib=$lt_old_striplib
striplib=$lt_striplib
# The linker used to build libraries.
LD=$lt_LD
# How to create reloadable object files.
reload_flag=$lt_reload_flag
reload_cmds=$lt_reload_cmds
# Commands used to build an old-style archive.
old_archive_cmds=$lt_old_archive_cmds
# A language specific compiler.
CC=$lt_compiler
# Is the compiler the GNU compiler?
with_gcc=$GCC
# Compiler flag to turn off builtin functions.
no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag
# Additional compiler flags for building library objects.
pic_flag=$lt_lt_prog_compiler_pic
# How to pass a linker flag through the compiler.
wl=$lt_lt_prog_compiler_wl
# Compiler flag to prevent dynamic linking.
link_static_flag=$lt_lt_prog_compiler_static
# Does compiler simultaneously support -c and -o options?
compiler_c_o=$lt_lt_cv_prog_compiler_c_o
# Whether or not to add -lc for building shared libraries.
build_libtool_need_lc=$archive_cmds_need_lc
# Whether or not to disallow shared libs when runtime libs are static.
allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes
# Compiler flag to allow reflexive dlopens.
export_dynamic_flag_spec=$lt_export_dynamic_flag_spec
# Compiler flag to generate shared objects directly from archives.
whole_archive_flag_spec=$lt_whole_archive_flag_spec
# Whether the compiler copes with passing no objects directly.
compiler_needs_object=$lt_compiler_needs_object
# Create an old-style archive from a shared archive.
old_archive_from_new_cmds=$lt_old_archive_from_new_cmds
# Create a temporary old-style archive to link instead of a shared archive.
old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds
# Commands used to build a shared archive.
archive_cmds=$lt_archive_cmds
archive_expsym_cmds=$lt_archive_expsym_cmds
# Commands used to build a loadable module if different from building
# a shared archive.
module_cmds=$lt_module_cmds
module_expsym_cmds=$lt_module_expsym_cmds
# Whether we are building with GNU ld or not.
with_gnu_ld=$lt_with_gnu_ld
# Flag that allows shared libraries with undefined symbols to be built.
allow_undefined_flag=$lt_allow_undefined_flag
# Flag that enforces no undefined symbols.
no_undefined_flag=$lt_no_undefined_flag
# Flag to hardcode \$libdir into a binary during linking.
# This must work even if \$libdir does not exist
hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec
-# If ld is used when linking, flag to hardcode \$libdir into a binary
-# during linking. This must work even if \$libdir does not exist.
-hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld
-
# Whether we need a single "-rpath" flag with a separated argument.
hardcode_libdir_separator=$lt_hardcode_libdir_separator
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary.
hardcode_direct=$hardcode_direct
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary and the resulting library dependency is
# "absolute",i.e impossible to change by setting \${shlibpath_var} if the
# library is relocated.
hardcode_direct_absolute=$hardcode_direct_absolute
# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
# into the resulting binary.
hardcode_minus_L=$hardcode_minus_L
# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
# into the resulting binary.
hardcode_shlibpath_var=$hardcode_shlibpath_var
# Set to "yes" if building a shared library automatically hardcodes DIR
# into the library and all subsequent libraries and executables linked
# against it.
hardcode_automatic=$hardcode_automatic
# Set to yes if linker adds runtime paths of dependent libraries
# to runtime path list.
inherit_rpath=$inherit_rpath
# Whether libtool must link a program against all its dependency libraries.
link_all_deplibs=$link_all_deplibs
# Set to "yes" if exported symbols are required.
always_export_symbols=$always_export_symbols
# The commands to list exported symbols.
export_symbols_cmds=$lt_export_symbols_cmds
# Symbols that should not be listed in the preloaded symbols.
exclude_expsyms=$lt_exclude_expsyms
# Symbols that must always be exported.
include_expsyms=$lt_include_expsyms
# Commands necessary for linking programs (against libraries) with templates.
prelink_cmds=$lt_prelink_cmds
# Commands necessary for finishing linking programs.
postlink_cmds=$lt_postlink_cmds
# Specify filename containing input files.
file_list_spec=$lt_file_list_spec
# How to hardcode a shared library path into an executable.
hardcode_action=$hardcode_action
# The directories searched by this compiler when creating a shared library.
compiler_lib_search_dirs=$lt_compiler_lib_search_dirs
# Dependencies to place before and after the objects being linked to
# create a shared library.
predep_objects=$lt_predep_objects
postdep_objects=$lt_postdep_objects
predeps=$lt_predeps
postdeps=$lt_postdeps
# The library search path used internally by the compiler when linking
# a shared library.
compiler_lib_search_path=$lt_compiler_lib_search_path
# ### END LIBTOOL CONFIG
_LT_EOF
case $host_os in
aix3*)
cat <<\_LT_EOF >> "$cfgfile"
# AIX sometimes has problems with the GCC collect2 program. For some
# reason, if we set the COLLECT_NAMES environment variable, the problems
# vanish in a puff of smoke.
if test "X${COLLECT_NAMES+set}" != Xset; then
COLLECT_NAMES=
export COLLECT_NAMES
fi
_LT_EOF
;;
esac
ltmain="$ac_aux_dir/ltmain.sh"
# We use sed instead of cat because bash on DJGPP gets confused if
# if finds mixed CR/LF and LF-only lines. Since sed operates in
# text mode, it properly converts lines to CR/LF. This bash problem
# is reportedly fixed, but why not run on old versions too?
sed '$q' "$ltmain" >> "$cfgfile" \
|| (rm -f "$cfgfile"; exit 1)
if test x"$xsi_shell" = xyes; then
sed -e '/^func_dirname ()$/,/^} # func_dirname /c\
func_dirname ()\
{\
\ case ${1} in\
\ */*) func_dirname_result="${1%/*}${2}" ;;\
\ * ) func_dirname_result="${3}" ;;\
\ esac\
} # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_basename ()$/,/^} # func_basename /c\
func_basename ()\
{\
\ func_basename_result="${1##*/}"\
} # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\
func_dirname_and_basename ()\
{\
\ case ${1} in\
\ */*) func_dirname_result="${1%/*}${2}" ;;\
\ * ) func_dirname_result="${3}" ;;\
\ esac\
\ func_basename_result="${1##*/}"\
} # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_stripname ()$/,/^} # func_stripname /c\
func_stripname ()\
{\
\ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\
\ # positional parameters, so assign one to ordinary parameter first.\
\ func_stripname_result=${3}\
\ func_stripname_result=${func_stripname_result#"${1}"}\
\ func_stripname_result=${func_stripname_result%"${2}"}\
} # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\
func_split_long_opt ()\
{\
\ func_split_long_opt_name=${1%%=*}\
\ func_split_long_opt_arg=${1#*=}\
} # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\
func_split_short_opt ()\
{\
\ func_split_short_opt_arg=${1#??}\
\ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\
} # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\
func_lo2o ()\
{\
\ case ${1} in\
\ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\
\ *) func_lo2o_result=${1} ;;\
\ esac\
} # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_xform ()$/,/^} # func_xform /c\
func_xform ()\
{\
func_xform_result=${1%.*}.lo\
} # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_arith ()$/,/^} # func_arith /c\
func_arith ()\
{\
func_arith_result=$(( $* ))\
} # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_len ()$/,/^} # func_len /c\
func_len ()\
{\
func_len_result=${#1}\
} # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
fi
if test x"$lt_shell_append" = xyes; then
sed -e '/^func_append ()$/,/^} # func_append /c\
func_append ()\
{\
eval "${1}+=\\${2}"\
} # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\
func_append_quoted ()\
{\
\ func_quote_for_eval "${2}"\
\ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\
} # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
# Save a `func_append' function call where possible by direct use of '+='
sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
else
# Save a `func_append' function call even when '+=' is not available
sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
fi
if test x"$_lt_function_replace_fail" = x":"; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5
$as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;}
fi
mv -f "$cfgfile" "$ofile" ||
(rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
chmod +x "$ofile"
cat <<_LT_EOF >> "$ofile"
# ### BEGIN LIBTOOL TAG CONFIG: F77
# The linker used to build libraries.
LD=$lt_LD_F77
# How to create reloadable object files.
reload_flag=$lt_reload_flag_F77
reload_cmds=$lt_reload_cmds_F77
# Commands used to build an old-style archive.
old_archive_cmds=$lt_old_archive_cmds_F77
# A language specific compiler.
CC=$lt_compiler_F77
# Is the compiler the GNU compiler?
with_gcc=$GCC_F77
# Compiler flag to turn off builtin functions.
no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77
# Additional compiler flags for building library objects.
pic_flag=$lt_lt_prog_compiler_pic_F77
# How to pass a linker flag through the compiler.
wl=$lt_lt_prog_compiler_wl_F77
# Compiler flag to prevent dynamic linking.
link_static_flag=$lt_lt_prog_compiler_static_F77
# Does compiler simultaneously support -c and -o options?
compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77
# Whether or not to add -lc for building shared libraries.
build_libtool_need_lc=$archive_cmds_need_lc_F77
# Whether or not to disallow shared libs when runtime libs are static.
allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77
# Compiler flag to allow reflexive dlopens.
export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77
# Compiler flag to generate shared objects directly from archives.
whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77
# Whether the compiler copes with passing no objects directly.
compiler_needs_object=$lt_compiler_needs_object_F77
# Create an old-style archive from a shared archive.
old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77
# Create a temporary old-style archive to link instead of a shared archive.
old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77
# Commands used to build a shared archive.
archive_cmds=$lt_archive_cmds_F77
archive_expsym_cmds=$lt_archive_expsym_cmds_F77
# Commands used to build a loadable module if different from building
# a shared archive.
module_cmds=$lt_module_cmds_F77
module_expsym_cmds=$lt_module_expsym_cmds_F77
# Whether we are building with GNU ld or not.
with_gnu_ld=$lt_with_gnu_ld_F77
# Flag that allows shared libraries with undefined symbols to be built.
allow_undefined_flag=$lt_allow_undefined_flag_F77
# Flag that enforces no undefined symbols.
no_undefined_flag=$lt_no_undefined_flag_F77
# Flag to hardcode \$libdir into a binary during linking.
# This must work even if \$libdir does not exist
hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_F77
-# If ld is used when linking, flag to hardcode \$libdir into a binary
-# during linking. This must work even if \$libdir does not exist.
-hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_F77
-
# Whether we need a single "-rpath" flag with a separated argument.
hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary.
hardcode_direct=$hardcode_direct_F77
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary and the resulting library dependency is
# "absolute",i.e impossible to change by setting \${shlibpath_var} if the
# library is relocated.
hardcode_direct_absolute=$hardcode_direct_absolute_F77
# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
# into the resulting binary.
hardcode_minus_L=$hardcode_minus_L_F77
# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
# into the resulting binary.
hardcode_shlibpath_var=$hardcode_shlibpath_var_F77
# Set to "yes" if building a shared library automatically hardcodes DIR
# into the library and all subsequent libraries and executables linked
# against it.
hardcode_automatic=$hardcode_automatic_F77
# Set to yes if linker adds runtime paths of dependent libraries
# to runtime path list.
inherit_rpath=$inherit_rpath_F77
# Whether libtool must link a program against all its dependency libraries.
link_all_deplibs=$link_all_deplibs_F77
# Set to "yes" if exported symbols are required.
always_export_symbols=$always_export_symbols_F77
# The commands to list exported symbols.
export_symbols_cmds=$lt_export_symbols_cmds_F77
# Symbols that should not be listed in the preloaded symbols.
exclude_expsyms=$lt_exclude_expsyms_F77
# Symbols that must always be exported.
include_expsyms=$lt_include_expsyms_F77
# Commands necessary for linking programs (against libraries) with templates.
prelink_cmds=$lt_prelink_cmds_F77
# Commands necessary for finishing linking programs.
postlink_cmds=$lt_postlink_cmds_F77
# Specify filename containing input files.
file_list_spec=$lt_file_list_spec_F77
# How to hardcode a shared library path into an executable.
hardcode_action=$hardcode_action_F77
# The directories searched by this compiler when creating a shared library.
compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_F77
# Dependencies to place before and after the objects being linked to
# create a shared library.
predep_objects=$lt_predep_objects_F77
postdep_objects=$lt_postdep_objects_F77
predeps=$lt_predeps_F77
postdeps=$lt_postdeps_F77
# The library search path used internally by the compiler when linking
# a shared library.
compiler_lib_search_path=$lt_compiler_lib_search_path_F77
# ### END LIBTOOL TAG CONFIG: F77
_LT_EOF
cat <<_LT_EOF >> "$ofile"
# ### BEGIN LIBTOOL TAG CONFIG: FC
# The linker used to build libraries.
LD=$lt_LD_FC
# How to create reloadable object files.
reload_flag=$lt_reload_flag_FC
reload_cmds=$lt_reload_cmds_FC
# Commands used to build an old-style archive.
old_archive_cmds=$lt_old_archive_cmds_FC
# A language specific compiler.
CC=$lt_compiler_FC
# Is the compiler the GNU compiler?
with_gcc=$GCC_FC
# Compiler flag to turn off builtin functions.
no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC
# Additional compiler flags for building library objects.
pic_flag=$lt_lt_prog_compiler_pic_FC
# How to pass a linker flag through the compiler.
wl=$lt_lt_prog_compiler_wl_FC
# Compiler flag to prevent dynamic linking.
link_static_flag=$lt_lt_prog_compiler_static_FC
# Does compiler simultaneously support -c and -o options?
compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC
# Whether or not to add -lc for building shared libraries.
build_libtool_need_lc=$archive_cmds_need_lc_FC
# Whether or not to disallow shared libs when runtime libs are static.
allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC
# Compiler flag to allow reflexive dlopens.
export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC
# Compiler flag to generate shared objects directly from archives.
whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC
# Whether the compiler copes with passing no objects directly.
compiler_needs_object=$lt_compiler_needs_object_FC
# Create an old-style archive from a shared archive.
old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC
# Create a temporary old-style archive to link instead of a shared archive.
old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC
# Commands used to build a shared archive.
archive_cmds=$lt_archive_cmds_FC
archive_expsym_cmds=$lt_archive_expsym_cmds_FC
# Commands used to build a loadable module if different from building
# a shared archive.
module_cmds=$lt_module_cmds_FC
module_expsym_cmds=$lt_module_expsym_cmds_FC
# Whether we are building with GNU ld or not.
with_gnu_ld=$lt_with_gnu_ld_FC
# Flag that allows shared libraries with undefined symbols to be built.
allow_undefined_flag=$lt_allow_undefined_flag_FC
# Flag that enforces no undefined symbols.
no_undefined_flag=$lt_no_undefined_flag_FC
# Flag to hardcode \$libdir into a binary during linking.
# This must work even if \$libdir does not exist
hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC
-# If ld is used when linking, flag to hardcode \$libdir into a binary
-# during linking. This must work even if \$libdir does not exist.
-hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_FC
-
# Whether we need a single "-rpath" flag with a separated argument.
hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary.
hardcode_direct=$hardcode_direct_FC
# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
# DIR into the resulting binary and the resulting library dependency is
# "absolute",i.e impossible to change by setting \${shlibpath_var} if the
# library is relocated.
hardcode_direct_absolute=$hardcode_direct_absolute_FC
# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
# into the resulting binary.
hardcode_minus_L=$hardcode_minus_L_FC
# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
# into the resulting binary.
hardcode_shlibpath_var=$hardcode_shlibpath_var_FC
# Set to "yes" if building a shared library automatically hardcodes DIR
# into the library and all subsequent libraries and executables linked
# against it.
hardcode_automatic=$hardcode_automatic_FC
# Set to yes if linker adds runtime paths of dependent libraries
# to runtime path list.
inherit_rpath=$inherit_rpath_FC
# Whether libtool must link a program against all its dependency libraries.
link_all_deplibs=$link_all_deplibs_FC
# Set to "yes" if exported symbols are required.
always_export_symbols=$always_export_symbols_FC
# The commands to list exported symbols.
export_symbols_cmds=$lt_export_symbols_cmds_FC
# Symbols that should not be listed in the preloaded symbols.
exclude_expsyms=$lt_exclude_expsyms_FC
# Symbols that must always be exported.
include_expsyms=$lt_include_expsyms_FC
# Commands necessary for linking programs (against libraries) with templates.
prelink_cmds=$lt_prelink_cmds_FC
# Commands necessary for finishing linking programs.
postlink_cmds=$lt_postlink_cmds_FC
# Specify filename containing input files.
file_list_spec=$lt_file_list_spec_FC
# How to hardcode a shared library path into an executable.
hardcode_action=$hardcode_action_FC
# The directories searched by this compiler when creating a shared library.
compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC
# Dependencies to place before and after the objects being linked to
# create a shared library.
predep_objects=$lt_predep_objects_FC
postdep_objects=$lt_postdep_objects_FC
predeps=$lt_predeps_FC
postdeps=$lt_postdeps_FC
# The library search path used internally by the compiler when linking
# a shared library.
compiler_lib_search_path=$lt_compiler_lib_search_path_FC
# ### END LIBTOOL TAG CONFIG: FC
_LT_EOF
;;
esac
done # for ac_tag
as_fn_exit 0
_ACEOF
ac_clean_files=$ac_clean_files_save
test $ac_write_fail = 0 ||
as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
# configure is writing to config.log, and then calls config.status.
# config.status does its own redirection, appending to config.log.
# Unfortunately, on DOS this fails, as config.log is still kept open
# by configure, so config.status won't be able to write to it; its
# output is simply discarded. So we exec the FD to /dev/null,
# effectively closing config.log, so it can be properly (re)opened and
# appended to by config.status. When coming back to configure, we
# need to make the FD available again.
if test "$no_create" != yes; then
ac_cs_success=:
ac_config_status_args=
test "$silent" = yes &&
ac_config_status_args="$ac_config_status_args --quiet"
exec 5>/dev/null
$SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
exec 5>>config.log
# Use ||, not &&, to avoid exiting from the if with $? = 1, which
# would make configure fail if this is the last instruction.
$ac_cs_success || as_fn_exit 1
fi
if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
fi
diff --git a/configure.ac b/configure.ac
index e1afa34..cf35611 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,344 +1,345 @@
AC_INIT([GoSam Convenience Package],[1.0],[reiterth@mpp.mpg.de],[gosam-contrib],[http://projects.hepforge.org/golem/gosam-contrib/])
AC_PREREQ(2.65)
AC_CONFIG_MACRO_DIR([m4])
AC_CONFIG_AUX_DIR([config.aux])
dnl -----------------------------------------------
dnl Package name and version number (user defined)
dnl -----------------------------------------------
VERSION=1.0
PACKAGE=gosam-contrib
dnl -----------------------------------------------
dnl ---#[ Checks for programs:
dnl -----------------------------------------------
AM_INIT_AUTOMAKE($PACKAGE, $VERSION, no-define, no-dependencies)
AC_LANG_PUSH([Fortran])
AC_PROG_F77([gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77])
AC_PROG_FC([gfortran ifort g77 f77 xlf frt pgf77 fort77 fl32 af77])
dnl Check the flags needed to link fc programs with ld (i.e. cc)
AC_FC_LIBRARY_LDFLAGS
dnl Check for underscoring of external names
AC_FC_WRAPPERS
dnl We need to use .f90 and not .f to enable Automake FC support
dnl Some Intel ifc/ifort do not understand .f95. :-/
AC_FC_SRCEXT([f90])
dnl AC_FC_FIXEDFORM
dnl AC_FC_LINE_LENGTH([unlimited],[],[])
AC_FC_FREEFORM
dnl Enable long line support if available
AC_FC_LINE_LENGTH([unlimited],[],[AC_MSG_WARN([Fortran compiler does not accept long source lines], 77)])
AC_LANG_POP
AC_LANG_PUSH([Fortran 77])
MY_F77_LINE_LENGTH([132],[],[AC_MSG_WARN([Fortran 77 compiler does not accept long source lines], 77)])
AC_LANG_POP
LT_INIT
LT_INIT
AM_SANITY_CHECK
dnl -----------------------------------------------
dnl ---#] Checks for programs:
dnl -----------------------------------------------
dnl -----------------------------------------------
dnl ---#[ Setup datadir variable:
dnl -----------------------------------------------
dnl @synopsis AC_DEFINE_DIR(VARNAME, DIR [, DESCRIPTION])
dnl
dnl This macro sets VARNAME to the expansion of the DIR variable,
dnl taking care of fixing up ${prefix} and such.
dnl
dnl VARNAME is then offered as both an output variable and a C
dnl preprocessor symbol.
dnl
dnl Example:
dnl
dnl AC_DEFINE_DIR([DATADIR], [datadir], [Where data are placed to.])
dnl
dnl @category Misc
dnl @author Stepan Kasal <kasal@ucw.cz>
dnl @author Andreas Schwab <schwab@suse.de>
dnl @author Guido U. Draheim <guidod@gmx.de>
dnl @author Alexandre Oliva
dnl @version 2006-10-13
dnl @license AllPermissive
AC_DEFUN([AC_DEFINE_DIR], [
prefix_NONE=
exec_prefix_NONE=
test "x$prefix" = xNONE && prefix_NONE=yes && prefix=$ac_default_prefix
test "x$exec_prefix" = xNONE && exec_prefix_NONE=yes && exec_prefix=$prefix
dnl In Autoconf 2.60, ${datadir} refers to ${datarootdir}, which in turn
dnl refers to ${prefix}. Thus we have to use `eval' twice.
eval ac_define_dir="\"[$]$2\""
eval ac_define_dir="\"$ac_define_dir\""
AC_SUBST($1, "$ac_define_dir")
AC_DEFINE_UNQUOTED($1, "$ac_define_dir", [$3])
test "$prefix_NONE" && prefix=NONE
test "$exec_prefix_NONE" && exec_prefix=NONE
])
AC_DEFINE_DIR([DATADIR], [datadir])
dnl -----------------------------------------------
dnl ---#] Setup datadir variable:
dnl -----------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Set Precision:
dnl ---------------------------------------------------------------------
AC_ARG_WITH([precision], [AS_HELP_STRING([--with-precision],
[set the precision of the library to either
'double' or 'quadruple'. @<:@default=double@:>@])],
[], [with_precision=double])
AS_IF(
[test "x$with_precision" == xquadruple],
[AC_SUBST([fortran_real_kind], ["selected_real_kind(32,50)"])],
[test "x$with_precision" == xquad],
[AC_SUBST([fortran_real_kind], ["selected_real_kind(32,50)"])],
[test "x$with_precision" == xdouble],
[AC_SUBST([fortran_real_kind], ["kind(1.0d0)"])],
[test "x$with_precision" == xintermediate],
[AC_SUBST([fortran_real_kind], ["selected_real_kind(18,4931)"])],
[AC_MSG_FAILURE([--with-precision was given with an unrecognized
parameter])])
dnl ---------------------------------------------------------------------
dnl ---#] Set Precision:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure FF:
dnl ---------------------------------------------------------------------
AC_ARG_ENABLE([ff],
AS_HELP_STRING([--disable-ff], [do not compile and install FF]))
AM_CONDITIONAL(COMPILE_FF, [test "x$enable_ff" != xno])
AS_IF([test "x$enable_ff" != xno],
[AC_SUBST([conf_with_ff], [""])],
[AC_SUBST([conf_with_ff], ["# "])])
AS_IF([test "x$enable_ff" != xno],
[AC_SUBST([conf_wout_ff], ["# "])],
[AC_SUBST([conf_wout_ff], [""])])
AS_IF([test "x$enable_ff" != xno],
[AC_SUBST([case_with_ff], [" "])],
[AC_SUBST([case_with_ff], ["!AC!"])])
AS_IF([test "x$enable_ff" != xno],
[AC_SUBST([case_wout_ff], ["!AC!"])],
[AC_SUBST([case_wout_ff], [" "])])
dnl ---------------------------------------------------------------------
dnl ---#] Configure FF:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure QCDLoop:
dnl ---------------------------------------------------------------------
AC_ARG_ENABLE([ql],
AS_HELP_STRING([--disable-ql], [do not compile and install QCDLoop]))
AM_CONDITIONAL(COMPILE_QL, [test "x$enable_ql" != xno])
AS_IF([test "x$enable_ql" != xno],
[AC_SUBST([conf_with_ql], [""])],
[AC_SUBST([conf_with_ql], ["# "])])
AS_IF([test "x$enable_ql" != xno],
[AC_SUBST([conf_wout_ql], ["# "])],
[AC_SUBST([conf_wout_ql], [""])])
AS_IF([test "x$enable_ql" != xno],
[AC_SUBST([case_with_ql], [" "])],
[AC_SUBST([case_with_ql], ["!AC!"])])
AS_IF([test "x$enable_ql" != xno],
[AC_SUBST([case_wout_ql], ["!AC!"])],
[AC_SUBST([case_wout_ql], [" "])])
dnl ---------------------------------------------------------------------
dnl ---#] Configure QCDLoop:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure AVH OneLOop:
dnl ---------------------------------------------------------------------
AC_ARG_ENABLE([olo],
AS_HELP_STRING([--disable-olo], [do not compile and install AVH OneLOop]))
AM_CONDITIONAL(COMPILE_OLO, [test "x$enable_olo" != xno])
AC_SUBST([avh_olo_real_kind],["$fortran_real_kind"])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([conf_with_olo], [""])],
[AC_SUBST([conf_with_olo], ["# "])])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([conf_wout_olo], ["# "])],
[AC_SUBST([conf_wout_olo], [""])])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([case_with_olo], [" "])],
[AC_SUBST([case_with_olo], ["!AC!"])])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([case_wout_olo], ["!AC!"])],
[AC_SUBST([case_wout_olo], [" "])])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([case_with_avh], [" "])],
[AC_SUBST([case_with_avh], ["!AC!"])])
AS_IF([test "x$enable_olo" != xno],
[AC_SUBST([case_wout_avh], ["!AC!"])],
[AC_SUBST([case_wout_avh], [" "])])
dnl ---------------------------------------------------------------------
dnl ---#] Configure AVH OneLOop:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure Golem95C:
dnl ---------------------------------------------------------------------
AC_ARG_ENABLE([golem95],
AS_HELP_STRING([--disable-golem95], [do not compile and install Golem95C]))
AM_CONDITIONAL(COMPILE_GOLEM95C, [test "x$enable_golem95" != xno])
AS_IF([test "x$enable_golem95" != xno],
[AC_SUBST([conf_with_golem95], [""])],
[AC_SUBST([conf_with_golem95], ["# "])])
AS_IF([test "x$enable_golem95" != xno],
[AC_SUBST([conf_wout_golem95], ["# "])],
[AC_SUBST([conf_wout_golem95], [""])])
AS_IF([test "x$enable_golem95" != xno],
[AC_SUBST([case_with_golem], [" "])],
[AC_SUBST([case_with_golem], ["!AC!"])])
AS_IF([test "x$enable_golem95" != xno],
[AC_SUBST([case_wout_golem], ["!AC!"])],
[AC_SUBST([case_wout_golem], [" "])])
AM_CONDITIONAL(COMPILE_TENSREC, [test "x" == "x"])
dnl ---------------------------------------------------------------------
dnl ---#] Configure Golem95C:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure Samurai:
dnl ---------------------------------------------------------------------
SAMURAIVERSION=2.1.1
AC_ARG_ENABLE([samurai],
AS_HELP_STRING([--disable-samurai], [do not compile and install Samurai]))
AM_CONDITIONAL(COMPILE_SAMURAI, [test "x$enable_golem95" != xno])
AS_IF([test "x$enable_samurai" != xno],
[AC_SUBST([conf_with_samurai], [""])],
[AC_SUBST([conf_with_samurai], ["# "])])
AS_IF([test "x$enable_samurai" != xno],
[AC_SUBST([conf_wout_samurai], ["# "])],
[AC_SUBST([conf_wout_samurai], [""])])
AS_IF([test "x$enable_samurai" != xno],
[AC_SUBST([case_with_samurai], [" "])],
[AC_SUBST([case_with_samurai], ["!AC!"])])
AS_IF([test "x$enable_samurai" != xno],
[AC_SUBST([case_wout_samurai], ["!AC!"])],
[AC_SUBST([case_wout_samurai], [" "])])
AC_SUBST(SAMURAIVERSION)
dnl ---------------------------------------------------------------------
dnl ---#] Configure Samurai:
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Configure LoopTools (external):
dnl ---------------------------------------------------------------------
AC_ARG_WITH([looptools],
[AS_HELP_STRING([--with-looptools],
[enable linking to LoopTools])],
[],
[with_looptools=no])
LIBLOOPTOOLS=
AS_IF(
[test "x$with_looptools" == xyes],
[AC_CHECK_LIB([ooptools -lgfortran], [ltexi_],
[AC_SUBST([LIBLOOPTOOLS], ["-looptools"])
AC_DEFINE([HAVE_LT], [1], [Define if you have Looptools])
],
[AC_MSG_FAILURE(
[--with-looptools was given, but test for -looptools failed. \
Consider using --with-looptools=path/libooptools.a .])],
[-looptools])],
[test "x$with_looptools" != xno],
[AC_CHECK_FILE([$with_looptools],
[AC_SUBST([LIBLOOPTOOLS], ["$with_looptools"])
AC_DEFINE([HAVE_LT], [1], [Define if you have Looptools])
],
[AC_MSG_FAILURE(
[--with-looptools was given, but location '$with_looptools' \
is wrong.])])]
)
AS_IF([test "x$with_looptools" != xno],
[AC_SUBST([conf_with_lt], [""])],
[AC_SUBST([conf_with_lt], ["#"])])
AS_IF([test "x$with_looptools" != xno],
[AC_SUBST([conf_wout_lt], ["#"])],
[AC_SUBST([conf_wout_lt], [""])])
AS_IF([test "x$with_looptools" != xno],
[AC_SUBST([case_with_lt], [" "])],
[AC_SUBST([case_with_lt], ["!AC!"])])
AS_IF([test "x$with_looptools" != xno],
[AC_SUBST([case_wout_lt], ["!AC!"])],
[AC_SUBST([case_wout_lt], [" "])])
dnl -----------------------------------------------
dnl Set the precision used by LoopTools
dnl -----------------------------------------------
AC_ARG_WITH([lt-precision], [AS_HELP_STRING([--with-lt-precision],
[set the precision used by LoopTools to either
'double' or 'quadruple'. @<:@default=double@:>@])],
[], [with_lt_precision=double])
AS_IF(
[test "x$with_lt_precision" == xquadruple],
[AC_SUBST([lt_real_kind], ["selected_real_kind(32,50)"])],
[test "x$with_lt_precision" == xquad],
[AC_SUBST([lt_real_kind], ["selected_real_kind(32,50)"])],
[test "x$with_lt_precision" == xdouble],
[AC_SUBST([lt_real_kind], ["kind(1.0d0)"])],
[AC_MSG_FAILURE([--with-lt-precision was given with an
unrecognized parameter])])
dnl ---------------------------------------------------------------------
dnl ---#] Configure LoopTools (external):
dnl ---------------------------------------------------------------------
dnl ---------------------------------------------------------------------
dnl ---#[ Generates Makefile's, configuration files and scripts:
dnl ---------------------------------------------------------------------
AC_CONFIG_FILES([\
gosam.conf \
samurai.pc \
Makefile \
ff-2.0/Makefile \
ff-2.0/ffinit.f \
qcdloop-1.9/Makefile \
avh_olo-2.2.1/Makefile \
golem95c-1.2.1/Makefile \
golem95c-1.2.1/module/Makefile \
golem95c-1.2.1/module/precision_golem.f90 \
golem95c-1.2.1/integrals/Makefile \
golem95c-1.2.1/integrals/two_point/Makefile \
golem95c-1.2.1/integrals/one_point/Makefile \
golem95c-1.2.1/integrals/three_point/Makefile \
golem95c-1.2.1/integrals/four_point/Makefile \
golem95c-1.2.1/integrals/four_point/generic_function_4p.f90 \
+ golem95c-1.2.1/higherrank/Makefile \
golem95c-1.2.1/interface/Makefile \
golem95c-1.2.1/numerical/Makefile \
golem95c-1.2.1/kinematic/Makefile \
golem95c-1.2.1/form_factor/Makefile \
samurai-2.1.1/Makefile \
samurai-2.1.1/madds.f90 \
samurai-2.1.1/msamurai.f90 \
samurai-2.1.1/precision.f90 \
])
AC_OUTPUT
dnl ---------------------------------------------------------------------
dnl ---#] Generates Makefile's, configuration files and scripts:
dnl ---------------------------------------------------------------------
diff --git a/ff-2.0/Makefile.in b/ff-2.0/Makefile.in
index 7c23d70..f721a0b 100644
--- a/ff-2.0/Makefile.in
+++ b/ff-2.0/Makefile.in
@@ -1,588 +1,639 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
DIST_COMMON = README $(dist_pkginclude_HEADERS) $(srcdir)/Makefile.am \
$(srcdir)/Makefile.dep $(srcdir)/Makefile.in \
$(srcdir)/ffinit.f.in
subdir = ff-2.0
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES = ffinit.f
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"
LTLIBRARIES = $(lib_LTLIBRARIES)
libff_la_LIBADD =
am_libff_la_OBJECTS = aaxbx.lo aaxcx.lo aaxdx.lo aaxinv.lo aacbc.lo \
aaccc.lo aacinv.lo spence.lo npoin.lo ff2dl2.lo ffabcd.lo \
ffca0.lo ffcb0.lo ffcb1.lo ffcb2p.lo ffcdb0.lo ffcc0.lo \
ffcc0p.lo ffcc1.lo ffcel2.lo ffcel3.lo ffcel4.lo ffcel5.lo \
ffceta.lo ffcli2.lo ffcrr.lo ffcxr.lo ffcxs3.lo ffcxs4.lo \
ffcxyz.lo ffdcc0.lo ffdcxs.lo ffdel2.lo ffdel3.lo ffdel4.lo \
ffdel5.lo ffdel6.lo ffdl2i.lo ffdl5p.lo ffdxc0.lo ffinit.lo \
ffrcvr.lo fftran.lo ffxb0.lo ffxb1.lo ffxb2p.lo ffxc0.lo \
ffxc0i.lo ffxc0p.lo ffxc1.lo ffxd0.lo ffxd0h.lo ffxd0i.lo \
ffxd0p.lo ffxd1.lo ffxdb0.lo ffxdbd.lo ffxdi.lo ffxdpv.lo \
ffxe0.lo ffxe1.lo ffxf0.lo ffxf0h.lo ffxli2.lo ffxxyz.lo
libff_la_OBJECTS = $(am_libff_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS)
LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS)
F77LD = $(F77)
F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libff_la_SOURCES)
DIST_SOURCES = $(libff_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
HEADERS = $(dist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
lib_LTLIBRARIES = libff.la
libff_la_SOURCES = \
aaxbx.f aaxcx.f aaxdx.f aaxinv.f aacbc.f aaccc.f aacinv.f \
spence.f npoin.f ff2dl2.f ffabcd.f ffca0.f ffcb0.f ffcb1.f \
ffcb2p.f ffcdb0.f ffcc0.f ffcc0p.f ffcc1.f ffcel2.f ffcel3.f ffcel4.f \
ffcel5.f ffceta.f ffcli2.f ffcrr.f ffcxr.f ffcxs3.f ffcxs4.f ffcxyz.f \
ffdcc0.f ffdcxs.f ffdel2.f ffdel3.f ffdel4.f ffdel5.f ffdel6.f ffdl2i.f \
ffdl5p.f ffdxc0.f ffinit.f ffrcvr.f fftran.f ffxb0.f ffxb1.f ffxb2p.f \
ffxc0.f ffxc0i.f ffxc0p.f ffxc1.f ffxd0.f ffxd0h.f ffxd0i.f ffxd0p.f \
ffxd1.f ffxdb0.f ffxdbd.f ffxdi.f ffxdpv.f ffxe0.f ffxe1.f ffxf0.f \
ffxf0h.f ffxli2.f ffxxyz.f
# ffcb2.f aaxex.f
dist_pkginclude_HEADERS = aa.h ff.h ffs.h
AM_FFLAGS = -I$(srcdir)
all: all-am
.SUFFIXES:
.SUFFIXES: .f .lo .o .obj
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu ff-2.0/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu ff-2.0/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
ffinit.f: $(top_builddir)/config.status $(srcdir)/ffinit.f.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
@$(NORMAL_INSTALL)
- test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
list2=; for p in $$list; do \
if test -f $$p; then \
list2="$$list2 $$p"; \
else :; fi; \
done; \
test -z "$$list2" || { \
+ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
}
uninstall-libLTLIBRARIES:
@$(NORMAL_UNINSTALL)
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
for p in $$list; do \
$(am__strip_dir) \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
done
clean-libLTLIBRARIES:
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libff.la: $(libff_la_OBJECTS) $(libff_la_DEPENDENCIES)
+ @list='$(lib_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libff.la: $(libff_la_OBJECTS) $(libff_la_DEPENDENCIES) $(EXTRA_libff_la_DEPENDENCIES)
$(F77LINK) -rpath $(libdir) $(libff_la_OBJECTS) $(libff_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f.o:
$(F77COMPILE) -c -o $@ $<
.f.obj:
$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
.f.lo:
$(LTF77COMPILE) -c -o $@ $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-dist_pkgincludeHEADERS: $(dist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(dist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-dist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(dist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-dist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am: install-libLTLIBRARIES
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-dist_pkgincludeHEADERS \
uninstall-libLTLIBRARIES
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libLTLIBRARIES clean-libtool ctags distclean \
+ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \
distclean-compile distclean-generic distclean-libtool \
distclean-tags distdir dvi dvi-am html html-am info info-am \
install install-am install-data install-data-am \
install-dist_pkgincludeHEADERS install-dvi install-dvi-am \
install-exec install-exec-am install-html install-html-am \
install-info install-info-am install-libLTLIBRARIES \
install-man install-pdf install-pdf-am install-ps \
install-ps-am install-strip installcheck installcheck-am \
installdirs maintainer-clean maintainer-clean-generic \
mostlyclean mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool pdf pdf-am ps ps-am tags uninstall \
uninstall-am uninstall-dist_pkgincludeHEADERS \
uninstall-libLTLIBRARIES
# Module dependencies
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/Makefile.am b/golem95c-1.2.1/Makefile.am
index 37497d2..0a4db5b 100644
--- a/golem95c-1.2.1/Makefile.am
+++ b/golem95c-1.2.1/Makefile.am
@@ -1,22 +1,20 @@
-SUBDIRS = module kinematic numerical integrals form_factor interface
+SUBDIRS = module kinematic numerical integrals form_factor higherrank interface
lib_LTLIBRARIES= libgolem.la
libgolem_la_SOURCES=
libgolem_la_LIBADD=\
$(builddir)/interface/libgolem95_interface.la \
$(builddir)/form_factor/libgolem95_formfactor.la \
$(builddir)/integrals/four_point/libgolem95_integrals_four_point.la \
$(builddir)/integrals/three_point/libgolem95_integrals_three_point.la \
$(builddir)/integrals/two_point/libgolem95_integrals_two_point.la \
$(builddir)/integrals/one_point/libgolem95_integrals_one_point.la \
+ $(builddir)/higherrank/libgolem95_higherrank.la \
$(builddir)/numerical/libgolem95_numerical.la \
$(builddir)/kinematic/libgolem95_kinematics.la \
$(builddir)/module/libgolem95_module.la \
-L$(builddir)/../avh_olo-2.2.1 -lavh_olo \
$(LIBLOOPTOOLS)
-AM_FCFLAGS= \
- -I$(builddir)/../avh_olo-2.2.1
-%.mod: %.o %.f90
- @true
+
diff --git a/golem95c-1.2.1/Makefile.in b/golem95c-1.2.1/Makefile.in
index e48ead1..e234ae6 100644
--- a/golem95c-1.2.1/Makefile.in
+++ b/golem95c-1.2.1/Makefile.in
@@ -1,709 +1,757 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
subdir = golem95c-1.2.1
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(libdir)"
LTLIBRARIES = $(lib_LTLIBRARIES)
am__DEPENDENCIES_1 =
libgolem_la_DEPENDENCIES = \
$(builddir)/interface/libgolem95_interface.la \
$(builddir)/form_factor/libgolem95_formfactor.la \
$(builddir)/integrals/four_point/libgolem95_integrals_four_point.la \
$(builddir)/integrals/three_point/libgolem95_integrals_three_point.la \
$(builddir)/integrals/two_point/libgolem95_integrals_two_point.la \
$(builddir)/integrals/one_point/libgolem95_integrals_one_point.la \
+ $(builddir)/higherrank/libgolem95_higherrank.la \
$(builddir)/numerical/libgolem95_numerical.la \
$(builddir)/kinematic/libgolem95_kinematics.la \
$(builddir)/module/libgolem95_module.la $(am__DEPENDENCIES_1)
am_libgolem_la_OBJECTS =
libgolem_la_OBJECTS = $(am_libgolem_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
CCLD = $(CC)
LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem_la_SOURCES)
DIST_SOURCES = $(libgolem_la_SOURCES)
RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \
html-recursive info-recursive install-data-recursive \
install-dvi-recursive install-exec-recursive \
install-html-recursive install-info-recursive \
install-pdf-recursive install-ps-recursive install-recursive \
installcheck-recursive installdirs-recursive pdf-recursive \
ps-recursive uninstall-recursive
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
distclean-recursive maintainer-clean-recursive
AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \
$(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \
distdir
ETAGS = etags
CTAGS = ctags
DIST_SUBDIRS = $(SUBDIRS)
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
am__relativize = \
dir0=`pwd`; \
sed_first='s,^\([^/]*\)/.*$$,\1,'; \
sed_rest='s,^[^/]*/*,,'; \
sed_last='s,^.*/\([^/]*\)$$,\1,'; \
sed_butlast='s,/*[^/]*$$,,'; \
while test -n "$$dir1"; do \
first=`echo "$$dir1" | sed -e "$$sed_first"`; \
if test "$$first" != "."; then \
if test "$$first" = ".."; then \
dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
else \
first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
if test "$$first2" = "$$first"; then \
dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
else \
dir2="../$$dir2"; \
fi; \
dir0="$$dir0"/"$$first"; \
fi; \
fi; \
dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
done; \
reldir="$$dir2"
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
-SUBDIRS = module kinematic numerical integrals form_factor interface
+SUBDIRS = module kinematic numerical integrals form_factor higherrank interface
lib_LTLIBRARIES = libgolem.la
libgolem_la_SOURCES =
libgolem_la_LIBADD = \
$(builddir)/interface/libgolem95_interface.la \
$(builddir)/form_factor/libgolem95_formfactor.la \
$(builddir)/integrals/four_point/libgolem95_integrals_four_point.la \
$(builddir)/integrals/three_point/libgolem95_integrals_three_point.la \
$(builddir)/integrals/two_point/libgolem95_integrals_two_point.la \
$(builddir)/integrals/one_point/libgolem95_integrals_one_point.la \
+ $(builddir)/higherrank/libgolem95_higherrank.la \
$(builddir)/numerical/libgolem95_numerical.la \
$(builddir)/kinematic/libgolem95_kinematics.la \
$(builddir)/module/libgolem95_module.la \
-L$(builddir)/../avh_olo-2.2.1 -lavh_olo \
$(LIBLOOPTOOLS)
-AM_FCFLAGS = \
- -I$(builddir)/../avh_olo-2.2.1
-
all: all-recursive
.SUFFIXES:
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
@$(NORMAL_INSTALL)
- test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
list2=; for p in $$list; do \
if test -f $$p; then \
list2="$$list2 $$p"; \
else :; fi; \
done; \
test -z "$$list2" || { \
+ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
}
uninstall-libLTLIBRARIES:
@$(NORMAL_UNINSTALL)
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
for p in $$list; do \
$(am__strip_dir) \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
done
clean-libLTLIBRARIES:
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem.la: $(libgolem_la_OBJECTS) $(libgolem_la_DEPENDENCIES)
+ @list='$(lib_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem.la: $(libgolem_la_OBJECTS) $(libgolem_la_DEPENDENCIES) $(EXTRA_libgolem_la_DEPENDENCIES)
$(LINK) -rpath $(libdir) $(libgolem_la_OBJECTS) $(libgolem_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
# This directory's subdirectories are mostly independent; you can cd
-# into them and run `make' without going through this Makefile.
-# To change the values of `make' variables: instead of editing Makefiles,
-# (1) if the variable is set in `config.status', edit `config.status'
-# (which will cause the Makefiles to be regenerated when you run `make');
-# (2) otherwise, pass the desired values on the `make' command line.
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+# (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
$(RECURSIVE_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
target=`echo $@ | sed s/-recursive//`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
dot_seen=yes; \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done; \
if test "$$dot_seen" = "no"; then \
$(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
fi; test -z "$$fail"
$(RECURSIVE_CLEAN_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
case "$@" in \
distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
*) list='$(SUBDIRS)' ;; \
esac; \
rev=''; for subdir in $$list; do \
if test "$$subdir" = "."; then :; else \
rev="$$subdir $$rev"; \
fi; \
done; \
rev="$$rev ."; \
target=`echo $@ | sed s/-recursive//`; \
for subdir in $$rev; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
done
ctags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \
done
+cscopelist-recursive:
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \
+ done
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
include_option=--etags-include; \
empty_fix=.; \
else \
include_option=--include; \
empty_fix=; \
fi; \
list='$(SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
test ! -f $$subdir/TAGS || \
set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
fi; \
done; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: cscopelist-recursive $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
- test -d "$(distdir)/$$subdir" \
- || $(MKDIR_P) "$(distdir)/$$subdir" \
- || exit 1; \
- fi; \
- done
- @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
+ $(am__make_dryrun) \
+ || test -d "$(distdir)/$$subdir" \
+ || $(MKDIR_P) "$(distdir)/$$subdir" \
+ || exit 1; \
dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
$(am__relativize); \
new_distdir=$$reldir; \
dir1=$$subdir; dir2="$(top_distdir)"; \
$(am__relativize); \
new_top_distdir=$$reldir; \
echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
($(am__cd) $$subdir && \
$(MAKE) $(AM_MAKEFLAGS) \
top_distdir="$$new_top_distdir" \
distdir="$$new_distdir" \
am__remove_distdir=: \
am__skip_length_check=: \
am__skip_mode_fix=: \
distdir) \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-recursive
all-am: Makefile $(LTLIBRARIES)
installdirs: installdirs-recursive
installdirs-am:
for dir in "$(DESTDIR)$(libdir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-recursive
install-exec: install-exec-recursive
install-data: install-data-recursive
uninstall: uninstall-recursive
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-recursive
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-recursive
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
mostlyclean-am
distclean: distclean-recursive
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-recursive
dvi-am:
html: html-recursive
html-am:
info: info-recursive
info-am:
install-data-am:
install-dvi: install-dvi-recursive
install-dvi-am:
install-exec-am: install-libLTLIBRARIES
install-html: install-html-recursive
install-html-am:
install-info: install-info-recursive
install-info-am:
install-man:
install-pdf: install-pdf-recursive
install-pdf-am:
install-ps: install-ps-recursive
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-recursive
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-recursive
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-recursive
pdf-am:
ps: ps-recursive
ps-am:
uninstall-am: uninstall-libLTLIBRARIES
-.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \
- install-am install-strip tags-recursive
+.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \
+ cscopelist-recursive ctags-recursive install-am install-strip \
+ tags-recursive
.PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \
all all-am check check-am clean clean-generic \
- clean-libLTLIBRARIES clean-libtool ctags ctags-recursive \
- distclean distclean-compile distclean-generic \
- distclean-libtool distclean-tags distdir dvi dvi-am html \
- html-am info info-am install install-am install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-libLTLIBRARIES install-man install-pdf \
- install-pdf-am install-ps install-ps-am install-strip \
- installcheck installcheck-am installdirs installdirs-am \
- maintainer-clean maintainer-clean-generic mostlyclean \
- mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
- pdf pdf-am ps ps-am tags tags-recursive uninstall uninstall-am \
+ clean-libLTLIBRARIES clean-libtool cscopelist \
+ cscopelist-recursive ctags ctags-recursive distclean \
+ distclean-compile distclean-generic distclean-libtool \
+ distclean-tags distdir dvi dvi-am html html-am info info-am \
+ install install-am install-data install-data-am install-dvi \
+ install-dvi-am install-exec install-exec-am install-html \
+ install-html-am install-info install-info-am \
+ install-libLTLIBRARIES install-man install-pdf install-pdf-am \
+ install-ps install-ps-am install-strip installcheck \
+ installcheck-am installdirs installdirs-am maintainer-clean \
+ maintainer-clean-generic mostlyclean mostlyclean-compile \
+ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
+ tags tags-recursive uninstall uninstall-am \
uninstall-libLTLIBRARIES
-%.mod: %.o %.f90
- @true
-
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/form_factor/Makefile.am b/golem95c-1.2.1/form_factor/Makefile.am
index e6de167..19310c3 100644
--- a/golem95c-1.2.1/form_factor/Makefile.am
+++ b/golem95c-1.2.1/form_factor/Makefile.am
@@ -1,21 +1,26 @@
noinst_LTLIBRARIES=libgolem95_formfactor.la
+
libgolem95_formfactor_la_SOURCES= form_factor_1p.f90 form_factor_2p.f90 \
form_factor_3p.f90 form_factor_4p.f90 form_factor_5p.f90 \
form_factor_6p.f90
-libgolem95_formfactor_la_FCFLAGS=\
+
+
+include ../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../module \
-I$(builddir)/../kinematic \
-I$(builddir)/../numerical \
-I$(builddir)/../interface \
-I$(builddir)/../integrals/one_point \
-I$(builddir)/../integrals/two_point \
-I$(builddir)/../integrals/three_point \
-I$(builddir)/../integrals/four_point \
-I$(builddir)/../../avh_olo-2.2.1
nodist_pkginclude_HEADERS= form_factor_5p.mod form_factor_6p.mod form_factor_4p.mod \
form_factor_3p.mod form_factor_2p.mod form_factor_1p.mod
+
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/form_factor/Makefile.dep b/golem95c-1.2.1/form_factor/Makefile.dep
index 75555d0..a30de37 100644
--- a/golem95c-1.2.1/form_factor/Makefile.dep
+++ b/golem95c-1.2.1/form_factor/Makefile.dep
@@ -1,4 +1,10 @@
# Module dependencies
-form_factor_6p.o: form_factor_5p.o
+form_factor_1p.mod: form_factor_1p.f90 form_factor_1p.$(OBJEXT)
+form_factor_2p.mod: form_factor_2p.f90 form_factor_2p.$(OBJEXT)
+form_factor_3p.mod: form_factor_3p.f90 form_factor_3p.$(OBJEXT)
+form_factor_4p.mod: form_factor_4p.f90 form_factor_4p.$(OBJEXT)
+form_factor_5p.mod: form_factor_5p.f90 form_factor_5p.$(OBJEXT)
form_factor_6p.lo: form_factor_5p.lo
-form_factor_6p.obj: form_factor_5p.obj
+form_factor_6p.$(OBJEXT): form_factor_5p.$(OBJEXT)
+form_factor_6p.mod: form_factor_6p.f90 form_factor_6p.$(OBJEXT) \
+ form_factor_5p.$(OBJEXT)
diff --git a/golem95c-1.2.1/form_factor/Makefile.in b/golem95c-1.2.1/form_factor/Makefile.in
index e5e4cdf..426dc16 100644
--- a/golem95c-1.2.1/form_factor/Makefile.in
+++ b/golem95c-1.2.1/form_factor/Makefile.in
@@ -1,588 +1,619 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/form_factor
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_formfactor_la_LIBADD =
-am_libgolem95_formfactor_la_OBJECTS = \
- libgolem95_formfactor_la-form_factor_1p.lo \
- libgolem95_formfactor_la-form_factor_2p.lo \
- libgolem95_formfactor_la-form_factor_3p.lo \
- libgolem95_formfactor_la-form_factor_4p.lo \
- libgolem95_formfactor_la-form_factor_5p.lo \
- libgolem95_formfactor_la-form_factor_6p.lo
+am_libgolem95_formfactor_la_OBJECTS = form_factor_1p.lo \
+ form_factor_2p.lo form_factor_3p.lo form_factor_4p.lo \
+ form_factor_5p.lo form_factor_6p.lo
libgolem95_formfactor_la_OBJECTS = \
$(am_libgolem95_formfactor_la_OBJECTS)
-libgolem95_formfactor_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_formfactor_la_SOURCES)
DIST_SOURCES = $(libgolem95_formfactor_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_formfactor.la
libgolem95_formfactor_la_SOURCES = form_factor_1p.f90 form_factor_2p.f90 \
form_factor_3p.f90 form_factor_4p.f90 form_factor_5p.f90 \
form_factor_6p.f90
-libgolem95_formfactor_la_FCFLAGS = \
- -I$(builddir)/../module \
- -I$(builddir)/../kinematic \
- -I$(builddir)/../numerical \
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 -I$(builddir)/../module \
+ -I$(builddir)/../kinematic -I$(builddir)/../numerical \
-I$(builddir)/../interface \
-I$(builddir)/../integrals/one_point \
-I$(builddir)/../integrals/two_point \
-I$(builddir)/../integrals/three_point \
-I$(builddir)/../integrals/four_point \
-I$(builddir)/../../avh_olo-2.2.1
-
nodist_pkginclude_HEADERS = form_factor_5p.mod form_factor_6p.mod form_factor_4p.mod \
form_factor_3p.mod form_factor_2p.mod form_factor_1p.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/form_factor/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/form_factor/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_formfactor.la: $(libgolem95_formfactor_la_OBJECTS) $(libgolem95_formfactor_la_DEPENDENCIES)
- $(libgolem95_formfactor_la_LINK) $(libgolem95_formfactor_la_OBJECTS) $(libgolem95_formfactor_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_formfactor.la: $(libgolem95_formfactor_la_OBJECTS) $(libgolem95_formfactor_la_DEPENDENCIES) $(EXTRA_libgolem95_formfactor_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_formfactor_la_OBJECTS) $(libgolem95_formfactor_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_formfactor_la-form_factor_1p.lo: form_factor_1p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_1p.lo $(FCFLAGS_f90) `test -f 'form_factor_1p.f90' || echo '$(srcdir)/'`form_factor_1p.f90
-
-libgolem95_formfactor_la-form_factor_2p.lo: form_factor_2p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_2p.lo $(FCFLAGS_f90) `test -f 'form_factor_2p.f90' || echo '$(srcdir)/'`form_factor_2p.f90
-
-libgolem95_formfactor_la-form_factor_3p.lo: form_factor_3p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_3p.lo $(FCFLAGS_f90) `test -f 'form_factor_3p.f90' || echo '$(srcdir)/'`form_factor_3p.f90
-
-libgolem95_formfactor_la-form_factor_4p.lo: form_factor_4p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_4p.lo $(FCFLAGS_f90) `test -f 'form_factor_4p.f90' || echo '$(srcdir)/'`form_factor_4p.f90
-
-libgolem95_formfactor_la-form_factor_5p.lo: form_factor_5p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_5p.lo $(FCFLAGS_f90) `test -f 'form_factor_5p.f90' || echo '$(srcdir)/'`form_factor_5p.f90
-
-libgolem95_formfactor_la-form_factor_6p.lo: form_factor_6p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_formfactor_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_formfactor_la-form_factor_6p.lo $(FCFLAGS_f90) `test -f 'form_factor_6p.f90' || echo '$(srcdir)/'`form_factor_6p.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-form_factor_6p.o: form_factor_5p.o
+form_factor_1p.mod: form_factor_1p.f90 form_factor_1p.$(OBJEXT)
+form_factor_2p.mod: form_factor_2p.f90 form_factor_2p.$(OBJEXT)
+form_factor_3p.mod: form_factor_3p.f90 form_factor_3p.$(OBJEXT)
+form_factor_4p.mod: form_factor_4p.f90 form_factor_4p.$(OBJEXT)
+form_factor_5p.mod: form_factor_5p.f90 form_factor_5p.$(OBJEXT)
form_factor_6p.lo: form_factor_5p.lo
-form_factor_6p.obj: form_factor_5p.obj
+form_factor_6p.$(OBJEXT): form_factor_5p.$(OBJEXT)
+form_factor_6p.mod: form_factor_6p.f90 form_factor_6p.$(OBJEXT) \
+ form_factor_5p.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/higherrank/Makefile.am b/golem95c-1.2.1/higherrank/Makefile.am
new file mode 100644
index 0000000..695912e
--- /dev/null
+++ b/golem95c-1.2.1/higherrank/Makefile.am
@@ -0,0 +1,27 @@
+noinst_LTLIBRARIES=libgolem95_higherrank.la
+
+include ../MakefileCommon.am
+AM_FCFLAGS+=\
+ -I$(builddir)/../module \
+ -I$(builddir)/../kinematic \
+ -I$(builddir)/../numerical \
+ -I$(builddir)/../form_factor \
+ -I$(builddir)/../integrals/one_point \
+ -I$(builddir)/../integrals/two_point \
+ -I$(builddir)/../integrals/three_point \
+ -I$(builddir)/../integrals/four_point
+
+# -I$(builddir)/../../avh_olo-2.2.1
+
+libgolem95_higherrank_la_SOURCES=generic_function_np.f90 form_factor_higher_ranks.f90
+
+nodist_pkginclude_HEADERS= generic_function_np.mod form_factor_higher_ranks.mod
+
+CLEANFILES=*.mod
+
+
+%.mod: %.o %.f90
+ @true
+
+
+include Makefile.dep
diff --git a/golem95c-1.2.1/higherrank/Makefile.dep b/golem95c-1.2.1/higherrank/Makefile.dep
new file mode 100644
index 0000000..2b5f831
--- /dev/null
+++ b/golem95c-1.2.1/higherrank/Makefile.dep
@@ -0,0 +1,6 @@
+# Module dependencies
+form_factor_higher_ranks.lo: generic_function_np.lo
+form_factor_higher_ranks.$(OBJEXT): generic_function_np.$(OBJEXT)
+form_factor_higher_ranks.mod: form_factor_higher_ranks.f90 \
+ form_factor_higher_ranks.$(OBJEXT) generic_function_np.$(OBJEXT)
+generic_function_np.mod: generic_function_np.f90 generic_function_np.$(OBJEXT)
diff --git a/golem95c-1.2.1/numerical/Makefile.in b/golem95c-1.2.1/higherrank/Makefile.in
similarity index 74%
copy from golem95c-1.2.1/numerical/Makefile.in
copy to golem95c-1.2.1/higherrank/Makefile.in
index 988101e..aa1fb43 100644
--- a/golem95c-1.2.1/numerical/Makefile.in
+++ b/golem95c-1.2.1/higherrank/Makefile.in
@@ -1,560 +1,613 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
-subdir = golem95c-1.2.1/numerical
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
+subdir = golem95c-1.2.1/higherrank
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
-libgolem95_numerical_la_LIBADD =
-am_libgolem95_numerical_la_OBJECTS = \
- libgolem95_numerical_la-mod_adapt_gauss.lo \
- libgolem95_numerical_la-mod_numeric.lo
-libgolem95_numerical_la_OBJECTS = \
- $(am_libgolem95_numerical_la_OBJECTS)
-libgolem95_numerical_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
+libgolem95_higherrank_la_LIBADD =
+am_libgolem95_higherrank_la_OBJECTS = generic_function_np.lo \
+ form_factor_higher_ranks.lo
+libgolem95_higherrank_la_OBJECTS = \
+ $(am_libgolem95_higherrank_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
-SOURCES = $(libgolem95_numerical_la_SOURCES)
-DIST_SOURCES = $(libgolem95_numerical_la_SOURCES)
+SOURCES = $(libgolem95_higherrank_la_SOURCES)
+DIST_SOURCES = $(libgolem95_higherrank_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
-noinst_LTLIBRARIES = libgolem95_numerical.la
-libgolem95_numerical_la_SOURCES = mod_adapt_gauss.f90 mod_numeric.f90
-libgolem95_numerical_la_FCFLAGS = \
- -I$(builddir)/../module \
- -I$(builddir)/../../avh_olo-2.2.1
-
-nodist_pkginclude_HEADERS = adapt_gauss.mod numerical_evaluation.mod
+noinst_LTLIBRARIES = libgolem95_higherrank.la
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 -I$(builddir)/../module \
+ -I$(builddir)/../kinematic -I$(builddir)/../numerical \
+ -I$(builddir)/../form_factor \
+ -I$(builddir)/../integrals/one_point \
+ -I$(builddir)/../integrals/two_point \
+ -I$(builddir)/../integrals/three_point \
+ -I$(builddir)/../integrals/four_point
+
+# -I$(builddir)/../../avh_olo-2.2.1
+libgolem95_higherrank_la_SOURCES = generic_function_np.f90 form_factor_higher_ranks.f90
+nodist_pkginclude_HEADERS = generic_function_np.mod form_factor_higher_ranks.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
- echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/numerical/Makefile'; \
+ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/higherrank/Makefile'; \
$(am__cd) $(top_srcdir) && \
- $(AUTOMAKE) --gnu golem95c-1.2.1/numerical/Makefile
+ $(AUTOMAKE) --gnu golem95c-1.2.1/higherrank/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_numerical.la: $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_DEPENDENCIES)
- $(libgolem95_numerical_la_LINK) $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_higherrank.la: $(libgolem95_higherrank_la_OBJECTS) $(libgolem95_higherrank_la_DEPENDENCIES) $(EXTRA_libgolem95_higherrank_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_higherrank_la_OBJECTS) $(libgolem95_higherrank_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_numerical_la-mod_adapt_gauss.lo: mod_adapt_gauss.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_numerical_la-mod_adapt_gauss.lo $(FCFLAGS_f90) `test -f 'mod_adapt_gauss.f90' || echo '$(srcdir)/'`mod_adapt_gauss.f90
-
-libgolem95_numerical_la-mod_numeric.lo: mod_numeric.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_numerical_la-mod_numeric.lo $(FCFLAGS_f90) `test -f 'mod_numeric.f90' || echo '$(srcdir)/'`mod_numeric.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-mod_numeric.o: mod_adapt_gauss.o
-mod_numeric.lo: mod_adapt_gauss.lo
-mod_numeric.obj: mod_adapt_gauss.obj
+form_factor_higher_ranks.lo: generic_function_np.lo
+form_factor_higher_ranks.$(OBJEXT): generic_function_np.$(OBJEXT)
+form_factor_higher_ranks.mod: form_factor_higher_ranks.f90 \
+ form_factor_higher_ranks.$(OBJEXT) generic_function_np.$(OBJEXT)
+generic_function_np.mod: generic_function_np.f90 generic_function_np.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/higherrank/form_factor_higher_ranks.f90 b/golem95c-1.2.1/higherrank/form_factor_higher_ranks.f90
new file mode 100644
index 0000000..1489ca0
--- /dev/null
+++ b/golem95c-1.2.1/higherrank/form_factor_higher_ranks.f90
@@ -0,0 +1,8082 @@
+! vim:ts=3:sw=3
+!
+! THIS FILE IS AUTOGENERATED by gen_form_factors.py.
+! DO NOT CHANGE IT BY HAND.
+!
+!****h* src/higherrank/form_factor_higher_ranks
+! NAME
+!
+! Module form_factor_highrank
+!
+! USAGE
+!
+! use form_factor_highrank
+!
+! DESCRIPTION
+!
+! This module contains the form factors for one to four point amplitudes
+! where the rank is higher than the count of propagators
+!
+! OUTPUT
+!
+! It exports functions:
+! * my_a11 -- a function to compute A^{1,1}
+! * a12 -- a function to compute A^{1,2}
+! * b12 -- a function to compute B^{1,2}
+! * a13 -- a function to compute A^{1,3}
+! * b13 -- a function to compute B^{1,3}
+! * a14 -- a function to compute A^{1,4}
+! * b14 -- a function to compute B^{1,4}
+! * c14 -- a function to compute C^{1,4}
+! * a15 -- a function to compute A^{1,5}
+! * b15 -- a function to compute B^{1,5}
+! * c15 -- a function to compute C^{1,5}
+! * a16 -- a function to compute A^{1,6}
+! * b16 -- a function to compute B^{1,6}
+! * c16 -- a function to compute C^{1,6}
+! * d16 -- a function to compute D^{1,6}
+! * a17 -- a function to compute A^{1,7}
+! * b17 -- a function to compute B^{1,7}
+! * c17 -- a function to compute C^{1,7}
+! * d17 -- a function to compute D^{1,7}
+! * a18 -- a function to compute A^{1,8}
+! * b18 -- a function to compute B^{1,8}
+! * c18 -- a function to compute C^{1,8}
+! * d18 -- a function to compute D^{1,8}
+! * e18 -- a function to compute E^{1,8}
+! * a19 -- a function to compute A^{1,9}
+! * b19 -- a function to compute B^{1,9}
+! * c19 -- a function to compute C^{1,9}
+! * d19 -- a function to compute D^{1,9}
+! * e19 -- a function to compute E^{1,9}
+! * a110 -- a function to compute A^{1,10}
+! * b110 -- a function to compute B^{1,10}
+! * c110 -- a function to compute C^{1,10}
+! * d110 -- a function to compute D^{1,10}
+! * e110 -- a function to compute E^{1,10}
+! * f110 -- a function to compute F^{1,10}
+! * a111 -- a function to compute A^{1,11}
+! * b111 -- a function to compute B^{1,11}
+! * c111 -- a function to compute C^{1,11}
+! * d111 -- a function to compute D^{1,11}
+! * e111 -- a function to compute E^{1,11}
+! * f111 -- a function to compute F^{1,11}
+! * a112 -- a function to compute A^{1,12}
+! * b112 -- a function to compute B^{1,12}
+! * c112 -- a function to compute C^{1,12}
+! * d112 -- a function to compute D^{1,12}
+! * e112 -- a function to compute E^{1,12}
+! * f112 -- a function to compute F^{1,12}
+! * g112 -- a function to compute G^{1,12}
+! * a113 -- a function to compute A^{1,13}
+! * b113 -- a function to compute B^{1,13}
+! * c113 -- a function to compute C^{1,13}
+! * d113 -- a function to compute D^{1,13}
+! * e113 -- a function to compute E^{1,13}
+! * f113 -- a function to compute F^{1,13}
+! * g113 -- a function to compute G^{1,13}
+! * a114 -- a function to compute A^{1,14}
+! * b114 -- a function to compute B^{1,14}
+! * c114 -- a function to compute C^{1,14}
+! * d114 -- a function to compute D^{1,14}
+! * e114 -- a function to compute E^{1,14}
+! * f114 -- a function to compute F^{1,14}
+! * g114 -- a function to compute G^{1,14}
+! * h114 -- a function to compute H^{1,14}
+! * a115 -- a function to compute A^{1,15}
+! * b115 -- a function to compute B^{1,15}
+! * c115 -- a function to compute C^{1,15}
+! * d115 -- a function to compute D^{1,15}
+! * e115 -- a function to compute E^{1,15}
+! * f115 -- a function to compute F^{1,15}
+! * g115 -- a function to compute G^{1,15}
+! * h115 -- a function to compute H^{1,15}
+! * my_a21 -- a function to compute A^{2,1}
+! * my_a22 -- a function to compute A^{2,2}
+! * my_b22 -- a function to compute B^{2,2}
+! * a23 -- a function to compute A^{2,3}
+! * b23 -- a function to compute B^{2,3}
+! * a24 -- a function to compute A^{2,4}
+! * b24 -- a function to compute B^{2,4}
+! * c24 -- a function to compute C^{2,4}
+! * a25 -- a function to compute A^{2,5}
+! * b25 -- a function to compute B^{2,5}
+! * c25 -- a function to compute C^{2,5}
+! * a26 -- a function to compute A^{2,6}
+! * b26 -- a function to compute B^{2,6}
+! * c26 -- a function to compute C^{2,6}
+! * d26 -- a function to compute D^{2,6}
+! * a27 -- a function to compute A^{2,7}
+! * b27 -- a function to compute B^{2,7}
+! * c27 -- a function to compute C^{2,7}
+! * d27 -- a function to compute D^{2,7}
+! * a28 -- a function to compute A^{2,8}
+! * b28 -- a function to compute B^{2,8}
+! * c28 -- a function to compute C^{2,8}
+! * d28 -- a function to compute D^{2,8}
+! * e28 -- a function to compute E^{2,8}
+! * a29 -- a function to compute A^{2,9}
+! * b29 -- a function to compute B^{2,9}
+! * c29 -- a function to compute C^{2,9}
+! * d29 -- a function to compute D^{2,9}
+! * e29 -- a function to compute E^{2,9}
+! * a210 -- a function to compute A^{2,10}
+! * b210 -- a function to compute B^{2,10}
+! * c210 -- a function to compute C^{2,10}
+! * d210 -- a function to compute D^{2,10}
+! * e210 -- a function to compute E^{2,10}
+! * f210 -- a function to compute F^{2,10}
+! * a211 -- a function to compute A^{2,11}
+! * b211 -- a function to compute B^{2,11}
+! * c211 -- a function to compute C^{2,11}
+! * d211 -- a function to compute D^{2,11}
+! * e211 -- a function to compute E^{2,11}
+! * f211 -- a function to compute F^{2,11}
+! * a212 -- a function to compute A^{2,12}
+! * b212 -- a function to compute B^{2,12}
+! * c212 -- a function to compute C^{2,12}
+! * d212 -- a function to compute D^{2,12}
+! * e212 -- a function to compute E^{2,12}
+! * f212 -- a function to compute F^{2,12}
+! * g212 -- a function to compute G^{2,12}
+! * a213 -- a function to compute A^{2,13}
+! * b213 -- a function to compute B^{2,13}
+! * c213 -- a function to compute C^{2,13}
+! * d213 -- a function to compute D^{2,13}
+! * e213 -- a function to compute E^{2,13}
+! * f213 -- a function to compute F^{2,13}
+! * g213 -- a function to compute G^{2,13}
+! * a214 -- a function to compute A^{2,14}
+! * b214 -- a function to compute B^{2,14}
+! * c214 -- a function to compute C^{2,14}
+! * d214 -- a function to compute D^{2,14}
+! * e214 -- a function to compute E^{2,14}
+! * f214 -- a function to compute F^{2,14}
+! * g214 -- a function to compute G^{2,14}
+! * h214 -- a function to compute H^{2,14}
+! * a215 -- a function to compute A^{2,15}
+! * b215 -- a function to compute B^{2,15}
+! * c215 -- a function to compute C^{2,15}
+! * d215 -- a function to compute D^{2,15}
+! * e215 -- a function to compute E^{2,15}
+! * f215 -- a function to compute F^{2,15}
+! * g215 -- a function to compute G^{2,15}
+! * h215 -- a function to compute H^{2,15}
+! * a216 -- a function to compute A^{2,16}
+! * b216 -- a function to compute B^{2,16}
+! * c216 -- a function to compute C^{2,16}
+! * d216 -- a function to compute D^{2,16}
+! * e216 -- a function to compute E^{2,16}
+! * f216 -- a function to compute F^{2,16}
+! * g216 -- a function to compute G^{2,16}
+! * h216 -- a function to compute H^{2,16}
+! * i216 -- a function to compute I^{2,16}
+! * my_a31 -- a function to compute A^{3,1}
+! * my_a32 -- a function to compute A^{3,2}
+! * my_b32 -- a function to compute B^{3,2}
+! * my_a33 -- a function to compute A^{3,3}
+! * my_b33 -- a function to compute B^{3,3}
+! * a34 -- a function to compute A^{3,4}
+! * b34 -- a function to compute B^{3,4}
+! * c34 -- a function to compute C^{3,4}
+! * a35 -- a function to compute A^{3,5}
+! * b35 -- a function to compute B^{3,5}
+! * c35 -- a function to compute C^{3,5}
+! * a36 -- a function to compute A^{3,6}
+! * b36 -- a function to compute B^{3,6}
+! * c36 -- a function to compute C^{3,6}
+! * d36 -- a function to compute D^{3,6}
+! * a37 -- a function to compute A^{3,7}
+! * b37 -- a function to compute B^{3,7}
+! * c37 -- a function to compute C^{3,7}
+! * d37 -- a function to compute D^{3,7}
+! * a38 -- a function to compute A^{3,8}
+! * b38 -- a function to compute B^{3,8}
+! * c38 -- a function to compute C^{3,8}
+! * d38 -- a function to compute D^{3,8}
+! * e38 -- a function to compute E^{3,8}
+! * a39 -- a function to compute A^{3,9}
+! * b39 -- a function to compute B^{3,9}
+! * c39 -- a function to compute C^{3,9}
+! * d39 -- a function to compute D^{3,9}
+! * e39 -- a function to compute E^{3,9}
+! * a310 -- a function to compute A^{3,10}
+! * b310 -- a function to compute B^{3,10}
+! * c310 -- a function to compute C^{3,10}
+! * d310 -- a function to compute D^{3,10}
+! * e310 -- a function to compute E^{3,10}
+! * f310 -- a function to compute F^{3,10}
+! * a311 -- a function to compute A^{3,11}
+! * b311 -- a function to compute B^{3,11}
+! * c311 -- a function to compute C^{3,11}
+! * d311 -- a function to compute D^{3,11}
+! * e311 -- a function to compute E^{3,11}
+! * f311 -- a function to compute F^{3,11}
+! * a312 -- a function to compute A^{3,12}
+! * b312 -- a function to compute B^{3,12}
+! * c312 -- a function to compute C^{3,12}
+! * d312 -- a function to compute D^{3,12}
+! * e312 -- a function to compute E^{3,12}
+! * f312 -- a function to compute F^{3,12}
+! * g312 -- a function to compute G^{3,12}
+! * a313 -- a function to compute A^{3,13}
+! * b313 -- a function to compute B^{3,13}
+! * c313 -- a function to compute C^{3,13}
+! * d313 -- a function to compute D^{3,13}
+! * e313 -- a function to compute E^{3,13}
+! * f313 -- a function to compute F^{3,13}
+! * g313 -- a function to compute G^{3,13}
+! * a314 -- a function to compute A^{3,14}
+! * b314 -- a function to compute B^{3,14}
+! * c314 -- a function to compute C^{3,14}
+! * d314 -- a function to compute D^{3,14}
+! * e314 -- a function to compute E^{3,14}
+! * f314 -- a function to compute F^{3,14}
+! * g314 -- a function to compute G^{3,14}
+! * h314 -- a function to compute H^{3,14}
+! * a315 -- a function to compute A^{3,15}
+! * b315 -- a function to compute B^{3,15}
+! * c315 -- a function to compute C^{3,15}
+! * d315 -- a function to compute D^{3,15}
+! * e315 -- a function to compute E^{3,15}
+! * f315 -- a function to compute F^{3,15}
+! * g315 -- a function to compute G^{3,15}
+! * h315 -- a function to compute H^{3,15}
+! * a316 -- a function to compute A^{3,16}
+! * b316 -- a function to compute B^{3,16}
+! * c316 -- a function to compute C^{3,16}
+! * d316 -- a function to compute D^{3,16}
+! * e316 -- a function to compute E^{3,16}
+! * f316 -- a function to compute F^{3,16}
+! * g316 -- a function to compute G^{3,16}
+! * h316 -- a function to compute H^{3,16}
+! * i316 -- a function to compute I^{3,16}
+! * a317 -- a function to compute A^{3,17}
+! * b317 -- a function to compute B^{3,17}
+! * c317 -- a function to compute C^{3,17}
+! * d317 -- a function to compute D^{3,17}
+! * e317 -- a function to compute E^{3,17}
+! * f317 -- a function to compute F^{3,17}
+! * g317 -- a function to compute G^{3,17}
+! * h317 -- a function to compute H^{3,17}
+! * i317 -- a function to compute I^{3,17}
+! * my_a41 -- a function to compute A^{4,1}
+! * my_a42 -- a function to compute A^{4,2}
+! * my_b42 -- a function to compute B^{4,2}
+! * my_a43 -- a function to compute A^{4,3}
+! * my_b43 -- a function to compute B^{4,3}
+! * my_a44 -- a function to compute A^{4,4}
+! * my_b44 -- a function to compute B^{4,4}
+! * my_c44 -- a function to compute C^{4,4}
+! * a45 -- a function to compute A^{4,5}
+! * b45 -- a function to compute B^{4,5}
+! * c45 -- a function to compute C^{4,5}
+! * a46 -- a function to compute A^{4,6}
+! * b46 -- a function to compute B^{4,6}
+! * c46 -- a function to compute C^{4,6}
+! * d46 -- a function to compute D^{4,6}
+! * a47 -- a function to compute A^{4,7}
+! * b47 -- a function to compute B^{4,7}
+! * c47 -- a function to compute C^{4,7}
+! * d47 -- a function to compute D^{4,7}
+! * a48 -- a function to compute A^{4,8}
+! * b48 -- a function to compute B^{4,8}
+! * c48 -- a function to compute C^{4,8}
+! * d48 -- a function to compute D^{4,8}
+! * e48 -- a function to compute E^{4,8}
+! * a49 -- a function to compute A^{4,9}
+! * b49 -- a function to compute B^{4,9}
+! * c49 -- a function to compute C^{4,9}
+! * d49 -- a function to compute D^{4,9}
+! * e49 -- a function to compute E^{4,9}
+! * a410 -- a function to compute A^{4,10}
+! * b410 -- a function to compute B^{4,10}
+! * c410 -- a function to compute C^{4,10}
+! * d410 -- a function to compute D^{4,10}
+! * e410 -- a function to compute E^{4,10}
+! * f410 -- a function to compute F^{4,10}
+! * a411 -- a function to compute A^{4,11}
+! * b411 -- a function to compute B^{4,11}
+! * c411 -- a function to compute C^{4,11}
+! * d411 -- a function to compute D^{4,11}
+! * e411 -- a function to compute E^{4,11}
+! * f411 -- a function to compute F^{4,11}
+! * a412 -- a function to compute A^{4,12}
+! * b412 -- a function to compute B^{4,12}
+! * c412 -- a function to compute C^{4,12}
+! * d412 -- a function to compute D^{4,12}
+! * e412 -- a function to compute E^{4,12}
+! * f412 -- a function to compute F^{4,12}
+! * g412 -- a function to compute G^{4,12}
+! * a413 -- a function to compute A^{4,13}
+! * b413 -- a function to compute B^{4,13}
+! * c413 -- a function to compute C^{4,13}
+! * d413 -- a function to compute D^{4,13}
+! * e413 -- a function to compute E^{4,13}
+! * f413 -- a function to compute F^{4,13}
+! * g413 -- a function to compute G^{4,13}
+! * a414 -- a function to compute A^{4,14}
+! * b414 -- a function to compute B^{4,14}
+! * c414 -- a function to compute C^{4,14}
+! * d414 -- a function to compute D^{4,14}
+! * e414 -- a function to compute E^{4,14}
+! * f414 -- a function to compute F^{4,14}
+! * g414 -- a function to compute G^{4,14}
+! * h414 -- a function to compute H^{4,14}
+! * a415 -- a function to compute A^{4,15}
+! * b415 -- a function to compute B^{4,15}
+! * c415 -- a function to compute C^{4,15}
+! * d415 -- a function to compute D^{4,15}
+! * e415 -- a function to compute E^{4,15}
+! * f415 -- a function to compute F^{4,15}
+! * g415 -- a function to compute G^{4,15}
+! * h415 -- a function to compute H^{4,15}
+! * a416 -- a function to compute A^{4,16}
+! * b416 -- a function to compute B^{4,16}
+! * c416 -- a function to compute C^{4,16}
+! * d416 -- a function to compute D^{4,16}
+! * e416 -- a function to compute E^{4,16}
+! * f416 -- a function to compute F^{4,16}
+! * g416 -- a function to compute G^{4,16}
+! * h416 -- a function to compute H^{4,16}
+! * i416 -- a function to compute I^{4,16}
+! * a417 -- a function to compute A^{4,17}
+! * b417 -- a function to compute B^{4,17}
+! * c417 -- a function to compute C^{4,17}
+! * d417 -- a function to compute D^{4,17}
+! * e417 -- a function to compute E^{4,17}
+! * f417 -- a function to compute F^{4,17}
+! * g417 -- a function to compute G^{4,17}
+! * h417 -- a function to compute H^{4,17}
+! * i417 -- a function to compute I^{4,17}
+! * a418 -- a function to compute A^{4,18}
+! * b418 -- a function to compute B^{4,18}
+! * c418 -- a function to compute C^{4,18}
+! * d418 -- a function to compute D^{4,18}
+! * e418 -- a function to compute E^{4,18}
+! * f418 -- a function to compute F^{4,18}
+! * g418 -- a function to compute G^{4,18}
+! * h418 -- a function to compute H^{4,18}
+! * i418 -- a function to compute I^{4,18}
+! * j418 -- a function to compute J^{4,18}
+!
+! Note that these are generic functions which can be called either with a
+! set of integers or with an integer whose bits represents the set
+!
+! USES
+!
+! * precision (src/module/precision_golem.f90)
+! * matrice_s (src/kinematic/matrice_s.f90)
+! * array (src/module/array.f90)
+! * generic_function_np (src/integrals/n_point/generic_function_np.f90)
+! * constante (src/module/constante.f90)
+!
+!*****
+module form_factor_higher_ranks
+use precision_golem, only: ki
+use generic_function_np
+use form_factor_type
+use array
+ implicit none
+ private
+!
+ interface my_a11
+ module procedure my_a11_b, my_a11_s
+ end interface my_a11
+ public :: my_a11
+
+!
+!
+ interface a12
+ module procedure a12_b, a12_s
+ end interface a12
+ public :: a12
+ interface b12
+ module procedure b12_b, b12_s
+ end interface b12
+ public :: b12
+
+!
+!
+ interface a13
+ module procedure a13_b, a13_s
+ end interface a13
+ public :: a13
+ interface b13
+ module procedure b13_b, b13_s
+ end interface b13
+ public :: b13
+
+!
+!
+ interface a14
+ module procedure a14_b, a14_s
+ end interface a14
+ public :: a14
+ interface b14
+ module procedure b14_b, b14_s
+ end interface b14
+ public :: b14
+ interface c14
+ module procedure c14_b, c14_s
+ end interface c14
+ public :: c14
+
+!
+!
+ interface a15
+ module procedure a15_b, a15_s
+ end interface a15
+ public :: a15
+ interface b15
+ module procedure b15_b, b15_s
+ end interface b15
+ public :: b15
+ interface c15
+ module procedure c15_b, c15_s
+ end interface c15
+ public :: c15
+
+!
+!
+ interface a16
+ module procedure a16_b, a16_s
+ end interface a16
+ public :: a16
+ interface b16
+ module procedure b16_b, b16_s
+ end interface b16
+ public :: b16
+ interface c16
+ module procedure c16_b, c16_s
+ end interface c16
+ public :: c16
+ interface d16
+ module procedure d16_b, d16_s
+ end interface d16
+ public :: d16
+
+!
+!
+ interface a17
+ module procedure a17_b, a17_s
+ end interface a17
+ public :: a17
+ interface b17
+ module procedure b17_b, b17_s
+ end interface b17
+ public :: b17
+ interface c17
+ module procedure c17_b, c17_s
+ end interface c17
+ public :: c17
+ interface d17
+ module procedure d17_b, d17_s
+ end interface d17
+ public :: d17
+
+!
+!
+ interface a18
+ module procedure a18_b, a18_s
+ end interface a18
+ public :: a18
+ interface b18
+ module procedure b18_b, b18_s
+ end interface b18
+ public :: b18
+ interface c18
+ module procedure c18_b, c18_s
+ end interface c18
+ public :: c18
+ interface d18
+ module procedure d18_b, d18_s
+ end interface d18
+ public :: d18
+ interface e18
+ module procedure e18_b, e18_s
+ end interface e18
+ public :: e18
+
+!
+!
+ interface a19
+ module procedure a19_b, a19_s
+ end interface a19
+ public :: a19
+ interface b19
+ module procedure b19_b, b19_s
+ end interface b19
+ public :: b19
+ interface c19
+ module procedure c19_b, c19_s
+ end interface c19
+ public :: c19
+ interface d19
+ module procedure d19_b, d19_s
+ end interface d19
+ public :: d19
+ interface e19
+ module procedure e19_b, e19_s
+ end interface e19
+ public :: e19
+
+!
+!
+ interface a110
+ module procedure a110_b, a110_s
+ end interface a110
+ public :: a110
+ interface b110
+ module procedure b110_b, b110_s
+ end interface b110
+ public :: b110
+ interface c110
+ module procedure c110_b, c110_s
+ end interface c110
+ public :: c110
+ interface d110
+ module procedure d110_b, d110_s
+ end interface d110
+ public :: d110
+ interface e110
+ module procedure e110_b, e110_s
+ end interface e110
+ public :: e110
+ interface f110
+ module procedure f110_b, f110_s
+ end interface f110
+ public :: f110
+
+!
+!
+ interface a111
+ module procedure a111_b, a111_s
+ end interface a111
+ public :: a111
+ interface b111
+ module procedure b111_b, b111_s
+ end interface b111
+ public :: b111
+ interface c111
+ module procedure c111_b, c111_s
+ end interface c111
+ public :: c111
+ interface d111
+ module procedure d111_b, d111_s
+ end interface d111
+ public :: d111
+ interface e111
+ module procedure e111_b, e111_s
+ end interface e111
+ public :: e111
+ interface f111
+ module procedure f111_b, f111_s
+ end interface f111
+ public :: f111
+
+!
+!
+ interface a112
+ module procedure a112_b, a112_s
+ end interface a112
+ public :: a112
+ interface b112
+ module procedure b112_b, b112_s
+ end interface b112
+ public :: b112
+ interface c112
+ module procedure c112_b, c112_s
+ end interface c112
+ public :: c112
+ interface d112
+ module procedure d112_b, d112_s
+ end interface d112
+ public :: d112
+ interface e112
+ module procedure e112_b, e112_s
+ end interface e112
+ public :: e112
+ interface f112
+ module procedure f112_b, f112_s
+ end interface f112
+ public :: f112
+ interface g112
+ module procedure g112_b, g112_s
+ end interface g112
+ public :: g112
+
+!
+!
+ interface a113
+ module procedure a113_b, a113_s
+ end interface a113
+ public :: a113
+ interface b113
+ module procedure b113_b, b113_s
+ end interface b113
+ public :: b113
+ interface c113
+ module procedure c113_b, c113_s
+ end interface c113
+ public :: c113
+ interface d113
+ module procedure d113_b, d113_s
+ end interface d113
+ public :: d113
+ interface e113
+ module procedure e113_b, e113_s
+ end interface e113
+ public :: e113
+ interface f113
+ module procedure f113_b, f113_s
+ end interface f113
+ public :: f113
+ interface g113
+ module procedure g113_b, g113_s
+ end interface g113
+ public :: g113
+
+!
+!
+ interface a114
+ module procedure a114_b, a114_s
+ end interface a114
+ public :: a114
+ interface b114
+ module procedure b114_b, b114_s
+ end interface b114
+ public :: b114
+ interface c114
+ module procedure c114_b, c114_s
+ end interface c114
+ public :: c114
+ interface d114
+ module procedure d114_b, d114_s
+ end interface d114
+ public :: d114
+ interface e114
+ module procedure e114_b, e114_s
+ end interface e114
+ public :: e114
+ interface f114
+ module procedure f114_b, f114_s
+ end interface f114
+ public :: f114
+ interface g114
+ module procedure g114_b, g114_s
+ end interface g114
+ public :: g114
+ interface h114
+ module procedure h114_b, h114_s
+ end interface h114
+ public :: h114
+
+!
+!
+ interface a115
+ module procedure a115_b, a115_s
+ end interface a115
+ public :: a115
+ interface b115
+ module procedure b115_b, b115_s
+ end interface b115
+ public :: b115
+ interface c115
+ module procedure c115_b, c115_s
+ end interface c115
+ public :: c115
+ interface d115
+ module procedure d115_b, d115_s
+ end interface d115
+ public :: d115
+ interface e115
+ module procedure e115_b, e115_s
+ end interface e115
+ public :: e115
+ interface f115
+ module procedure f115_b, f115_s
+ end interface f115
+ public :: f115
+ interface g115
+ module procedure g115_b, g115_s
+ end interface g115
+ public :: g115
+ interface h115
+ module procedure h115_b, h115_s
+ end interface h115
+ public :: h115
+
+!
+
+!
+!
+ interface my_a21
+ module procedure my_a21_b, my_a21_s
+ end interface my_a21
+ public :: my_a21
+
+!
+!
+ interface my_a22
+ module procedure my_a22_b, my_a22_s
+ end interface my_a22
+ public :: my_a22
+ interface my_b22
+ module procedure my_b22_b, my_b22_s
+ end interface my_b22
+ public :: my_b22
+
+!
+!
+ interface a23
+ module procedure a23_b, a23_s
+ end interface a23
+ public :: a23
+ interface b23
+ module procedure b23_b, b23_s
+ end interface b23
+ public :: b23
+
+!
+!
+ interface a24
+ module procedure a24_b, a24_s
+ end interface a24
+ public :: a24
+ interface b24
+ module procedure b24_b, b24_s
+ end interface b24
+ public :: b24
+ interface c24
+ module procedure c24_b, c24_s
+ end interface c24
+ public :: c24
+
+!
+!
+ interface a25
+ module procedure a25_b, a25_s
+ end interface a25
+ public :: a25
+ interface b25
+ module procedure b25_b, b25_s
+ end interface b25
+ public :: b25
+ interface c25
+ module procedure c25_b, c25_s
+ end interface c25
+ public :: c25
+
+!
+!
+ interface a26
+ module procedure a26_b, a26_s
+ end interface a26
+ public :: a26
+ interface b26
+ module procedure b26_b, b26_s
+ end interface b26
+ public :: b26
+ interface c26
+ module procedure c26_b, c26_s
+ end interface c26
+ public :: c26
+ interface d26
+ module procedure d26_b, d26_s
+ end interface d26
+ public :: d26
+
+!
+!
+ interface a27
+ module procedure a27_b, a27_s
+ end interface a27
+ public :: a27
+ interface b27
+ module procedure b27_b, b27_s
+ end interface b27
+ public :: b27
+ interface c27
+ module procedure c27_b, c27_s
+ end interface c27
+ public :: c27
+ interface d27
+ module procedure d27_b, d27_s
+ end interface d27
+ public :: d27
+
+!
+!
+ interface a28
+ module procedure a28_b, a28_s
+ end interface a28
+ public :: a28
+ interface b28
+ module procedure b28_b, b28_s
+ end interface b28
+ public :: b28
+ interface c28
+ module procedure c28_b, c28_s
+ end interface c28
+ public :: c28
+ interface d28
+ module procedure d28_b, d28_s
+ end interface d28
+ public :: d28
+ interface e28
+ module procedure e28_b, e28_s
+ end interface e28
+ public :: e28
+
+!
+!
+ interface a29
+ module procedure a29_b, a29_s
+ end interface a29
+ public :: a29
+ interface b29
+ module procedure b29_b, b29_s
+ end interface b29
+ public :: b29
+ interface c29
+ module procedure c29_b, c29_s
+ end interface c29
+ public :: c29
+ interface d29
+ module procedure d29_b, d29_s
+ end interface d29
+ public :: d29
+ interface e29
+ module procedure e29_b, e29_s
+ end interface e29
+ public :: e29
+
+!
+!
+ interface a210
+ module procedure a210_b, a210_s
+ end interface a210
+ public :: a210
+ interface b210
+ module procedure b210_b, b210_s
+ end interface b210
+ public :: b210
+ interface c210
+ module procedure c210_b, c210_s
+ end interface c210
+ public :: c210
+ interface d210
+ module procedure d210_b, d210_s
+ end interface d210
+ public :: d210
+ interface e210
+ module procedure e210_b, e210_s
+ end interface e210
+ public :: e210
+ interface f210
+ module procedure f210_b, f210_s
+ end interface f210
+ public :: f210
+
+!
+!
+ interface a211
+ module procedure a211_b, a211_s
+ end interface a211
+ public :: a211
+ interface b211
+ module procedure b211_b, b211_s
+ end interface b211
+ public :: b211
+ interface c211
+ module procedure c211_b, c211_s
+ end interface c211
+ public :: c211
+ interface d211
+ module procedure d211_b, d211_s
+ end interface d211
+ public :: d211
+ interface e211
+ module procedure e211_b, e211_s
+ end interface e211
+ public :: e211
+ interface f211
+ module procedure f211_b, f211_s
+ end interface f211
+ public :: f211
+
+!
+!
+ interface a212
+ module procedure a212_b, a212_s
+ end interface a212
+ public :: a212
+ interface b212
+ module procedure b212_b, b212_s
+ end interface b212
+ public :: b212
+ interface c212
+ module procedure c212_b, c212_s
+ end interface c212
+ public :: c212
+ interface d212
+ module procedure d212_b, d212_s
+ end interface d212
+ public :: d212
+ interface e212
+ module procedure e212_b, e212_s
+ end interface e212
+ public :: e212
+ interface f212
+ module procedure f212_b, f212_s
+ end interface f212
+ public :: f212
+ interface g212
+ module procedure g212_b, g212_s
+ end interface g212
+ public :: g212
+
+!
+!
+ interface a213
+ module procedure a213_b, a213_s
+ end interface a213
+ public :: a213
+ interface b213
+ module procedure b213_b, b213_s
+ end interface b213
+ public :: b213
+ interface c213
+ module procedure c213_b, c213_s
+ end interface c213
+ public :: c213
+ interface d213
+ module procedure d213_b, d213_s
+ end interface d213
+ public :: d213
+ interface e213
+ module procedure e213_b, e213_s
+ end interface e213
+ public :: e213
+ interface f213
+ module procedure f213_b, f213_s
+ end interface f213
+ public :: f213
+ interface g213
+ module procedure g213_b, g213_s
+ end interface g213
+ public :: g213
+
+!
+!
+ interface a214
+ module procedure a214_b, a214_s
+ end interface a214
+ public :: a214
+ interface b214
+ module procedure b214_b, b214_s
+ end interface b214
+ public :: b214
+ interface c214
+ module procedure c214_b, c214_s
+ end interface c214
+ public :: c214
+ interface d214
+ module procedure d214_b, d214_s
+ end interface d214
+ public :: d214
+ interface e214
+ module procedure e214_b, e214_s
+ end interface e214
+ public :: e214
+ interface f214
+ module procedure f214_b, f214_s
+ end interface f214
+ public :: f214
+ interface g214
+ module procedure g214_b, g214_s
+ end interface g214
+ public :: g214
+ interface h214
+ module procedure h214_b, h214_s
+ end interface h214
+ public :: h214
+
+!
+!
+ interface a215
+ module procedure a215_b, a215_s
+ end interface a215
+ public :: a215
+ interface b215
+ module procedure b215_b, b215_s
+ end interface b215
+ public :: b215
+ interface c215
+ module procedure c215_b, c215_s
+ end interface c215
+ public :: c215
+ interface d215
+ module procedure d215_b, d215_s
+ end interface d215
+ public :: d215
+ interface e215
+ module procedure e215_b, e215_s
+ end interface e215
+ public :: e215
+ interface f215
+ module procedure f215_b, f215_s
+ end interface f215
+ public :: f215
+ interface g215
+ module procedure g215_b, g215_s
+ end interface g215
+ public :: g215
+ interface h215
+ module procedure h215_b, h215_s
+ end interface h215
+ public :: h215
+
+!
+!
+ interface a216
+ module procedure a216_b, a216_s
+ end interface a216
+ public :: a216
+ interface b216
+ module procedure b216_b, b216_s
+ end interface b216
+ public :: b216
+ interface c216
+ module procedure c216_b, c216_s
+ end interface c216
+ public :: c216
+ interface d216
+ module procedure d216_b, d216_s
+ end interface d216
+ public :: d216
+ interface e216
+ module procedure e216_b, e216_s
+ end interface e216
+ public :: e216
+ interface f216
+ module procedure f216_b, f216_s
+ end interface f216
+ public :: f216
+ interface g216
+ module procedure g216_b, g216_s
+ end interface g216
+ public :: g216
+ interface h216
+ module procedure h216_b, h216_s
+ end interface h216
+ public :: h216
+ interface i216
+ module procedure i216_b, i216_s
+ end interface i216
+ public :: i216
+
+!
+
+!
+!
+ interface my_a31
+ module procedure my_a31_b, my_a31_s
+ end interface my_a31
+ public :: my_a31
+
+!
+!
+ interface my_a32
+ module procedure my_a32_b, my_a32_s
+ end interface my_a32
+ public :: my_a32
+ interface my_b32
+ module procedure my_b32_b, my_b32_s
+ end interface my_b32
+ public :: my_b32
+
+!
+!
+ interface my_a33
+ module procedure my_a33_b, my_a33_s
+ end interface my_a33
+ public :: my_a33
+ interface my_b33
+ module procedure my_b33_b, my_b33_s
+ end interface my_b33
+ public :: my_b33
+
+!
+!
+ interface a34
+ module procedure a34_b, a34_s
+ end interface a34
+ public :: a34
+ interface b34
+ module procedure b34_b, b34_s
+ end interface b34
+ public :: b34
+ interface c34
+ module procedure c34_b, c34_s
+ end interface c34
+ public :: c34
+
+!
+!
+ interface a35
+ module procedure a35_b, a35_s
+ end interface a35
+ public :: a35
+ interface b35
+ module procedure b35_b, b35_s
+ end interface b35
+ public :: b35
+ interface c35
+ module procedure c35_b, c35_s
+ end interface c35
+ public :: c35
+
+!
+!
+ interface a36
+ module procedure a36_b, a36_s
+ end interface a36
+ public :: a36
+ interface b36
+ module procedure b36_b, b36_s
+ end interface b36
+ public :: b36
+ interface c36
+ module procedure c36_b, c36_s
+ end interface c36
+ public :: c36
+ interface d36
+ module procedure d36_b, d36_s
+ end interface d36
+ public :: d36
+
+!
+!
+ interface a37
+ module procedure a37_b, a37_s
+ end interface a37
+ public :: a37
+ interface b37
+ module procedure b37_b, b37_s
+ end interface b37
+ public :: b37
+ interface c37
+ module procedure c37_b, c37_s
+ end interface c37
+ public :: c37
+ interface d37
+ module procedure d37_b, d37_s
+ end interface d37
+ public :: d37
+
+!
+!
+ interface a38
+ module procedure a38_b, a38_s
+ end interface a38
+ public :: a38
+ interface b38
+ module procedure b38_b, b38_s
+ end interface b38
+ public :: b38
+ interface c38
+ module procedure c38_b, c38_s
+ end interface c38
+ public :: c38
+ interface d38
+ module procedure d38_b, d38_s
+ end interface d38
+ public :: d38
+ interface e38
+ module procedure e38_b, e38_s
+ end interface e38
+ public :: e38
+
+!
+!
+ interface a39
+ module procedure a39_b, a39_s
+ end interface a39
+ public :: a39
+ interface b39
+ module procedure b39_b, b39_s
+ end interface b39
+ public :: b39
+ interface c39
+ module procedure c39_b, c39_s
+ end interface c39
+ public :: c39
+ interface d39
+ module procedure d39_b, d39_s
+ end interface d39
+ public :: d39
+ interface e39
+ module procedure e39_b, e39_s
+ end interface e39
+ public :: e39
+
+!
+!
+ interface a310
+ module procedure a310_b, a310_s
+ end interface a310
+ public :: a310
+ interface b310
+ module procedure b310_b, b310_s
+ end interface b310
+ public :: b310
+ interface c310
+ module procedure c310_b, c310_s
+ end interface c310
+ public :: c310
+ interface d310
+ module procedure d310_b, d310_s
+ end interface d310
+ public :: d310
+ interface e310
+ module procedure e310_b, e310_s
+ end interface e310
+ public :: e310
+ interface f310
+ module procedure f310_b, f310_s
+ end interface f310
+ public :: f310
+
+!
+!
+ interface a311
+ module procedure a311_b, a311_s
+ end interface a311
+ public :: a311
+ interface b311
+ module procedure b311_b, b311_s
+ end interface b311
+ public :: b311
+ interface c311
+ module procedure c311_b, c311_s
+ end interface c311
+ public :: c311
+ interface d311
+ module procedure d311_b, d311_s
+ end interface d311
+ public :: d311
+ interface e311
+ module procedure e311_b, e311_s
+ end interface e311
+ public :: e311
+ interface f311
+ module procedure f311_b, f311_s
+ end interface f311
+ public :: f311
+
+!
+!
+ interface a312
+ module procedure a312_b, a312_s
+ end interface a312
+ public :: a312
+ interface b312
+ module procedure b312_b, b312_s
+ end interface b312
+ public :: b312
+ interface c312
+ module procedure c312_b, c312_s
+ end interface c312
+ public :: c312
+ interface d312
+ module procedure d312_b, d312_s
+ end interface d312
+ public :: d312
+ interface e312
+ module procedure e312_b, e312_s
+ end interface e312
+ public :: e312
+ interface f312
+ module procedure f312_b, f312_s
+ end interface f312
+ public :: f312
+ interface g312
+ module procedure g312_b, g312_s
+ end interface g312
+ public :: g312
+
+!
+!
+ interface a313
+ module procedure a313_b, a313_s
+ end interface a313
+ public :: a313
+ interface b313
+ module procedure b313_b, b313_s
+ end interface b313
+ public :: b313
+ interface c313
+ module procedure c313_b, c313_s
+ end interface c313
+ public :: c313
+ interface d313
+ module procedure d313_b, d313_s
+ end interface d313
+ public :: d313
+ interface e313
+ module procedure e313_b, e313_s
+ end interface e313
+ public :: e313
+ interface f313
+ module procedure f313_b, f313_s
+ end interface f313
+ public :: f313
+ interface g313
+ module procedure g313_b, g313_s
+ end interface g313
+ public :: g313
+
+!
+!
+ interface a314
+ module procedure a314_b, a314_s
+ end interface a314
+ public :: a314
+ interface b314
+ module procedure b314_b, b314_s
+ end interface b314
+ public :: b314
+ interface c314
+ module procedure c314_b, c314_s
+ end interface c314
+ public :: c314
+ interface d314
+ module procedure d314_b, d314_s
+ end interface d314
+ public :: d314
+ interface e314
+ module procedure e314_b, e314_s
+ end interface e314
+ public :: e314
+ interface f314
+ module procedure f314_b, f314_s
+ end interface f314
+ public :: f314
+ interface g314
+ module procedure g314_b, g314_s
+ end interface g314
+ public :: g314
+ interface h314
+ module procedure h314_b, h314_s
+ end interface h314
+ public :: h314
+
+!
+!
+ interface a315
+ module procedure a315_b, a315_s
+ end interface a315
+ public :: a315
+ interface b315
+ module procedure b315_b, b315_s
+ end interface b315
+ public :: b315
+ interface c315
+ module procedure c315_b, c315_s
+ end interface c315
+ public :: c315
+ interface d315
+ module procedure d315_b, d315_s
+ end interface d315
+ public :: d315
+ interface e315
+ module procedure e315_b, e315_s
+ end interface e315
+ public :: e315
+ interface f315
+ module procedure f315_b, f315_s
+ end interface f315
+ public :: f315
+ interface g315
+ module procedure g315_b, g315_s
+ end interface g315
+ public :: g315
+ interface h315
+ module procedure h315_b, h315_s
+ end interface h315
+ public :: h315
+
+!
+!
+ interface a316
+ module procedure a316_b, a316_s
+ end interface a316
+ public :: a316
+ interface b316
+ module procedure b316_b, b316_s
+ end interface b316
+ public :: b316
+ interface c316
+ module procedure c316_b, c316_s
+ end interface c316
+ public :: c316
+ interface d316
+ module procedure d316_b, d316_s
+ end interface d316
+ public :: d316
+ interface e316
+ module procedure e316_b, e316_s
+ end interface e316
+ public :: e316
+ interface f316
+ module procedure f316_b, f316_s
+ end interface f316
+ public :: f316
+ interface g316
+ module procedure g316_b, g316_s
+ end interface g316
+ public :: g316
+ interface h316
+ module procedure h316_b, h316_s
+ end interface h316
+ public :: h316
+ interface i316
+ module procedure i316_b, i316_s
+ end interface i316
+ public :: i316
+
+!
+!
+ interface a317
+ module procedure a317_b, a317_s
+ end interface a317
+ public :: a317
+ interface b317
+ module procedure b317_b, b317_s
+ end interface b317
+ public :: b317
+ interface c317
+ module procedure c317_b, c317_s
+ end interface c317
+ public :: c317
+ interface d317
+ module procedure d317_b, d317_s
+ end interface d317
+ public :: d317
+ interface e317
+ module procedure e317_b, e317_s
+ end interface e317
+ public :: e317
+ interface f317
+ module procedure f317_b, f317_s
+ end interface f317
+ public :: f317
+ interface g317
+ module procedure g317_b, g317_s
+ end interface g317
+ public :: g317
+ interface h317
+ module procedure h317_b, h317_s
+ end interface h317
+ public :: h317
+ interface i317
+ module procedure i317_b, i317_s
+ end interface i317
+ public :: i317
+
+!
+
+!
+!
+ interface my_a41
+ module procedure my_a41_b, my_a41_s
+ end interface my_a41
+ public :: my_a41
+
+!
+!
+ interface my_a42
+ module procedure my_a42_b, my_a42_s
+ end interface my_a42
+ public :: my_a42
+ interface my_b42
+ module procedure my_b42_b, my_b42_s
+ end interface my_b42
+ public :: my_b42
+
+!
+!
+ interface my_a43
+ module procedure my_a43_b, my_a43_s
+ end interface my_a43
+ public :: my_a43
+ interface my_b43
+ module procedure my_b43_b, my_b43_s
+ end interface my_b43
+ public :: my_b43
+
+!
+!
+ interface my_a44
+ module procedure my_a44_b, my_a44_s
+ end interface my_a44
+ public :: my_a44
+ interface my_b44
+ module procedure my_b44_b, my_b44_s
+ end interface my_b44
+ public :: my_b44
+ interface my_c44
+ module procedure my_c44_b, my_c44_s
+ end interface my_c44
+ public :: my_c44
+
+!
+!
+ interface a45
+ module procedure a45_b, a45_s
+ end interface a45
+ public :: a45
+ interface b45
+ module procedure b45_b, b45_s
+ end interface b45
+ public :: b45
+ interface c45
+ module procedure c45_b, c45_s
+ end interface c45
+ public :: c45
+
+!
+!
+ interface a46
+ module procedure a46_b, a46_s
+ end interface a46
+ public :: a46
+ interface b46
+ module procedure b46_b, b46_s
+ end interface b46
+ public :: b46
+ interface c46
+ module procedure c46_b, c46_s
+ end interface c46
+ public :: c46
+ interface d46
+ module procedure d46_b, d46_s
+ end interface d46
+ public :: d46
+
+!
+!
+ interface a47
+ module procedure a47_b, a47_s
+ end interface a47
+ public :: a47
+ interface b47
+ module procedure b47_b, b47_s
+ end interface b47
+ public :: b47
+ interface c47
+ module procedure c47_b, c47_s
+ end interface c47
+ public :: c47
+ interface d47
+ module procedure d47_b, d47_s
+ end interface d47
+ public :: d47
+
+!
+!
+ interface a48
+ module procedure a48_b, a48_s
+ end interface a48
+ public :: a48
+ interface b48
+ module procedure b48_b, b48_s
+ end interface b48
+ public :: b48
+ interface c48
+ module procedure c48_b, c48_s
+ end interface c48
+ public :: c48
+ interface d48
+ module procedure d48_b, d48_s
+ end interface d48
+ public :: d48
+ interface e48
+ module procedure e48_b, e48_s
+ end interface e48
+ public :: e48
+
+!
+!
+ interface a49
+ module procedure a49_b, a49_s
+ end interface a49
+ public :: a49
+ interface b49
+ module procedure b49_b, b49_s
+ end interface b49
+ public :: b49
+ interface c49
+ module procedure c49_b, c49_s
+ end interface c49
+ public :: c49
+ interface d49
+ module procedure d49_b, d49_s
+ end interface d49
+ public :: d49
+ interface e49
+ module procedure e49_b, e49_s
+ end interface e49
+ public :: e49
+
+!
+!
+ interface a410
+ module procedure a410_b, a410_s
+ end interface a410
+ public :: a410
+ interface b410
+ module procedure b410_b, b410_s
+ end interface b410
+ public :: b410
+ interface c410
+ module procedure c410_b, c410_s
+ end interface c410
+ public :: c410
+ interface d410
+ module procedure d410_b, d410_s
+ end interface d410
+ public :: d410
+ interface e410
+ module procedure e410_b, e410_s
+ end interface e410
+ public :: e410
+ interface f410
+ module procedure f410_b, f410_s
+ end interface f410
+ public :: f410
+
+!
+!
+ interface a411
+ module procedure a411_b, a411_s
+ end interface a411
+ public :: a411
+ interface b411
+ module procedure b411_b, b411_s
+ end interface b411
+ public :: b411
+ interface c411
+ module procedure c411_b, c411_s
+ end interface c411
+ public :: c411
+ interface d411
+ module procedure d411_b, d411_s
+ end interface d411
+ public :: d411
+ interface e411
+ module procedure e411_b, e411_s
+ end interface e411
+ public :: e411
+ interface f411
+ module procedure f411_b, f411_s
+ end interface f411
+ public :: f411
+
+!
+!
+ interface a412
+ module procedure a412_b, a412_s
+ end interface a412
+ public :: a412
+ interface b412
+ module procedure b412_b, b412_s
+ end interface b412
+ public :: b412
+ interface c412
+ module procedure c412_b, c412_s
+ end interface c412
+ public :: c412
+ interface d412
+ module procedure d412_b, d412_s
+ end interface d412
+ public :: d412
+ interface e412
+ module procedure e412_b, e412_s
+ end interface e412
+ public :: e412
+ interface f412
+ module procedure f412_b, f412_s
+ end interface f412
+ public :: f412
+ interface g412
+ module procedure g412_b, g412_s
+ end interface g412
+ public :: g412
+
+!
+!
+ interface a413
+ module procedure a413_b, a413_s
+ end interface a413
+ public :: a413
+ interface b413
+ module procedure b413_b, b413_s
+ end interface b413
+ public :: b413
+ interface c413
+ module procedure c413_b, c413_s
+ end interface c413
+ public :: c413
+ interface d413
+ module procedure d413_b, d413_s
+ end interface d413
+ public :: d413
+ interface e413
+ module procedure e413_b, e413_s
+ end interface e413
+ public :: e413
+ interface f413
+ module procedure f413_b, f413_s
+ end interface f413
+ public :: f413
+ interface g413
+ module procedure g413_b, g413_s
+ end interface g413
+ public :: g413
+
+!
+!
+ interface a414
+ module procedure a414_b, a414_s
+ end interface a414
+ public :: a414
+ interface b414
+ module procedure b414_b, b414_s
+ end interface b414
+ public :: b414
+ interface c414
+ module procedure c414_b, c414_s
+ end interface c414
+ public :: c414
+ interface d414
+ module procedure d414_b, d414_s
+ end interface d414
+ public :: d414
+ interface e414
+ module procedure e414_b, e414_s
+ end interface e414
+ public :: e414
+ interface f414
+ module procedure f414_b, f414_s
+ end interface f414
+ public :: f414
+ interface g414
+ module procedure g414_b, g414_s
+ end interface g414
+ public :: g414
+ interface h414
+ module procedure h414_b, h414_s
+ end interface h414
+ public :: h414
+
+!
+!
+ interface a415
+ module procedure a415_b, a415_s
+ end interface a415
+ public :: a415
+ interface b415
+ module procedure b415_b, b415_s
+ end interface b415
+ public :: b415
+ interface c415
+ module procedure c415_b, c415_s
+ end interface c415
+ public :: c415
+ interface d415
+ module procedure d415_b, d415_s
+ end interface d415
+ public :: d415
+ interface e415
+ module procedure e415_b, e415_s
+ end interface e415
+ public :: e415
+ interface f415
+ module procedure f415_b, f415_s
+ end interface f415
+ public :: f415
+ interface g415
+ module procedure g415_b, g415_s
+ end interface g415
+ public :: g415
+ interface h415
+ module procedure h415_b, h415_s
+ end interface h415
+ public :: h415
+
+!
+!
+ interface a416
+ module procedure a416_b, a416_s
+ end interface a416
+ public :: a416
+ interface b416
+ module procedure b416_b, b416_s
+ end interface b416
+ public :: b416
+ interface c416
+ module procedure c416_b, c416_s
+ end interface c416
+ public :: c416
+ interface d416
+ module procedure d416_b, d416_s
+ end interface d416
+ public :: d416
+ interface e416
+ module procedure e416_b, e416_s
+ end interface e416
+ public :: e416
+ interface f416
+ module procedure f416_b, f416_s
+ end interface f416
+ public :: f416
+ interface g416
+ module procedure g416_b, g416_s
+ end interface g416
+ public :: g416
+ interface h416
+ module procedure h416_b, h416_s
+ end interface h416
+ public :: h416
+ interface i416
+ module procedure i416_b, i416_s
+ end interface i416
+ public :: i416
+
+!
+!
+ interface a417
+ module procedure a417_b, a417_s
+ end interface a417
+ public :: a417
+ interface b417
+ module procedure b417_b, b417_s
+ end interface b417
+ public :: b417
+ interface c417
+ module procedure c417_b, c417_s
+ end interface c417
+ public :: c417
+ interface d417
+ module procedure d417_b, d417_s
+ end interface d417
+ public :: d417
+ interface e417
+ module procedure e417_b, e417_s
+ end interface e417
+ public :: e417
+ interface f417
+ module procedure f417_b, f417_s
+ end interface f417
+ public :: f417
+ interface g417
+ module procedure g417_b, g417_s
+ end interface g417
+ public :: g417
+ interface h417
+ module procedure h417_b, h417_s
+ end interface h417
+ public :: h417
+ interface i417
+ module procedure i417_b, i417_s
+ end interface i417
+ public :: i417
+
+!
+!
+ interface a418
+ module procedure a418_b, a418_s
+ end interface a418
+ public :: a418
+ interface b418
+ module procedure b418_b, b418_s
+ end interface b418
+ public :: b418
+ interface c418
+ module procedure c418_b, c418_s
+ end interface c418
+ public :: c418
+ interface d418
+ module procedure d418_b, d418_s
+ end interface d418
+ public :: d418
+ interface e418
+ module procedure e418_b, e418_s
+ end interface e418
+ public :: e418
+ interface f418
+ module procedure f418_b, f418_s
+ end interface f418
+ public :: f418
+ interface g418
+ module procedure g418_b, g418_s
+ end interface g418
+ public :: g418
+ interface h418
+ module procedure h418_b, h418_s
+ end interface h418
+ public :: h418
+ interface i418
+ module procedure i418_b, i418_s
+ end interface i418
+ public :: i418
+ interface j418
+ module procedure j418_b, j418_s
+ end interface j418
+ public :: j418
+
+!
+
+!
+ contains
+
+ function my_a11_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_a11_b
+ !
+ my_a11_b = -1.0_ki * fnp_generic(1,0,b_pin,1,(/ l1 /))
+ !
+ end function my_a11_b
+
+ function my_a11_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_a11_s
+ !
+ my_a11_s = my_a11_b(l1,packb(set))
+ !
+ end function my_a11_s
+
+ function a12_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: a12_b
+ !
+ a12_b = fnp_generic(1,0,b_pin,2,(/ l1,l2 /))
+ !
+ end function a12_b
+
+ function a12_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: a12_s
+ !
+ a12_s = a12_b(l1,l2,packb(set))
+ !
+ end function a12_s
+ function b12_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: b12_b
+ !
+ b12_b = -0.5_ki * fnp_generic(1,2,b_pin,0,(/ integer:: /))
+ !
+ end function b12_b
+
+ function b12_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: b12_s
+ !
+ b12_s = b12_b(packb(set))
+ !
+ end function b12_s
+
+ function a13_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: a13_b
+ !
+ a13_b = -1.0_ki * fnp_generic(1,0,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function a13_b
+
+ function a13_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: a13_s
+ !
+ a13_s = a13_b(l1,l2,l3,packb(set))
+ !
+ end function a13_s
+ function b13_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: b13_b
+ !
+ b13_b = 0.5_ki * fnp_generic(1,2,b_pin,1,(/ l1 /))
+ !
+ end function b13_b
+
+ function b13_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: b13_s
+ !
+ b13_s = b13_b(l1,packb(set))
+ !
+ end function b13_s
+
+ function a14_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: a14_b
+ !
+ a14_b = fnp_generic(1,0,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function a14_b
+
+ function a14_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: a14_s
+ !
+ a14_s = a14_b(l1,l2,l3,l4,packb(set))
+ !
+ end function a14_s
+ function b14_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: b14_b
+ !
+ b14_b = -0.5_ki * fnp_generic(1,2,b_pin,2,(/ l1,l2 /))
+ !
+ end function b14_b
+
+ function b14_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: b14_s
+ !
+ b14_s = b14_b(l1,l2,packb(set))
+ !
+ end function b14_s
+ function c14_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: c14_b
+ !
+ c14_b = 0.25_ki * fnp_generic(1,4,b_pin,0,(/ integer:: /))
+ !
+ end function c14_b
+
+ function c14_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: c14_s
+ !
+ c14_s = c14_b(packb(set))
+ !
+ end function c14_s
+
+ function a15_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: a15_b
+ !
+ a15_b = -1.0_ki * fnp_generic(1,0,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function a15_b
+
+ function a15_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: a15_s
+ !
+ a15_s = a15_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function a15_s
+ function b15_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: b15_b
+ !
+ b15_b = 0.5_ki * fnp_generic(1,2,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function b15_b
+
+ function b15_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: b15_s
+ !
+ b15_s = b15_b(l1,l2,l3,packb(set))
+ !
+ end function b15_s
+ function c15_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: c15_b
+ !
+ c15_b = -0.25_ki * fnp_generic(1,4,b_pin,1,(/ l1 /))
+ !
+ end function c15_b
+
+ function c15_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: c15_s
+ !
+ c15_s = c15_b(l1,packb(set))
+ !
+ end function c15_s
+
+ function a16_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: a16_b
+ !
+ a16_b = fnp_generic(1,0,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function a16_b
+
+ function a16_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: a16_s
+ !
+ a16_s = a16_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function a16_s
+ function b16_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: b16_b
+ !
+ b16_b = -0.5_ki * fnp_generic(1,2,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function b16_b
+
+ function b16_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: b16_s
+ !
+ b16_s = b16_b(l1,l2,l3,l4,packb(set))
+ !
+ end function b16_s
+ function c16_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: c16_b
+ !
+ c16_b = 0.25_ki * fnp_generic(1,4,b_pin,2,(/ l1,l2 /))
+ !
+ end function c16_b
+
+ function c16_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: c16_s
+ !
+ c16_s = c16_b(l1,l2,packb(set))
+ !
+ end function c16_s
+ function d16_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: d16_b
+ !
+ d16_b = -0.125_ki * fnp_generic(1,6,b_pin,0,(/ integer:: /))
+ !
+ end function d16_b
+
+ function d16_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: d16_s
+ !
+ d16_s = d16_b(packb(set))
+ !
+ end function d16_s
+
+ function a17_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: a17_b
+ !
+ a17_b = -1.0_ki * fnp_generic(1,0,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function a17_b
+
+ function a17_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: a17_s
+ !
+ a17_s = a17_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function a17_s
+ function b17_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: b17_b
+ !
+ b17_b = 0.5_ki * fnp_generic(1,2,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function b17_b
+
+ function b17_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: b17_s
+ !
+ b17_s = b17_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function b17_s
+ function c17_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: c17_b
+ !
+ c17_b = -0.25_ki * fnp_generic(1,4,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function c17_b
+
+ function c17_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: c17_s
+ !
+ c17_s = c17_b(l1,l2,l3,packb(set))
+ !
+ end function c17_s
+ function d17_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: d17_b
+ !
+ d17_b = 0.125_ki * fnp_generic(1,6,b_pin,1,(/ l1 /))
+ !
+ end function d17_b
+
+ function d17_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: d17_s
+ !
+ d17_s = d17_b(l1,packb(set))
+ !
+ end function d17_s
+
+ function a18_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: a18_b
+ !
+ a18_b = fnp_generic(1,0,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function a18_b
+
+ function a18_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: a18_s
+ !
+ a18_s = a18_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function a18_s
+ function b18_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: b18_b
+ !
+ b18_b = -0.5_ki * fnp_generic(1,2,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function b18_b
+
+ function b18_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: b18_s
+ !
+ b18_s = b18_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function b18_s
+ function c18_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: c18_b
+ !
+ c18_b = 0.25_ki * fnp_generic(1,4,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function c18_b
+
+ function c18_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: c18_s
+ !
+ c18_s = c18_b(l1,l2,l3,l4,packb(set))
+ !
+ end function c18_s
+ function d18_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: d18_b
+ !
+ d18_b = -0.125_ki * fnp_generic(1,6,b_pin,2,(/ l1,l2 /))
+ !
+ end function d18_b
+
+ function d18_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: d18_s
+ !
+ d18_s = d18_b(l1,l2,packb(set))
+ !
+ end function d18_s
+ function e18_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: e18_b
+ !
+ e18_b = 0.0625_ki * fnp_generic(1,8,b_pin,0,(/ integer:: /))
+ !
+ end function e18_b
+
+ function e18_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: e18_s
+ !
+ e18_s = e18_b(packb(set))
+ !
+ end function e18_s
+
+ function a19_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: a19_b
+ !
+ a19_b = -1.0_ki * fnp_generic(1,0,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function a19_b
+
+ function a19_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: a19_s
+ !
+ a19_s = a19_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function a19_s
+ function b19_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: b19_b
+ !
+ b19_b = 0.5_ki * fnp_generic(1,2,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function b19_b
+
+ function b19_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: b19_s
+ !
+ b19_s = b19_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function b19_s
+ function c19_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: c19_b
+ !
+ c19_b = -0.25_ki * fnp_generic(1,4,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function c19_b
+
+ function c19_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: c19_s
+ !
+ c19_s = c19_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function c19_s
+ function d19_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: d19_b
+ !
+ d19_b = 0.125_ki * fnp_generic(1,6,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function d19_b
+
+ function d19_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: d19_s
+ !
+ d19_s = d19_b(l1,l2,l3,packb(set))
+ !
+ end function d19_s
+ function e19_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: e19_b
+ !
+ e19_b = -0.0625_ki * fnp_generic(1,8,b_pin,1,(/ l1 /))
+ !
+ end function e19_b
+
+ function e19_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: e19_s
+ !
+ e19_s = e19_b(l1,packb(set))
+ !
+ end function e19_s
+
+ function a110_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: a110_b
+ !
+ a110_b = fnp_generic(1,0,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function a110_b
+
+ function a110_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: a110_s
+ !
+ a110_s = a110_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function a110_s
+ function b110_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: b110_b
+ !
+ b110_b = -0.5_ki * fnp_generic(1,2,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function b110_b
+
+ function b110_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: b110_s
+ !
+ b110_s = b110_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function b110_s
+ function c110_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: c110_b
+ !
+ c110_b = 0.25_ki * fnp_generic(1,4,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function c110_b
+
+ function c110_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: c110_s
+ !
+ c110_s = c110_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function c110_s
+ function d110_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: d110_b
+ !
+ d110_b = -0.125_ki * fnp_generic(1,6,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function d110_b
+
+ function d110_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: d110_s
+ !
+ d110_s = d110_b(l1,l2,l3,l4,packb(set))
+ !
+ end function d110_s
+ function e110_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: e110_b
+ !
+ e110_b = 0.0625_ki * fnp_generic(1,8,b_pin,2,(/ l1,l2 /))
+ !
+ end function e110_b
+
+ function e110_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: e110_s
+ !
+ e110_s = e110_b(l1,l2,packb(set))
+ !
+ end function e110_s
+ function f110_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: f110_b
+ !
+ f110_b = -0.03125_ki * fnp_generic(1,10,b_pin,0,(/ integer:: /))
+ !
+ end function f110_b
+
+ function f110_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: f110_s
+ !
+ f110_s = f110_b(packb(set))
+ !
+ end function f110_s
+
+ function a111_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: a111_b
+ !
+ a111_b = -1.0_ki * fnp_generic(1,0,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function a111_b
+
+ function a111_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: a111_s
+ !
+ a111_s = a111_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function a111_s
+ function b111_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: b111_b
+ !
+ b111_b = 0.5_ki * fnp_generic(1,2,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function b111_b
+
+ function b111_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: b111_s
+ !
+ b111_s = b111_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function b111_s
+ function c111_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: c111_b
+ !
+ c111_b = -0.25_ki * fnp_generic(1,4,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function c111_b
+
+ function c111_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: c111_s
+ !
+ c111_s = c111_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function c111_s
+ function d111_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: d111_b
+ !
+ d111_b = 0.125_ki * fnp_generic(1,6,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function d111_b
+
+ function d111_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: d111_s
+ !
+ d111_s = d111_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function d111_s
+ function e111_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: e111_b
+ !
+ e111_b = -0.0625_ki * fnp_generic(1,8,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function e111_b
+
+ function e111_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: e111_s
+ !
+ e111_s = e111_b(l1,l2,l3,packb(set))
+ !
+ end function e111_s
+ function f111_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: f111_b
+ !
+ f111_b = 0.03125_ki * fnp_generic(1,10,b_pin,1,(/ l1 /))
+ !
+ end function f111_b
+
+ function f111_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: f111_s
+ !
+ f111_s = f111_b(l1,packb(set))
+ !
+ end function f111_s
+
+ function a112_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: a112_b
+ !
+ a112_b = fnp_generic(1,0,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function a112_b
+
+ function a112_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: a112_s
+ !
+ a112_s = a112_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function a112_s
+ function b112_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: b112_b
+ !
+ b112_b = -0.5_ki * fnp_generic(1,2,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function b112_b
+
+ function b112_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: b112_s
+ !
+ b112_s = b112_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function b112_s
+ function c112_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: c112_b
+ !
+ c112_b = 0.25_ki * fnp_generic(1,4,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function c112_b
+
+ function c112_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: c112_s
+ !
+ c112_s = c112_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function c112_s
+ function d112_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: d112_b
+ !
+ d112_b = -0.125_ki * fnp_generic(1,6,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function d112_b
+
+ function d112_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: d112_s
+ !
+ d112_s = d112_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function d112_s
+ function e112_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: e112_b
+ !
+ e112_b = 0.0625_ki * fnp_generic(1,8,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function e112_b
+
+ function e112_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: e112_s
+ !
+ e112_s = e112_b(l1,l2,l3,l4,packb(set))
+ !
+ end function e112_s
+ function f112_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: f112_b
+ !
+ f112_b = -0.03125_ki * fnp_generic(1,10,b_pin,2,(/ l1,l2 /))
+ !
+ end function f112_b
+
+ function f112_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: f112_s
+ !
+ f112_s = f112_b(l1,l2,packb(set))
+ !
+ end function f112_s
+ function g112_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: g112_b
+ !
+ g112_b = 0.015625_ki * fnp_generic(1,12,b_pin,0,(/ integer:: /))
+ !
+ end function g112_b
+
+ function g112_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: g112_s
+ !
+ g112_s = g112_b(packb(set))
+ !
+ end function g112_s
+
+ function a113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: a113_b
+ !
+ a113_b = -1.0_ki * fnp_generic(1,0,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function a113_b
+
+ function a113_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: a113_s
+ !
+ a113_s = a113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function a113_s
+ function b113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: b113_b
+ !
+ b113_b = 0.5_ki * fnp_generic(1,2,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function b113_b
+
+ function b113_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: b113_s
+ !
+ b113_s = b113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function b113_s
+ function c113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: c113_b
+ !
+ c113_b = -0.25_ki * fnp_generic(1,4,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function c113_b
+
+ function c113_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: c113_s
+ !
+ c113_s = c113_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function c113_s
+ function d113_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: d113_b
+ !
+ d113_b = 0.125_ki * fnp_generic(1,6,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function d113_b
+
+ function d113_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: d113_s
+ !
+ d113_s = d113_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function d113_s
+ function e113_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: e113_b
+ !
+ e113_b = -0.0625_ki * fnp_generic(1,8,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function e113_b
+
+ function e113_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: e113_s
+ !
+ e113_s = e113_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function e113_s
+ function f113_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: f113_b
+ !
+ f113_b = 0.03125_ki * fnp_generic(1,10,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function f113_b
+
+ function f113_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: f113_s
+ !
+ f113_s = f113_b(l1,l2,l3,packb(set))
+ !
+ end function f113_s
+ function g113_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: g113_b
+ !
+ g113_b = -0.015625_ki * fnp_generic(1,12,b_pin,1,(/ l1 /))
+ !
+ end function g113_b
+
+ function g113_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: g113_s
+ !
+ g113_s = g113_b(l1,packb(set))
+ !
+ end function g113_s
+
+ function a114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: a114_b
+ !
+ a114_b = fnp_generic(1,0,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function a114_b
+
+ function a114_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: a114_s
+ !
+ a114_s = a114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function a114_s
+ function b114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: b114_b
+ !
+ b114_b = -0.5_ki * fnp_generic(1,2,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function b114_b
+
+ function b114_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: b114_s
+ !
+ b114_s = b114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function b114_s
+ function c114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: c114_b
+ !
+ c114_b = 0.25_ki * fnp_generic(1,4,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function c114_b
+
+ function c114_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: c114_s
+ !
+ c114_s = c114_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function c114_s
+ function d114_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: d114_b
+ !
+ d114_b = -0.125_ki * fnp_generic(1,6,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function d114_b
+
+ function d114_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: d114_s
+ !
+ d114_s = d114_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function d114_s
+ function e114_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: e114_b
+ !
+ e114_b = 0.0625_ki * fnp_generic(1,8,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function e114_b
+
+ function e114_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: e114_s
+ !
+ e114_s = e114_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function e114_s
+ function f114_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: f114_b
+ !
+ f114_b = -0.03125_ki * fnp_generic(1,10,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function f114_b
+
+ function f114_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: f114_s
+ !
+ f114_s = f114_b(l1,l2,l3,l4,packb(set))
+ !
+ end function f114_s
+ function g114_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: g114_b
+ !
+ g114_b = 0.015625_ki * fnp_generic(1,12,b_pin,2,(/ l1,l2 /))
+ !
+ end function g114_b
+
+ function g114_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: g114_s
+ !
+ g114_s = g114_b(l1,l2,packb(set))
+ !
+ end function g114_s
+ function h114_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: h114_b
+ !
+ h114_b = -0.0078125_ki * fnp_generic(1,14,b_pin,0,(/ integer:: /))
+ !
+ end function h114_b
+
+ function h114_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: h114_s
+ !
+ h114_s = h114_b(packb(set))
+ !
+ end function h114_s
+
+ function a115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: a115_b
+ !
+ a115_b = -1.0_ki * fnp_generic(1,0,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function a115_b
+
+ function a115_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: a115_s
+ !
+ a115_s = a115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function a115_s
+ function b115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: b115_b
+ !
+ b115_b = 0.5_ki * fnp_generic(1,2,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function b115_b
+
+ function b115_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: b115_s
+ !
+ b115_s = b115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function b115_s
+ function c115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: c115_b
+ !
+ c115_b = -0.25_ki * fnp_generic(1,4,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function c115_b
+
+ function c115_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: c115_s
+ !
+ c115_s = c115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function c115_s
+ function d115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: d115_b
+ !
+ d115_b = 0.125_ki * fnp_generic(1,6,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function d115_b
+
+ function d115_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: d115_s
+ !
+ d115_s = d115_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function d115_s
+ function e115_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: e115_b
+ !
+ e115_b = -0.0625_ki * fnp_generic(1,8,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function e115_b
+
+ function e115_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: e115_s
+ !
+ e115_s = e115_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function e115_s
+ function f115_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: f115_b
+ !
+ f115_b = 0.03125_ki * fnp_generic(1,10,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function f115_b
+
+ function f115_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: f115_s
+ !
+ f115_s = f115_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function f115_s
+ function g115_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: g115_b
+ !
+ g115_b = -0.015625_ki * fnp_generic(1,12,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function g115_b
+
+ function g115_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: g115_s
+ !
+ g115_s = g115_b(l1,l2,l3,packb(set))
+ !
+ end function g115_s
+ function h115_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: h115_b
+ !
+ h115_b = 0.0078125_ki * fnp_generic(1,14,b_pin,1,(/ l1 /))
+ !
+ end function h115_b
+
+ function h115_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: h115_s
+ !
+ h115_s = h115_b(l1,packb(set))
+ !
+ end function h115_s
+
+ function my_a21_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_a21_b
+ !
+ my_a21_b = -1.0_ki * fnp_generic(2,0,b_pin,1,(/ l1 /))
+ !
+ end function my_a21_b
+
+ function my_a21_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_a21_s
+ !
+ my_a21_s = my_a21_b(l1,packb(set))
+ !
+ end function my_a21_s
+
+ function my_a22_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: my_a22_b
+ !
+ my_a22_b = fnp_generic(2,0,b_pin,2,(/ l1,l2 /))
+ !
+ end function my_a22_b
+
+ function my_a22_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: my_a22_s
+ !
+ my_a22_s = my_a22_b(l1,l2,packb(set))
+ !
+ end function my_a22_s
+ function my_b22_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: my_b22_b
+ !
+ my_b22_b = -0.5_ki * fnp_generic(2,2,b_pin,0,(/ integer:: /))
+ !
+ end function my_b22_b
+
+ function my_b22_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: my_b22_s
+ !
+ my_b22_s = my_b22_b(packb(set))
+ !
+ end function my_b22_s
+
+ function a23_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: a23_b
+ !
+ a23_b = -1.0_ki * fnp_generic(2,0,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function a23_b
+
+ function a23_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: a23_s
+ !
+ a23_s = a23_b(l1,l2,l3,packb(set))
+ !
+ end function a23_s
+ function b23_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: b23_b
+ !
+ b23_b = 0.5_ki * fnp_generic(2,2,b_pin,1,(/ l1 /))
+ !
+ end function b23_b
+
+ function b23_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: b23_s
+ !
+ b23_s = b23_b(l1,packb(set))
+ !
+ end function b23_s
+
+ function a24_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: a24_b
+ !
+ a24_b = fnp_generic(2,0,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function a24_b
+
+ function a24_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: a24_s
+ !
+ a24_s = a24_b(l1,l2,l3,l4,packb(set))
+ !
+ end function a24_s
+ function b24_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: b24_b
+ !
+ b24_b = -0.5_ki * fnp_generic(2,2,b_pin,2,(/ l1,l2 /))
+ !
+ end function b24_b
+
+ function b24_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: b24_s
+ !
+ b24_s = b24_b(l1,l2,packb(set))
+ !
+ end function b24_s
+ function c24_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: c24_b
+ !
+ c24_b = 0.25_ki * fnp_generic(2,4,b_pin,0,(/ integer:: /))
+ !
+ end function c24_b
+
+ function c24_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: c24_s
+ !
+ c24_s = c24_b(packb(set))
+ !
+ end function c24_s
+
+ function a25_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: a25_b
+ !
+ a25_b = -1.0_ki * fnp_generic(2,0,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function a25_b
+
+ function a25_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: a25_s
+ !
+ a25_s = a25_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function a25_s
+ function b25_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: b25_b
+ !
+ b25_b = 0.5_ki * fnp_generic(2,2,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function b25_b
+
+ function b25_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: b25_s
+ !
+ b25_s = b25_b(l1,l2,l3,packb(set))
+ !
+ end function b25_s
+ function c25_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: c25_b
+ !
+ c25_b = -0.25_ki * fnp_generic(2,4,b_pin,1,(/ l1 /))
+ !
+ end function c25_b
+
+ function c25_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: c25_s
+ !
+ c25_s = c25_b(l1,packb(set))
+ !
+ end function c25_s
+
+ function a26_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: a26_b
+ !
+ a26_b = fnp_generic(2,0,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function a26_b
+
+ function a26_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: a26_s
+ !
+ a26_s = a26_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function a26_s
+ function b26_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: b26_b
+ !
+ b26_b = -0.5_ki * fnp_generic(2,2,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function b26_b
+
+ function b26_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: b26_s
+ !
+ b26_s = b26_b(l1,l2,l3,l4,packb(set))
+ !
+ end function b26_s
+ function c26_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: c26_b
+ !
+ c26_b = 0.25_ki * fnp_generic(2,4,b_pin,2,(/ l1,l2 /))
+ !
+ end function c26_b
+
+ function c26_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: c26_s
+ !
+ c26_s = c26_b(l1,l2,packb(set))
+ !
+ end function c26_s
+ function d26_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: d26_b
+ !
+ d26_b = -0.125_ki * fnp_generic(2,6,b_pin,0,(/ integer:: /))
+ !
+ end function d26_b
+
+ function d26_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: d26_s
+ !
+ d26_s = d26_b(packb(set))
+ !
+ end function d26_s
+
+ function a27_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: a27_b
+ !
+ a27_b = -1.0_ki * fnp_generic(2,0,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function a27_b
+
+ function a27_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: a27_s
+ !
+ a27_s = a27_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function a27_s
+ function b27_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: b27_b
+ !
+ b27_b = 0.5_ki * fnp_generic(2,2,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function b27_b
+
+ function b27_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: b27_s
+ !
+ b27_s = b27_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function b27_s
+ function c27_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: c27_b
+ !
+ c27_b = -0.25_ki * fnp_generic(2,4,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function c27_b
+
+ function c27_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: c27_s
+ !
+ c27_s = c27_b(l1,l2,l3,packb(set))
+ !
+ end function c27_s
+ function d27_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: d27_b
+ !
+ d27_b = 0.125_ki * fnp_generic(2,6,b_pin,1,(/ l1 /))
+ !
+ end function d27_b
+
+ function d27_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: d27_s
+ !
+ d27_s = d27_b(l1,packb(set))
+ !
+ end function d27_s
+
+ function a28_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: a28_b
+ !
+ a28_b = fnp_generic(2,0,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function a28_b
+
+ function a28_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: a28_s
+ !
+ a28_s = a28_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function a28_s
+ function b28_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: b28_b
+ !
+ b28_b = -0.5_ki * fnp_generic(2,2,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function b28_b
+
+ function b28_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: b28_s
+ !
+ b28_s = b28_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function b28_s
+ function c28_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: c28_b
+ !
+ c28_b = 0.25_ki * fnp_generic(2,4,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function c28_b
+
+ function c28_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: c28_s
+ !
+ c28_s = c28_b(l1,l2,l3,l4,packb(set))
+ !
+ end function c28_s
+ function d28_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: d28_b
+ !
+ d28_b = -0.125_ki * fnp_generic(2,6,b_pin,2,(/ l1,l2 /))
+ !
+ end function d28_b
+
+ function d28_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: d28_s
+ !
+ d28_s = d28_b(l1,l2,packb(set))
+ !
+ end function d28_s
+ function e28_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: e28_b
+ !
+ e28_b = 0.0625_ki * fnp_generic(2,8,b_pin,0,(/ integer:: /))
+ !
+ end function e28_b
+
+ function e28_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: e28_s
+ !
+ e28_s = e28_b(packb(set))
+ !
+ end function e28_s
+
+ function a29_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: a29_b
+ !
+ a29_b = -1.0_ki * fnp_generic(2,0,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function a29_b
+
+ function a29_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: a29_s
+ !
+ a29_s = a29_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function a29_s
+ function b29_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: b29_b
+ !
+ b29_b = 0.5_ki * fnp_generic(2,2,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function b29_b
+
+ function b29_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: b29_s
+ !
+ b29_s = b29_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function b29_s
+ function c29_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: c29_b
+ !
+ c29_b = -0.25_ki * fnp_generic(2,4,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function c29_b
+
+ function c29_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: c29_s
+ !
+ c29_s = c29_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function c29_s
+ function d29_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: d29_b
+ !
+ d29_b = 0.125_ki * fnp_generic(2,6,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function d29_b
+
+ function d29_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: d29_s
+ !
+ d29_s = d29_b(l1,l2,l3,packb(set))
+ !
+ end function d29_s
+ function e29_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: e29_b
+ !
+ e29_b = -0.0625_ki * fnp_generic(2,8,b_pin,1,(/ l1 /))
+ !
+ end function e29_b
+
+ function e29_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: e29_s
+ !
+ e29_s = e29_b(l1,packb(set))
+ !
+ end function e29_s
+
+ function a210_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: a210_b
+ !
+ a210_b = fnp_generic(2,0,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function a210_b
+
+ function a210_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: a210_s
+ !
+ a210_s = a210_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function a210_s
+ function b210_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: b210_b
+ !
+ b210_b = -0.5_ki * fnp_generic(2,2,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function b210_b
+
+ function b210_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: b210_s
+ !
+ b210_s = b210_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function b210_s
+ function c210_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: c210_b
+ !
+ c210_b = 0.25_ki * fnp_generic(2,4,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function c210_b
+
+ function c210_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: c210_s
+ !
+ c210_s = c210_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function c210_s
+ function d210_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: d210_b
+ !
+ d210_b = -0.125_ki * fnp_generic(2,6,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function d210_b
+
+ function d210_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: d210_s
+ !
+ d210_s = d210_b(l1,l2,l3,l4,packb(set))
+ !
+ end function d210_s
+ function e210_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: e210_b
+ !
+ e210_b = 0.0625_ki * fnp_generic(2,8,b_pin,2,(/ l1,l2 /))
+ !
+ end function e210_b
+
+ function e210_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: e210_s
+ !
+ e210_s = e210_b(l1,l2,packb(set))
+ !
+ end function e210_s
+ function f210_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: f210_b
+ !
+ f210_b = -0.03125_ki * fnp_generic(2,10,b_pin,0,(/ integer:: /))
+ !
+ end function f210_b
+
+ function f210_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: f210_s
+ !
+ f210_s = f210_b(packb(set))
+ !
+ end function f210_s
+
+ function a211_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: a211_b
+ !
+ a211_b = -1.0_ki * fnp_generic(2,0,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function a211_b
+
+ function a211_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: a211_s
+ !
+ a211_s = a211_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function a211_s
+ function b211_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: b211_b
+ !
+ b211_b = 0.5_ki * fnp_generic(2,2,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function b211_b
+
+ function b211_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: b211_s
+ !
+ b211_s = b211_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function b211_s
+ function c211_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: c211_b
+ !
+ c211_b = -0.25_ki * fnp_generic(2,4,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function c211_b
+
+ function c211_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: c211_s
+ !
+ c211_s = c211_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function c211_s
+ function d211_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: d211_b
+ !
+ d211_b = 0.125_ki * fnp_generic(2,6,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function d211_b
+
+ function d211_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: d211_s
+ !
+ d211_s = d211_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function d211_s
+ function e211_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: e211_b
+ !
+ e211_b = -0.0625_ki * fnp_generic(2,8,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function e211_b
+
+ function e211_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: e211_s
+ !
+ e211_s = e211_b(l1,l2,l3,packb(set))
+ !
+ end function e211_s
+ function f211_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: f211_b
+ !
+ f211_b = 0.03125_ki * fnp_generic(2,10,b_pin,1,(/ l1 /))
+ !
+ end function f211_b
+
+ function f211_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: f211_s
+ !
+ f211_s = f211_b(l1,packb(set))
+ !
+ end function f211_s
+
+ function a212_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: a212_b
+ !
+ a212_b = fnp_generic(2,0,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function a212_b
+
+ function a212_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: a212_s
+ !
+ a212_s = a212_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function a212_s
+ function b212_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: b212_b
+ !
+ b212_b = -0.5_ki * fnp_generic(2,2,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function b212_b
+
+ function b212_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: b212_s
+ !
+ b212_s = b212_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function b212_s
+ function c212_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: c212_b
+ !
+ c212_b = 0.25_ki * fnp_generic(2,4,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function c212_b
+
+ function c212_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: c212_s
+ !
+ c212_s = c212_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function c212_s
+ function d212_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: d212_b
+ !
+ d212_b = -0.125_ki * fnp_generic(2,6,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function d212_b
+
+ function d212_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: d212_s
+ !
+ d212_s = d212_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function d212_s
+ function e212_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: e212_b
+ !
+ e212_b = 0.0625_ki * fnp_generic(2,8,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function e212_b
+
+ function e212_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: e212_s
+ !
+ e212_s = e212_b(l1,l2,l3,l4,packb(set))
+ !
+ end function e212_s
+ function f212_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: f212_b
+ !
+ f212_b = -0.03125_ki * fnp_generic(2,10,b_pin,2,(/ l1,l2 /))
+ !
+ end function f212_b
+
+ function f212_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: f212_s
+ !
+ f212_s = f212_b(l1,l2,packb(set))
+ !
+ end function f212_s
+ function g212_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: g212_b
+ !
+ g212_b = 0.015625_ki * fnp_generic(2,12,b_pin,0,(/ integer:: /))
+ !
+ end function g212_b
+
+ function g212_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: g212_s
+ !
+ g212_s = g212_b(packb(set))
+ !
+ end function g212_s
+
+ function a213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: a213_b
+ !
+ a213_b = -1.0_ki * fnp_generic(2,0,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function a213_b
+
+ function a213_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: a213_s
+ !
+ a213_s = a213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function a213_s
+ function b213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: b213_b
+ !
+ b213_b = 0.5_ki * fnp_generic(2,2,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function b213_b
+
+ function b213_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: b213_s
+ !
+ b213_s = b213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function b213_s
+ function c213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: c213_b
+ !
+ c213_b = -0.25_ki * fnp_generic(2,4,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function c213_b
+
+ function c213_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: c213_s
+ !
+ c213_s = c213_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function c213_s
+ function d213_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: d213_b
+ !
+ d213_b = 0.125_ki * fnp_generic(2,6,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function d213_b
+
+ function d213_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: d213_s
+ !
+ d213_s = d213_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function d213_s
+ function e213_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: e213_b
+ !
+ e213_b = -0.0625_ki * fnp_generic(2,8,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function e213_b
+
+ function e213_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: e213_s
+ !
+ e213_s = e213_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function e213_s
+ function f213_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: f213_b
+ !
+ f213_b = 0.03125_ki * fnp_generic(2,10,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function f213_b
+
+ function f213_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: f213_s
+ !
+ f213_s = f213_b(l1,l2,l3,packb(set))
+ !
+ end function f213_s
+ function g213_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: g213_b
+ !
+ g213_b = -0.015625_ki * fnp_generic(2,12,b_pin,1,(/ l1 /))
+ !
+ end function g213_b
+
+ function g213_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: g213_s
+ !
+ g213_s = g213_b(l1,packb(set))
+ !
+ end function g213_s
+
+ function a214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: a214_b
+ !
+ a214_b = fnp_generic(2,0,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function a214_b
+
+ function a214_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: a214_s
+ !
+ a214_s = a214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function a214_s
+ function b214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: b214_b
+ !
+ b214_b = -0.5_ki * fnp_generic(2,2,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function b214_b
+
+ function b214_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: b214_s
+ !
+ b214_s = b214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function b214_s
+ function c214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: c214_b
+ !
+ c214_b = 0.25_ki * fnp_generic(2,4,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function c214_b
+
+ function c214_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: c214_s
+ !
+ c214_s = c214_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function c214_s
+ function d214_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: d214_b
+ !
+ d214_b = -0.125_ki * fnp_generic(2,6,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function d214_b
+
+ function d214_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: d214_s
+ !
+ d214_s = d214_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function d214_s
+ function e214_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: e214_b
+ !
+ e214_b = 0.0625_ki * fnp_generic(2,8,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function e214_b
+
+ function e214_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: e214_s
+ !
+ e214_s = e214_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function e214_s
+ function f214_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: f214_b
+ !
+ f214_b = -0.03125_ki * fnp_generic(2,10,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function f214_b
+
+ function f214_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: f214_s
+ !
+ f214_s = f214_b(l1,l2,l3,l4,packb(set))
+ !
+ end function f214_s
+ function g214_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: g214_b
+ !
+ g214_b = 0.015625_ki * fnp_generic(2,12,b_pin,2,(/ l1,l2 /))
+ !
+ end function g214_b
+
+ function g214_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: g214_s
+ !
+ g214_s = g214_b(l1,l2,packb(set))
+ !
+ end function g214_s
+ function h214_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: h214_b
+ !
+ h214_b = -0.0078125_ki * fnp_generic(2,14,b_pin,0,(/ integer:: /))
+ !
+ end function h214_b
+
+ function h214_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: h214_s
+ !
+ h214_s = h214_b(packb(set))
+ !
+ end function h214_s
+
+ function a215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: a215_b
+ !
+ a215_b = -1.0_ki * fnp_generic(2,0,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function a215_b
+
+ function a215_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: a215_s
+ !
+ a215_s = a215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function a215_s
+ function b215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: b215_b
+ !
+ b215_b = 0.5_ki * fnp_generic(2,2,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function b215_b
+
+ function b215_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: b215_s
+ !
+ b215_s = b215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function b215_s
+ function c215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: c215_b
+ !
+ c215_b = -0.25_ki * fnp_generic(2,4,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function c215_b
+
+ function c215_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: c215_s
+ !
+ c215_s = c215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function c215_s
+ function d215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: d215_b
+ !
+ d215_b = 0.125_ki * fnp_generic(2,6,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function d215_b
+
+ function d215_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: d215_s
+ !
+ d215_s = d215_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function d215_s
+ function e215_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: e215_b
+ !
+ e215_b = -0.0625_ki * fnp_generic(2,8,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function e215_b
+
+ function e215_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: e215_s
+ !
+ e215_s = e215_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function e215_s
+ function f215_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: f215_b
+ !
+ f215_b = 0.03125_ki * fnp_generic(2,10,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function f215_b
+
+ function f215_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: f215_s
+ !
+ f215_s = f215_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function f215_s
+ function g215_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: g215_b
+ !
+ g215_b = -0.015625_ki * fnp_generic(2,12,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function g215_b
+
+ function g215_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: g215_s
+ !
+ g215_s = g215_b(l1,l2,l3,packb(set))
+ !
+ end function g215_s
+ function h215_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: h215_b
+ !
+ h215_b = 0.0078125_ki * fnp_generic(2,14,b_pin,1,(/ l1 /))
+ !
+ end function h215_b
+
+ function h215_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: h215_s
+ !
+ h215_s = h215_b(l1,packb(set))
+ !
+ end function h215_s
+
+ function a216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin
+ type(form_factor) :: a216_b
+ !
+ a216_b = fnp_generic(2,0,b_pin,16,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16 /))
+ !
+ end function a216_b
+
+ function a216_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16
+ type(form_factor) :: a216_s
+ !
+ a216_s = a216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,packb(set))
+ !
+ end function a216_s
+ function b216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: b216_b
+ !
+ b216_b = -0.5_ki * fnp_generic(2,2,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function b216_b
+
+ function b216_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: b216_s
+ !
+ b216_s = b216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function b216_s
+ function c216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: c216_b
+ !
+ c216_b = 0.25_ki * fnp_generic(2,4,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function c216_b
+
+ function c216_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: c216_s
+ !
+ c216_s = c216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function c216_s
+ function d216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: d216_b
+ !
+ d216_b = -0.125_ki * fnp_generic(2,6,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function d216_b
+
+ function d216_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: d216_s
+ !
+ d216_s = d216_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function d216_s
+ function e216_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: e216_b
+ !
+ e216_b = 0.0625_ki * fnp_generic(2,8,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function e216_b
+
+ function e216_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: e216_s
+ !
+ e216_s = e216_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function e216_s
+ function f216_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: f216_b
+ !
+ f216_b = -0.03125_ki * fnp_generic(2,10,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function f216_b
+
+ function f216_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: f216_s
+ !
+ f216_s = f216_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function f216_s
+ function g216_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: g216_b
+ !
+ g216_b = 0.015625_ki * fnp_generic(2,12,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function g216_b
+
+ function g216_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: g216_s
+ !
+ g216_s = g216_b(l1,l2,l3,l4,packb(set))
+ !
+ end function g216_s
+ function h216_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: h216_b
+ !
+ h216_b = -0.0078125_ki * fnp_generic(2,14,b_pin,2,(/ l1,l2 /))
+ !
+ end function h216_b
+
+ function h216_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: h216_s
+ !
+ h216_s = h216_b(l1,l2,packb(set))
+ !
+ end function h216_s
+ function i216_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: i216_b
+ !
+ i216_b = 0.00390625_ki * fnp_generic(2,16,b_pin,0,(/ integer:: /))
+ !
+ end function i216_b
+
+ function i216_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: i216_s
+ !
+ i216_s = i216_b(packb(set))
+ !
+ end function i216_s
+
+ function my_a31_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_a31_b
+ !
+ my_a31_b = -1.0_ki * fnp_generic(3,0,b_pin,1,(/ l1 /))
+ !
+ end function my_a31_b
+
+ function my_a31_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_a31_s
+ !
+ my_a31_s = my_a31_b(l1,packb(set))
+ !
+ end function my_a31_s
+
+ function my_a32_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: my_a32_b
+ !
+ my_a32_b = fnp_generic(3,0,b_pin,2,(/ l1,l2 /))
+ !
+ end function my_a32_b
+
+ function my_a32_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: my_a32_s
+ !
+ my_a32_s = my_a32_b(l1,l2,packb(set))
+ !
+ end function my_a32_s
+ function my_b32_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: my_b32_b
+ !
+ my_b32_b = -0.5_ki * fnp_generic(3,2,b_pin,0,(/ integer:: /))
+ !
+ end function my_b32_b
+
+ function my_b32_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: my_b32_s
+ !
+ my_b32_s = my_b32_b(packb(set))
+ !
+ end function my_b32_s
+
+ function my_a33_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: my_a33_b
+ !
+ my_a33_b = -1.0_ki * fnp_generic(3,0,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function my_a33_b
+
+ function my_a33_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: my_a33_s
+ !
+ my_a33_s = my_a33_b(l1,l2,l3,packb(set))
+ !
+ end function my_a33_s
+ function my_b33_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_b33_b
+ !
+ my_b33_b = 0.5_ki * fnp_generic(3,2,b_pin,1,(/ l1 /))
+ !
+ end function my_b33_b
+
+ function my_b33_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_b33_s
+ !
+ my_b33_s = my_b33_b(l1,packb(set))
+ !
+ end function my_b33_s
+
+ function a34_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: a34_b
+ !
+ a34_b = fnp_generic(3,0,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function a34_b
+
+ function a34_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: a34_s
+ !
+ a34_s = a34_b(l1,l2,l3,l4,packb(set))
+ !
+ end function a34_s
+ function b34_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: b34_b
+ !
+ b34_b = -0.5_ki * fnp_generic(3,2,b_pin,2,(/ l1,l2 /))
+ !
+ end function b34_b
+
+ function b34_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: b34_s
+ !
+ b34_s = b34_b(l1,l2,packb(set))
+ !
+ end function b34_s
+ function c34_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: c34_b
+ !
+ c34_b = 0.25_ki * fnp_generic(3,4,b_pin,0,(/ integer:: /))
+ !
+ end function c34_b
+
+ function c34_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: c34_s
+ !
+ c34_s = c34_b(packb(set))
+ !
+ end function c34_s
+
+ function a35_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: a35_b
+ !
+ a35_b = -1.0_ki * fnp_generic(3,0,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function a35_b
+
+ function a35_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: a35_s
+ !
+ a35_s = a35_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function a35_s
+ function b35_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: b35_b
+ !
+ b35_b = 0.5_ki * fnp_generic(3,2,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function b35_b
+
+ function b35_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: b35_s
+ !
+ b35_s = b35_b(l1,l2,l3,packb(set))
+ !
+ end function b35_s
+ function c35_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: c35_b
+ !
+ c35_b = -0.25_ki * fnp_generic(3,4,b_pin,1,(/ l1 /))
+ !
+ end function c35_b
+
+ function c35_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: c35_s
+ !
+ c35_s = c35_b(l1,packb(set))
+ !
+ end function c35_s
+
+ function a36_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: a36_b
+ !
+ a36_b = fnp_generic(3,0,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function a36_b
+
+ function a36_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: a36_s
+ !
+ a36_s = a36_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function a36_s
+ function b36_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: b36_b
+ !
+ b36_b = -0.5_ki * fnp_generic(3,2,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function b36_b
+
+ function b36_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: b36_s
+ !
+ b36_s = b36_b(l1,l2,l3,l4,packb(set))
+ !
+ end function b36_s
+ function c36_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: c36_b
+ !
+ c36_b = 0.25_ki * fnp_generic(3,4,b_pin,2,(/ l1,l2 /))
+ !
+ end function c36_b
+
+ function c36_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: c36_s
+ !
+ c36_s = c36_b(l1,l2,packb(set))
+ !
+ end function c36_s
+ function d36_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: d36_b
+ !
+ d36_b = -0.125_ki * fnp_generic(3,6,b_pin,0,(/ integer:: /))
+ !
+ end function d36_b
+
+ function d36_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: d36_s
+ !
+ d36_s = d36_b(packb(set))
+ !
+ end function d36_s
+
+ function a37_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: a37_b
+ !
+ a37_b = -1.0_ki * fnp_generic(3,0,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function a37_b
+
+ function a37_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: a37_s
+ !
+ a37_s = a37_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function a37_s
+ function b37_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: b37_b
+ !
+ b37_b = 0.5_ki * fnp_generic(3,2,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function b37_b
+
+ function b37_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: b37_s
+ !
+ b37_s = b37_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function b37_s
+ function c37_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: c37_b
+ !
+ c37_b = -0.25_ki * fnp_generic(3,4,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function c37_b
+
+ function c37_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: c37_s
+ !
+ c37_s = c37_b(l1,l2,l3,packb(set))
+ !
+ end function c37_s
+ function d37_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: d37_b
+ !
+ d37_b = 0.125_ki * fnp_generic(3,6,b_pin,1,(/ l1 /))
+ !
+ end function d37_b
+
+ function d37_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: d37_s
+ !
+ d37_s = d37_b(l1,packb(set))
+ !
+ end function d37_s
+
+ function a38_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: a38_b
+ !
+ a38_b = fnp_generic(3,0,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function a38_b
+
+ function a38_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: a38_s
+ !
+ a38_s = a38_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function a38_s
+ function b38_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: b38_b
+ !
+ b38_b = -0.5_ki * fnp_generic(3,2,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function b38_b
+
+ function b38_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: b38_s
+ !
+ b38_s = b38_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function b38_s
+ function c38_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: c38_b
+ !
+ c38_b = 0.25_ki * fnp_generic(3,4,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function c38_b
+
+ function c38_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: c38_s
+ !
+ c38_s = c38_b(l1,l2,l3,l4,packb(set))
+ !
+ end function c38_s
+ function d38_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: d38_b
+ !
+ d38_b = -0.125_ki * fnp_generic(3,6,b_pin,2,(/ l1,l2 /))
+ !
+ end function d38_b
+
+ function d38_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: d38_s
+ !
+ d38_s = d38_b(l1,l2,packb(set))
+ !
+ end function d38_s
+ function e38_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: e38_b
+ !
+ e38_b = 0.0625_ki * fnp_generic(3,8,b_pin,0,(/ integer:: /))
+ !
+ end function e38_b
+
+ function e38_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: e38_s
+ !
+ e38_s = e38_b(packb(set))
+ !
+ end function e38_s
+
+ function a39_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: a39_b
+ !
+ a39_b = -1.0_ki * fnp_generic(3,0,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function a39_b
+
+ function a39_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: a39_s
+ !
+ a39_s = a39_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function a39_s
+ function b39_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: b39_b
+ !
+ b39_b = 0.5_ki * fnp_generic(3,2,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function b39_b
+
+ function b39_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: b39_s
+ !
+ b39_s = b39_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function b39_s
+ function c39_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: c39_b
+ !
+ c39_b = -0.25_ki * fnp_generic(3,4,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function c39_b
+
+ function c39_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: c39_s
+ !
+ c39_s = c39_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function c39_s
+ function d39_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: d39_b
+ !
+ d39_b = 0.125_ki * fnp_generic(3,6,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function d39_b
+
+ function d39_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: d39_s
+ !
+ d39_s = d39_b(l1,l2,l3,packb(set))
+ !
+ end function d39_s
+ function e39_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: e39_b
+ !
+ e39_b = -0.0625_ki * fnp_generic(3,8,b_pin,1,(/ l1 /))
+ !
+ end function e39_b
+
+ function e39_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: e39_s
+ !
+ e39_s = e39_b(l1,packb(set))
+ !
+ end function e39_s
+
+ function a310_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: a310_b
+ !
+ a310_b = fnp_generic(3,0,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function a310_b
+
+ function a310_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: a310_s
+ !
+ a310_s = a310_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function a310_s
+ function b310_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: b310_b
+ !
+ b310_b = -0.5_ki * fnp_generic(3,2,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function b310_b
+
+ function b310_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: b310_s
+ !
+ b310_s = b310_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function b310_s
+ function c310_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: c310_b
+ !
+ c310_b = 0.25_ki * fnp_generic(3,4,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function c310_b
+
+ function c310_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: c310_s
+ !
+ c310_s = c310_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function c310_s
+ function d310_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: d310_b
+ !
+ d310_b = -0.125_ki * fnp_generic(3,6,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function d310_b
+
+ function d310_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: d310_s
+ !
+ d310_s = d310_b(l1,l2,l3,l4,packb(set))
+ !
+ end function d310_s
+ function e310_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: e310_b
+ !
+ e310_b = 0.0625_ki * fnp_generic(3,8,b_pin,2,(/ l1,l2 /))
+ !
+ end function e310_b
+
+ function e310_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: e310_s
+ !
+ e310_s = e310_b(l1,l2,packb(set))
+ !
+ end function e310_s
+ function f310_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: f310_b
+ !
+ f310_b = -0.03125_ki * fnp_generic(3,10,b_pin,0,(/ integer:: /))
+ !
+ end function f310_b
+
+ function f310_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: f310_s
+ !
+ f310_s = f310_b(packb(set))
+ !
+ end function f310_s
+
+ function a311_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: a311_b
+ !
+ a311_b = -1.0_ki * fnp_generic(3,0,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function a311_b
+
+ function a311_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: a311_s
+ !
+ a311_s = a311_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function a311_s
+ function b311_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: b311_b
+ !
+ b311_b = 0.5_ki * fnp_generic(3,2,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function b311_b
+
+ function b311_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: b311_s
+ !
+ b311_s = b311_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function b311_s
+ function c311_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: c311_b
+ !
+ c311_b = -0.25_ki * fnp_generic(3,4,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function c311_b
+
+ function c311_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: c311_s
+ !
+ c311_s = c311_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function c311_s
+ function d311_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: d311_b
+ !
+ d311_b = 0.125_ki * fnp_generic(3,6,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function d311_b
+
+ function d311_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: d311_s
+ !
+ d311_s = d311_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function d311_s
+ function e311_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: e311_b
+ !
+ e311_b = -0.0625_ki * fnp_generic(3,8,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function e311_b
+
+ function e311_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: e311_s
+ !
+ e311_s = e311_b(l1,l2,l3,packb(set))
+ !
+ end function e311_s
+ function f311_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: f311_b
+ !
+ f311_b = 0.03125_ki * fnp_generic(3,10,b_pin,1,(/ l1 /))
+ !
+ end function f311_b
+
+ function f311_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: f311_s
+ !
+ f311_s = f311_b(l1,packb(set))
+ !
+ end function f311_s
+
+ function a312_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: a312_b
+ !
+ a312_b = fnp_generic(3,0,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function a312_b
+
+ function a312_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: a312_s
+ !
+ a312_s = a312_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function a312_s
+ function b312_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: b312_b
+ !
+ b312_b = -0.5_ki * fnp_generic(3,2,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function b312_b
+
+ function b312_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: b312_s
+ !
+ b312_s = b312_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function b312_s
+ function c312_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: c312_b
+ !
+ c312_b = 0.25_ki * fnp_generic(3,4,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function c312_b
+
+ function c312_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: c312_s
+ !
+ c312_s = c312_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function c312_s
+ function d312_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: d312_b
+ !
+ d312_b = -0.125_ki * fnp_generic(3,6,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function d312_b
+
+ function d312_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: d312_s
+ !
+ d312_s = d312_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function d312_s
+ function e312_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: e312_b
+ !
+ e312_b = 0.0625_ki * fnp_generic(3,8,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function e312_b
+
+ function e312_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: e312_s
+ !
+ e312_s = e312_b(l1,l2,l3,l4,packb(set))
+ !
+ end function e312_s
+ function f312_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: f312_b
+ !
+ f312_b = -0.03125_ki * fnp_generic(3,10,b_pin,2,(/ l1,l2 /))
+ !
+ end function f312_b
+
+ function f312_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: f312_s
+ !
+ f312_s = f312_b(l1,l2,packb(set))
+ !
+ end function f312_s
+ function g312_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: g312_b
+ !
+ g312_b = 0.015625_ki * fnp_generic(3,12,b_pin,0,(/ integer:: /))
+ !
+ end function g312_b
+
+ function g312_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: g312_s
+ !
+ g312_s = g312_b(packb(set))
+ !
+ end function g312_s
+
+ function a313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: a313_b
+ !
+ a313_b = -1.0_ki * fnp_generic(3,0,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function a313_b
+
+ function a313_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: a313_s
+ !
+ a313_s = a313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function a313_s
+ function b313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: b313_b
+ !
+ b313_b = 0.5_ki * fnp_generic(3,2,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function b313_b
+
+ function b313_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: b313_s
+ !
+ b313_s = b313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function b313_s
+ function c313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: c313_b
+ !
+ c313_b = -0.25_ki * fnp_generic(3,4,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function c313_b
+
+ function c313_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: c313_s
+ !
+ c313_s = c313_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function c313_s
+ function d313_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: d313_b
+ !
+ d313_b = 0.125_ki * fnp_generic(3,6,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function d313_b
+
+ function d313_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: d313_s
+ !
+ d313_s = d313_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function d313_s
+ function e313_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: e313_b
+ !
+ e313_b = -0.0625_ki * fnp_generic(3,8,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function e313_b
+
+ function e313_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: e313_s
+ !
+ e313_s = e313_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function e313_s
+ function f313_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: f313_b
+ !
+ f313_b = 0.03125_ki * fnp_generic(3,10,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function f313_b
+
+ function f313_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: f313_s
+ !
+ f313_s = f313_b(l1,l2,l3,packb(set))
+ !
+ end function f313_s
+ function g313_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: g313_b
+ !
+ g313_b = -0.015625_ki * fnp_generic(3,12,b_pin,1,(/ l1 /))
+ !
+ end function g313_b
+
+ function g313_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: g313_s
+ !
+ g313_s = g313_b(l1,packb(set))
+ !
+ end function g313_s
+
+ function a314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: a314_b
+ !
+ a314_b = fnp_generic(3,0,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function a314_b
+
+ function a314_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: a314_s
+ !
+ a314_s = a314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function a314_s
+ function b314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: b314_b
+ !
+ b314_b = -0.5_ki * fnp_generic(3,2,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function b314_b
+
+ function b314_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: b314_s
+ !
+ b314_s = b314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function b314_s
+ function c314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: c314_b
+ !
+ c314_b = 0.25_ki * fnp_generic(3,4,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function c314_b
+
+ function c314_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: c314_s
+ !
+ c314_s = c314_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function c314_s
+ function d314_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: d314_b
+ !
+ d314_b = -0.125_ki * fnp_generic(3,6,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function d314_b
+
+ function d314_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: d314_s
+ !
+ d314_s = d314_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function d314_s
+ function e314_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: e314_b
+ !
+ e314_b = 0.0625_ki * fnp_generic(3,8,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function e314_b
+
+ function e314_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: e314_s
+ !
+ e314_s = e314_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function e314_s
+ function f314_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: f314_b
+ !
+ f314_b = -0.03125_ki * fnp_generic(3,10,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function f314_b
+
+ function f314_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: f314_s
+ !
+ f314_s = f314_b(l1,l2,l3,l4,packb(set))
+ !
+ end function f314_s
+ function g314_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: g314_b
+ !
+ g314_b = 0.015625_ki * fnp_generic(3,12,b_pin,2,(/ l1,l2 /))
+ !
+ end function g314_b
+
+ function g314_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: g314_s
+ !
+ g314_s = g314_b(l1,l2,packb(set))
+ !
+ end function g314_s
+ function h314_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: h314_b
+ !
+ h314_b = -0.0078125_ki * fnp_generic(3,14,b_pin,0,(/ integer:: /))
+ !
+ end function h314_b
+
+ function h314_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: h314_s
+ !
+ h314_s = h314_b(packb(set))
+ !
+ end function h314_s
+
+ function a315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: a315_b
+ !
+ a315_b = -1.0_ki * fnp_generic(3,0,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function a315_b
+
+ function a315_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: a315_s
+ !
+ a315_s = a315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function a315_s
+ function b315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: b315_b
+ !
+ b315_b = 0.5_ki * fnp_generic(3,2,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function b315_b
+
+ function b315_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: b315_s
+ !
+ b315_s = b315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function b315_s
+ function c315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: c315_b
+ !
+ c315_b = -0.25_ki * fnp_generic(3,4,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function c315_b
+
+ function c315_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: c315_s
+ !
+ c315_s = c315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function c315_s
+ function d315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: d315_b
+ !
+ d315_b = 0.125_ki * fnp_generic(3,6,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function d315_b
+
+ function d315_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: d315_s
+ !
+ d315_s = d315_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function d315_s
+ function e315_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: e315_b
+ !
+ e315_b = -0.0625_ki * fnp_generic(3,8,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function e315_b
+
+ function e315_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: e315_s
+ !
+ e315_s = e315_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function e315_s
+ function f315_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: f315_b
+ !
+ f315_b = 0.03125_ki * fnp_generic(3,10,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function f315_b
+
+ function f315_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: f315_s
+ !
+ f315_s = f315_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function f315_s
+ function g315_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: g315_b
+ !
+ g315_b = -0.015625_ki * fnp_generic(3,12,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function g315_b
+
+ function g315_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: g315_s
+ !
+ g315_s = g315_b(l1,l2,l3,packb(set))
+ !
+ end function g315_s
+ function h315_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: h315_b
+ !
+ h315_b = 0.0078125_ki * fnp_generic(3,14,b_pin,1,(/ l1 /))
+ !
+ end function h315_b
+
+ function h315_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: h315_s
+ !
+ h315_s = h315_b(l1,packb(set))
+ !
+ end function h315_s
+
+ function a316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin
+ type(form_factor) :: a316_b
+ !
+ a316_b = fnp_generic(3,0,b_pin,16,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16 /))
+ !
+ end function a316_b
+
+ function a316_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16
+ type(form_factor) :: a316_s
+ !
+ a316_s = a316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,packb(set))
+ !
+ end function a316_s
+ function b316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: b316_b
+ !
+ b316_b = -0.5_ki * fnp_generic(3,2,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function b316_b
+
+ function b316_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: b316_s
+ !
+ b316_s = b316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function b316_s
+ function c316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: c316_b
+ !
+ c316_b = 0.25_ki * fnp_generic(3,4,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function c316_b
+
+ function c316_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: c316_s
+ !
+ c316_s = c316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function c316_s
+ function d316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: d316_b
+ !
+ d316_b = -0.125_ki * fnp_generic(3,6,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function d316_b
+
+ function d316_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: d316_s
+ !
+ d316_s = d316_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function d316_s
+ function e316_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: e316_b
+ !
+ e316_b = 0.0625_ki * fnp_generic(3,8,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function e316_b
+
+ function e316_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: e316_s
+ !
+ e316_s = e316_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function e316_s
+ function f316_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: f316_b
+ !
+ f316_b = -0.03125_ki * fnp_generic(3,10,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function f316_b
+
+ function f316_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: f316_s
+ !
+ f316_s = f316_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function f316_s
+ function g316_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: g316_b
+ !
+ g316_b = 0.015625_ki * fnp_generic(3,12,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function g316_b
+
+ function g316_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: g316_s
+ !
+ g316_s = g316_b(l1,l2,l3,l4,packb(set))
+ !
+ end function g316_s
+ function h316_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: h316_b
+ !
+ h316_b = -0.0078125_ki * fnp_generic(3,14,b_pin,2,(/ l1,l2 /))
+ !
+ end function h316_b
+
+ function h316_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: h316_s
+ !
+ h316_s = h316_b(l1,l2,packb(set))
+ !
+ end function h316_s
+ function i316_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: i316_b
+ !
+ i316_b = 0.00390625_ki * fnp_generic(3,16,b_pin,0,(/ integer:: /))
+ !
+ end function i316_b
+
+ function i316_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: i316_s
+ !
+ i316_s = i316_b(packb(set))
+ !
+ end function i316_s
+
+ function a317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,b_pin
+ type(form_factor) :: a317_b
+ !
+ a317_b = -1.0_ki * fnp_generic(3,0,b_pin,17,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17 /))
+ !
+ end function a317_b
+
+ function a317_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17
+ type(form_factor) :: a317_s
+ !
+ a317_s = a317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,packb(set))
+ !
+ end function a317_s
+ function b317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: b317_b
+ !
+ b317_b = 0.5_ki * fnp_generic(3,2,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function b317_b
+
+ function b317_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: b317_s
+ !
+ b317_s = b317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function b317_s
+ function c317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: c317_b
+ !
+ c317_b = -0.25_ki * fnp_generic(3,4,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function c317_b
+
+ function c317_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: c317_s
+ !
+ c317_s = c317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function c317_s
+ function d317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: d317_b
+ !
+ d317_b = 0.125_ki * fnp_generic(3,6,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function d317_b
+
+ function d317_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: d317_s
+ !
+ d317_s = d317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function d317_s
+ function e317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: e317_b
+ !
+ e317_b = -0.0625_ki * fnp_generic(3,8,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function e317_b
+
+ function e317_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: e317_s
+ !
+ e317_s = e317_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function e317_s
+ function f317_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: f317_b
+ !
+ f317_b = 0.03125_ki * fnp_generic(3,10,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function f317_b
+
+ function f317_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: f317_s
+ !
+ f317_s = f317_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function f317_s
+ function g317_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: g317_b
+ !
+ g317_b = -0.015625_ki * fnp_generic(3,12,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function g317_b
+
+ function g317_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: g317_s
+ !
+ g317_s = g317_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function g317_s
+ function h317_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: h317_b
+ !
+ h317_b = 0.0078125_ki * fnp_generic(3,14,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function h317_b
+
+ function h317_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: h317_s
+ !
+ h317_s = h317_b(l1,l2,l3,packb(set))
+ !
+ end function h317_s
+ function i317_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: i317_b
+ !
+ i317_b = -0.00390625_ki * fnp_generic(3,16,b_pin,1,(/ l1 /))
+ !
+ end function i317_b
+
+ function i317_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: i317_s
+ !
+ i317_s = i317_b(l1,packb(set))
+ !
+ end function i317_s
+
+ function my_a41_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_a41_b
+ !
+ my_a41_b = -1.0_ki * fnp_generic(4,0,b_pin,1,(/ l1 /))
+ !
+ end function my_a41_b
+
+ function my_a41_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_a41_s
+ !
+ my_a41_s = my_a41_b(l1,packb(set))
+ !
+ end function my_a41_s
+
+ function my_a42_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: my_a42_b
+ !
+ my_a42_b = fnp_generic(4,0,b_pin,2,(/ l1,l2 /))
+ !
+ end function my_a42_b
+
+ function my_a42_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: my_a42_s
+ !
+ my_a42_s = my_a42_b(l1,l2,packb(set))
+ !
+ end function my_a42_s
+ function my_b42_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: my_b42_b
+ !
+ my_b42_b = -0.5_ki * fnp_generic(4,2,b_pin,0,(/ integer:: /))
+ !
+ end function my_b42_b
+
+ function my_b42_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: my_b42_s
+ !
+ my_b42_s = my_b42_b(packb(set))
+ !
+ end function my_b42_s
+
+ function my_a43_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: my_a43_b
+ !
+ my_a43_b = -1.0_ki * fnp_generic(4,0,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function my_a43_b
+
+ function my_a43_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: my_a43_s
+ !
+ my_a43_s = my_a43_b(l1,l2,l3,packb(set))
+ !
+ end function my_a43_s
+ function my_b43_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: my_b43_b
+ !
+ my_b43_b = 0.5_ki * fnp_generic(4,2,b_pin,1,(/ l1 /))
+ !
+ end function my_b43_b
+
+ function my_b43_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: my_b43_s
+ !
+ my_b43_s = my_b43_b(l1,packb(set))
+ !
+ end function my_b43_s
+
+ function my_a44_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: my_a44_b
+ !
+ my_a44_b = fnp_generic(4,0,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function my_a44_b
+
+ function my_a44_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: my_a44_s
+ !
+ my_a44_s = my_a44_b(l1,l2,l3,l4,packb(set))
+ !
+ end function my_a44_s
+ function my_b44_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: my_b44_b
+ !
+ my_b44_b = -0.5_ki * fnp_generic(4,2,b_pin,2,(/ l1,l2 /))
+ !
+ end function my_b44_b
+
+ function my_b44_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: my_b44_s
+ !
+ my_b44_s = my_b44_b(l1,l2,packb(set))
+ !
+ end function my_b44_s
+ function my_c44_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: my_c44_b
+ !
+ my_c44_b = 0.25_ki * fnp_generic(4,4,b_pin,0,(/ integer:: /))
+ !
+ end function my_c44_b
+
+ function my_c44_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: my_c44_s
+ !
+ my_c44_s = my_c44_b(packb(set))
+ !
+ end function my_c44_s
+
+ function a45_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: a45_b
+ !
+ a45_b = -1.0_ki * fnp_generic(4,0,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function a45_b
+
+ function a45_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: a45_s
+ !
+ a45_s = a45_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function a45_s
+ function b45_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: b45_b
+ !
+ b45_b = 0.5_ki * fnp_generic(4,2,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function b45_b
+
+ function b45_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: b45_s
+ !
+ b45_s = b45_b(l1,l2,l3,packb(set))
+ !
+ end function b45_s
+ function c45_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: c45_b
+ !
+ c45_b = -0.25_ki * fnp_generic(4,4,b_pin,1,(/ l1 /))
+ !
+ end function c45_b
+
+ function c45_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: c45_s
+ !
+ c45_s = c45_b(l1,packb(set))
+ !
+ end function c45_s
+
+ function a46_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: a46_b
+ !
+ a46_b = fnp_generic(4,0,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function a46_b
+
+ function a46_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: a46_s
+ !
+ a46_s = a46_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function a46_s
+ function b46_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: b46_b
+ !
+ b46_b = -0.5_ki * fnp_generic(4,2,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function b46_b
+
+ function b46_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: b46_s
+ !
+ b46_s = b46_b(l1,l2,l3,l4,packb(set))
+ !
+ end function b46_s
+ function c46_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: c46_b
+ !
+ c46_b = 0.25_ki * fnp_generic(4,4,b_pin,2,(/ l1,l2 /))
+ !
+ end function c46_b
+
+ function c46_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: c46_s
+ !
+ c46_s = c46_b(l1,l2,packb(set))
+ !
+ end function c46_s
+ function d46_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: d46_b
+ !
+ d46_b = -0.125_ki * fnp_generic(4,6,b_pin,0,(/ integer:: /))
+ !
+ end function d46_b
+
+ function d46_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: d46_s
+ !
+ d46_s = d46_b(packb(set))
+ !
+ end function d46_s
+
+ function a47_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: a47_b
+ !
+ a47_b = -1.0_ki * fnp_generic(4,0,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function a47_b
+
+ function a47_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: a47_s
+ !
+ a47_s = a47_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function a47_s
+ function b47_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: b47_b
+ !
+ b47_b = 0.5_ki * fnp_generic(4,2,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function b47_b
+
+ function b47_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: b47_s
+ !
+ b47_s = b47_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function b47_s
+ function c47_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: c47_b
+ !
+ c47_b = -0.25_ki * fnp_generic(4,4,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function c47_b
+
+ function c47_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: c47_s
+ !
+ c47_s = c47_b(l1,l2,l3,packb(set))
+ !
+ end function c47_s
+ function d47_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: d47_b
+ !
+ d47_b = 0.125_ki * fnp_generic(4,6,b_pin,1,(/ l1 /))
+ !
+ end function d47_b
+
+ function d47_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: d47_s
+ !
+ d47_s = d47_b(l1,packb(set))
+ !
+ end function d47_s
+
+ function a48_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: a48_b
+ !
+ a48_b = fnp_generic(4,0,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function a48_b
+
+ function a48_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: a48_s
+ !
+ a48_s = a48_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function a48_s
+ function b48_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: b48_b
+ !
+ b48_b = -0.5_ki * fnp_generic(4,2,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function b48_b
+
+ function b48_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: b48_s
+ !
+ b48_s = b48_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function b48_s
+ function c48_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: c48_b
+ !
+ c48_b = 0.25_ki * fnp_generic(4,4,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function c48_b
+
+ function c48_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: c48_s
+ !
+ c48_s = c48_b(l1,l2,l3,l4,packb(set))
+ !
+ end function c48_s
+ function d48_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: d48_b
+ !
+ d48_b = -0.125_ki * fnp_generic(4,6,b_pin,2,(/ l1,l2 /))
+ !
+ end function d48_b
+
+ function d48_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: d48_s
+ !
+ d48_s = d48_b(l1,l2,packb(set))
+ !
+ end function d48_s
+ function e48_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: e48_b
+ !
+ e48_b = 0.0625_ki * fnp_generic(4,8,b_pin,0,(/ integer:: /))
+ !
+ end function e48_b
+
+ function e48_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: e48_s
+ !
+ e48_s = e48_b(packb(set))
+ !
+ end function e48_s
+
+ function a49_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: a49_b
+ !
+ a49_b = -1.0_ki * fnp_generic(4,0,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function a49_b
+
+ function a49_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: a49_s
+ !
+ a49_s = a49_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function a49_s
+ function b49_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: b49_b
+ !
+ b49_b = 0.5_ki * fnp_generic(4,2,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function b49_b
+
+ function b49_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: b49_s
+ !
+ b49_s = b49_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function b49_s
+ function c49_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: c49_b
+ !
+ c49_b = -0.25_ki * fnp_generic(4,4,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function c49_b
+
+ function c49_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: c49_s
+ !
+ c49_s = c49_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function c49_s
+ function d49_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: d49_b
+ !
+ d49_b = 0.125_ki * fnp_generic(4,6,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function d49_b
+
+ function d49_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: d49_s
+ !
+ d49_s = d49_b(l1,l2,l3,packb(set))
+ !
+ end function d49_s
+ function e49_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: e49_b
+ !
+ e49_b = -0.0625_ki * fnp_generic(4,8,b_pin,1,(/ l1 /))
+ !
+ end function e49_b
+
+ function e49_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: e49_s
+ !
+ e49_s = e49_b(l1,packb(set))
+ !
+ end function e49_s
+
+ function a410_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: a410_b
+ !
+ a410_b = fnp_generic(4,0,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function a410_b
+
+ function a410_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: a410_s
+ !
+ a410_s = a410_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function a410_s
+ function b410_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: b410_b
+ !
+ b410_b = -0.5_ki * fnp_generic(4,2,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function b410_b
+
+ function b410_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: b410_s
+ !
+ b410_s = b410_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function b410_s
+ function c410_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: c410_b
+ !
+ c410_b = 0.25_ki * fnp_generic(4,4,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function c410_b
+
+ function c410_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: c410_s
+ !
+ c410_s = c410_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function c410_s
+ function d410_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: d410_b
+ !
+ d410_b = -0.125_ki * fnp_generic(4,6,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function d410_b
+
+ function d410_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: d410_s
+ !
+ d410_s = d410_b(l1,l2,l3,l4,packb(set))
+ !
+ end function d410_s
+ function e410_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: e410_b
+ !
+ e410_b = 0.0625_ki * fnp_generic(4,8,b_pin,2,(/ l1,l2 /))
+ !
+ end function e410_b
+
+ function e410_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: e410_s
+ !
+ e410_s = e410_b(l1,l2,packb(set))
+ !
+ end function e410_s
+ function f410_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: f410_b
+ !
+ f410_b = -0.03125_ki * fnp_generic(4,10,b_pin,0,(/ integer:: /))
+ !
+ end function f410_b
+
+ function f410_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: f410_s
+ !
+ f410_s = f410_b(packb(set))
+ !
+ end function f410_s
+
+ function a411_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: a411_b
+ !
+ a411_b = -1.0_ki * fnp_generic(4,0,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function a411_b
+
+ function a411_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: a411_s
+ !
+ a411_s = a411_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function a411_s
+ function b411_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: b411_b
+ !
+ b411_b = 0.5_ki * fnp_generic(4,2,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function b411_b
+
+ function b411_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: b411_s
+ !
+ b411_s = b411_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function b411_s
+ function c411_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: c411_b
+ !
+ c411_b = -0.25_ki * fnp_generic(4,4,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function c411_b
+
+ function c411_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: c411_s
+ !
+ c411_s = c411_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function c411_s
+ function d411_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: d411_b
+ !
+ d411_b = 0.125_ki * fnp_generic(4,6,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function d411_b
+
+ function d411_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: d411_s
+ !
+ d411_s = d411_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function d411_s
+ function e411_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: e411_b
+ !
+ e411_b = -0.0625_ki * fnp_generic(4,8,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function e411_b
+
+ function e411_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: e411_s
+ !
+ e411_s = e411_b(l1,l2,l3,packb(set))
+ !
+ end function e411_s
+ function f411_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: f411_b
+ !
+ f411_b = 0.03125_ki * fnp_generic(4,10,b_pin,1,(/ l1 /))
+ !
+ end function f411_b
+
+ function f411_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: f411_s
+ !
+ f411_s = f411_b(l1,packb(set))
+ !
+ end function f411_s
+
+ function a412_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: a412_b
+ !
+ a412_b = fnp_generic(4,0,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function a412_b
+
+ function a412_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: a412_s
+ !
+ a412_s = a412_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function a412_s
+ function b412_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: b412_b
+ !
+ b412_b = -0.5_ki * fnp_generic(4,2,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function b412_b
+
+ function b412_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: b412_s
+ !
+ b412_s = b412_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function b412_s
+ function c412_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: c412_b
+ !
+ c412_b = 0.25_ki * fnp_generic(4,4,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function c412_b
+
+ function c412_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: c412_s
+ !
+ c412_s = c412_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function c412_s
+ function d412_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: d412_b
+ !
+ d412_b = -0.125_ki * fnp_generic(4,6,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function d412_b
+
+ function d412_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: d412_s
+ !
+ d412_s = d412_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function d412_s
+ function e412_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: e412_b
+ !
+ e412_b = 0.0625_ki * fnp_generic(4,8,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function e412_b
+
+ function e412_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: e412_s
+ !
+ e412_s = e412_b(l1,l2,l3,l4,packb(set))
+ !
+ end function e412_s
+ function f412_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: f412_b
+ !
+ f412_b = -0.03125_ki * fnp_generic(4,10,b_pin,2,(/ l1,l2 /))
+ !
+ end function f412_b
+
+ function f412_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: f412_s
+ !
+ f412_s = f412_b(l1,l2,packb(set))
+ !
+ end function f412_s
+ function g412_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: g412_b
+ !
+ g412_b = 0.015625_ki * fnp_generic(4,12,b_pin,0,(/ integer:: /))
+ !
+ end function g412_b
+
+ function g412_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: g412_s
+ !
+ g412_s = g412_b(packb(set))
+ !
+ end function g412_s
+
+ function a413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: a413_b
+ !
+ a413_b = -1.0_ki * fnp_generic(4,0,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function a413_b
+
+ function a413_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: a413_s
+ !
+ a413_s = a413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function a413_s
+ function b413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: b413_b
+ !
+ b413_b = 0.5_ki * fnp_generic(4,2,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function b413_b
+
+ function b413_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: b413_s
+ !
+ b413_s = b413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function b413_s
+ function c413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: c413_b
+ !
+ c413_b = -0.25_ki * fnp_generic(4,4,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function c413_b
+
+ function c413_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: c413_s
+ !
+ c413_s = c413_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function c413_s
+ function d413_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: d413_b
+ !
+ d413_b = 0.125_ki * fnp_generic(4,6,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function d413_b
+
+ function d413_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: d413_s
+ !
+ d413_s = d413_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function d413_s
+ function e413_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: e413_b
+ !
+ e413_b = -0.0625_ki * fnp_generic(4,8,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function e413_b
+
+ function e413_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: e413_s
+ !
+ e413_s = e413_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function e413_s
+ function f413_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: f413_b
+ !
+ f413_b = 0.03125_ki * fnp_generic(4,10,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function f413_b
+
+ function f413_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: f413_s
+ !
+ f413_s = f413_b(l1,l2,l3,packb(set))
+ !
+ end function f413_s
+ function g413_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: g413_b
+ !
+ g413_b = -0.015625_ki * fnp_generic(4,12,b_pin,1,(/ l1 /))
+ !
+ end function g413_b
+
+ function g413_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: g413_s
+ !
+ g413_s = g413_b(l1,packb(set))
+ !
+ end function g413_s
+
+ function a414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: a414_b
+ !
+ a414_b = fnp_generic(4,0,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function a414_b
+
+ function a414_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: a414_s
+ !
+ a414_s = a414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function a414_s
+ function b414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: b414_b
+ !
+ b414_b = -0.5_ki * fnp_generic(4,2,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function b414_b
+
+ function b414_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: b414_s
+ !
+ b414_s = b414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function b414_s
+ function c414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: c414_b
+ !
+ c414_b = 0.25_ki * fnp_generic(4,4,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function c414_b
+
+ function c414_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: c414_s
+ !
+ c414_s = c414_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function c414_s
+ function d414_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: d414_b
+ !
+ d414_b = -0.125_ki * fnp_generic(4,6,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function d414_b
+
+ function d414_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: d414_s
+ !
+ d414_s = d414_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function d414_s
+ function e414_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: e414_b
+ !
+ e414_b = 0.0625_ki * fnp_generic(4,8,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function e414_b
+
+ function e414_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: e414_s
+ !
+ e414_s = e414_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function e414_s
+ function f414_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: f414_b
+ !
+ f414_b = -0.03125_ki * fnp_generic(4,10,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function f414_b
+
+ function f414_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: f414_s
+ !
+ f414_s = f414_b(l1,l2,l3,l4,packb(set))
+ !
+ end function f414_s
+ function g414_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: g414_b
+ !
+ g414_b = 0.015625_ki * fnp_generic(4,12,b_pin,2,(/ l1,l2 /))
+ !
+ end function g414_b
+
+ function g414_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: g414_s
+ !
+ g414_s = g414_b(l1,l2,packb(set))
+ !
+ end function g414_s
+ function h414_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: h414_b
+ !
+ h414_b = -0.0078125_ki * fnp_generic(4,14,b_pin,0,(/ integer:: /))
+ !
+ end function h414_b
+
+ function h414_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: h414_s
+ !
+ h414_s = h414_b(packb(set))
+ !
+ end function h414_s
+
+ function a415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: a415_b
+ !
+ a415_b = -1.0_ki * fnp_generic(4,0,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function a415_b
+
+ function a415_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: a415_s
+ !
+ a415_s = a415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function a415_s
+ function b415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: b415_b
+ !
+ b415_b = 0.5_ki * fnp_generic(4,2,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function b415_b
+
+ function b415_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: b415_s
+ !
+ b415_s = b415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function b415_s
+ function c415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: c415_b
+ !
+ c415_b = -0.25_ki * fnp_generic(4,4,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function c415_b
+
+ function c415_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: c415_s
+ !
+ c415_s = c415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function c415_s
+ function d415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: d415_b
+ !
+ d415_b = 0.125_ki * fnp_generic(4,6,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function d415_b
+
+ function d415_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: d415_s
+ !
+ d415_s = d415_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function d415_s
+ function e415_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: e415_b
+ !
+ e415_b = -0.0625_ki * fnp_generic(4,8,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function e415_b
+
+ function e415_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: e415_s
+ !
+ e415_s = e415_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function e415_s
+ function f415_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: f415_b
+ !
+ f415_b = 0.03125_ki * fnp_generic(4,10,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function f415_b
+
+ function f415_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: f415_s
+ !
+ f415_s = f415_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function f415_s
+ function g415_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: g415_b
+ !
+ g415_b = -0.015625_ki * fnp_generic(4,12,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function g415_b
+
+ function g415_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: g415_s
+ !
+ g415_s = g415_b(l1,l2,l3,packb(set))
+ !
+ end function g415_s
+ function h415_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: h415_b
+ !
+ h415_b = 0.0078125_ki * fnp_generic(4,14,b_pin,1,(/ l1 /))
+ !
+ end function h415_b
+
+ function h415_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: h415_s
+ !
+ h415_s = h415_b(l1,packb(set))
+ !
+ end function h415_s
+
+ function a416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin
+ type(form_factor) :: a416_b
+ !
+ a416_b = fnp_generic(4,0,b_pin,16,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16 /))
+ !
+ end function a416_b
+
+ function a416_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16
+ type(form_factor) :: a416_s
+ !
+ a416_s = a416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,packb(set))
+ !
+ end function a416_s
+ function b416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: b416_b
+ !
+ b416_b = -0.5_ki * fnp_generic(4,2,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function b416_b
+
+ function b416_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: b416_s
+ !
+ b416_s = b416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function b416_s
+ function c416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: c416_b
+ !
+ c416_b = 0.25_ki * fnp_generic(4,4,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function c416_b
+
+ function c416_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: c416_s
+ !
+ c416_s = c416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function c416_s
+ function d416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: d416_b
+ !
+ d416_b = -0.125_ki * fnp_generic(4,6,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function d416_b
+
+ function d416_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: d416_s
+ !
+ d416_s = d416_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function d416_s
+ function e416_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: e416_b
+ !
+ e416_b = 0.0625_ki * fnp_generic(4,8,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function e416_b
+
+ function e416_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: e416_s
+ !
+ e416_s = e416_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function e416_s
+ function f416_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: f416_b
+ !
+ f416_b = -0.03125_ki * fnp_generic(4,10,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function f416_b
+
+ function f416_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: f416_s
+ !
+ f416_s = f416_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function f416_s
+ function g416_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: g416_b
+ !
+ g416_b = 0.015625_ki * fnp_generic(4,12,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function g416_b
+
+ function g416_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: g416_s
+ !
+ g416_s = g416_b(l1,l2,l3,l4,packb(set))
+ !
+ end function g416_s
+ function h416_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: h416_b
+ !
+ h416_b = -0.0078125_ki * fnp_generic(4,14,b_pin,2,(/ l1,l2 /))
+ !
+ end function h416_b
+
+ function h416_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: h416_s
+ !
+ h416_s = h416_b(l1,l2,packb(set))
+ !
+ end function h416_s
+ function i416_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: i416_b
+ !
+ i416_b = 0.00390625_ki * fnp_generic(4,16,b_pin,0,(/ integer:: /))
+ !
+ end function i416_b
+
+ function i416_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: i416_s
+ !
+ i416_s = i416_b(packb(set))
+ !
+ end function i416_s
+
+ function a417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,b_pin
+ type(form_factor) :: a417_b
+ !
+ a417_b = -1.0_ki * fnp_generic(4,0,b_pin,17,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17 /))
+ !
+ end function a417_b
+
+ function a417_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17
+ type(form_factor) :: a417_s
+ !
+ a417_s = a417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,packb(set))
+ !
+ end function a417_s
+ function b417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,b_pin
+ type(form_factor) :: b417_b
+ !
+ b417_b = 0.5_ki * fnp_generic(4,2,b_pin,15,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15 /))
+ !
+ end function b417_b
+
+ function b417_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15
+ type(form_factor) :: b417_s
+ !
+ b417_s = b417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,packb(set))
+ !
+ end function b417_s
+ function c417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,b_pin
+ type(form_factor) :: c417_b
+ !
+ c417_b = -0.25_ki * fnp_generic(4,4,b_pin,13,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13 /))
+ !
+ end function c417_b
+
+ function c417_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13
+ type(form_factor) :: c417_s
+ !
+ c417_s = c417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,packb(set))
+ !
+ end function c417_s
+ function d417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,b_pin
+ type(form_factor) :: d417_b
+ !
+ d417_b = 0.125_ki * fnp_generic(4,6,b_pin,11,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11 /))
+ !
+ end function d417_b
+
+ function d417_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11
+ type(form_factor) :: d417_s
+ !
+ d417_s = d417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,packb(set))
+ !
+ end function d417_s
+ function e417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,b_pin
+ type(form_factor) :: e417_b
+ !
+ e417_b = -0.0625_ki * fnp_generic(4,8,b_pin,9,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9 /))
+ !
+ end function e417_b
+
+ function e417_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9
+ type(form_factor) :: e417_s
+ !
+ e417_s = e417_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,packb(set))
+ !
+ end function e417_s
+ function f417_b(l1,l2,l3,l4,l5,l6,l7,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,b_pin
+ type(form_factor) :: f417_b
+ !
+ f417_b = 0.03125_ki * fnp_generic(4,10,b_pin,7,(/ l1,l2,l3,l4,l5,l6,l7 /))
+ !
+ end function f417_b
+
+ function f417_s(l1,l2,l3,l4,l5,l6,l7,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7
+ type(form_factor) :: f417_s
+ !
+ f417_s = f417_b(l1,l2,l3,l4,l5,l6,l7,packb(set))
+ !
+ end function f417_s
+ function g417_b(l1,l2,l3,l4,l5,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,b_pin
+ type(form_factor) :: g417_b
+ !
+ g417_b = -0.015625_ki * fnp_generic(4,12,b_pin,5,(/ l1,l2,l3,l4,l5 /))
+ !
+ end function g417_b
+
+ function g417_s(l1,l2,l3,l4,l5,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5
+ type(form_factor) :: g417_s
+ !
+ g417_s = g417_b(l1,l2,l3,l4,l5,packb(set))
+ !
+ end function g417_s
+ function h417_b(l1,l2,l3,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,b_pin
+ type(form_factor) :: h417_b
+ !
+ h417_b = 0.0078125_ki * fnp_generic(4,14,b_pin,3,(/ l1,l2,l3 /))
+ !
+ end function h417_b
+
+ function h417_s(l1,l2,l3,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3
+ type(form_factor) :: h417_s
+ !
+ h417_s = h417_b(l1,l2,l3,packb(set))
+ !
+ end function h417_s
+ function i417_b(l1,b_pin)
+ !
+ integer, intent(in) :: l1,b_pin
+ type(form_factor) :: i417_b
+ !
+ i417_b = -0.00390625_ki * fnp_generic(4,16,b_pin,1,(/ l1 /))
+ !
+ end function i417_b
+
+ function i417_s(l1,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1
+ type(form_factor) :: i417_s
+ !
+ i417_s = i417_b(l1,packb(set))
+ !
+ end function i417_s
+
+ function a418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18,b_pin
+ type(form_factor) :: a418_b
+ !
+ a418_b = fnp_generic(4,0,b_pin,18,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18 /))
+ !
+ end function a418_b
+
+ function a418_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18
+ type(form_factor) :: a418_s
+ !
+ a418_s = a418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,l17,l18,packb(set))
+ !
+ end function a418_s
+ function b418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,b_pin
+ type(form_factor) :: b418_b
+ !
+ b418_b = -0.5_ki * fnp_generic(4,2,b_pin,16,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16 /))
+ !
+ end function b418_b
+
+ function b418_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16
+ type(form_factor) :: b418_s
+ !
+ b418_s = b418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,l16,packb(set))
+ !
+ end function b418_s
+ function c418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,b_pin
+ type(form_factor) :: c418_b
+ !
+ c418_b = 0.25_ki * fnp_generic(4,4,b_pin,14,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14 /))
+ !
+ end function c418_b
+
+ function c418_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14
+ type(form_factor) :: c418_s
+ !
+ c418_s = c418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,packb(set))
+ !
+ end function c418_s
+ function d418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,b_pin
+ type(form_factor) :: d418_b
+ !
+ d418_b = -0.125_ki * fnp_generic(4,6,b_pin,12,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12 /))
+ !
+ end function d418_b
+
+ function d418_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12
+ type(form_factor) :: d418_s
+ !
+ d418_s = d418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,packb(set))
+ !
+ end function d418_s
+ function e418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,b_pin
+ type(form_factor) :: e418_b
+ !
+ e418_b = 0.0625_ki * fnp_generic(4,8,b_pin,10,(/ l1,l2,l3,l4,l5,l6,l7,l8,l9,l10 /))
+ !
+ end function e418_b
+
+ function e418_s(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,l9,l10
+ type(form_factor) :: e418_s
+ !
+ e418_s = e418_b(l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,packb(set))
+ !
+ end function e418_s
+ function f418_b(l1,l2,l3,l4,l5,l6,l7,l8,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8,b_pin
+ type(form_factor) :: f418_b
+ !
+ f418_b = -0.03125_ki * fnp_generic(4,10,b_pin,8,(/ l1,l2,l3,l4,l5,l6,l7,l8 /))
+ !
+ end function f418_b
+
+ function f418_s(l1,l2,l3,l4,l5,l6,l7,l8,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,l7,l8
+ type(form_factor) :: f418_s
+ !
+ f418_s = f418_b(l1,l2,l3,l4,l5,l6,l7,l8,packb(set))
+ !
+ end function f418_s
+ function g418_b(l1,l2,l3,l4,l5,l6,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6,b_pin
+ type(form_factor) :: g418_b
+ !
+ g418_b = 0.015625_ki * fnp_generic(4,12,b_pin,6,(/ l1,l2,l3,l4,l5,l6 /))
+ !
+ end function g418_b
+
+ function g418_s(l1,l2,l3,l4,l5,l6,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4,l5,l6
+ type(form_factor) :: g418_s
+ !
+ g418_s = g418_b(l1,l2,l3,l4,l5,l6,packb(set))
+ !
+ end function g418_s
+ function h418_b(l1,l2,l3,l4,b_pin)
+ !
+ integer, intent(in) :: l1,l2,l3,l4,b_pin
+ type(form_factor) :: h418_b
+ !
+ h418_b = -0.0078125_ki * fnp_generic(4,14,b_pin,4,(/ l1,l2,l3,l4 /))
+ !
+ end function h418_b
+
+ function h418_s(l1,l2,l3,l4,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2,l3,l4
+ type(form_factor) :: h418_s
+ !
+ h418_s = h418_b(l1,l2,l3,l4,packb(set))
+ !
+ end function h418_s
+ function i418_b(l1,l2,b_pin)
+ !
+ integer, intent(in) :: l1,l2,b_pin
+ type(form_factor) :: i418_b
+ !
+ i418_b = 0.00390625_ki * fnp_generic(4,16,b_pin,2,(/ l1,l2 /))
+ !
+ end function i418_b
+
+ function i418_s(l1,l2,set)
+ !
+ integer, intent (in), dimension(:) :: set
+ integer, intent(in) :: l1,l2
+ type(form_factor) :: i418_s
+ !
+ i418_s = i418_b(l1,l2,packb(set))
+ !
+ end function i418_s
+ function j418_b(b_pin)
+ !
+ integer, intent(in) :: b_pin
+ type(form_factor) :: j418_b
+ !
+ j418_b = -0.001953125_ki * fnp_generic(4,18,b_pin,0,(/ integer:: /))
+ !
+ end function j418_b
+
+ function j418_s(set)
+ !
+ integer, intent (in), dimension(:) :: set
+ type(form_factor) :: j418_s
+ !
+ j418_s = j418_b(packb(set))
+ !
+ end function j418_s
+
+end module form_factor_higher_ranks
diff --git a/golem95c-1.2.1/higherrank/generic_function_np.f90 b/golem95c-1.2.1/higherrank/generic_function_np.f90
new file mode 100644
index 0000000..9e62652
--- /dev/null
+++ b/golem95c-1.2.1/higherrank/generic_function_np.f90
@@ -0,0 +1,1497 @@
+! vim:ts=3:sw=3
+!****h* src/higherrank/generic_function_np.f90
+!
+!
+! NAME
+!
+! Module generic_function_np
+!
+! USAGE
+!
+! use generic_function_np
+!
+! DESCRIPTION
+!
+! This module contains the generic routines to compute the
+! n<=4 point functions in m dimensions with arbitrary rank
+!
+! OUTPUT
+!
+! It exports the public routine: fnp_generic
+!
+! USES
+!
+! * TODO
+! * array (src/module/array.f90)
+! * cache (src/module/cache.f90)
+! * constante (src/module/constante.f90)
+! * equal (src/module/equal.f90)
+! * form_factor_type (src/module/form_factor_type.f90)
+! * generic_function_3p (src/integrals/generic_function_3p.f90)
+! * matrice_s (src/kinematic/matrice_s.f90)
+! * precision (src/module/precision_golem.f90)
+! * s_matrix_type (src/module/s_matrix_type.f90)
+! * sortie_erreur (src/module/sortie_erreur.f90)
+! * tri_croissant (src/module/tri.f90)
+!
+!*****
+module generic_function_np
+ !
+ use precision_golem
+ use form_factor_4p
+ use form_factor_3p
+ use form_factor_2p
+ use form_factor_1p
+ use generic_function_4p
+ use generic_function_3p
+ use generic_function_2p
+ use generic_function_1p
+ use matrice_s
+ use array
+ use inverse_matrice
+ use form_factor_type
+ use s_matrix_type
+ use constante, only: czero
+ use logarithme
+ use sortie_erreur
+ use parametre
+ use equal
+ use cache
+ !
+
+ implicit none
+ !
+ private
+ !
+public :: fnp_generic
+private :: reduce_generic, reduce_pave_generic
+!
+!
+
+private :: f2p_ndim_0p_generic;
+
+!
+ !
+ contains
+ !
+ !
+
+ ! fnp_generic()
+ !
+ !
+ ! calculates form factor integrals in a generic way by
+ ! calling reduce_generic() or reduce_pave_generic()
+ !
+ ! Parameters:
+ ! leg_count
+ ! dim_nplus => dimension = 4+dim_nplus - 2*epsilon
+ ! b_pin : pinned legs
+ ! l_count : number of Feynman parameters in the numerator
+ ! l : array with Feynman parameters
+ ! depth (optional,internal only): current recursion depth
+
+ recursive function fnp_generic(leg_count,dim_nplus,b_pin,l_count,l,depth) result(return_val)
+ implicit none
+ integer, intent(in) :: leg_count
+ integer, intent(in) :: dim_nplus
+ integer, intent (in) :: b_pin
+ integer, intent (in) :: l_count
+ integer, intent (in),dimension(:) :: l
+ integer, intent (in), optional :: depth
+ type(form_factor) :: return_val, control
+ complex(ki) :: detS
+ integer :: cur_depth,i,b_used,hash
+
+ real(ki) :: limit_small_detS, limit_small_sumb
+ integer, save :: miss
+
+ limit_small_detS = 1E-15
+ limit_small_sumb = 1E-15
+
+
+ if (present(depth)) then
+ cur_depth=depth
+ else
+ cur_depth=0
+ end if
+
+ b_used=pminus(b_ref,b_pin)
+
+
+
+
+ ! simple Cache system
+ hash=0
+ if (leg_count<=4 .and. cur_depth <= 100) then ! do not use cache for control
+ ! max 6 legs supported
+ do i = 1, l_count
+ hash = hash*7 + l(i)
+ end do
+ hash = hash*128 + b_used
+ hash = hash*20 + dim_nplus
+ hash = hash*7 + leg_count
+ ! search backwards in cache, last entries are more probable
+ do i = cache_generic_count, 1, -1
+ if (cache_generic_tag(i)==hash) then
+ return_val=cache_generic(i)
+ return
+ end if
+ miss = miss + 1
+ end do
+ end if
+
+ do i = 1, l_count
+ if (locateb(l(i),b_used) > leg_count .and. leg_count>1 ) then
+ write (*, *) "WRONG CALL:", leg_count, dim_nplus,l_count, b_used
+ write (*, *) "depth:",cur_depth,"", "legs:", leg_count,"", "dim-n:",dim_nplus,"", "l_count",l_count, "l",l
+ write (*, *) l(i), b_pin, locateb(l(i),b_used)
+
+ return_val = 0
+ return
+
+ ! stop
+ end if
+ end do
+
+ ! test if S-matrix contains only zeros
+
+ if(test_mat_zero(s_mat_p,leg_count,b_pin)) then
+ return_val=0
+ !if (cur_depth==0) then
+ ! write (*,*) "Zero S-matrix."
+ !end if
+ return
+ end if
+
+
+ if ((leg_count>=2) &
+ .and. (cur_depth<=100) .and. ( dim_nplus>=2 .or. (l_count>leg_count) &
+ .or. (leg_count==4 .and. l_count>0) ) ) then
+ detS = calc_determinant(s_mat_p,leg_count,b_pin)
+
+
+ if (abs(detS) < limit_small_detS .or. (abs(sumb(b_pin))<=limit_small_sumb) .or. isnan(real(sumb(b_pin)))) then
+
+ return_val=reduce_pave_generic(leg_count,dim_nplus,b_pin,l_count,l,cur_depth)
+
+
+
+
+ if (hash /= 0 .and. cache_generic_count < 1000) then
+ cache_generic_count = cache_generic_count + 1
+ cache_generic(cache_generic_count) = return_val
+ cache_generic_tag(cache_generic_count) = hash
+ end if
+
+ return
+ end if
+ end if
+
+ return_val = reduce_generic(leg_count,dim_nplus,b_pin,l_count,l,cur_depth)
+
+ if ( (hash /= 0) .and. (cache_generic_count < 1000)) then
+ cache_generic_count = cache_generic_count + 1
+ cache_generic(cache_generic_count) = return_val
+ cache_generic_tag(cache_generic_count) = hash
+ end if
+
+ end function fnp_generic
+
+ !
+ !
+ ! reduce_generic
+ !
+ !
+ !
+ ! uses already implemented integrals or reduce assuming detS /= 0
+ !
+ recursive function reduce_generic(leg_count,dim_nplus,b_pin,l_count,l,depth) result(return_val)
+ implicit none
+ integer, intent(in) :: leg_count
+ integer, intent(in) :: dim_nplus
+ integer, intent (in) :: b_pin
+ integer, intent (in) :: l_count
+ integer, intent (in),dimension(:) :: l
+ integer, intent (in), optional :: depth
+ integer :: i,j,k,b_used,b_tmp,ib,cur_depth
+ type(form_factor) :: return_val, temp1, temp2
+ complex(ki), dimension(3) :: ret_temp, tmp4,tmp5
+ complex(ki) :: mass1, tmp
+ real(ki) :: r_tmp1,r_tmp2
+ integer :: n ! dimension = n + dim_nplus = 4-2epsilon + dim_nplus TODO: float
+ integer :: y
+ integer,dimension(size(l)) :: l_tmp1
+ integer,dimension(1) :: s1
+ logical :: usable
+
+ n = 4
+ if (present(depth)) then
+ cur_depth=depth
+ else
+ cur_depth=0
+ end if
+
+
+
+ b_used=pminus(b_ref,b_pin)
+ ret_temp=0._ki
+
+
+
+
+ ret_temp = 0
+
+ ! ===
+ ! some checks if everything is consistent
+ ! ===
+ if ((countb(b_used) /= leg_count ) .or. (size(l)/= l_count)) then
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: internal error in file generic_function_np.f90'
+ call catch_exception(0)
+ stop
+ end if
+
+ if (leg_count<=0 .or. leg_count>=5) then
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Internal error: not implemented, in file generic_function_np.f90.'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = ' Only leg_count = 1,2,3,4 supported.'
+ call catch_exception(0)
+ end if
+
+ ! =================================================
+ ! use existing (master) integrals if available
+ !
+ !
+ if (l_count == 0 .and. dim_nplus==0) then
+ select case (leg_count)
+ !case (5)
+ ! ret_temp(2:3) = a50(b_pin)
+ case (4)
+ return_val = a40(b_pin)
+ case (3)
+ ret_temp(1:3) = f3p(s_mat_p,b_used)
+ return_val= ret_temp
+ case (2)
+ ret_temp(2:3) = f2p(s_mat_p,b_used)
+ return_val= ret_temp
+ case (1)
+ ret_temp(2:3) = f1p(s_mat_p,b_used)
+ return_val= ret_temp
+ case default
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Internal error: not yet implemented, in file generic_function_np.f90'
+ call catch_exception(0)
+ end select
+ return
+ end if
+ if (l_count == 2 .and. dim_nplus==0 .and. leg_count==2) then
+ ret_temp(:) = czero
+ ret_temp(2:3) = f2p(s_mat_p, b_used,l(1),l(2))
+ return_val= ret_temp
+ return
+ end if
+
+
+ if (.false. .and. l_count == 2 .and. dim_nplus==2 .and. leg_count==3) then
+ !if (l_count == 2 .and. dim_nplus==2 .and. leg_count==3 ) then
+ ! TODO Trap:
+ ! The program stops because error in function f3p2m_np2 no need of
+ ! two mass six dimensional 3-point function with more
+ ! than one Feynman parameter in the numerator
+ ret_temp(:) = czero
+ ret_temp(2:3) = f3p_np2(s_mat_p, b_used,l(1),l(2))
+ return_val= ret_temp
+ return
+ end if
+
+
+ if (l_count == 3 .and. dim_nplus==2 .and. leg_count==4) then
+ ret_temp(:) = czero
+ ret_temp(3) = f4p_np2(s_mat_p, b_used,b_pin,l(1),l(2),l(3))
+ return_val= ret_temp
+ return
+ end if
+ !if (l_count == 4 .and. dim_nplus==2 .and. leg_count==4) then
+ ! ret_temp(:) = czero
+ ! ret_temp(3) = f4p_np2(s_mat_p, b_used,b_pin,l(1),l(2),l(3),l(4))
+ ! return_val= ret_temp
+ ! return
+ !end if
+ if (l_count == 4 .and. dim_nplus==0 .and. leg_count==4) then
+ return_val= a44(l(1),l(2),l(3),l(4),b_pin)
+ !ret_temp(1:3) = f4p(s_mat_p,b_used,b_pin,(1),l(2),l(3),l(4))
+ return
+ end if
+
+
+ if (l_count == 3 .and. dim_nplus==0 .and. leg_count==4) then
+ return_val= -a43(l(1),l(2),l(3),b_pin)
+ return
+ end if
+
+ if (l_count == 2 .and. dim_nplus==0 .and. leg_count==4) then
+ return_val= a42(l(1),l(2),b_pin)
+ return
+ end if
+
+ if (leg_count==3 .and. dim_nplus==0) then
+ select case (l_count)
+ case(3)
+ return_val = f3p(s_mat_p, b_used,l(1),l(2),l(3))
+ return
+ case(2)
+ return_val = f3p(s_mat_p, b_used,l(1),l(2))
+ return
+ end select
+ end if
+
+ if (l_count == 1 .and. dim_nplus==0) then
+ select case (leg_count)
+ case(4)
+ return_val=-a41(l(1),b_pin)
+ return
+ case (3)
+ ! return_val = -a31(l(1),b_pin)
+ return_val = f3p(s_mat_p, b_used,l(1))
+ return
+ case (2)
+ ! return_val = -a21(l(1),b_pin)
+ ret_temp(2:3) = f2p(s_mat_p,b_used,l(1))
+ return_val=ret_temp
+ return
+ end select
+ end if
+ if (l_count == 1 .and. dim_nplus==2) then
+ select case (leg_count)
+ case (4)
+ ret_temp(:) = czero
+ ret_temp(3) = f4p_np2(s_mat_p,b_used,b_pin,l(1))
+ return_val=ret_temp
+ return
+ ! case (3)
+ ! ret_temp(:) = czero
+ ! ret_temp(2:3) = f3p_np2(s_mat_p,b_used,l(1))
+ ! return_val=ret_temp
+ ! return
+ end select
+ end if
+
+
+ if (l_count == 0 .and. dim_nplus==2 ) then
+ select case (leg_count)
+ case (4)
+ ret_temp(:) = czero
+ ret_temp(3) = f4p_np2(s_mat_p,b_used,b_pin)
+ return_val=ret_temp
+ return
+ case (3)
+ ret_temp(:) = czero
+ ret_temp(2:3) = f3p_np2(s_mat_p,b_used)
+ return_val=ret_temp
+ return
+ case (2)
+ ret_temp(:) = czero
+ ret_temp(2:3) = f2p_np2(s_mat_p,b_used)
+ return_val=ret_temp
+ return
+ end select
+ end if
+
+ if (l_count == 2 .and. dim_nplus==2 ) then
+ select case (leg_count)
+ case (4)
+ return_val= f4p_np2(s_mat_p,b_used,b_pin,l(1),l(2))
+ return
+ end select
+ end if
+
+ if (l_count == 0 .and. dim_nplus==4 ) then
+ select case (leg_count)
+ case (41)
+ return_val= f4p_np4(s_mat_p,b_used,b_pin)
+ return
+ end select
+ end if
+
+
+
+
+ if (leg_count == 1 .and. dim_nplus==0) then
+ return_val = a10(b_pin)
+ return
+ end if
+
+
+ if (leg_count==1 .and. dim_nplus /= 0) then
+ ret_temp(:) = czero
+ s1=unpackb(b_used,countb(b_used))
+ k=s1(1)
+
+ if (iand(s_mat_p%b_cmplx, b_used) .eq. 0 ) then
+ mass1=-s_mat_p%pt_real(k,k)/2
+ else
+ mass1=-s_mat_p%pt_cmplx(k,k)/2
+ end if
+
+ return_val = f1p_ndim_generic(mass1,dim_nplus)
+
+ return
+ end if
+
+
+ ! ==================================================
+ ! Reduction of higher dimensional scalar integrals
+ !
+ ! ! cf. eq. (68) and (83) from hep-ph/0504267
+ !
+ if (l_count == 0) then ! dim_nplus>0
+ !
+ if (dim_nplus<=0) then
+ write (*, *) "internal error"
+ stop
+ end if
+
+ temp1 = fnp_generic(leg_count,dim_nplus-2,b_pin,l_count,l,cur_depth+1)
+ ib=b_used
+ j=0
+ temp2=0
+ do while (ib /= 0)
+ if (iand(ib,1) == 1 ) then
+ b_tmp=ibset(b_pin,j)
+ temp2=temp2 + b(j,b_pin)*fnp_generic(leg_count-1, dim_nplus-2,b_tmp,0,l,cur_depth+1)
+ end if
+ ib=ishft(ib,-1)
+ j=j+1
+ end do
+
+ tmp4(1) =temp1%a-temp2%a
+ tmp4(2) =temp1%b-temp2%b
+ tmp4(3) =temp1%c-temp2%c
+
+ tmp=n+dim_nplus - leg_count - 1
+
+ if (tmp/=0) then
+ ret_temp(3)= 1._ki/tmp * (tmp4(3) + 2._ki/tmp * tmp4(2) &
+ + 4._ki/tmp/tmp * tmp4(1) )
+ ret_temp(2)= 1._ki/tmp * (tmp4(2) + 2._ki/tmp * tmp4(1))
+ ret_temp(1)= 1._ki/tmp * tmp4(1)
+ else ! tmp==0
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Internal error:' &
+ //'This case is not yet implemented, in file generic_function_np.f90'
+ call catch_exception(0)
+ end if
+ if (sumb(b_pin)==0) then
+ return_val = 0
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Internal error:' &
+ //'This case (sumb=0) is not yet implemented, in file generic_function_np.f90'
+ call catch_exception(0)
+ return
+ end if
+
+ return_val = ret_temp/sumb(b_pin)
+ return
+ end if
+
+
+ ! =======================================================
+ ! Reduction of integrals with Feynman parameter in the
+ ! numerator
+ !
+ !Reduce, l_count >= 1
+ ! sec. 4.2 in hep-ph/0504267
+ ! general formular: eq. (58) in hep-ph/9911342 (different convention)
+ !
+
+
+
+ ! == First terms
+ ! == - invS * I^(n+2)
+
+ temp1=0
+
+ if (leg_count < 5) then
+
+ l_tmp1=0
+ do k = 2, l_count
+ l_tmp1(1:k-2) =l(2:k-1)
+ l_tmp1(k-1:l_count-2) =l(k+1:l_count)
+ i=max(l_count-2,0)
+ temp1=temp1-inv_s(l(1),l(k),b_pin)*fnp_generic(leg_count,dim_nplus+2,b_pin,i,l_tmp1(1:l_count-2),cur_depth+1)
+ end do
+
+
+
+ ! == Second term
+ ! == - b * I^(n+2)
+
+ temp2 = fnp_generic(leg_count,dim_nplus+2,b_pin,l_count-1,l(2:l_count),cur_depth+1)
+ tmp=(leg_count-n-dim_nplus -(l_count-1._ki)-1._ki)
+ tmp4(:)=(/ temp1%a, temp1%b, temp1%c /)
+ tmp5(:)=(/ temp2%a, temp2%b, temp2%c /)
+
+ if (tmp/= 0) then
+ tmp4(3)=tmp4(3)-(b(l(1),b_pin) * ( tmp * tmp5(3) + 2._ki*tmp5(2) ))
+ tmp4(2)=tmp4(2)-(b(l(1),b_pin) * ( tmp * tmp5(2) + 2._ki*tmp5(1) ))
+ tmp4(1)=tmp4(1)-(b(l(1),b_pin) * ( tmp * tmp5(1) ))
+ else
+ end if
+ temp1%a=tmp4(1)
+ temp1%b=tmp4(2)
+ temp1%c=tmp4(3)
+
+
+
+
+ end if
+
+
+ ! == Third term
+ ! == - c * invS * I^(n)(... S \ {j} )
+
+
+ ib = b_used
+ j=0
+
+ do while (ib /= 0)
+ if (iand(ib,1)==1 ) then
+ b_tmp=ibset(b_pin,j) ! equal to: b_tmp = punion( b_pin,ibset(0,j) )
+ do k = 1,1 ! not symmetrised yet
+ usable = .true.
+ ! exclude zero integrals
+ do i = 1,l_count
+ if (l(i) == j .and. k /= i ) then
+ usable =.false.
+ exit
+ end if
+ end do
+ if ( usable .and. (leg_count-1>0) ) then
+ l_tmp1(1:k-1) =l(1:k-1)
+ l_tmp1(k:l_count-1) =l(k+1:l_count)
+ temp2 = fnp_generic(leg_count-1,dim_nplus,b_tmp,l_count-1,l_tmp1(1:l_count-1),cur_depth+1)
+ temp1=temp1 + inv_s(j,l(k),b_pin)*temp2
+ end if
+ end do
+ end if
+ ib=ishft(ib,-1)
+ j=j+1
+ enddo
+
+ return_val = temp1
+ end function reduce_generic
+
+
+ ! Test if matrix is zero
+
+ function test_mat_zero (mat_p,used_size,b_pin)
+ implicit none
+ type(s_matrix_poly), intent(in) :: mat_p
+ integer, intent(in) :: used_size
+ integer, intent(in) :: b_pin
+ integer,dimension(used_size) :: s
+ logical :: test_mat_zero
+ integer :: b_used
+ integer :: i,j
+
+ b_used=pminus(b_ref,b_pin)
+ s = unpackb(b_used,countb(b_used))
+
+ if (iand(mat_p%b_cmplx, b_used) .eq. 0 ) then
+ do i = 1, used_size
+ do j = i, used_size
+ if ( .not. equal_real(mat_p%pt_real(s(i),s(j)),zero)) then
+ test_mat_zero = .false.
+ return
+ end if
+ end do
+ end do
+ else
+ do i = 1, used_size
+ do j = i, used_size
+ if ( .not. equal_zero(mat_p%pt_cmplx(s(i),s(j)))) then
+ test_mat_zero = .false.
+ return
+ end if
+ end do
+ end do
+ end if
+ test_mat_zero = .true.
+ return
+ end function test_mat_zero
+
+
+ ! Calculate determinant assume: mat_p symmetric
+recursive function calc_determinant(mat_p,used_size,b_pin) result(detS)
+ implicit none
+ type(s_matrix_poly), intent(in) :: mat_p
+ integer, intent(in) :: used_size
+ integer, intent(in) :: b_pin
+ complex(ki) :: detS
+
+ integer,dimension(used_size) :: s
+ integer :: b_used
+
+ ! check consistency
+ b_used=pminus(b_ref,b_pin)
+
+ if (countb(b_used) /= used_size ) then
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: internal error in file generic_function_np.f90 (inconsistency)'
+ call catch_exception(0)
+ stop
+ end if
+
+ s = unpackb(b_used,countb(b_used))
+
+ if (used_size == 1) then
+ if (iand(mat_p%b_cmplx, b_used) .eq. 0 ) then
+ detS= mat_p%pt_real(s(1),s(1))
+ else
+ detS= mat_p%pt_cmplx(s(1),s(1))
+ end if
+ else if (used_size == 2) then
+ ! calculate det(S), use s_ij=s_ji
+ if (iand(mat_p%b_cmplx, b_used) .eq. 0 ) then
+ detS = mat_p%pt_real(s(1),s(1))*mat_p%pt_real(s(2),s(2)) - &
+ mat_p%pt_real(s(1),s(2))*mat_p%pt_real(s(1),s(2))
+ else
+ detS = mat_p%pt_cmplx(s(1),s(1))*mat_p%pt_cmplx(s(2),s(2)) - &
+ mat_p%pt_cmplx(s(1),s(2))*mat_p%pt_cmplx(s(1),s(2))
+ end if
+ else if (used_size == 3) then
+ if (iand(mat_p%b_cmplx, b_used) .eq. 0 ) then
+ ! calculate det(S), use s_ij=s_ji
+ detS= mat_p%pt_real(s(1),s(3))**2 * mat_p%pt_real(s(2),s(2)) &
+ + 2*mat_p%pt_real(s(1),s(2)) * mat_p%pt_real(s(1),s(3))*mat_p%pt_real(s(2),s(3)) &
+ + mat_p%pt_real(s(1),s(2))**2 * mat_p%pt_real(s(3),s(3)) &
+ + mat_p%pt_real(s(1),s(1))*( mat_p%pt_real(s(2),s(3))**2 + &
+ mat_p%pt_real(s(2),s(2))*mat_p%pt_real(s(3),s(3)) )
+ else
+ ! calculate det(S), use s_ij=s_ji
+ detS= mat_p%pt_cmplx(s(1),s(3))**2 * mat_p%pt_cmplx(s(2),s(2)) &
+ + 2*mat_p%pt_cmplx(s(1),s(2)) * mat_p%pt_cmplx(s(1),s(3))*mat_p%pt_cmplx(s(2),s(3)) &
+ + mat_p%pt_cmplx(s(1),s(2))**2 * mat_p%pt_cmplx(s(3),s(3)) &
+ + mat_p%pt_cmplx(s(1),s(1))*( mat_p%pt_cmplx(s(2),s(3))**2 + &
+ mat_p%pt_cmplx(s(2),s(2))*mat_p%pt_cmplx(s(3),s(3)) )
+ end if
+ else if (used_size == 4) then
+ ! calculate det(S), use s_ij=s_ji
+ if (iand(mat_p%b_cmplx, b_used) .eq. 1 ) then
+ detS= mat_p%pt_cmplx(s(1),s(2))*mat_p%pt_cmplx(s(2),s(4))*mat_p%pt_cmplx(s(3),s(3))*mat_p%pt_cmplx(s(4),s(1)) &
+ - mat_p%pt_cmplx(s(1),s(2))*mat_p%pt_cmplx(s(2),s(3))*mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(1)) &
+ - mat_p%pt_cmplx(s(1),s(1))*mat_p%pt_cmplx(s(2),s(4))*mat_p%pt_cmplx(s(3),s(3))*mat_p%pt_cmplx(s(4),s(2)) &
+ + mat_p%pt_cmplx(s(1),s(1))*mat_p%pt_cmplx(s(2),s(3))*mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(2)) &
+ - mat_p%pt_cmplx(s(1),s(2))*mat_p%pt_cmplx(s(2),s(4))*mat_p%pt_cmplx(s(3),s(1))*mat_p%pt_cmplx(s(4),s(3)) &
+ - mat_p%pt_cmplx(s(1),s(1))*mat_p%pt_cmplx(s(2),s(4))*mat_p%pt_cmplx(s(3),s(2))*mat_p%pt_cmplx(s(4),s(3)) &
+ + mat_p%pt_cmplx(s(1),s(2))*mat_p%pt_cmplx(s(2),s(1))*mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(3)) &
+ - mat_p%pt_cmplx(s(1),s(1))*mat_p%pt_cmplx(s(2),s(2))*mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(3)) &
+ - mat_p%pt_cmplx(s(1),s(4))*(mat_p%pt_cmplx(s(2),s(3))*(mat_p%pt_cmplx(s(3),s(2))*mat_p%pt_cmplx(s(4),s(1)) &
+ - mat_p%pt_cmplx(s(3),s(1))*mat_p%pt_cmplx(s(4),s(2))) + &
+ mat_p%pt_cmplx(s(2),s(2))*(-(mat_p%pt_cmplx(s(3),s(3))*mat_p%pt_cmplx(s(4),s(1))) &
+ + mat_p%pt_cmplx(s(3),s(1))*mat_p%pt_cmplx(s(4),s(3))) + &
+ mat_p%pt_cmplx(s(2),s(1))*(mat_p%pt_cmplx(s(3),s(3))*mat_p%pt_cmplx(s(4),s(2)) &
+ - mat_p%pt_cmplx(s(3),s(2))*mat_p%pt_cmplx(s(4),s(3)))) - &
+ (mat_p%pt_cmplx(s(1),s(2))*(mat_p%pt_cmplx(s(2),s(3))*mat_p%pt_cmplx(s(3),s(1)) &
+ - mat_p%pt_cmplx(s(2),s(1))*mat_p%pt_cmplx(s(3),s(3))) + &
+ mat_p%pt_cmplx(s(1),s(1))*(-(mat_p%pt_cmplx(s(2),s(3))*mat_p%pt_cmplx(s(3),s(2))) &
+ + mat_p%pt_cmplx(s(2),s(2))*mat_p%pt_cmplx(s(3),s(3))))*mat_p%pt_cmplx(s(4),s(4)) &
+ - mat_p%pt_cmplx(s(1),s(3))*(mat_p%pt_cmplx(s(2),s(4))*(-(mat_p%pt_cmplx(s(3),s(2))*mat_p%pt_cmplx(s(4),s(1))) &
+ + mat_p%pt_cmplx(s(3),s(1))*mat_p%pt_cmplx(s(4),s(2))) + &
+ mat_p%pt_cmplx(s(2),s(2))*(mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(1)) &
+ - mat_p%pt_cmplx(s(3),s(1))*mat_p%pt_cmplx(s(4),s(4))) + &
+ mat_p%pt_cmplx(s(2),s(1))*(-(mat_p%pt_cmplx(s(3),s(4))*mat_p%pt_cmplx(s(4),s(2))) &
+ + mat_p%pt_cmplx(s(3),s(2))*mat_p%pt_cmplx(s(4),s(4))))
+ else
+ detS= mat_p%pt_real(s(1),s(2))*mat_p%pt_real(s(2),s(4))*mat_p%pt_real(s(3),s(3))*mat_p%pt_real(s(4),s(1)) &
+ - mat_p%pt_real(s(1),s(2))*mat_p%pt_real(s(2),s(3))*mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(1)) &
+ - mat_p%pt_real(s(1),s(1))*mat_p%pt_real(s(2),s(4))*mat_p%pt_real(s(3),s(3))*mat_p%pt_real(s(4),s(2)) &
+ + mat_p%pt_real(s(1),s(1))*mat_p%pt_real(s(2),s(3))*mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(2)) &
+ - mat_p%pt_real(s(1),s(2))*mat_p%pt_real(s(2),s(4))*mat_p%pt_real(s(3),s(1))*mat_p%pt_real(s(4),s(3)) &
+ - mat_p%pt_real(s(1),s(1))*mat_p%pt_real(s(2),s(4))*mat_p%pt_real(s(3),s(2))*mat_p%pt_real(s(4),s(3)) &
+ + mat_p%pt_real(s(1),s(2))*mat_p%pt_real(s(2),s(1))*mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(3)) &
+ - mat_p%pt_real(s(1),s(1))*mat_p%pt_real(s(2),s(2))*mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(3)) &
+ - mat_p%pt_real(s(1),s(4))*(mat_p%pt_real(s(2),s(3))*(mat_p%pt_real(s(3),s(2))*mat_p%pt_real(s(4),s(1)) &
+ - mat_p%pt_real(s(3),s(1))*mat_p%pt_real(s(4),s(2))) + &
+ mat_p%pt_real(s(2),s(2))*(-(mat_p%pt_real(s(3),s(3))*mat_p%pt_real(s(4),s(1))) &
+ + mat_p%pt_real(s(3),s(1))*mat_p%pt_real(s(4),s(3))) + &
+ mat_p%pt_real(s(2),s(1))*(mat_p%pt_real(s(3),s(3))*mat_p%pt_real(s(4),s(2)) &
+ - mat_p%pt_real(s(3),s(2))*mat_p%pt_real(s(4),s(3)))) - &
+ (mat_p%pt_real(s(1),s(2))*(mat_p%pt_real(s(2),s(3))*mat_p%pt_real(s(3),s(1)) &
+ - mat_p%pt_real(s(2),s(1))*mat_p%pt_real(s(3),s(3))) + &
+ mat_p%pt_real(s(1),s(1))*(-(mat_p%pt_real(s(2),s(3))*mat_p%pt_real(s(3),s(2))) &
+ + mat_p%pt_real(s(2),s(2))*mat_p%pt_real(s(3),s(3))))*mat_p%pt_real(s(4),s(4)) &
+ - mat_p%pt_real(s(1),s(3))*(mat_p%pt_real(s(2),s(4))*(-(mat_p%pt_real(s(3),s(2))*mat_p%pt_real(s(4),s(1))) &
+ + mat_p%pt_real(s(3),s(1))*mat_p%pt_real(s(4),s(2))) + &
+ mat_p%pt_real(s(2),s(2))*(mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(1)) &
+ - mat_p%pt_real(s(3),s(1))*mat_p%pt_real(s(4),s(4))) + &
+ mat_p%pt_real(s(2),s(1))*(-(mat_p%pt_real(s(3),s(4))*mat_p%pt_real(s(4),s(2))) &
+ + mat_p%pt_real(s(3),s(2))*mat_p%pt_real(s(4),s(4))))
+ end if
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Determinant calulcation for this case not implemented yet.'
+ call catch_exception(0)
+ stop
+ end if
+ end function calc_determinant
+
+
+ elemental function equal_zero(z)
+ implicit none
+ complex(ki), intent(in) :: z
+ logical :: equal_zero
+
+ equal_zero=equal_real(real(z,ki),zero) .and. equal_real(aimag(z),zero)
+ end function equal_zero
+
+
+
+
+ !
+ ! Generic integral reduction by Passarino-Veltmann method
+ !
+ !
+
+ recursive function reduce_pave_generic(leg_count,dim_nplus,b_pin,l_count,l,depth) result(return_val)
+ implicit none
+ integer, intent(in) :: leg_count
+ integer, intent(in) :: dim_nplus
+ integer, intent (in) :: b_pin
+ integer, intent (in) :: l_count
+ integer, intent (in),dimension(:) :: l
+ integer, intent (in), optional :: depth
+ integer :: i,j,k,ii,b_used,b_tmp,cur_depth,b_pro,mass_zero_count
+ integer :: onshell_count
+ type(form_factor) :: return_val, tmp, temp2
+ complex(ki), dimension(3) :: ret_temp
+ complex(ki), dimension(leg_count) :: m,r,f
+ integer :: n ! dimension n = 4-2epsilon TODO: float
+ integer,dimension(size(l)) :: lpos
+ integer,dimension(size(l)+1) :: l_tmp1
+ integer,dimension(leg_count) :: s
+
+ real(ki), dimension(leg_count-1,leg_count-1) :: z_mat_r, inv_z_mat_r
+ complex(ki), dimension(leg_count-1,leg_count-1) :: z_mat_c, inv_z_mat_c
+ real(ki) :: inv_error
+ logical :: use_complex_z_mat,usable
+
+ n = 4
+
+
+ if (present(depth)) then
+ cur_depth=depth
+ else
+ cur_depth=0
+ end if
+
+ b_used=pminus(b_ref,b_pin)
+ b_pro=b_used
+
+ lpos = locateb(l,b_used)
+
+
+ ret_temp=0._ki
+
+
+
+ ! some checks if everything is consistent
+ if ((countb(b_used) /= leg_count ) .or. (size(l)/= l_count)) then
+ write (*, *) countb(b_used),"PPPPPXXXX", size(l), l_count, b_used
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: internal error in file generic_function_np.f90'
+ call catch_exception(0)
+ stop
+ end if
+
+ s = unpackb(b_used,countb(b_used))
+
+ if ((l_count > 0)) then
+ usable = .true.
+ do j = 1, l_count
+ if (lpos(j)==leg_count) then
+ i=j
+ usable = .false.
+ exit
+ end if
+ end do
+ if ( .not. usable) then
+ l_tmp1(1:i-1) = l(1:i-1)
+ l_tmp1(i:l_count-1) = l(i+1:l_count)
+ tmp = fnp_generic(leg_count,dim_nplus, b_pin, l_count-1,l_tmp1(1:l_count-1),cur_depth+1)
+ l_tmp1(1:l_count) = l
+ do j = 1, leg_count-1
+ l_tmp1(i) = s(j)
+ tmp = tmp - fnp_generic(leg_count,dim_nplus, b_pin, l_count,l_tmp1(1:l_count),cur_depth+1)
+ end do
+ return_val = tmp
+ return
+ end if
+ end if
+
+ !
+ ! extract masses and momenta
+ !
+
+ mass_zero_count=0
+ onshell_count=0
+
+
+
+ if (iand(s_mat_p%b_cmplx, b_pro) .eq. 0 ) then
+ do i = 1, leg_count
+ m(i) = -s_mat_p%pt_real(s(i),s(i))/2._ki
+ if (equal_zero(m(i))) then
+ mass_zero_count= mass_zero_count+1
+ end if
+ end do
+ do i = 1, leg_count-1
+ r(i) = s_mat_p%pt_real(s(i),s(leg_count)) + m(i) + m(leg_count)
+ f(i) = r(i) - m(i) + m(leg_count)
+ if (equal_zero(r(i))) then
+ onshell_count=onshell_count+1
+ end if
+ end do
+ r(leg_count) = 0._ki
+ do i = 1, leg_count-1
+ do j = 1, leg_count-1
+ if (i==j) then
+ z_mat_r(i,j) = 2._ki*real(r(i),ki)
+ else
+ z_mat_r(i,j) = -s_mat_p%pt_real(s(i),s(j)) + real(r(i) + r(j) - m(i) - m(j),ki)
+ end if
+ end do
+ end do
+ call inverse(z_mat_r,inv_z_mat_r,inv_error)
+ use_complex_z_mat = .false.
+ else
+ do i = 1, leg_count
+ m(i) = -s_mat_p%pt_cmplx(s(i),s(i))/2._ki
+ if (equal_zero(m(i))) then
+ mass_zero_count= mass_zero_count+1
+ end if
+ end do
+ do i = 1, leg_count-1
+ r(i) = s_mat_p%pt_cmplx(s(i),s(leg_count)) + m(i) + m(leg_count)
+ f(i) = r(i) - m(i) + m(leg_count)
+ if (equal_zero(r(i))) then
+ onshell_count=onshell_count+1
+ end if
+ end do
+ r(leg_count) = 0._ki
+ do i = 1, leg_count-1
+ do j = 1, leg_count-1
+ if (i==j) then
+ z_mat_c(i,j) = 2._ki*r(i)
+ else
+ z_mat_c(i,j) = ( -s_mat_p%pt_real(s(i),s(j)) + r(i) + r(j) - m(i) - m(j))
+ end if
+ end do
+ end do
+ call inverse(z_mat_c,inv_z_mat_c,inv_error)
+ use_complex_z_mat = .true.
+ end if
+
+ if ( (leg_count==2) .and. (mass_zero_count /= 2) .and. ( onshell_count==1 ) &
+ .and. ( l_count==0 .or. mass_zero_count == 1 .or. equal_zero(m(1)-m(2)) )) then
+ return_val = f2p_ndim_0p_generic(m(1),m(2),dim_nplus,l_count,lpos);
+ return
+ end if
+
+ !
+ ! Reduction case 1
+ !
+
+! if ((dim_nplus >= 2) .and. ( l_count== 0 ) ) then
+ if ((dim_nplus >= 2) ) then
+
+ ! only leg_count == 2,3,4 implemented yet
+ if ( leg_count /= 3 .and. leg_count /= 2 .and. leg_count /= 4) then
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: wrong arguments (not implemented) in file generic_function_np.f90'
+ call catch_exception(0)
+ stop
+ end if
+
+ ! check for special cases
+
+ if (leg_count==3) then
+ if ( (use_complex_z_mat .and. equal_zero(-z_mat_c(1,2)+(z_mat_c(1,1)+z_mat_c(2,2))/2._ki )) &
+ .or. (.not. use_complex_z_mat .and. equal_real(-z_mat_r(1,2)+(z_mat_r(1,1)+z_mat_r(2,2))/2._ki,0._ki))) then
+ onshell_count=onshell_count+1
+ end if
+ end if
+
+ if (leg_count==3 .and. mass_zero_count==leg_count .and. onshell_count>0 .and. dim_nplus ==4 .and. l_count==0 ) then
+ if (use_complex_z_mat) then
+ return_val = f3p_np4_m0(r(1),r(2), -z_mat_c(1,2)+(z_mat_c(1,1)+z_mat_c(2,2))/2._ki)
+ else
+ return_val = f3p_np4_m0(r(1),r(2),cmplx(-z_mat_r(1,2)+(z_mat_r(1,1)+z_mat_r(2,2))/2._ki,0._ki,ki))
+ end if
+ return
+ end if
+
+
+ ! hep-ph/0509141 5.10 or arXiv:1105.0920 A.8
+ ! used factor 1/(2(D+P-1-N))= 1/(4*(2-eps)) = 1/8 + eps/16 + eps^2/32
+ ! + O(eps^3)
+ ! for N=3, P=3
+
+ b_tmp = ibset(b_pin,s(leg_count))
+
+ usable = .true.
+ do j = 1, l_count
+ if ( lpos(j) > leg_count-1 ) then
+ usable = .false.
+ exit
+ end if
+ end do
+
+ if (usable) then
+ tmp = (-1._ki)**(l_count)*(-0.5_ki)**((dim_nplus-2)/2) * &
+ fnp_generic(leg_count-1,dim_nplus-2,b_tmp,l_count,l,cur_depth+1)
+ else
+ tmp = 0
+ end if
+
+ temp2 = tmp
+ tmp = tmp + 2._ki*m(leg_count)*(-1._ki)**(l_count)*(-.5_ki)**((dim_nplus-2)/2) * &
+ fnp_generic(leg_count,dim_nplus-2,b_pin,l_count,l,cur_depth+1)
+
+
+
+ l_tmp1 = 0
+ l_tmp1(2:) = l(:)
+ do j = 1, leg_count-1
+ l_tmp1(1)=s(j)
+ tmp = tmp + f(j)* (-1._ki)**(l_count+1)*(-.5_ki)**((dim_nplus-2)/2)* &
+ fnp_generic(leg_count,dim_nplus-2,b_pin,l_count+1,l_tmp1(1:l_count+1),cur_depth+1)
+
+ end do
+
+ k = (n+dim_nplus-2)+(l_count+2)-1-leg_count ! (D+P-1-N) without - 2*eps
+ if (k==0) then
+
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: unknown case in generic_function_np.f90'
+ call catch_exception(0)
+ stop
+ end if
+
+ ret_temp = (/ tmp%a, tmp%b, tmp%c /)
+
+
+
+ ret_temp(3) = ret_temp(3)/(2*k) + ret_temp(2)/k/k + ret_temp(1)*2._ki/k/k/k
+ ret_temp(2) = ret_temp(2)/(2*k) + ret_temp(1)/k/k
+ ret_temp(1) = ret_temp(1)/(2*k)
+
+ return_val = ret_temp*(-2._ki)**(dim_nplus/2)*(-1)**(l_count) ! factor because of g_mu,nu encoded by dim_nplus
+
+
+ !
+ ! Reduction case 2
+ !
+ else if (l_count > 0) then
+ ! Formula 5.8 and 5.11 from 0509141v2
+
+ temp2=0._ki
+
+
+ do i = 1, leg_count-1
+ usable = .true.
+ do j = 2, l_count
+ if (l(j) == s(i)) then
+ usable = .false.
+ exit
+ end if
+ end do
+
+ if (usable) then
+ b_tmp = ibset(b_pin,s(i))
+ l_tmp1(1:l_count-1) = l(2:l_count)
+ tmp = (-1._ki)**(l_count-1) * (-0.5_ki)**((dim_nplus)/2) * &
+ fnp_generic(leg_count-1,dim_nplus,b_tmp,l_count-1, l_tmp1(1:l_count-1),cur_depth+1)
+ else
+ tmp = 0._ki
+ end if
+
+
+ b_tmp = ibset(b_pin,s(leg_count))
+
+ k=0
+ usable = .true.
+ do j= 2, l_count
+ if (lpos(j) == leg_count) then
+ usable = .false.
+ exit
+ end if
+ end do
+
+ if (usable) then
+ tmp = tmp - (-1._ki)**(l_count-1) * (-.5_ki)**((dim_nplus)/2) &
+ * fnp_generic(leg_count-1,dim_nplus,b_tmp,l_count-1,l(2:l_count),cur_depth+1)
+ end if
+
+ tmp = tmp - f(i) * (-1._ki)**(l_count-1) * (-.5_ki)**((dim_nplus)/2) &
+ * fnp_generic(leg_count,dim_nplus,b_pin,l_count-1,l(2:),cur_depth+1)
+
+ ! tmp contains now S_ki2..iP
+
+ l_tmp1=0
+ do ii = 2, l_count
+ if (i==lpos(ii)) then
+ !k=0
+ !do j = 2, l_count
+ ! if(l(j) /= l(ii)) then
+ ! k=k+1
+ ! l_tmp1(k) = l(j)
+ ! end if
+ !end do
+
+ l_tmp1(1:ii-2) = l(2:ii-1)
+ l_tmp1(ii-1:l_count-2) = l(ii+1:l_count)
+ k = l_count-2
+ tmp = tmp - 2._ki*(-1._ki)**(k)*(-.5_ki)**((dim_nplus+2)/2) &
+ *fnp_generic(leg_count,dim_nplus+2,b_pin,k,l_tmp1(1:k),cur_depth+1)
+ end if
+ end do
+
+ if (use_complex_z_mat) then
+ temp2 = temp2 + inv_z_mat_c(lpos(1),i)*tmp
+ else
+ temp2 = temp2 + inv_z_mat_r(lpos(1),i)*tmp
+ end if
+ end do
+ return_val=temp2*(-1._ki)**(l_count) * (-2._ki)**(dim_nplus/2)
+
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: Not implemented yet. generic_function_np.f90'
+ call catch_exception(0)
+ stop
+ end if
+
+ end function reduce_pave_generic
+
+
+
+
+ function f3p_np4_m0(r1s,r2s,r1mr2s)
+ complex(ki),intent (in) :: r1s,r2s,r1mr2s
+ type(form_factor) :: f3p_np4_m0
+ complex(ki), dimension(3) :: ret_temp
+
+ complex(ki) :: Q,P
+ logical :: zr1s,zr2s,zr1mr2s
+
+ ! case: one scale or two scales
+
+ Q = 0._ki
+ P = 0._ki
+
+
+
+
+ zr1s=equal_zero(r1s)
+ zr2s=equal_zero(r2s)
+ zr1mr2s=equal_zero(r1mr2s)
+
+ if ( zr1s .and. zr2s .and. (.not. zr1mr2s) ) then
+ Q = r1mr2s
+ else if( zr2s .and. zr1mr2s .and. (.not. zr1s) ) then
+ Q = r1s
+ else if ( zr1s .and. zr1mr2s .and. (.not. zr2s) ) then
+ Q = r2s
+ else if ( (.not. zr1s) .and. (.not. zr2s) .and. zr1mr2s ) then
+ Q = r1s
+ P = r2s
+ else if ( zr1s .and. (.not. zr2s) .and. (.not. zr1mr2s) ) then
+ Q = r2s
+ P = r1mr2s
+ else if ( (.not. zr1s) .and. zr2s .and. (.not. zr1mr2s) ) then
+ Q = r1s
+ P = r1mr2s
+ else if ( zr1s .and. zr1mr2s .and. zr2s ) then
+ ! no scale, return zero
+ ret_temp=0
+ f3p_np4_m0=ret_temp
+ return
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: f3p_np4_m0: three scales, not implented'
+ call catch_exception(0)
+ stop
+ end if
+ ret_temp = 0._ki
+
+
+ if ( P == 0 .and. Q /= 0 ) then
+ if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = 1._ki/144._ki*Q*( - 19._ki)
+ ret_temp(2) = Q / (-24._ki)
+ else if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = 1._ki/144._ki*Q*(6._ki*z_log(-Q/mu2_scale_par,-1._ki) - 19._ki)
+ ret_temp(2) = Q / (-24._ki)
+ end if
+
+ else if ( P /= 0 .and. Q /= 0 ) then
+ if (rat_or_tot_par%rat_selected) then
+ ret_temp(2) = ( Q + P ) / (-24._ki)
+ ret_temp(3) = (-19._ki* Q**2 + 19._ki*P**2 ) / 144._ki / (Q-P)
+ else if (rat_or_tot_par%tot_selected) then
+ ret_temp(2) = ( Q + P ) / (-24._ki)
+ ret_temp(3) = (-19._ki* Q**2 + 6._ki * Q**2 *z_log(-Q/mu2_scale_par,-1._ki)+ &
+ 19._ki*P**2 - 6._ki*P**2*z_log(-P/mu2_scale_par,-1._ki) ) / 144._ki / (Q-P)
+ end if
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: f3p_np4_m0: internal error.'
+ call catch_exception(0)
+ stop
+ end if
+
+
+
+ f3p_np4_m0 = ret_temp
+
+ end function f3p_np4_m0
+
+ function f1p_ndim_generic(mass1, dim_nplus) result (return_val)
+ implicit none
+ complex(ki), intent(in) :: mass1;
+ integer, intent(in) :: dim_nplus
+ type(form_factor) :: return_val
+ complex(ki), dimension(3) :: ret_temp
+ integer :: i,j,y
+ real (ki) :: r_tmp1, r_tmp2
+ ! Formula (3.1) from hep-ph/0509141
+
+
+ ret_temp = 0
+
+ if ( (equal_real(real(mass1,ki),zero)) .and. (equal_real(aimag(mass1),zero))) then ! all massless tadpoles are zero
+ return_val=ret_temp;
+ return
+ end if
+
+ !
+ ! ! explicit formulars
+
+ ! if (l_count==0 .and. dim_nplus == 2) then
+ ! ret_temp(2) = -0.5_ki*mass1*mass1
+ ! if (rat_or_tot_par%tot_selected) then
+ ! ret_temp(3) = mass1*mass1 * (-3._ki + 2._ki*z_log(mass1/mu2_scale_par,-1._ki) ) / 4._ki
+ ! else
+ ! ret_temp(3) = mass1*mass1 * (-3._ki ) / 4._ki
+ ! end if
+
+ ! return_val=ret_temp*(1._ki)
+ ! return
+ ! end if
+
+ ! if (l_count==0 .and. dim_nplus == 4) then
+ ! ret_temp(2) = mass1**3._ki / 6._ki
+ ! if (rat_or_tot_par%tot_selected) then
+ ! ret_temp(3) = mass1**3._ki * (11._ki - 6._ki *z_log(mass1/mu2_scale_par,-1._ki)) / 36._ki
+ ! else
+ ! ret_temp(3) = mass1**3._ki * (11._ki) / 36._ki
+ ! end if
+ ! return_val=ret_temp*(1._ki)
+ ! return
+ ! end if
+
+ ! if (l_count==0 .and. dim_nplus == 6) then
+ ! ret_temp(2) =- (mass1**4) / 24._ki
+ ! if (rat_or_tot_par%tot_selected) then
+ ! ret_temp(3) = mass1**4 * (-25._ki + 12._ki *z_log(mass1/mu2_scale_par,-1._ki)) / 288._ki
+ ! else
+ ! ret_temp(3) = mass1**4 * (-25._ki) / 288._ki
+ ! end if
+ ! return_val=ret_temp*(1._ki)
+ ! return
+ ! end if
+
+ ! if (l_count==0 .and. dim_nplus == 8) then
+ ! ret_temp(2) = (mass1**5) / 120._ki
+ ! if (rat_or_tot_par%tot_selected) then
+ ! ret_temp(3) = mass1**5 * (137._ki - 60._ki *z_log(mass1/mu2_scale_par,-1._ki)) / 7200._ki
+ ! else
+ ! ret_temp(3) = mass1**5 * (137._ki) / 7200._ki
+ ! end if
+ ! return_val=ret_temp*(1._ki)
+ ! return
+ ! end if
+
+
+ ! Formula (3.4) from hep-ph/0509141
+
+ ! we need A0 (equal to f1p)
+ ret_temp(2) = mass1
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = mass1*(1._ki - z_log(mass1/mu2_scale_par,-1._ki))
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = mass1* (1._ki)
+ end if
+
+
+ y = dim_nplus
+
+ if (y > 0) then ! To be tested, y is assumed even
+ i = y/2
+ r_tmp1=1._ki
+ r_tmp2=0._ki
+ do j = 2, i+1
+ r_tmp1=r_tmp1*j
+ end do
+ do j = 1, i
+ r_tmp2 = r_tmp2+1._ki/(1._ki+j)
+ end do
+ ret_temp(3) = ret_temp(3) + mass1*r_tmp2
+ ! ret_temp = mass1**i / (2._ki**i * r_tmp1) * (ret_temp) * (-2._ki)**(i)
+ ret_temp = mass1**i / (r_tmp1) * (ret_temp) * (-1._ki)**(i) ! equal to line above
+
+ ! Factor (-2._ki)**(i) needed as formular is for A_(00...)
+
+ end if
+ return_val = ret_temp
+
+ end function f1p_ndim_generic
+
+
+ pure function harmonic_number(n) result (return_val)
+ implicit none
+ integer, intent(in) :: n;
+ integer :: i
+ real(ki) :: return_val
+ return_val = 0
+ do i = 1, n
+ return_val = return_val + 1._ki/i
+ end do
+ end function
+
+
+ ! l_pos here only 1 or 2 allowed, corresponding to m1,m2
+ function f2p_ndim_0p_generic(m1,m2,dim_nplus,l_count,l_pos) result (return_val)
+ implicit none
+ complex(ki) :: m1, m2, diffm;
+
+ integer, intent(in) :: dim_nplus
+ integer, intent (in) :: l_count
+ integer, intent (in),dimension(:) :: l_pos
+ type(form_factor) :: return_val
+ integer :: leq1_count ,k1,k2;
+ real(ki) :: k1fak,k2fak,ksump1fak, harmonic1,harmonic2
+ logical :: zm1,zm2,zdiffm
+ integer :: i
+ complex(ki), dimension(3) :: ret_temp
+
+
+ diffm = m1-m2
+ zm1 = equal_zero(m1)
+ zm2 = equal_zero(m2)
+ zdiffm = equal_zero(diffm)
+
+ return_val = 0
+ ret_temp = 0
+
+
+ if (zm1 .and. zm2) then
+ return
+ end if
+
+ if (l_count==0) then
+ if ( .not. zm1 .and. zm2) then
+ ! Formula (A.9) hep/0504267
+ return_val = f1p_ndim_generic(m1,dim_nplus)/m1
+ return
+ else if ( zm1 .and. .not. zm2) then
+ return_val = f1p_ndim_generic(m2,dim_nplus)/m2
+ return
+ else if ( zdiffm ) then
+ if ( dim_nplus>=2) then
+ return_val = -1*f1p_ndim_generic(m1,dim_nplus-2) ! A.10
+ else
+ ret_temp(2) = 1
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = (z_log(m1/mu2_scale_par,-1._ki))
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = 0
+ end if
+ return_val = ret_temp
+ end if
+ return
+ else
+ ! Formula (A.9) hep/0504267
+ return_val = f1p_ndim_generic(m2,dim_nplus-2) - f1p_ndim_generic(m1,dim_nplus-2) / (m2-m1) ! A.9
+ return
+ end if
+
+ else ! l_count > 0
+
+ leq1_count=0
+ do i = 1, l_count
+ if (l_pos(i) == 1) then
+ leq1_count = leq1_count+1
+ endif
+ end do
+
+ if (zm1 .and. .not. zm2) then
+ ! swap m1 and m2 and in l_pos 1<->2
+ zm1=zm2
+ zm2=.true.
+ m1=m2
+ m2=0
+ leq1_count = l_count-leq1_count
+ end if
+
+ k1= leq1_count
+ k2= l_count- leq1_count
+
+ k1fak = 1;
+ do i = 1, leq1_count
+ k1fak = k1fak*i
+ end do
+ k2fak = 1
+ do i = 2, l_count-leq1_count
+ k2fak = k2fak*i
+ end do
+ ksump1fak = 1
+ do i = 2,l_count+1
+ ksump1fak=ksump1fak*i
+ end do
+
+
+ if ( zdiffm ) then
+ if (dim_nplus==0) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = ret_temp(2) * ( -z_log(m1/mu2_scale_par,-1._ki))
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = 0
+ end if
+ else if (dim_nplus==2) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * ( z_log(m1/mu2_scale_par,-1._ki) - 1._ki)
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -1._ki)
+ end if
+ else if (dim_nplus==4) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak * m1 * m1 / 2._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = ret_temp(2) * ( 3._ki - 2._ki * z_log(m1/mu2_scale_par,-1._ki)) / 2._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = ret_temp(2) * ( 3._ki ) / 2._ki
+ end if
+ else if (dim_nplus==6) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1**3 / 6._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -11._ki + 6._ki*z_log(m1/mu2_scale_par,-1._ki)) / 6._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -11._ki ) / 36._ki
+ end if
+ else if (dim_nplus==8) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak * m1**4 / 24._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = ret_temp(2) * ( 25._ki - 12._ki*z_log(m1/mu2_scale_par,-1._ki)) / 12._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = ret_temp(2) * ( 25._ki ) / 12._ki
+ end if
+ else if (dim_nplus==10) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1**5 / 120._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -137._ki + 60._ki*z_log(m1/mu2_scale_par,-1._ki)) / 60._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -137._ki ) / 60._ki
+ end if
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: f2p_ndim_0p_generic case (m1=m2,dim>14,l_count>0) not implemented.'
+ call catch_exception(0)
+ stop
+ end if
+ return_val = ret_temp
+ else if ( (.not. zm1 .and. zm2)) then
+
+ do i = l_count+2, l_count+1 + dim_nplus/2
+ ksump1fak = ksump1fak * i
+ end do
+ do i = leq1_count+1, leq1_count + dim_nplus/2
+ k1fak = k1fak * i
+ end do
+
+
+ if (dim_nplus==0) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = - ret_temp(2) * ( harmonic_number(k1) - harmonic_number(1+k1+k2) + &
+ z_log(m1/mu2_scale_par,-1._ki))
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = - ret_temp(2) * ( harmonic_number(k1) - harmonic_number(1+k1+k2))
+ end if
+ else if (dim_nplus==2) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1
+
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * (-1._ki + harmonic_number(k1+1) - harmonic_number(2+k1+k2) + &
+ & z_log(m1/mu2_scale_par,-1._ki))
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * (-1._ki + harmonic_number(k1+1) - harmonic_number(2+k1+k2))
+ end if
+ else if (dim_nplus==4) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak * m1 * m1 / 2._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = ret_temp(2) * ( 3._ki - 2._ki*(harmonic_number(2+k1) - harmonic_number(3+k1+k2) + &
+ & z_log(m1/mu2_scale_par,-1._ki))) / 2._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = ret_temp(2) * ( 3._ki - 2._ki*(harmonic_number(2+k1) - harmonic_number(3+k1+k2))) / 2._ki
+ end if
+ else if (dim_nplus==6) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1**3 / 6._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -11._ki + 6._ki*(harmonic_number(3+k1) - harmonic_number(4+k1+k2) + &
+ & z_log(m1/mu2_scale_par,-1._ki))) / 6._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -11._ki + 6._ki*(harmonic_number(3+k1) - harmonic_number(4+k1+k2))) / 6._ki
+ end if
+ else if (dim_nplus==8) then
+ ret_temp(2) = k1fak * k2fak / ksump1fak * m1**4 / 24._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = ret_temp(2) * ( 25._ki - 12._ki*(harmonic_number(4+k1) - harmonic_number(5+k1+k2) + &
+ & z_log(m1/mu2_scale_par,-1._ki))) / 12._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = ret_temp(2) * ( 25._ki - 12._ki*(harmonic_number(4+k1) - harmonic_number(5+k1+k2))) / 12._ki
+ end if
+ else if (dim_nplus==10) then
+ ret_temp(2) = - k1fak * k2fak / ksump1fak * m1**5 / 120._ki
+ if (rat_or_tot_par%tot_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -137._ki + 60._ki*(harmonic_number(5+k1) - harmonic_number(6+k1+k2) &
+ & + z_log(m1/mu2_scale_par,-1._ki))) / 60._ki
+ else if (rat_or_tot_par%rat_selected) then
+ ret_temp(3) = -ret_temp(2) * ( -137._ki + 60._ki*(harmonic_number(5+k1) - harmonic_number(6+k1+k2))) / 60._ki
+ end if
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: f2p_ndim_0p_generic case (m2=0 or m1=0,dim>14,l_count>0) not implemented.'
+ call catch_exception(0)
+ stop
+ end if
+
+ return_val = ret_temp
+
+ else
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'Assert failed: f2p_ndim_0p_generic case (m1 != m2,l_count>0) not implemented.'
+ call catch_exception(0)
+ stop
+ end if
+
+ end if
+ end function f2p_ndim_0p_generic
+
+
+
+
+end module generic_function_np
diff --git a/golem95c-1.2.1/integrals/Makefile.in b/golem95c-1.2.1/integrals/Makefile.in
index 7f304fd..abfe5c1 100644
--- a/golem95c-1.2.1/integrals/Makefile.in
+++ b/golem95c-1.2.1/integrals/Makefile.in
@@ -1,594 +1,636 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
subdir = golem95c-1.2.1/integrals
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
SOURCES =
DIST_SOURCES =
RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \
html-recursive info-recursive install-data-recursive \
install-dvi-recursive install-exec-recursive \
install-html-recursive install-info-recursive \
install-pdf-recursive install-ps-recursive install-recursive \
installcheck-recursive installdirs-recursive pdf-recursive \
ps-recursive uninstall-recursive
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \
distclean-recursive maintainer-clean-recursive
AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \
$(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \
distdir
ETAGS = etags
CTAGS = ctags
DIST_SUBDIRS = $(SUBDIRS)
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
am__relativize = \
dir0=`pwd`; \
sed_first='s,^\([^/]*\)/.*$$,\1,'; \
sed_rest='s,^[^/]*/*,,'; \
sed_last='s,^.*/\([^/]*\)$$,\1,'; \
sed_butlast='s,/*[^/]*$$,,'; \
while test -n "$$dir1"; do \
first=`echo "$$dir1" | sed -e "$$sed_first"`; \
if test "$$first" != "."; then \
if test "$$first" = ".."; then \
dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
else \
first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
if test "$$first2" = "$$first"; then \
dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
else \
dir2="../$$dir2"; \
fi; \
dir0="$$dir0"/"$$first"; \
fi; \
fi; \
dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
done; \
reldir="$$dir2"
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
SUBDIRS = one_point two_point three_point four_point
all: all-recursive
.SUFFIXES:
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/integrals/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/integrals/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
# This directory's subdirectories are mostly independent; you can cd
-# into them and run `make' without going through this Makefile.
-# To change the values of `make' variables: instead of editing Makefiles,
-# (1) if the variable is set in `config.status', edit `config.status'
-# (which will cause the Makefiles to be regenerated when you run `make');
-# (2) otherwise, pass the desired values on the `make' command line.
+# into them and run 'make' without going through this Makefile.
+# To change the values of 'make' variables: instead of editing Makefiles,
+# (1) if the variable is set in 'config.status', edit 'config.status'
+# (which will cause the Makefiles to be regenerated when you run 'make');
+# (2) otherwise, pass the desired values on the 'make' command line.
$(RECURSIVE_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
target=`echo $@ | sed s/-recursive//`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
dot_seen=yes; \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done; \
if test "$$dot_seen" = "no"; then \
$(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
fi; test -z "$$fail"
$(RECURSIVE_CLEAN_TARGETS):
@fail= failcom='exit 1'; \
for f in x $$MAKEFLAGS; do \
case $$f in \
*=* | --[!k]*);; \
*k*) failcom='fail=yes';; \
esac; \
done; \
dot_seen=no; \
case "$@" in \
distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
*) list='$(SUBDIRS)' ;; \
esac; \
rev=''; for subdir in $$list; do \
if test "$$subdir" = "."; then :; else \
rev="$$subdir $$rev"; \
fi; \
done; \
rev="$$rev ."; \
target=`echo $@ | sed s/-recursive//`; \
for subdir in $$rev; do \
echo "Making $$target in $$subdir"; \
if test "$$subdir" = "."; then \
local_target="$$target-am"; \
else \
local_target="$$target"; \
fi; \
($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
|| eval $$failcom; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
done
ctags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \
done
+cscopelist-recursive:
+ list='$(SUBDIRS)'; for subdir in $$list; do \
+ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) cscopelist); \
+ done
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
include_option=--etags-include; \
empty_fix=.; \
else \
include_option=--include; \
empty_fix=; \
fi; \
list='$(SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
test ! -f $$subdir/TAGS || \
set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
fi; \
done; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: ctags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: cscopelist-recursive $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
if test "$$subdir" = .; then :; else \
- test -d "$(distdir)/$$subdir" \
- || $(MKDIR_P) "$(distdir)/$$subdir" \
- || exit 1; \
- fi; \
- done
- @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
- if test "$$subdir" = .; then :; else \
+ $(am__make_dryrun) \
+ || test -d "$(distdir)/$$subdir" \
+ || $(MKDIR_P) "$(distdir)/$$subdir" \
+ || exit 1; \
dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
$(am__relativize); \
new_distdir=$$reldir; \
dir1=$$subdir; dir2="$(top_distdir)"; \
$(am__relativize); \
new_top_distdir=$$reldir; \
echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
($(am__cd) $$subdir && \
$(MAKE) $(AM_MAKEFLAGS) \
top_distdir="$$new_top_distdir" \
distdir="$$new_distdir" \
am__remove_distdir=: \
am__skip_length_check=: \
am__skip_mode_fix=: \
distdir) \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-recursive
all-am: Makefile
installdirs: installdirs-recursive
installdirs-am:
install: install-recursive
install-exec: install-exec-recursive
install-data: install-data-recursive
uninstall: uninstall-recursive
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-recursive
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-recursive
clean-am: clean-generic clean-libtool mostlyclean-am
distclean: distclean-recursive
-rm -f Makefile
distclean-am: clean-am distclean-generic distclean-tags
dvi: dvi-recursive
dvi-am:
html: html-recursive
html-am:
info: info-recursive
info-am:
install-data-am:
install-dvi: install-dvi-recursive
install-dvi-am:
install-exec-am:
install-html: install-html-recursive
install-html-am:
install-info: install-info-recursive
install-info-am:
install-man:
install-pdf: install-pdf-recursive
install-pdf-am:
install-ps: install-ps-recursive
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-recursive
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-recursive
mostlyclean-am: mostlyclean-generic mostlyclean-libtool
pdf: pdf-recursive
pdf-am:
ps: ps-recursive
ps-am:
uninstall-am:
-.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \
- install-am install-strip tags-recursive
+.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) \
+ cscopelist-recursive ctags-recursive install-am install-strip \
+ tags-recursive
.PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \
all all-am check check-am clean clean-generic clean-libtool \
- ctags ctags-recursive distclean distclean-generic \
- distclean-libtool distclean-tags distdir dvi dvi-am html \
- html-am info info-am install install-am install-data \
- install-data-am install-dvi install-dvi-am install-exec \
- install-exec-am install-html install-html-am install-info \
- install-info-am install-man install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs installdirs-am maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-generic \
- mostlyclean-libtool pdf pdf-am ps ps-am tags tags-recursive \
- uninstall uninstall-am
+ cscopelist cscopelist-recursive ctags ctags-recursive \
+ distclean distclean-generic distclean-libtool distclean-tags \
+ distdir dvi dvi-am html html-am info info-am install \
+ install-am install-data install-data-am install-dvi \
+ install-dvi-am install-exec install-exec-am install-html \
+ install-html-am install-info install-info-am install-man \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ installdirs-am maintainer-clean maintainer-clean-generic \
+ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \
+ ps ps-am tags tags-recursive uninstall uninstall-am
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/integrals/four_point/Makefile.am b/golem95c-1.2.1/integrals/four_point/Makefile.am
index 55f0694..3f0ded2 100644
--- a/golem95c-1.2.1/integrals/four_point/Makefile.am
+++ b/golem95c-1.2.1/integrals/four_point/Makefile.am
@@ -1,26 +1,29 @@
noinst_LTLIBRARIES=libgolem95_integrals_four_point.la
libgolem95_integrals_four_point_la_SOURCES= \
function_4p1m.f90 function_4p2m_3mi_onshell.f90 function_4p2m_adj.f90 \
function_4p2m_opp.f90 function_4p3m.f90 function_4p4m.f90 \
function_4p_ql10.f90 function_4p_ql11.f90 function_4p_ql12.f90 \
function_4p_ql13.f90 function_4p_ql14.f90 function_4p_ql15.f90 \
function_4p_ql16.f90 function_4p_ql6.f90 function_4p_ql7.f90 \
function_4p_ql8.f90 function_4p_ql9.f90 generic_function_4p.f90
-libgolem95_integrals_four_point_la_FCFLAGS=\
+
+include ../../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../../module \
-I$(builddir)/../../kinematic \
-I$(builddir)/../../numerical \
-I$(builddir)/../one_point \
-I$(builddir)/../two_point \
- -I$(builddir)/../three_point \
- -I$(builddir)/../../../avh_olo-2.2.1
+ -I$(builddir)/../three_point
+
nodist_pkginclude_HEADERS= function_4p4m.mod function_4p_ql7.mod \
- generic_function_4p.mod function_4p2m_adj.mod function_4p_ql14.mod \
+ function_4p2m_adj.mod function_4p_ql14.mod \
function_4p_ql13.mod function_4p_ql15.mod function_4p_ql10.mod \
function_4p_ql9.mod function_4p_ql8.mod \
function_4p2m_3mi_onshell.mod function_4p_ql11.mod \
function_4p_ql12.mod function_4p2m_opp.mod function_4p3m.mod \
- function_4p1m.mod function_4p_ql16.mod function_4p_ql6.mod
+ function_4p1m.mod function_4p_ql16.mod function_4p_ql6.mod \
+ generic_function_4p.mod
CLEANFILES=*.mod
diff --git a/golem95c-1.2.1/integrals/four_point/Makefile.in b/golem95c-1.2.1/integrals/four_point/Makefile.in
index 259b73f..71618d6 100644
--- a/golem95c-1.2.1/integrals/four_point/Makefile.in
+++ b/golem95c-1.2.1/integrals/four_point/Makefile.in
@@ -1,640 +1,620 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
+DIST_COMMON = $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.in $(srcdir)/generic_function_4p.f90.in
subdir = golem95c-1.2.1/integrals/four_point
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
- $(srcdir)/generic_function_4p.f90.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES = generic_function_4p.f90
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_integrals_four_point_la_LIBADD =
-am_libgolem95_integrals_four_point_la_OBJECTS = \
- libgolem95_integrals_four_point_la-function_4p1m.lo \
- libgolem95_integrals_four_point_la-function_4p2m_3mi_onshell.lo \
- libgolem95_integrals_four_point_la-function_4p2m_adj.lo \
- libgolem95_integrals_four_point_la-function_4p2m_opp.lo \
- libgolem95_integrals_four_point_la-function_4p3m.lo \
- libgolem95_integrals_four_point_la-function_4p4m.lo \
- libgolem95_integrals_four_point_la-function_4p_ql10.lo \
- libgolem95_integrals_four_point_la-function_4p_ql11.lo \
- libgolem95_integrals_four_point_la-function_4p_ql12.lo \
- libgolem95_integrals_four_point_la-function_4p_ql13.lo \
- libgolem95_integrals_four_point_la-function_4p_ql14.lo \
- libgolem95_integrals_four_point_la-function_4p_ql15.lo \
- libgolem95_integrals_four_point_la-function_4p_ql16.lo \
- libgolem95_integrals_four_point_la-function_4p_ql6.lo \
- libgolem95_integrals_four_point_la-function_4p_ql7.lo \
- libgolem95_integrals_four_point_la-function_4p_ql8.lo \
- libgolem95_integrals_four_point_la-function_4p_ql9.lo \
- libgolem95_integrals_four_point_la-generic_function_4p.lo
+am_libgolem95_integrals_four_point_la_OBJECTS = function_4p1m.lo \
+ function_4p2m_3mi_onshell.lo function_4p2m_adj.lo \
+ function_4p2m_opp.lo function_4p3m.lo function_4p4m.lo \
+ function_4p_ql10.lo function_4p_ql11.lo function_4p_ql12.lo \
+ function_4p_ql13.lo function_4p_ql14.lo function_4p_ql15.lo \
+ function_4p_ql16.lo function_4p_ql6.lo function_4p_ql7.lo \
+ function_4p_ql8.lo function_4p_ql9.lo generic_function_4p.lo
libgolem95_integrals_four_point_la_OBJECTS = \
$(am_libgolem95_integrals_four_point_la_OBJECTS)
-libgolem95_integrals_four_point_la_LINK = $(LIBTOOL) --tag=FC \
- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_integrals_four_point_la_SOURCES)
DIST_SOURCES = $(libgolem95_integrals_four_point_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_integrals_four_point.la
libgolem95_integrals_four_point_la_SOURCES = \
function_4p1m.f90 function_4p2m_3mi_onshell.f90 function_4p2m_adj.f90 \
function_4p2m_opp.f90 function_4p3m.f90 function_4p4m.f90 \
function_4p_ql10.f90 function_4p_ql11.f90 function_4p_ql12.f90 \
function_4p_ql13.f90 function_4p_ql14.f90 function_4p_ql15.f90 \
function_4p_ql16.f90 function_4p_ql6.f90 function_4p_ql7.f90 \
function_4p_ql8.f90 function_4p_ql9.f90 generic_function_4p.f90
-libgolem95_integrals_four_point_la_FCFLAGS = \
- -I$(builddir)/../../module \
- -I$(builddir)/../../kinematic \
- -I$(builddir)/../../numerical \
- -I$(builddir)/../one_point \
- -I$(builddir)/../two_point \
- -I$(builddir)/../three_point \
- -I$(builddir)/../../../avh_olo-2.2.1
-
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 \
+ -I$(builddir)/../../module -I$(builddir)/../../kinematic \
+ -I$(builddir)/../../numerical -I$(builddir)/../one_point \
+ -I$(builddir)/../two_point -I$(builddir)/../three_point
nodist_pkginclude_HEADERS = function_4p4m.mod function_4p_ql7.mod \
- generic_function_4p.mod function_4p2m_adj.mod function_4p_ql14.mod \
+ function_4p2m_adj.mod function_4p_ql14.mod \
function_4p_ql13.mod function_4p_ql15.mod function_4p_ql10.mod \
function_4p_ql9.mod function_4p_ql8.mod \
function_4p2m_3mi_onshell.mod function_4p_ql11.mod \
function_4p_ql12.mod function_4p2m_opp.mod function_4p3m.mod \
- function_4p1m.mod function_4p_ql16.mod function_4p_ql6.mod
+ function_4p1m.mod function_4p_ql16.mod function_4p_ql6.mod \
+ generic_function_4p.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../MakefileCommon.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/integrals/four_point/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/integrals/four_point/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../../MakefileCommon.am:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
generic_function_4p.f90: $(top_builddir)/config.status $(srcdir)/generic_function_4p.f90.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_integrals_four_point.la: $(libgolem95_integrals_four_point_la_OBJECTS) $(libgolem95_integrals_four_point_la_DEPENDENCIES)
- $(libgolem95_integrals_four_point_la_LINK) $(libgolem95_integrals_four_point_la_OBJECTS) $(libgolem95_integrals_four_point_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_integrals_four_point.la: $(libgolem95_integrals_four_point_la_OBJECTS) $(libgolem95_integrals_four_point_la_DEPENDENCIES) $(EXTRA_libgolem95_integrals_four_point_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_integrals_four_point_la_OBJECTS) $(libgolem95_integrals_four_point_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_integrals_four_point_la-function_4p1m.lo: function_4p1m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p1m.lo $(FCFLAGS_f90) `test -f 'function_4p1m.f90' || echo '$(srcdir)/'`function_4p1m.f90
-
-libgolem95_integrals_four_point_la-function_4p2m_3mi_onshell.lo: function_4p2m_3mi_onshell.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p2m_3mi_onshell.lo $(FCFLAGS_f90) `test -f 'function_4p2m_3mi_onshell.f90' || echo '$(srcdir)/'`function_4p2m_3mi_onshell.f90
-
-libgolem95_integrals_four_point_la-function_4p2m_adj.lo: function_4p2m_adj.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p2m_adj.lo $(FCFLAGS_f90) `test -f 'function_4p2m_adj.f90' || echo '$(srcdir)/'`function_4p2m_adj.f90
-
-libgolem95_integrals_four_point_la-function_4p2m_opp.lo: function_4p2m_opp.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p2m_opp.lo $(FCFLAGS_f90) `test -f 'function_4p2m_opp.f90' || echo '$(srcdir)/'`function_4p2m_opp.f90
-
-libgolem95_integrals_four_point_la-function_4p3m.lo: function_4p3m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p3m.lo $(FCFLAGS_f90) `test -f 'function_4p3m.f90' || echo '$(srcdir)/'`function_4p3m.f90
-
-libgolem95_integrals_four_point_la-function_4p4m.lo: function_4p4m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p4m.lo $(FCFLAGS_f90) `test -f 'function_4p4m.f90' || echo '$(srcdir)/'`function_4p4m.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql10.lo: function_4p_ql10.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql10.lo $(FCFLAGS_f90) `test -f 'function_4p_ql10.f90' || echo '$(srcdir)/'`function_4p_ql10.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql11.lo: function_4p_ql11.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql11.lo $(FCFLAGS_f90) `test -f 'function_4p_ql11.f90' || echo '$(srcdir)/'`function_4p_ql11.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql12.lo: function_4p_ql12.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql12.lo $(FCFLAGS_f90) `test -f 'function_4p_ql12.f90' || echo '$(srcdir)/'`function_4p_ql12.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql13.lo: function_4p_ql13.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql13.lo $(FCFLAGS_f90) `test -f 'function_4p_ql13.f90' || echo '$(srcdir)/'`function_4p_ql13.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql14.lo: function_4p_ql14.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql14.lo $(FCFLAGS_f90) `test -f 'function_4p_ql14.f90' || echo '$(srcdir)/'`function_4p_ql14.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql15.lo: function_4p_ql15.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql15.lo $(FCFLAGS_f90) `test -f 'function_4p_ql15.f90' || echo '$(srcdir)/'`function_4p_ql15.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql16.lo: function_4p_ql16.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql16.lo $(FCFLAGS_f90) `test -f 'function_4p_ql16.f90' || echo '$(srcdir)/'`function_4p_ql16.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql6.lo: function_4p_ql6.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql6.lo $(FCFLAGS_f90) `test -f 'function_4p_ql6.f90' || echo '$(srcdir)/'`function_4p_ql6.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql7.lo: function_4p_ql7.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql7.lo $(FCFLAGS_f90) `test -f 'function_4p_ql7.f90' || echo '$(srcdir)/'`function_4p_ql7.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql8.lo: function_4p_ql8.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql8.lo $(FCFLAGS_f90) `test -f 'function_4p_ql8.f90' || echo '$(srcdir)/'`function_4p_ql8.f90
-
-libgolem95_integrals_four_point_la-function_4p_ql9.lo: function_4p_ql9.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-function_4p_ql9.lo $(FCFLAGS_f90) `test -f 'function_4p_ql9.f90' || echo '$(srcdir)/'`function_4p_ql9.f90
-
-libgolem95_integrals_four_point_la-generic_function_4p.lo: generic_function_4p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_four_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_four_point_la-generic_function_4p.lo $(FCFLAGS_f90) `test -f 'generic_function_4p.f90' || echo '$(srcdir)/'`generic_function_4p.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/integrals/one_point/Makefile.am b/golem95c-1.2.1/integrals/one_point/Makefile.am
index 756b69c..70d71bd 100644
--- a/golem95c-1.2.1/integrals/one_point/Makefile.am
+++ b/golem95c-1.2.1/integrals/one_point/Makefile.am
@@ -1,14 +1,15 @@
noinst_LTLIBRARIES=libgolem95_integrals_one_point.la
libgolem95_integrals_one_point_la_SOURCES= generic_function_1p.f90
-libgolem95_integrals_one_point_la_FCFLAGS=\
+include ../../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../../module \
-I$(builddir)/../../kinematic \
-I$(builddir)/../../numerical \
-I$(builddir)/../../../avh_olo-2.2.1
nodist_pkginclude_HEADERS= generic_function_1p.mod
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/integrals/one_point/Makefile.dep b/golem95c-1.2.1/integrals/one_point/Makefile.dep
index 5746dc2..6f49266 100644
--- a/golem95c-1.2.1/integrals/one_point/Makefile.dep
+++ b/golem95c-1.2.1/integrals/one_point/Makefile.dep
@@ -1 +1,2 @@
# Module dependencies
+generic_function_1p.mod: generic_function_1p.f90 generic_function_1p.$(OBJEXT)
diff --git a/golem95c-1.2.1/integrals/one_point/Makefile.in b/golem95c-1.2.1/integrals/one_point/Makefile.in
index a5f0826..025508c 100644
--- a/golem95c-1.2.1/integrals/one_point/Makefile.in
+++ b/golem95c-1.2.1/integrals/one_point/Makefile.in
@@ -1,555 +1,600 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/integrals/one_point
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_integrals_one_point_la_LIBADD =
-am_libgolem95_integrals_one_point_la_OBJECTS = \
- libgolem95_integrals_one_point_la-generic_function_1p.lo
+am_libgolem95_integrals_one_point_la_OBJECTS = generic_function_1p.lo
libgolem95_integrals_one_point_la_OBJECTS = \
$(am_libgolem95_integrals_one_point_la_OBJECTS)
-libgolem95_integrals_one_point_la_LINK = $(LIBTOOL) --tag=FC \
- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_integrals_one_point_la_FCFLAGS) $(FCFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_integrals_one_point_la_SOURCES)
DIST_SOURCES = $(libgolem95_integrals_one_point_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_integrals_one_point.la
libgolem95_integrals_one_point_la_SOURCES = generic_function_1p.f90
-libgolem95_integrals_one_point_la_FCFLAGS = \
- -I$(builddir)/../../module \
- -I$(builddir)/../../kinematic \
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 \
+ -I$(builddir)/../../module -I$(builddir)/../../kinematic \
-I$(builddir)/../../numerical \
-I$(builddir)/../../../avh_olo-2.2.1
-
nodist_pkginclude_HEADERS = generic_function_1p.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/integrals/one_point/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/integrals/one_point/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_integrals_one_point.la: $(libgolem95_integrals_one_point_la_OBJECTS) $(libgolem95_integrals_one_point_la_DEPENDENCIES)
- $(libgolem95_integrals_one_point_la_LINK) $(libgolem95_integrals_one_point_la_OBJECTS) $(libgolem95_integrals_one_point_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_integrals_one_point.la: $(libgolem95_integrals_one_point_la_OBJECTS) $(libgolem95_integrals_one_point_la_DEPENDENCIES) $(EXTRA_libgolem95_integrals_one_point_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_integrals_one_point_la_OBJECTS) $(libgolem95_integrals_one_point_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_integrals_one_point_la-generic_function_1p.lo: generic_function_1p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_one_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_one_point_la-generic_function_1p.lo $(FCFLAGS_f90) `test -f 'generic_function_1p.f90' || echo '$(srcdir)/'`generic_function_1p.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
+generic_function_1p.mod: generic_function_1p.f90 generic_function_1p.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/integrals/three_point/Makefile.am b/golem95c-1.2.1/integrals/three_point/Makefile.am
index 5729774..5eed98c 100644
--- a/golem95c-1.2.1/integrals/three_point/Makefile.am
+++ b/golem95c-1.2.1/integrals/three_point/Makefile.am
@@ -1,24 +1,24 @@
noinst_LTLIBRARIES=libgolem95_integrals_three_point.la
libgolem95_integrals_three_point_la_SOURCES= \
mod_gn.f90 mod_h0.f90 mod_he.f90 mod_hf.f90 \
function_3p0m_1mi.f90 function_3p1m_1mi.f90 function_3p1m_2mi.f90 \
function_3p1m.f90 function_3p2m_1mi.f90 function_3p2m.f90 \
function_3p3m.f90 function_3p_finite.f90 \
generic_function_3p.f90
-libgolem95_integrals_three_point_la_FCFLAGS=\
+include ../../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../../module \
-I$(builddir)/../../kinematic \
-I$(builddir)/../../numerical \
-I$(builddir)/../one_point \
- -I$(builddir)/../two_point \
- -I$(builddir)/../../../avh_olo-2.2.1
+ -I$(builddir)/../two_point
nodist_pkginclude_HEADERS= function_3p3m.mod generic_function_3p.mod \
function_3p1m_2mi.mod func_h0.mod func_he.mod \
function_3p2m_1mi.mod func_hf.mod function_3p_finite.mod \
func_gn.mod function_3p0m_1mi.mod function_3p1m_1mi.mod \
function_3p2m.mod function_3p1m.mod
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/integrals/three_point/Makefile.dep b/golem95c-1.2.1/integrals/three_point/Makefile.dep
index ffe9a73..5b9d838 100644
--- a/golem95c-1.2.1/integrals/three_point/Makefile.dep
+++ b/golem95c-1.2.1/integrals/three_point/Makefile.dep
@@ -1,25 +1,37 @@
# Module dependencies
-function_3p1m.o: mod_h0.o
+function_3p0m_1mi.mod: function_3p0m_1mi.f90 function_3p0m_1mi.$(OBJEXT)
function_3p1m.lo: mod_h0.lo
-function_3p1m.obj: mod_h0.obj
-function_3p1m_1mi.o: mod_he.o
+function_3p1m.$(OBJEXT): mod_h0.$(OBJEXT)
+function_3p1m.mod: function_3p1m.f90 function_3p1m.$(OBJEXT) mod_h0.$(OBJEXT)
function_3p1m_1mi.lo: mod_he.lo
-function_3p1m_1mi.obj: mod_he.obj
-function_3p1m_2mi.o: mod_gn.o
+function_3p1m_1mi.$(OBJEXT): mod_he.$(OBJEXT)
+function_3p1m_1mi.mod: function_3p1m_1mi.f90 function_3p1m_1mi.$(OBJEXT) \
+ mod_he.$(OBJEXT)
function_3p1m_2mi.lo: mod_gn.lo
-function_3p1m_2mi.obj: mod_gn.obj
-function_3p2m.o: mod_h0.o mod_he.o mod_hf.o
+function_3p1m_2mi.$(OBJEXT): mod_gn.$(OBJEXT)
+function_3p1m_2mi.mod: function_3p1m_2mi.f90 function_3p1m_2mi.$(OBJEXT) \
+ mod_gn.$(OBJEXT)
function_3p2m.lo: mod_h0.lo mod_he.lo mod_hf.lo
-function_3p2m.obj: mod_h0.obj mod_he.obj mod_hf.obj
-function_3p2m_1mi.o: mod_he.o mod_hf.o
+function_3p2m.$(OBJEXT): mod_h0.$(OBJEXT) mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p2m.mod: function_3p2m.f90 function_3p2m.$(OBJEXT) mod_h0.$(OBJEXT) mod_he.$(OBJEXT) \
+ mod_hf.$(OBJEXT)
function_3p2m_1mi.lo: mod_he.lo mod_hf.lo
-function_3p2m_1mi.obj: mod_he.obj mod_hf.obj
-generic_function_3p.o: function_3p0m_1mi.o function_3p1m.o function_3p1m_1mi.o \
- function_3p1m_2mi.o function_3p2m.o function_3p2m_1mi.o \
- function_3p3m.o function_3p_finite.o
+function_3p2m_1mi.$(OBJEXT): mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p2m_1mi.mod: function_3p2m_1mi.f90 function_3p2m_1mi.$(OBJEXT) \
+ mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p3m.mod: function_3p3m.f90 function_3p3m.$(OBJEXT)
+function_3p_finite.mod: function_3p_finite.f90 function_3p_finite.$(OBJEXT)
generic_function_3p.lo: function_3p0m_1mi.lo function_3p1m.lo \
function_3p1m_1mi.lo function_3p1m_2mi.lo function_3p2m.lo \
function_3p2m_1mi.lo function_3p3m.lo function_3p_finite.lo
-generic_function_3p.obj: function_3p0m_1mi.obj function_3p1m.obj \
- function_3p1m_1mi.obj function_3p1m_2mi.obj function_3p2m.obj \
- function_3p2m_1mi.obj function_3p3m.obj function_3p_finite.obj
+generic_function_3p.$(OBJEXT): function_3p0m_1mi.$(OBJEXT) function_3p1m.$(OBJEXT) \
+ function_3p1m_1mi.$(OBJEXT) function_3p1m_2mi.$(OBJEXT) function_3p2m.$(OBJEXT) \
+ function_3p2m_1mi.$(OBJEXT) function_3p3m.$(OBJEXT) function_3p_finite.$(OBJEXT)
+generic_function_3p.mod: generic_function_3p.f90 generic_function_3p.$(OBJEXT) \
+ function_3p0m_1mi.$(OBJEXT) function_3p1m.$(OBJEXT) function_3p1m_1mi.$(OBJEXT) \
+ function_3p1m_2mi.$(OBJEXT) function_3p2m.$(OBJEXT) function_3p2m_1mi.$(OBJEXT) \
+ function_3p3m.$(OBJEXT) function_3p_finite.$(OBJEXT)
+func_gn.mod: mod_gn.f90 mod_gn.$(OBJEXT)
+func_h0.mod: mod_h0.f90 mod_h0.$(OBJEXT)
+func_he.mod: mod_he.f90 mod_he.$(OBJEXT)
+func_hf.mod: mod_hf.f90 mod_hf.$(OBJEXT)
diff --git a/golem95c-1.2.1/integrals/three_point/Makefile.in b/golem95c-1.2.1/integrals/three_point/Makefile.in
index 582dce7..3e97c2f 100644
--- a/golem95c-1.2.1/integrals/three_point/Makefile.in
+++ b/golem95c-1.2.1/integrals/three_point/Makefile.in
@@ -1,640 +1,650 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/integrals/three_point
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_integrals_three_point_la_LIBADD =
-am_libgolem95_integrals_three_point_la_OBJECTS = \
- libgolem95_integrals_three_point_la-mod_gn.lo \
- libgolem95_integrals_three_point_la-mod_h0.lo \
- libgolem95_integrals_three_point_la-mod_he.lo \
- libgolem95_integrals_three_point_la-mod_hf.lo \
- libgolem95_integrals_three_point_la-function_3p0m_1mi.lo \
- libgolem95_integrals_three_point_la-function_3p1m_1mi.lo \
- libgolem95_integrals_three_point_la-function_3p1m_2mi.lo \
- libgolem95_integrals_three_point_la-function_3p1m.lo \
- libgolem95_integrals_three_point_la-function_3p2m_1mi.lo \
- libgolem95_integrals_three_point_la-function_3p2m.lo \
- libgolem95_integrals_three_point_la-function_3p3m.lo \
- libgolem95_integrals_three_point_la-function_3p_finite.lo \
- libgolem95_integrals_three_point_la-generic_function_3p.lo
+am_libgolem95_integrals_three_point_la_OBJECTS = mod_gn.lo mod_h0.lo \
+ mod_he.lo mod_hf.lo function_3p0m_1mi.lo function_3p1m_1mi.lo \
+ function_3p1m_2mi.lo function_3p1m.lo function_3p2m_1mi.lo \
+ function_3p2m.lo function_3p3m.lo function_3p_finite.lo \
+ generic_function_3p.lo
libgolem95_integrals_three_point_la_OBJECTS = \
$(am_libgolem95_integrals_three_point_la_OBJECTS)
-libgolem95_integrals_three_point_la_LINK = $(LIBTOOL) --tag=FC \
- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_integrals_three_point_la_SOURCES)
DIST_SOURCES = $(libgolem95_integrals_three_point_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_integrals_three_point.la
libgolem95_integrals_three_point_la_SOURCES = \
mod_gn.f90 mod_h0.f90 mod_he.f90 mod_hf.f90 \
function_3p0m_1mi.f90 function_3p1m_1mi.f90 function_3p1m_2mi.f90 \
function_3p1m.f90 function_3p2m_1mi.f90 function_3p2m.f90 \
function_3p3m.f90 function_3p_finite.f90 \
generic_function_3p.f90
-libgolem95_integrals_three_point_la_FCFLAGS = \
- -I$(builddir)/../../module \
- -I$(builddir)/../../kinematic \
- -I$(builddir)/../../numerical \
- -I$(builddir)/../one_point \
- -I$(builddir)/../two_point \
- -I$(builddir)/../../../avh_olo-2.2.1
-
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 \
+ -I$(builddir)/../../module -I$(builddir)/../../kinematic \
+ -I$(builddir)/../../numerical -I$(builddir)/../one_point \
+ -I$(builddir)/../two_point
nodist_pkginclude_HEADERS = function_3p3m.mod generic_function_3p.mod \
function_3p1m_2mi.mod func_h0.mod func_he.mod \
function_3p2m_1mi.mod func_hf.mod function_3p_finite.mod \
func_gn.mod function_3p0m_1mi.mod function_3p1m_1mi.mod \
function_3p2m.mod function_3p1m.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/integrals/three_point/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/integrals/three_point/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_integrals_three_point.la: $(libgolem95_integrals_three_point_la_OBJECTS) $(libgolem95_integrals_three_point_la_DEPENDENCIES)
- $(libgolem95_integrals_three_point_la_LINK) $(libgolem95_integrals_three_point_la_OBJECTS) $(libgolem95_integrals_three_point_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_integrals_three_point.la: $(libgolem95_integrals_three_point_la_OBJECTS) $(libgolem95_integrals_three_point_la_DEPENDENCIES) $(EXTRA_libgolem95_integrals_three_point_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_integrals_three_point_la_OBJECTS) $(libgolem95_integrals_three_point_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_integrals_three_point_la-mod_gn.lo: mod_gn.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-mod_gn.lo $(FCFLAGS_f90) `test -f 'mod_gn.f90' || echo '$(srcdir)/'`mod_gn.f90
-
-libgolem95_integrals_three_point_la-mod_h0.lo: mod_h0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-mod_h0.lo $(FCFLAGS_f90) `test -f 'mod_h0.f90' || echo '$(srcdir)/'`mod_h0.f90
-
-libgolem95_integrals_three_point_la-mod_he.lo: mod_he.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-mod_he.lo $(FCFLAGS_f90) `test -f 'mod_he.f90' || echo '$(srcdir)/'`mod_he.f90
-
-libgolem95_integrals_three_point_la-mod_hf.lo: mod_hf.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-mod_hf.lo $(FCFLAGS_f90) `test -f 'mod_hf.f90' || echo '$(srcdir)/'`mod_hf.f90
-
-libgolem95_integrals_three_point_la-function_3p0m_1mi.lo: function_3p0m_1mi.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p0m_1mi.lo $(FCFLAGS_f90) `test -f 'function_3p0m_1mi.f90' || echo '$(srcdir)/'`function_3p0m_1mi.f90
-
-libgolem95_integrals_three_point_la-function_3p1m_1mi.lo: function_3p1m_1mi.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p1m_1mi.lo $(FCFLAGS_f90) `test -f 'function_3p1m_1mi.f90' || echo '$(srcdir)/'`function_3p1m_1mi.f90
-
-libgolem95_integrals_three_point_la-function_3p1m_2mi.lo: function_3p1m_2mi.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p1m_2mi.lo $(FCFLAGS_f90) `test -f 'function_3p1m_2mi.f90' || echo '$(srcdir)/'`function_3p1m_2mi.f90
-
-libgolem95_integrals_three_point_la-function_3p1m.lo: function_3p1m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p1m.lo $(FCFLAGS_f90) `test -f 'function_3p1m.f90' || echo '$(srcdir)/'`function_3p1m.f90
-
-libgolem95_integrals_three_point_la-function_3p2m_1mi.lo: function_3p2m_1mi.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p2m_1mi.lo $(FCFLAGS_f90) `test -f 'function_3p2m_1mi.f90' || echo '$(srcdir)/'`function_3p2m_1mi.f90
-
-libgolem95_integrals_three_point_la-function_3p2m.lo: function_3p2m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p2m.lo $(FCFLAGS_f90) `test -f 'function_3p2m.f90' || echo '$(srcdir)/'`function_3p2m.f90
-
-libgolem95_integrals_three_point_la-function_3p3m.lo: function_3p3m.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p3m.lo $(FCFLAGS_f90) `test -f 'function_3p3m.f90' || echo '$(srcdir)/'`function_3p3m.f90
-
-libgolem95_integrals_three_point_la-function_3p_finite.lo: function_3p_finite.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-function_3p_finite.lo $(FCFLAGS_f90) `test -f 'function_3p_finite.f90' || echo '$(srcdir)/'`function_3p_finite.f90
-
-libgolem95_integrals_three_point_la-generic_function_3p.lo: generic_function_3p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_three_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_three_point_la-generic_function_3p.lo $(FCFLAGS_f90) `test -f 'generic_function_3p.f90' || echo '$(srcdir)/'`generic_function_3p.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-function_3p1m.o: mod_h0.o
+function_3p0m_1mi.mod: function_3p0m_1mi.f90 function_3p0m_1mi.$(OBJEXT)
function_3p1m.lo: mod_h0.lo
-function_3p1m.obj: mod_h0.obj
-function_3p1m_1mi.o: mod_he.o
+function_3p1m.$(OBJEXT): mod_h0.$(OBJEXT)
+function_3p1m.mod: function_3p1m.f90 function_3p1m.$(OBJEXT) mod_h0.$(OBJEXT)
function_3p1m_1mi.lo: mod_he.lo
-function_3p1m_1mi.obj: mod_he.obj
-function_3p1m_2mi.o: mod_gn.o
+function_3p1m_1mi.$(OBJEXT): mod_he.$(OBJEXT)
+function_3p1m_1mi.mod: function_3p1m_1mi.f90 function_3p1m_1mi.$(OBJEXT) \
+ mod_he.$(OBJEXT)
function_3p1m_2mi.lo: mod_gn.lo
-function_3p1m_2mi.obj: mod_gn.obj
-function_3p2m.o: mod_h0.o mod_he.o mod_hf.o
+function_3p1m_2mi.$(OBJEXT): mod_gn.$(OBJEXT)
+function_3p1m_2mi.mod: function_3p1m_2mi.f90 function_3p1m_2mi.$(OBJEXT) \
+ mod_gn.$(OBJEXT)
function_3p2m.lo: mod_h0.lo mod_he.lo mod_hf.lo
-function_3p2m.obj: mod_h0.obj mod_he.obj mod_hf.obj
-function_3p2m_1mi.o: mod_he.o mod_hf.o
+function_3p2m.$(OBJEXT): mod_h0.$(OBJEXT) mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p2m.mod: function_3p2m.f90 function_3p2m.$(OBJEXT) mod_h0.$(OBJEXT) mod_he.$(OBJEXT) \
+ mod_hf.$(OBJEXT)
function_3p2m_1mi.lo: mod_he.lo mod_hf.lo
-function_3p2m_1mi.obj: mod_he.obj mod_hf.obj
-generic_function_3p.o: function_3p0m_1mi.o function_3p1m.o function_3p1m_1mi.o \
- function_3p1m_2mi.o function_3p2m.o function_3p2m_1mi.o \
- function_3p3m.o function_3p_finite.o
+function_3p2m_1mi.$(OBJEXT): mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p2m_1mi.mod: function_3p2m_1mi.f90 function_3p2m_1mi.$(OBJEXT) \
+ mod_he.$(OBJEXT) mod_hf.$(OBJEXT)
+function_3p3m.mod: function_3p3m.f90 function_3p3m.$(OBJEXT)
+function_3p_finite.mod: function_3p_finite.f90 function_3p_finite.$(OBJEXT)
generic_function_3p.lo: function_3p0m_1mi.lo function_3p1m.lo \
function_3p1m_1mi.lo function_3p1m_2mi.lo function_3p2m.lo \
function_3p2m_1mi.lo function_3p3m.lo function_3p_finite.lo
-generic_function_3p.obj: function_3p0m_1mi.obj function_3p1m.obj \
- function_3p1m_1mi.obj function_3p1m_2mi.obj function_3p2m.obj \
- function_3p2m_1mi.obj function_3p3m.obj function_3p_finite.obj
+generic_function_3p.$(OBJEXT): function_3p0m_1mi.$(OBJEXT) function_3p1m.$(OBJEXT) \
+ function_3p1m_1mi.$(OBJEXT) function_3p1m_2mi.$(OBJEXT) function_3p2m.$(OBJEXT) \
+ function_3p2m_1mi.$(OBJEXT) function_3p3m.$(OBJEXT) function_3p_finite.$(OBJEXT)
+generic_function_3p.mod: generic_function_3p.f90 generic_function_3p.$(OBJEXT) \
+ function_3p0m_1mi.$(OBJEXT) function_3p1m.$(OBJEXT) function_3p1m_1mi.$(OBJEXT) \
+ function_3p1m_2mi.$(OBJEXT) function_3p2m.$(OBJEXT) function_3p2m_1mi.$(OBJEXT) \
+ function_3p3m.$(OBJEXT) function_3p_finite.$(OBJEXT)
+func_gn.mod: mod_gn.f90 mod_gn.$(OBJEXT)
+func_h0.mod: mod_h0.f90 mod_h0.$(OBJEXT)
+func_he.mod: mod_he.f90 mod_he.$(OBJEXT)
+func_hf.mod: mod_hf.f90 mod_hf.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/integrals/three_point/function_3p_finite.f90 b/golem95c-1.2.1/integrals/three_point/function_3p_finite.f90
index 5f7e9e7..3075aea 100644
--- a/golem95c-1.2.1/integrals/three_point/function_3p_finite.f90
+++ b/golem95c-1.2.1/integrals/three_point/function_3p_finite.f90
@@ -1,1761 +1,1761 @@
!
!~ 30.4.2010: adapted from function_3p3m.f90 for internal masses
!
!~ 24.6.2010: uses Andre van Hameren's OneLOop for finite C0
!~ 14.1.2011: include LT option in addition
!
!****h* src/integral/three_point/function_3pC0i
! NAME
!
! Module function_3p_finite
!
! USAGE
!
! use function_3p_finite
!
! DESCRIPTION
!
! This module is used to compute IR finite three point functions
! with/without Feynman parameters in n, n+2 dimensions
!
! OUTPUT
!
! This module exports the functions:
! * f3p_finite, C0 -- functions for the computation of IR finite
! three-point functions with/without Feynman parameters in n, n+2 dimensions
! * f3p_finite_c -- a function which computes the same thing as f3p_finite,
! only the format of the return values is different
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * numerical_evaluation (src/numerical/mod_numeric.f90)
! * dilogarithme (src/module/zdilog.f90)
! * logarithme (src/module/z_log.f90)
! * constante (src/module/constante.f90)
! * parametre (src/module/parametre.f90)
! * array (src/module/array.f90)
! * sortie_erreur (src/module/sortie_erreur.f90)
! * generic_function_2p (src/integrals/two_point/generic_function_2p.f90)
! * multiply_div (src/module/multiply_div.f90)
! * s_matrix_type (src/module/s_matrix_type.f90)
!
!*****
module function_3p_finite
!
use precision_golem
use numerical_evaluation
use dilogarithme
use logarithme
use constante
use parametre
use array
use equal
use sortie_erreur
use generic_function_2p
use multiply_div
use s_matrix_type
use matrice_s, only : prepare_s_matrix_local
implicit none
!
private :: ki
real(ki) :: s12_glob,s23_glob,s13_glob
real(ki) :: eps_glob
integer :: par1_glob,par2_glob,par3_glob
character (len=3) :: dim_glob
!
real(ki), dimension(3) :: b_real
real(ki) :: sumb_real
real(ki), dimension(3,3) :: invs_real, s_mat_real
!
complex(ki), dimension(3) :: b_complex
complex(ki) :: sumb_complex
complex(ki), dimension(3,3) :: invs_complex, s_mat_complex
!
type (s_matrix_poly) :: s_mat_p_loc
!
integer, dimension(3) :: par
integer, dimension(3) :: s = (/1,2,3/)
!
logical, dimension(:), allocatable :: deja_calcule
real(ki),dimension(:,:), allocatable :: resultat
logical, dimension(:), allocatable :: deja_calcule_c
complex(ki), dimension(:,:), allocatable :: resultat_c
!
logical, dimension(:,:), allocatable :: deja_calcule2
real(ki),dimension(:,:,:), allocatable :: resultat2
logical, dimension(:,:), allocatable :: deja_calcule2_c
complex(ki),dimension(:,:,:), allocatable :: resultat2_c
!
logical, dimension(:), allocatable :: deja_calcule_np2
real(ki),dimension(:,:), allocatable :: resultat_np2
logical, dimension(:), allocatable :: deja_calcule_np2_c
complex(ki),dimension(:,:), allocatable :: resultat_np2_c
!
logical, dimension(:,:,:), allocatable :: deja_calcule22
real(ki),dimension(:,:,:,:), allocatable :: resultat22
logical, dimension(:,:,:), allocatable :: deja_calcule22_c
complex(ki),dimension(:,:,:,:), allocatable :: resultat22_c
!
private :: eps_glob,s12_glob,s23_glob,s13_glob,par1_glob,par2_glob,par3_glob,dim_glob
private :: b_real, b_complex, sumb_real, sumb_complex, invs_real, invs_complex, s_mat_real, s_mat_complex, par, s
private :: deja_calcule,resultat,deja_calcule2,resultat2,deja_calcule_np2,resultat_np2,deja_calcule22,resultat22
private :: deja_calcule_c,resultat_c,deja_calcule2_c,resultat2_c,deja_calcule_np2_c,resultat_np2_c,deja_calcule22_c,resultat22_c
private :: s_mat_p_loc
!
interface f3p_finite
!
module procedure f3p_finite_rarg
module procedure f3p_finite_carg
!
end interface
!
interface C0
!
module procedure C0_rarg
module procedure C0_carg
!
end interface
!
public :: f3p_finite,f3p_finite_c,C0
!
!
interface
subroutine avh_olo_c0m(rslt,p1,p2,p3,m1,m2,m3)
use precision_golem, only: ki_avh
implicit none
complex(ki_avh), intent(out) :: rslt(0:2)
real(ki_avh), intent(in) :: p1,p2,p3,m1,m2,m3
end subroutine avh_olo_c0m
end interface
!
!
interface
subroutine avh_olo_c0c(rslt,p1,p2,p3,m1,m2,m3)
use precision_golem, only: ki_avh
implicit none
complex(ki_avh), intent(out) :: rslt(0:2)
complex(ki_avh), intent(in) :: p1,p2,p3,m1,m2,m3
end subroutine avh_olo_c0c
end interface
!
! added Jan2011 for LT option
!AC! interface
!AC! function C0(p1, p2, p1p2, m1, m2, m3)
!AC! use precision_golem, only: ki_lt
!AC! implicit none
!AC! real(ki_lt), intent(in) :: p1, p2, p1p2, m1, m2, m3
!AC! complex(ki_lt) :: C0
!AC! end function
!AC! end interface
!AC! interface
!AC! function C0C(p1, p2, p1p2, m1, m2, m3)
!AC! use precision_golem, only: ki_lt
!AC! implicit none
!AC! real(ki_lt), intent(in) :: p1, p2, p1p2
!AC! complex(ki_lt), intent(in) :: m1, m2, m3
!AC! complex(ki_lt) :: C0C
!AC! end function
!AC! end interface
!
contains
!
!****f* src/integral/three_point/function_3p_finite/f3p_finite
! NAME
!
! Function f3p_finite
!
! USAGE
!
! real_dim4 = f3p_finite(dim,s1,s2,s3,m1,m2,m3,par1,par2,par3)
!
! DESCRIPTION
!
! This function computes the IR finite three-point
! function in n and n+2 dimensions.
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1 -- a real/complex (type ki), the first mass squared
! * m2 -- a real/complex (type ki), the second mass squared
! * m3 -- a real/complex (type ki), the third mass squared
! * par1 -- an integer, the label of the third Feynman parameter
! * par2 -- an integer, the label of the second Feynman parameter
! * par3 -- an integer, the label of the first Feynman parameter
! Note that par1,par2 and par3 are supposed to be ordered, i.e.
! par1 <= par2 <= par3, note also that put zero for par1, par2 or par3
! if this Feynman parameter does not exist.
! Use the routine tri_int(t_in,t_out) to order the labels in the module
! tri_croissant (src/module/tri.f90)
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! An real (type ki) array of rank 1 and shape 6,
! where the last two entries corresponding to
! the real/imaginary part of the constant term.
! the first 4 entries are always zero, but the shape should be
! uniform for all triangles called in generic_function_3p
!
!*****
function f3p_finite_rarg(dim,s1,s2,s3,m1,m2,m3,par1,par2,par3)
implicit none
!
character (len=3), intent (in) :: dim
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3
integer, intent (in) :: par1,par2,par3
real(ki), dimension(4) :: f3p_finite_rarg
integer :: nb_par
real(ki) :: lamb, detS3
real(ki) :: plus_grand
real(ki) :: norma
real(ki) :: s1p,s2p,s3p,m1p,m2p,m3p
!complex(ki) :: resto,abserro
!
par = (/par1,par2,par3/)
!
s_mat_real(1,:) = (/-m1*2._ki,s2-m1-m2,s1-m1-m3/)
s_mat_real(2,:) = (/s2-m1-m2,-m2*2._ki,s3-m2-m3/)
s_mat_real(3,:) = (/s1-m1-m3,s3-m2-m3,-m3*2._ki/)
!
! on redefinit la matrice S de telle facon a ce que ces elements
! soient entre -1 et 1
! this can't be done if partly invariants instead of
! s_mat_real are used as arguments
!
plus_grand = 1._ki
if (rat_or_tot_par%tot_selected) then
!
plus_grand = maxval(array=abs(s_mat_real))
! plus_grand = 1._ki
!
else if (rat_or_tot_par%rat_selected) then
!
plus_grand = 1._ki
!
end if
!
!
s_mat_real = s_mat_real/plus_grand
!
s_mat_p_loc = assign_s_matrix(s_mat_real)
!
call prepare_s_matrix_local(s_mat_p_loc,s)
!
detS3 = -(s_mat_real(1, 3)**2*s_mat_real(2, 2)) + 2*s_mat_real(1, 2)*s_mat_real(1, 3)*s_mat_real(2, 3) - &
& s_mat_real(1, 2)**2*s_mat_real(3, 3) + s_mat_real(1, 1)*(-s_mat_real(2, 3)**2 + &
& s_mat_real(2, 2)*s_mat_real(3, 3))
b_real(1) = (-s_mat_real(2, 3)**2 + s_mat_real(1, 3)*(-s_mat_real(2, 2) + s_mat_real(2, 3)) + &
& s_mat_real(1, 2)*(s_mat_real(2, 3) - s_mat_real(3, 3)) + s_mat_real(2, 2)*s_mat_real(3, 3))/detS3
b_real(2) = (-s_mat_real(1, 3)**2 + s_mat_real(1, 3)*s_mat_real(2, 3) + &
& s_mat_real(1, 2)*(s_mat_real(1, 3) - s_mat_real(3, 3)) + &
& s_mat_real(1, 1)*(-s_mat_real(2, 3) + s_mat_real(3, 3)))/detS3
b_real(3) = (-s_mat_real(1, 2)**2 - s_mat_real(1, 3)*s_mat_real(2, 2) + &
& s_mat_real(1, 1)*(s_mat_real(2, 2) - s_mat_real(2, 3)) + &
& s_mat_real(1, 2)*(s_mat_real(1, 3) + s_mat_real(2, 3)))/detS3
!
sumb_real = (-s_mat_real(1, 2)**2 - s_mat_real(1, 3)**2 + s_mat_real(1, 1)*s_mat_real(2, 2) - &
& 2*s_mat_real(1, 3)*(s_mat_real(2, 2) - s_mat_real(2, 3)) - 2*s_mat_real(1, 1)*s_mat_real(2, 3) - &
& s_mat_real(2, 3)**2 + 2*s_mat_real(1, 2)*(s_mat_real(1, 3) + s_mat_real(2, 3) - s_mat_real(3, 3)) + &
& s_mat_real(1, 1)*s_mat_real(3, 3) + s_mat_real(2, 2)*s_mat_real(3, 3))/detS3
!
invs_real(1,1) = (-s_mat_real(2, 3)**2 + s_mat_real(2, 2)*s_mat_real(3, 3))/detS3
invs_real(1,2) = (s_mat_real(1, 3)*s_mat_real(2, 3) - s_mat_real(1, 2)*s_mat_real(3, 3))/detS3
invs_real(1,3) = (-(s_mat_real(1, 3)*s_mat_real(2, 2)) + s_mat_real(1, 2)*s_mat_real(2, 3))/detS3
invs_real(2,1) = invs_real(1,2)
invs_real(2,2) = (-s_mat_real(1, 3)**2 + s_mat_real(1, 1)*s_mat_real(3, 3))/detS3
invs_real(2,3) = (s_mat_real(1, 2)*s_mat_real(1, 3) - s_mat_real(1, 1)*s_mat_real(2, 3))/detS3
invs_real(3,1) = invs_real(1,3)
invs_real(3,2) = invs_real(2,3)
invs_real(3,3) = (-s_mat_real(1, 2)**2 + s_mat_real(1, 1)*s_mat_real(2, 2))/detS3
!
! lamb = 2._ki*s_mat_real(1,3)*s_mat_real(2,3)+2._ki*s_mat_real(1,2)*s_mat_real(2,3)&
! +2._ki*s_mat_real(1,3)*s_mat_real(1,2)-s_mat_real(1,3)*s_mat_real(1,3)-s_mat_real(1,2)*s_mat_real(1,2)&
! -s_mat_real(2,3)*s_mat_real(2,3)
!
lamb = (-s_mat_real(1, 2)**2 - s_mat_real(1, 3)**2 + s_mat_real(1, 1)*s_mat_real(2, 2) - &
& 2*s_mat_real(1, 3)*(s_mat_real(2, 2) - s_mat_real(2, 3)) - 2*s_mat_real(1, 1)*s_mat_real(2, 3) - &
& s_mat_real(2, 3)**2 + 2*s_mat_real(1, 2)*(s_mat_real(1, 3) + s_mat_real(2, 3) - s_mat_real(3, 3)) + &
& s_mat_real(1, 1)*s_mat_real(3, 3) + s_mat_real(2, 2)*s_mat_real(3, 3))
!
nb_par = count(mask=par/=0)
!
m1p = -s_mat_real(1,1)/2._ki
m2p = -s_mat_real(2,2)/2._ki
m3p = -s_mat_real(3,3)/2._ki
s1p = s_mat_real(1,3) - (s_mat_real(1,1)+s_mat_real(3,3))/2._ki
s2p = s_mat_real(1,2) - (s_mat_real(1,1)+s_mat_real(2,2))/2._ki
s3p = s_mat_real(2,3) - (s_mat_real(2,2)+s_mat_real(3,3))/2._ki
!
if (nb_par == 0) then
!
norma = -1._ki/2._ki
!
else if (nb_par == 1) then
!
norma = -1._ki/6._ki
!
else if (nb_par == 2) then
!
! Different normalisations: depends on whether the feynman parameters are equal or not
! Use the fact that the two parameters will be par2 and par3
if (par2==par3) then
norma = -1._ki/12._ki
else
norma = -1._ki/24._ki
endif
!
else
!
norma = -1._ki/24._ki
!
end if
!
! memory allocation to save time in the recursion
!
allocate(deja_calcule(4))
allocate(resultat(4,2))
allocate(deja_calcule2(3,4))
allocate(resultat2(3,4,4))
allocate(deja_calcule_np2(4))
allocate(resultat_np2(4,4))
allocate(deja_calcule22(3,4,4))
allocate(resultat22(3,4,4,4))
!
! initialisation
!
deja_calcule = .false.
resultat = 0._ki
deja_calcule2 = .false.
resultat2 = 0._ki
deja_calcule_np2 = .false.
resultat_np2 = 0._ki
deja_calcule22 = .false.
resultat22 = 0._ki
!
!
f3p_finite_rarg = 0._ki
!
! if (abs(sumb_real) > coupure_3p3m) then
! if (abs(sumb_real) > 0._ki) then
!
! always use analytic computation until massive numerical is implemented
! branching removed completely Feb 4, 2011 because if detS3=0,
! sumb_real=NAN so numerical branch was entered, although scalar integral
! still finite if detS3=0 without any z_i=0 (LLS)
!
! when invariants as input are used, no division by plus_grand!
!
if (dim == "ndi") then
!
! f3p_finite_rarg(3:4)= a3pC0i_rarg(s1,s2,s3,m1,m2,m3,par1,par2,par3)
f3p_finite_rarg(3:4)= a3pC0i_rarg(s1p,s2p,s3p,m1p,m2p,m3p,par1,par2,par3)&
&/plus_grand
- !
+ !
else if (dim == "n+2") then
!
! f3p_finite_rarg = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,par1,par2,par3)
f3p_finite_rarg = a3pC0i_np2_rarg(s1p,s2p,s3p,m1p,m2p,m3p,par1,par2,par3)
f3p_finite_rarg(3) = f3p_finite_rarg(3)-log(plus_grand)*norma
!
! mu2_scale_par is already contained in the bubbles,
!
end if
!
! else
!
! numerical computation
!
!dim_glob = dim
!par1_glob = par1
! par2_glob = par2
!par3_glob = par3
!
!s13_glob = s_mat_real(1,3)
!s12_glob = s_mat_real(1,2)
!s23_glob = s_mat_real(2,3)
!
!resto = 0._ki
!abserro = 0._ki
!
! eps_glob = sign(1._ki,s23_glob-s13_glob)
!
!origine_info_par = "f3p_finite, dimension "//dim
! num_grand_b_info_par = lamb
! denom_grand_b_info_par = (2._ki*s_mat_real(1,3)*s_mat_real(1,2)*s_mat_real(2,3))
!
! call generic_eval_numer(eval_numer_gi,0._ki,1._ki,tolerance,resto,abserro)
!
! if (dim == "ndi") then
!
! resto = resto/plus_grand
!
! else if (dim == "n+2") then
!
! f3p_finite_rarg(1) = norma
! f3p_finite_rarg(2) = 0._ki
! resto = resto-log(plus_grand/mu2_scale_par)*norma
!
! end if
!
! f3p_finite_rarg(3) = real(resto,ki)
! f3p_finite_rarg(4) = aimag(resto)
!
!end if ! end if analytic or numeric
!
deallocate(deja_calcule)
deallocate(resultat)
deallocate(deja_calcule2)
deallocate(resultat2)
deallocate(deja_calcule_np2)
deallocate(resultat_np2)
deallocate(deja_calcule22)
deallocate(resultat22)
!
call nullify_s_matrix(s_mat_p_loc)
!
end function f3p_finite_rarg
!
function f3p_finite_carg(dim,s1r,s2r,s3r,m1,m2,m3,par1,par2,par3)
implicit none
!
character (len=3), intent (in) :: dim
real(ki), intent (in) :: s1r, s2r, s3r
complex(ki), intent (in) :: m1,m2,m3
integer, intent (in) :: par1,par2,par3
real(ki), dimension(4) :: f3p_finite_carg
!
complex(ki) :: s1, s2, s3
integer :: nb_par
complex(ki) :: lamb, detS3
real(ki) :: plus_grand
complex(ki) :: norma
!complex(ki) :: resto,abserro
complex(ki) :: temp0
complex(ki), dimension(2) :: temp
real(ki) :: s1rp,s2rp,s3rp
complex(ki) :: m1p,m2p,m3p
!
! write(6,*) '******** debug f3p_finite_carg *************** '
par = (/par1,par2,par3/)
!
s1 = cmplx(s1r, 0._ki,ki)
s2 = cmplx(s2r, 0._ki,ki)
s3 = cmplx(s3r, 0._ki,ki)
!
s_mat_complex(1,:) = (/-m1*2._ki,s2-m1-m2,s1-m1-m3/)
s_mat_complex(2,:) = (/s2-m1-m2,-m2*2._ki,s3-m2-m3/)
s_mat_complex(3,:) = (/s1-m1-m3,s3-m2-m3,-m3*2._ki/)
!
! on redefinit la matrice S de telle facon a ce que ces elements
! soient entre -1 et 1
! this can't be done if partly invariants instead of
! s_mat_complex are used as arguments
!
!plus_grand = 1._ki
if (rat_or_tot_par%tot_selected) then
!
plus_grand = maxval(array=abs(s_mat_complex))
!
else if (rat_or_tot_par%rat_selected) then
!
plus_grand = 1._ki
!
end if
!
s_mat_complex = s_mat_complex/plus_grand
!
s_mat_real = real(s_mat_complex,ki)
!
m1p = m1/plus_grand
m2p = m2/plus_grand
m3p = m3/plus_grand
s1rp = s1r/plus_grand
s2rp = s2r/plus_grand
s3rp = s3r/plus_grand
!
s_mat_p_loc = assign_s_matrix(s_mat_complex,s_mat_real)
!
call prepare_s_matrix_local(s_mat_p_loc, s)
!
detS3 = -(s_mat_complex(1, 3)**2*s_mat_complex(2, 2)) + 2*s_mat_complex(1, 2)*s_mat_complex(1, 3)*s_mat_complex(2, 3) - &
& s_mat_complex(1, 2)**2*s_mat_complex(3, 3) + s_mat_complex(1, 1)*(-s_mat_complex(2, 3)**2 + &
& s_mat_complex(2, 2)*s_mat_complex(3, 3))
b_complex(1) = (-s_mat_complex(2, 3)**2 + s_mat_complex(1, 3)*(-s_mat_complex(2, 2) + s_mat_complex(2, 3)) + &
& s_mat_complex(1, 2)*(s_mat_complex(2, 3) - s_mat_complex(3, 3)) + s_mat_complex(2, 2)*s_mat_complex(3, 3))/detS3
b_complex(2) = (-s_mat_complex(1, 3)**2 + s_mat_complex(1, 3)*s_mat_complex(2, 3) + &
& s_mat_complex(1, 2)*(s_mat_complex(1, 3) - s_mat_complex(3, 3)) + &
& s_mat_complex(1, 1)*(-s_mat_complex(2, 3) + s_mat_complex(3, 3)))/detS3
b_complex(3) = (-s_mat_complex(1, 2)**2 - s_mat_complex(1, 3)*s_mat_complex(2, 2) + &
& s_mat_complex(1, 1)*(s_mat_complex(2, 2) - s_mat_complex(2, 3)) + &
& s_mat_complex(1, 2)*(s_mat_complex(1, 3) + s_mat_complex(2, 3)))/detS3
!
sumb_complex = (-s_mat_complex(1, 2)**2 - s_mat_complex(1, 3)**2 + s_mat_complex(1, 1)*s_mat_complex(2, 2) - &
& 2*s_mat_complex(1, 3)*(s_mat_complex(2, 2) - s_mat_complex(2, 3)) - 2*s_mat_complex(1, 1)*s_mat_complex(2, 3) - &
& s_mat_complex(2, 3)**2 + 2*s_mat_complex(1, 2)*(s_mat_complex(1, 3) + s_mat_complex(2, 3) - s_mat_complex(3, 3)) + &
& s_mat_complex(1, 1)*s_mat_complex(3, 3) + s_mat_complex(2, 2)*s_mat_complex(3, 3))/detS3
!
invs_complex(1,1) = (-s_mat_complex(2, 3)**2 + s_mat_complex(2, 2)*s_mat_complex(3, 3))/detS3
invs_complex(1,2) = (s_mat_complex(1, 3)*s_mat_complex(2, 3) - s_mat_complex(1, 2)*s_mat_complex(3, 3))/detS3
invs_complex(1,3) = (-(s_mat_complex(1, 3)*s_mat_complex(2, 2)) + s_mat_complex(1, 2)*s_mat_complex(2, 3))/detS3
invs_complex(2,1) = invs_complex(1,2)
invs_complex(2,2) = (-s_mat_complex(1, 3)**2 + s_mat_complex(1, 1)*s_mat_complex(3, 3))/detS3
invs_complex(2,3) = (s_mat_complex(1, 2)*s_mat_complex(1, 3) - s_mat_complex(1, 1)*s_mat_complex(2, 3))/detS3
invs_complex(3,1) = invs_complex(1,3)
invs_complex(3,2) = invs_complex(2,3)
invs_complex(3,3) = (-s_mat_complex(1, 2)**2 + s_mat_complex(1, 1)*s_mat_complex(2, 2))/detS3
!
lamb = (-s_mat_complex(1, 2)**2 - s_mat_complex(1, 3)**2 + s_mat_complex(1, 1)*s_mat_complex(2, 2) - &
& 2*s_mat_complex(1, 3)*(s_mat_complex(2, 2) - s_mat_complex(2, 3)) - 2*s_mat_complex(1, 1)*s_mat_complex(2, 3) - &
& s_mat_complex(2, 3)**2 + 2*s_mat_complex(1, 2)*(s_mat_complex(1, 3) + s_mat_complex(2, 3) - s_mat_complex(3, 3)) + &
& s_mat_complex(1, 1)*s_mat_complex(3, 3) + s_mat_complex(2, 2)*s_mat_complex(3, 3))
!
nb_par = count(mask=par/=0)
!
if (nb_par == 0) then
!
norma = -1._ki/2._ki
!
else if (nb_par == 1) then
!
norma = -1._ki/6._ki
!
else if (nb_par == 2) then
!
! Different normalisations: depends on whether the feynman parameters are equal or not
! Use the fact that the two parameters will be par2 and par3
if (par2==par3) then
norma = -1._ki/12._ki
else
norma = -1._ki/24._ki
endif
!
else
!
norma = -1._ki/24._ki
!
end if
!
! memory allocation to save time in the recursion
!
allocate(deja_calcule_c(4))
allocate(resultat_c(4,1) )
allocate(deja_calcule2_c(3,4))
allocate(resultat2_c(3,4,2))
allocate(deja_calcule_np2_c(4))
allocate(resultat_np2_c(4,2))
allocate(deja_calcule22_c(3,4,4))
allocate(resultat22_c(3,4,4,2))
!
! initialisation
!
deja_calcule_c = .false.
resultat_c = czero
deja_calcule2_c = .false.
resultat2_c = czero
deja_calcule_np2_c = .false.
resultat_np2_c = czero
deja_calcule22_c = .false.
resultat22_c = czero
!
!
f3p_finite_carg(:) = 0._ki
!
! if (abs(sumb_complex) > coupure_3p3m) then
! if (abs(sumb_complex) > 0._ki) then
!
! always use analytic computation until massive numerical is implemented
!
!
if (dim == "ndi") then
!
! temp0 = a3pC0i_carg(s1r,s2r,s3r,m1,m2,m3,par1,par2,par3)
temp0 = a3pC0i_carg(s1rp,s2rp,s3rp,m1p,m2p,m3p,par1,par2,par3)
f3p_finite_carg(3) = real(temp0,ki)/plus_grand
f3p_finite_carg(4) = aimag(temp0)/plus_grand
!
else if (dim == "n+2") then
!
! temp = a3pC0i_np2_carg(s1r,s2r,s3r,m1,m2,m3,par1,par2,par3)
temp = a3pC0i_np2_carg(s1rp,s2rp,s3rp,m1p,m2p,m3p,par1,par2,par3)
f3p_finite_carg(1) = real(temp(1),ki)
f3p_finite_carg(2) = aimag(temp(1))
f3p_finite_carg(3) = real(temp(2),ki)
f3p_finite_carg(4) = aimag(temp(2))
f3p_finite_carg(3) = f3p_finite_carg(3)-log(plus_grand)*norma
! mu2_scale_par is already contained in the bubbles,
!
end if
!
! numerical computation disabled
!
deallocate(deja_calcule_c)
deallocate(resultat_c)
deallocate(deja_calcule2_c)
deallocate(resultat2_c)
deallocate(deja_calcule_np2_c)
deallocate(resultat_np2_c)
deallocate(deja_calcule22_c)
deallocate(resultat22_c)
!
call nullify_s_matrix(s_mat_p_loc)
!
end function f3p_finite_carg
!
!****f* src/integral/three_point/function_3pC0i/f3p_finite_c
! NAME
!
! Function f3p_finite_c
!
! USAGE
!
! complex_dim2 = f3p_finite_c(s1,s2,s3,m1,m2,m3,par1,par2,par3)
!
! DESCRIPTION
!
! It computes the same as the function f3p_finite, but the returned
! value is a complex (type ki) array of rank 1 and shape 2
!
! INPUTS
!
! * dim -- a character (length 3), to compute in n or n+2 dimensions
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1 -- a real (type ki), the first mass^2
! * m2 -- a real (type ki), the second mass^2
! * m3 -- a real (type ki), the third mass^2
! * par1 -- an integer, the label of the third Feynman parameter
! * par2 -- an integer, the label of the second Feynman parameter
! * par3 -- an integer, the label of the first Feynman parameter
! Note that par1,par2 and par3 are supposed to be ordered, i.e.
! par1 <= par2 <= par3, note also that put zero for par1, par2 or par3
! if this Feynman parameter does not exist.
! Use the routine tri_int(t_in,t_out) to order the labels in the module
! tri_croissant (src/module/tri.f90)
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! An complex (type ki) array of rank 1 and shape 2 corresponding to
! the (real part,imaginary part) of the coefficient of the 1/epsilon term
! and the (real part,imaginary part) of the constant term. if par1 and/or par2
! are different from zero for dim="n+2", an error is returned.
!
! EXAMPLE
!
- function f3p_finite_c(dim,s1,s2,s3,m1,m2,m3,par1,par2,par3)
+ function f3p_finite_c(dim,s1,s2,s3,m1,m2,m3,par1,par2,par3)
!
use translate
implicit none
!
character (len=3), intent (in) :: dim
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3
integer, intent (in) :: par1,par2,par3
complex(ki), dimension(2) :: f3p_finite_c
!
real(ki), dimension(4) :: res4
!
res4 = f3p_finite(dim,s1,s2,s3,m1,m2,m3,par1,par2,par3)
call to_complex(res4,f3p_finite_c)
!
end function f3p_finite_c
!
!
!
!*****
!****if* src/integral/three_point/function_3pC0i/a3pC0i
! NAME
!
! Function a3pC0i
!
! USAGE
!
! real_dim2 = a3pC0i_rarg(s1,s2,s3,m1r,m2r,m3r,par1,par2,par3)
! complex_dim1 = a3pC0i_carg(s1,s2,s3,m1c,m2c,m3c,par1,par2,par3)
!
! DESCRIPTION
!
! This recursive function implements the formula of ref 1
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1(r/c) -- a real/complex (type ki), the first internal mass squared
! * m2(r/c) -- a real/complex (type ki), the second internal mass squared
! * m3(r/c) -- a real/complex (type ki), the third internal mass squared
! * par1 -- an integer, the label of the third Feynman parameter
! * par2 -- an integer, the label of the second Feynman parameter
! * par3 -- an integer, the label of the first Feynman parameter
!
! SIDE EFFECTS
!
! This function modifies the value of the local (for the module) variables:
! * deja_calcule(_c), deja_calcule2, deja_calcule_np2(_c) and deja_calcule22
! * resultat(_c), resultat2, resultat_np2(_c) and resultat22
!
! RETURN VALUE
!
! It returns a real/complex (type ki) array of rank 1 and shape 2/1
!
! EXAMPLE
!
!
!
!*****
recursive function a3pC0i_rarg(s1,s2,s3,m1,m2,m3,par1,par2,par3) result(res_3pC0i_rarg)
!
implicit none
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3
integer, intent (in) :: par1,par2,par3
real(ki), dimension(2) :: res_3pC0i_rarg
!
integer :: j
integer :: nb_par_loc
integer, dimension(3) :: par_loc,par_plus
real(ki), dimension(4) :: truc1
real(ki), dimension(2) :: temp0
real(ki), dimension(4) :: temp1,temp2,temp3
real(ki), dimension(4) :: temp10,temp11,temp12
complex(ki) :: ctemp
integer :: ib,b_pro,b_pro_mj
!
b_pro = packb(s)
!
par_loc = (/par1,par2,par3/)
par_plus = par_loc+1
nb_par_loc = count(mask=par_loc/=0)
!
! cas sans parametre de feynman au numerateur
!
if (nb_par_loc == 0) then
! write(6,*) 'calls a3pC0i_rarg'
ctemp = C0(s1,s2,s3,m1,m2,m3)
res_3pC0i_rarg(1) = real(ctemp,ki)
res_3pC0i_rarg(2) = aimag(ctemp)
!
! cas avec un parametre de feynman au numerateur
!
else if (nb_par_loc == 1) then
!
if (deja_calcule(1)) then
!
temp0 = resultat(1,:)
!
else
!
temp0 = a3pC0i_rarg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat(1,:) = temp0
deja_calcule(1) = .true.
!
end if
!
temp1 = 0._ki
temp2 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2(j,1)) then
!
truc1 = resultat2(j,1,:)
!
else
!
truc1 = f2p_ra(s_mat_p_loc,b_pro_mj) !returns real array!
resultat2(j,1,:) = truc1
deja_calcule2(j,1) = .true.
!
end if
!
temp1 = temp1 + b_real(j)*truc1
temp2 = temp2 + invs_real(j,par3)*truc1
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_rarg(1) = b_real(par3)*(temp0(1) - temp1(3))/sumb_real + temp2(3)
res_3pC0i_rarg(2) = b_real(par3)*(temp0(2) - temp1(4))/sumb_real + temp2(4)
!
! cas avec deux parametres de feynman au numerateur
!
else if (nb_par_loc == 2) then
!
if (deja_calcule_np2(par_plus(3))) then
!
temp11 = resultat_np2(par_plus(3),:)
!
else
!
temp11 = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,0,0,par3)
resultat_np2(par_plus(3),:) = temp11
deja_calcule_np2(par_plus(3)) = .true.
!
end if
!
temp10 = resultat_np2(1,:)
temp3 = invs_real(par2,par3)*temp10
temp1 = b_real(par2)*temp11
temp1 = mult_div(-2._ki/3._ki,temp1)*3._ki
temp2 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (j /= par3) then
!
if (deja_calcule2(j,par_plus(3))) then
!
truc1 = resultat2(j,par_plus(3),:)
!
else
!
truc1 = f2p_ra(s_mat_p_loc,b_pro_mj,par3) !returns real array!
resultat2(j,par_plus(3),:) = truc1
deja_calcule2(j,par_plus(3)) = .true.
!
end if
!
temp2 = temp2 + invs_real(j,par2)*truc1
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_rarg(1) = -temp3(3) + temp1(3) + temp2(3)
res_3pC0i_rarg(2) = -temp3(4) + temp1(4) + temp2(4)
!
! cas avec trois parametres de feynman au numerateur
!
else
!
temp12 = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,0,par2,par3)
temp10 = resultat_np2(par_plus(3),:)
temp11 = resultat_np2(par_plus(2),:)
temp3 = invs_real(par1,par2)*temp10 &
+ invs_real(par1,par3)*temp11
temp1 = b_real(par1)*temp12
temp1 = mult_div(-1._ki/2._ki,temp1)*4._ki
temp2 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if ( (j /= par3) .and. (j /= par2) ) then
!
truc1 = resultat22(j,par_plus(2),par_plus(3),:)
temp2 = temp2 + invs_real(j,par1)*truc1
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_rarg(1) = -temp3(3) + temp1(3) + temp2(3)
res_3pC0i_rarg(2) = -temp3(4) + temp1(4) + temp2(4)
!
!
end if
!
end function a3pC0i_rarg
!
recursive function a3pC0i_carg(s1,s2,s3,m1,m2,m3,par1,par2,par3) result(res_3pC0i_carg)
!
implicit none
real(ki), intent (in) :: s1,s2,s3
complex(ki), intent (in) :: m1,m2,m3
integer, intent (in) :: par1,par2,par3
complex(ki) :: res_3pC0i_carg
!
integer :: j
integer :: nb_par_loc
integer, dimension(3) :: par_loc,par_plus
complex(ki), dimension(2) :: truc1_c
complex(ki) :: temp0
complex(ki), dimension(2) :: temp1, temp2, temp3
complex(ki), dimension(2) :: temp10, temp11, temp12
complex(ki) :: ctemp
integer :: ib,b_pro,b_pro_mj
!
b_pro = packb(s)
!
par_loc = (/par1,par2,par3/)
par_plus = par_loc+1
nb_par_loc = count(mask=par_loc/=0)
!
! cas sans parametre de feynman au numerateur
!
if (nb_par_loc == 0) then
ctemp = C0(s1,s2,s3,m1,m2,m3)
res_3pC0i_carg = ctemp
!
! cas avec un parametre de feynman au numerateur
!
else if (nb_par_loc == 1) then
!
if (deja_calcule_c(1)) then
!
temp0 = resultat_c(1,1)
!
else
!
temp0 = a3pC0i_carg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat_c(1,1) = temp0
deja_calcule_c(1) = .true.
!
end if
!
temp1(:) = czero
temp2(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2_c(j,1)) then
!
truc1_c = resultat2_c(j,1,:)
!
else
!
truc1_c = f2p(s_mat_p_loc,b_pro_mj) !returns complex array!
resultat2_c(j,1,:) = truc1_c
deja_calcule2_c(j,1) = .true.
!
end if
!
temp1 = temp1 + b_complex(j)*truc1_c
temp2 = temp2 + invs_complex(j,par3)*truc1_c
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_carg = b_complex(par3)*(temp0 - temp1(2))/sumb_complex + temp2(2)
!
! cas avec deux parametres de feynman au numerateur
!
else if (nb_par_loc == 2) then
!
if (deja_calcule_np2_c(par_plus(3))) then
!
temp11 = resultat_np2_c(par_plus(3),:)
!
else
!
temp11 = a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,0,0,par3)
resultat_np2_c(par_plus(3),:) = temp11
deja_calcule_np2_c(par_plus(3)) = .true.
!
end if
!
temp10 = resultat_np2_c(1,:)
temp3 = invs_complex(par2,par3)*temp10
temp1 = b_complex(par2)*temp11
temp1 = mult_div(-2._ki/3._ki,temp1)*3._ki
temp2(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (j /= par3) then
!
if (deja_calcule2_c(j,par_plus(3))) then
!
truc1_c = resultat2_c(j,par_plus(3),:)
!
else
!
truc1_c = f2p(s_mat_p_loc,b_pro_mj,par3) !returns complex array!
resultat2_c(j,par_plus(3),:) = truc1_c
deja_calcule2_c(j,par_plus(3)) = .true.
!
end if
!
temp2 = temp2 + invs_complex(j,par2)*truc1_c
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_carg = -temp3(2) + temp1(2) + temp2(2)
!
! cas avec trois parametres de feynman au numerateur
!
else
!
temp12 = a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,0,par2,par3)
temp10 = resultat_np2_c(par_plus(3),:)
temp11 = resultat_np2_c(par_plus(2),:)
temp3 = invs_complex(par1,par2)*temp10 &
+ invs_complex(par1,par3)*temp11
temp1 = b_complex(par1)*temp12
temp1 = mult_div(-1._ki/2._ki,temp1)*4._ki
temp2(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if ( (j /= par3) .and. (j /= par2) ) then
!
truc1_c = resultat22_c(j,par_plus(2),par_plus(3),:) !!returns complex array!
temp2 = temp2 + invs_complex(j,par1)*truc1_c
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_carg = -temp3(2) + temp1(2) + temp2(2)
!
end if
!
end function a3pC0i_carg
!
!****if* src/integral/three_point/function_3pC0i/a3pC0i_np2
! NAME
!
! Function a3pC0i_np2
!
! USAGE
!
! real_dim4 = a3pC0i_np2_rarg(s1,s2,s3,m1r,m2r,m3r,par1,par2,par3)
! complex_dim2 = a3pC0i_np2_carg(s1,s2,s3,m1c,m2c,m3c,par1,par2,par3)
!
! DESCRIPTION
!
! This recursive function implements the formula of ref 1
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1(r/c) -- a real/complex (type ki), the first internal mass squared
! * m2(r/c) -- a real/complex (type ki), the second internal mass squared
! * m3(r/c) -- a real/complex (type ki), the third internal mass squared
! * par1 -- an integer, the label of the third Feynman parameter
! * par2 -- an integer, the label of the second Feynman parameter
! * par3 -- an integer, the label of the first Feynman parameter
!
! SIDE EFFECTS
!
! This function modifies the value of the local (for the module) variables:
! * deja_calcule(_c), deja_calcule2, deja_calcule_np2(_c) and deja_calcule22
! * resultat(_c), resultat2, resultat_np2(_c) and resultat22
!
! RETURN VALUE
!
! It returns a real/complex (type ki) array of rank 1 and shape 4/2
!
! EXAMPLE
!
!
!
!*****
!
recursive function a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,par1,par2,par3) result(res_3pC0i_np2_rarg)
!
implicit none
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3
integer, intent (in) :: par1,par2,par3
real(ki), dimension(4) :: res_3pC0i_np2_rarg
!
integer :: j
integer :: nb_par_loc
integer, dimension(3) :: par_loc,par_plus
real(ki), dimension(4) :: truc1,truc2
real(ki), dimension(2) :: temp0
real(ki), dimension(4) :: temp1,temp2,temp3
real(ki), dimension(4) :: temp10,temp11
integer :: ib,b_pro,b_pro_mj
!
b_pro = packb(s)
!
par_loc = (/par1,par2,par3/)
par_plus = par_loc+1
nb_par_loc = count(mask=par_loc/=0)
!
! cas sans parametre de feynman au numerateur
!
if (nb_par_loc == 0) then
!
if (deja_calcule(1)) then
!
temp0 = resultat(1,:)
!
else
!
temp0 = a3pC0i_rarg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat(1,:) = temp0
deja_calcule(1) = .true.
!
end if
!
temp1 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2(j,1)) then
!
truc1 = resultat2(j,1,:)
!
else
!
truc1 = f2p_ra(s_mat_p_loc,b_pro_mj) !returns real array!
resultat2(j,1,:) = truc1
deja_calcule2(j,1) = .true.
!
end if
!
temp1 = temp1 + b_real(j)*truc1
- !
+ !
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_np2_rarg(1) = (- temp1(1))/sumb_real
res_3pC0i_np2_rarg(2) = (- temp1(2))/sumb_real
res_3pC0i_np2_rarg(3) = (temp0(1) - temp1(3))/sumb_real
res_3pC0i_np2_rarg(4) = (temp0(2) - temp1(4))/sumb_real
res_3pC0i_np2_rarg = mult_div(1._ki,res_3pC0i_np2_rarg)/2._ki
!
! cas avec un parametre de feynman au numerateur
!
else if (nb_par_loc == 1) then
!
if (deja_calcule_np2(1)) then
!
temp10 = resultat_np2(1,:)
!
else
!
temp10 = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat_np2(1,:) = temp10
deja_calcule_np2(1) = .true.
!
end if
!
temp3 = b_real(par3)*temp10
temp1 = 0._ki
temp2 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2(j,1)) then
!
truc1 = resultat2(j,1,:)
!
else
!
truc1 = f2p_ra(s_mat_p_loc,b_pro_mj) !returns real array!
resultat2(j,1,:) = truc1
deja_calcule2(j,1) = .true.
!
end if
!
temp1 = temp1 + invs_real(j,par3)*truc1
!
if (j /= par3) then
!
if (deja_calcule2(j,par_plus(3))) then
!
truc2 = resultat2(j,par_plus(3),:)
!
else
!
truc2 = f2p_ra(s_mat_p_loc,b_pro_mj,par3) !returns real array!
resultat2(j,par_plus(3),:) = truc2
deja_calcule2(j,par_plus(3)) = .true.
!
end if
!
temp2 = temp2 + b_real(j)*truc2
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
temp1 = mult_div(2._ki/3._ki,temp1)/3._ki
temp2 = mult_div(2._ki/3._ki,temp2)/3._ki
res_3pC0i_np2_rarg(1) = (temp3(1) + temp1(1) - temp2(1))/sumb_real
res_3pC0i_np2_rarg(2) = (temp3(2) + temp1(2) - temp2(2))/sumb_real
res_3pC0i_np2_rarg(3) = (temp3(3) + temp1(3) - temp2(3))/sumb_real
res_3pC0i_np2_rarg(4) = (temp3(4) + temp1(4) - temp2(4))/sumb_real
!
! cas avec deux parametres de feynman au numerateur
!
else if (nb_par_loc == 2) then
!
temp0 = a3pC0i_rarg(s1,s2,s3,m1,m2,m3,0,par2,par3)
!
if (deja_calcule_np2(par_plus(2))) then
!
temp10 = resultat_np2(par_plus(2),:)
!
else
!
temp10 = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,0,0,par2)
resultat_np2(par_plus(2),:) = temp10
deja_calcule_np2(par_plus(2)) = .true.
!
end if
!
!
if (deja_calcule_np2(par_plus(3))) then
!
temp11 = resultat_np2(par_plus(3),:)
!
else
!
temp11 = a3pC0i_np2_rarg(s1,s2,s3,m1,m2,m3,0,0,par3)
resultat_np2(par_plus(3),:) = temp11
deja_calcule_np2(par_plus(3)) = .true.
!
end if
!
temp3 = b_real(par3)*temp10 + b_real(par2)*temp11
temp1 = 0._ki
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if ( (j /= par2) .and. (j /= par3) ) then
!
if (deja_calcule22(j,par_plus(2),par_plus(3))) then
!
truc1 = resultat22(j,par_plus(2),par_plus(3),:)
!
else
!
truc1 = f2p_ra(s_mat_p_loc,b_pro_mj,par2,par3) !returns real array!
resultat22(j,par_plus(2),par_plus(3),:) = truc1
deja_calcule22(j,par_plus(2),par_plus(3)) = .true.
!
end if
!
temp1 = temp1 + b_real(j)*truc1
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_np2_rarg(1) = (temp3(1) - temp1(1))/sumb_real
res_3pC0i_np2_rarg(2) = (temp3(2) - temp1(2))/sumb_real
res_3pC0i_np2_rarg(3) = (temp0(1) + temp3(3) - temp1(3))/sumb_real
res_3pC0i_np2_rarg(4) = (temp0(2) + temp3(4) - temp1(4))/sumb_real
res_3pC0i_np2_rarg = mult_div(1._ki/2._ki,res_3pC0i_np2_rarg)/4._ki
!
! cas avec trois parametres de feynman au numerateur
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'Error in f3p_finite:'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'rank 3 6-dim 3-point function should not be needed'
call catch_exception(0)
!
end if
!
end function a3pC0i_np2_rarg
!
recursive function a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,par1,par2,par3) result(res_3pC0i_np2_carg)
!
implicit none
!
real(ki), intent (in) :: s1,s2,s3
complex(ki), intent (in) :: m1,m2,m3
integer, intent (in) :: par1,par2,par3
complex(ki), dimension(2) :: res_3pC0i_np2_carg
!
integer :: j
integer :: nb_par_loc
integer, dimension(3) :: par_loc,par_plus
complex(ki), dimension(2) :: truc1_c, truc2_c
complex(ki) :: temp0
complex(ki), dimension(2) :: temp1, temp2, temp3
complex(ki), dimension(2) :: temp10, temp11
integer :: ib,b_pro,b_pro_mj
!
b_pro = packb(s)
!
par_loc = (/par1,par2,par3/)
par_plus = par_loc+1
nb_par_loc = count(mask=par_loc/=0)
!
! cas sans parametre de feynman au numerateur
!
if (nb_par_loc == 0) then
!
if (deja_calcule_c(1)) then
!
temp0 = resultat_c(1,1)
!
else
!
temp0 = a3pC0i_carg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat_c(1,1) = temp0
deja_calcule_c(1) = .true.
!
end if
!
temp1(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2_c(j,1)) then
!
truc1_c = resultat2_c(j,1,:)
!
else
!
truc1_c = f2p(s_mat_p_loc,b_pro_mj) !!! returns complex array!
resultat2_c(j,1,:) = truc1_c
deja_calcule2_c(j,1) = .true.
!
end if
!
temp1 = temp1 + b_complex(j)*truc1_c
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_np2_carg(1) = (- temp1(1))/sumb_complex
res_3pC0i_np2_carg(2) = (temp0 - temp1(2))/sumb_complex
res_3pC0i_np2_carg = mult_div(1._ki,res_3pC0i_np2_carg)/2._ki
!
! cas avec un parametre de feynman au numerateur
!
else if (nb_par_loc == 1) then
!
if (deja_calcule_np2_c(1)) then
!
temp10 = resultat_np2_c(1,:)
!
else
!
temp10 = a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,0,0,0)
resultat_np2_c(1,:) = temp10
deja_calcule_np2_c(1) = .true.
!
end if
!
temp3 = b_complex(par3)*temp10
temp1(:) = czero
temp2(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if (deja_calcule2_c(j,1)) then
!
truc1_c = resultat2_c(j,1,:)
!
else
!
truc1_c = f2p(s_mat_p_loc,b_pro_mj) !!! returns complex array!
resultat2_c(j,1,:) = truc1_c
deja_calcule2_c(j,1) = .true.
!
end if
!
temp1 = temp1 + invs_complex(j,par3)*truc1_c
!
if (j /= par3) then
!
if (deja_calcule2_c(j,par_plus(3))) then
!
truc2_c = resultat2_c(j,par_plus(3),:)
!
else
!
truc2_c = f2p(s_mat_p_loc,b_pro_mj,par3) !!! returns complex array!
resultat2_c(j,par_plus(3),:) = truc2_c
deja_calcule2_c(j,par_plus(3)) = .true.
!
end if
!
temp2 = temp2 + b_complex(j)*truc2_c
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
temp1 = mult_div(2._ki/3._ki,temp1)/3._ki
temp2 = mult_div(2._ki/3._ki,temp2)/3._ki
res_3pC0i_np2_carg(1) = (temp3(1) + temp1(1) - temp2(1))/sumb_complex
res_3pC0i_np2_carg(2) = (temp3(2) + temp1(2) - temp2(2))/sumb_complex
!
! cas avec deux parametres de feynman au numerateur
!
else if (nb_par_loc == 2) then
!
temp0 = a3pC0i_carg(s1,s2,s3,m1,m2,m3,0,par2,par3)
!
if (deja_calcule_np2_c(par_plus(2))) then
!
temp10 = resultat_np2_c(par_plus(2),:)
!
else
!
temp10 = a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,0,0,par2)
resultat_np2_c(par_plus(2),:) = temp10
deja_calcule_np2_c(par_plus(2)) = .true.
!
end if
!
if (deja_calcule_np2_c(par_plus(3))) then
!
temp11 = resultat_np2_c(par_plus(3),:)
!
else
!
temp11 = a3pC0i_np2_carg(s1,s2,s3,m1,m2,m3,0,0,par3)
resultat_np2_c(par_plus(3),:) = temp11
deja_calcule_np2_c(par_plus(3)) = .true.
!
end if
!
temp3 = b_complex(par3)*temp10 + b_complex(par2)*temp11
temp1(:) = czero
!
ib = b_pro
j = 0
!
do while (ib /= 0)
!
if (modulo(ib,2) == 1) then
!
b_pro_mj = ibclr(b_pro,j)
!
if ( (j /= par2) .and. (j /= par3) ) then
!
if (deja_calcule22_c(j,par_plus(2),par_plus(3))) then
!
truc1_c = resultat22_c(j,par_plus(2),par_plus(3),:)
!
else
!
truc1_c = f2p(s_mat_p_loc,b_pro_mj,par2,par3) !!!returns complex array
resultat22_c(j,par_plus(2),par_plus(3),:) = truc1_c
deja_calcule22_c(j,par_plus(2),par_plus(3)) = .true.
!
end if
!
temp1 = temp1 + b_complex(j)*truc1_c
!
end if
!
end if
!
j = j+1
ib= ishft(ib,-1)
!
end do
!
res_3pC0i_np2_carg(1) = (temp3(1) - temp1(1))/sumb_complex
res_3pC0i_np2_carg(2) = (temp0 + temp3(2) - temp1(2))/sumb_complex
res_3pC0i_np2_carg = mult_div(1._ki/2._ki,res_3pC0i_np2_carg)/4._ki
!
! cas avec trois parametres de feynman au numerateur
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'Error in f3p_finite:'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'rank 3 6-dim 3-point function should not be needed'
call catch_exception(0)
!
end if
!
end function a3pC0i_np2_carg
!
!****f* src/integral/three_point/function_3pC0i/C0
! NAME
!
! Function C0
!
! USAGE
!
! complex = C0(s1,s2,s3,m1,m2,m3)
!
! DESCRIPTION
!
! This function computes finite scalar three point functions
! with internal masses in 4 dimensions
!
! INPUTS
!
! * s1 -- a real/complex (type ki), p1^2
! * s2 -- a real/complex (type ki), p2^2
! * s3 -- a real/complex (type ki), p3^2
! * m1 -- a real/complex (type ki), the first internal mass squared
! * m2 -- a real/complex (type ki), the second internal mass squared
! * m3 -- a real/complex (type ki), the third internal mass squared
!
! SIDE EFFECTS
!
! No side effect, it uses the value of rat_or_tot_par
! (in src/module/parametre.f90)
!
! RETURN VALUE
!
! It returns a complex (type ki)
!
!
!*****
function C0_rarg(s1,s2,s3,m1sq,m2sq,m3sq)
implicit none
!
! s1,s2,s3 = SQUARED external momenta
! m1sq,m2sq,m3sq = SQUARED internal masses
real(ki), intent(in) :: s1,s2,s3,m1sq,m2sq,m3sq
real(ki) :: s1r,s2r,s3r
! real(ki) :: del
complex(ki) :: C0_rarg
complex(ki_avh), dimension(0:2) :: C0olo
!AC! complex(ki_lt) :: C0
! del = epsilon(1._ki)
!
s1r = s1
s2r = s2
s3r = s3
- !
+ !
! if (equal_real(s1r,zero) ) s1r = 0._ki
! if (equal_real(s2r,zero) ) s2r = 0._ki
! if (equal_real(s3r,zero) ) s3r = 0._ki
!
if (rat_or_tot_par%tot_selected) then
!
! changed to include LT option Jan2011
! use avh_olo or LT in finite case
!AC! if (withlt) then
!
!AC! C0_rarg = C0(real(s1,ki_lt),real(s2,ki_lt),real(s3,ki_lt),&
!AC! & real(m3sq,ki_lt),real(m1sq,ki_lt),real(m2sq,ki_lt))
!
!AC! else
! use avh_olo
if (.not. olo) then
! call avh_olo_onshell(100._ki*del)
call avh_olo_onshell(1.e-10_ki)
call avh_olo_mu_set(sqrt(mu2_scale_par))
olo=.true.
end if
!
!
call avh_olo_c0m(C0olo,real(s1r,ki_avh),real(s2r,ki_avh),real(s3r,ki_avh), &
& real(m3sq,ki_avh),real(m1sq,ki_avh),real(m2sq,ki_avh))
!
!
C0_rarg=C0olo(0)
!
!AC! end if ! end if withlt
!
else !if (rat_or_tot_par%rat_selected) then
!
C0_rarg = czero
!
end if
!
end function C0_rarg
!
function C0_carg(s1,s2,s3,m1sq,m2sq,m3sq)
implicit none
!
! s1,s2,s3 = SQUARED external momenta
! m1sq,m2sq,m3sq = SQUARED internal complex masses
real(ki), intent(in) :: s1,s2,s3
complex(ki), intent(in) :: m1sq,m2sq,m3sq
complex(ki_avh) :: cp1,cp2,cp3,cm1,cm2,cm3
real(ki) :: s1r,s2r,s3r
! real(ki) :: del
complex(ki) :: C0_carg
complex(ki_avh), dimension(0:2) :: C0olo
!AC! complex(ki_lt) :: C0C
!integer :: i,j,k
! del = epsilon(1._ki)
!
s1r = s1
s2r = s2
s3r = s3
!
! if (equal_real(s1r,zero) ) s1r = 0._ki
! if (equal_real(s2r,zero) ) s2r = 0._ki
! if (equal_real(s3r,zero) ) s3r = 0._ki
!
if (rat_or_tot_par%tot_selected) then
!
! changed to include LT option Jan2011
! use avh_olo or LT in finite case
!AC! if (withlt) then
!
!AC! C0_carg = C0C(real(s1,ki_lt),real(s2,ki_lt),real(s3,ki_lt),&
!AC! & cmplx(m3sq,kind=ki_lt),cmplx(m1sq,kind=ki_lt),cmplx(m2sq,kind=ki_lt))
!
!AC! else
! use avh_olo
if (.not. olo) then
! call avh_olo_onshell(100._ki*del)
call avh_olo_onshell(1.e-10_ki)
call avh_olo_mu_set(sqrt(mu2_scale_par))
olo=.true.
end if
!
cp1 = cmplx(s1r,0._ki_avh,kind=ki_avh)
cp2 = cmplx(s2r,0._ki_avh,kind=ki_avh)
cp3 = cmplx(s3r,0._ki_avh,kind=ki_avh)
!
cm1 = cmplx(m1sq,kind=ki_avh)
cm2 = cmplx(m2sq,kind=ki_avh)
cm3 = cmplx(m3sq,kind=ki_avh)
!
call avh_olo_c0c(C0olo,cp1,cp2,cp3,cm3,cm1,cm2)
!
C0_carg=C0olo(0)
!
!AC! end if !end if withlt
!
else !if (rat_or_tot_par%rat_selected) then
!
C0_carg = czero
!
end if
!
end function C0_carg
!
! *************************************************
!
end module function_3p_finite
diff --git a/golem95c-1.2.1/integrals/two_point/Makefile.am b/golem95c-1.2.1/integrals/two_point/Makefile.am
index ea83e74..81f3764 100644
--- a/golem95c-1.2.1/integrals/two_point/Makefile.am
+++ b/golem95c-1.2.1/integrals/two_point/Makefile.am
@@ -1,16 +1,16 @@
noinst_LTLIBRARIES=libgolem95_integrals_two_point.la
libgolem95_integrals_two_point_la_SOURCES= \
function_2p0m_1mi.f90 function_2p_m1m2.f90 generic_function_2p.f90
-libgolem95_integrals_two_point_la_FCFLAGS=\
+include ../../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../../module \
-I$(builddir)/../../kinematic \
-I$(builddir)/../../numerical \
- -I$(builddir)/../one_point \
- -I$(builddir)/../../../avh_olo-2.2.1
+ -I$(builddir)/../one_point
nodist_pkginclude_HEADERS= function_2p_m1m2.mod function_2p0m_1mi.mod \
generic_function_2p.mod
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/integrals/two_point/Makefile.dep b/golem95c-1.2.1/integrals/two_point/Makefile.dep
index 7ec4bea..056c007 100644
--- a/golem95c-1.2.1/integrals/two_point/Makefile.dep
+++ b/golem95c-1.2.1/integrals/two_point/Makefile.dep
@@ -1,7 +1,10 @@
# Module dependencies
-function_2p_m1m2.o: function_2p0m_1mi.o
+function_2p0m_1mi.mod: function_2p0m_1mi.f90 function_2p0m_1mi.$(OBJEXT)
function_2p_m1m2.lo: function_2p0m_1mi.lo
-function_2p_m1m2.obj: function_2p0m_1mi.obj
-generic_function_2p.o: function_2p0m_1mi.o function_2p_m1m2.o
+function_2p_m1m2.$(OBJEXT): function_2p0m_1mi.$(OBJEXT)
+function_2p_m1m2.mod: function_2p_m1m2.f90 function_2p_m1m2.$(OBJEXT) \
+ function_2p0m_1mi.$(OBJEXT)
generic_function_2p.lo: function_2p0m_1mi.lo function_2p_m1m2.lo
-generic_function_2p.obj: function_2p0m_1mi.obj function_2p_m1m2.obj
+generic_function_2p.$(OBJEXT): function_2p0m_1mi.$(OBJEXT) function_2p_m1m2.$(OBJEXT)
+generic_function_2p.mod: generic_function_2p.f90 generic_function_2p.$(OBJEXT) \
+ function_2p0m_1mi.$(OBJEXT) function_2p_m1m2.$(OBJEXT)
diff --git a/golem95c-1.2.1/integrals/two_point/Makefile.in b/golem95c-1.2.1/integrals/two_point/Makefile.in
index bdb4a58..9e6a7bb 100644
--- a/golem95c-1.2.1/integrals/two_point/Makefile.in
+++ b/golem95c-1.2.1/integrals/two_point/Makefile.in
@@ -1,574 +1,612 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/integrals/two_point
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_integrals_two_point_la_LIBADD =
-am_libgolem95_integrals_two_point_la_OBJECTS = \
- libgolem95_integrals_two_point_la-function_2p0m_1mi.lo \
- libgolem95_integrals_two_point_la-function_2p_m1m2.lo \
- libgolem95_integrals_two_point_la-generic_function_2p.lo
+am_libgolem95_integrals_two_point_la_OBJECTS = function_2p0m_1mi.lo \
+ function_2p_m1m2.lo generic_function_2p.lo
libgolem95_integrals_two_point_la_OBJECTS = \
$(am_libgolem95_integrals_two_point_la_OBJECTS)
-libgolem95_integrals_two_point_la_LINK = $(LIBTOOL) --tag=FC \
- $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_integrals_two_point_la_FCFLAGS) $(FCFLAGS) \
- $(AM_LDFLAGS) $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_integrals_two_point_la_SOURCES)
DIST_SOURCES = $(libgolem95_integrals_two_point_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_integrals_two_point.la
libgolem95_integrals_two_point_la_SOURCES = \
function_2p0m_1mi.f90 function_2p_m1m2.f90 generic_function_2p.f90
-libgolem95_integrals_two_point_la_FCFLAGS = \
- -I$(builddir)/../../module \
- -I$(builddir)/../../kinematic \
- -I$(builddir)/../../numerical \
- -I$(builddir)/../one_point \
- -I$(builddir)/../../../avh_olo-2.2.1
-
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 \
+ -I$(builddir)/../../module -I$(builddir)/../../kinematic \
+ -I$(builddir)/../../numerical -I$(builddir)/../one_point
nodist_pkginclude_HEADERS = function_2p_m1m2.mod function_2p0m_1mi.mod \
generic_function_2p.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/integrals/two_point/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/integrals/two_point/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_integrals_two_point.la: $(libgolem95_integrals_two_point_la_OBJECTS) $(libgolem95_integrals_two_point_la_DEPENDENCIES)
- $(libgolem95_integrals_two_point_la_LINK) $(libgolem95_integrals_two_point_la_OBJECTS) $(libgolem95_integrals_two_point_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_integrals_two_point.la: $(libgolem95_integrals_two_point_la_OBJECTS) $(libgolem95_integrals_two_point_la_DEPENDENCIES) $(EXTRA_libgolem95_integrals_two_point_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_integrals_two_point_la_OBJECTS) $(libgolem95_integrals_two_point_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_integrals_two_point_la-function_2p0m_1mi.lo: function_2p0m_1mi.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_two_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_two_point_la-function_2p0m_1mi.lo $(FCFLAGS_f90) `test -f 'function_2p0m_1mi.f90' || echo '$(srcdir)/'`function_2p0m_1mi.f90
-
-libgolem95_integrals_two_point_la-function_2p_m1m2.lo: function_2p_m1m2.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_two_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_two_point_la-function_2p_m1m2.lo $(FCFLAGS_f90) `test -f 'function_2p_m1m2.f90' || echo '$(srcdir)/'`function_2p_m1m2.f90
-
-libgolem95_integrals_two_point_la-generic_function_2p.lo: generic_function_2p.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_integrals_two_point_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_integrals_two_point_la-generic_function_2p.lo $(FCFLAGS_f90) `test -f 'generic_function_2p.f90' || echo '$(srcdir)/'`generic_function_2p.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-function_2p_m1m2.o: function_2p0m_1mi.o
+function_2p0m_1mi.mod: function_2p0m_1mi.f90 function_2p0m_1mi.$(OBJEXT)
function_2p_m1m2.lo: function_2p0m_1mi.lo
-function_2p_m1m2.obj: function_2p0m_1mi.obj
-generic_function_2p.o: function_2p0m_1mi.o function_2p_m1m2.o
+function_2p_m1m2.$(OBJEXT): function_2p0m_1mi.$(OBJEXT)
+function_2p_m1m2.mod: function_2p_m1m2.f90 function_2p_m1m2.$(OBJEXT) \
+ function_2p0m_1mi.$(OBJEXT)
generic_function_2p.lo: function_2p0m_1mi.lo function_2p_m1m2.lo
-generic_function_2p.obj: function_2p0m_1mi.obj function_2p_m1m2.obj
+generic_function_2p.$(OBJEXT): function_2p0m_1mi.$(OBJEXT) function_2p_m1m2.$(OBJEXT)
+generic_function_2p.mod: generic_function_2p.f90 generic_function_2p.$(OBJEXT) \
+ function_2p0m_1mi.$(OBJEXT) function_2p_m1m2.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/interface/Makefile.am b/golem95c-1.2.1/interface/Makefile.am
index 57ddc0f..eb7edcb 100644
--- a/golem95c-1.2.1/interface/Makefile.am
+++ b/golem95c-1.2.1/interface/Makefile.am
@@ -1,26 +1,27 @@
noinst_LTLIBRARIES=libgolem95_interface.la
-AM_FCFLAGS= \
+include ../MakefileCommon.am
+AM_FCFLAGS+= \
-I$(builddir)/../module \
-I$(builddir)/../kinematic \
-I$(builddir)/../form_factor \
-I$(builddir)/../integrals/one_point \
-I$(builddir)/../integrals/two_point \
-I$(builddir)/../integrals/three_point \
-I$(builddir)/../integrals/four_point \
+ -I$(builddir)/../higherrank \
-I$(builddir)/../numerical
libgolem95_interface_la_SOURCES= \
tool_lt_to_golem.f90 tensor_integrals.f90 \
- gb0.f90 gc0.f90 gd0.f90 ge0.f90 gf0.f90
+ ga0.f90 gb0.f90 gc0.f90 gd0.f90 ge0.f90 gf0.f90
-libgolem95_interface_la_FCFLAGS=$(AM_FCFLAGS)
nodist_pkginclude_HEADERS= tool_lt_to_golem.mod tensor_integrals.mod
if COMPILE_TENSREC
libgolem95_interface_la_SOURCES+=tens_rec.f90 tens_comb.f90
nodist_pkginclude_HEADERS+=tens_rec.mod tens_comb.mod
endif
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/interface/Makefile.dep b/golem95c-1.2.1/interface/Makefile.dep
index 6a2f9fd..d806a29 100644
--- a/golem95c-1.2.1/interface/Makefile.dep
+++ b/golem95c-1.2.1/interface/Makefile.dep
@@ -1,19 +1,19 @@
# Module dependencies
-gb0.o: tool_lt_to_golem.o
+ga0.lo: tool_lt_to_golem.lo
+ga0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gb0.lo: tool_lt_to_golem.lo
-gb0.obj: tool_lt_to_golem.obj
-gc0.o: tool_lt_to_golem.o
+gb0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gc0.lo: tool_lt_to_golem.lo
-gc0.obj: tool_lt_to_golem.obj
-gd0.o: tool_lt_to_golem.o
+gc0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gd0.lo: tool_lt_to_golem.lo
-gd0.obj: tool_lt_to_golem.obj
-ge0.o: tool_lt_to_golem.o
+gd0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
ge0.lo: tool_lt_to_golem.lo
-ge0.obj: tool_lt_to_golem.obj
-gf0.o: tool_lt_to_golem.o
+ge0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gf0.lo: tool_lt_to_golem.lo
-gf0.obj: tool_lt_to_golem.obj
-tens_comb.o: tens_rec.o
+gf0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
tens_comb.lo: tens_rec.lo
-tens_comb.obj: tens_rec.obj
+tens_comb.$(OBJEXT): tens_rec.$(OBJEXT)
+tens_comb.mod: tens_comb.f90 tens_comb.$(OBJEXT) tens_rec.$(OBJEXT)
+tens_rec.mod: tens_rec.f90 tens_rec.$(OBJEXT)
+tensor_integrals.mod: tensor_integrals.f90 tensor_integrals.$(OBJEXT)
+tool_lt_to_golem.mod: tool_lt_to_golem.f90 tool_lt_to_golem.$(OBJEXT)
diff --git a/golem95c-1.2.1/interface/Makefile.in b/golem95c-1.2.1/interface/Makefile.in
index 6bfd694..c9c4151 100644
--- a/golem95c-1.2.1/interface/Makefile.in
+++ b/golem95c-1.2.1/interface/Makefile.in
@@ -1,617 +1,631 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
@COMPILE_TENSREC_TRUE@am__append_1 = tens_rec.f90 tens_comb.f90
@COMPILE_TENSREC_TRUE@am__append_2 = tens_rec.mod tens_comb.mod
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/interface
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_interface_la_LIBADD =
am__libgolem95_interface_la_SOURCES_DIST = tool_lt_to_golem.f90 \
- tensor_integrals.f90 gb0.f90 gc0.f90 gd0.f90 ge0.f90 gf0.f90 \
- tens_rec.f90 tens_comb.f90
-@COMPILE_TENSREC_TRUE@am__objects_1 = \
-@COMPILE_TENSREC_TRUE@ libgolem95_interface_la-tens_rec.lo \
-@COMPILE_TENSREC_TRUE@ libgolem95_interface_la-tens_comb.lo
-am_libgolem95_interface_la_OBJECTS = \
- libgolem95_interface_la-tool_lt_to_golem.lo \
- libgolem95_interface_la-tensor_integrals.lo \
- libgolem95_interface_la-gb0.lo libgolem95_interface_la-gc0.lo \
- libgolem95_interface_la-gd0.lo libgolem95_interface_la-ge0.lo \
- libgolem95_interface_la-gf0.lo $(am__objects_1)
+ tensor_integrals.f90 ga0.f90 gb0.f90 gc0.f90 gd0.f90 ge0.f90 \
+ gf0.f90 tens_rec.f90 tens_comb.f90
+@COMPILE_TENSREC_TRUE@am__objects_1 = tens_rec.lo tens_comb.lo
+am_libgolem95_interface_la_OBJECTS = tool_lt_to_golem.lo \
+ tensor_integrals.lo ga0.lo gb0.lo gc0.lo gd0.lo ge0.lo gf0.lo \
+ $(am__objects_1)
libgolem95_interface_la_OBJECTS = \
$(am_libgolem95_interface_la_OBJECTS)
-libgolem95_interface_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_interface_la_SOURCES)
DIST_SOURCES = $(am__libgolem95_interface_la_SOURCES_DIST)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_interface.la
-AM_FCFLAGS = \
- -I$(builddir)/../module \
- -I$(builddir)/../kinematic \
- -I$(builddir)/../form_factor \
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 -I$(builddir)/../module \
+ -I$(builddir)/../kinematic -I$(builddir)/../form_factor \
-I$(builddir)/../integrals/one_point \
-I$(builddir)/../integrals/two_point \
-I$(builddir)/../integrals/three_point \
-I$(builddir)/../integrals/four_point \
- -I$(builddir)/../numerical
-
+ -I$(builddir)/../higherrank -I$(builddir)/../numerical
libgolem95_interface_la_SOURCES = tool_lt_to_golem.f90 \
- tensor_integrals.f90 gb0.f90 gc0.f90 gd0.f90 ge0.f90 gf0.f90 \
- $(am__append_1)
-libgolem95_interface_la_FCFLAGS = $(AM_FCFLAGS)
+ tensor_integrals.f90 ga0.f90 gb0.f90 gc0.f90 gd0.f90 ge0.f90 \
+ gf0.f90 $(am__append_1)
nodist_pkginclude_HEADERS = tool_lt_to_golem.mod tensor_integrals.mod \
$(am__append_2)
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/interface/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/interface/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_interface.la: $(libgolem95_interface_la_OBJECTS) $(libgolem95_interface_la_DEPENDENCIES)
- $(libgolem95_interface_la_LINK) $(libgolem95_interface_la_OBJECTS) $(libgolem95_interface_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_interface.la: $(libgolem95_interface_la_OBJECTS) $(libgolem95_interface_la_DEPENDENCIES) $(EXTRA_libgolem95_interface_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_interface_la_OBJECTS) $(libgolem95_interface_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_interface_la-tool_lt_to_golem.lo: tool_lt_to_golem.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-tool_lt_to_golem.lo $(FCFLAGS_f90) `test -f 'tool_lt_to_golem.f90' || echo '$(srcdir)/'`tool_lt_to_golem.f90
-
-libgolem95_interface_la-tensor_integrals.lo: tensor_integrals.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-tensor_integrals.lo $(FCFLAGS_f90) `test -f 'tensor_integrals.f90' || echo '$(srcdir)/'`tensor_integrals.f90
-
-libgolem95_interface_la-gb0.lo: gb0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-gb0.lo $(FCFLAGS_f90) `test -f 'gb0.f90' || echo '$(srcdir)/'`gb0.f90
-
-libgolem95_interface_la-gc0.lo: gc0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-gc0.lo $(FCFLAGS_f90) `test -f 'gc0.f90' || echo '$(srcdir)/'`gc0.f90
-
-libgolem95_interface_la-gd0.lo: gd0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-gd0.lo $(FCFLAGS_f90) `test -f 'gd0.f90' || echo '$(srcdir)/'`gd0.f90
-
-libgolem95_interface_la-ge0.lo: ge0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-ge0.lo $(FCFLAGS_f90) `test -f 'ge0.f90' || echo '$(srcdir)/'`ge0.f90
-
-libgolem95_interface_la-gf0.lo: gf0.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-gf0.lo $(FCFLAGS_f90) `test -f 'gf0.f90' || echo '$(srcdir)/'`gf0.f90
-
-libgolem95_interface_la-tens_rec.lo: tens_rec.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-tens_rec.lo $(FCFLAGS_f90) `test -f 'tens_rec.f90' || echo '$(srcdir)/'`tens_rec.f90
-
-libgolem95_interface_la-tens_comb.lo: tens_comb.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_interface_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_interface_la-tens_comb.lo $(FCFLAGS_f90) `test -f 'tens_comb.f90' || echo '$(srcdir)/'`tens_comb.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-gb0.o: tool_lt_to_golem.o
+ga0.lo: tool_lt_to_golem.lo
+ga0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gb0.lo: tool_lt_to_golem.lo
-gb0.obj: tool_lt_to_golem.obj
-gc0.o: tool_lt_to_golem.o
+gb0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gc0.lo: tool_lt_to_golem.lo
-gc0.obj: tool_lt_to_golem.obj
-gd0.o: tool_lt_to_golem.o
+gc0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gd0.lo: tool_lt_to_golem.lo
-gd0.obj: tool_lt_to_golem.obj
-ge0.o: tool_lt_to_golem.o
+gd0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
ge0.lo: tool_lt_to_golem.lo
-ge0.obj: tool_lt_to_golem.obj
-gf0.o: tool_lt_to_golem.o
+ge0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
gf0.lo: tool_lt_to_golem.lo
-gf0.obj: tool_lt_to_golem.obj
-tens_comb.o: tens_rec.o
+gf0.$(OBJEXT): tool_lt_to_golem.$(OBJEXT)
tens_comb.lo: tens_rec.lo
-tens_comb.obj: tens_rec.obj
+tens_comb.$(OBJEXT): tens_rec.$(OBJEXT)
+tens_comb.mod: tens_comb.f90 tens_comb.$(OBJEXT) tens_rec.$(OBJEXT)
+tens_rec.mod: tens_rec.f90 tens_rec.$(OBJEXT)
+tensor_integrals.mod: tensor_integrals.f90 tensor_integrals.$(OBJEXT)
+tool_lt_to_golem.mod: tool_lt_to_golem.f90 tool_lt_to_golem.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/interface/gd0.f90 b/golem95c-1.2.1/interface/ga0.f90
similarity index 54%
copy from golem95c-1.2.1/interface/gd0.f90
copy to golem95c-1.2.1/interface/ga0.f90
index cb04a8a..4091750 100644
--- a/golem95c-1.2.1/interface/gd0.f90
+++ b/golem95c-1.2.1/interface/ga0.f90
@@ -1,584 +1,629 @@
!
-!****f* src/interface/gd0i
+!****f* src/interface/ga0i
! NAME
!
-! Function gd0i
+! Function ga0i
!
! USAGE
!
-! complex = gd0i(idt,s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+! complex = ga0i(idt,m1,mu2,eps_flag)
!
! DESCRIPTION
!
-! This function is the LoopTools D0i function.
-! The first argument is a character of length <= 6
-! There are two arguments more which are the renormalisation
-! scale squared and a flag which selects the coefficient of
+! This function corresponds to the LoopTools a0i function.
+! The first argument is a character of length <= 2
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
-! * idt -- a character of length <= 6, the type of form factors
-! * s1 -- a real (type ki), p1^2
-! * s2 -- a real (type ki), p2^2
-! * s3 -- a real (type ki), p3^2
-! * s4 -- a real (type ki), p4^2
-! * s -- a real (type ki), (p1+p2)^2
-! * t -- a real (type ki), (p2+p3)^2
-! * m1 -- a real (type ki), mass^2 of propagator 4
-! * m2 -- a real (type ki), mass^2 of propagator 1
-! * m3 -- a real (type ki), mass^2 of propagator 2
-! * m4 -- a real (type ki), mass^2 of propagator 3
+! * idt -- a character of length <= 3, the type of form factors
+! * m1 -- a real (type ki), mass of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
-! * form_factor_4p (src/form_factor/form_factor_4p.f90)
-! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
+! * form_factor_1p (src/form_factor/form_factor_1p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
-function gd0i(idt,s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+function ga0i(idt,m1,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
- use form_factor_4p ! module containing the four-point form factors (export all)
- use cache, only: allocate_cache, clear_cache
- use constante, only: b_null
+ use form_factor_1p
+ use form_factor_higher_ranks
+ use constante
use tool_lt_to_golem, only : extract
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
character (len=*), intent (in) :: idt
- real(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2
+ real(ki), intent (in) :: m1,mu2
integer, intent(in) :: eps_flag
- complex(ki) :: gd0i
+ complex(ki) :: ga0i
!
- integer, dimension(6) :: tab
+ integer, dimension(3) :: tab
integer :: n1,n2
- integer, dimension(4) :: temp
- integer :: j1,j2,j3,j4
+ integer, dimension(3) :: temp
+ integer :: j1,j2,j3
type(form_factor) :: ff
- ! real(ki) :: lmu2
- real(ki) :: mu2store
- character (len=6) :: idt_temp
+ real(ki) :: lmu2,mu2store
+ character (len=3) :: idt_temp
+ !
+ ! to avoid confusion if mu2_scale_par is not=1 in main program:
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
+ !
+ call initgolem95(1)
!
- call initgolem95(4)
- !
- !
- s_mat(1,1) = -2._ki*m2
- s_mat(1,2) = s2-m2-m3
- s_mat(1,3) = t-m2-m4
- s_mat(1,4) = s1-m2-m1
- !
- s_mat(2,1) = s_mat(1,2)
- s_mat(2,2) = -2._ki*m3
- s_mat(2,3) = s3-m3-m4
- s_mat(2,4) = s-m3-m1
- !
- s_mat(3,1) = s_mat(1,3)
- s_mat(3,2) = s_mat(2,3)
- s_mat(3,3) = -2._ki*m4
- s_mat(3,4) = s4-m4-m1
- !
- s_mat(4,1) = s_mat(1,4)
- s_mat(4,2) = s_mat(2,4)
- s_mat(4,3) = s_mat(3,4)
- s_mat(4,4) = -2._ki*m1
+ s_mat(1,1) = -2._ki*m1
+
!
call preparesmatrix()
- !
+ !
idt_temp = idt ! on complete la chaine entrante par des blancs
call extract(idt_temp,tab)
n1= count(tab/=-1)
n2= count(tab/=-1 .and. tab/=0)
!
temp = -2
temp(1:n1) = pack(tab,tab/=-1)
!
select case(n1)
!
case(1)
!
j1 = temp(1)
!
select case(n2)
!
case(0)
!
- ff = a40(b_null)
- !
- case(1)
- !
- ff = a41(j1,b_null)
+ ff = a10(b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(2)
!
j1 = temp(1)
j2 = temp(2)
!
select case(n2)
!
case(0)
!
- ff = b42(b_null)
+ ff = b12(b_null)
!
- case(2)
- !
- ff = a42(j1,j2,b_null)
- !
- case default
+ case default
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
+
+ case default
+ !
+ write (*, *) idt, n1 ,n2, tab
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function ga0i (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
+ tab_erreur_par(2)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
!
- case(3)
+ end select
+ !
+ !lmu2 = log(mu2)
+ !
+ if (eps_flag == 0) then
+ !
+ ga0i = ff%c
+ !
+ else if (eps_flag == -1) then
+ !
+ ga0i = ff%b
+ !
+ else if (eps_flag == -2) then
+ !
+ ga0i = ff%a
+ !
+ else
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function ga0i (ga0.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
+ tab_erreur_par(2)%arg_int = eps_flag
+ call catch_exception(0)
+ !
+ stop
+ !
+ end if
+ !
+ mu2_scale_par=mu2store
+ !
+ call exitgolem95()
+ !
+end function ga0i
+!
+!****f* src/interface/ga0iC
+! NAME
+!
+! Function ga0iC
+!
+! USAGE
+!
+! complex = ga0iC(idt,m1,mu2,eps_flag)
+!
+! DESCRIPTION
+!
+! This function corresponds to the LoopTools a0i function.
+! The first argument is a character of length <= 2
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
+! the Laurent series in epsilon
+!
+! INPUTS
+!
+! * idt -- a character of length <= 3, the type of form factors
+! * m1 -- a complex (type ki), mass of propagator 1
+! * mu2 -- a real (type ki), renormalisation scale squared
+! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! It returns a complex (type ki) corresponding
+! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
+! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
+! imaginary part of the constant term (eps_flag=0).
+!
+! USES
+!
+! * precision (src/module/precision_golem.f90)
+! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
+! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
+! * form_factor_1p (src/form_factor/form_factor_1p.f90)
+! * form_factor_higher_rank (src/form_factor/form_factor_higher_ranks.f90)
+! * constante, only : b_null (src/module/constante.f90)
+! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
+! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
+!
+!
+! EXAMPLE
+!
+!
+!
+!*****
+function ga0iC(idt,m1,mu2,eps_flag)
+ !
+ use precision_golem ! to get the type ki (for real and complex)
+ use matrice_s
+ use form_factor_type, only: form_factor
+ use form_factor_1p
+ use form_factor_higher_ranks
+ use constante
+ use tool_lt_to_golem, only : extract
+ use sortie_erreur, only : tab_erreur_par,catch_exception
+ use parametre, only: mu2_scale_par
+ implicit none
+ !
+ character (len=*), intent (in) :: idt
+ complex(ki), intent (in) :: m1
+ real(ki), intent (in) :: mu2
+ integer, intent(in) :: eps_flag
+ complex(ki) :: ga0iC
+ !
+ integer, dimension(3) :: tab
+ integer :: n1,n2
+ integer, dimension(3) :: temp
+ integer :: j1,j2,j3
+ type(form_factor) :: ff
+ real(ki) :: lmu2,mu2store
+ character (len=3) :: idt_temp
+ !
+ ! to avoid confusion if mu2_scale_par is not=1 in main program:
+ !
+ mu2store=mu2_scale_par
+ mu2_scale_par=mu2
+ !
+ call initgolem95(1)
+ !
+ s_mat(1,1) = -2._ki*m1
+
+ !
+ call preparesmatrix()
+ !
+ idt_temp = idt ! on complete la chaine entrante par des blancs
+ call extract(idt_temp,tab)
+ n1= count(tab/=-1)
+ n2= count(tab/=-1 .and. tab/=0)
+ !
+ temp = -2
+ temp(1:n1) = pack(tab,tab/=-1)
+ !
+ select case(n1)
+ !
+ case(1)
!
j1 = temp(1)
- j2 = temp(2)
- j3 = temp(3)
!
select case(n2)
!
- case(1)
- !
- ff = b43(j3,b_null)
- !
- case(3)
+ case(0)
!
- ff = a43(j1,j2,j3,b_null)
+ ff = a10(b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
- case(4)
+ case(2)
!
j1 = temp(1)
j2 = temp(2)
- j3 = temp(3)
- j4 = temp(4)
!
select case(n2)
!
case(0)
!
- ff = c44(b_null)
- !
- case(2)
+ ff = b12(b_null)
!
- ff = b44(j3,j4,b_null)
- !
- case(4)
- !
- ff = a44(j1,j2,j3,j4,b_null)
- !
- case default
+ case default
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0iC (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
- !
+
case default
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0iC (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
tab_erreur_par(2)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
- ! lmu2 = log(mu2)
+ !lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
- ! gd0i = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
- gd0i = ff%c
- !
+ ga0iC = ff%c
+ !
else if (eps_flag == -1) then
!
- ! gd0i = ff%b + lmu2*ff%a
- gd0i = ff%b
+ ga0iC = ff%b
!
else if (eps_flag == -2) then
!
- gd0i = ff%a
+ ga0iC = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0i (gd0.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0i (ga0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
- !
- end function gd0i
-!
+ !
+end function ga0iC
+
+
+
!
-!****f* src/interface/gd0
+!****f* src/interface/ga0
! NAME
!
-! Function gd0
+! Function ga0
!
! USAGE
!
-! complex = gd0(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+! complex = ga0(m1,mu2,eps_flag)
!
! DESCRIPTION
!
-! This function is the scalar LoopTools D0 function.
-! There are two arguments more which are the renormalisation
-! scale squared and a flag which selects the coefficient of
+! This function corresponds to the scalar a0 function.
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
-! * s1 -- a real (type ki), p1^2
-! * s2 -- a real (type ki), p2^2
-! * s3 -- a real (type ki), p3^2
-! * s4 -- a real (type ki), p4^2
-! * s -- a real (type ki), (p1+p2)^2
-! * t -- a real (type ki), (p2+p3)^2
-! * m1 -- a real (type ki), mass^2 of propagator 4
-! * m2 -- a real (type ki), mass^2 of propagator 1
-! * m3 -- a real (type ki), mass^2 of propagator 2
-! * m4 -- a real (type ki), mass^2 of propagator 3
+! * m1 -- a real (type ki), mass^2 of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
-! * form_factor_4p (src/form_factor/form_factor_4p.f90)
-! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
+! * form_factor_1p (src/form_factor/form_factor_1p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
+! EXAMPLE
+!
+!
+!
!*****
-function gd0(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+function ga0(m1,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
- use form_factor_4p ! module containing the four-point form factors (export all)
- use cache, only: allocate_cache, clear_cache
- use constante, only: b_null
+ use form_factor_1p
+ use form_factor_higher_ranks
+ use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
- real(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2
+ real(ki), intent (in) :: m1,mu2
integer, intent(in) :: eps_flag
- complex(ki) :: gd0
+ complex(ki) :: ga0
!
type(form_factor) :: ff
- ! real(ki) :: lmu2
- real(ki) :: mu2store
- !
+ real(ki) :: lmu2,mu2store
+ !
mu2store=mu2_scale_par
mu2_scale_par=mu2
+ !
+ call initgolem95(1)
!
- call initgolem95(4)
- !
- !
- s_mat(1,1) = -2._ki*m2
- s_mat(1,2) = s2-m2-m3
- s_mat(1,3) = t-m2-m4
- s_mat(1,4) = s1-m2-m1
!
- s_mat(2,1) = s_mat(1,2)
- s_mat(2,2) = -2._ki*m3
- s_mat(2,3) = s3-m3-m4
- s_mat(2,4) = s-m3-m1
- !
- s_mat(3,1) = s_mat(1,3)
- s_mat(3,2) = s_mat(2,3)
- s_mat(3,3) = -2._ki*m4
- s_mat(3,4) = s4-m4-m1
- !
- s_mat(4,1) = s_mat(1,4)
- s_mat(4,2) = s_mat(2,4)
- s_mat(4,3) = s_mat(3,4)
- s_mat(4,4) = -2._ki*m1
+ s_mat(1,1) = -2._ki*m1
!
call preparesmatrix()
!
- ff = a40(b_null)
- !
- ! lmu2 = log(mu2)
+ ff = a10(b_null)
+ !
+ lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
- ! gd0 = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
- gd0 = ff%c
+ ga0 = ff%c
!
else if (eps_flag == -1) then
!
- ! gd0 = ff%b + lmu2*ff%a
- gd0 = ff%b
+ ga0 = ff%b
!
else if (eps_flag == -2) then
!
- gd0 = ff%a
+ ga0 = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0 (gd0.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0 (ga0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
- !
-end function gd0
+ !
+end function ga0
!
-!****f* src/interface/gd0c
+!****f* src/interface/ga0c
! NAME
!
-! Function gd0c
+! Function ga0c
!
! USAGE
!
-! complex = gd0c(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+! complex = ga0c(m1,mu2,eps_flag)
!
! DESCRIPTION
!
-! This function is the scalar LoopTools D0 function.
-! There are two arguments more which are the renormalisation
-! scale squared and a flag which selects the coefficient of
+! This function corresponds to the scalar a0 function.
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
-! * s1 -- a complex (type ki), p1^2
-! * s2 -- a complex (type ki), p2^2
-! * s3 -- a complex (type ki), p3^2
-! * s4 -- a complex (type ki), p4^2
-! * s -- a complex (type ki), (p1+p2)^2
-! * t -- a complex (type ki), (p2+p3)^2
-! * m1 -- a complex (type ki), mass^2 of propagator 4
-! * m2 -- a complex (type ki), mass^2 of propagator 1
-! * m3 -- a complex (type ki), mass^2 of propagator 2
-! * m4 -- a complex (type ki), mass^2 of propagator 3
+! * m1 -- a complex (type ki), mass^2 of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
-! * form_factor_4p (src/form_factor/form_factor_4p.f90)
-! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
+! * form_factor_1p (src/form_factor/form_factor_1p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
+! EXAMPLE
+!
+!
+!
!*****
-function gd0c(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
+function ga0c(m1,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
- use form_factor_4p ! module containing the four-point form factors (export all)
- use cache, only: allocate_cache, clear_cache
- use constante, only: b_null
+ use form_factor_1p
+ use form_factor_higher_ranks
+ use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
- complex(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4
- real(ki), intent (in) :: mu2
+ complex(ki), intent (in) :: m1
+ real(ki), intent(in) :: mu2
integer, intent(in) :: eps_flag
- complex(ki) :: gd0c
+ complex(ki) :: ga0c
!
type(form_factor) :: ff
- ! real(ki) :: lmu2
- real(ki) :: mu2store
- !
+ real(ki) :: lmu2,mu2store
+ !
mu2store=mu2_scale_par
mu2_scale_par=mu2
+ !
+ call initgolem95(1)
!
- call initgolem95(4)
- !
- !
- s_mat(1,1) = -2._ki*m2
- s_mat(1,2) = s2-m2-m3
- s_mat(1,3) = t-m2-m4
- s_mat(1,4) = s1-m2-m1
- !
- s_mat(2,1) = s_mat(1,2)
- s_mat(2,2) = -2._ki*m3
- s_mat(2,3) = s3-m3-m4
- s_mat(2,4) = s-m3-m1
- !
- s_mat(3,1) = s_mat(1,3)
- s_mat(3,2) = s_mat(2,3)
- s_mat(3,3) = -2._ki*m4
- s_mat(3,4) = s4-m4-m1
- !
- s_mat(4,1) = s_mat(1,4)
- s_mat(4,2) = s_mat(2,4)
- s_mat(4,3) = s_mat(3,4)
- s_mat(4,4) = -2._ki*m1
+ s_mat(1,1) = -2._ki*m1
!
call preparesmatrix()
!
- ff = a40(b_null)
- !
- ! lmu2 = log(mu2)
+ ff = a10(b_null)
+ !
+ !lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
- ! gd0c = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
- gd0c = ff%c
+ ga0c = ff%c
!
else if (eps_flag == -1) then
- !
- ! gd0c = ff%b + lmu2*ff%a
- gd0c = ff%b
+ !
+ ga0c = ff%b
!
else if (eps_flag == -2) then
!
- gd0c = ff%a
+ ga0c = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
- tab_erreur_par(1)%chaine = 'In function gd0c (gd0.f90)'
+ tab_erreur_par(1)%chaine = 'In function ga0c (ga0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
- !
-end function gd0c
+ !
+end function ga0c
diff --git a/golem95c-1.2.1/interface/gb0.f90 b/golem95c-1.2.1/interface/gb0.f90
index 9de1364..562735c 100644
--- a/golem95c-1.2.1/interface/gb0.f90
+++ b/golem95c-1.2.1/interface/gb0.f90
@@ -1,457 +1,751 @@
!
!****f* src/interface/gb0i
! NAME
!
! Function gb0i
!
! USAGE
!
! complex = gb0i(idt,s1,m1,m2,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the LoopTools b0i function.
! The first argument is a character of length <= 4
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * idt -- a character of length <= 4, the type of form factors
! * s1 -- a real (type ki), p1^2
! * m1 -- a real (type ki), mass of propagator 2
! * m2 -- a real (type ki), mass of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_2p (src/form_factor/form_factor_2p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gb0i(idt,s1,m1,m2,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_2p
+ use form_factor_higher_ranks
use constante
use tool_lt_to_golem, only : extract
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
character (len=*), intent (in) :: idt
real(ki), intent (in) :: s1,m1,m2,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gb0i
!
integer, dimension(4) :: tab
integer :: n1,n2
- integer, dimension(2) :: temp
- integer :: j1,j2
+ integer, dimension(4) :: temp
+ integer :: j1,j2,j3
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
character (len=4) :: idt_temp
!
! to avoid confusion if mu2_scale_par is not=1 in main program:
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(2)
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m1
!
call preparesmatrix()
!
idt_temp = idt ! on complete la chaine entrante par des blancs
call extract(idt_temp,tab)
n1= count(tab/=-1)
n2= count(tab/=-1 .and. tab/=0)
!
temp = -2
temp(1:n1) = pack(tab,tab/=-1)
!
select case(n1)
!
case(1)
!
j1 = temp(1)
!
select case(n2)
!
case(0)
!
ff = a20(b_null)
!
case(1)
!
ff = a21(j1,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(2)
!
j1 = temp(1)
j2 = temp(2)
!
select case(n2)
!
case(0)
!
ff = b22(b_null)
!
case(2)
!
ff = a22(j1,j2,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
+ case(3)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ !
+ select case(n2)
+ !
+ case(1)
+ !
+ ff = b23(j3,b_null)
+ !
+ case(3)
+ !
+ ff = a23(j1,j2,j3,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0i (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
tab_erreur_par(2)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
!gb0i = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
! mu2_scale_par scale contained already in basic function,
! but local mu2 is used here
gb0i = ff%c
!
else if (eps_flag == -1) then
!
! gb0i = ff%b + lmu2*ff%a
gb0i = ff%b
!
else if (eps_flag == -2) then
!
gb0i = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0i (gb0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gb0i
!
+!****f* src/interface/gb0iC
+! NAME
+!
+! Function gb0iC
+!
+! USAGE
+!
+! complex = gb0iC(idt,s1,m1,m2,mu2,eps_flag)
+!
+! DESCRIPTION
+!
+! This function corresponds to the LoopTools b0i function.
+! The first argument is a character of length <= 4
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
+! the Laurent series in epsilon
+!
+! INPUTS
+!
+! * idt -- a character of length <= 4, the type of form factors
+! * s1 -- a real (type ki), p1^2
+! * m1 -- a real (type ki), mass of propagator 2
+! * m2 -- a real (type ki), mass of propagator 1
+! * mu2 -- a real (type ki), renormalisation scale squared
+! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! It returns a complex (type ki) corresponding
+! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
+! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
+! imaginary part of the constant term (eps_flag=0).
+!
+! USES
+!
+! * precision (src/module/precision_golem.f90)
+! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
+! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
+! * form_factor_2p (src/form_factor/form_factor_2p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
+! * constante, only : b_null (src/module/constante.f90)
+! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
+! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
+!
+!
+! EXAMPLE
+!
+!
+!
+!*****
+function gb0iC(idt,s1,m1,m2,mu2,eps_flag)
+ !
+ use precision_golem ! to get the type ki (for real and complex)
+ use matrice_s
+ use form_factor_type, only: form_factor
+ use form_factor_2p
+ use form_factor_higher_ranks
+ use constante
+ use tool_lt_to_golem, only : extract
+ use sortie_erreur, only : tab_erreur_par,catch_exception
+ use parametre, only: mu2_scale_par
+ implicit none
+ !
+ character (len=*), intent (in) :: idt
+ complex(ki), intent (in) :: s1,m1,m2
+ real(ki), intent (in) :: mu2
+ integer, intent(in) :: eps_flag
+ complex(ki) :: gb0iC
+ !
+ integer, dimension(4) :: tab
+ integer :: n1,n2
+ integer, dimension(4) :: temp
+ integer :: j1,j2,j3
+ type(form_factor) :: ff
+ real(ki) :: lmu2,mu2store
+ character (len=4) :: idt_temp
+ !
+ ! to avoid confusion if mu2_scale_par is not=1 in main program:
+ !
+ mu2store=mu2_scale_par
+ mu2_scale_par=mu2
+ !
+ call initgolem95(2)
+ !
+ s_mat(1,1) = -2._ki*m2
+ s_mat(1,2) = s1-m1-m2
+ !
+ s_mat(2,1) = s_mat(1,2)
+ s_mat(2,2) = -2._ki*m1
+ !
+ call preparesmatrix()
+ !
+ idt_temp = idt ! on complete la chaine entrante par des blancs
+ call extract(idt_temp,tab)
+ n1= count(tab/=-1)
+ n2= count(tab/=-1 .and. tab/=0)
+ !
+ temp = -2
+ temp(1:n1) = pack(tab,tab/=-1)
+ !
+ select case(n1)
+ !
+ case(1)
+ !
+ j1 = temp(1)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = a20(b_null)
+ !
+ case(1)
+ !
+ ff = a21(j1,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ case(2)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = b22(b_null)
+ !
+ case(2)
+ !
+ ff = a22(j1,j2,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ case(3)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ !
+ select case(n2)
+ !
+ case(1)
+ !
+ ff = b23(j3,b_null)
+ !
+ case(3)
+ !
+ ff = a23(j1,j2,j3,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
+ tab_erreur_par(2)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ lmu2 = log(mu2)
+ !
+ if (eps_flag == 0) then
+ !
+ !gb0iC = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
+ ! mu2_scale_par scale contained already in basic function,
+ ! but local mu2 is used here
+ gb0iC = ff%c
+ !
+ else if (eps_flag == -1) then
+ !
+ ! gb0iC = ff%b + lmu2*ff%a
+ gb0iC = ff%b
+ !
+ else if (eps_flag == -2) then
+ !
+ gb0iC = ff%a
+ !
+ else
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gb0iC (gb0.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
+ tab_erreur_par(2)%arg_int = eps_flag
+ call catch_exception(0)
+ !
+ stop
+ !
+ end if
+ !
+ mu2_scale_par=mu2store
+ !
+ call exitgolem95()
+ !
+end function gb0iC
+
+
+
+
+
+
+
+
+
+!
!****f* src/interface/gb0
! NAME
!
! Function gb0
!
! USAGE
!
! complex = gb0(s1,m1,m2,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the scalar b0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * m1 -- a real (type ki), mass^2 of propagator 2
! * m2 -- a real (type ki), mass^2 of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_2p (src/form_factor/form_factor_2p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gb0(s1,m1,m2,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_2p
+ use form_factor_higher_ranks
use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
real(ki), intent (in) :: s1,m1,m2,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gb0
!
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(2)
!
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m1
!
call preparesmatrix()
!
ff = a20(b_null)
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! gb0 = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
! mu2_scale_par contained already in basic function
! use local mu2 !
gb0 = ff%c
!
else if (eps_flag == -1) then
!
!gb0 = ff%b + lmu2*ff%a
gb0 = ff%b
!
else if (eps_flag == -2) then
!
gb0 = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0 (gb0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gb0
!
!****f* src/interface/gb0c
! NAME
!
! Function gb0c
!
! USAGE
!
! complex = gb0c(s1,m1,m2,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the scalar b0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a complex (type ki), p1^2
! * m1 -- a complex (type ki), mass^2 of propagator 2
! * m2 -- a complex (type ki), mass^2 of propagator 1
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_2p (src/form_factor/form_factor_2p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gb0c(s1,m1,m2,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_2p
+ use form_factor_higher_ranks
use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
complex(ki), intent (in) :: s1,m1,m2
real(ki), intent(in) :: mu2
integer, intent(in) :: eps_flag
complex(ki) :: gb0c
!
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(2)
!
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m1
!
call preparesmatrix()
!
ff = a20(b_null)
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! gb0c = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
! mu2_scale_par contained already in basic function
! use local mu2 !
gb0c = ff%c
!
else if (eps_flag == -1) then
!
!gb0c = ff%b + lmu2*ff%a
gb0c = ff%b
!
else if (eps_flag == -2) then
!
gb0c = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gb0c (gb0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gb0c
diff --git a/golem95c-1.2.1/interface/gc0.f90 b/golem95c-1.2.1/interface/gc0.f90
index 5829cdc..68a9916 100644
--- a/golem95c-1.2.1/interface/gc0.f90
+++ b/golem95c-1.2.1/interface/gc0.f90
@@ -1,523 +1,862 @@
!
!****f* src/interface/gc0i
! NAME
!
! Function gc0i
!
! USAGE
!
! complex = gc0i(idt,s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the LoopTools C0i function.
! The first argument is a character of length <= 5
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * idt -- a character of length <= 5, the type of form factors
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1 -- a real (type ki), mass of propagator 3
! * m2 -- a real (type ki), mass of propagator 1
! * m3 -- a real (type ki), mass of propagator 2
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_3p (src/form_factor/form_factor_3p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gc0i(idt,s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_3p
+ use form_factor_higher_ranks
use cache, only: allocate_cache, clear_cache
use constante, only: b_null
use tool_lt_to_golem, only : extract
use sortie_erreur, only : tab_erreur_par,catch_exception
use array, only: packb
use parametre, only: mu2_scale_par
implicit none
!
character (len=*), intent (in) :: idt
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gc0i
!
integer, dimension(5) :: tab
integer :: n1,n2
- integer, dimension(3) :: temp
- integer :: j1,j2,j3
+ integer, dimension(5) :: temp
+ integer :: j1,j2,j3,j4
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
character (len=5) :: idt_temp
!
! to avoid confusion if mu2_scale_par is not=1 in main program:
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(3)
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m1
!
call preparesmatrix()
!
idt_temp = idt ! on complete la chaine entrante par des blancs
call extract(idt_temp,tab)
n1= count(tab/=-1)
n2= count(tab/=-1 .and. tab/=0)
!
temp = -2
temp(1:n1) = pack(tab,tab/=-1)
!
select case(n1)
!
case(1)
!
j1 = temp(1)
!
select case(n2)
!
case(0)
!
ff = a30(b_null)
!
case(1)
!
ff = a31(j1,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(2)
!
j1 = temp(1)
j2 = temp(2)
!
select case(n2)
!
case(0)
!
ff = b32(b_null)
!
case(2)
!
ff = a32(j1,j2,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(3)
!
j1 = temp(1)
j2 = temp(2)
j3 = temp(3)
!
select case(n2)
!
case(1)
!
ff = b33(j3,b_null)
!
case(3)
!
ff = a33(j1,j2,j3,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
+ case(4)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ j4 = temp(4)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = c34(b_null)
+ !
+ case(2)
+ !
+ ff = b34(j3,j4,b_null)
+ !
+ case(4)
+ !
+ ff = a34(j1,j2,j3,j4,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0i (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
tab_erreur_par(2)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! mu2_scale_par already contained in basic triangle functions
! note that local mu2 is used here
! gc0i = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
gc0i = ff%c
!
else if (eps_flag == -1) then
!
! gc0i = ff%b + lmu2*ff%a
gc0i = ff%b
!
else if (eps_flag == -2) then
!
gc0i = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0i (gc0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gc0i
!
+!****f* src/interface/gc0iC
+! NAME
+!
+! Function gc0iC
+!
+! USAGE
+!
+! complex = gc0iC(idt,s1,s2,s3,m1,m2,m3,mu2,eps_flag)
+!
+! DESCRIPTION
+!
+! This function corresponds to the LoopTools C0i function.
+! The first argument is a character of length <= 5
+! There are two arguments more which are the renormalisation
+! scale squared and a flag which selects the coefficient of
+! the Laurent series in epsilon
+!
+! INPUTS
+!
+! * idt -- a character of length <= 5, the type of form factors
+! * s1 -- a real (type ki), p1^2
+! * s2 -- a real (type ki), p2^2
+! * s3 -- a real (type ki), p3^2
+! * m1 -- a real (type ki), mass of propagator 3
+! * m2 -- a real (type ki), mass of propagator 1
+! * m3 -- a real (type ki), mass of propagator 2
+! * mu2 -- a real (type ki), renormalisation scale squared
+! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! It returns a complex (type ki) corresponding
+! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
+! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
+! imaginary part of the constant term (eps_flag=0).
+!
+! USES
+!
+! * precision (src/module/precision_golem.f90)
+! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
+! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
+! * form_factor_3p (src/form_factor/form_factor_3p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
+! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
+! * constante, only : b_null (src/module/constante.f90)
+! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
+! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
+!
+!
+! EXAMPLE
+!
+!
+!
+!*****
+function gc0iC(idt,s1,s2,s3,m1,m2,m3,mu2,eps_flag)
+ !
+ use precision_golem ! to get the type ki (for real and complex)
+ use matrice_s
+ use form_factor_type, only: form_factor
+ use form_factor_3p
+ use form_factor_higher_ranks
+ use cache, only: allocate_cache, clear_cache
+ use constante, only: b_null
+ use tool_lt_to_golem, only : extract
+ use sortie_erreur, only : tab_erreur_par,catch_exception
+ use array, only: packb
+ use parametre, only: mu2_scale_par
+ implicit none
+ !
+ character (len=*), intent (in) :: idt
+ complex(ki), intent (in) :: s1,s2,s3,m1,m2,m3
+ real(ki), intent (in) :: mu2
+ integer, intent(in) :: eps_flag
+ complex(ki) :: gc0iC
+ !
+ integer, dimension(5) :: tab
+ integer :: n1,n2
+ integer, dimension(5) :: temp
+ integer :: j1,j2,j3,j4
+ type(form_factor) :: ff
+ real(ki) :: lmu2,mu2store
+ character (len=5) :: idt_temp
+ !
+ ! to avoid confusion if mu2_scale_par is not=1 in main program:
+ !
+ mu2store=mu2_scale_par
+ mu2_scale_par=mu2
+ !
+ call initgolem95(3)
+ !
+ s_mat(1,1) = -2._ki*m2
+ s_mat(1,2) = s2-m2-m3
+ s_mat(1,3) = s1-m1-m2
+ !
+ s_mat(2,1) = s_mat(1,2)
+ s_mat(2,2) = -2._ki*m3
+ s_mat(2,3) = s3-m3-m1
+ !
+ s_mat(3,1) = s_mat(1,3)
+ s_mat(3,2) = s_mat(2,3)
+ s_mat(3,3) = -2._ki*m1
+ !
+ call preparesmatrix()
+ !
+ idt_temp = idt ! on complete la chaine entrante par des blancs
+ call extract(idt_temp,tab)
+ n1= count(tab/=-1)
+ n2= count(tab/=-1 .and. tab/=0)
+ !
+ temp = -2
+ temp(1:n1) = pack(tab,tab/=-1)
+ !
+ select case(n1)
+ !
+ case(1)
+ !
+ j1 = temp(1)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = a30(b_null)
+ !
+ case(1)
+ !
+ ff = a31(j1,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ case(2)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = b32(b_null)
+ !
+ case(2)
+ !
+ ff = a32(j1,j2,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ case(3)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ !
+ select case(n2)
+ !
+ case(1)
+ !
+ ff = b33(j3,b_null)
+ !
+ case(3)
+ !
+ ff = a33(j1,j2,j3,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ case(4)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ j4 = temp(4)
+ !
+ select case(n2)
+ !
+ case(0)
+ !
+ ff = c34(b_null)
+ !
+ case(2)
+ !
+ ff = b34(j3,j4,b_null)
+ !
+ case(4)
+ !
+ ff = a34(j1,j2,j3,j4,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
+ tab_erreur_par(2)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
+ lmu2 = log(mu2)
+ !
+ if (eps_flag == 0) then
+ !
+ ! mu2_scale_par already contained in basic triangle functions
+ ! note that local mu2 is used here
+ ! gc0iC = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
+ gc0iC = ff%c
+ !
+ else if (eps_flag == -1) then
+ !
+ ! gc0iC = ff%b + lmu2*ff%a
+ gc0iC = ff%b
+ !
+ else if (eps_flag == -2) then
+ !
+ gc0iC = ff%a
+ !
+ else
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gc0iC (gc0.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
+ tab_erreur_par(2)%arg_int = eps_flag
+ call catch_exception(0)
+ !
+ stop
+ !
+ end if
+ !
+ mu2_scale_par=mu2store
+ !
+ call exitgolem95()
+ !
+ end function gc0iC
+!
!****f* src/interface/gc0
! NAME
!
! Function gc0
!
! USAGE
!
! complex = gc0(s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the scalar C0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * m1 -- a real (type ki), mass^2 of propagator 3
! * m2 -- a real (type ki), mass^2 of propagator 1
! * m3 -- a real (type ki), mass^2 of propagator 2
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the pole coefficient
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_3p (src/form_factor/form_factor_3p.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gc0(s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type
use form_factor_3p ! module containing the three-point form factors (export all)
use cache, only: allocate_cache, clear_cache
use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use array, only: packb
use parametre, only: mu2_scale_par
implicit none
!
real(ki), intent (in) :: s1,s2,s3,m1,m2,m3,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gc0
!
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(3)
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m1
!
call preparesmatrix()
!
ff = a30(s_null)
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
!gc0 = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
! mu scale already contained in basic triangle functions
! but here use local mu2
gc0 = ff%c
!
else if (eps_flag == -1) then
!
! gc0 = ff%b + lmu2*ff%a
gc0 = ff%b
!
else if (eps_flag == -2) then
!
gc0 = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0 (gc0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gc0
!
!****f* src/interface/gc0c
! NAME
!
! Function gc0c
!
! USAGE
!
! complex = gc0c(s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
! DESCRIPTION
!
! This function corresponds to the scalar C0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a complex (type ki), p1^2
! * s2 -- a complex (type ki), p2^2
! * s3 -- a complex (type ki), p3^2
! * m1 -- a complex (type ki), mass^2 of propagator 3
! * m2 -- a complex (type ki), mass^2 of propagator 1
! * m3 -- a complex (type ki), mass^2 of propagator 2
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the pole coefficient
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_3p (src/form_factor/form_factor_3p.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gc0c(s1,s2,s3,m1,m2,m3,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type
use form_factor_3p ! module containing the three-point form factors (export all)
use cache, only: allocate_cache, clear_cache
use constante
use sortie_erreur, only : tab_erreur_par,catch_exception
use array, only: packb
use parametre, only: mu2_scale_par
implicit none
!
complex(ki), intent (in) :: s1,s2,s3,m1,m2,m3
real(ki), intent (in) :: mu2
integer, intent(in) :: eps_flag
complex(ki) :: gc0c
!
type(form_factor) :: ff
real(ki) :: lmu2,mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(3)
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = s1-m1-m2
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m1
!
call preparesmatrix()
!
ff = a30(s_null)
!
lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
!gc0c = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
! mu scale already contained in basic triangle functions
! but here use local mu2
gc0c = ff%c
!
else if (eps_flag == -1) then
!
! gc0c = ff%b + lmu2*ff%a
gc0c = ff%b
!
else if (eps_flag == -2) then
!
gc0c = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gc0c (gc0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gc0c
diff --git a/golem95c-1.2.1/interface/gd0.f90 b/golem95c-1.2.1/interface/gd0.f90
index cb04a8a..43b771a 100644
--- a/golem95c-1.2.1/interface/gd0.f90
+++ b/golem95c-1.2.1/interface/gd0.f90
@@ -1,584 +1,623 @@
!
!****f* src/interface/gd0i
! NAME
!
! Function gd0i
!
! USAGE
!
! complex = gd0i(idt,s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
! DESCRIPTION
!
! This function is the LoopTools D0i function.
! The first argument is a character of length <= 6
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * idt -- a character of length <= 6, the type of form factors
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * s4 -- a real (type ki), p4^2
! * s -- a real (type ki), (p1+p2)^2
! * t -- a real (type ki), (p2+p3)^2
! * m1 -- a real (type ki), mass^2 of propagator 4
! * m2 -- a real (type ki), mass^2 of propagator 1
! * m3 -- a real (type ki), mass^2 of propagator 2
! * m4 -- a real (type ki), mass^2 of propagator 3
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_4p (src/form_factor/form_factor_4p.f90)
+! * form_factor_higher_ranks (src/form_factor/form_factor_higher_ranks.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * tool_lt_to_golem, only : extract (src/interface/tool_lt_to_golem.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
! EXAMPLE
!
!
!
!*****
function gd0i(idt,s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_4p ! module containing the four-point form factors (export all)
+ use form_factor_higher_ranks
use cache, only: allocate_cache, clear_cache
use constante, only: b_null
use tool_lt_to_golem, only : extract
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
character (len=*), intent (in) :: idt
real(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gd0i
!
integer, dimension(6) :: tab
integer :: n1,n2
- integer, dimension(4) :: temp
- integer :: j1,j2,j3,j4
+ integer, dimension(6) :: temp
+ integer :: j1,j2,j3,j4,j5
type(form_factor) :: ff
! real(ki) :: lmu2
real(ki) :: mu2store
character (len=6) :: idt_temp
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(4)
!
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = t-m2-m4
s_mat(1,4) = s1-m2-m1
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m4
s_mat(2,4) = s-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m4
s_mat(3,4) = s4-m4-m1
!
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -2._ki*m1
!
call preparesmatrix()
!
idt_temp = idt ! on complete la chaine entrante par des blancs
call extract(idt_temp,tab)
n1= count(tab/=-1)
n2= count(tab/=-1 .and. tab/=0)
!
temp = -2
temp(1:n1) = pack(tab,tab/=-1)
!
select case(n1)
!
case(1)
!
j1 = temp(1)
!
select case(n2)
!
case(0)
!
ff = a40(b_null)
!
case(1)
!
ff = a41(j1,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(2)
!
j1 = temp(1)
j2 = temp(2)
!
select case(n2)
!
case(0)
!
ff = b42(b_null)
!
case(2)
!
ff = a42(j1,j2,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(3)
!
j1 = temp(1)
j2 = temp(2)
j3 = temp(3)
!
select case(n2)
!
case(1)
!
ff = b43(j3,b_null)
!
case(3)
!
ff = a43(j1,j2,j3,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
case(4)
!
j1 = temp(1)
j2 = temp(2)
j3 = temp(3)
j4 = temp(4)
!
select case(n2)
!
case(0)
!
ff = c44(b_null)
!
case(2)
!
ff = b44(j3,j4,b_null)
!
case(4)
!
ff = a44(j1,j2,j3,j4,b_null)
!
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n2 %d0'
tab_erreur_par(2)%arg_int = n2
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
tab_erreur_par(3)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
+ case(5)
+ !
+ j1 = temp(1)
+ j2 = temp(2)
+ j3 = temp(3)
+ j4 = temp(4)
+ j5 = temp(5)
+ !
+ select case(n2)
+ !
+ case(1)
+ !
+ ff = c45(j5,b_null)
+ !
+ case(3)
+ !
+ ff = b45(j3,j4,j5,b_null)
+ case(5)
+ !
+ ff = a45(j1,j2,j3,j4,j5,b_null)
+ !
+ case default
+ !
+ tab_erreur_par(1)%a_imprimer = .true.
+ tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
+ tab_erreur_par(2)%a_imprimer = .true.
+ tab_erreur_par(2)%chaine = 'The value of n2 %d0'
+ tab_erreur_par(2)%arg_int = n2
+ tab_erreur_par(3)%a_imprimer = .true.
+ tab_erreur_par(3)%chaine = 'is not compatible with n1 %d0'
+ tab_erreur_par(3)%arg_int = n1
+ call catch_exception(0)
+ !
+ stop
+ !
+ end select
+ !
case default
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (lt_to_golem.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'The value of n1 is not correct %d0'
tab_erreur_par(2)%arg_int = n1
call catch_exception(0)
!
stop
!
end select
!
! lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! gd0i = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
gd0i = ff%c
!
else if (eps_flag == -1) then
!
! gd0i = ff%b + lmu2*ff%a
gd0i = ff%b
!
else if (eps_flag == -2) then
!
gd0i = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0i (gd0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gd0i
!
!
!****f* src/interface/gd0
! NAME
!
! Function gd0
!
! USAGE
!
! complex = gd0(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
! DESCRIPTION
!
! This function is the scalar LoopTools D0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a real (type ki), p1^2
! * s2 -- a real (type ki), p2^2
! * s3 -- a real (type ki), p3^2
! * s4 -- a real (type ki), p4^2
! * s -- a real (type ki), (p1+p2)^2
! * t -- a real (type ki), (p2+p3)^2
! * m1 -- a real (type ki), mass^2 of propagator 4
! * m2 -- a real (type ki), mass^2 of propagator 1
! * m3 -- a real (type ki), mass^2 of propagator 2
! * m4 -- a real (type ki), mass^2 of propagator 3
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_4p (src/form_factor/form_factor_4p.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
!*****
function gd0(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_4p ! module containing the four-point form factors (export all)
use cache, only: allocate_cache, clear_cache
use constante, only: b_null
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
real(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2
integer, intent(in) :: eps_flag
complex(ki) :: gd0
!
type(form_factor) :: ff
! real(ki) :: lmu2
real(ki) :: mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(4)
!
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = t-m2-m4
s_mat(1,4) = s1-m2-m1
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m4
s_mat(2,4) = s-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m4
s_mat(3,4) = s4-m4-m1
!
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -2._ki*m1
!
call preparesmatrix()
!
ff = a40(b_null)
!
! lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! gd0 = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
gd0 = ff%c
!
else if (eps_flag == -1) then
!
! gd0 = ff%b + lmu2*ff%a
gd0 = ff%b
!
else if (eps_flag == -2) then
!
gd0 = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0 (gd0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gd0
!
!****f* src/interface/gd0c
! NAME
!
! Function gd0c
!
! USAGE
!
! complex = gd0c(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
! DESCRIPTION
!
! This function is the scalar LoopTools D0 function.
! There are two arguments more which are the renormalisation
! scale squared and a flag which selects the coefficient of
! the Laurent series in epsilon
!
! INPUTS
!
! * s1 -- a complex (type ki), p1^2
! * s2 -- a complex (type ki), p2^2
! * s3 -- a complex (type ki), p3^2
! * s4 -- a complex (type ki), p4^2
! * s -- a complex (type ki), (p1+p2)^2
! * t -- a complex (type ki), (p2+p3)^2
! * m1 -- a complex (type ki), mass^2 of propagator 4
! * m2 -- a complex (type ki), mass^2 of propagator 1
! * m3 -- a complex (type ki), mass^2 of propagator 2
! * m4 -- a complex (type ki), mass^2 of propagator 3
! * mu2 -- a real (type ki), renormalisation scale squared
! * eps_flag -- an integer, a flag to select the coefficient in front the power of epsilon
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! It returns a complex (type ki) corresponding
! to the real part, imaginary part of the coefficient in front 1/epsilon^2 (eps_flag=-2),
! the real part, imaginary part of the 1/epsilon term (eps_flag=-1) and the real part,
! imaginary part of the constant term (eps_flag=0).
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs (src/kinematic/matrice_s.f90)
! * form_factor_type, only: form_factor (src/module/form_factor_type.f90)
! * form_factor_4p (src/form_factor/form_factor_4p.f90)
! * cache, only: allocate_cache, clear_cache (src/module/cache.f90)
! * constante, only : b_null (src/module/constante.f90)
! * sortie_erreur, only : tab_erreur_par,catch_exception (src/module/sortie_erreur.f90)
!
!
!*****
function gd0c(s1,s2,s3,s4,s,t,m1,m2,m3,m4,mu2,eps_flag)
!
use precision_golem ! to get the type ki (for real and complex)
use matrice_s
use form_factor_type, only: form_factor
use form_factor_4p ! module containing the four-point form factors (export all)
use cache, only: allocate_cache, clear_cache
use constante, only: b_null
use sortie_erreur, only : tab_erreur_par,catch_exception
use parametre, only: mu2_scale_par
implicit none
!
complex(ki), intent (in) :: s1,s2,s3,s4,s,t,m1,m2,m3,m4
real(ki), intent (in) :: mu2
integer, intent(in) :: eps_flag
complex(ki) :: gd0c
!
type(form_factor) :: ff
! real(ki) :: lmu2
real(ki) :: mu2store
!
mu2store=mu2_scale_par
mu2_scale_par=mu2
!
call initgolem95(4)
!
!
s_mat(1,1) = -2._ki*m2
s_mat(1,2) = s2-m2-m3
s_mat(1,3) = t-m2-m4
s_mat(1,4) = s1-m2-m1
!
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -2._ki*m3
s_mat(2,3) = s3-m3-m4
s_mat(2,4) = s-m3-m1
!
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -2._ki*m4
s_mat(3,4) = s4-m4-m1
!
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -2._ki*m1
!
call preparesmatrix()
!
ff = a40(b_null)
!
! lmu2 = log(mu2)
!
if (eps_flag == 0) then
!
! gd0c = ff%c + lmu2*ff%b + lmu2**2*ff%a/2._ki
gd0c = ff%c
!
else if (eps_flag == -1) then
!
! gd0c = ff%b + lmu2*ff%a
gd0c = ff%b
!
else if (eps_flag == -2) then
!
gd0c = ff%a
!
else
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In function gd0c (gd0.f90)'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'eps_flag should be -2, -1 or 0 but is %d0'
tab_erreur_par(2)%arg_int = eps_flag
call catch_exception(0)
!
stop
!
end if
!
mu2_scale_par=mu2store
!
call exitgolem95()
!
end function gd0c
diff --git a/golem95c-1.2.1/interface/tens_comb.f90 b/golem95c-1.2.1/interface/tens_comb.f90
index decb9a5..ffa5c5a 100644
--- a/golem95c-1.2.1/interface/tens_comb.f90
+++ b/golem95c-1.2.1/interface/tens_comb.f90
@@ -1,11709 +1,12839 @@
!****h* src/interface/tens_comb
! NAME
!
! Module tens_comb
!
! USAGE
!
! use tens_comb
!
! DESCRIPTION
!
! This module contains the routines necessary for the contraction
! of the tensor coefficients as reconstructed by the module tens_rec
! with the according tensor integrals.
!
! Please, note that this module is generated by a script and should not
! be modified manually. In order to make changes to this module rerun
! the Python script
!
! tool/tens_rec/tens.py
!
! USES
!
! * precision_golem (src/module/precision_golem.f90)
! * matrice_s (src/kinematics/matrice_s.f90)
! * array (src/module/array.f90)
! * form_factor_type (src/module/form_factor_type.f90)
! * form_factor_2p (src/form_factor/form_factor_2p.f90)
! * form_factor_3p (src/form_factor/form_factor_3p.f90)
! * form_factor_4p (src/form_factor/form_factor_4p.f90)
! * form_factor_5p (src/form_factor/form_factor_5p.f90)
! * form_factor_6p (src/form_factor/form_factor_6p.f90)
+! * form_factor_higher_ranks (src/higherrank/form_factor_higher_ranks.f90)
! * tens_rec (src/interface/tens_rec.f90)
!
!*****
module tens_comb
! This module has been generated using a script.
! Please, refrain from modifying it directly!
use precision_golem, only: ki
use matrice_s, only: b_ref, inv_s
use array, only: packb, unpackb, countb, pminus, punion
use form_factor_type, only: form_factor, operator(+), operator(-), &
& operator(*), assignment(=)
use form_factor_1p, only: a10
use form_factor_2p, only: a20, a21, a22, b22
use form_factor_3p, only: a30, a31, a32, b32, a33, b33
use form_factor_4p, only: a40, a41, a42, b42, a43, b43, a44, b44, c44
use form_factor_5p, only: a50, a51, a52, b52, a53, b53, a54, b54, c54, a55, &
& b55, c55
use form_factor_6p, only: a60, a61, a62, a63, a64, a65, a66
+use form_factor_higher_ranks
use tens_rec, only: coeff_type_1, reconstruct1, coeff_type_2, reconstruct2, &
& coeff_type_3, reconstruct3, coeff_type_4, reconstruct4, coeff_type_5, &
- & reconstruct5, coeff_type_6, reconstruct6
+ & reconstruct5, coeff_type_6, reconstruct6, coeff_type_7, reconstruct7
implicit none
private :: ki, b_ref, unpackb, packb, pminus, form_factor
private :: coeff_type_1, reconstruct1, coeff_type_2, reconstruct2, &
& coeff_type_3, reconstruct3, coeff_type_4, reconstruct4, coeff_type_5, &
- & reconstruct5, coeff_type_6, reconstruct6
+ & reconstruct5, coeff_type_6, reconstruct6, coeff_type_7, reconstruct7
private :: a10
private :: a20, a21, a22, b22
private :: a30, a31, a32, b32, a33, b33
private :: a40, a41, a42, b42, a43, b43, a44, b44, c44
private :: a50, a51, a52, b52, a53, b53, a54, b54, c54, a55, b55, c55
private :: a60, a61, a62, a63, a64, a65, a66
real(ki), dimension(0:3), parameter, private :: null_vec = &
& (/0.0_ki,0.0_ki,0.0_ki,0.0_ki/)
interface evaluate
module procedure evaluate_b
module procedure evaluate_s
end interface
contains
!****f* src/interface/tens_comb/evaluate_s
! NAME
!
! Function evaluate_s
!
! Accessible through interface evaluate
!
! USAGE
!
! amp = evaluate(numeval, momenta, set, rank)
!
! DESCRIPTION
!
! Evaluates a diagram by first reconstructing its tensor coefficients
! and then contracting with the tensor integrals.
!
! INPUTS
!
! * numeval -- the numerator function
! * momenta -- real array of dimension(:,0:3) containing the
! momenta r_i of the loop propagators
! * set -- the set of pinched propagators as integer array
! * rank -- optional integer, specifying the maximum rank of the diagram
! If omitted, rank is assumed to be the equal to the number of
! loop propagators.
! RETURN VALUE
!
! Value of the diagram as a type(form_factor)
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function evaluate_s(numeval, momenta, set, rank) result(amp)
! generated by: write_function_evaluate
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), dimension(:,:), intent(in) :: momenta
integer, dimension(:), intent(in) :: set
integer, intent(in), optional :: rank
type(form_factor) :: amp
if (present(rank)) then
amp = evaluate_b(numeval, momenta, packb(set), rank)
else
amp = evaluate_b(numeval, momenta, packb(set))
end if
end function evaluate_s
!****f* src/interface/tens_comb/evaluate_b
! NAME
!
! Function evaluate_b
!
! Accessible through interface evaluate
!
! USAGE
!
! amp = evaluate(numeval, momenta, b_set, rank)
!
! DESCRIPTION
!
! Evaluates a diagram by first reconstructing its tensor coefficients
! and then contracting with the tensor integrals.
!
! INPUTS
!
! * numeval -- the numerator function
! * momenta -- real array of dimension(:,0:3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer (bit-set)
! * rank -- optional integer, specifying the maximum rank of the diagram
! If omitted, rank is assumed to be the equal to the number of
! loop propagators.
! RETURN VALUE
!
! Value of the diagram as a type(form_factor)
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function evaluate_b(numeval, momenta, b_set, rank) result(amp)
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), dimension(:,:), intent(in) :: momenta
integer, intent(in) :: b_set
integer, intent(in), optional :: rank
type(form_factor) :: amp
integer :: N, r
complex(ki) :: coeffs0
- type(coeff_type_1) :: coeffs1
+ type(coeff_type_1) :: coeffs1, coeffs1x
type(coeff_type_2) :: coeffs2, coeffs2x
- type(coeff_type_3) :: coeffs3
- type(coeff_type_4) :: coeffs4
- type(coeff_type_5) :: coeffs5
- type(coeff_type_6) :: coeffs6
+ type(coeff_type_3) :: coeffs3, coeffs3x
+ type(coeff_type_4) :: coeffs4, coeffs4x
+ type(coeff_type_5) :: coeffs5, coeffs5x
+ type(coeff_type_6) :: coeffs6, coeffs6x
+ type(coeff_type_7) :: coeffs7, coeffs7x
N = size(momenta,1) - countb(b_set)
if (present(rank)) then
r = rank
else
r = N
end if
select case(N)
case(1)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
print*, "Tadpoles not implemented yet"
stop
case(1)
call reconstruct1(numeval, coeffs1)
print*, "Tadpoles not implemented yet"
stop
+ case(2)
+ call reconstruct2(numeval, coeffs2, coeffs0)
+ print*, "Tadpoles not implemented yet"
+ stop
case default
print*, "Not yet implemented: N, r = ", 1, r
stop
end select
case(2)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
amp = coeffs0 * a20(b_set)
case(1)
call reconstruct1(numeval, coeffs1)
amp = contract2_1(coeffs1,momenta,b_set)
case(2)
call reconstruct2(numeval, coeffs2, coeffs0)
amp = contract2_2(coeffs2,momenta,b_set)
amp = amp + contract2_2s1(coeffs0,momenta,b_set)
+ case(3)
+ call reconstruct3(numeval, coeffs3, coeffs1)
+ amp = contract2_3(coeffs3,momenta,b_set)
+ amp = amp + contract2_3s1(coeffs1,momenta,b_set)
case default
print*, "Not yet implemented: N, r = ", 2, r
stop
end select
case(3)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
amp = coeffs0 * a30(b_set)
case(1)
call reconstruct1(numeval, coeffs1)
amp = contract3_1(coeffs1,momenta,b_set)
case(2)
call reconstruct2(numeval, coeffs2, coeffs0)
amp = contract3_2(coeffs2,momenta,b_set)
amp = amp + contract3_2s1(coeffs0,momenta,b_set)
case(3)
call reconstruct3(numeval, coeffs3, coeffs1)
amp = contract3_3(coeffs3,momenta,b_set)
amp = amp + contract3_3s1(coeffs1,momenta,b_set)
+ case(4)
+ call reconstruct4(numeval, coeffs4, coeffs2, coeffs2x)
+ amp = contract3_4(coeffs4,momenta,b_set)
+ amp = amp + contract3_4s1(coeffs2,momenta,b_set)
+ amp = amp + contract3_4s2(coeffs2x,momenta,b_set)
case default
print*, "Not yet implemented: N, r = ", 3, r
stop
end select
case(4)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
amp = coeffs0 * a40(b_set)
case(1)
call reconstruct1(numeval, coeffs1)
amp = contract4_1(coeffs1,momenta,b_set)
case(2)
call reconstruct2(numeval, coeffs2, coeffs0)
amp = contract4_2(coeffs2,momenta,b_set)
amp = amp + contract4_2s1(coeffs0,momenta,b_set)
case(3)
call reconstruct3(numeval, coeffs3, coeffs1)
amp = contract4_3(coeffs3,momenta,b_set)
amp = amp + contract4_3s1(coeffs1,momenta,b_set)
case(4)
call reconstruct4(numeval, coeffs4, coeffs2, coeffs2x)
amp = contract4_4(coeffs4,momenta,b_set)
amp = amp + contract4_4s1(coeffs2,momenta,b_set)
amp = amp + contract4_4s2(coeffs2x,momenta,b_set)
+ case(5)
+ call reconstruct5(numeval, coeffs5, coeffs3, coeffs3x)
+ amp = contract4_5(coeffs5,momenta,b_set)
+ amp = amp + contract4_5s1(coeffs3,momenta,b_set)
+ amp = amp + contract4_5s2(coeffs3x,momenta,b_set)
case default
print*, "Not yet implemented: N, r = ", 4, r
stop
end select
case(5)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
amp = coeffs0 * a50(b_set)
case(1)
call reconstruct1(numeval, coeffs1)
amp = contract5_1(coeffs1,momenta,b_set)
case(2)
call reconstruct2(numeval, coeffs2)
amp = contract5_2(coeffs2,momenta,b_set)
case(3)
call reconstruct3(numeval, coeffs3)
amp = contract5_3(coeffs3,momenta,b_set)
case(4)
call reconstruct4(numeval, coeffs4)
amp = contract5_4(coeffs4,momenta,b_set)
case(5)
call reconstruct5(numeval, coeffs5)
amp = contract5_5(coeffs5,momenta,b_set)
case default
print*, "Not yet implemented: N, r = ", 5, r
stop
end select
case(6)
select case(r)
case(0)
coeffs0 = numeval(null_vec, 0.0_ki)
amp = coeffs0 * a60(b_set)
case(1)
call reconstruct1(numeval, coeffs1)
amp = contract6_1(coeffs1,momenta,b_set)
case(2)
call reconstruct2(numeval, coeffs2)
amp = contract6_2(coeffs2,momenta,b_set)
case(3)
call reconstruct3(numeval, coeffs3)
amp = contract6_3(coeffs3,momenta,b_set)
case(4)
call reconstruct4(numeval, coeffs4)
amp = contract6_4(coeffs4,momenta,b_set)
case(5)
call reconstruct5(numeval, coeffs5)
amp = contract6_5(coeffs5,momenta,b_set)
case(6)
call reconstruct6(numeval, coeffs6)
amp = contract6_6(coeffs6,momenta,b_set)
case default
print*, "Not yet implemented: N, r = ", 6, r
stop
end select
case default
print*, "Not yet implemented: N=", N
stop
end select
end function evaluate_b
!****f* src/interface/tens_comb/contract1_1
! NAME
!
! Function contract1_1
!
! USAGE
!
! amp = contract1_1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 1-point rank 1 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract1_1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1
integer, dimension(1) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 1)
l1 = unpinched(1)
amp = coeffs%c0 * a10(b_set)
end function contract1_1
+!****f* src/interface/tens_comb/contract1_2
+! NAME
+!
+! Function contract1_2
+!
+! USAGE
+!
+! amp = contract1_2(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 1-point rank 2 tensor integral
+! with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_2)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract1_2(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_2), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ real(ki), dimension(2,0:3) :: mom2
+ integer :: l1
+ integer, dimension(1) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 1)
+ l1 = unpinched(1)
+ amp = coeffs%c0 * a10(b_set)
+end function contract1_2
+!****f* src/interface/tens_comb/contract1_2s1
+! NAME
+!
+! Function contract1_2s1
+!
+! USAGE
+!
+! amp = contract1_2s1(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 1-point rank 2 tensor integral
+! with (mu^2)^1 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(complex(ki))
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract1_2s1(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ complex(ki), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ integer :: l1
+ integer, dimension(1) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 1)
+ l1 = unpinched(1)
+ amp = 0.0_ki
+end function contract1_2s1
!****f* src/interface/tens_comb/contract2_1
! NAME
!
! Function contract2_1
!
! USAGE
!
! amp = contract2_1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 2-point rank 1 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract2_1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1, l2
integer, dimension(2) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 2)
l1 = unpinched(1)
l2 = unpinched(2)
amp = coeffs%c0 * a20(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a21(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a21(l2, b_set)
end function contract2_1
!****f* src/interface/tens_comb/contract2_2
! NAME
!
! Function contract2_2
!
! USAGE
!
! amp = contract2_2(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 2-point rank 2 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract2_2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
integer :: l1, l2
integer, dimension(2) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 2)
l1 = unpinched(1)
l2 = unpinched(2)
amp = coeffs%c0 * a20(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a21(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a21(l2, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a22(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a22(l1, l2, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a22(l2, l2, b_set)
amp = amp + contract_b_tensor_2(coeffs) * b22(b_set)
end function contract2_2
!****f* src/interface/tens_comb/contract2_2s1
! NAME
!
! Function contract2_2s1
!
! USAGE
!
! amp = contract2_2s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 2-point rank 2 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(complex(ki))
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract2_2s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
complex(ki), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
integer :: l1, l2
integer, dimension(2) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 2)
l1 = unpinched(1)
l2 = unpinched(2)
amp = coeffs * b22(b_set)
! multiply by 2*epsilon
amp%c = 2.0_ki*amp%b
amp%b = 2.0_ki*amp%a
amp%a = 0.0_ki
end function contract2_2s1
+!****f* src/interface/tens_comb/contract2_3
+! NAME
+!
+! Function contract2_3
+!
+! USAGE
+!
+! amp = contract2_3(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 2-point rank 3 tensor integral
+! with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_3)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract2_3(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_3), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ real(ki), dimension(2,0:3) :: mom2
+ real(ki), dimension(3,0:3) :: mom3
+ integer :: l1, l2
+ integer, dimension(2) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 2)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ amp = coeffs%c0 * a20(b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom1) * a21(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom1) * a21(l2, b_set)
+ mom2 = momenta((/l1,l1/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom2) * a22(l1, l1, b_set)
+ mom2 = momenta((/l1,l2/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a22(l1, l2, b_set)
+ mom2 = momenta((/l2,l2/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom2) * a22(l2, l2, b_set)
+ amp = amp + contract_b_tensor_3(coeffs) * b22(b_set)
+ mom3 = momenta((/l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom3) * a23(l1, l1, l1, b_set)
+ mom3 = momenta((/l1,l1,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
+ & * a23(l1, l1, l2, b_set)
+ mom3 = momenta((/l1,l2,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
+ & * a23(l1, l2, l2, b_set)
+ mom3 = momenta((/l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_3(coeffs, mom3) * a23(l2, l2, l2, b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_b_tensor_3(coeffs, mom1) * b23(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_b_tensor_3(coeffs, mom1) * b23(l2, b_set)
+end function contract2_3
+!****f* src/interface/tens_comb/contract2_3s1
+! NAME
+!
+! Function contract2_3s1
+!
+! USAGE
+!
+! amp = contract2_3s1(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 2-point rank 3 tensor integral
+! with (mu^2)^1 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_1)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract2_3s1(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_1), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ integer :: l1, l2
+ integer, dimension(2) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 2)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ amp = coeffs%c0 * b22(b_set)
+ ! multiply by 2*epsilon
+ amp%c = 2.0_ki*amp%b
+ amp%b = 2.0_ki*amp%a
+ amp%a = 0.0_ki
+end function contract2_3s1
!****f* src/interface/tens_comb/contract3_1
! NAME
!
! Function contract3_1
!
! USAGE
!
! amp = contract3_1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 3-point rank 1 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract3_1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1, l2, l3
integer, dimension(3) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
amp = coeffs%c0 * a30(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a31(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a31(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a31(l3, b_set)
end function contract3_1
!****f* src/interface/tens_comb/contract3_2
! NAME
!
! Function contract3_2
!
! USAGE
!
! amp = contract3_2(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 3-point rank 2 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract3_2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
integer :: l1, l2, l3
integer, dimension(3) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
amp = coeffs%c0 * a30(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a31(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a31(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a31(l3, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a32(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a32(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a32(l1, l3, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a32(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a32(l2, l3, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a32(l3, l3, b_set)
amp = amp + contract_b_tensor_2(coeffs) * b32(b_set)
end function contract3_2
!****f* src/interface/tens_comb/contract3_2s1
! NAME
!
! Function contract3_2s1
!
! USAGE
!
! amp = contract3_2s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 3-point rank 2 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(complex(ki))
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract3_2s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
complex(ki), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
integer :: l1, l2, l3
integer, dimension(3) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
amp = coeffs * b32(b_set)
! multiply by 2*epsilon
amp%c = 2.0_ki*amp%b
amp%b = 2.0_ki*amp%a
amp%a = 0.0_ki
end function contract3_2s1
!****f* src/interface/tens_comb/contract3_3
! NAME
!
! Function contract3_3
!
! USAGE
!
! amp = contract3_3(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 3-point rank 3 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract3_3(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
integer :: l1, l2, l3
integer, dimension(3) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
amp = coeffs%c0 * a30(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a31(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a31(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a31(l3, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a32(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a32(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a32(l1, l3, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a32(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a32(l2, l3, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a32(l3, l3, b_set)
amp = amp + contract_b_tensor_3(coeffs) * b32(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a33(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l1, l1, l3, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l1, l2, l3, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l1, l3, l3, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a33(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l2, l2, l3, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a33(l2, l3, l3, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a33(l3, l3, l3, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b33(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b33(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b33(l3, b_set)
end function contract3_3
!****f* src/interface/tens_comb/contract3_3s1
! NAME
!
! Function contract3_3s1
!
! USAGE
!
! amp = contract3_3s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 3-point rank 3 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract3_3s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1, l2, l3
integer, dimension(3) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
amp = coeffs%c0 * b32(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * b33(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * b33(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * b33(l3, b_set)
! multiply by 2*epsilon
amp%c = 2.0_ki*amp%b
amp%b = 2.0_ki*amp%a
amp%a = 0.0_ki
end function contract3_3s1
-!****f* src/interface/tens_comb/contract4_1
+!****f* src/interface/tens_comb/contract3_4
! NAME
!
-! Function contract4_1
+! Function contract3_4
!
! USAGE
!
-! amp = contract4_1(coeffs, momenta, b_set)
+! amp = contract3_4(coeffs, momenta, b_set)
!
! DESCRIPTION
!
-! Contracts the 4-point rank 1 tensor integral
+! Contracts the 3-point rank 4 tensor integral
! with its coefficients.
!
! INPUTS
!
-! * coeffs -- coefficients of type(coeff_type_1)
+! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
-function contract4_1(coeffs, momenta, b_set) result(amp)
+function contract3_4(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
- type(coeff_type_1), intent(in) :: coeffs
+ type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
- integer :: l1, l2, l3, l4
- integer, dimension(4) :: unpinched
- unpinched = unpackb(pminus(b_ref, b_set), 4)
+ real(ki), dimension(2,0:3) :: mom2
+ real(ki), dimension(3,0:3) :: mom3
+ real(ki), dimension(4,0:3) :: mom4
+ integer :: l1, l2, l3
+ integer, dimension(3) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 3)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
- l4 = unpinched(4)
- amp = coeffs%c0 * a40(b_set)
+ amp = coeffs%c0 * a30(b_set)
mom1 = momenta((/l1/),:)
- amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l1, b_set)
+ amp = amp + contract_a_tensor_4(coeffs, mom1) * a31(l1, b_set)
mom1 = momenta((/l2/),:)
- amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l2, b_set)
+ amp = amp + contract_a_tensor_4(coeffs, mom1) * a31(l2, b_set)
mom1 = momenta((/l3/),:)
- amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l3, b_set)
- mom1 = momenta((/l4/),:)
- amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l4, b_set)
-end function contract4_1
-!****f* src/interface/tens_comb/contract4_2
-! NAME
-!
-! Function contract4_2
-!
-! USAGE
-!
-! amp = contract4_2(coeffs, momenta, b_set)
-!
-! DESCRIPTION
-!
-! Contracts the 4-point rank 2 tensor integral
-! with its coefficients.
-!
-! INPUTS
-!
-! * coeffs -- coefficients of type(coeff_type_2)
-! * momenta -- real array of dimension(:,3) containing the
-! momenta r_i of the loop propagators
-! * b_set -- the set of pinched propagators as integer number (bit-set)
-!
-! RETURN VALUE
-!
-! The result of contracting the tensor integral with its coefficient.
-!
-! SIDE EFFECTS
-!
-! None
-!
-! EXAMPLE
-!
-!
+ amp = amp + contract_a_tensor_4(coeffs, mom1) * a31(l3, b_set)
+ mom2 = momenta((/l1,l1/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom2) * a32(l1, l1, b_set)
+ mom2 = momenta((/l1,l2/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a32(l1, l2, b_set)
+ mom2 = momenta((/l1,l3/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a32(l1, l3, b_set)
+ mom2 = momenta((/l2,l2/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom2) * a32(l2, l2, b_set)
+ mom2 = momenta((/l2,l3/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a32(l2, l3, b_set)
+ mom2 = momenta((/l3,l3/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom2) * a32(l3, l3, b_set)
+ amp = amp + contract_b_tensor_4(coeffs) * b32(b_set)
+ mom3 = momenta((/l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom3) * a33(l1, l1, l1, b_set)
+ mom3 = momenta((/l1,l1,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l1, l1, l2, b_set)
+ mom3 = momenta((/l1,l1,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l1, l1, l3, b_set)
+ mom3 = momenta((/l1,l2,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l1, l2, l2, b_set)
+ mom3 = momenta((/l1,l2,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l1, l2, l3, b_set)
+ mom3 = momenta((/l1,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l1, l3, l3, b_set)
+ mom3 = momenta((/l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom3) * a33(l2, l2, l2, b_set)
+ mom3 = momenta((/l2,l2,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l2, l2, l3, b_set)
+ mom3 = momenta((/l2,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
+ & * a33(l2, l3, l3, b_set)
+ mom3 = momenta((/l3,l3,l3/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom3) * a33(l3, l3, l3, b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom1) * b33(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom1) * b33(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom1) * b33(l3, b_set)
+ mom4 = momenta((/l1,l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom4) * a34(l1, l1, l1, l1, b_set)
+ mom4 = momenta((/l1,l1,l1,l2/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l1, l1, l2, b_set)
+ mom4 = momenta((/l1,l1,l1,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l1, l1, l3, b_set)
+ mom4 = momenta((/l1,l1,l2,l2/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l1, l2, l2, b_set)
+ mom4 = momenta((/l1,l1,l2,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l1, l2, l3, b_set)
+ mom4 = momenta((/l1,l1,l3,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l1, l3, l3, b_set)
+ mom4 = momenta((/l1,l2,l2,l2/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l2, l2, l2, b_set)
+ mom4 = momenta((/l1,l2,l2,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l2, l2, l3, b_set)
+ mom4 = momenta((/l1,l2,l3,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l2, l3, l3, b_set)
+ mom4 = momenta((/l1,l3,l3,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l1, l3, l3, l3, b_set)
+ mom4 = momenta((/l2,l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom4) * a34(l2, l2, l2, l2, b_set)
+ mom4 = momenta((/l2,l2,l2,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l2, l2, l2, l3, b_set)
+ mom4 = momenta((/l2,l2,l3,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l2, l2, l3, l3, b_set)
+ mom4 = momenta((/l2,l3,l3,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
+ & * a34(l2, l3, l3, l3, b_set)
+ mom4 = momenta((/l3,l3,l3,l3/),:)
+ amp = amp + contract_a_tensor_4(coeffs, mom4) * a34(l3, l3, l3, l3, b_set)
+ mom2 = momenta((/l1,l1/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom2) * b34(l1, l1, b_set)
+ mom2 = momenta((/l1,l2/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b34(l1, l2, b_set)
+ mom2 = momenta((/l1,l3/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b34(l1, l3, b_set)
+ mom2 = momenta((/l2,l2/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom2) * b34(l2, l2, b_set)
+ mom2 = momenta((/l2,l3/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b34(l2, l3, b_set)
+ mom2 = momenta((/l3,l3/),:)
+ amp = amp + contract_b_tensor_4(coeffs, mom2) * b34(l3, l3, b_set)
+ amp = amp + contract_c_tensor_4(coeffs) * c34(b_set)
+end function contract3_4
+!****f* src/interface/tens_comb/contract3_4s1
+! NAME
+!
+! Function contract3_4s1
+!
+! USAGE
+!
+! amp = contract3_4s1(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 3-point rank 4 tensor integral
+! with (mu^2)^1 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_2)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract3_4s1(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_2), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ real(ki), dimension(2,0:3) :: mom2
+ integer :: l1, l2, l3
+ integer, dimension(3) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 3)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ amp = coeffs%c0 * b32(b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_a_tensor_2(coeffs, mom1) * b33(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_a_tensor_2(coeffs, mom1) * b33(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_a_tensor_2(coeffs, mom1) * b33(l3, b_set)
+ ! multiply by 2*epsilon
+ amp%c = 2.0_ki*amp%b
+ amp%b = 2.0_ki*amp%a
+ amp%a = 0.0_ki
+end function contract3_4s1
+!****f* src/interface/tens_comb/contract3_4s2
+! NAME
+!
+! Function contract3_4s2
+!
+! USAGE
+!
+! amp = contract3_4s2(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 3-point rank 4 tensor integral
+! with (mu^2)^2 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_2)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract3_4s2(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_2), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ integer :: l1, l2, l3
+ integer, dimension(3) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 3)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ amp = 0.0_ki
+end function contract3_4s2
+!****f* src/interface/tens_comb/contract4_1
+! NAME
+!
+! Function contract4_1
+!
+! USAGE
+!
+! amp = contract4_1(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 4-point rank 1 tensor integral
+! with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_1)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract4_1(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_1), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ integer :: l1, l2, l3, l4
+ integer, dimension(4) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 4)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ l4 = unpinched(4)
+ amp = coeffs%c0 * a40(b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l3, b_set)
+ mom1 = momenta((/l4/),:)
+ amp = amp + contract_a_tensor_1(coeffs, mom1) * a41(l4, b_set)
+end function contract4_1
+!****f* src/interface/tens_comb/contract4_2
+! NAME
+!
+! Function contract4_2
+!
+! USAGE
+!
+! amp = contract4_2(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 4-point rank 2 tensor integral
+! with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_2)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
!*****
function contract4_2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = coeffs%c0 * a40(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a41(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a41(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a41(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a41(l4, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a42(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l1, l4, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a42(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l2, l4, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a42(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a42(l3, l4, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a42(l4, l4, b_set)
amp = amp + contract_b_tensor_2(coeffs) * b42(b_set)
end function contract4_2
!****f* src/interface/tens_comb/contract4_2s1
! NAME
!
! Function contract4_2s1
!
! USAGE
!
! amp = contract4_2s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 2 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(complex(ki))
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_2s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
complex(ki), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = 0.0_ki
end function contract4_2s1
!****f* src/interface/tens_comb/contract4_3
! NAME
!
! Function contract4_3
!
! USAGE
!
! amp = contract4_3(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 3 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_3(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = coeffs%c0 * a40(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a41(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a41(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a41(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a41(l4, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a42(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l1, l4, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a42(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l2, l4, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a42(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a42(l3, l4, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a42(l4, l4, b_set)
amp = amp + contract_b_tensor_3(coeffs) * b42(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a43(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l1, l4, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l2, l4, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l3, l4, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l1, l4, l4, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a43(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l2, l2, l4, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l2, l3, l4, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l2, l4, l4, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a43(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l3, l3, l4, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a43(l3, l4, l4, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a43(l4, l4, l4, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b43(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b43(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b43(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b43(l4, b_set)
end function contract4_3
!****f* src/interface/tens_comb/contract4_3s1
! NAME
!
! Function contract4_3s1
!
! USAGE
!
! amp = contract4_3s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 3 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_3s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = 0.0_ki
end function contract4_3s1
!****f* src/interface/tens_comb/contract4_4
! NAME
!
! Function contract4_4
!
! USAGE
!
! amp = contract4_4(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 4 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_4(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
real(ki), dimension(4,0:3) :: mom4
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = coeffs%c0 * a40(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a41(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a41(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a41(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a41(l4, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a42(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l1, l4, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a42(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l2, l4, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a42(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a42(l3, l4, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a42(l4, l4, b_set)
amp = amp + contract_b_tensor_4(coeffs) * b42(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a43(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l1, l4, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l2, l4, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l3, l4, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l1, l4, l4, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a43(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l2, l2, l4, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l2, l3, l4, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l2, l4, l4, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a43(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l3, l3, l4, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a43(l3, l4, l4, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a43(l4, l4, l4, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b43(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b43(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b43(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b43(l4, b_set)
mom4 = momenta((/l1,l1,l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a44(l1, l1, l1, l1, b_set)
mom4 = momenta((/l1,l1,l1,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l1, l2, b_set)
mom4 = momenta((/l1,l1,l1,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l1, l3, b_set)
mom4 = momenta((/l1,l1,l1,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l1, l4, b_set)
mom4 = momenta((/l1,l1,l2,l2/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l2, l2, b_set)
mom4 = momenta((/l1,l1,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l2, l3, b_set)
mom4 = momenta((/l1,l1,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l2, l4, b_set)
mom4 = momenta((/l1,l1,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l3, l3, b_set)
mom4 = momenta((/l1,l1,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l3, l4, b_set)
mom4 = momenta((/l1,l1,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l1, l4, l4, b_set)
mom4 = momenta((/l1,l2,l2,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l2, l2, b_set)
mom4 = momenta((/l1,l2,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l2, l3, b_set)
mom4 = momenta((/l1,l2,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l2, l4, b_set)
mom4 = momenta((/l1,l2,l3,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l3, l3, b_set)
mom4 = momenta((/l1,l2,l3,l4/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l3, l4, b_set)
mom4 = momenta((/l1,l2,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l2, l4, l4, b_set)
mom4 = momenta((/l1,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l3, l3, l3, b_set)
mom4 = momenta((/l1,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l3, l3, l4, b_set)
mom4 = momenta((/l1,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l3, l4, l4, b_set)
mom4 = momenta((/l1,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l1, l4, l4, l4, b_set)
mom4 = momenta((/l2,l2,l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a44(l2, l2, l2, l2, b_set)
mom4 = momenta((/l2,l2,l2,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l2, l2, l3, b_set)
mom4 = momenta((/l2,l2,l2,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l2, l2, l4, b_set)
mom4 = momenta((/l2,l2,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l2, l3, l3, b_set)
mom4 = momenta((/l2,l2,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l2, l3, l4, b_set)
mom4 = momenta((/l2,l2,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l2, l4, l4, b_set)
mom4 = momenta((/l2,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l3, l3, l3, b_set)
mom4 = momenta((/l2,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l3, l3, l4, b_set)
mom4 = momenta((/l2,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l3, l4, l4, b_set)
mom4 = momenta((/l2,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l2, l4, l4, l4, b_set)
mom4 = momenta((/l3,l3,l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a44(l3, l3, l3, l3, b_set)
mom4 = momenta((/l3,l3,l3,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l3, l3, l3, l4, b_set)
mom4 = momenta((/l3,l3,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l3, l3, l4, l4, b_set)
mom4 = momenta((/l3,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a44(l3, l4, l4, l4, b_set)
mom4 = momenta((/l4,l4,l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a44(l4, l4, l4, l4, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b44(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l1, l4, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b44(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l2, l4, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b44(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b44(l3, l4, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b44(l4, l4, b_set)
amp = amp + contract_c_tensor_4(coeffs) * c44(b_set)
end function contract4_4
!****f* src/interface/tens_comb/contract4_4s1
! NAME
!
! Function contract4_4s1
!
! USAGE
!
! amp = contract4_4s1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 4 tensor integral
! with (mu^2)^1 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_4s1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = contract_b_tensor_2(coeffs) * c44(b_set)
! multiply by 2*epsilon
amp%c = 2.0_ki*amp%b
amp%b = 2.0_ki*amp%a
amp%a = 0.0_ki
end function contract4_4s1
!****f* src/interface/tens_comb/contract4_4s2
! NAME
!
! Function contract4_4s2
!
! USAGE
!
! amp = contract4_4s2(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 4-point rank 4 tensor integral
! with (mu^2)^2 in the numerator with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract4_4s2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
integer :: l1, l2, l3, l4
integer, dimension(4) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 4)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
amp = coeffs%c0 * c44(b_set)
! multiply by -4*(epsilon-epsilon^2)
amp%c = -4.0_ki*(amp%b-amp%a)
amp%b = -4.0_ki*amp%a
amp%a = 0.0_ki
end function contract4_4s2
+!****f* src/interface/tens_comb/contract4_5
+! NAME
+!
+! Function contract4_5
+!
+! USAGE
+!
+! amp = contract4_5(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 4-point rank 5 tensor integral
+! with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_5)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract4_5(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_5), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ real(ki), dimension(2,0:3) :: mom2
+ real(ki), dimension(3,0:3) :: mom3
+ real(ki), dimension(4,0:3) :: mom4
+ real(ki), dimension(5,0:3) :: mom5
+ integer :: l1, l2, l3, l4
+ integer, dimension(4) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 4)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ l4 = unpinched(4)
+ amp = coeffs%c0 * a40(b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom1) * a41(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom1) * a41(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom1) * a41(l3, b_set)
+ mom1 = momenta((/l4/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom1) * a41(l4, b_set)
+ mom2 = momenta((/l1,l1/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom2) * a42(l1, l1, b_set)
+ mom2 = momenta((/l1,l2/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l1, l2, b_set)
+ mom2 = momenta((/l1,l3/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l1, l3, b_set)
+ mom2 = momenta((/l1,l4/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l1, l4, b_set)
+ mom2 = momenta((/l2,l2/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom2) * a42(l2, l2, b_set)
+ mom2 = momenta((/l2,l3/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l2, l3, b_set)
+ mom2 = momenta((/l2,l4/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l2, l4, b_set)
+ mom2 = momenta((/l3,l3/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom2) * a42(l3, l3, b_set)
+ mom2 = momenta((/l3,l4/),:)
+ amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a42(l3, l4, b_set)
+ mom2 = momenta((/l4,l4/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom2) * a42(l4, l4, b_set)
+ amp = amp + contract_b_tensor_5(coeffs) * b42(b_set)
+ mom3 = momenta((/l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom3) * a43(l1, l1, l1, b_set)
+ mom3 = momenta((/l1,l1,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l1, l2, b_set)
+ mom3 = momenta((/l1,l1,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l1, l3, b_set)
+ mom3 = momenta((/l1,l1,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l1, l4, b_set)
+ mom3 = momenta((/l1,l2,l2/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l2, l2, b_set)
+ mom3 = momenta((/l1,l2,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l2, l3, b_set)
+ mom3 = momenta((/l1,l2,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l2, l4, b_set)
+ mom3 = momenta((/l1,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l3, l3, b_set)
+ mom3 = momenta((/l1,l3,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l3, l4, b_set)
+ mom3 = momenta((/l1,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l1, l4, l4, b_set)
+ mom3 = momenta((/l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom3) * a43(l2, l2, l2, b_set)
+ mom3 = momenta((/l2,l2,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l2, l2, l3, b_set)
+ mom3 = momenta((/l2,l2,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l2, l2, l4, b_set)
+ mom3 = momenta((/l2,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l2, l3, l3, b_set)
+ mom3 = momenta((/l2,l3,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l2, l3, l4, b_set)
+ mom3 = momenta((/l2,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l2, l4, l4, b_set)
+ mom3 = momenta((/l3,l3,l3/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom3) * a43(l3, l3, l3, b_set)
+ mom3 = momenta((/l3,l3,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l3, l3, l4, b_set)
+ mom3 = momenta((/l3,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
+ & * a43(l3, l4, l4, b_set)
+ mom3 = momenta((/l4,l4,l4/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom3) * a43(l4, l4, l4, b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom1) * b43(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom1) * b43(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom1) * b43(l3, b_set)
+ mom1 = momenta((/l4/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom1) * b43(l4, b_set)
+ mom4 = momenta((/l1,l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom4) * a44(l1, l1, l1, l1, b_set)
+ mom4 = momenta((/l1,l1,l1,l2/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l1, l2, b_set)
+ mom4 = momenta((/l1,l1,l1,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l1, l3, b_set)
+ mom4 = momenta((/l1,l1,l1,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l1, l4, b_set)
+ mom4 = momenta((/l1,l1,l2,l2/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l2, l2, b_set)
+ mom4 = momenta((/l1,l1,l2,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l2, l3, b_set)
+ mom4 = momenta((/l1,l1,l2,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l2, l4, b_set)
+ mom4 = momenta((/l1,l1,l3,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l3, l3, b_set)
+ mom4 = momenta((/l1,l1,l3,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l3, l4, b_set)
+ mom4 = momenta((/l1,l1,l4,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l1, l4, l4, b_set)
+ mom4 = momenta((/l1,l2,l2,l2/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l2, l2, b_set)
+ mom4 = momenta((/l1,l2,l2,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l2, l3, b_set)
+ mom4 = momenta((/l1,l2,l2,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l2, l4, b_set)
+ mom4 = momenta((/l1,l2,l3,l3/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l3, l3, b_set)
+ mom4 = momenta((/l1,l2,l3,l4/),:)
+ amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l3, l4, b_set)
+ mom4 = momenta((/l1,l2,l4,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l2, l4, l4, b_set)
+ mom4 = momenta((/l1,l3,l3,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l3, l3, l3, b_set)
+ mom4 = momenta((/l1,l3,l3,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l3, l3, l4, b_set)
+ mom4 = momenta((/l1,l3,l4,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l3, l4, l4, b_set)
+ mom4 = momenta((/l1,l4,l4,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l1, l4, l4, l4, b_set)
+ mom4 = momenta((/l2,l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom4) * a44(l2, l2, l2, l2, b_set)
+ mom4 = momenta((/l2,l2,l2,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l2, l2, l3, b_set)
+ mom4 = momenta((/l2,l2,l2,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l2, l2, l4, b_set)
+ mom4 = momenta((/l2,l2,l3,l3/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l2, l3, l3, b_set)
+ mom4 = momenta((/l2,l2,l3,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l2, l3, l4, b_set)
+ mom4 = momenta((/l2,l2,l4,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l2, l4, l4, b_set)
+ mom4 = momenta((/l2,l3,l3,l3/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l3, l3, l3, b_set)
+ mom4 = momenta((/l2,l3,l3,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l3, l3, l4, b_set)
+ mom4 = momenta((/l2,l3,l4,l4/),:)
+ amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l3, l4, l4, b_set)
+ mom4 = momenta((/l2,l4,l4,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l2, l4, l4, l4, b_set)
+ mom4 = momenta((/l3,l3,l3,l3/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom4) * a44(l3, l3, l3, l3, b_set)
+ mom4 = momenta((/l3,l3,l3,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l3, l3, l3, l4, b_set)
+ mom4 = momenta((/l3,l3,l4,l4/),:)
+ amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l3, l3, l4, l4, b_set)
+ mom4 = momenta((/l3,l4,l4,l4/),:)
+ amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
+ & * a44(l3, l4, l4, l4, b_set)
+ mom4 = momenta((/l4,l4,l4,l4/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom4) * a44(l4, l4, l4, l4, b_set)
+ mom2 = momenta((/l1,l1/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom2) * b44(l1, l1, b_set)
+ mom2 = momenta((/l1,l2/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l1, l2, b_set)
+ mom2 = momenta((/l1,l3/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l1, l3, b_set)
+ mom2 = momenta((/l1,l4/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l1, l4, b_set)
+ mom2 = momenta((/l2,l2/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom2) * b44(l2, l2, b_set)
+ mom2 = momenta((/l2,l3/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l2, l3, b_set)
+ mom2 = momenta((/l2,l4/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l2, l4, b_set)
+ mom2 = momenta((/l3,l3/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom2) * b44(l3, l3, b_set)
+ mom2 = momenta((/l3,l4/),:)
+ amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b44(l3, l4, b_set)
+ mom2 = momenta((/l4,l4/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom2) * b44(l4, l4, b_set)
+ amp = amp + contract_c_tensor_5(coeffs) * c44(b_set)
+ mom5 = momenta((/l1,l1,l1,l1,l1/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l1, l1, b_set)
+ mom5 = momenta((/l1,l1,l1,l1,l2/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l1, l2, b_set)
+ mom5 = momenta((/l1,l1,l1,l1,l3/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l1, l3, b_set)
+ mom5 = momenta((/l1,l1,l1,l1,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l1, l4, b_set)
+ mom5 = momenta((/l1,l1,l1,l2,l2/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l2, l2, b_set)
+ mom5 = momenta((/l1,l1,l1,l2,l3/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l2, l3, b_set)
+ mom5 = momenta((/l1,l1,l1,l2,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l2, l4, b_set)
+ mom5 = momenta((/l1,l1,l1,l3,l3/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l3, l3, b_set)
+ mom5 = momenta((/l1,l1,l1,l3,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l3, l4, b_set)
+ mom5 = momenta((/l1,l1,l1,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l1, l4, l4, b_set)
+ mom5 = momenta((/l1,l1,l2,l2,l2/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l2, l2, b_set)
+ mom5 = momenta((/l1,l1,l2,l2,l3/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l2, l3, b_set)
+ mom5 = momenta((/l1,l1,l2,l2,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l2, l4, b_set)
+ mom5 = momenta((/l1,l1,l2,l3,l3/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l3, l3, b_set)
+ mom5 = momenta((/l1,l1,l2,l3,l4/),:)
+ amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l3, l4, b_set)
+ mom5 = momenta((/l1,l1,l2,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l2, l4, l4, b_set)
+ mom5 = momenta((/l1,l1,l3,l3,l3/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l3, l3, l3, b_set)
+ mom5 = momenta((/l1,l1,l3,l3,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l3, l3, l4, b_set)
+ mom5 = momenta((/l1,l1,l3,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l3, l4, l4, b_set)
+ mom5 = momenta((/l1,l1,l4,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l1, l4, l4, l4, b_set)
+ mom5 = momenta((/l1,l2,l2,l2,l2/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l2, l2, b_set)
+ mom5 = momenta((/l1,l2,l2,l2,l3/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l2, l3, b_set)
+ mom5 = momenta((/l1,l2,l2,l2,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l2, l4, b_set)
+ mom5 = momenta((/l1,l2,l2,l3,l3/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l3, l3, b_set)
+ mom5 = momenta((/l1,l2,l2,l3,l4/),:)
+ amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l3, l4, b_set)
+ mom5 = momenta((/l1,l2,l2,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l2, l4, l4, b_set)
+ mom5 = momenta((/l1,l2,l3,l3,l3/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l3, l3, l3, b_set)
+ mom5 = momenta((/l1,l2,l3,l3,l4/),:)
+ amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l3, l3, l4, b_set)
+ mom5 = momenta((/l1,l2,l3,l4,l4/),:)
+ amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l3, l4, l4, b_set)
+ mom5 = momenta((/l1,l2,l4,l4,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l2, l4, l4, l4, b_set)
+ mom5 = momenta((/l1,l3,l3,l3,l3/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l3, l3, l3, l3, b_set)
+ mom5 = momenta((/l1,l3,l3,l3,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l3, l3, l3, l4, b_set)
+ mom5 = momenta((/l1,l3,l3,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l3, l3, l4, l4, b_set)
+ mom5 = momenta((/l1,l3,l4,l4,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l3, l4, l4, l4, b_set)
+ mom5 = momenta((/l1,l4,l4,l4,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l1, l4, l4, l4, l4, b_set)
+ mom5 = momenta((/l2,l2,l2,l2,l2/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l2, l2, b_set)
+ mom5 = momenta((/l2,l2,l2,l2,l3/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l2, l3, b_set)
+ mom5 = momenta((/l2,l2,l2,l2,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l2, l4, b_set)
+ mom5 = momenta((/l2,l2,l2,l3,l3/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l3, l3, b_set)
+ mom5 = momenta((/l2,l2,l2,l3,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l3, l4, b_set)
+ mom5 = momenta((/l2,l2,l2,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l2, l4, l4, b_set)
+ mom5 = momenta((/l2,l2,l3,l3,l3/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l3, l3, l3, b_set)
+ mom5 = momenta((/l2,l2,l3,l3,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l3, l3, l4, b_set)
+ mom5 = momenta((/l2,l2,l3,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l3, l4, l4, b_set)
+ mom5 = momenta((/l2,l2,l4,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l2, l4, l4, l4, b_set)
+ mom5 = momenta((/l2,l3,l3,l3,l3/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l3, l3, l3, l3, b_set)
+ mom5 = momenta((/l2,l3,l3,l3,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l3, l3, l3, l4, b_set)
+ mom5 = momenta((/l2,l3,l3,l4,l4/),:)
+ amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l3, l3, l4, l4, b_set)
+ mom5 = momenta((/l2,l3,l4,l4,l4/),:)
+ amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l3, l4, l4, l4, b_set)
+ mom5 = momenta((/l2,l4,l4,l4,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l2, l4, l4, l4, l4, b_set)
+ mom5 = momenta((/l3,l3,l3,l3,l3/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l3, l3, l3, l3, l3, b_set)
+ mom5 = momenta((/l3,l3,l3,l3,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l3, l3, l3, l3, l4, b_set)
+ mom5 = momenta((/l3,l3,l3,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l3, l3, l3, l4, l4, b_set)
+ mom5 = momenta((/l3,l3,l4,l4,l4/),:)
+ amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l3, l3, l4, l4, l4, b_set)
+ mom5 = momenta((/l3,l4,l4,l4,l4/),:)
+ amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l3, l4, l4, l4, l4, b_set)
+ mom5 = momenta((/l4,l4,l4,l4,l4/),:)
+ amp = amp + contract_a_tensor_5(coeffs, mom5) &
+ & * a45(l4, l4, l4, l4, l4, b_set)
+ mom3 = momenta((/l1,l1,l1/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom3) * b45(l1, l1, l1, b_set)
+ mom3 = momenta((/l1,l1,l2/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l1, l2, b_set)
+ mom3 = momenta((/l1,l1,l3/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l1, l3, b_set)
+ mom3 = momenta((/l1,l1,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l1, l4, b_set)
+ mom3 = momenta((/l1,l2,l2/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l2, l2, b_set)
+ mom3 = momenta((/l1,l2,l3/),:)
+ amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l2, l3, b_set)
+ mom3 = momenta((/l1,l2,l4/),:)
+ amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l2, l4, b_set)
+ mom3 = momenta((/l1,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l3, l3, b_set)
+ mom3 = momenta((/l1,l3,l4/),:)
+ amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l3, l4, b_set)
+ mom3 = momenta((/l1,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l1, l4, l4, b_set)
+ mom3 = momenta((/l2,l2,l2/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom3) * b45(l2, l2, l2, b_set)
+ mom3 = momenta((/l2,l2,l3/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l2, l2, l3, b_set)
+ mom3 = momenta((/l2,l2,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l2, l2, l4, b_set)
+ mom3 = momenta((/l2,l3,l3/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l2, l3, l3, b_set)
+ mom3 = momenta((/l2,l3,l4/),:)
+ amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l2, l3, l4, b_set)
+ mom3 = momenta((/l2,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l2, l4, l4, b_set)
+ mom3 = momenta((/l3,l3,l3/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom3) * b45(l3, l3, l3, b_set)
+ mom3 = momenta((/l3,l3,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l3, l3, l4, b_set)
+ mom3 = momenta((/l3,l4,l4/),:)
+ amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
+ & * b45(l3, l4, l4, b_set)
+ mom3 = momenta((/l4,l4,l4/),:)
+ amp = amp + contract_b_tensor_5(coeffs, mom3) * b45(l4, l4, l4, b_set)
+ mom1 = momenta((/l1/),:)
+ amp = amp + contract_c_tensor_5(coeffs, mom1) * c45(l1, b_set)
+ mom1 = momenta((/l2/),:)
+ amp = amp + contract_c_tensor_5(coeffs, mom1) * c45(l2, b_set)
+ mom1 = momenta((/l3/),:)
+ amp = amp + contract_c_tensor_5(coeffs, mom1) * c45(l3, b_set)
+ mom1 = momenta((/l4/),:)
+ amp = amp + contract_c_tensor_5(coeffs, mom1) * c45(l4, b_set)
+end function contract4_5
+!****f* src/interface/tens_comb/contract4_5s1
+! NAME
+!
+! Function contract4_5s1
+!
+! USAGE
+!
+! amp = contract4_5s1(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 4-point rank 5 tensor integral
+! with (mu^2)^1 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_3)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract4_5s1(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_3), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ real(ki), dimension(2,0:3) :: mom2
+ real(ki), dimension(3,0:3) :: mom3
+ integer :: l1, l2, l3, l4
+ integer, dimension(4) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 4)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ l4 = unpinched(4)
+ amp = contract_b_tensor_3(coeffs) * c44(b_set)
+ ! multiply by 2*epsilon
+ amp%c = 2.0_ki*amp%b
+ amp%b = 2.0_ki*amp%a
+ amp%a = 0.0_ki
+end function contract4_5s1
+!****f* src/interface/tens_comb/contract4_5s2
+! NAME
+!
+! Function contract4_5s2
+!
+! USAGE
+!
+! amp = contract4_5s2(coeffs, momenta, b_set)
+!
+! DESCRIPTION
+!
+! Contracts the 4-point rank 5 tensor integral
+! with (mu^2)^2 in the numerator with its coefficients.
+!
+! INPUTS
+!
+! * coeffs -- coefficients of type(coeff_type_3)
+! * momenta -- real array of dimension(:,3) containing the
+! momenta r_i of the loop propagators
+! * b_set -- the set of pinched propagators as integer number (bit-set)
+!
+! RETURN VALUE
+!
+! The result of contracting the tensor integral with its coefficient.
+!
+! SIDE EFFECTS
+!
+! None
+!
+! EXAMPLE
+!
+!
+!*****
+function contract4_5s2(coeffs, momenta, b_set) result(amp)
+ ! generated by: write_function_contract
+ implicit none
+ type(coeff_type_3), intent(in) :: coeffs
+ real(ki), dimension(:,0:), intent(in) :: momenta
+ integer, intent(in) :: b_set
+ type(form_factor) :: amp
+ ! generated by: write_contract_simple
+ real(ki), dimension(1,0:3) :: mom1
+ integer :: l1, l2, l3, l4
+ integer, dimension(4) :: unpinched
+ unpinched = unpackb(pminus(b_ref, b_set), 4)
+ l1 = unpinched(1)
+ l2 = unpinched(2)
+ l3 = unpinched(3)
+ l4 = unpinched(4)
+ amp = coeffs%c0 * c44(b_set)
+ ! multiply by -4*(epsilon-epsilon^2)
+ amp%c = -4.0_ki*(amp%b-amp%a)
+ amp%b = -4.0_ki*amp%a
+ amp%a = 0.0_ki
+end function contract4_5s2
!****f* src/interface/tens_comb/contract5_1
! NAME
!
! Function contract5_1
!
! USAGE
!
! amp = contract5_1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 5-point rank 1 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract5_1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
integer :: l1, l2, l3, l4, l5
integer, dimension(5) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 5)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
l5 = unpinched(5)
amp = coeffs%c0 * a50(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a51(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a51(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a51(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a51(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_a_tensor_1(coeffs, mom1) * a51(l5, b_set)
end function contract5_1
!****f* src/interface/tens_comb/contract5_2
! NAME
!
! Function contract5_2
!
! USAGE
!
! amp = contract5_2(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 5-point rank 2 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract5_2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
integer :: l1, l2, l3, l4, l5
integer, dimension(5) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 5)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
l5 = unpinched(5)
amp = coeffs%c0 * a50(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a51(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a51(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a51(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a51(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_a_tensor_2(coeffs, mom1) * a51(l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a52(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a52(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a52(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a52(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_2(coeffs, mom2) * a52(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_a_tensor_2(coeffs, mom2) * a52(l5, l5, b_set)
amp = amp + contract_b_tensor_2(coeffs) * b52(b_set)
end function contract5_2
!****f* src/interface/tens_comb/contract5_3
! NAME
!
! Function contract5_3
!
! USAGE
!
! amp = contract5_3(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 5-point rank 3 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract5_3(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
integer :: l1, l2, l3, l4, l5
integer, dimension(5) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 5)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
l5 = unpinched(5)
amp = coeffs%c0 * a50(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a51(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a51(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a51(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a51(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_a_tensor_3(coeffs, mom1) * a51(l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a52(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a52(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a52(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a52(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_3(coeffs, mom2) * a52(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_a_tensor_3(coeffs, mom2) * a52(l5, l5, b_set)
amp = amp + contract_b_tensor_3(coeffs) * b52(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a53(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l1, l4, b_set)
mom3 = momenta((/l1,l1,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l1, l5, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l2, l4, b_set)
mom3 = momenta((/l1,l2,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l2, l5, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l3, l4, b_set)
mom3 = momenta((/l1,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l3, l5, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l4, l4, b_set)
mom3 = momenta((/l1,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l4, l5, b_set)
mom3 = momenta((/l1,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l1, l5, l5, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a53(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l2, l4, b_set)
mom3 = momenta((/l2,l2,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l2, l5, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l3, l4, b_set)
mom3 = momenta((/l2,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l3, l5, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l4, l4, b_set)
mom3 = momenta((/l2,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l4, l5, b_set)
mom3 = momenta((/l2,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l2, l5, l5, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a53(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l3, l3, l4, b_set)
mom3 = momenta((/l3,l3,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l3, l3, l5, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l3, l4, l4, b_set)
mom3 = momenta((/l3,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l3, l4, l5, b_set)
mom3 = momenta((/l3,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l3, l5, l5, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a53(l4, l4, l4, b_set)
mom3 = momenta((/l4,l4,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l4, l4, l5, b_set)
mom3 = momenta((/l4,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_3(coeffs, mom3) &
& * a53(l4, l5, l5, b_set)
mom3 = momenta((/l5,l5,l5/),:)
amp = amp + contract_a_tensor_3(coeffs, mom3) * a53(l5, l5, l5, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b53(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b53(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b53(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b53(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_b_tensor_3(coeffs, mom1) * b53(l5, b_set)
end function contract5_3
!****f* src/interface/tens_comb/contract5_4
! NAME
!
! Function contract5_4
!
! USAGE
!
! amp = contract5_4(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 5-point rank 4 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract5_4(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
real(ki), dimension(4,0:3) :: mom4
integer :: l1, l2, l3, l4, l5
integer, dimension(5) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 5)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
l5 = unpinched(5)
amp = coeffs%c0 * a50(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a51(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a51(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a51(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a51(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_a_tensor_4(coeffs, mom1) * a51(l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a52(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a52(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a52(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a52(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_4(coeffs, mom2) * a52(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_a_tensor_4(coeffs, mom2) * a52(l5, l5, b_set)
amp = amp + contract_b_tensor_4(coeffs) * b52(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a53(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l1, l4, b_set)
mom3 = momenta((/l1,l1,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l1, l5, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l2, l4, b_set)
mom3 = momenta((/l1,l2,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l2, l5, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l3, l4, b_set)
mom3 = momenta((/l1,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l3, l5, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l4, l4, b_set)
mom3 = momenta((/l1,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l4, l5, b_set)
mom3 = momenta((/l1,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l1, l5, l5, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a53(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l2, l4, b_set)
mom3 = momenta((/l2,l2,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l2, l5, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l3, l4, b_set)
mom3 = momenta((/l2,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l3, l5, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l4, l4, b_set)
mom3 = momenta((/l2,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l4, l5, b_set)
mom3 = momenta((/l2,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l2, l5, l5, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a53(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l3, l3, l4, b_set)
mom3 = momenta((/l3,l3,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l3, l3, l5, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l3, l4, l4, b_set)
mom3 = momenta((/l3,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l3, l4, l5, b_set)
mom3 = momenta((/l3,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l3, l5, l5, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a53(l4, l4, l4, b_set)
mom3 = momenta((/l4,l4,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l4, l4, l5, b_set)
mom3 = momenta((/l4,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_4(coeffs, mom3) &
& * a53(l4, l5, l5, b_set)
mom3 = momenta((/l5,l5,l5/),:)
amp = amp + contract_a_tensor_4(coeffs, mom3) * a53(l5, l5, l5, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b53(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b53(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b53(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b53(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_b_tensor_4(coeffs, mom1) * b53(l5, b_set)
mom4 = momenta((/l1,l1,l1,l1/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a54(l1, l1, l1, l1, b_set)
mom4 = momenta((/l1,l1,l1,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l1, l2, b_set)
mom4 = momenta((/l1,l1,l1,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l1, l3, b_set)
mom4 = momenta((/l1,l1,l1,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l1, l4, b_set)
mom4 = momenta((/l1,l1,l1,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l1, l5, b_set)
mom4 = momenta((/l1,l1,l2,l2/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l2, l2, b_set)
mom4 = momenta((/l1,l1,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l2, l3, b_set)
mom4 = momenta((/l1,l1,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l2, l4, b_set)
mom4 = momenta((/l1,l1,l2,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l2, l5, b_set)
mom4 = momenta((/l1,l1,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l3, l3, b_set)
mom4 = momenta((/l1,l1,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l3, l4, b_set)
mom4 = momenta((/l1,l1,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l3, l5, b_set)
mom4 = momenta((/l1,l1,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l4, l4, b_set)
mom4 = momenta((/l1,l1,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l4, l5, b_set)
mom4 = momenta((/l1,l1,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l1, l5, l5, b_set)
mom4 = momenta((/l1,l2,l2,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l2, l2, b_set)
mom4 = momenta((/l1,l2,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l2, l3, b_set)
mom4 = momenta((/l1,l2,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l2, l4, b_set)
mom4 = momenta((/l1,l2,l2,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l2, l5, b_set)
mom4 = momenta((/l1,l2,l3,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l3, l3, b_set)
mom4 = momenta((/l1,l2,l3,l4/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l3, l4, b_set)
mom4 = momenta((/l1,l2,l3,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l3, l5, b_set)
mom4 = momenta((/l1,l2,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l4, l4, b_set)
mom4 = momenta((/l1,l2,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l4, l5, b_set)
mom4 = momenta((/l1,l2,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l2, l5, l5, b_set)
mom4 = momenta((/l1,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l3, l3, b_set)
mom4 = momenta((/l1,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l3, l4, b_set)
mom4 = momenta((/l1,l3,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l3, l5, b_set)
mom4 = momenta((/l1,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l4, l4, b_set)
mom4 = momenta((/l1,l3,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l4, l5, b_set)
mom4 = momenta((/l1,l3,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l3, l5, l5, b_set)
mom4 = momenta((/l1,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l4, l4, l4, b_set)
mom4 = momenta((/l1,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l4, l4, l5, b_set)
mom4 = momenta((/l1,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l4, l5, l5, b_set)
mom4 = momenta((/l1,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l1, l5, l5, l5, b_set)
mom4 = momenta((/l2,l2,l2,l2/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a54(l2, l2, l2, l2, b_set)
mom4 = momenta((/l2,l2,l2,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l2, l3, b_set)
mom4 = momenta((/l2,l2,l2,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l2, l4, b_set)
mom4 = momenta((/l2,l2,l2,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l2, l5, b_set)
mom4 = momenta((/l2,l2,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l3, l3, b_set)
mom4 = momenta((/l2,l2,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l3, l4, b_set)
mom4 = momenta((/l2,l2,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l3, l5, b_set)
mom4 = momenta((/l2,l2,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l4, l4, b_set)
mom4 = momenta((/l2,l2,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l4, l5, b_set)
mom4 = momenta((/l2,l2,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l2, l5, l5, b_set)
mom4 = momenta((/l2,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l3, l3, b_set)
mom4 = momenta((/l2,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l3, l4, b_set)
mom4 = momenta((/l2,l3,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l3, l5, b_set)
mom4 = momenta((/l2,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l4, l4, b_set)
mom4 = momenta((/l2,l3,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l4, l5, b_set)
mom4 = momenta((/l2,l3,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l3, l5, l5, b_set)
mom4 = momenta((/l2,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l4, l4, l4, b_set)
mom4 = momenta((/l2,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l4, l4, l5, b_set)
mom4 = momenta((/l2,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l4, l5, l5, b_set)
mom4 = momenta((/l2,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l2, l5, l5, l5, b_set)
mom4 = momenta((/l3,l3,l3,l3/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a54(l3, l3, l3, l3, b_set)
mom4 = momenta((/l3,l3,l3,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l3, l3, l4, b_set)
mom4 = momenta((/l3,l3,l3,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l3, l3, l5, b_set)
mom4 = momenta((/l3,l3,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l3, l4, l4, b_set)
mom4 = momenta((/l3,l3,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l3, l4, l5, b_set)
mom4 = momenta((/l3,l3,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l3, l5, l5, b_set)
mom4 = momenta((/l3,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l4, l4, l4, b_set)
mom4 = momenta((/l3,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l4, l4, l5, b_set)
mom4 = momenta((/l3,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l4, l5, l5, b_set)
mom4 = momenta((/l3,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l3, l5, l5, l5, b_set)
mom4 = momenta((/l4,l4,l4,l4/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a54(l4, l4, l4, l4, b_set)
mom4 = momenta((/l4,l4,l4,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l4, l4, l4, l5, b_set)
mom4 = momenta((/l4,l4,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l4, l4, l5, l5, b_set)
mom4 = momenta((/l4,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_4(coeffs, mom4) &
& * a54(l4, l5, l5, l5, b_set)
mom4 = momenta((/l5,l5,l5,l5/),:)
amp = amp + contract_a_tensor_4(coeffs, mom4) * a54(l5, l5, l5, l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b54(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b54(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b54(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b54(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_4(coeffs, mom2) * b54(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_b_tensor_4(coeffs, mom2) * b54(l5, l5, b_set)
amp = amp + contract_c_tensor_4(coeffs) * c54(b_set)
end function contract5_4
!****f* src/interface/tens_comb/contract5_5
! NAME
!
! Function contract5_5
!
! USAGE
!
! amp = contract5_5(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 5-point rank 5 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_5)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract5_5(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_5), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_simple
real(ki), dimension(1,0:3) :: mom1
real(ki), dimension(2,0:3) :: mom2
real(ki), dimension(3,0:3) :: mom3
real(ki), dimension(4,0:3) :: mom4
real(ki), dimension(5,0:3) :: mom5
integer :: l1, l2, l3, l4, l5
integer, dimension(5) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 5)
l1 = unpinched(1)
l2 = unpinched(2)
l3 = unpinched(3)
l4 = unpinched(4)
l5 = unpinched(5)
amp = coeffs%c0 * a50(b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_a_tensor_5(coeffs, mom1) * a51(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_a_tensor_5(coeffs, mom1) * a51(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_a_tensor_5(coeffs, mom1) * a51(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_a_tensor_5(coeffs, mom1) * a51(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_a_tensor_5(coeffs, mom1) * a51(l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_a_tensor_5(coeffs, mom2) * a52(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_a_tensor_5(coeffs, mom2) * a52(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_a_tensor_5(coeffs, mom2) * a52(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_a_tensor_5(coeffs, mom2) * a52(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_a_tensor_5(coeffs, mom2) * a52(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_a_tensor_5(coeffs, mom2) * a52(l5, l5, b_set)
amp = amp + contract_b_tensor_5(coeffs) * b52(b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_a_tensor_5(coeffs, mom3) * a53(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l1, l4, b_set)
mom3 = momenta((/l1,l1,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l1, l5, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l2, l4, b_set)
mom3 = momenta((/l1,l2,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l2, l5, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l3, l4, b_set)
mom3 = momenta((/l1,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l3, l5, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l4, l4, b_set)
mom3 = momenta((/l1,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l4, l5, b_set)
mom3 = momenta((/l1,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l1, l5, l5, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_a_tensor_5(coeffs, mom3) * a53(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l2, l4, b_set)
mom3 = momenta((/l2,l2,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l2, l5, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l3, l4, b_set)
mom3 = momenta((/l2,l3,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l3, l5, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l4, l4, b_set)
mom3 = momenta((/l2,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l4, l5, b_set)
mom3 = momenta((/l2,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l2, l5, l5, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_a_tensor_5(coeffs, mom3) * a53(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l3, l3, l4, b_set)
mom3 = momenta((/l3,l3,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l3, l3, l5, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l3, l4, l4, b_set)
mom3 = momenta((/l3,l4,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l3, l4, l5, b_set)
mom3 = momenta((/l3,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l3, l5, l5, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_a_tensor_5(coeffs, mom3) * a53(l4, l4, l4, b_set)
mom3 = momenta((/l4,l4,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l4, l4, l5, b_set)
mom3 = momenta((/l4,l5,l5/),:)
amp = amp + 3.0_ki * contract_a_tensor_5(coeffs, mom3) &
& * a53(l4, l5, l5, b_set)
mom3 = momenta((/l5,l5,l5/),:)
amp = amp + contract_a_tensor_5(coeffs, mom3) * a53(l5, l5, l5, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_b_tensor_5(coeffs, mom1) * b53(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_b_tensor_5(coeffs, mom1) * b53(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_b_tensor_5(coeffs, mom1) * b53(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_b_tensor_5(coeffs, mom1) * b53(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_b_tensor_5(coeffs, mom1) * b53(l5, b_set)
mom4 = momenta((/l1,l1,l1,l1/),:)
amp = amp + contract_a_tensor_5(coeffs, mom4) * a54(l1, l1, l1, l1, b_set)
mom4 = momenta((/l1,l1,l1,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l1, l2, b_set)
mom4 = momenta((/l1,l1,l1,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l1, l3, b_set)
mom4 = momenta((/l1,l1,l1,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l1, l4, b_set)
mom4 = momenta((/l1,l1,l1,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l1, l5, b_set)
mom4 = momenta((/l1,l1,l2,l2/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l2, l2, b_set)
mom4 = momenta((/l1,l1,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l2, l3, b_set)
mom4 = momenta((/l1,l1,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l2, l4, b_set)
mom4 = momenta((/l1,l1,l2,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l2, l5, b_set)
mom4 = momenta((/l1,l1,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l3, l3, b_set)
mom4 = momenta((/l1,l1,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l3, l4, b_set)
mom4 = momenta((/l1,l1,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l3, l5, b_set)
mom4 = momenta((/l1,l1,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l4, l4, b_set)
mom4 = momenta((/l1,l1,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l4, l5, b_set)
mom4 = momenta((/l1,l1,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l1, l5, l5, b_set)
mom4 = momenta((/l1,l2,l2,l2/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l2, l2, b_set)
mom4 = momenta((/l1,l2,l2,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l2, l3, b_set)
mom4 = momenta((/l1,l2,l2,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l2, l4, b_set)
mom4 = momenta((/l1,l2,l2,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l2, l5, b_set)
mom4 = momenta((/l1,l2,l3,l3/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l3, l3, b_set)
mom4 = momenta((/l1,l2,l3,l4/),:)
amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l3, l4, b_set)
mom4 = momenta((/l1,l2,l3,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l3, l5, b_set)
mom4 = momenta((/l1,l2,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l4, l4, b_set)
mom4 = momenta((/l1,l2,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l4, l5, b_set)
mom4 = momenta((/l1,l2,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l2, l5, l5, b_set)
mom4 = momenta((/l1,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l3, l3, b_set)
mom4 = momenta((/l1,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l3, l4, b_set)
mom4 = momenta((/l1,l3,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l3, l5, b_set)
mom4 = momenta((/l1,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l4, l4, b_set)
mom4 = momenta((/l1,l3,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l4, l5, b_set)
mom4 = momenta((/l1,l3,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l3, l5, l5, b_set)
mom4 = momenta((/l1,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l4, l4, l4, b_set)
mom4 = momenta((/l1,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l4, l4, l5, b_set)
mom4 = momenta((/l1,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l4, l5, l5, b_set)
mom4 = momenta((/l1,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l1, l5, l5, l5, b_set)
mom4 = momenta((/l2,l2,l2,l2/),:)
amp = amp + contract_a_tensor_5(coeffs, mom4) * a54(l2, l2, l2, l2, b_set)
mom4 = momenta((/l2,l2,l2,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l2, l3, b_set)
mom4 = momenta((/l2,l2,l2,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l2, l4, b_set)
mom4 = momenta((/l2,l2,l2,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l2, l5, b_set)
mom4 = momenta((/l2,l2,l3,l3/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l3, l3, b_set)
mom4 = momenta((/l2,l2,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l3, l4, b_set)
mom4 = momenta((/l2,l2,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l3, l5, b_set)
mom4 = momenta((/l2,l2,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l4, l4, b_set)
mom4 = momenta((/l2,l2,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l4, l5, b_set)
mom4 = momenta((/l2,l2,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l2, l5, l5, b_set)
mom4 = momenta((/l2,l3,l3,l3/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l3, l3, b_set)
mom4 = momenta((/l2,l3,l3,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l3, l4, b_set)
mom4 = momenta((/l2,l3,l3,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l3, l5, b_set)
mom4 = momenta((/l2,l3,l4,l4/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l4, l4, b_set)
mom4 = momenta((/l2,l3,l4,l5/),:)
amp = amp + 24.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l4, l5, b_set)
mom4 = momenta((/l2,l3,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l3, l5, l5, b_set)
mom4 = momenta((/l2,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l4, l4, l4, b_set)
mom4 = momenta((/l2,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l4, l4, l5, b_set)
mom4 = momenta((/l2,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l4, l5, l5, b_set)
mom4 = momenta((/l2,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l2, l5, l5, l5, b_set)
mom4 = momenta((/l3,l3,l3,l3/),:)
amp = amp + contract_a_tensor_5(coeffs, mom4) * a54(l3, l3, l3, l3, b_set)
mom4 = momenta((/l3,l3,l3,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l3, l3, l4, b_set)
mom4 = momenta((/l3,l3,l3,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l3, l3, l5, b_set)
mom4 = momenta((/l3,l3,l4,l4/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l3, l4, l4, b_set)
mom4 = momenta((/l3,l3,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l3, l4, l5, b_set)
mom4 = momenta((/l3,l3,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l3, l5, l5, b_set)
mom4 = momenta((/l3,l4,l4,l4/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l4, l4, l4, b_set)
mom4 = momenta((/l3,l4,l4,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l4, l4, l5, b_set)
mom4 = momenta((/l3,l4,l5,l5/),:)
amp = amp + 12.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l4, l5, l5, b_set)
mom4 = momenta((/l3,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l3, l5, l5, l5, b_set)
mom4 = momenta((/l4,l4,l4,l4/),:)
amp = amp + contract_a_tensor_5(coeffs, mom4) * a54(l4, l4, l4, l4, b_set)
mom4 = momenta((/l4,l4,l4,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l4, l4, l4, l5, b_set)
mom4 = momenta((/l4,l4,l5,l5/),:)
amp = amp + 6.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l4, l4, l5, l5, b_set)
mom4 = momenta((/l4,l5,l5,l5/),:)
amp = amp + 4.0_ki * contract_a_tensor_5(coeffs, mom4) &
& * a54(l4, l5, l5, l5, b_set)
mom4 = momenta((/l5,l5,l5,l5/),:)
amp = amp + contract_a_tensor_5(coeffs, mom4) * a54(l5, l5, l5, l5, b_set)
mom2 = momenta((/l1,l1/),:)
amp = amp + contract_b_tensor_5(coeffs, mom2) * b54(l1, l1, b_set)
mom2 = momenta((/l1,l2/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l1, l2, b_set)
mom2 = momenta((/l1,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l1, l3, b_set)
mom2 = momenta((/l1,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l1, l4, b_set)
mom2 = momenta((/l1,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l1, l5, b_set)
mom2 = momenta((/l2,l2/),:)
amp = amp + contract_b_tensor_5(coeffs, mom2) * b54(l2, l2, b_set)
mom2 = momenta((/l2,l3/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l2, l3, b_set)
mom2 = momenta((/l2,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l2, l4, b_set)
mom2 = momenta((/l2,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l2, l5, b_set)
mom2 = momenta((/l3,l3/),:)
amp = amp + contract_b_tensor_5(coeffs, mom2) * b54(l3, l3, b_set)
mom2 = momenta((/l3,l4/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l3, l4, b_set)
mom2 = momenta((/l3,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l3, l5, b_set)
mom2 = momenta((/l4,l4/),:)
amp = amp + contract_b_tensor_5(coeffs, mom2) * b54(l4, l4, b_set)
mom2 = momenta((/l4,l5/),:)
amp = amp + 2.0_ki * contract_b_tensor_5(coeffs, mom2) * b54(l4, l5, b_set)
mom2 = momenta((/l5,l5/),:)
amp = amp + contract_b_tensor_5(coeffs, mom2) * b54(l5, l5, b_set)
amp = amp + contract_c_tensor_5(coeffs) * c54(b_set)
mom5 = momenta((/l1,l1,l1,l1,l1/),:)
amp = amp + contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l1, l1, b_set)
mom5 = momenta((/l1,l1,l1,l1,l2/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l1, l2, b_set)
mom5 = momenta((/l1,l1,l1,l1,l3/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l1, l3, b_set)
mom5 = momenta((/l1,l1,l1,l1,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l1, l4, b_set)
mom5 = momenta((/l1,l1,l1,l1,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l1, l5, b_set)
mom5 = momenta((/l1,l1,l1,l2,l2/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l2, l2, b_set)
mom5 = momenta((/l1,l1,l1,l2,l3/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l2, l3, b_set)
mom5 = momenta((/l1,l1,l1,l2,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l2, l4, b_set)
mom5 = momenta((/l1,l1,l1,l2,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l2, l5, b_set)
mom5 = momenta((/l1,l1,l1,l3,l3/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l3, l3, b_set)
mom5 = momenta((/l1,l1,l1,l3,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l3, l4, b_set)
mom5 = momenta((/l1,l1,l1,l3,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l3, l5, b_set)
mom5 = momenta((/l1,l1,l1,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l4, l4, b_set)
mom5 = momenta((/l1,l1,l1,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l4, l5, b_set)
mom5 = momenta((/l1,l1,l1,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l1, l5, l5, b_set)
mom5 = momenta((/l1,l1,l2,l2,l2/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l2, l2, b_set)
mom5 = momenta((/l1,l1,l2,l2,l3/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l2, l3, b_set)
mom5 = momenta((/l1,l1,l2,l2,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l2, l4, b_set)
mom5 = momenta((/l1,l1,l2,l2,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l2, l5, b_set)
mom5 = momenta((/l1,l1,l2,l3,l3/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l3, l3, b_set)
mom5 = momenta((/l1,l1,l2,l3,l4/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l3, l4, b_set)
mom5 = momenta((/l1,l1,l2,l3,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l3, l5, b_set)
mom5 = momenta((/l1,l1,l2,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l4, l4, b_set)
mom5 = momenta((/l1,l1,l2,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l4, l5, b_set)
mom5 = momenta((/l1,l1,l2,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l2, l5, l5, b_set)
mom5 = momenta((/l1,l1,l3,l3,l3/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l3, l3, b_set)
mom5 = momenta((/l1,l1,l3,l3,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l3, l4, b_set)
mom5 = momenta((/l1,l1,l3,l3,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l3, l5, b_set)
mom5 = momenta((/l1,l1,l3,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l4, l4, b_set)
mom5 = momenta((/l1,l1,l3,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l4, l5, b_set)
mom5 = momenta((/l1,l1,l3,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l3, l5, l5, b_set)
mom5 = momenta((/l1,l1,l4,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l4, l4, l4, b_set)
mom5 = momenta((/l1,l1,l4,l4,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l4, l4, l5, b_set)
mom5 = momenta((/l1,l1,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l4, l5, l5, b_set)
mom5 = momenta((/l1,l1,l5,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l1, l5, l5, l5, b_set)
mom5 = momenta((/l1,l2,l2,l2,l2/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l2, l2, b_set)
mom5 = momenta((/l1,l2,l2,l2,l3/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l2, l3, b_set)
mom5 = momenta((/l1,l2,l2,l2,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l2, l4, b_set)
mom5 = momenta((/l1,l2,l2,l2,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l2, l5, b_set)
mom5 = momenta((/l1,l2,l2,l3,l3/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l3, l3, b_set)
mom5 = momenta((/l1,l2,l2,l3,l4/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l3, l4, b_set)
mom5 = momenta((/l1,l2,l2,l3,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l3, l5, b_set)
mom5 = momenta((/l1,l2,l2,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l4, l4, b_set)
mom5 = momenta((/l1,l2,l2,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l4, l5, b_set)
mom5 = momenta((/l1,l2,l2,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l2, l5, l5, b_set)
mom5 = momenta((/l1,l2,l3,l3,l3/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l3, l3, b_set)
mom5 = momenta((/l1,l2,l3,l3,l4/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l3, l4, b_set)
mom5 = momenta((/l1,l2,l3,l3,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l3, l5, b_set)
mom5 = momenta((/l1,l2,l3,l4,l4/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l4, l4, b_set)
mom5 = momenta((/l1,l2,l3,l4,l5/),:)
amp = amp + 120.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l4, l5, b_set)
mom5 = momenta((/l1,l2,l3,l5,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l3, l5, l5, b_set)
mom5 = momenta((/l1,l2,l4,l4,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l4, l4, l4, b_set)
mom5 = momenta((/l1,l2,l4,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l4, l4, l5, b_set)
mom5 = momenta((/l1,l2,l4,l5,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l4, l5, l5, b_set)
mom5 = momenta((/l1,l2,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l2, l5, l5, l5, b_set)
mom5 = momenta((/l1,l3,l3,l3,l3/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l3, l3, b_set)
mom5 = momenta((/l1,l3,l3,l3,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l3, l4, b_set)
mom5 = momenta((/l1,l3,l3,l3,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l3, l5, b_set)
mom5 = momenta((/l1,l3,l3,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l4, l4, b_set)
mom5 = momenta((/l1,l3,l3,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l4, l5, b_set)
mom5 = momenta((/l1,l3,l3,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l3, l5, l5, b_set)
mom5 = momenta((/l1,l3,l4,l4,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l4, l4, l4, b_set)
mom5 = momenta((/l1,l3,l4,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l4, l4, l5, b_set)
mom5 = momenta((/l1,l3,l4,l5,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l4, l5, l5, b_set)
mom5 = momenta((/l1,l3,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l3, l5, l5, l5, b_set)
mom5 = momenta((/l1,l4,l4,l4,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l4, l4, l4, l4, b_set)
mom5 = momenta((/l1,l4,l4,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l4, l4, l4, l5, b_set)
mom5 = momenta((/l1,l4,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l4, l4, l5, l5, b_set)
mom5 = momenta((/l1,l4,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l4, l5, l5, l5, b_set)
mom5 = momenta((/l1,l5,l5,l5,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l1, l5, l5, l5, l5, b_set)
mom5 = momenta((/l2,l2,l2,l2,l2/),:)
amp = amp + contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l2, l2, b_set)
mom5 = momenta((/l2,l2,l2,l2,l3/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l2, l3, b_set)
mom5 = momenta((/l2,l2,l2,l2,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l2, l4, b_set)
mom5 = momenta((/l2,l2,l2,l2,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l2, l5, b_set)
mom5 = momenta((/l2,l2,l2,l3,l3/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l3, l3, b_set)
mom5 = momenta((/l2,l2,l2,l3,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l3, l4, b_set)
mom5 = momenta((/l2,l2,l2,l3,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l3, l5, b_set)
mom5 = momenta((/l2,l2,l2,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l4, l4, b_set)
mom5 = momenta((/l2,l2,l2,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l4, l5, b_set)
mom5 = momenta((/l2,l2,l2,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l2, l5, l5, b_set)
mom5 = momenta((/l2,l2,l3,l3,l3/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l3, l3, b_set)
mom5 = momenta((/l2,l2,l3,l3,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l3, l4, b_set)
mom5 = momenta((/l2,l2,l3,l3,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l3, l5, b_set)
mom5 = momenta((/l2,l2,l3,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l4, l4, b_set)
mom5 = momenta((/l2,l2,l3,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l4, l5, b_set)
mom5 = momenta((/l2,l2,l3,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l3, l5, l5, b_set)
mom5 = momenta((/l2,l2,l4,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l4, l4, l4, b_set)
mom5 = momenta((/l2,l2,l4,l4,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l4, l4, l5, b_set)
mom5 = momenta((/l2,l2,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l4, l5, l5, b_set)
mom5 = momenta((/l2,l2,l5,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l2, l5, l5, l5, b_set)
mom5 = momenta((/l2,l3,l3,l3,l3/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l3, l3, b_set)
mom5 = momenta((/l2,l3,l3,l3,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l3, l4, b_set)
mom5 = momenta((/l2,l3,l3,l3,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l3, l5, b_set)
mom5 = momenta((/l2,l3,l3,l4,l4/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l4, l4, b_set)
mom5 = momenta((/l2,l3,l3,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l4, l5, b_set)
mom5 = momenta((/l2,l3,l3,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l3, l5, l5, b_set)
mom5 = momenta((/l2,l3,l4,l4,l4/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l4, l4, l4, b_set)
mom5 = momenta((/l2,l3,l4,l4,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l4, l4, l5, b_set)
mom5 = momenta((/l2,l3,l4,l5,l5/),:)
amp = amp + 60.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l4, l5, l5, b_set)
mom5 = momenta((/l2,l3,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l3, l5, l5, l5, b_set)
mom5 = momenta((/l2,l4,l4,l4,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l4, l4, l4, l4, b_set)
mom5 = momenta((/l2,l4,l4,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l4, l4, l4, l5, b_set)
mom5 = momenta((/l2,l4,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l4, l4, l5, l5, b_set)
mom5 = momenta((/l2,l4,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l4, l5, l5, l5, b_set)
mom5 = momenta((/l2,l5,l5,l5,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l2, l5, l5, l5, l5, b_set)
mom5 = momenta((/l3,l3,l3,l3,l3/),:)
amp = amp + contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l3, l3, b_set)
mom5 = momenta((/l3,l3,l3,l3,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l3, l4, b_set)
mom5 = momenta((/l3,l3,l3,l3,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l3, l5, b_set)
mom5 = momenta((/l3,l3,l3,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l4, l4, b_set)
mom5 = momenta((/l3,l3,l3,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l4, l5, b_set)
mom5 = momenta((/l3,l3,l3,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l3, l5, l5, b_set)
mom5 = momenta((/l3,l3,l4,l4,l4/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l4, l4, l4, b_set)
mom5 = momenta((/l3,l3,l4,l4,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l4, l4, l5, b_set)
mom5 = momenta((/l3,l3,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l4, l5, l5, b_set)
mom5 = momenta((/l3,l3,l5,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l3, l5, l5, l5, b_set)
mom5 = momenta((/l3,l4,l4,l4,l4/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l4, l4, l4, l4, b_set)
mom5 = momenta((/l3,l4,l4,l4,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l4, l4, l4, l5, b_set)
mom5 = momenta((/l3,l4,l4,l5,l5/),:)
amp = amp + 30.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l4, l4, l5, l5, b_set)
mom5 = momenta((/l3,l4,l5,l5,l5/),:)
amp = amp + 20.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l4, l5, l5, l5, b_set)
mom5 = momenta((/l3,l5,l5,l5,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l3, l5, l5, l5, l5, b_set)
mom5 = momenta((/l4,l4,l4,l4,l4/),:)
amp = amp + contract_a_tensor_5(coeffs, mom5) &
& * a55(l4, l4, l4, l4, l4, b_set)
mom5 = momenta((/l4,l4,l4,l4,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l4, l4, l4, l4, l5, b_set)
mom5 = momenta((/l4,l4,l4,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l4, l4, l4, l5, l5, b_set)
mom5 = momenta((/l4,l4,l5,l5,l5/),:)
amp = amp + 10.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l4, l4, l5, l5, l5, b_set)
mom5 = momenta((/l4,l5,l5,l5,l5/),:)
amp = amp + 5.0_ki * contract_a_tensor_5(coeffs, mom5) &
& * a55(l4, l5, l5, l5, l5, b_set)
mom5 = momenta((/l5,l5,l5,l5,l5/),:)
amp = amp + contract_a_tensor_5(coeffs, mom5) &
& * a55(l5, l5, l5, l5, l5, b_set)
mom3 = momenta((/l1,l1,l1/),:)
amp = amp + contract_b_tensor_5(coeffs, mom3) * b55(l1, l1, l1, b_set)
mom3 = momenta((/l1,l1,l2/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l1, l2, b_set)
mom3 = momenta((/l1,l1,l3/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l1, l3, b_set)
mom3 = momenta((/l1,l1,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l1, l4, b_set)
mom3 = momenta((/l1,l1,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l1, l5, b_set)
mom3 = momenta((/l1,l2,l2/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l2, l2, b_set)
mom3 = momenta((/l1,l2,l3/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l2, l3, b_set)
mom3 = momenta((/l1,l2,l4/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l2, l4, b_set)
mom3 = momenta((/l1,l2,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l2, l5, b_set)
mom3 = momenta((/l1,l3,l3/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l3, l3, b_set)
mom3 = momenta((/l1,l3,l4/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l3, l4, b_set)
mom3 = momenta((/l1,l3,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l3, l5, b_set)
mom3 = momenta((/l1,l4,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l4, l4, b_set)
mom3 = momenta((/l1,l4,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l4, l5, b_set)
mom3 = momenta((/l1,l5,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l1, l5, l5, b_set)
mom3 = momenta((/l2,l2,l2/),:)
amp = amp + contract_b_tensor_5(coeffs, mom3) * b55(l2, l2, l2, b_set)
mom3 = momenta((/l2,l2,l3/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l2, l3, b_set)
mom3 = momenta((/l2,l2,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l2, l4, b_set)
mom3 = momenta((/l2,l2,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l2, l5, b_set)
mom3 = momenta((/l2,l3,l3/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l3, l3, b_set)
mom3 = momenta((/l2,l3,l4/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l3, l4, b_set)
mom3 = momenta((/l2,l3,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l3, l5, b_set)
mom3 = momenta((/l2,l4,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l4, l4, b_set)
mom3 = momenta((/l2,l4,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l4, l5, b_set)
mom3 = momenta((/l2,l5,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l2, l5, l5, b_set)
mom3 = momenta((/l3,l3,l3/),:)
amp = amp + contract_b_tensor_5(coeffs, mom3) * b55(l3, l3, l3, b_set)
mom3 = momenta((/l3,l3,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l3, l3, l4, b_set)
mom3 = momenta((/l3,l3,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l3, l3, l5, b_set)
mom3 = momenta((/l3,l4,l4/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l3, l4, l4, b_set)
mom3 = momenta((/l3,l4,l5/),:)
amp = amp + 6.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l3, l4, l5, b_set)
mom3 = momenta((/l3,l5,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l3, l5, l5, b_set)
mom3 = momenta((/l4,l4,l4/),:)
amp = amp + contract_b_tensor_5(coeffs, mom3) * b55(l4, l4, l4, b_set)
mom3 = momenta((/l4,l4,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l4, l4, l5, b_set)
mom3 = momenta((/l4,l5,l5/),:)
amp = amp + 3.0_ki * contract_b_tensor_5(coeffs, mom3) &
& * b55(l4, l5, l5, b_set)
mom3 = momenta((/l5,l5,l5/),:)
amp = amp + contract_b_tensor_5(coeffs, mom3) * b55(l5, l5, l5, b_set)
mom1 = momenta((/l1/),:)
amp = amp + contract_c_tensor_5(coeffs, mom1) * c55(l1, b_set)
mom1 = momenta((/l2/),:)
amp = amp + contract_c_tensor_5(coeffs, mom1) * c55(l2, b_set)
mom1 = momenta((/l3/),:)
amp = amp + contract_c_tensor_5(coeffs, mom1) * c55(l3, b_set)
mom1 = momenta((/l4/),:)
amp = amp + contract_c_tensor_5(coeffs, mom1) * c55(l4, b_set)
mom1 = momenta((/l5/),:)
amp = amp + contract_c_tensor_5(coeffs, mom1) * c55(l5, b_set)
end function contract5_5
!****f* src/interface/tens_comb/contract6_1
! NAME
!
! Function contract6_1
!
! USAGE
!
! amp = contract6_1(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 1 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_1(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
complex(ki) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime = cprime + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime = cprime + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime = cprime + C(3) * coeffs%c1(4, 1)
amp = amp - cprime * a50(new_set)
end do
end function contract6_1
!****f* src/interface/tens_comb/contract6_2
! NAME
!
! Function contract6_2
!
! USAGE
!
! amp = contract6_2(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 2 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_2(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
type(coeff_type_1) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime%c0 = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime%c0 = cprime%c0 + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime%c0 = cprime%c0 + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime%c0 = cprime%c0 + C(3) * coeffs%c1(4, 1)
! [0] <-- [0, 0]
cprime%c1(1,1) = C(0) * coeffs%c1(1, 2)
! [1] <-- [1, 1]
cprime%c1(2,1) = C(1) * coeffs%c1(2, 2)
! [2] <-- [2, 2]
cprime%c1(3,1) = C(2) * coeffs%c1(3, 2)
! [3] <-- [3, 3]
cprime%c1(4,1) = C(3) * coeffs%c1(4, 2)
! [1] <-- [0, 1]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(0) * coeffs%c2(1, 1)
! [0] <-- [0, 1]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(1) * coeffs%c2(1, 1)
! [2] <-- [0, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(0) * coeffs%c2(2, 1)
! [0] <-- [0, 2]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(2) * coeffs%c2(2, 1)
! [3] <-- [0, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(0) * coeffs%c2(3, 1)
! [0] <-- [0, 3]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(3) * coeffs%c2(3, 1)
! [2] <-- [1, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(1) * coeffs%c2(4, 1)
! [1] <-- [1, 2]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(2) * coeffs%c2(4, 1)
! [3] <-- [1, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(1) * coeffs%c2(5, 1)
! [1] <-- [1, 3]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(3) * coeffs%c2(5, 1)
! [3] <-- [2, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(2) * coeffs%c2(6, 1)
! [2] <-- [2, 3]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(3) * coeffs%c2(6, 1)
amp = amp - contract5_1(cprime, momenta, new_set)
end do
end function contract6_2
!****f* src/interface/tens_comb/contract6_3
! NAME
!
! Function contract6_3
!
! USAGE
!
! amp = contract6_3(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 3 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_3(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
type(coeff_type_2) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime%c0 = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime%c0 = cprime%c0 + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime%c0 = cprime%c0 + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime%c0 = cprime%c0 + C(3) * coeffs%c1(4, 1)
! [0] <-- [0, 0]
cprime%c1(1,1) = C(0) * coeffs%c1(1, 2)
! [1] <-- [1, 1]
cprime%c1(2,1) = C(1) * coeffs%c1(2, 2)
! [2] <-- [2, 2]
cprime%c1(3,1) = C(2) * coeffs%c1(3, 2)
! [3] <-- [3, 3]
cprime%c1(4,1) = C(3) * coeffs%c1(4, 2)
! [1] <-- [0, 1]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(0) * coeffs%c2(1, 1)
! [0] <-- [0, 1]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(1) * coeffs%c2(1, 1)
! [2] <-- [0, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(0) * coeffs%c2(2, 1)
! [0] <-- [0, 2]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(2) * coeffs%c2(2, 1)
! [3] <-- [0, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(0) * coeffs%c2(3, 1)
! [0] <-- [0, 3]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(3) * coeffs%c2(3, 1)
! [2] <-- [1, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(1) * coeffs%c2(4, 1)
! [1] <-- [1, 2]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(2) * coeffs%c2(4, 1)
! [3] <-- [1, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(1) * coeffs%c2(5, 1)
! [1] <-- [1, 3]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(3) * coeffs%c2(5, 1)
! [3] <-- [2, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(2) * coeffs%c2(6, 1)
! [2] <-- [2, 3]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(3) * coeffs%c2(6, 1)
! [1, 1] <-- [0, 1, 1]
cprime%c1(2,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(1, 2)
! [0, 1] <-- [0, 1, 1]
cprime%c2(1,1) = 2.0_ki/3.0_ki * C(1) * coeffs%c2(1, 2)
! [2, 2] <-- [0, 2, 2]
cprime%c1(3,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(2, 2)
! [0, 2] <-- [0, 2, 2]
cprime%c2(2,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(2, 2)
! [3, 3] <-- [0, 3, 3]
cprime%c1(4,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(3, 2)
! [0, 3] <-- [0, 3, 3]
cprime%c2(3,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(3, 2)
! [2, 2] <-- [1, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(4, 2)
! [1, 2] <-- [1, 2, 2]
cprime%c2(4,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(4, 2)
! [3, 3] <-- [1, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(5, 2)
! [1, 3] <-- [1, 3, 3]
cprime%c2(5,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(5, 2)
! [3, 3] <-- [2, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(6, 2)
! [2, 3] <-- [2, 3, 3]
cprime%c2(6,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(6, 2)
! [1, 2] <-- [0, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 1)
! [0, 2] <-- [0, 1, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 1)
! [0, 1] <-- [0, 1, 2]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 1)
! [1, 3] <-- [0, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 1)
! [0, 3] <-- [0, 1, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 1)
! [0, 1] <-- [0, 1, 3]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 1)
! [2, 3] <-- [0, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 1)
! [0, 3] <-- [0, 2, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 1)
! [0, 2] <-- [0, 2, 3]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 1)
! [2, 3] <-- [1, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 1)
! [1, 3] <-- [1, 2, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 1)
! [1, 2] <-- [1, 2, 3]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 1)
! [0, 0] <-- [0, 0, 0]
cprime%c1(1,2) = C(0) * coeffs%c1(1, 3)
! [1, 1] <-- [1, 1, 1]
cprime%c1(2,2) = cprime%c1(2,2) + C(1) * coeffs%c1(2, 3)
! [2, 2] <-- [2, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + C(2) * coeffs%c1(3, 3)
! [3, 3] <-- [3, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + C(3) * coeffs%c1(4, 3)
! [0, 1] <-- [0, 0, 1]
cprime%c2(1,1) = cprime%c2(1,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(1, 3)
! [0, 0] <-- [0, 0, 1]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(1, 3)
! [0, 2] <-- [0, 0, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(2, 3)
! [0, 0] <-- [0, 0, 2]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(2, 3)
! [0, 3] <-- [0, 0, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(3, 3)
! [0, 0] <-- [0, 0, 3]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(3, 3)
! [1, 2] <-- [1, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(4, 3)
! [1, 1] <-- [1, 1, 2]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(4, 3)
! [1, 3] <-- [1, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(5, 3)
! [1, 1] <-- [1, 1, 3]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(5, 3)
! [2, 3] <-- [2, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(6, 3)
! [2, 2] <-- [2, 2, 3]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(6, 3)
amp = amp - contract5_2(cprime, momenta, new_set)
end do
end function contract6_3
!****f* src/interface/tens_comb/contract6_4
! NAME
!
! Function contract6_4
!
! USAGE
!
! amp = contract6_4(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 4 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_4(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
type(coeff_type_3) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime%c0 = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime%c0 = cprime%c0 + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime%c0 = cprime%c0 + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime%c0 = cprime%c0 + C(3) * coeffs%c1(4, 1)
! [0] <-- [0, 0]
cprime%c1(1,1) = C(0) * coeffs%c1(1, 2)
! [1] <-- [1, 1]
cprime%c1(2,1) = C(1) * coeffs%c1(2, 2)
! [2] <-- [2, 2]
cprime%c1(3,1) = C(2) * coeffs%c1(3, 2)
! [3] <-- [3, 3]
cprime%c1(4,1) = C(3) * coeffs%c1(4, 2)
! [1] <-- [0, 1]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(0) * coeffs%c2(1, 1)
! [0] <-- [0, 1]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(1) * coeffs%c2(1, 1)
! [2] <-- [0, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(0) * coeffs%c2(2, 1)
! [0] <-- [0, 2]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(2) * coeffs%c2(2, 1)
! [3] <-- [0, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(0) * coeffs%c2(3, 1)
! [0] <-- [0, 3]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(3) * coeffs%c2(3, 1)
! [2] <-- [1, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(1) * coeffs%c2(4, 1)
! [1] <-- [1, 2]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(2) * coeffs%c2(4, 1)
! [3] <-- [1, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(1) * coeffs%c2(5, 1)
! [1] <-- [1, 3]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(3) * coeffs%c2(5, 1)
! [3] <-- [2, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(2) * coeffs%c2(6, 1)
! [2] <-- [2, 3]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(3) * coeffs%c2(6, 1)
! [1, 1] <-- [0, 1, 1]
cprime%c1(2,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(1, 2)
! [0, 1] <-- [0, 1, 1]
cprime%c2(1,1) = 2.0_ki/3.0_ki * C(1) * coeffs%c2(1, 2)
! [2, 2] <-- [0, 2, 2]
cprime%c1(3,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(2, 2)
! [0, 2] <-- [0, 2, 2]
cprime%c2(2,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(2, 2)
! [3, 3] <-- [0, 3, 3]
cprime%c1(4,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(3, 2)
! [0, 3] <-- [0, 3, 3]
cprime%c2(3,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(3, 2)
! [2, 2] <-- [1, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(4, 2)
! [1, 2] <-- [1, 2, 2]
cprime%c2(4,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(4, 2)
! [3, 3] <-- [1, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(5, 2)
! [1, 3] <-- [1, 3, 3]
cprime%c2(5,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(5, 2)
! [3, 3] <-- [2, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(6, 2)
! [2, 3] <-- [2, 3, 3]
cprime%c2(6,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(6, 2)
! [1, 2] <-- [0, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 1)
! [0, 2] <-- [0, 1, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 1)
! [0, 1] <-- [0, 1, 2]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 1)
! [1, 3] <-- [0, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 1)
! [0, 3] <-- [0, 1, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 1)
! [0, 1] <-- [0, 1, 3]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 1)
! [2, 3] <-- [0, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 1)
! [0, 3] <-- [0, 2, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 1)
! [0, 2] <-- [0, 2, 3]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 1)
! [2, 3] <-- [1, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 1)
! [1, 3] <-- [1, 2, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 1)
! [1, 2] <-- [1, 2, 3]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 1)
! [0, 0] <-- [0, 0, 0]
cprime%c1(1,2) = C(0) * coeffs%c1(1, 3)
! [1, 1] <-- [1, 1, 1]
cprime%c1(2,2) = cprime%c1(2,2) + C(1) * coeffs%c1(2, 3)
! [2, 2] <-- [2, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + C(2) * coeffs%c1(3, 3)
! [3, 3] <-- [3, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + C(3) * coeffs%c1(4, 3)
! [0, 1] <-- [0, 0, 1]
cprime%c2(1,1) = cprime%c2(1,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(1, 4)
! [0, 0] <-- [0, 0, 1]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(1, 4)
! [0, 2] <-- [0, 0, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(2, 4)
! [0, 0] <-- [0, 0, 2]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(2, 4)
! [0, 3] <-- [0, 0, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(3, 4)
! [0, 0] <-- [0, 0, 3]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(3, 4)
! [1, 2] <-- [1, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(4, 4)
! [1, 1] <-- [1, 1, 2]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(4, 4)
! [1, 3] <-- [1, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(5, 4)
! [1, 1] <-- [1, 1, 3]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(5, 4)
! [2, 3] <-- [2, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(6, 4)
! [2, 2] <-- [2, 2, 3]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(6, 4)
! [1, 1, 2] <-- [0, 1, 1, 2]
cprime%c2(4,3) = 0.25_ki * C(0) * coeffs%c3(1, 3)
! [0, 1, 2] <-- [0, 1, 1, 2]
cprime%c3(1,1) = 0.5_ki * C(1) * coeffs%c3(1, 3)
! [0, 1, 1] <-- [0, 1, 1, 2]
cprime%c2(1,2) = 0.25_ki * C(2) * coeffs%c3(1, 3)
! [1, 1, 3] <-- [0, 1, 1, 3]
cprime%c2(5,3) = 0.25_ki * C(0) * coeffs%c3(2, 3)
! [0, 1, 3] <-- [0, 1, 1, 3]
cprime%c3(2,1) = 0.5_ki * C(1) * coeffs%c3(2, 3)
! [0, 1, 1] <-- [0, 1, 1, 3]
cprime%c2(1,2) = cprime%c2(1,2) + 0.25_ki * C(3) * coeffs%c3(2, 3)
! [2, 2, 3] <-- [0, 2, 2, 3]
cprime%c2(6,3) = 0.25_ki * C(0) * coeffs%c3(3, 3)
! [0, 2, 3] <-- [0, 2, 2, 3]
cprime%c3(3,1) = 0.5_ki * C(2) * coeffs%c3(3, 3)
! [0, 2, 2] <-- [0, 2, 2, 3]
cprime%c2(2,2) = 0.25_ki * C(3) * coeffs%c3(3, 3)
! [2, 2, 3] <-- [1, 2, 2, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 0.25_ki * C(1) * coeffs%c3(4, 3)
! [1, 2, 3] <-- [1, 2, 2, 3]
cprime%c3(4,1) = 0.5_ki * C(2) * coeffs%c3(4, 3)
! [1, 2, 2] <-- [1, 2, 2, 3]
cprime%c2(4,2) = 0.25_ki * C(3) * coeffs%c3(4, 3)
! [1, 1, 1] <-- [0, 1, 1, 1]
cprime%c1(2,3) = 0.25_ki * C(0) * coeffs%c2(1, 3)
! [0, 1, 1] <-- [0, 1, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(1, 3)
! [2, 2, 2] <-- [0, 2, 2, 2]
cprime%c1(3,3) = 0.25_ki * C(0) * coeffs%c2(2, 3)
! [0, 2, 2] <-- [0, 2, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(2, 3)
! [3, 3, 3] <-- [0, 3, 3, 3]
cprime%c1(4,3) = 0.25_ki * C(0) * coeffs%c2(3, 3)
! [0, 3, 3] <-- [0, 3, 3, 3]
cprime%c2(3,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(3, 3)
! [2, 2, 2] <-- [1, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(1) * coeffs%c2(4, 3)
! [1, 2, 2] <-- [1, 2, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(4, 3)
! [3, 3, 3] <-- [1, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(1) * coeffs%c2(5, 3)
! [1, 3, 3] <-- [1, 3, 3, 3]
cprime%c2(5,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(5, 3)
! [3, 3, 3] <-- [2, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(2) * coeffs%c2(6, 3)
! [2, 3, 3] <-- [2, 3, 3, 3]
cprime%c2(6,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(6, 3)
! [0, 1, 2] <-- [0, 0, 1, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(0) * coeffs%c3(1, 4)
! [0, 0, 2] <-- [0, 0, 1, 2]
cprime%c2(2,3) = 0.25_ki * C(1) * coeffs%c3(1, 4)
! [0, 0, 1] <-- [0, 0, 1, 2]
cprime%c2(1,3) = 0.25_ki * C(2) * coeffs%c3(1, 4)
! [0, 1, 3] <-- [0, 0, 1, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(0) * coeffs%c3(2, 4)
! [0, 0, 3] <-- [0, 0, 1, 3]
cprime%c2(3,3) = 0.25_ki * C(1) * coeffs%c3(2, 4)
! [0, 0, 1] <-- [0, 0, 1, 3]
cprime%c2(1,3) = cprime%c2(1,3) + 0.25_ki * C(3) * coeffs%c3(2, 4)
! [0, 2, 3] <-- [0, 0, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(0) * coeffs%c3(3, 4)
! [0, 0, 3] <-- [0, 0, 2, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 0.25_ki * C(2) * coeffs%c3(3, 4)
! [0, 0, 2] <-- [0, 0, 2, 3]
cprime%c2(2,3) = cprime%c2(2,3) + 0.25_ki * C(3) * coeffs%c3(3, 4)
! [1, 2, 3] <-- [1, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(1) * coeffs%c3(4, 4)
! [1, 1, 3] <-- [1, 1, 2, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 0.25_ki * C(2) * coeffs%c3(4, 4)
! [1, 1, 2] <-- [1, 1, 2, 3]
cprime%c2(4,3) = cprime%c2(4,3) + 0.25_ki * C(3) * coeffs%c3(4, 4)
! [0, 0, 1] <-- [0, 0, 0, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(1, 6)
! [0, 0, 0] <-- [0, 0, 0, 1]
cprime%c1(1,3) = 0.25_ki * C(1) * coeffs%c2(1, 6)
! [0, 0, 2] <-- [0, 0, 0, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(2, 6)
! [0, 0, 0] <-- [0, 0, 0, 2]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(2) * coeffs%c2(2, 6)
! [0, 0, 3] <-- [0, 0, 0, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(3, 6)
! [0, 0, 0] <-- [0, 0, 0, 3]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(3) * coeffs%c2(3, 6)
! [1, 1, 2] <-- [1, 1, 1, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(4, 6)
! [1, 1, 1] <-- [1, 1, 1, 2]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(2) * coeffs%c2(4, 6)
! [1, 1, 3] <-- [1, 1, 1, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(5, 6)
! [1, 1, 1] <-- [1, 1, 1, 3]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(3) * coeffs%c2(5, 6)
! [2, 2, 3] <-- [2, 2, 2, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(6, 6)
! [2, 2, 2] <-- [2, 2, 2, 3]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(3) * coeffs%c2(6, 6)
! [1, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.25_ki * C(0) * coeffs%c4(1, 1)
! [0, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.25_ki * C(1) * coeffs%c4(1, 1)
! [0, 1, 3] <-- [0, 1, 2, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.25_ki * C(2) * coeffs%c4(1, 1)
! [0, 1, 2] <-- [0, 1, 2, 3]
cprime%c3(1,1) = cprime%c3(1,1) + 0.25_ki * C(3) * coeffs%c4(1, 1)
! [1, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.25_ki * C(0) * coeffs%c3(1, 2)
! [0, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.25_ki * C(1) * coeffs%c3(1, 2)
! [0, 1, 2] <-- [0, 1, 2, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(2) * coeffs%c3(1, 2)
! [1, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(0) * coeffs%c3(2, 2)
! [0, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(1) * coeffs%c3(2, 2)
! [0, 1, 3] <-- [0, 1, 3, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(3) * coeffs%c3(2, 2)
! [2, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(0) * coeffs%c3(3, 2)
! [0, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(2) * coeffs%c3(3, 2)
! [0, 2, 3] <-- [0, 2, 3, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(3) * coeffs%c3(3, 2)
! [2, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(1) * coeffs%c3(4, 2)
! [1, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(2) * coeffs%c3(4, 2)
! [1, 2, 3] <-- [1, 2, 3, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(3) * coeffs%c3(4, 2)
! [0, 1, 1] <-- [0, 0, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 0.5_ki * C(0) * coeffs%c2(1, 5)
! [0, 0, 1] <-- [0, 0, 1, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 0.5_ki * C(1) * coeffs%c2(1, 5)
! [0, 2, 2] <-- [0, 0, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.5_ki * C(0) * coeffs%c2(2, 5)
! [0, 0, 2] <-- [0, 0, 2, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 0.5_ki * C(2) * coeffs%c2(2, 5)
! [0, 3, 3] <-- [0, 0, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.5_ki * C(0) * coeffs%c2(3, 5)
! [0, 0, 3] <-- [0, 0, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 0.5_ki * C(3) * coeffs%c2(3, 5)
! [1, 2, 2] <-- [1, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.5_ki * C(1) * coeffs%c2(4, 5)
! [1, 1, 2] <-- [1, 1, 2, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 0.5_ki * C(2) * coeffs%c2(4, 5)
! [1, 3, 3] <-- [1, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.5_ki * C(1) * coeffs%c2(5, 5)
! [1, 1, 3] <-- [1, 1, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 0.5_ki * C(3) * coeffs%c2(5, 5)
! [2, 3, 3] <-- [2, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.5_ki * C(2) * coeffs%c2(6, 5)
! [2, 2, 3] <-- [2, 2, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 0.5_ki * C(3) * coeffs%c2(6, 5)
! [0, 0, 0] <-- [0, 0, 0, 0]
cprime%c1(1,3) = cprime%c1(1,3) + C(0) * coeffs%c1(1, 4)
! [1, 1, 1] <-- [1, 1, 1, 1]
cprime%c1(2,3) = cprime%c1(2,3) + C(1) * coeffs%c1(2, 4)
! [2, 2, 2] <-- [2, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + C(2) * coeffs%c1(3, 4)
! [3, 3, 3] <-- [3, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + C(3) * coeffs%c1(4, 4)
amp = amp - contract5_3(cprime, momenta, new_set)
end do
end function contract6_4
!****f* src/interface/tens_comb/contract6_5
! NAME
!
! Function contract6_5
!
! USAGE
!
! amp = contract6_5(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 5 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_5)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_5(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_5), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
type(coeff_type_4) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime%c0 = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime%c0 = cprime%c0 + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime%c0 = cprime%c0 + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime%c0 = cprime%c0 + C(3) * coeffs%c1(4, 1)
! [0] <-- [0, 0]
cprime%c1(1,1) = C(0) * coeffs%c1(1, 2)
! [1] <-- [1, 1]
cprime%c1(2,1) = C(1) * coeffs%c1(2, 2)
! [2] <-- [2, 2]
cprime%c1(3,1) = C(2) * coeffs%c1(3, 2)
! [3] <-- [3, 3]
cprime%c1(4,1) = C(3) * coeffs%c1(4, 2)
! [1] <-- [0, 1]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(0) * coeffs%c2(1, 1)
! [0] <-- [0, 1]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(1) * coeffs%c2(1, 1)
! [2] <-- [0, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(0) * coeffs%c2(2, 1)
! [0] <-- [0, 2]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(2) * coeffs%c2(2, 1)
! [3] <-- [0, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(0) * coeffs%c2(3, 1)
! [0] <-- [0, 3]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(3) * coeffs%c2(3, 1)
! [2] <-- [1, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(1) * coeffs%c2(4, 1)
! [1] <-- [1, 2]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(2) * coeffs%c2(4, 1)
! [3] <-- [1, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(1) * coeffs%c2(5, 1)
! [1] <-- [1, 3]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(3) * coeffs%c2(5, 1)
! [3] <-- [2, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(2) * coeffs%c2(6, 1)
! [2] <-- [2, 3]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(3) * coeffs%c2(6, 1)
! [1, 1] <-- [0, 1, 1]
cprime%c1(2,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(1, 2)
! [0, 1] <-- [0, 1, 1]
cprime%c2(1,1) = 2.0_ki/3.0_ki * C(1) * coeffs%c2(1, 2)
! [2, 2] <-- [0, 2, 2]
cprime%c1(3,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(2, 2)
! [0, 2] <-- [0, 2, 2]
cprime%c2(2,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(2, 2)
! [3, 3] <-- [0, 3, 3]
cprime%c1(4,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(3, 2)
! [0, 3] <-- [0, 3, 3]
cprime%c2(3,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(3, 2)
! [2, 2] <-- [1, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(4, 2)
! [1, 2] <-- [1, 2, 2]
cprime%c2(4,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(4, 2)
! [3, 3] <-- [1, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(5, 2)
! [1, 3] <-- [1, 3, 3]
cprime%c2(5,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(5, 2)
! [3, 3] <-- [2, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(6, 2)
! [2, 3] <-- [2, 3, 3]
cprime%c2(6,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(6, 2)
! [1, 2] <-- [0, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 1)
! [0, 2] <-- [0, 1, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 1)
! [0, 1] <-- [0, 1, 2]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 1)
! [1, 3] <-- [0, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 1)
! [0, 3] <-- [0, 1, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 1)
! [0, 1] <-- [0, 1, 3]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 1)
! [2, 3] <-- [0, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 1)
! [0, 3] <-- [0, 2, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 1)
! [0, 2] <-- [0, 2, 3]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 1)
! [2, 3] <-- [1, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 1)
! [1, 3] <-- [1, 2, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 1)
! [1, 2] <-- [1, 2, 3]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 1)
! [0, 0] <-- [0, 0, 0]
cprime%c1(1,2) = C(0) * coeffs%c1(1, 3)
! [1, 1] <-- [1, 1, 1]
cprime%c1(2,2) = cprime%c1(2,2) + C(1) * coeffs%c1(2, 3)
! [2, 2] <-- [2, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + C(2) * coeffs%c1(3, 3)
! [3, 3] <-- [3, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + C(3) * coeffs%c1(4, 3)
! [0, 1] <-- [0, 0, 1]
cprime%c2(1,1) = cprime%c2(1,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(1, 5)
! [0, 0] <-- [0, 0, 1]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(1, 5)
! [0, 2] <-- [0, 0, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(2, 5)
! [0, 0] <-- [0, 0, 2]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(2, 5)
! [0, 3] <-- [0, 0, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(3, 5)
! [0, 0] <-- [0, 0, 3]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(3, 5)
! [1, 2] <-- [1, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(4, 5)
! [1, 1] <-- [1, 1, 2]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(4, 5)
! [1, 3] <-- [1, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(5, 5)
! [1, 1] <-- [1, 1, 3]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(5, 5)
! [2, 3] <-- [2, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(6, 5)
! [2, 2] <-- [2, 2, 3]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(6, 5)
! [1, 1, 2] <-- [0, 1, 1, 2]
cprime%c2(4,4) = 0.25_ki * C(0) * coeffs%c3(1, 4)
! [0, 1, 2] <-- [0, 1, 1, 2]
cprime%c3(1,1) = 0.5_ki * C(1) * coeffs%c3(1, 4)
! [0, 1, 1] <-- [0, 1, 1, 2]
cprime%c2(1,2) = 0.25_ki * C(2) * coeffs%c3(1, 4)
! [1, 1, 3] <-- [0, 1, 1, 3]
cprime%c2(5,4) = 0.25_ki * C(0) * coeffs%c3(2, 4)
! [0, 1, 3] <-- [0, 1, 1, 3]
cprime%c3(2,1) = 0.5_ki * C(1) * coeffs%c3(2, 4)
! [0, 1, 1] <-- [0, 1, 1, 3]
cprime%c2(1,2) = cprime%c2(1,2) + 0.25_ki * C(3) * coeffs%c3(2, 4)
! [2, 2, 3] <-- [0, 2, 2, 3]
cprime%c2(6,4) = 0.25_ki * C(0) * coeffs%c3(3, 4)
! [0, 2, 3] <-- [0, 2, 2, 3]
cprime%c3(3,1) = 0.5_ki * C(2) * coeffs%c3(3, 4)
! [0, 2, 2] <-- [0, 2, 2, 3]
cprime%c2(2,2) = 0.25_ki * C(3) * coeffs%c3(3, 4)
! [2, 2, 3] <-- [1, 2, 2, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 0.25_ki * C(1) * coeffs%c3(4, 4)
! [1, 2, 3] <-- [1, 2, 2, 3]
cprime%c3(4,1) = 0.5_ki * C(2) * coeffs%c3(4, 4)
! [1, 2, 2] <-- [1, 2, 2, 3]
cprime%c2(4,2) = 0.25_ki * C(3) * coeffs%c3(4, 4)
! [1, 1, 1] <-- [0, 1, 1, 1]
cprime%c1(2,3) = 0.25_ki * C(0) * coeffs%c2(1, 3)
! [0, 1, 1] <-- [0, 1, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(1, 3)
! [2, 2, 2] <-- [0, 2, 2, 2]
cprime%c1(3,3) = 0.25_ki * C(0) * coeffs%c2(2, 3)
! [0, 2, 2] <-- [0, 2, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(2, 3)
! [3, 3, 3] <-- [0, 3, 3, 3]
cprime%c1(4,3) = 0.25_ki * C(0) * coeffs%c2(3, 3)
! [0, 3, 3] <-- [0, 3, 3, 3]
cprime%c2(3,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(3, 3)
! [2, 2, 2] <-- [1, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(1) * coeffs%c2(4, 3)
! [1, 2, 2] <-- [1, 2, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(4, 3)
! [3, 3, 3] <-- [1, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(1) * coeffs%c2(5, 3)
! [1, 3, 3] <-- [1, 3, 3, 3]
cprime%c2(5,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(5, 3)
! [3, 3, 3] <-- [2, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(2) * coeffs%c2(6, 3)
! [2, 3, 3] <-- [2, 3, 3, 3]
cprime%c2(6,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(6, 3)
! [0, 1, 2] <-- [0, 0, 1, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(0) * coeffs%c3(1, 7)
! [0, 0, 2] <-- [0, 0, 1, 2]
cprime%c2(2,4) = 0.25_ki * C(1) * coeffs%c3(1, 7)
! [0, 0, 1] <-- [0, 0, 1, 2]
cprime%c2(1,4) = 0.25_ki * C(2) * coeffs%c3(1, 7)
! [0, 1, 3] <-- [0, 0, 1, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(0) * coeffs%c3(2, 7)
! [0, 0, 3] <-- [0, 0, 1, 3]
cprime%c2(3,4) = 0.25_ki * C(1) * coeffs%c3(2, 7)
! [0, 0, 1] <-- [0, 0, 1, 3]
cprime%c2(1,4) = cprime%c2(1,4) + 0.25_ki * C(3) * coeffs%c3(2, 7)
! [0, 2, 3] <-- [0, 0, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(0) * coeffs%c3(3, 7)
! [0, 0, 3] <-- [0, 0, 2, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 0.25_ki * C(2) * coeffs%c3(3, 7)
! [0, 0, 2] <-- [0, 0, 2, 3]
cprime%c2(2,4) = cprime%c2(2,4) + 0.25_ki * C(3) * coeffs%c3(3, 7)
! [1, 2, 3] <-- [1, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(1) * coeffs%c3(4, 7)
! [1, 1, 3] <-- [1, 1, 2, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 0.25_ki * C(2) * coeffs%c3(4, 7)
! [1, 1, 2] <-- [1, 1, 2, 3]
cprime%c2(4,4) = cprime%c2(4,4) + 0.25_ki * C(3) * coeffs%c3(4, 7)
! [0, 0, 1] <-- [0, 0, 0, 1]
cprime%c2(1,4) = cprime%c2(1,4) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(1, 8)
! [0, 0, 0] <-- [0, 0, 0, 1]
cprime%c1(1,3) = 0.25_ki * C(1) * coeffs%c2(1, 8)
! [0, 0, 2] <-- [0, 0, 0, 2]
cprime%c2(2,4) = cprime%c2(2,4) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(2, 8)
! [0, 0, 0] <-- [0, 0, 0, 2]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(2) * coeffs%c2(2, 8)
! [0, 0, 3] <-- [0, 0, 0, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(3, 8)
! [0, 0, 0] <-- [0, 0, 0, 3]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(3) * coeffs%c2(3, 8)
! [1, 1, 2] <-- [1, 1, 1, 2]
cprime%c2(4,4) = cprime%c2(4,4) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(4, 8)
! [1, 1, 1] <-- [1, 1, 1, 2]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(2) * coeffs%c2(4, 8)
! [1, 1, 3] <-- [1, 1, 1, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(5, 8)
! [1, 1, 1] <-- [1, 1, 1, 3]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(3) * coeffs%c2(5, 8)
! [2, 2, 3] <-- [2, 2, 2, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(6, 8)
! [2, 2, 2] <-- [2, 2, 2, 3]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(3) * coeffs%c2(6, 8)
! [1, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.25_ki * C(0) * coeffs%c4(1, 1)
! [0, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.25_ki * C(1) * coeffs%c4(1, 1)
! [0, 1, 3] <-- [0, 1, 2, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.25_ki * C(2) * coeffs%c4(1, 1)
! [0, 1, 2] <-- [0, 1, 2, 3]
cprime%c3(1,1) = cprime%c3(1,1) + 0.25_ki * C(3) * coeffs%c4(1, 1)
! [1, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.25_ki * C(0) * coeffs%c3(1, 2)
! [0, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.25_ki * C(1) * coeffs%c3(1, 2)
! [0, 1, 2] <-- [0, 1, 2, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(2) * coeffs%c3(1, 2)
! [1, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(0) * coeffs%c3(2, 2)
! [0, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(1) * coeffs%c3(2, 2)
! [0, 1, 3] <-- [0, 1, 3, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(3) * coeffs%c3(2, 2)
! [2, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(0) * coeffs%c3(3, 2)
! [0, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(2) * coeffs%c3(3, 2)
! [0, 2, 3] <-- [0, 2, 3, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(3) * coeffs%c3(3, 2)
! [2, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(1) * coeffs%c3(4, 2)
! [1, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(2) * coeffs%c3(4, 2)
! [1, 2, 3] <-- [1, 2, 3, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(3) * coeffs%c3(4, 2)
! [0, 1, 1] <-- [0, 0, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 0.5_ki * C(0) * coeffs%c2(1, 6)
! [0, 0, 1] <-- [0, 0, 1, 1]
cprime%c2(1,4) = cprime%c2(1,4) + 0.5_ki * C(1) * coeffs%c2(1, 6)
! [0, 2, 2] <-- [0, 0, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.5_ki * C(0) * coeffs%c2(2, 6)
! [0, 0, 2] <-- [0, 0, 2, 2]
cprime%c2(2,4) = cprime%c2(2,4) + 0.5_ki * C(2) * coeffs%c2(2, 6)
! [0, 3, 3] <-- [0, 0, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.5_ki * C(0) * coeffs%c2(3, 6)
! [0, 0, 3] <-- [0, 0, 3, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 0.5_ki * C(3) * coeffs%c2(3, 6)
! [1, 2, 2] <-- [1, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.5_ki * C(1) * coeffs%c2(4, 6)
! [1, 1, 2] <-- [1, 1, 2, 2]
cprime%c2(4,4) = cprime%c2(4,4) + 0.5_ki * C(2) * coeffs%c2(4, 6)
! [1, 3, 3] <-- [1, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.5_ki * C(1) * coeffs%c2(5, 6)
! [1, 1, 3] <-- [1, 1, 3, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 0.5_ki * C(3) * coeffs%c2(5, 6)
! [2, 3, 3] <-- [2, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.5_ki * C(2) * coeffs%c2(6, 6)
! [2, 2, 3] <-- [2, 2, 3, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 0.5_ki * C(3) * coeffs%c2(6, 6)
! [0, 0, 0] <-- [0, 0, 0, 0]
cprime%c1(1,3) = cprime%c1(1,3) + C(0) * coeffs%c1(1, 4)
! [1, 1, 1] <-- [1, 1, 1, 1]
cprime%c1(2,3) = cprime%c1(2,3) + C(1) * coeffs%c1(2, 4)
! [2, 2, 2] <-- [2, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + C(2) * coeffs%c1(3, 4)
! [3, 3, 3] <-- [3, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + C(3) * coeffs%c1(4, 4)
! [0, 0, 1, 1] <-- [0, 0, 0, 1, 1]
cprime%c2(1,5) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(1, 9)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 1]
cprime%c2(1,6) = 2.0_ki/5.0_ki * C(1) * coeffs%c2(1, 9)
! [0, 0, 2, 2] <-- [0, 0, 0, 2, 2]
cprime%c2(2,5) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(2, 9)
! [0, 0, 0, 2] <-- [0, 0, 0, 2, 2]
cprime%c2(2,6) = 2.0_ki/5.0_ki * C(2) * coeffs%c2(2, 9)
! [0, 0, 3, 3] <-- [0, 0, 0, 3, 3]
cprime%c2(3,5) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(3, 9)
! [0, 0, 0, 3] <-- [0, 0, 0, 3, 3]
cprime%c2(3,6) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(3, 9)
! [1, 1, 2, 2] <-- [1, 1, 1, 2, 2]
cprime%c2(4,5) = 3.0_ki/5.0_ki * C(1) * coeffs%c2(4, 9)
! [1, 1, 1, 2] <-- [1, 1, 1, 2, 2]
cprime%c2(4,6) = 2.0_ki/5.0_ki * C(2) * coeffs%c2(4, 9)
! [1, 1, 3, 3] <-- [1, 1, 1, 3, 3]
cprime%c2(5,5) = 3.0_ki/5.0_ki * C(1) * coeffs%c2(5, 9)
! [1, 1, 1, 3] <-- [1, 1, 1, 3, 3]
cprime%c2(5,6) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(5, 9)
! [2, 2, 3, 3] <-- [2, 2, 2, 3, 3]
cprime%c2(6,5) = 3.0_ki/5.0_ki * C(2) * coeffs%c2(6, 9)
! [2, 2, 2, 3] <-- [2, 2, 2, 3, 3]
cprime%c2(6,6) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(6, 9)
! [0, 0, 1, 2] <-- [0, 0, 0, 1, 2]
cprime%c3(1,4) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(1, 10)
! [0, 0, 0, 2] <-- [0, 0, 0, 1, 2]
cprime%c2(2,6) = cprime%c2(2,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 10)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 2]
cprime%c2(1,6) = cprime%c2(1,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 10)
! [0, 0, 1, 3] <-- [0, 0, 0, 1, 3]
cprime%c3(2,4) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(2, 10)
! [0, 0, 0, 3] <-- [0, 0, 0, 1, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 10)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 3]
cprime%c2(1,6) = cprime%c2(1,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 10)
! [0, 0, 2, 3] <-- [0, 0, 0, 2, 3]
cprime%c3(3,4) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(3, 10)
! [0, 0, 0, 3] <-- [0, 0, 0, 2, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 10)
! [0, 0, 0, 2] <-- [0, 0, 0, 2, 3]
cprime%c2(2,6) = cprime%c2(2,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 10)
! [1, 1, 2, 3] <-- [1, 1, 1, 2, 3]
cprime%c3(4,4) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(4, 10)
! [1, 1, 1, 3] <-- [1, 1, 1, 2, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 10)
! [1, 1, 1, 2] <-- [1, 1, 1, 2, 3]
cprime%c2(4,6) = cprime%c2(4,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 10)
! [1, 2, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(4,2) = 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 2)
! [0, 2, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(3,2) = 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 2)
! [0, 1, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(2,2) = 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 2)
! [0, 1, 2, 3] <-- [0, 1, 2, 3, 3]
cprime%c4(1,1) = 2.0_ki/5.0_ki * C(3) * coeffs%c4(1, 2)
! [1, 2, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c2(4,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 3)
! [0, 2, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c2(2,3) = 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 3)
! [0, 1, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c3(1,2) = 3.0_ki/5.0_ki * C(2) * coeffs%c3(1, 3)
! [1, 3, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c2(5,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 3)
! [0, 3, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c2(3,3) = 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 3)
! [0, 1, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(2, 3)
! [2, 3, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c2(6,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 3)
! [0, 3, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 3)
! [0, 2, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(3, 3)
! [2, 3, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 3)
! [1, 3, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 3)
! [1, 2, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(4, 3)
! [0, 1, 2, 3] <-- [0, 0, 1, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(0) * coeffs%c4(1, 5)
! [0, 0, 2, 3] <-- [0, 0, 1, 2, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 5)
! [0, 0, 1, 3] <-- [0, 0, 1, 2, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 5)
! [0, 0, 1, 2] <-- [0, 0, 1, 2, 3]
cprime%c3(1,4) = cprime%c3(1,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 5)
! [1, 2, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c3(4,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 3)
! [0, 2, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c3(3,3) = 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 3)
! [0, 1, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(2) * coeffs%c4(1, 3)
! [0, 1, 2, 2] <-- [0, 1, 2, 2, 3]
cprime%c3(1,2) = cprime%c3(1,2) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 3)
! [1, 1, 1, 2] <-- [0, 1, 1, 1, 2]
cprime%c2(4,6) = cprime%c2(4,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 6)
! [0, 1, 1, 2] <-- [0, 1, 1, 1, 2]
cprime%c3(1,3) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(1, 6)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 2]
cprime%c2(1,3) = 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 6)
! [1, 1, 1, 3] <-- [0, 1, 1, 1, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 6)
! [0, 1, 1, 3] <-- [0, 1, 1, 1, 3]
cprime%c3(2,3) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(2, 6)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 3]
cprime%c2(1,3) = cprime%c2(1,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 6)
! [2, 2, 2, 3] <-- [0, 2, 2, 2, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 6)
! [0, 2, 2, 3] <-- [0, 2, 2, 2, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 3.0_ki/5.0_ki * C(2) * coeffs%c3(3, 6)
! [0, 2, 2, 2] <-- [0, 2, 2, 2, 3]
cprime%c2(2,3) = cprime%c2(2,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 6)
! [2, 2, 2, 3] <-- [1, 2, 2, 2, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 6)
! [1, 2, 2, 3] <-- [1, 2, 2, 2, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 3.0_ki/5.0_ki * C(2) * coeffs%c3(4, 6)
! [1, 2, 2, 2] <-- [1, 2, 2, 2, 3]
cprime%c2(4,3) = cprime%c2(4,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 6)
! [1, 1, 1, 1] <-- [0, 1, 1, 1, 1]
cprime%c1(2,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(1, 4)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(1, 4)
! [2, 2, 2, 2] <-- [0, 2, 2, 2, 2]
cprime%c1(3,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(2, 4)
! [0, 2, 2, 2] <-- [0, 2, 2, 2, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(2, 4)
! [3, 3, 3, 3] <-- [0, 3, 3, 3, 3]
cprime%c1(4,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(3, 4)
! [0, 3, 3, 3] <-- [0, 3, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(3, 4)
! [2, 2, 2, 2] <-- [1, 2, 2, 2, 2]
cprime%c1(3,4) = cprime%c1(3,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(4, 4)
! [1, 2, 2, 2] <-- [1, 2, 2, 2, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(4, 4)
! [3, 3, 3, 3] <-- [1, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(5, 4)
! [1, 3, 3, 3] <-- [1, 3, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(5, 4)
! [3, 3, 3, 3] <-- [2, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(6, 4)
! [2, 3, 3, 3] <-- [2, 3, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(6, 4)
! [1, 1, 2, 2] <-- [0, 1, 1, 2, 2]
cprime%c2(4,5) = cprime%c2(4,5) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 5)
! [0, 1, 2, 2] <-- [0, 1, 1, 2, 2]
cprime%c3(1,2) = cprime%c3(1,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(1, 5)
! [0, 1, 1, 2] <-- [0, 1, 1, 2, 2]
cprime%c3(1,3) = cprime%c3(1,3) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(1, 5)
! [1, 1, 3, 3] <-- [0, 1, 1, 3, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 5)
! [0, 1, 3, 3] <-- [0, 1, 1, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(2, 5)
! [0, 1, 1, 3] <-- [0, 1, 1, 3, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(2, 5)
! [2, 2, 3, 3] <-- [0, 2, 2, 3, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 5)
! [0, 2, 3, 3] <-- [0, 2, 2, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(3, 5)
! [0, 2, 2, 3] <-- [0, 2, 2, 3, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(3, 5)
! [2, 2, 3, 3] <-- [1, 2, 2, 3, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 5)
! [1, 2, 3, 3] <-- [1, 2, 2, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(4, 5)
! [1, 2, 2, 3] <-- [1, 2, 2, 3, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(4, 5)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 0]
cprime%c1(1,4) = C(0) * coeffs%c1(1, 5)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 1]
cprime%c1(2,4) = cprime%c1(2,4) + C(1) * coeffs%c1(2, 5)
! [2, 2, 2, 2] <-- [2, 2, 2, 2, 2]
cprime%c1(3,4) = cprime%c1(3,4) + C(2) * coeffs%c1(3, 5)
! [3, 3, 3, 3] <-- [3, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + C(3) * coeffs%c1(4, 5)
! [0, 1, 1, 1] <-- [0, 0, 1, 1, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(1, 7)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 1]
cprime%c2(1,5) = cprime%c2(1,5) + 3.0_ki/5.0_ki * C(1) * coeffs%c2(1, 7)
! [0, 2, 2, 2] <-- [0, 0, 2, 2, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(2, 7)
! [0, 0, 2, 2] <-- [0, 0, 2, 2, 2]
cprime%c2(2,5) = cprime%c2(2,5) + 3.0_ki/5.0_ki * C(2) * coeffs%c2(2, 7)
! [0, 3, 3, 3] <-- [0, 0, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(3, 7)
! [0, 0, 3, 3] <-- [0, 0, 3, 3, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(3, 7)
! [1, 2, 2, 2] <-- [1, 1, 2, 2, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 2.0_ki/5.0_ki * C(1) * coeffs%c2(4, 7)
! [1, 1, 2, 2] <-- [1, 1, 2, 2, 2]
cprime%c2(4,5) = cprime%c2(4,5) + 3.0_ki/5.0_ki * C(2) * coeffs%c2(4, 7)
! [1, 3, 3, 3] <-- [1, 1, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 2.0_ki/5.0_ki * C(1) * coeffs%c2(5, 7)
! [1, 1, 3, 3] <-- [1, 1, 3, 3, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(5, 7)
! [2, 3, 3, 3] <-- [2, 2, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 2.0_ki/5.0_ki * C(2) * coeffs%c2(6, 7)
! [2, 2, 3, 3] <-- [2, 2, 3, 3, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(6, 7)
! [0, 1, 2, 2] <-- [0, 0, 1, 2, 2]
cprime%c3(1,2) = cprime%c3(1,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(1, 8)
! [0, 0, 2, 2] <-- [0, 0, 1, 2, 2]
cprime%c2(2,5) = cprime%c2(2,5) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 8)
! [0, 0, 1, 2] <-- [0, 0, 1, 2, 2]
cprime%c3(1,4) = cprime%c3(1,4) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(1, 8)
! [0, 1, 3, 3] <-- [0, 0, 1, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(2, 8)
! [0, 0, 3, 3] <-- [0, 0, 1, 3, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 8)
! [0, 0, 1, 3] <-- [0, 0, 1, 3, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(2, 8)
! [0, 2, 3, 3] <-- [0, 0, 2, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(3, 8)
! [0, 0, 3, 3] <-- [0, 0, 2, 3, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 8)
! [0, 0, 2, 3] <-- [0, 0, 2, 3, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(3, 8)
! [1, 2, 3, 3] <-- [1, 1, 2, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(4, 8)
! [1, 1, 3, 3] <-- [1, 1, 2, 3, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 8)
! [1, 1, 2, 3] <-- [1, 1, 2, 3, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(4, 8)
! [0, 0, 0, 1] <-- [0, 0, 0, 0, 1]
cprime%c2(1,6) = cprime%c2(1,6) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(1, 10)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 1]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(1, 10)
! [0, 0, 0, 2] <-- [0, 0, 0, 0, 2]
cprime%c2(2,6) = cprime%c2(2,6) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(2, 10)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 2]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(2, 10)
! [0, 0, 0, 3] <-- [0, 0, 0, 0, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(3, 10)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 3]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(3, 10)
! [1, 1, 1, 2] <-- [1, 1, 1, 1, 2]
cprime%c2(4,6) = cprime%c2(4,6) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(4, 10)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 2]
cprime%c1(2,4) = cprime%c1(2,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(4, 10)
! [1, 1, 1, 3] <-- [1, 1, 1, 1, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(5, 10)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 3]
cprime%c1(2,4) = cprime%c1(2,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(5, 10)
! [2, 2, 2, 3] <-- [2, 2, 2, 2, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(6, 10)
! [2, 2, 2, 2] <-- [2, 2, 2, 2, 3]
cprime%c1(3,4) = cprime%c1(3,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(6, 10)
! [0, 1, 1, 2] <-- [0, 0, 1, 1, 2]
cprime%c3(1,3) = cprime%c3(1,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(1, 9)
! [0, 0, 1, 2] <-- [0, 0, 1, 1, 2]
cprime%c3(1,4) = cprime%c3(1,4) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(1, 9)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 2]
cprime%c2(1,5) = cprime%c2(1,5) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 9)
! [0, 1, 1, 3] <-- [0, 0, 1, 1, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(2, 9)
! [0, 0, 1, 3] <-- [0, 0, 1, 1, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(2, 9)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 3]
cprime%c2(1,5) = cprime%c2(1,5) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 9)
! [0, 2, 2, 3] <-- [0, 0, 2, 2, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(3, 9)
! [0, 0, 2, 3] <-- [0, 0, 2, 2, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(3, 9)
! [0, 0, 2, 2] <-- [0, 0, 2, 2, 3]
cprime%c2(2,5) = cprime%c2(2,5) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 9)
! [1, 2, 2, 3] <-- [1, 1, 2, 2, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(4, 9)
! [1, 1, 2, 3] <-- [1, 1, 2, 2, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(4, 9)
! [1, 1, 2, 2] <-- [1, 1, 2, 2, 3]
cprime%c2(4,5) = cprime%c2(4,5) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 9)
! [1, 1, 2, 3] <-- [0, 1, 1, 2, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 4)
! [0, 1, 2, 3] <-- [0, 1, 1, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(1) * coeffs%c4(1, 4)
! [0, 1, 1, 3] <-- [0, 1, 1, 2, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 4)
! [0, 1, 1, 2] <-- [0, 1, 1, 2, 3]
cprime%c3(1,3) = cprime%c3(1,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 4)
amp = amp - contract5_4(cprime, momenta, new_set)
end do
end function contract6_5
!****f* src/interface/tens_comb/contract6_6
! NAME
!
! Function contract6_6
!
! USAGE
!
! amp = contract6_6(coeffs, momenta, b_set)
!
! DESCRIPTION
!
! Contracts the 6-point rank 6 tensor integral
! with its coefficients.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_6)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
! * b_set -- the set of pinched propagators as integer number (bit-set)
!
! RETURN VALUE
!
! The result of contracting the tensor integral with its coefficient.
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
function contract6_6(coeffs, momenta, b_set) result(amp)
! generated by: write_function_contract
implicit none
type(coeff_type_6), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in) :: momenta
integer, intent(in) :: b_set
type(form_factor) :: amp
! generated by: write_contract_split
complex(ki), dimension(0:3) :: C
type(coeff_type_5) :: cprime
integer :: i, pnch, new_set
integer, dimension(1) :: pnch_set
integer, dimension(6) :: unpinched
unpinched = unpackb(pminus(b_ref, b_set), 6)
amp = coeffs%c0 * a60(b_set)
do pnch=1,6
! Eq. (54) in hep-ph/0504267
C(:) = 0.0_ki
do i=1,6
C(:) = C(:) + inv_s(unpinched(pnch),unpinched(i),b_set) * &
& momenta(unpinched(i),:)
end do
! Eq. (63) in hep-ph/0504267
pnch_set(1) = pnch
new_set = punion(packb(pnch_set),b_set)
! [] <-- [0]
cprime%c0 = C(0) * coeffs%c1(1, 1)
! [] <-- [1]
cprime%c0 = cprime%c0 + C(1) * coeffs%c1(2, 1)
! [] <-- [2]
cprime%c0 = cprime%c0 + C(2) * coeffs%c1(3, 1)
! [] <-- [3]
cprime%c0 = cprime%c0 + C(3) * coeffs%c1(4, 1)
! [0] <-- [0, 0]
cprime%c1(1,1) = C(0) * coeffs%c1(1, 2)
! [1] <-- [1, 1]
cprime%c1(2,1) = C(1) * coeffs%c1(2, 2)
! [2] <-- [2, 2]
cprime%c1(3,1) = C(2) * coeffs%c1(3, 2)
! [3] <-- [3, 3]
cprime%c1(4,1) = C(3) * coeffs%c1(4, 2)
! [1] <-- [0, 1]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(0) * coeffs%c2(1, 1)
! [0] <-- [0, 1]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(1) * coeffs%c2(1, 1)
! [2] <-- [0, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(0) * coeffs%c2(2, 1)
! [0] <-- [0, 2]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(2) * coeffs%c2(2, 1)
! [3] <-- [0, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(0) * coeffs%c2(3, 1)
! [0] <-- [0, 3]
cprime%c1(1,1) = cprime%c1(1,1) + 0.5_ki * C(3) * coeffs%c2(3, 1)
! [2] <-- [1, 2]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(1) * coeffs%c2(4, 1)
! [1] <-- [1, 2]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(2) * coeffs%c2(4, 1)
! [3] <-- [1, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(1) * coeffs%c2(5, 1)
! [1] <-- [1, 3]
cprime%c1(2,1) = cprime%c1(2,1) + 0.5_ki * C(3) * coeffs%c2(5, 1)
! [3] <-- [2, 3]
cprime%c1(4,1) = cprime%c1(4,1) + 0.5_ki * C(2) * coeffs%c2(6, 1)
! [2] <-- [2, 3]
cprime%c1(3,1) = cprime%c1(3,1) + 0.5_ki * C(3) * coeffs%c2(6, 1)
! [1, 1] <-- [0, 1, 1]
cprime%c1(2,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(1, 2)
! [0, 1] <-- [0, 1, 1]
cprime%c2(1,1) = 2.0_ki/3.0_ki * C(1) * coeffs%c2(1, 2)
! [2, 2] <-- [0, 2, 2]
cprime%c1(3,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(2, 2)
! [0, 2] <-- [0, 2, 2]
cprime%c2(2,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(2, 2)
! [3, 3] <-- [0, 3, 3]
cprime%c1(4,2) = 1.0_ki/3.0_ki * C(0) * coeffs%c2(3, 2)
! [0, 3] <-- [0, 3, 3]
cprime%c2(3,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(3, 2)
! [2, 2] <-- [1, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(4, 2)
! [1, 2] <-- [1, 2, 2]
cprime%c2(4,1) = 2.0_ki/3.0_ki * C(2) * coeffs%c2(4, 2)
! [3, 3] <-- [1, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(5, 2)
! [1, 3] <-- [1, 3, 3]
cprime%c2(5,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(5, 2)
! [3, 3] <-- [2, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(6, 2)
! [2, 3] <-- [2, 3, 3]
cprime%c2(6,1) = 2.0_ki/3.0_ki * C(3) * coeffs%c2(6, 2)
! [1, 2] <-- [0, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 1)
! [0, 2] <-- [0, 1, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 1)
! [0, 1] <-- [0, 1, 2]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 1)
! [1, 3] <-- [0, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 1)
! [0, 3] <-- [0, 1, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 1)
! [0, 1] <-- [0, 1, 3]
cprime%c2(1,1) = cprime%c2(1,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 1)
! [2, 3] <-- [0, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 1)
! [0, 3] <-- [0, 2, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 1)
! [0, 2] <-- [0, 2, 3]
cprime%c2(2,1) = cprime%c2(2,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 1)
! [2, 3] <-- [1, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 1)
! [1, 3] <-- [1, 2, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 1)
! [1, 2] <-- [1, 2, 3]
cprime%c2(4,1) = cprime%c2(4,1) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 1)
! [0, 0] <-- [0, 0, 0]
cprime%c1(1,2) = C(0) * coeffs%c1(1, 3)
! [1, 1] <-- [1, 1, 1]
cprime%c1(2,2) = cprime%c1(2,2) + C(1) * coeffs%c1(2, 3)
! [2, 2] <-- [2, 2, 2]
cprime%c1(3,2) = cprime%c1(3,2) + C(2) * coeffs%c1(3, 3)
! [3, 3] <-- [3, 3, 3]
cprime%c1(4,2) = cprime%c1(4,2) + C(3) * coeffs%c1(4, 3)
! [0, 1] <-- [0, 0, 1]
cprime%c2(1,1) = cprime%c2(1,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(1, 6)
! [0, 0] <-- [0, 0, 1]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(1, 6)
! [0, 2] <-- [0, 0, 2]
cprime%c2(2,1) = cprime%c2(2,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(2, 6)
! [0, 0] <-- [0, 0, 2]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(2, 6)
! [0, 3] <-- [0, 0, 3]
cprime%c2(3,1) = cprime%c2(3,1) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(3, 6)
! [0, 0] <-- [0, 0, 3]
cprime%c1(1,2) = cprime%c1(1,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(3, 6)
! [1, 2] <-- [1, 1, 2]
cprime%c2(4,1) = cprime%c2(4,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(4, 6)
! [1, 1] <-- [1, 1, 2]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(4, 6)
! [1, 3] <-- [1, 1, 3]
cprime%c2(5,1) = cprime%c2(5,1) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(5, 6)
! [1, 1] <-- [1, 1, 3]
cprime%c1(2,2) = cprime%c1(2,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(5, 6)
! [2, 3] <-- [2, 2, 3]
cprime%c2(6,1) = cprime%c2(6,1) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(6, 6)
! [2, 2] <-- [2, 2, 3]
cprime%c1(3,2) = cprime%c1(3,2) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(6, 6)
! [1, 1, 2] <-- [0, 1, 1, 2]
cprime%c2(4,5) = 0.25_ki * C(0) * coeffs%c3(1, 5)
! [0, 1, 2] <-- [0, 1, 1, 2]
cprime%c3(1,1) = 0.5_ki * C(1) * coeffs%c3(1, 5)
! [0, 1, 1] <-- [0, 1, 1, 2]
cprime%c2(1,2) = 0.25_ki * C(2) * coeffs%c3(1, 5)
! [1, 1, 3] <-- [0, 1, 1, 3]
cprime%c2(5,5) = 0.25_ki * C(0) * coeffs%c3(2, 5)
! [0, 1, 3] <-- [0, 1, 1, 3]
cprime%c3(2,1) = 0.5_ki * C(1) * coeffs%c3(2, 5)
! [0, 1, 1] <-- [0, 1, 1, 3]
cprime%c2(1,2) = cprime%c2(1,2) + 0.25_ki * C(3) * coeffs%c3(2, 5)
! [2, 2, 3] <-- [0, 2, 2, 3]
cprime%c2(6,5) = 0.25_ki * C(0) * coeffs%c3(3, 5)
! [0, 2, 3] <-- [0, 2, 2, 3]
cprime%c3(3,1) = 0.5_ki * C(2) * coeffs%c3(3, 5)
! [0, 2, 2] <-- [0, 2, 2, 3]
cprime%c2(2,2) = 0.25_ki * C(3) * coeffs%c3(3, 5)
! [2, 2, 3] <-- [1, 2, 2, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 0.25_ki * C(1) * coeffs%c3(4, 5)
! [1, 2, 3] <-- [1, 2, 2, 3]
cprime%c3(4,1) = 0.5_ki * C(2) * coeffs%c3(4, 5)
! [1, 2, 2] <-- [1, 2, 2, 3]
cprime%c2(4,2) = 0.25_ki * C(3) * coeffs%c3(4, 5)
! [1, 1, 1] <-- [0, 1, 1, 1]
cprime%c1(2,3) = 0.25_ki * C(0) * coeffs%c2(1, 3)
! [0, 1, 1] <-- [0, 1, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(1, 3)
! [2, 2, 2] <-- [0, 2, 2, 2]
cprime%c1(3,3) = 0.25_ki * C(0) * coeffs%c2(2, 3)
! [0, 2, 2] <-- [0, 2, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(2, 3)
! [3, 3, 3] <-- [0, 3, 3, 3]
cprime%c1(4,3) = 0.25_ki * C(0) * coeffs%c2(3, 3)
! [0, 3, 3] <-- [0, 3, 3, 3]
cprime%c2(3,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(3, 3)
! [2, 2, 2] <-- [1, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(1) * coeffs%c2(4, 3)
! [1, 2, 2] <-- [1, 2, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(4, 3)
! [3, 3, 3] <-- [1, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(1) * coeffs%c2(5, 3)
! [1, 3, 3] <-- [1, 3, 3, 3]
cprime%c2(5,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(5, 3)
! [3, 3, 3] <-- [2, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + 0.25_ki * C(2) * coeffs%c2(6, 3)
! [2, 3, 3] <-- [2, 3, 3, 3]
cprime%c2(6,2) = 3.0_ki/4.0_ki * C(3) * coeffs%c2(6, 3)
! [0, 1, 2] <-- [0, 0, 1, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(0) * coeffs%c3(1, 11)
! [0, 0, 2] <-- [0, 0, 1, 2]
cprime%c2(2,5) = 0.25_ki * C(1) * coeffs%c3(1, 11)
! [0, 0, 1] <-- [0, 0, 1, 2]
cprime%c2(1,5) = 0.25_ki * C(2) * coeffs%c3(1, 11)
! [0, 1, 3] <-- [0, 0, 1, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(0) * coeffs%c3(2, 11)
! [0, 0, 3] <-- [0, 0, 1, 3]
cprime%c2(3,5) = 0.25_ki * C(1) * coeffs%c3(2, 11)
! [0, 0, 1] <-- [0, 0, 1, 3]
cprime%c2(1,5) = cprime%c2(1,5) + 0.25_ki * C(3) * coeffs%c3(2, 11)
! [0, 2, 3] <-- [0, 0, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(0) * coeffs%c3(3, 11)
! [0, 0, 3] <-- [0, 0, 2, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 0.25_ki * C(2) * coeffs%c3(3, 11)
! [0, 0, 2] <-- [0, 0, 2, 3]
cprime%c2(2,5) = cprime%c2(2,5) + 0.25_ki * C(3) * coeffs%c3(3, 11)
! [1, 2, 3] <-- [1, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(1) * coeffs%c3(4, 11)
! [1, 1, 3] <-- [1, 1, 2, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 0.25_ki * C(2) * coeffs%c3(4, 11)
! [1, 1, 2] <-- [1, 1, 2, 3]
cprime%c2(4,5) = cprime%c2(4,5) + 0.25_ki * C(3) * coeffs%c3(4, 11)
! [0, 0, 1] <-- [0, 0, 0, 1]
cprime%c2(1,5) = cprime%c2(1,5) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(1, 10)
! [0, 0, 0] <-- [0, 0, 0, 1]
cprime%c1(1,3) = 0.25_ki * C(1) * coeffs%c2(1, 10)
! [0, 0, 2] <-- [0, 0, 0, 2]
cprime%c2(2,5) = cprime%c2(2,5) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(2, 10)
! [0, 0, 0] <-- [0, 0, 0, 2]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(2) * coeffs%c2(2, 10)
! [0, 0, 3] <-- [0, 0, 0, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 3.0_ki/4.0_ki * C(0) * coeffs%c2(3, 10)
! [0, 0, 0] <-- [0, 0, 0, 3]
cprime%c1(1,3) = cprime%c1(1,3) + 0.25_ki * C(3) * coeffs%c2(3, 10)
! [1, 1, 2] <-- [1, 1, 1, 2]
cprime%c2(4,5) = cprime%c2(4,5) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(4, 10)
! [1, 1, 1] <-- [1, 1, 1, 2]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(2) * coeffs%c2(4, 10)
! [1, 1, 3] <-- [1, 1, 1, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 3.0_ki/4.0_ki * C(1) * coeffs%c2(5, 10)
! [1, 1, 1] <-- [1, 1, 1, 3]
cprime%c1(2,3) = cprime%c1(2,3) + 0.25_ki * C(3) * coeffs%c2(5, 10)
! [2, 2, 3] <-- [2, 2, 2, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 3.0_ki/4.0_ki * C(2) * coeffs%c2(6, 10)
! [2, 2, 2] <-- [2, 2, 2, 3]
cprime%c1(3,3) = cprime%c1(3,3) + 0.25_ki * C(3) * coeffs%c2(6, 10)
! [1, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.25_ki * C(0) * coeffs%c4(1, 1)
! [0, 2, 3] <-- [0, 1, 2, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.25_ki * C(1) * coeffs%c4(1, 1)
! [0, 1, 3] <-- [0, 1, 2, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.25_ki * C(2) * coeffs%c4(1, 1)
! [0, 1, 2] <-- [0, 1, 2, 3]
cprime%c3(1,1) = cprime%c3(1,1) + 0.25_ki * C(3) * coeffs%c4(1, 1)
! [1, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.25_ki * C(0) * coeffs%c3(1, 2)
! [0, 2, 2] <-- [0, 1, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.25_ki * C(1) * coeffs%c3(1, 2)
! [0, 1, 2] <-- [0, 1, 2, 2]
cprime%c3(1,1) = cprime%c3(1,1) + 0.5_ki * C(2) * coeffs%c3(1, 2)
! [1, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(0) * coeffs%c3(2, 2)
! [0, 3, 3] <-- [0, 1, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(1) * coeffs%c3(2, 2)
! [0, 1, 3] <-- [0, 1, 3, 3]
cprime%c3(2,1) = cprime%c3(2,1) + 0.5_ki * C(3) * coeffs%c3(2, 2)
! [2, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(0) * coeffs%c3(3, 2)
! [0, 3, 3] <-- [0, 2, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.25_ki * C(2) * coeffs%c3(3, 2)
! [0, 2, 3] <-- [0, 2, 3, 3]
cprime%c3(3,1) = cprime%c3(3,1) + 0.5_ki * C(3) * coeffs%c3(3, 2)
! [2, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.25_ki * C(1) * coeffs%c3(4, 2)
! [1, 3, 3] <-- [1, 2, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.25_ki * C(2) * coeffs%c3(4, 2)
! [1, 2, 3] <-- [1, 2, 3, 3]
cprime%c3(4,1) = cprime%c3(4,1) + 0.5_ki * C(3) * coeffs%c3(4, 2)
! [0, 1, 1] <-- [0, 0, 1, 1]
cprime%c2(1,2) = cprime%c2(1,2) + 0.5_ki * C(0) * coeffs%c2(1, 7)
! [0, 0, 1] <-- [0, 0, 1, 1]
cprime%c2(1,5) = cprime%c2(1,5) + 0.5_ki * C(1) * coeffs%c2(1, 7)
! [0, 2, 2] <-- [0, 0, 2, 2]
cprime%c2(2,2) = cprime%c2(2,2) + 0.5_ki * C(0) * coeffs%c2(2, 7)
! [0, 0, 2] <-- [0, 0, 2, 2]
cprime%c2(2,5) = cprime%c2(2,5) + 0.5_ki * C(2) * coeffs%c2(2, 7)
! [0, 3, 3] <-- [0, 0, 3, 3]
cprime%c2(3,2) = cprime%c2(3,2) + 0.5_ki * C(0) * coeffs%c2(3, 7)
! [0, 0, 3] <-- [0, 0, 3, 3]
cprime%c2(3,5) = cprime%c2(3,5) + 0.5_ki * C(3) * coeffs%c2(3, 7)
! [1, 2, 2] <-- [1, 1, 2, 2]
cprime%c2(4,2) = cprime%c2(4,2) + 0.5_ki * C(1) * coeffs%c2(4, 7)
! [1, 1, 2] <-- [1, 1, 2, 2]
cprime%c2(4,5) = cprime%c2(4,5) + 0.5_ki * C(2) * coeffs%c2(4, 7)
! [1, 3, 3] <-- [1, 1, 3, 3]
cprime%c2(5,2) = cprime%c2(5,2) + 0.5_ki * C(1) * coeffs%c2(5, 7)
! [1, 1, 3] <-- [1, 1, 3, 3]
cprime%c2(5,5) = cprime%c2(5,5) + 0.5_ki * C(3) * coeffs%c2(5, 7)
! [2, 3, 3] <-- [2, 2, 3, 3]
cprime%c2(6,2) = cprime%c2(6,2) + 0.5_ki * C(2) * coeffs%c2(6, 7)
! [2, 2, 3] <-- [2, 2, 3, 3]
cprime%c2(6,5) = cprime%c2(6,5) + 0.5_ki * C(3) * coeffs%c2(6, 7)
! [0, 0, 0] <-- [0, 0, 0, 0]
cprime%c1(1,3) = cprime%c1(1,3) + C(0) * coeffs%c1(1, 4)
! [1, 1, 1] <-- [1, 1, 1, 1]
cprime%c1(2,3) = cprime%c1(2,3) + C(1) * coeffs%c1(2, 4)
! [2, 2, 2] <-- [2, 2, 2, 2]
cprime%c1(3,3) = cprime%c1(3,3) + C(2) * coeffs%c1(3, 4)
! [3, 3, 3] <-- [3, 3, 3, 3]
cprime%c1(4,3) = cprime%c1(4,3) + C(3) * coeffs%c1(4, 4)
! [0, 0, 1, 1] <-- [0, 0, 0, 1, 1]
cprime%c2(1,6) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(1, 11)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 1]
cprime%c2(1,8) = 2.0_ki/5.0_ki * C(1) * coeffs%c2(1, 11)
! [0, 0, 2, 2] <-- [0, 0, 0, 2, 2]
cprime%c2(2,6) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(2, 11)
! [0, 0, 0, 2] <-- [0, 0, 0, 2, 2]
cprime%c2(2,8) = 2.0_ki/5.0_ki * C(2) * coeffs%c2(2, 11)
! [0, 0, 3, 3] <-- [0, 0, 0, 3, 3]
cprime%c2(3,6) = 3.0_ki/5.0_ki * C(0) * coeffs%c2(3, 11)
! [0, 0, 0, 3] <-- [0, 0, 0, 3, 3]
cprime%c2(3,8) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(3, 11)
! [1, 1, 2, 2] <-- [1, 1, 1, 2, 2]
cprime%c2(4,6) = 3.0_ki/5.0_ki * C(1) * coeffs%c2(4, 11)
! [1, 1, 1, 2] <-- [1, 1, 1, 2, 2]
cprime%c2(4,8) = 2.0_ki/5.0_ki * C(2) * coeffs%c2(4, 11)
! [1, 1, 3, 3] <-- [1, 1, 1, 3, 3]
cprime%c2(5,6) = 3.0_ki/5.0_ki * C(1) * coeffs%c2(5, 11)
! [1, 1, 1, 3] <-- [1, 1, 1, 3, 3]
cprime%c2(5,8) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(5, 11)
! [2, 2, 3, 3] <-- [2, 2, 2, 3, 3]
cprime%c2(6,6) = 3.0_ki/5.0_ki * C(2) * coeffs%c2(6, 11)
! [2, 2, 2, 3] <-- [2, 2, 2, 3, 3]
cprime%c2(6,8) = 2.0_ki/5.0_ki * C(3) * coeffs%c2(6, 11)
! [0, 0, 1, 2] <-- [0, 0, 0, 1, 2]
cprime%c3(1,7) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(1, 17)
! [0, 0, 0, 2] <-- [0, 0, 0, 1, 2]
cprime%c2(2,8) = cprime%c2(2,8) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 17)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 2]
cprime%c2(1,8) = cprime%c2(1,8) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 17)
! [0, 0, 1, 3] <-- [0, 0, 0, 1, 3]
cprime%c3(2,7) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(2, 17)
! [0, 0, 0, 3] <-- [0, 0, 0, 1, 3]
cprime%c2(3,8) = cprime%c2(3,8) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 17)
! [0, 0, 0, 1] <-- [0, 0, 0, 1, 3]
cprime%c2(1,8) = cprime%c2(1,8) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 17)
! [0, 0, 2, 3] <-- [0, 0, 0, 2, 3]
cprime%c3(3,7) = 3.0_ki/5.0_ki * C(0) * coeffs%c3(3, 17)
! [0, 0, 0, 3] <-- [0, 0, 0, 2, 3]
cprime%c2(3,8) = cprime%c2(3,8) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 17)
! [0, 0, 0, 2] <-- [0, 0, 0, 2, 3]
cprime%c2(2,8) = cprime%c2(2,8) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 17)
! [1, 1, 2, 3] <-- [1, 1, 1, 2, 3]
cprime%c3(4,7) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(4, 17)
! [1, 1, 1, 3] <-- [1, 1, 1, 2, 3]
cprime%c2(5,8) = cprime%c2(5,8) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 17)
! [1, 1, 1, 2] <-- [1, 1, 1, 2, 3]
cprime%c2(4,8) = cprime%c2(4,8) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 17)
! [1, 2, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(4,2) = 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 2)
! [0, 2, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(3,2) = 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 2)
! [0, 1, 3, 3] <-- [0, 1, 2, 3, 3]
cprime%c3(2,2) = 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 2)
! [0, 1, 2, 3] <-- [0, 1, 2, 3, 3]
cprime%c4(1,1) = 2.0_ki/5.0_ki * C(3) * coeffs%c4(1, 2)
! [1, 2, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c2(4,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 3)
! [0, 2, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c2(2,3) = 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 3)
! [0, 1, 2, 2] <-- [0, 1, 2, 2, 2]
cprime%c3(1,2) = 3.0_ki/5.0_ki * C(2) * coeffs%c3(1, 3)
! [1, 3, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c2(5,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 3)
! [0, 3, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c2(3,3) = 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 3)
! [0, 1, 3, 3] <-- [0, 1, 3, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(2, 3)
! [2, 3, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c2(6,3) = 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 3)
! [0, 3, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 3)
! [0, 2, 3, 3] <-- [0, 2, 3, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(3, 3)
! [2, 3, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 3)
! [1, 3, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 3)
! [1, 2, 3, 3] <-- [1, 2, 3, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 3.0_ki/5.0_ki * C(3) * coeffs%c3(4, 3)
! [0, 1, 2, 3] <-- [0, 0, 1, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(0) * coeffs%c4(1, 11)
! [0, 0, 2, 3] <-- [0, 0, 1, 2, 3]
cprime%c3(3,7) = cprime%c3(3,7) + 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 11)
! [0, 0, 1, 3] <-- [0, 0, 1, 2, 3]
cprime%c3(2,7) = cprime%c3(2,7) + 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 11)
! [0, 0, 1, 2] <-- [0, 0, 1, 2, 3]
cprime%c3(1,7) = cprime%c3(1,7) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 11)
! [1, 2, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c3(4,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 4)
! [0, 2, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c3(3,4) = 1.0_ki/5.0_ki * C(1) * coeffs%c4(1, 4)
! [0, 1, 2, 3] <-- [0, 1, 2, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(2) * coeffs%c4(1, 4)
! [0, 1, 2, 2] <-- [0, 1, 2, 2, 3]
cprime%c3(1,2) = cprime%c3(1,2) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 4)
! [1, 1, 1, 2] <-- [0, 1, 1, 1, 2]
cprime%c2(4,8) = cprime%c2(4,8) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 8)
! [0, 1, 1, 2] <-- [0, 1, 1, 1, 2]
cprime%c3(1,4) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(1, 8)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 2]
cprime%c2(1,3) = 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 8)
! [1, 1, 1, 3] <-- [0, 1, 1, 1, 3]
cprime%c2(5,8) = cprime%c2(5,8) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 8)
! [0, 1, 1, 3] <-- [0, 1, 1, 1, 3]
cprime%c3(2,4) = 3.0_ki/5.0_ki * C(1) * coeffs%c3(2, 8)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 3]
cprime%c2(1,3) = cprime%c2(1,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 8)
! [2, 2, 2, 3] <-- [0, 2, 2, 2, 3]
cprime%c2(6,8) = cprime%c2(6,8) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 8)
! [0, 2, 2, 3] <-- [0, 2, 2, 2, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 3.0_ki/5.0_ki * C(2) * coeffs%c3(3, 8)
! [0, 2, 2, 2] <-- [0, 2, 2, 2, 3]
cprime%c2(2,3) = cprime%c2(2,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 8)
! [2, 2, 2, 3] <-- [1, 2, 2, 2, 3]
cprime%c2(6,8) = cprime%c2(6,8) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 8)
! [1, 2, 2, 3] <-- [1, 2, 2, 2, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 3.0_ki/5.0_ki * C(2) * coeffs%c3(4, 8)
! [1, 2, 2, 2] <-- [1, 2, 2, 2, 3]
cprime%c2(4,3) = cprime%c2(4,3) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 8)
! [1, 1, 1, 1] <-- [0, 1, 1, 1, 1]
cprime%c1(2,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(1, 4)
! [0, 1, 1, 1] <-- [0, 1, 1, 1, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(1, 4)
! [2, 2, 2, 2] <-- [0, 2, 2, 2, 2]
cprime%c1(3,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(2, 4)
! [0, 2, 2, 2] <-- [0, 2, 2, 2, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(2, 4)
! [3, 3, 3, 3] <-- [0, 3, 3, 3, 3]
cprime%c1(4,4) = 1.0_ki/5.0_ki * C(0) * coeffs%c2(3, 4)
! [0, 3, 3, 3] <-- [0, 3, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(3, 4)
! [2, 2, 2, 2] <-- [1, 2, 2, 2, 2]
cprime%c1(3,4) = cprime%c1(3,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(4, 4)
! [1, 2, 2, 2] <-- [1, 2, 2, 2, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(4, 4)
! [3, 3, 3, 3] <-- [1, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(5, 4)
! [1, 3, 3, 3] <-- [1, 3, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(5, 4)
! [3, 3, 3, 3] <-- [2, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(6, 4)
! [2, 3, 3, 3] <-- [2, 3, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 4.0_ki/5.0_ki * C(3) * coeffs%c2(6, 4)
! [1, 1, 2, 2] <-- [0, 1, 1, 2, 2]
cprime%c2(4,6) = cprime%c2(4,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(1, 6)
! [0, 1, 2, 2] <-- [0, 1, 1, 2, 2]
cprime%c3(1,2) = cprime%c3(1,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(1, 6)
! [0, 1, 1, 2] <-- [0, 1, 1, 2, 2]
cprime%c3(1,4) = cprime%c3(1,4) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(1, 6)
! [1, 1, 3, 3] <-- [0, 1, 1, 3, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(2, 6)
! [0, 1, 3, 3] <-- [0, 1, 1, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(2, 6)
! [0, 1, 1, 3] <-- [0, 1, 1, 3, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(2, 6)
! [2, 2, 3, 3] <-- [0, 2, 2, 3, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 1.0_ki/5.0_ki * C(0) * coeffs%c3(3, 6)
! [0, 2, 3, 3] <-- [0, 2, 2, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(3, 6)
! [0, 2, 2, 3] <-- [0, 2, 2, 3, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(3, 6)
! [2, 2, 3, 3] <-- [1, 2, 2, 3, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(4, 6)
! [1, 2, 3, 3] <-- [1, 2, 2, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(4, 6)
! [1, 2, 2, 3] <-- [1, 2, 2, 3, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(4, 6)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 0]
cprime%c1(1,4) = C(0) * coeffs%c1(1, 5)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 1]
cprime%c1(2,4) = cprime%c1(2,4) + C(1) * coeffs%c1(2, 5)
! [2, 2, 2, 2] <-- [2, 2, 2, 2, 2]
cprime%c1(3,4) = cprime%c1(3,4) + C(2) * coeffs%c1(3, 5)
! [3, 3, 3, 3] <-- [3, 3, 3, 3, 3]
cprime%c1(4,4) = cprime%c1(4,4) + C(3) * coeffs%c1(4, 5)
! [0, 1, 1, 1] <-- [0, 0, 1, 1, 1]
cprime%c2(1,3) = cprime%c2(1,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(1, 8)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 1]
cprime%c2(1,6) = cprime%c2(1,6) + 3.0_ki/5.0_ki * C(1) * coeffs%c2(1, 8)
! [0, 2, 2, 2] <-- [0, 0, 2, 2, 2]
cprime%c2(2,3) = cprime%c2(2,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(2, 8)
! [0, 0, 2, 2] <-- [0, 0, 2, 2, 2]
cprime%c2(2,6) = cprime%c2(2,6) + 3.0_ki/5.0_ki * C(2) * coeffs%c2(2, 8)
! [0, 3, 3, 3] <-- [0, 0, 3, 3, 3]
cprime%c2(3,3) = cprime%c2(3,3) + 2.0_ki/5.0_ki * C(0) * coeffs%c2(3, 8)
! [0, 0, 3, 3] <-- [0, 0, 3, 3, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(3, 8)
! [1, 2, 2, 2] <-- [1, 1, 2, 2, 2]
cprime%c2(4,3) = cprime%c2(4,3) + 2.0_ki/5.0_ki * C(1) * coeffs%c2(4, 8)
! [1, 1, 2, 2] <-- [1, 1, 2, 2, 2]
cprime%c2(4,6) = cprime%c2(4,6) + 3.0_ki/5.0_ki * C(2) * coeffs%c2(4, 8)
! [1, 3, 3, 3] <-- [1, 1, 3, 3, 3]
cprime%c2(5,3) = cprime%c2(5,3) + 2.0_ki/5.0_ki * C(1) * coeffs%c2(5, 8)
! [1, 1, 3, 3] <-- [1, 1, 3, 3, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(5, 8)
! [2, 3, 3, 3] <-- [2, 2, 3, 3, 3]
cprime%c2(6,3) = cprime%c2(6,3) + 2.0_ki/5.0_ki * C(2) * coeffs%c2(6, 8)
! [2, 2, 3, 3] <-- [2, 2, 3, 3, 3]
cprime%c2(6,6) = cprime%c2(6,6) + 3.0_ki/5.0_ki * C(3) * coeffs%c2(6, 8)
! [0, 1, 2, 2] <-- [0, 0, 1, 2, 2]
cprime%c3(1,2) = cprime%c3(1,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(1, 12)
! [0, 0, 2, 2] <-- [0, 0, 1, 2, 2]
cprime%c2(2,6) = cprime%c2(2,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(1, 12)
! [0, 0, 1, 2] <-- [0, 0, 1, 2, 2]
cprime%c3(1,7) = cprime%c3(1,7) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(1, 12)
! [0, 1, 3, 3] <-- [0, 0, 1, 3, 3]
cprime%c3(2,2) = cprime%c3(2,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(2, 12)
! [0, 0, 3, 3] <-- [0, 0, 1, 3, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 1.0_ki/5.0_ki * C(1) * coeffs%c3(2, 12)
! [0, 0, 1, 3] <-- [0, 0, 1, 3, 3]
cprime%c3(2,7) = cprime%c3(2,7) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(2, 12)
! [0, 2, 3, 3] <-- [0, 0, 2, 3, 3]
cprime%c3(3,2) = cprime%c3(3,2) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(3, 12)
! [0, 0, 3, 3] <-- [0, 0, 2, 3, 3]
cprime%c2(3,6) = cprime%c2(3,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(3, 12)
! [0, 0, 2, 3] <-- [0, 0, 2, 3, 3]
cprime%c3(3,7) = cprime%c3(3,7) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(3, 12)
! [1, 2, 3, 3] <-- [1, 1, 2, 3, 3]
cprime%c3(4,2) = cprime%c3(4,2) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(4, 12)
! [1, 1, 3, 3] <-- [1, 1, 2, 3, 3]
cprime%c2(5,6) = cprime%c2(5,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(4, 12)
! [1, 1, 2, 3] <-- [1, 1, 2, 3, 3]
cprime%c3(4,7) = cprime%c3(4,7) + 2.0_ki/5.0_ki * C(3) * coeffs%c3(4, 12)
! [0, 0, 0, 1] <-- [0, 0, 0, 0, 1]
cprime%c2(1,8) = cprime%c2(1,8) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(1, 13)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 1]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(1) * coeffs%c2(1, 13)
! [0, 0, 0, 2] <-- [0, 0, 0, 0, 2]
cprime%c2(2,8) = cprime%c2(2,8) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(2, 13)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 2]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(2, 13)
! [0, 0, 0, 3] <-- [0, 0, 0, 0, 3]
cprime%c2(3,8) = cprime%c2(3,8) + 4.0_ki/5.0_ki * C(0) * coeffs%c2(3, 13)
! [0, 0, 0, 0] <-- [0, 0, 0, 0, 3]
cprime%c1(1,4) = cprime%c1(1,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(3, 13)
! [1, 1, 1, 2] <-- [1, 1, 1, 1, 2]
cprime%c2(4,8) = cprime%c2(4,8) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(4, 13)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 2]
cprime%c1(2,4) = cprime%c1(2,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c2(4, 13)
! [1, 1, 1, 3] <-- [1, 1, 1, 1, 3]
cprime%c2(5,8) = cprime%c2(5,8) + 4.0_ki/5.0_ki * C(1) * coeffs%c2(5, 13)
! [1, 1, 1, 1] <-- [1, 1, 1, 1, 3]
cprime%c1(2,4) = cprime%c1(2,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(5, 13)
! [2, 2, 2, 3] <-- [2, 2, 2, 2, 3]
cprime%c2(6,8) = cprime%c2(6,8) + 4.0_ki/5.0_ki * C(2) * coeffs%c2(6, 13)
! [2, 2, 2, 2] <-- [2, 2, 2, 2, 3]
cprime%c1(3,4) = cprime%c1(3,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c2(6, 13)
! [0, 1, 1, 2] <-- [0, 0, 1, 1, 2]
cprime%c3(1,4) = cprime%c3(1,4) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(1, 14)
! [0, 0, 1, 2] <-- [0, 0, 1, 1, 2]
cprime%c3(1,7) = cprime%c3(1,7) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(1, 14)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 2]
cprime%c2(1,6) = cprime%c2(1,6) + 1.0_ki/5.0_ki * C(2) * coeffs%c3(1, 14)
! [0, 1, 1, 3] <-- [0, 0, 1, 1, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(2, 14)
! [0, 0, 1, 3] <-- [0, 0, 1, 1, 3]
cprime%c3(2,7) = cprime%c3(2,7) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(2, 14)
! [0, 0, 1, 1] <-- [0, 0, 1, 1, 3]
cprime%c2(1,6) = cprime%c2(1,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(2, 14)
! [0, 2, 2, 3] <-- [0, 0, 2, 2, 3]
cprime%c3(3,4) = cprime%c3(3,4) + 2.0_ki/5.0_ki * C(0) * coeffs%c3(3, 14)
! [0, 0, 2, 3] <-- [0, 0, 2, 2, 3]
cprime%c3(3,7) = cprime%c3(3,7) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(3, 14)
! [0, 0, 2, 2] <-- [0, 0, 2, 2, 3]
cprime%c2(2,6) = cprime%c2(2,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(3, 14)
! [1, 2, 2, 3] <-- [1, 1, 2, 2, 3]
cprime%c3(4,4) = cprime%c3(4,4) + 2.0_ki/5.0_ki * C(1) * coeffs%c3(4, 14)
! [1, 1, 2, 3] <-- [1, 1, 2, 2, 3]
cprime%c3(4,7) = cprime%c3(4,7) + 2.0_ki/5.0_ki * C(2) * coeffs%c3(4, 14)
! [1, 1, 2, 2] <-- [1, 1, 2, 2, 3]
cprime%c2(4,6) = cprime%c2(4,6) + 1.0_ki/5.0_ki * C(3) * coeffs%c3(4, 14)
! [1, 1, 2, 3] <-- [0, 1, 1, 2, 3]
cprime%c3(4,7) = cprime%c3(4,7) + 1.0_ki/5.0_ki * C(0) * coeffs%c4(1, 7)
! [0, 1, 2, 3] <-- [0, 1, 1, 2, 3]
cprime%c4(1,1) = cprime%c4(1,1) + 2.0_ki/5.0_ki * C(1) * coeffs%c4(1, 7)
! [0, 1, 1, 3] <-- [0, 1, 1, 2, 3]
cprime%c3(2,4) = cprime%c3(2,4) + 1.0_ki/5.0_ki * C(2) * coeffs%c4(1, 7)
! [0, 1, 1, 2] <-- [0, 1, 1, 2, 3]
cprime%c3(1,4) = cprime%c3(1,4) + 1.0_ki/5.0_ki * C(3) * coeffs%c4(1, 7)
! [0, 1, 1, 2, 3] <-- [0, 0, 1, 1, 2, 3]
cprime%c4(1,4) = 1.0_ki/3.0_ki * C(0) * coeffs%c4(1, 14)
! [0, 0, 1, 2, 3] <-- [0, 0, 1, 1, 2, 3]
cprime%c4(1,5) = 1.0_ki/3.0_ki * C(1) * coeffs%c4(1, 14)
! [0, 0, 1, 1, 3] <-- [0, 0, 1, 1, 2, 3]
cprime%c3(2,9) = 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 14)
! [0, 0, 1, 1, 2] <-- [0, 0, 1, 1, 2, 3]
cprime%c3(1,9) = 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 14)
! [1, 1, 1, 2, 2] <-- [0, 1, 1, 1, 2, 2]
cprime%c2(4,9) = 1.0_ki/6.0_ki * C(0) * coeffs%c3(1, 9)
! [0, 1, 1, 2, 2] <-- [0, 1, 1, 1, 2, 2]
cprime%c3(1,5) = 0.5_ki * C(1) * coeffs%c3(1, 9)
! [0, 1, 1, 1, 2] <-- [0, 1, 1, 1, 2, 2]
cprime%c3(1,6) = 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 9)
! [1, 1, 1, 3, 3] <-- [0, 1, 1, 1, 3, 3]
cprime%c2(5,9) = 1.0_ki/6.0_ki * C(0) * coeffs%c3(2, 9)
! [0, 1, 1, 3, 3] <-- [0, 1, 1, 1, 3, 3]
cprime%c3(2,5) = 0.5_ki * C(1) * coeffs%c3(2, 9)
! [0, 1, 1, 1, 3] <-- [0, 1, 1, 1, 3, 3]
cprime%c3(2,6) = 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 9)
! [2, 2, 2, 3, 3] <-- [0, 2, 2, 2, 3, 3]
cprime%c2(6,9) = 1.0_ki/6.0_ki * C(0) * coeffs%c3(3, 9)
! [0, 2, 2, 3, 3] <-- [0, 2, 2, 2, 3, 3]
cprime%c3(3,5) = 0.5_ki * C(2) * coeffs%c3(3, 9)
! [0, 2, 2, 2, 3] <-- [0, 2, 2, 2, 3, 3]
cprime%c3(3,6) = 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 9)
! [2, 2, 2, 3, 3] <-- [1, 2, 2, 2, 3, 3]
cprime%c2(6,9) = cprime%c2(6,9) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(4, 9)
! [1, 2, 2, 3, 3] <-- [1, 2, 2, 2, 3, 3]
cprime%c3(4,5) = 0.5_ki * C(2) * coeffs%c3(4, 9)
! [1, 2, 2, 2, 3] <-- [1, 2, 2, 2, 3, 3]
cprime%c3(4,6) = 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 9)
! [1, 2, 2, 2, 3] <-- [0, 1, 2, 2, 2, 3]
cprime%c3(4,6) = cprime%c3(4,6) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 6)
! [0, 2, 2, 2, 3] <-- [0, 1, 2, 2, 2, 3]
cprime%c3(3,6) = cprime%c3(3,6) + 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 6)
! [0, 1, 2, 2, 3] <-- [0, 1, 2, 2, 2, 3]
cprime%c4(1,3) = 0.5_ki * C(2) * coeffs%c4(1, 6)
! [0, 1, 2, 2, 2] <-- [0, 1, 2, 2, 2, 3]
cprime%c3(1,3) = 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 6)
! [0, 0, 0, 0, 1] <-- [0, 0, 0, 0, 0, 1]
cprime%c2(1,10) = 5.0_ki/6.0_ki * C(0) * coeffs%c2(1, 15)
! [0, 0, 0, 0, 0] <-- [0, 0, 0, 0, 0, 1]
cprime%c1(1,5) = 1.0_ki/6.0_ki * C(1) * coeffs%c2(1, 15)
! [0, 0, 0, 0, 2] <-- [0, 0, 0, 0, 0, 2]
cprime%c2(2,10) = 5.0_ki/6.0_ki * C(0) * coeffs%c2(2, 15)
! [0, 0, 0, 0, 0] <-- [0, 0, 0, 0, 0, 2]
cprime%c1(1,5) = cprime%c1(1,5) + 1.0_ki/6.0_ki * C(2) * coeffs%c2(2, 15)
! [0, 0, 0, 0, 3] <-- [0, 0, 0, 0, 0, 3]
cprime%c2(3,10) = 5.0_ki/6.0_ki * C(0) * coeffs%c2(3, 15)
! [0, 0, 0, 0, 0] <-- [0, 0, 0, 0, 0, 3]
cprime%c1(1,5) = cprime%c1(1,5) + 1.0_ki/6.0_ki * C(3) * coeffs%c2(3, 15)
! [1, 1, 1, 1, 2] <-- [1, 1, 1, 1, 1, 2]
cprime%c2(4,10) = 5.0_ki/6.0_ki * C(1) * coeffs%c2(4, 15)
! [1, 1, 1, 1, 1] <-- [1, 1, 1, 1, 1, 2]
cprime%c1(2,5) = 1.0_ki/6.0_ki * C(2) * coeffs%c2(4, 15)
! [1, 1, 1, 1, 3] <-- [1, 1, 1, 1, 1, 3]
cprime%c2(5,10) = 5.0_ki/6.0_ki * C(1) * coeffs%c2(5, 15)
! [1, 1, 1, 1, 1] <-- [1, 1, 1, 1, 1, 3]
cprime%c1(2,5) = cprime%c1(2,5) + 1.0_ki/6.0_ki * C(3) * coeffs%c2(5, 15)
! [2, 2, 2, 2, 3] <-- [2, 2, 2, 2, 2, 3]
cprime%c2(6,10) = 5.0_ki/6.0_ki * C(2) * coeffs%c2(6, 15)
! [2, 2, 2, 2, 2] <-- [2, 2, 2, 2, 2, 3]
cprime%c1(3,5) = 1.0_ki/6.0_ki * C(3) * coeffs%c2(6, 15)
! [0, 1, 1, 1, 2] <-- [0, 0, 1, 1, 1, 2]
cprime%c3(1,6) = cprime%c3(1,6) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 16)
! [0, 0, 1, 1, 2] <-- [0, 0, 1, 1, 1, 2]
cprime%c3(1,9) = cprime%c3(1,9) + 0.5_ki * C(1) * coeffs%c3(1, 16)
! [0, 0, 1, 1, 1] <-- [0, 0, 1, 1, 1, 2]
cprime%c2(1,7) = 1.0_ki/6.0_ki * C(2) * coeffs%c3(1, 16)
! [0, 1, 1, 1, 3] <-- [0, 0, 1, 1, 1, 3]
cprime%c3(2,6) = cprime%c3(2,6) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 16)
! [0, 0, 1, 1, 3] <-- [0, 0, 1, 1, 1, 3]
cprime%c3(2,9) = cprime%c3(2,9) + 0.5_ki * C(1) * coeffs%c3(2, 16)
! [0, 0, 1, 1, 1] <-- [0, 0, 1, 1, 1, 3]
cprime%c2(1,7) = cprime%c2(1,7) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(2, 16)
! [0, 2, 2, 2, 3] <-- [0, 0, 2, 2, 2, 3]
cprime%c3(3,6) = cprime%c3(3,6) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 16)
! [0, 0, 2, 2, 3] <-- [0, 0, 2, 2, 2, 3]
cprime%c3(3,9) = 0.5_ki * C(2) * coeffs%c3(3, 16)
! [0, 0, 2, 2, 2] <-- [0, 0, 2, 2, 2, 3]
cprime%c2(2,7) = 1.0_ki/6.0_ki * C(3) * coeffs%c3(3, 16)
! [1, 2, 2, 2, 3] <-- [1, 1, 2, 2, 2, 3]
cprime%c3(4,6) = cprime%c3(4,6) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 16)
! [1, 1, 2, 2, 3] <-- [1, 1, 2, 2, 2, 3]
cprime%c3(4,9) = 0.5_ki * C(2) * coeffs%c3(4, 16)
! [1, 1, 2, 2, 2] <-- [1, 1, 2, 2, 2, 3]
cprime%c2(4,7) = 1.0_ki/6.0_ki * C(3) * coeffs%c3(4, 16)
! [1, 2, 2, 3, 3] <-- [0, 1, 2, 2, 3, 3]
cprime%c3(4,5) = cprime%c3(4,5) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 5)
! [0, 2, 2, 3, 3] <-- [0, 1, 2, 2, 3, 3]
cprime%c3(3,5) = cprime%c3(3,5) + 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 5)
! [0, 1, 2, 3, 3] <-- [0, 1, 2, 2, 3, 3]
cprime%c4(1,2) = 1.0_ki/3.0_ki * C(2) * coeffs%c4(1, 5)
! [0, 1, 2, 2, 3] <-- [0, 1, 2, 2, 3, 3]
cprime%c4(1,3) = cprime%c4(1,3) + 1.0_ki/3.0_ki * C(3) * coeffs%c4(1, 5)
! [0, 1, 2, 2, 3] <-- [0, 0, 1, 2, 2, 3]
cprime%c4(1,3) = cprime%c4(1,3) + 1.0_ki/3.0_ki * C(0) * coeffs%c4(1, 13)
! [0, 0, 2, 2, 3] <-- [0, 0, 1, 2, 2, 3]
cprime%c3(3,9) = cprime%c3(3,9) + 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 13)
! [0, 0, 1, 2, 3] <-- [0, 0, 1, 2, 2, 3]
cprime%c4(1,5) = cprime%c4(1,5) + 1.0_ki/3.0_ki * C(2) * coeffs%c4(1, 13)
! [0, 0, 1, 2, 2] <-- [0, 0, 1, 2, 2, 3]
cprime%c3(1,8) = 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 13)
! [0, 0, 1, 1, 1] <-- [0, 0, 0, 1, 1, 1]
cprime%c2(1,7) = cprime%c2(1,7) + 0.5_ki * C(0) * coeffs%c2(1, 12)
! [0, 0, 0, 1, 1] <-- [0, 0, 0, 1, 1, 1]
cprime%c2(1,9) = 0.5_ki * C(1) * coeffs%c2(1, 12)
! [0, 0, 2, 2, 2] <-- [0, 0, 0, 2, 2, 2]
cprime%c2(2,7) = cprime%c2(2,7) + 0.5_ki * C(0) * coeffs%c2(2, 12)
! [0, 0, 0, 2, 2] <-- [0, 0, 0, 2, 2, 2]
cprime%c2(2,9) = 0.5_ki * C(2) * coeffs%c2(2, 12)
! [0, 0, 3, 3, 3] <-- [0, 0, 0, 3, 3, 3]
cprime%c2(3,7) = 0.5_ki * C(0) * coeffs%c2(3, 12)
! [0, 0, 0, 3, 3] <-- [0, 0, 0, 3, 3, 3]
cprime%c2(3,9) = 0.5_ki * C(3) * coeffs%c2(3, 12)
! [1, 1, 2, 2, 2] <-- [1, 1, 1, 2, 2, 2]
cprime%c2(4,7) = cprime%c2(4,7) + 0.5_ki * C(1) * coeffs%c2(4, 12)
! [1, 1, 1, 2, 2] <-- [1, 1, 1, 2, 2, 2]
cprime%c2(4,9) = cprime%c2(4,9) + 0.5_ki * C(2) * coeffs%c2(4, 12)
! [1, 1, 3, 3, 3] <-- [1, 1, 1, 3, 3, 3]
cprime%c2(5,7) = 0.5_ki * C(1) * coeffs%c2(5, 12)
! [1, 1, 1, 3, 3] <-- [1, 1, 1, 3, 3, 3]
cprime%c2(5,9) = cprime%c2(5,9) + 0.5_ki * C(3) * coeffs%c2(5, 12)
! [2, 2, 3, 3, 3] <-- [2, 2, 2, 3, 3, 3]
cprime%c2(6,7) = 0.5_ki * C(2) * coeffs%c2(6, 12)
! [2, 2, 2, 3, 3] <-- [2, 2, 2, 3, 3, 3]
cprime%c2(6,9) = cprime%c2(6,9) + 0.5_ki * C(3) * coeffs%c2(6, 12)
! [1, 1, 1, 1, 2] <-- [0, 1, 1, 1, 1, 2]
cprime%c2(4,10) = cprime%c2(4,10) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(1, 10)
! [0, 1, 1, 1, 2] <-- [0, 1, 1, 1, 1, 2]
cprime%c3(1,6) = cprime%c3(1,6) + 2.0_ki/3.0_ki * C(1) * coeffs%c3(1, 10)
! [0, 1, 1, 1, 1] <-- [0, 1, 1, 1, 1, 2]
cprime%c2(1,4) = 1.0_ki/6.0_ki * C(2) * coeffs%c3(1, 10)
! [1, 1, 1, 1, 3] <-- [0, 1, 1, 1, 1, 3]
cprime%c2(5,10) = cprime%c2(5,10) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(2, 10)
! [0, 1, 1, 1, 3] <-- [0, 1, 1, 1, 1, 3]
cprime%c3(2,6) = cprime%c3(2,6) + 2.0_ki/3.0_ki * C(1) * coeffs%c3(2, 10)
! [0, 1, 1, 1, 1] <-- [0, 1, 1, 1, 1, 3]
cprime%c2(1,4) = cprime%c2(1,4) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(2, 10)
! [2, 2, 2, 2, 3] <-- [0, 2, 2, 2, 2, 3]
cprime%c2(6,10) = cprime%c2(6,10) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(3, 10)
! [0, 2, 2, 2, 3] <-- [0, 2, 2, 2, 2, 3]
cprime%c3(3,6) = cprime%c3(3,6) + 2.0_ki/3.0_ki * C(2) * coeffs%c3(3, 10)
! [0, 2, 2, 2, 2] <-- [0, 2, 2, 2, 2, 3]
cprime%c2(2,4) = 1.0_ki/6.0_ki * C(3) * coeffs%c3(3, 10)
! [2, 2, 2, 2, 3] <-- [1, 2, 2, 2, 2, 3]
cprime%c2(6,10) = cprime%c2(6,10) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(4, 10)
! [1, 2, 2, 2, 3] <-- [1, 2, 2, 2, 2, 3]
cprime%c3(4,6) = cprime%c3(4,6) + 2.0_ki/3.0_ki * C(2) * coeffs%c3(4, 10)
! [1, 2, 2, 2, 2] <-- [1, 2, 2, 2, 2, 3]
cprime%c2(4,4) = 1.0_ki/6.0_ki * C(3) * coeffs%c3(4, 10)
! [1, 1, 2, 2, 3] <-- [0, 1, 1, 2, 2, 3]
cprime%c3(4,9) = cprime%c3(4,9) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 9)
! [0, 1, 2, 2, 3] <-- [0, 1, 1, 2, 2, 3]
cprime%c4(1,3) = cprime%c4(1,3) + 1.0_ki/3.0_ki * C(1) * coeffs%c4(1, 9)
! [0, 1, 1, 2, 3] <-- [0, 1, 1, 2, 2, 3]
cprime%c4(1,4) = cprime%c4(1,4) + 1.0_ki/3.0_ki * C(2) * coeffs%c4(1, 9)
! [0, 1, 1, 2, 2] <-- [0, 1, 1, 2, 2, 3]
cprime%c3(1,5) = cprime%c3(1,5) + 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 9)
! [0, 0, 1, 2, 3] <-- [0, 0, 0, 1, 2, 3]
cprime%c4(1,5) = cprime%c4(1,5) + 0.5_ki * C(0) * coeffs%c4(1, 15)
! [0, 0, 0, 2, 3] <-- [0, 0, 0, 1, 2, 3]
cprime%c3(3,10) = 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 15)
! [0, 0, 0, 1, 3] <-- [0, 0, 0, 1, 2, 3]
cprime%c3(2,10) = 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 15)
! [0, 0, 0, 1, 2] <-- [0, 0, 0, 1, 2, 3]
cprime%c3(1,10) = 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 15)
! [1, 1, 1, 1, 1] <-- [0, 1, 1, 1, 1, 1]
cprime%c1(2,5) = cprime%c1(2,5) + 1.0_ki/6.0_ki * C(0) * coeffs%c2(1, 5)
! [0, 1, 1, 1, 1] <-- [0, 1, 1, 1, 1, 1]
cprime%c2(1,4) = cprime%c2(1,4) + 5.0_ki/6.0_ki * C(1) * coeffs%c2(1, 5)
! [2, 2, 2, 2, 2] <-- [0, 2, 2, 2, 2, 2]
cprime%c1(3,5) = cprime%c1(3,5) + 1.0_ki/6.0_ki * C(0) * coeffs%c2(2, 5)
! [0, 2, 2, 2, 2] <-- [0, 2, 2, 2, 2, 2]
cprime%c2(2,4) = cprime%c2(2,4) + 5.0_ki/6.0_ki * C(2) * coeffs%c2(2, 5)
! [3, 3, 3, 3, 3] <-- [0, 3, 3, 3, 3, 3]
cprime%c1(4,5) = 1.0_ki/6.0_ki * C(0) * coeffs%c2(3, 5)
! [0, 3, 3, 3, 3] <-- [0, 3, 3, 3, 3, 3]
cprime%c2(3,4) = 5.0_ki/6.0_ki * C(3) * coeffs%c2(3, 5)
! [2, 2, 2, 2, 2] <-- [1, 2, 2, 2, 2, 2]
cprime%c1(3,5) = cprime%c1(3,5) + 1.0_ki/6.0_ki * C(1) * coeffs%c2(4, 5)
! [1, 2, 2, 2, 2] <-- [1, 2, 2, 2, 2, 2]
cprime%c2(4,4) = cprime%c2(4,4) + 5.0_ki/6.0_ki * C(2) * coeffs%c2(4, 5)
! [3, 3, 3, 3, 3] <-- [1, 3, 3, 3, 3, 3]
cprime%c1(4,5) = cprime%c1(4,5) + 1.0_ki/6.0_ki * C(1) * coeffs%c2(5, 5)
! [1, 3, 3, 3, 3] <-- [1, 3, 3, 3, 3, 3]
cprime%c2(5,4) = 5.0_ki/6.0_ki * C(3) * coeffs%c2(5, 5)
! [3, 3, 3, 3, 3] <-- [2, 3, 3, 3, 3, 3]
cprime%c1(4,5) = cprime%c1(4,5) + 1.0_ki/6.0_ki * C(2) * coeffs%c2(6, 5)
! [2, 3, 3, 3, 3] <-- [2, 3, 3, 3, 3, 3]
cprime%c2(6,4) = 5.0_ki/6.0_ki * C(3) * coeffs%c2(6, 5)
! [0, 1, 2, 3, 3] <-- [0, 0, 1, 2, 3, 3]
cprime%c4(1,2) = cprime%c4(1,2) + 1.0_ki/3.0_ki * C(0) * coeffs%c4(1, 12)
! [0, 0, 2, 3, 3] <-- [0, 0, 1, 2, 3, 3]
cprime%c3(3,8) = 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 12)
! [0, 0, 1, 3, 3] <-- [0, 0, 1, 2, 3, 3]
cprime%c3(2,8) = 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 12)
! [0, 0, 1, 2, 3] <-- [0, 0, 1, 2, 3, 3]
cprime%c4(1,5) = cprime%c4(1,5) + 1.0_ki/3.0_ki * C(3) * coeffs%c4(1, 12)
! [0, 0, 1, 2, 2] <-- [0, 0, 0, 1, 2, 2]
cprime%c3(1,8) = cprime%c3(1,8) + 0.5_ki * C(0) * coeffs%c3(1, 18)
! [0, 0, 0, 2, 2] <-- [0, 0, 0, 1, 2, 2]
cprime%c2(2,9) = cprime%c2(2,9) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(1, 18)
! [0, 0, 0, 1, 2] <-- [0, 0, 0, 1, 2, 2]
cprime%c3(1,10) = cprime%c3(1,10) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 18)
! [0, 0, 1, 3, 3] <-- [0, 0, 0, 1, 3, 3]
cprime%c3(2,8) = cprime%c3(2,8) + 0.5_ki * C(0) * coeffs%c3(2, 18)
! [0, 0, 0, 3, 3] <-- [0, 0, 0, 1, 3, 3]
cprime%c2(3,9) = cprime%c2(3,9) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(2, 18)
! [0, 0, 0, 1, 3] <-- [0, 0, 0, 1, 3, 3]
cprime%c3(2,10) = cprime%c3(2,10) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 18)
! [0, 0, 2, 3, 3] <-- [0, 0, 0, 2, 3, 3]
cprime%c3(3,8) = cprime%c3(3,8) + 0.5_ki * C(0) * coeffs%c3(3, 18)
! [0, 0, 0, 3, 3] <-- [0, 0, 0, 2, 3, 3]
cprime%c2(3,9) = cprime%c2(3,9) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(3, 18)
! [0, 0, 0, 2, 3] <-- [0, 0, 0, 2, 3, 3]
cprime%c3(3,10) = cprime%c3(3,10) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 18)
! [1, 1, 2, 3, 3] <-- [1, 1, 1, 2, 3, 3]
cprime%c3(4,8) = 0.5_ki * C(1) * coeffs%c3(4, 18)
! [1, 1, 1, 3, 3] <-- [1, 1, 1, 2, 3, 3]
cprime%c2(5,9) = cprime%c2(5,9) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(4, 18)
! [1, 1, 1, 2, 3] <-- [1, 1, 1, 2, 3, 3]
cprime%c3(4,10) = 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 18)
! [1, 1, 2, 3, 3] <-- [0, 1, 1, 2, 3, 3]
cprime%c3(4,8) = cprime%c3(4,8) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 8)
! [0, 1, 2, 3, 3] <-- [0, 1, 1, 2, 3, 3]
cprime%c4(1,2) = cprime%c4(1,2) + 1.0_ki/3.0_ki * C(1) * coeffs%c4(1, 8)
! [0, 1, 1, 3, 3] <-- [0, 1, 1, 2, 3, 3]
cprime%c3(2,5) = cprime%c3(2,5) + 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 8)
! [0, 1, 1, 2, 3] <-- [0, 1, 1, 2, 3, 3]
cprime%c4(1,4) = cprime%c4(1,4) + 1.0_ki/3.0_ki * C(3) * coeffs%c4(1, 8)
! [0, 0, 1, 1, 2] <-- [0, 0, 0, 1, 1, 2]
cprime%c3(1,9) = cprime%c3(1,9) + 0.5_ki * C(0) * coeffs%c3(1, 19)
! [0, 0, 0, 1, 2] <-- [0, 0, 0, 1, 1, 2]
cprime%c3(1,10) = cprime%c3(1,10) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 19)
! [0, 0, 0, 1, 1] <-- [0, 0, 0, 1, 1, 2]
cprime%c2(1,9) = cprime%c2(1,9) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(1, 19)
! [0, 0, 1, 1, 3] <-- [0, 0, 0, 1, 1, 3]
cprime%c3(2,9) = cprime%c3(2,9) + 0.5_ki * C(0) * coeffs%c3(2, 19)
! [0, 0, 0, 1, 3] <-- [0, 0, 0, 1, 1, 3]
cprime%c3(2,10) = cprime%c3(2,10) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 19)
! [0, 0, 0, 1, 1] <-- [0, 0, 0, 1, 1, 3]
cprime%c2(1,9) = cprime%c2(1,9) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(2, 19)
! [0, 0, 2, 2, 3] <-- [0, 0, 0, 2, 2, 3]
cprime%c3(3,9) = cprime%c3(3,9) + 0.5_ki * C(0) * coeffs%c3(3, 19)
! [0, 0, 0, 2, 3] <-- [0, 0, 0, 2, 2, 3]
cprime%c3(3,10) = cprime%c3(3,10) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 19)
! [0, 0, 0, 2, 2] <-- [0, 0, 0, 2, 2, 3]
cprime%c2(2,9) = cprime%c2(2,9) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(3, 19)
! [1, 1, 2, 2, 3] <-- [1, 1, 1, 2, 2, 3]
cprime%c3(4,9) = cprime%c3(4,9) + 0.5_ki * C(1) * coeffs%c3(4, 19)
! [1, 1, 1, 2, 3] <-- [1, 1, 1, 2, 2, 3]
cprime%c3(4,10) = cprime%c3(4,10) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 19)
! [1, 1, 1, 2, 2] <-- [1, 1, 1, 2, 2, 3]
cprime%c2(4,9) = cprime%c2(4,9) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(4, 19)
! [1, 1, 2, 2, 2] <-- [0, 1, 1, 2, 2, 2]
cprime%c2(4,7) = cprime%c2(4,7) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(1, 7)
! [0, 1, 2, 2, 2] <-- [0, 1, 1, 2, 2, 2]
cprime%c3(1,3) = cprime%c3(1,3) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 7)
! [0, 1, 1, 2, 2] <-- [0, 1, 1, 2, 2, 2]
cprime%c3(1,5) = cprime%c3(1,5) + 0.5_ki * C(2) * coeffs%c3(1, 7)
! [1, 1, 3, 3, 3] <-- [0, 1, 1, 3, 3, 3]
cprime%c2(5,7) = cprime%c2(5,7) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(2, 7)
! [0, 1, 3, 3, 3] <-- [0, 1, 1, 3, 3, 3]
cprime%c3(2,3) = 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 7)
! [0, 1, 1, 3, 3] <-- [0, 1, 1, 3, 3, 3]
cprime%c3(2,5) = cprime%c3(2,5) + 0.5_ki * C(3) * coeffs%c3(2, 7)
! [2, 2, 3, 3, 3] <-- [0, 2, 2, 3, 3, 3]
cprime%c2(6,7) = cprime%c2(6,7) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(3, 7)
! [0, 2, 3, 3, 3] <-- [0, 2, 2, 3, 3, 3]
cprime%c3(3,3) = 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 7)
! [0, 2, 2, 3, 3] <-- [0, 2, 2, 3, 3, 3]
cprime%c3(3,5) = cprime%c3(3,5) + 0.5_ki * C(3) * coeffs%c3(3, 7)
! [2, 2, 3, 3, 3] <-- [1, 2, 2, 3, 3, 3]
cprime%c2(6,7) = cprime%c2(6,7) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(4, 7)
! [1, 2, 3, 3, 3] <-- [1, 2, 2, 3, 3, 3]
cprime%c3(4,3) = 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 7)
! [1, 2, 2, 3, 3] <-- [1, 2, 2, 3, 3, 3]
cprime%c3(4,5) = cprime%c3(4,5) + 0.5_ki * C(3) * coeffs%c3(4, 7)
! [0, 0, 0, 1, 2] <-- [0, 0, 0, 0, 1, 2]
cprime%c3(1,10) = cprime%c3(1,10) + 2.0_ki/3.0_ki * C(0) * coeffs%c3(1, 20)
! [0, 0, 0, 0, 2] <-- [0, 0, 0, 0, 1, 2]
cprime%c2(2,10) = cprime%c2(2,10) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(1, 20)
! [0, 0, 0, 0, 1] <-- [0, 0, 0, 0, 1, 2]
cprime%c2(1,10) = cprime%c2(1,10) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(1, 20)
! [0, 0, 0, 1, 3] <-- [0, 0, 0, 0, 1, 3]
cprime%c3(2,10) = cprime%c3(2,10) + 2.0_ki/3.0_ki * C(0) * coeffs%c3(2, 20)
! [0, 0, 0, 0, 3] <-- [0, 0, 0, 0, 1, 3]
cprime%c2(3,10) = cprime%c2(3,10) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(2, 20)
! [0, 0, 0, 0, 1] <-- [0, 0, 0, 0, 1, 3]
cprime%c2(1,10) = cprime%c2(1,10) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(2, 20)
! [0, 0, 0, 2, 3] <-- [0, 0, 0, 0, 2, 3]
cprime%c3(3,10) = cprime%c3(3,10) + 2.0_ki/3.0_ki * C(0) * coeffs%c3(3, 20)
! [0, 0, 0, 0, 3] <-- [0, 0, 0, 0, 2, 3]
cprime%c2(3,10) = cprime%c2(3,10) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(3, 20)
! [0, 0, 0, 0, 2] <-- [0, 0, 0, 0, 2, 3]
cprime%c2(2,10) = cprime%c2(2,10) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(3, 20)
! [1, 1, 1, 2, 3] <-- [1, 1, 1, 1, 2, 3]
cprime%c3(4,10) = cprime%c3(4,10) + 2.0_ki/3.0_ki * C(1) * coeffs%c3(4, 20)
! [1, 1, 1, 1, 3] <-- [1, 1, 1, 1, 2, 3]
cprime%c2(5,10) = cprime%c2(5,10) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(4, 20)
! [1, 1, 1, 1, 2] <-- [1, 1, 1, 1, 2, 3]
cprime%c2(4,10) = cprime%c2(4,10) + 1.0_ki/6.0_ki * C(3) * coeffs%c3(4, 20)
! [1, 1, 1, 2, 3] <-- [0, 1, 1, 1, 2, 3]
cprime%c3(4,10) = cprime%c3(4,10) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 10)
! [0, 1, 1, 2, 3] <-- [0, 1, 1, 1, 2, 3]
cprime%c4(1,4) = cprime%c4(1,4) + 0.5_ki * C(1) * coeffs%c4(1, 10)
! [0, 1, 1, 1, 3] <-- [0, 1, 1, 1, 2, 3]
cprime%c3(2,6) = cprime%c3(2,6) + 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 10)
! [0, 1, 1, 1, 2] <-- [0, 1, 1, 1, 2, 3]
cprime%c3(1,6) = cprime%c3(1,6) + 1.0_ki/6.0_ki * C(3) * coeffs%c4(1, 10)
! [0, 0, 0, 1, 1] <-- [0, 0, 0, 0, 1, 1]
cprime%c2(1,9) = cprime%c2(1,9) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(1, 14)
! [0, 0, 0, 0, 1] <-- [0, 0, 0, 0, 1, 1]
cprime%c2(1,10) = cprime%c2(1,10) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(1, 14)
! [0, 0, 0, 2, 2] <-- [0, 0, 0, 0, 2, 2]
cprime%c2(2,9) = cprime%c2(2,9) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(2, 14)
! [0, 0, 0, 0, 2] <-- [0, 0, 0, 0, 2, 2]
cprime%c2(2,10) = cprime%c2(2,10) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(2, 14)
! [0, 0, 0, 3, 3] <-- [0, 0, 0, 0, 3, 3]
cprime%c2(3,9) = cprime%c2(3,9) + 2.0_ki/3.0_ki * C(0) * coeffs%c2(3, 14)
! [0, 0, 0, 0, 3] <-- [0, 0, 0, 0, 3, 3]
cprime%c2(3,10) = cprime%c2(3,10) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(3, 14)
! [1, 1, 1, 2, 2] <-- [1, 1, 1, 1, 2, 2]
cprime%c2(4,9) = cprime%c2(4,9) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(4, 14)
! [1, 1, 1, 1, 2] <-- [1, 1, 1, 1, 2, 2]
cprime%c2(4,10) = cprime%c2(4,10) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(4, 14)
! [1, 1, 1, 3, 3] <-- [1, 1, 1, 1, 3, 3]
cprime%c2(5,9) = cprime%c2(5,9) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(5, 14)
! [1, 1, 1, 1, 3] <-- [1, 1, 1, 1, 3, 3]
cprime%c2(5,10) = cprime%c2(5,10) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(5, 14)
! [2, 2, 2, 3, 3] <-- [2, 2, 2, 2, 3, 3]
cprime%c2(6,9) = cprime%c2(6,9) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(6, 14)
! [2, 2, 2, 2, 3] <-- [2, 2, 2, 2, 3, 3]
cprime%c2(6,10) = cprime%c2(6,10) + 1.0_ki/3.0_ki * C(3) * coeffs%c2(6, 14)
! [0, 1, 2, 2, 2] <-- [0, 0, 1, 2, 2, 2]
cprime%c3(1,3) = cprime%c3(1,3) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 13)
! [0, 0, 2, 2, 2] <-- [0, 0, 1, 2, 2, 2]
cprime%c2(2,7) = cprime%c2(2,7) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(1, 13)
! [0, 0, 1, 2, 2] <-- [0, 0, 1, 2, 2, 2]
cprime%c3(1,8) = cprime%c3(1,8) + 0.5_ki * C(2) * coeffs%c3(1, 13)
! [0, 1, 3, 3, 3] <-- [0, 0, 1, 3, 3, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 13)
! [0, 0, 3, 3, 3] <-- [0, 0, 1, 3, 3, 3]
cprime%c2(3,7) = cprime%c2(3,7) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(2, 13)
! [0, 0, 1, 3, 3] <-- [0, 0, 1, 3, 3, 3]
cprime%c3(2,8) = cprime%c3(2,8) + 0.5_ki * C(3) * coeffs%c3(2, 13)
! [0, 2, 3, 3, 3] <-- [0, 0, 2, 3, 3, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 13)
! [0, 0, 3, 3, 3] <-- [0, 0, 2, 3, 3, 3]
cprime%c2(3,7) = cprime%c2(3,7) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(3, 13)
! [0, 0, 2, 3, 3] <-- [0, 0, 2, 3, 3, 3]
cprime%c3(3,8) = cprime%c3(3,8) + 0.5_ki * C(3) * coeffs%c3(3, 13)
! [1, 2, 3, 3, 3] <-- [1, 1, 2, 3, 3, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 13)
! [1, 1, 3, 3, 3] <-- [1, 1, 2, 3, 3, 3]
cprime%c2(5,7) = cprime%c2(5,7) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(4, 13)
! [1, 1, 2, 3, 3] <-- [1, 1, 2, 3, 3, 3]
cprime%c3(4,8) = cprime%c3(4,8) + 0.5_ki * C(3) * coeffs%c3(4, 13)
! [1, 2, 3, 3, 3] <-- [0, 1, 2, 3, 3, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 1.0_ki/6.0_ki * C(0) * coeffs%c4(1, 3)
! [0, 2, 3, 3, 3] <-- [0, 1, 2, 3, 3, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 1.0_ki/6.0_ki * C(1) * coeffs%c4(1, 3)
! [0, 1, 3, 3, 3] <-- [0, 1, 2, 3, 3, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 1.0_ki/6.0_ki * C(2) * coeffs%c4(1, 3)
! [0, 1, 2, 3, 3] <-- [0, 1, 2, 3, 3, 3]
cprime%c4(1,2) = cprime%c4(1,2) + 0.5_ki * C(3) * coeffs%c4(1, 3)
! [0, 1, 1, 2, 2] <-- [0, 0, 1, 1, 2, 2]
cprime%c3(1,5) = cprime%c3(1,5) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(1, 15)
! [0, 0, 1, 2, 2] <-- [0, 0, 1, 1, 2, 2]
cprime%c3(1,8) = cprime%c3(1,8) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(1, 15)
! [0, 0, 1, 1, 2] <-- [0, 0, 1, 1, 2, 2]
cprime%c3(1,9) = cprime%c3(1,9) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(1, 15)
! [0, 1, 1, 3, 3] <-- [0, 0, 1, 1, 3, 3]
cprime%c3(2,5) = cprime%c3(2,5) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(2, 15)
! [0, 0, 1, 3, 3] <-- [0, 0, 1, 1, 3, 3]
cprime%c3(2,8) = cprime%c3(2,8) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(2, 15)
! [0, 0, 1, 1, 3] <-- [0, 0, 1, 1, 3, 3]
cprime%c3(2,9) = cprime%c3(2,9) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(2, 15)
! [0, 2, 2, 3, 3] <-- [0, 0, 2, 2, 3, 3]
cprime%c3(3,5) = cprime%c3(3,5) + 1.0_ki/3.0_ki * C(0) * coeffs%c3(3, 15)
! [0, 0, 2, 3, 3] <-- [0, 0, 2, 2, 3, 3]
cprime%c3(3,8) = cprime%c3(3,8) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(3, 15)
! [0, 0, 2, 2, 3] <-- [0, 0, 2, 2, 3, 3]
cprime%c3(3,9) = cprime%c3(3,9) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(3, 15)
! [1, 2, 2, 3, 3] <-- [1, 1, 2, 2, 3, 3]
cprime%c3(4,5) = cprime%c3(4,5) + 1.0_ki/3.0_ki * C(1) * coeffs%c3(4, 15)
! [1, 1, 2, 3, 3] <-- [1, 1, 2, 2, 3, 3]
cprime%c3(4,8) = cprime%c3(4,8) + 1.0_ki/3.0_ki * C(2) * coeffs%c3(4, 15)
! [1, 1, 2, 2, 3] <-- [1, 1, 2, 2, 3, 3]
cprime%c3(4,9) = cprime%c3(4,9) + 1.0_ki/3.0_ki * C(3) * coeffs%c3(4, 15)
! [0, 1, 1, 1, 1] <-- [0, 0, 1, 1, 1, 1]
cprime%c2(1,4) = cprime%c2(1,4) + 1.0_ki/3.0_ki * C(0) * coeffs%c2(1, 9)
! [0, 0, 1, 1, 1] <-- [0, 0, 1, 1, 1, 1]
cprime%c2(1,7) = cprime%c2(1,7) + 2.0_ki/3.0_ki * C(1) * coeffs%c2(1, 9)
! [0, 2, 2, 2, 2] <-- [0, 0, 2, 2, 2, 2]
cprime%c2(2,4) = cprime%c2(2,4) + 1.0_ki/3.0_ki * C(0) * coeffs%c2(2, 9)
! [0, 0, 2, 2, 2] <-- [0, 0, 2, 2, 2, 2]
cprime%c2(2,7) = cprime%c2(2,7) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(2, 9)
! [0, 3, 3, 3, 3] <-- [0, 0, 3, 3, 3, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 1.0_ki/3.0_ki * C(0) * coeffs%c2(3, 9)
! [0, 0, 3, 3, 3] <-- [0, 0, 3, 3, 3, 3]
cprime%c2(3,7) = cprime%c2(3,7) + 2.0_ki/3.0_ki * C(3) * coeffs%c2(3, 9)
! [1, 2, 2, 2, 2] <-- [1, 1, 2, 2, 2, 2]
cprime%c2(4,4) = cprime%c2(4,4) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(4, 9)
! [1, 1, 2, 2, 2] <-- [1, 1, 2, 2, 2, 2]
cprime%c2(4,7) = cprime%c2(4,7) + 2.0_ki/3.0_ki * C(2) * coeffs%c2(4, 9)
! [1, 3, 3, 3, 3] <-- [1, 1, 3, 3, 3, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 1.0_ki/3.0_ki * C(1) * coeffs%c2(5, 9)
! [1, 1, 3, 3, 3] <-- [1, 1, 3, 3, 3, 3]
cprime%c2(5,7) = cprime%c2(5,7) + 2.0_ki/3.0_ki * C(3) * coeffs%c2(5, 9)
! [2, 3, 3, 3, 3] <-- [2, 2, 3, 3, 3, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 1.0_ki/3.0_ki * C(2) * coeffs%c2(6, 9)
! [2, 2, 3, 3, 3] <-- [2, 2, 3, 3, 3, 3]
cprime%c2(6,7) = cprime%c2(6,7) + 2.0_ki/3.0_ki * C(3) * coeffs%c2(6, 9)
! [0, 0, 0, 0, 0] <-- [0, 0, 0, 0, 0, 0]
cprime%c1(1,5) = cprime%c1(1,5) + C(0) * coeffs%c1(1, 6)
! [1, 1, 1, 1, 1] <-- [1, 1, 1, 1, 1, 1]
cprime%c1(2,5) = cprime%c1(2,5) + C(1) * coeffs%c1(2, 6)
! [2, 2, 2, 2, 2] <-- [2, 2, 2, 2, 2, 2]
cprime%c1(3,5) = cprime%c1(3,5) + C(2) * coeffs%c1(3, 6)
! [3, 3, 3, 3, 3] <-- [3, 3, 3, 3, 3, 3]
cprime%c1(4,5) = cprime%c1(4,5) + C(3) * coeffs%c1(4, 6)
! [1, 2, 2, 2, 2] <-- [0, 1, 2, 2, 2, 2]
cprime%c2(4,4) = cprime%c2(4,4) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(1, 4)
! [0, 2, 2, 2, 2] <-- [0, 1, 2, 2, 2, 2]
cprime%c2(2,4) = cprime%c2(2,4) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(1, 4)
! [0, 1, 2, 2, 2] <-- [0, 1, 2, 2, 2, 2]
cprime%c3(1,3) = cprime%c3(1,3) + 2.0_ki/3.0_ki * C(2) * coeffs%c3(1, 4)
! [1, 3, 3, 3, 3] <-- [0, 1, 3, 3, 3, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(2, 4)
! [0, 3, 3, 3, 3] <-- [0, 1, 3, 3, 3, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(2, 4)
! [0, 1, 3, 3, 3] <-- [0, 1, 3, 3, 3, 3]
cprime%c3(2,3) = cprime%c3(2,3) + 2.0_ki/3.0_ki * C(3) * coeffs%c3(2, 4)
! [2, 3, 3, 3, 3] <-- [0, 2, 3, 3, 3, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 1.0_ki/6.0_ki * C(0) * coeffs%c3(3, 4)
! [0, 3, 3, 3, 3] <-- [0, 2, 3, 3, 3, 3]
cprime%c2(3,4) = cprime%c2(3,4) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(3, 4)
! [0, 2, 3, 3, 3] <-- [0, 2, 3, 3, 3, 3]
cprime%c3(3,3) = cprime%c3(3,3) + 2.0_ki/3.0_ki * C(3) * coeffs%c3(3, 4)
! [2, 3, 3, 3, 3] <-- [1, 2, 3, 3, 3, 3]
cprime%c2(6,4) = cprime%c2(6,4) + 1.0_ki/6.0_ki * C(1) * coeffs%c3(4, 4)
! [1, 3, 3, 3, 3] <-- [1, 2, 3, 3, 3, 3]
cprime%c2(5,4) = cprime%c2(5,4) + 1.0_ki/6.0_ki * C(2) * coeffs%c3(4, 4)
! [1, 2, 3, 3, 3] <-- [1, 2, 3, 3, 3, 3]
cprime%c3(4,3) = cprime%c3(4,3) + 2.0_ki/3.0_ki * C(3) * coeffs%c3(4, 4)
amp = amp - contract5_5(cprime, momenta, new_set)
end do
end function contract6_6
!****f* src/interface/tens_comb/contract_a_tensor_1
! NAME
!
! Function contract_a_tensor_1
!
! USAGE
!
! ans = contract_a_tensor_1(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an A-type tensor
! of rank 1 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_1)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_a_tensor_1(coeffs, momenta) result(res)
! generated by: write_function_a_tensor_contract
implicit none
type(coeff_type_1), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(1)
acc = momenta(1,0)
res = acc * coeffs%c1(1,1)
acc = momenta(1,1)
res = res + acc * coeffs%c1(2,1)
acc = momenta(1,2)
res = res + acc * coeffs%c1(3,1)
acc = momenta(1,3)
res = res + acc * coeffs%c1(4,1)
case default
res = 0.0_ki
end select
end function contract_a_tensor_1
!****f* src/interface/tens_comb/contract_a_tensor_2
! NAME
!
! Function contract_a_tensor_2
!
! USAGE
!
! ans = contract_a_tensor_2(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an A-type tensor
! of rank 2 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_a_tensor_2(coeffs, momenta) result(res)
! generated by: write_function_a_tensor_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(1)
acc = momenta(1,0)
res = acc * coeffs%c1(1,1)
acc = momenta(1,1)
res = res + acc * coeffs%c1(2,1)
acc = momenta(1,2)
res = res + acc * coeffs%c1(3,1)
acc = momenta(1,3)
res = res + acc * coeffs%c1(4,1)
case(2)
acc = momenta(1,0)*momenta(2,0)
res = acc * coeffs%c1(1,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,2)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,2)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,2)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,1)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,1)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,1)
case default
res = 0.0_ki
end select
end function contract_a_tensor_2
!****f* src/interface/tens_comb/contract_b_tensor_2
! NAME
!
! Function contract_b_tensor_2
!
! USAGE
!
! ans = contract_b_tensor_2(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an B-type tensor
! of rank 2 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_2)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_b_tensor_2(coeffs, momenta) result(res)
! generated by: write_function_b_tensor_contract
implicit none
type(coeff_type_2), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = coeffs%c1(1,2)
res = res - coeffs%c1(2,2)
res = res - coeffs%c1(3,2)
res = res - coeffs%c1(4,2)
case default
res = 0.0_ki
end select
end function contract_b_tensor_2
!****f* src/interface/tens_comb/contract_a_tensor_3
! NAME
!
! Function contract_a_tensor_3
!
! USAGE
!
! ans = contract_a_tensor_3(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an A-type tensor
! of rank 3 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_a_tensor_3(coeffs, momenta) result(res)
! generated by: write_function_a_tensor_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
real(ki) :: reg0
real(ki) :: reg1
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(1)
acc = momenta(1,0)
res = acc * coeffs%c1(1,1)
acc = momenta(1,1)
res = res + acc * coeffs%c1(2,1)
acc = momenta(1,2)
res = res + acc * coeffs%c1(3,1)
acc = momenta(1,3)
res = res + acc * coeffs%c1(4,1)
case(2)
acc = momenta(1,0)*momenta(2,0)
res = acc * coeffs%c1(1,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,2)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,2)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,2)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,1)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,1)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,1)
case(3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = acc * coeffs%c2(1,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,2)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,2)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,2)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,1)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,1)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c1(1,3)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c1(2,3)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c1(3,3)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,3)
case default
res = 0.0_ki
end select
end function contract_a_tensor_3
!****f* src/interface/tens_comb/contract_b_tensor_3
! NAME
!
! Function contract_b_tensor_3
!
! USAGE
!
! ans = contract_b_tensor_3(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an B-type tensor
! of rank 3 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_3)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_b_tensor_3(coeffs, momenta) result(res)
! generated by: write_function_b_tensor_contract
implicit none
type(coeff_type_3), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = coeffs%c1(1,2)
res = res - coeffs%c1(2,2)
res = res - coeffs%c1(3,2)
res = res - coeffs%c1(4,2)
case(1)
acc = -momenta(1,0)
res = acc * coeffs%c2(1,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(2,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(3,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(4,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(5,2)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(6,2)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c1(1,3)
acc = -3*momenta(1,1)
res = res + acc * coeffs%c1(2,3)
acc = -3*momenta(1,2)
res = res + acc * coeffs%c1(3,3)
acc = -3*momenta(1,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,1)
res = res + acc * coeffs%c2(1,3)
acc = momenta(1,2)
res = res + acc * coeffs%c2(2,3)
acc = momenta(1,3)
res = res + acc * coeffs%c2(3,3)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(4,3)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(5,3)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(6,3)
case default
res = 0.0_ki
end select
end function contract_b_tensor_3
!****f* src/interface/tens_comb/contract_a_tensor_4
! NAME
!
! Function contract_a_tensor_4
!
! USAGE
!
! ans = contract_a_tensor_4(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an A-type tensor
! of rank 4 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_a_tensor_4(coeffs, momenta) result(res)
! generated by: write_function_a_tensor_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
real(ki) :: reg4
real(ki) :: reg5
real(ki) :: reg2
real(ki) :: reg3
real(ki) :: reg0
real(ki) :: reg1
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(1)
acc = momenta(1,0)
res = acc * coeffs%c1(1,1)
acc = momenta(1,1)
res = res + acc * coeffs%c1(2,1)
acc = momenta(1,2)
res = res + acc * coeffs%c1(3,1)
acc = momenta(1,3)
res = res + acc * coeffs%c1(4,1)
case(2)
acc = momenta(1,0)*momenta(2,0)
res = acc * coeffs%c1(1,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,2)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,2)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,2)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,1)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,1)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,1)
case(3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = acc * coeffs%c2(1,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,2)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,2)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,2)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,1)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,1)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c1(1,3)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c1(2,3)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c1(3,3)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,4)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,4)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,4)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,4)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,4)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,4)
case(4)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,2)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = acc * coeffs%c3(1,3)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,3)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg1 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(2,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,0)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(3,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(4,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(5,3)
acc = momenta(2,2)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,2)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(6,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(1,4)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,4)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,2)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,4)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg1 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,4)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(1,6)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,2)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(2,6)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(3,6)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,2)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(4,6)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,3)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(5,6)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(6,6)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg4 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(2,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 24.0_ki
res = res + acc * coeffs%c4(1,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(1,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,2)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg1 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg2 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,2)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg1 = acc * momenta(4,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
acc = acc * momenta(3,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(1,5)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg2
acc = acc * momenta(4,0)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(2,5)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg2
acc = acc * momenta(3,3)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(3,5)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg2
acc = acc * momenta(4,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(4,5)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg2
acc = acc * momenta(1,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(5,5)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg1 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg2
acc = acc * momenta(4,3)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(6,5)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)
res = res + acc * coeffs%c1(1,4)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)
res = res + acc * coeffs%c1(2,4)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,2)
res = res + acc * coeffs%c1(3,4)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)*momenta(4,3)
res = res + acc * coeffs%c1(4,4)
case default
res = 0.0_ki
end select
end function contract_a_tensor_4
!****f* src/interface/tens_comb/contract_b_tensor_4
! NAME
!
! Function contract_b_tensor_4
!
! USAGE
!
! ans = contract_b_tensor_4(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an B-type tensor
! of rank 4 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_b_tensor_4(coeffs, momenta) result(res)
! generated by: write_function_b_tensor_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = coeffs%c1(1,2)
res = res - coeffs%c1(2,2)
res = res - coeffs%c1(3,2)
res = res - coeffs%c1(4,2)
case(1)
acc = -momenta(1,0)
res = acc * coeffs%c2(1,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(2,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(3,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(4,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(5,2)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(6,2)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c1(1,3)
acc = -3*momenta(1,1)
res = res + acc * coeffs%c1(2,3)
acc = -3*momenta(1,2)
res = res + acc * coeffs%c1(3,3)
acc = -3*momenta(1,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,1)
res = res + acc * coeffs%c2(1,4)
acc = momenta(1,2)
res = res + acc * coeffs%c2(2,4)
acc = momenta(1,3)
res = res + acc * coeffs%c2(3,4)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(4,4)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(5,4)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(6,4)
case(2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = acc * coeffs%c3(1,3)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,3)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,3)
acc = -momenta(1,1)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,3)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,3)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,3)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,3)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,3)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(1,4)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,4)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,4)
acc = -momenta(1,2)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,4)
acc = 3*momenta(1,0)*momenta(2,1)
acc = acc + 3*momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,6)
acc = 3*momenta(1,0)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,6)
acc = 3*momenta(1,0)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,6)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,6)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,6)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,6)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(1,2)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,2)
acc = -momenta(1,1)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(1,5)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(2,5)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(3,5)
acc = -momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(4,5)
acc = -momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(5,5)
acc = -momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(6,5)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(1,5)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(2,5)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(3,5)
acc = -momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(4,5)
acc = -momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(5,5)
acc = -momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(6,5)
acc = 6*momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c1(1,4)
acc = -6*momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,4)
acc = -6*momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,4)
acc = -6*momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,4)
case default
res = 0.0_ki
end select
end function contract_b_tensor_4
!****f* src/interface/tens_comb/contract_c_tensor_4
! NAME
!
! Function contract_c_tensor_4
!
! USAGE
!
! ans = contract_c_tensor_4(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an C-type tensor
! of rank 4 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_4)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_c_tensor_4(coeffs, momenta) result(res)
! generated by: write_function_c_tensor_contract
implicit none
type(coeff_type_4), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = -coeffs%c2(1,5)
res = res - coeffs%c2(2,5)
res = res - coeffs%c2(3,5)
res = res + coeffs%c2(4,5)
res = res + coeffs%c2(5,5)
res = res + coeffs%c2(6,5)
acc = 3
res = res + acc * coeffs%c1(1,4)
acc = 3
res = res + acc * coeffs%c1(2,4)
acc = 3
res = res + acc * coeffs%c1(3,4)
acc = 3
res = res + acc * coeffs%c1(4,4)
case default
res = 0.0_ki
end select
end function contract_c_tensor_4
!****f* src/interface/tens_comb/contract_a_tensor_5
! NAME
!
! Function contract_a_tensor_5
!
! USAGE
!
! ans = contract_a_tensor_5(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an A-type tensor
! of rank 5 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_5)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_a_tensor_5(coeffs, momenta) result(res)
! generated by: write_function_a_tensor_contract
implicit none
type(coeff_type_5), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
real(ki) :: reg6
real(ki) :: reg4
real(ki) :: reg5
real(ki) :: reg2
real(ki) :: reg3
real(ki) :: reg0
real(ki) :: reg1
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(1)
acc = momenta(1,0)
res = acc * coeffs%c1(1,1)
acc = momenta(1,1)
res = res + acc * coeffs%c1(2,1)
acc = momenta(1,2)
res = res + acc * coeffs%c1(3,1)
acc = momenta(1,3)
res = res + acc * coeffs%c1(4,1)
case(2)
acc = momenta(1,0)*momenta(2,0)
res = acc * coeffs%c1(1,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,2)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,2)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,2)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,1)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,1)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,1)
case(3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = acc * coeffs%c2(1,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,2)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,2)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,2)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,1)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,1)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c1(1,3)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c1(2,3)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c1(3,3)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,5)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,5)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,5)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,5)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,5)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,5)
case(4)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,2)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = acc * coeffs%c3(1,4)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,4)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,4)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg1 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,4)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(2,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,0)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(3,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(4,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(5,3)
acc = momenta(2,2)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,2)
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(6,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(1,7)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,7)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(3,2)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,7)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg1 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(3,3)
acc = acc + reg2
reg1 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,7)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(1,8)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,2)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(2,8)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)*momenta(4,0)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(3,8)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,2)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(4,8)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,3)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(5,8)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,3)
acc = acc + reg0
acc = acc / 4.0_ki
res = res + acc * coeffs%c2(6,8)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg4 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(2,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
acc = acc * momenta(1,2)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 24.0_ki
res = res + acc * coeffs%c4(1,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(1,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(2,2)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg1 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg2 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(3,2)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg1 = acc * momenta(4,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(4,3)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(2,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 12.0_ki
res = res + acc * coeffs%c3(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg1 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
acc = acc * momenta(3,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(1,6)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg2
acc = acc * momenta(4,0)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(2,6)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg2
acc = acc * momenta(3,3)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(3,6)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg2
acc = acc * momenta(4,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(4,6)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg1 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg2
acc = acc * momenta(1,1)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(5,6)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg1 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg2
acc = acc * momenta(4,3)
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c2(6,6)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)
res = res + acc * coeffs%c1(1,4)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)
res = res + acc * coeffs%c1(2,4)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,2)
res = res + acc * coeffs%c1(3,4)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)*momenta(4,3)
res = res + acc * coeffs%c1(4,4)
case(5)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg3
acc = acc * momenta(3,1)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)*momenta(4,0)
acc = acc + reg2
acc = acc * momenta(5,1)
acc = acc + reg0
acc = acc / 10.0_ki
res = acc * coeffs%c2(1,9)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg3
acc = acc * momenta(4,0)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,2)
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)*momenta(4,0)
acc = acc + reg2
acc = acc * momenta(5,2)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(2,9)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(4,3)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg3
acc = acc * momenta(3,3)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)*momenta(4,0)
acc = acc + reg2
acc = acc * momenta(5,3)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(3,9)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg3
acc = acc * momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg3 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,2)*momenta(4,1)
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)*momenta(4,1)
acc = acc + reg2
acc = acc * momenta(5,2)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(4,9)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg3 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg3
acc = acc * momenta(1,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,3)*momenta(4,1)
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg2
acc = acc * momenta(5,3)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(5,9)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg2 = acc * momenta(3,2)
acc = momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg3 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(5,3)
acc = acc + reg3
acc = acc * momenta(1,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg2
acc = acc * momenta(4,3)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(6,9)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg3 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(4,1)*momenta(5,2)
acc = acc + momenta(4,2)*momenta(5,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(3,1)*momenta(5,2)
acc = acc + momenta(3,2)*momenta(5,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc * momenta(4,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(1,10)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(4,1)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(3,1)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc * momenta(4,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(2,10)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(3,2)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(4,2)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc * momenta(4,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(3,10)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg2 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(3,3)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc * momenta(2,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(4,10)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg2 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg3 = acc * momenta(5,1)
acc = momenta(2,0)*momenta(3,1)
acc = acc + momenta(2,1)*momenta(3,0)
acc = acc * momenta(5,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg3 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg4 = acc * momenta(5,1)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(5,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
reg5 = acc * momenta(5,0)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
reg6 = acc * momenta(5,1)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(5,3)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(5,1)
acc = acc + momenta(1,1)*momenta(5,0)
reg5 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg6 = acc * momenta(5,2)
acc = momenta(4,0)*momenta(5,1)
acc = acc + momenta(4,1)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg5 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
reg5 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
reg6 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(5,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
reg5 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg6 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 60.0_ki
res = res + acc * coeffs%c4(1,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,1)
acc = acc + momenta(3,1)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg3 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(4,0)*momenta(5,1)
acc = acc + momenta(4,1)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg3 = acc * momenta(5,1)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(5,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,1)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,1)
reg3 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(5,1)
acc = acc + momenta(1,1)*momenta(5,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(2,3)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
reg2 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(5,2)
acc = acc + momenta(2,2)*momenta(5,0)
reg3 = acc * momenta(4,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
acc = acc * momenta(4,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg3 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
acc = acc * momenta(3,2)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(3,0)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(5,2)
acc = acc + momenta(1,2)*momenta(5,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(3,3)
acc = momenta(2,1)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,1)
reg2 = acc * momenta(4,2)
acc = momenta(2,1)*momenta(5,2)
acc = acc + momenta(2,2)*momenta(5,1)
reg3 = acc * momenta(4,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
acc = acc * momenta(4,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,1)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,1)
reg3 = acc * momenta(3,2)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(3,1)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,1)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(5,2)
acc = acc + momenta(1,2)*momenta(5,1)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(4,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(2,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg5 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg6 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,3)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg5 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg6 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,2)*momenta(3,3)
acc = acc + momenta(1,3)*momenta(3,2)
reg4 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
reg5 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(3,3)
acc = acc + momenta(1,3)*momenta(3,1)
acc = acc * momenta(5,2)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(2,0)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg5 = acc * momenta(5,1)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg6 = acc * momenta(5,3)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
acc = acc * momenta(5,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,0)
acc = acc + reg3
reg2 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,1)
reg5 = acc * momenta(4,2)
acc = momenta(4,1)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,1)
reg6 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(5,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 60.0_ki
res = res + acc * coeffs%c4(1,5)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg2 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,0)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg4 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg5 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg5 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg6 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg4 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg5 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(4,1)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg5 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg6 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc * momenta(5,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(4,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(2,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg5 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg6 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
reg5 = acc * momenta(5,0)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
reg6 = acc * momenta(5,1)
acc = momenta(3,0)*momenta(4,1)
acc = acc + momenta(3,1)*momenta(4,0)
acc = acc * momenta(5,3)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 60.0_ki
res = res + acc * coeffs%c4(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg3 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,2)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(5,2)
acc = acc + momenta(2,2)*momenta(5,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(3,0)*momenta(5,2)
acc = acc + momenta(3,2)*momenta(5,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc * momenta(2,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(1,6)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,3)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(3,0)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc * momenta(2,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(2,6)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(4,0)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(3,6)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(3,1)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(3,1)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg3
reg2 = acc * momenta(5,2)
acc = momenta(4,1)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 20.0_ki
res = res + acc * coeffs%c3(4,6)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)*momenta(5,0)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(1,4)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,0)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)*momenta(5,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,0)*momenta(5,2)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(2,4)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
reg2 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,0)*momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,0)*momenta(4,3)*momenta(5,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(3,3)*momenta(4,3)*momenta(5,3)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(3,4)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,1)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)*momenta(5,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,1)*momenta(5,2)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(4,4)
acc = momenta(2,1)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,1)
reg2 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,1)*momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)*momenta(5,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)*momenta(4,3)*momenta(5,3)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(5,4)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg2 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,2)*momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(4,3)*momenta(5,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)*momenta(4,3)*momenta(5,3)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(6,4)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(3,0)*momenta(5,2)
acc = acc + momenta(3,2)*momenta(5,0)
acc = acc * momenta(1,1)
acc = acc * momenta(2,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,1)
acc = acc + momenta(3,1)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg5 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc * momenta(4,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(1,5)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,3)
acc = acc + reg4
reg3 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg4 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg4
reg3 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg5 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg5
acc = acc * momenta(1,1)
acc = acc + reg3
acc = acc * momenta(5,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(2,5)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg2 = acc * momenta(5,0)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg3 = acc * momenta(3,0)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(2,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(5,2)
acc = acc + momenta(1,2)*momenta(5,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg4 = acc * momenta(3,2)
acc = momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg4
reg3 = acc * momenta(1,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg5 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(5,3)
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc * momenta(4,0)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(3,5)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg2 = acc * momenta(5,1)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg3 = acc * momenta(5,3)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(5,2)
acc = acc + momenta(1,2)*momenta(5,1)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc * momenta(5,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,1)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg4 = acc * momenta(3,2)
acc = momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg4
reg3 = acc * momenta(1,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg5 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(5,3)
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(4,5)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)*momenta(5,0)
res = res + acc * coeffs%c1(1,5)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)*momenta(5,1)
res = res + acc * coeffs%c1(2,5)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,2)*momenta(5,2)
res = res + acc * coeffs%c1(3,5)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)*momenta(4,3)*momenta(5,3)
res = res + acc * coeffs%c1(4,5)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg2 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg3
acc = acc * momenta(3,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg3 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,0)*momenta(4,1)
acc = acc + reg2
acc = acc * momenta(5,0)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(1,7)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg2
reg1 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg3
acc = acc * momenta(5,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,0)
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)*momenta(5,2)
acc = acc + reg2
acc = acc * momenta(4,0)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(2,7)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,0)*momenta(4,3)
acc = acc + reg2
reg1 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg3 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(3,3)*momenta(4,0)
acc = acc + reg3
acc = acc * momenta(5,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(2,0)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,0)
reg3 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,0)*momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,0)*momenta(4,3)*momenta(5,3)
acc = acc + reg2
acc = acc * momenta(1,0)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(3,7)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg3
acc = acc * momenta(5,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,1)
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)*momenta(5,2)
acc = acc + reg2
acc = acc * momenta(4,1)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(4,7)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg3 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg3
acc = acc * momenta(5,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,1)
reg3 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,1)*momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)*momenta(5,3)
acc = acc + reg2
acc = acc * momenta(1,1)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(5,7)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg3 = acc * momenta(3,2)
acc = momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg3
acc = acc * momenta(4,3)
acc = acc + reg1
reg0 = acc * momenta(1,3)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg3 = acc * momenta(4,3)
acc = momenta(2,3)*momenta(4,2)*momenta(5,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,2)*momenta(4,3)*momenta(5,3)
acc = acc + reg2
acc = acc * momenta(1,2)
acc = acc + reg0
acc = acc / 10.0_ki
res = res + acc * coeffs%c2(6,7)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(3,1)*momenta(5,2)
acc = acc + momenta(3,2)*momenta(5,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,1)
acc = acc + momenta(3,1)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg4
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg5 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc * momenta(4,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(1,8)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg2 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,1)
acc = acc + momenta(1,1)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg4 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(4,3)
acc = acc + reg4
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg5 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg5
acc = acc * momenta(3,3)
acc = acc + reg3
acc = acc * momenta(5,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(2,8)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
reg2 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg3 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,0)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,0)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg4 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg4
reg3 = acc * momenta(4,0)
acc = momenta(3,2)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
reg4 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,3)*momenta(4,3)
acc = acc + reg4
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg5 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg5
acc = acc * momenta(3,3)
acc = acc + reg3
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(3,8)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg2 = acc * momenta(4,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg3 = acc * momenta(3,2)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(4,3)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(2,3)
acc = acc + reg3
reg2 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc * momenta(4,3)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg3 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg4 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
acc = acc * momenta(3,3)
acc = acc + reg4
reg3 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg4 = acc * momenta(3,1)
acc = momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg4
reg3 = acc * momenta(1,3)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg5 = acc * momenta(3,3)
acc = momenta(2,3)*momenta(3,1)*momenta(4,3)
acc = acc + reg5
acc = acc * momenta(1,1)
acc = acc + reg3
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(4,8)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,1)*momenta(4,0)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)*momenta(5,1)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(1,10)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,2)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)*momenta(4,0)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)*momenta(5,2)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(2,10)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg2 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,3)
acc = acc + reg2
reg1 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,3)*momenta(4,0)
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,0)*momenta(4,0)*momenta(5,3)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(3,10)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg2 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,2)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)*momenta(5,2)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(4,10)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg2 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,3)*momenta(4,1)
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)*momenta(4,1)
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)*momenta(4,1)*momenta(5,3)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(5,10)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(5,2)
acc = momenta(1,2)*momenta(2,2)*momenta(5,3)
acc = acc + reg2
reg1 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)*momenta(5,2)
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)*momenta(4,3)*momenta(5,2)
acc = acc + reg0
acc = acc / 5.0_ki
res = res + acc * coeffs%c2(6,10)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg2 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg3 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,2)
acc = acc + momenta(1,2)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,2)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg4 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,2)
acc = acc + momenta(3,2)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg4 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg4
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg5 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg5
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc * momenta(5,2)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(1,9)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg2 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(3,3)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,0)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,0)
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(4,0)
acc = momenta(3,1)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,1)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg4 = acc * momenta(2,1)
acc = momenta(1,1)*momenta(2,0)*momenta(4,1)
acc = acc + reg4
reg3 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg5 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,0)*momenta(4,1)
acc = acc + reg5
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc * momenta(5,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(2,9)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
reg3 = acc * momenta(3,2)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg3 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(3,0)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(1,0)
acc = acc * momenta(2,0)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(5,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,0)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,0)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg4 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg4
reg3 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,0)
reg5 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(3,9)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg2 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg3 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc * momenta(5,2)
acc = acc + reg3
reg2 = acc * momenta(3,1)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(1,1)
acc = acc * momenta(2,1)
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(4,2)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg3 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(5,3)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc * momenta(5,2)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,2)
acc = momenta(3,1)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,1)
acc = acc * momenta(1,2)
acc = acc * momenta(2,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg4
reg3 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg5 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc * momenta(4,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 30.0_ki
res = res + acc * coeffs%c3(4,9)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg2 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg3 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(4,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg3 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(3,2)
acc = momenta(1,1)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,1)
reg4 = acc * momenta(3,0)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(3,3)
acc = momenta(1,0)*momenta(4,3)
acc = acc + momenta(1,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(2,2)
acc = momenta(2,1)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,1)
reg5 = acc * momenta(3,0)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg6 = acc * momenta(3,3)
acc = momenta(2,0)*momenta(4,3)
acc = acc + momenta(2,3)*momenta(4,0)
acc = acc * momenta(3,1)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,2)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
reg0 = acc * momenta(5,1)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg3 = acc * momenta(4,2)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg4 = acc * momenta(4,3)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc * momenta(4,1)
acc = acc + reg4
acc = acc + reg3
reg2 = acc * momenta(5,0)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg4 = acc * momenta(4,2)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
reg5 = acc * momenta(2,2)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
acc = acc * momenta(1,2)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(5,3)
acc = momenta(2,0)*momenta(4,1)
acc = acc + momenta(2,1)*momenta(4,0)
reg5 = acc * momenta(1,3)
acc = momenta(1,0)*momenta(2,1)
acc = acc + momenta(1,1)*momenta(2,0)
reg6 = acc * momenta(4,3)
acc = momenta(1,0)*momenta(4,1)
acc = acc + momenta(1,1)*momenta(4,0)
acc = acc * momenta(2,3)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(5,2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc * momenta(3,1)
acc = momenta(1,2)*momenta(3,3)
acc = acc + momenta(1,3)*momenta(3,2)
reg4 = acc * momenta(5,0)
acc = momenta(1,2)*momenta(5,3)
acc = acc + momenta(1,3)*momenta(5,2)
reg5 = acc * momenta(3,0)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(1,0)
acc = acc + reg5
acc = acc + reg4
reg3 = acc * momenta(4,1)
acc = momenta(3,0)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,0)
reg5 = acc * momenta(4,2)
acc = momenta(4,0)*momenta(5,3)
acc = acc + momenta(4,3)*momenta(5,0)
reg6 = acc * momenta(3,2)
acc = momenta(3,0)*momenta(4,3)
acc = acc + momenta(3,3)*momenta(4,0)
acc = acc * momenta(5,2)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,1)
acc = acc + reg3
reg2 = acc * momenta(2,1)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg5 = acc * momenta(5,0)
acc = momenta(2,2)*momenta(5,3)
acc = acc + momenta(2,3)*momenta(5,2)
reg6 = acc * momenta(3,0)
acc = momenta(3,2)*momenta(5,3)
acc = acc + momenta(3,3)*momenta(5,2)
acc = acc * momenta(2,0)
acc = acc + reg6
acc = acc + reg5
acc = acc * momenta(1,1)
acc = acc * momenta(4,1)
acc = acc + reg2
acc = acc + reg1
acc = acc + reg0
acc = acc / 60.0_ki
res = res + acc * coeffs%c4(1,4)
case default
res = 0.0_ki
end select
end function contract_a_tensor_5
!****f* src/interface/tens_comb/contract_b_tensor_5
! NAME
!
! Function contract_b_tensor_5
!
! USAGE
!
! ans = contract_b_tensor_5(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an B-type tensor
! of rank 5 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_5)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_b_tensor_5(coeffs, momenta) result(res)
! generated by: write_function_b_tensor_contract
implicit none
type(coeff_type_5), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
real(ki) :: reg0
real(ki) :: reg1
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = coeffs%c1(1,2)
res = res - coeffs%c1(2,2)
res = res - coeffs%c1(3,2)
res = res - coeffs%c1(4,2)
case(1)
acc = -momenta(1,0)
res = acc * coeffs%c2(1,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(2,2)
acc = -momenta(1,0)
res = res + acc * coeffs%c2(3,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(4,2)
acc = -momenta(1,1)
res = res + acc * coeffs%c2(5,2)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(6,2)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c1(1,3)
acc = -3*momenta(1,1)
res = res + acc * coeffs%c1(2,3)
acc = -3*momenta(1,2)
res = res + acc * coeffs%c1(3,3)
acc = -3*momenta(1,3)
res = res + acc * coeffs%c1(4,3)
acc = momenta(1,1)
res = res + acc * coeffs%c2(1,5)
acc = momenta(1,2)
res = res + acc * coeffs%c2(2,5)
acc = momenta(1,3)
res = res + acc * coeffs%c2(3,5)
acc = -momenta(1,2)
res = res + acc * coeffs%c2(4,5)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(5,5)
acc = -momenta(1,3)
res = res + acc * coeffs%c2(6,5)
case(2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = acc * coeffs%c3(1,4)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,4)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,4)
acc = -momenta(1,1)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,4)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,3)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,3)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,3)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,3)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(1,7)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,7)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,7)
acc = -momenta(1,2)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,7)
acc = 3*momenta(1,0)*momenta(2,1)
acc = acc + 3*momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(1,8)
acc = 3*momenta(1,0)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(2,8)
acc = 3*momenta(1,0)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(3,8)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(4,8)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(5,8)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
acc = acc / 2.0_ki
res = res + acc * coeffs%c2(6,8)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(1,2)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(2,2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(3,2)
acc = -momenta(1,1)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,1)
acc = acc / 2.0_ki
res = res + acc * coeffs%c3(4,2)
acc = momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(1,6)
acc = momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(2,6)
acc = momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(3,6)
acc = -momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(4,6)
acc = -momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(5,6)
acc = -momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c2(6,6)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(1,6)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(2,6)
acc = -momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c2(3,6)
acc = -momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(4,6)
acc = -momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c2(5,6)
acc = -momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c2(6,6)
acc = 6*momenta(1,0)*momenta(2,0)
res = res + acc * coeffs%c1(1,4)
acc = -6*momenta(1,1)*momenta(2,1)
res = res + acc * coeffs%c1(2,4)
acc = -6*momenta(1,2)*momenta(2,2)
res = res + acc * coeffs%c1(3,4)
acc = -6*momenta(1,3)*momenta(2,3)
res = res + acc * coeffs%c1(4,4)
case(3)
acc = 3*momenta(1,0)*momenta(2,1)
acc = acc + 3*momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = 3*momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = acc * coeffs%c2(1,9)
acc = 3*momenta(1,0)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = 3*momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,9)
acc = 3*momenta(2,0)*momenta(3,3)
acc = acc + 3*momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = 3*momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,9)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = -3*momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,9)
acc = -3*momenta(2,1)*momenta(3,3)
acc = acc - 3*momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -3*momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,9)
acc = -3*momenta(2,2)*momenta(3,3)
acc = acc - 3*momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = -3*momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,9)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c2(1,9)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c2(2,9)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c2(3,9)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c2(4,9)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c2(5,9)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c2(6,9)
acc = 3*momenta(1,1)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = 3*momenta(1,0)*momenta(2,1)
acc = acc + 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = 3*momenta(1,0)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,10)
acc = 3*momenta(1,1)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = 3*momenta(1,0)*momenta(2,1)
acc = acc + 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = 3*momenta(1,0)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,10)
acc = 3*momenta(1,2)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = 3*momenta(1,0)*momenta(2,3)
acc = acc + 3*momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = 3*momenta(1,0)*momenta(2,2)
acc = acc + 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,10)
acc = -3*momenta(2,1)*momenta(3,2)
acc = acc - 3*momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = -3*momenta(1,1)*momenta(3,2)
acc = acc - 3*momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,10)
acc = -momenta(1,1)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c4(1,2)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,3)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,3)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,3)
acc = -3*momenta(2,1)*momenta(3,2)
acc = acc - 3*momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = -3*momenta(1,1)*momenta(3,2)
acc = acc - 3*momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,3)
acc = momenta(2,1)*momenta(3,2)
acc = acc + momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = momenta(1,1)*momenta(3,2)
acc = acc + momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c4(1,5)
acc = -momenta(1,1)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c4(1,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(1,6)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
reg1 = acc * momenta(3,3)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
acc = acc * momenta(3,1)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(2,6)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(3,6)
acc = -3*momenta(2,1)*momenta(3,2)
acc = acc - 3*momenta(2,2)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg1 = acc * momenta(3,3)
acc = -3*momenta(1,1)*momenta(3,2)
acc = acc - 3*momenta(1,2)*momenta(3,1)
acc = acc * momenta(2,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c3(4,6)
acc = -6*momenta(1,0)*momenta(2,1)
acc = acc - 6*momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = -6*momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,4)
acc = -6*momenta(1,0)*momenta(2,2)
acc = acc - 6*momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = -6*momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,4)
acc = -6*momenta(2,0)*momenta(3,3)
acc = acc - 6*momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = -6*momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,4)
acc = -6*momenta(1,1)*momenta(2,2)
acc = acc - 6*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = -6*momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,4)
acc = -6*momenta(2,1)*momenta(3,3)
acc = acc - 6*momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -6*momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,4)
acc = -6*momenta(2,2)*momenta(3,3)
acc = acc - 6*momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = -6*momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,4)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,5)
acc = -momenta(2,0)*momenta(3,3)
acc = acc - momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = -momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,5)
acc = -momenta(2,0)*momenta(3,3)
acc = acc - momenta(2,3)*momenta(3,0)
reg0 = acc * momenta(1,3)
acc = -momenta(1,0)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,5)
acc = -momenta(2,1)*momenta(3,3)
acc = acc - momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = -momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,5)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,5)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,1)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,5)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,2)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,0)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,5)
acc = -momenta(1,1)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,5)
acc = 10*momenta(1,0)*momenta(2,0)*momenta(3,0)
res = res + acc * coeffs%c1(1,5)
acc = -10*momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c1(2,5)
acc = -10*momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c1(3,5)
acc = -10*momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c1(4,5)
acc = momenta(1,1)*momenta(2,1)*momenta(3,1)
res = res + acc * coeffs%c2(1,7)
acc = momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c2(2,7)
acc = momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c2(3,7)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,2)
res = res + acc * coeffs%c2(4,7)
acc = -momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c2(5,7)
acc = -momenta(1,3)*momenta(2,3)*momenta(3,3)
res = res + acc * coeffs%c2(6,7)
acc = -3*momenta(1,0)*momenta(2,1)
acc = acc - 3*momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,7)
acc = -3*momenta(1,0)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,7)
acc = -3*momenta(1,0)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -3*momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,7)
acc = -3*momenta(1,1)*momenta(2,2)
acc = acc - 3*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -3*momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,7)
acc = -3*momenta(1,1)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -3*momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,7)
acc = -3*momenta(1,2)*momenta(2,3)
acc = acc - 3*momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = -3*momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,7)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,8)
acc = momenta(2,1)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,1)
reg0 = acc * momenta(1,3)
acc = momenta(1,1)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,8)
acc = momenta(2,2)*momenta(3,3)
acc = acc + momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,8)
acc = -momenta(2,2)*momenta(3,3)
acc = acc - momenta(2,3)*momenta(3,2)
reg0 = acc * momenta(1,3)
acc = -momenta(1,2)*momenta(2,3)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,8)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,8)
acc = -momenta(1,0)*momenta(2,1)
acc = acc - momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,8)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,8)
acc = -momenta(1,1)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,8)
acc = 6*momenta(1,0)*momenta(2,1)
acc = acc + 6*momenta(1,1)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = 6*momenta(1,0)*momenta(2,0)*momenta(3,1)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(1,10)
acc = 6*momenta(1,0)*momenta(2,2)
acc = acc + 6*momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = 6*momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(2,10)
acc = 6*momenta(1,0)*momenta(2,3)
acc = acc + 6*momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = 6*momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(3,10)
acc = -6*momenta(1,1)*momenta(2,2)
acc = acc - 6*momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -6*momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(4,10)
acc = -6*momenta(1,1)*momenta(2,3)
acc = acc - 6*momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -6*momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(5,10)
acc = -6*momenta(1,2)*momenta(2,3)
acc = acc - 6*momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = -6*momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c2(6,10)
acc = momenta(1,1)*momenta(2,2)
acc = acc + momenta(1,2)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,9)
acc = momenta(1,1)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,9)
acc = momenta(1,2)*momenta(2,3)
acc = acc + momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,9)
acc = -momenta(1,2)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,2)
acc = -momenta(1,2)*momenta(2,2)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,9)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,2)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(1,9)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(2,9)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,0)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(3,9)
acc = -momenta(1,1)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,1)
reg0 = acc * momenta(3,1)
acc = -momenta(1,1)*momenta(2,1)*momenta(3,3)
acc = acc + reg0
acc = acc / 3.0_ki
res = res + acc * coeffs%c3(4,9)
acc = -momenta(1,2)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,2)
reg0 = acc * momenta(3,0)
acc = -momenta(1,0)*momenta(2,3)
acc = acc - momenta(1,3)*momenta(2,0)
reg1 = acc * momenta(3,2)
acc = -momenta(1,0)*momenta(2,2)
acc = acc - momenta(1,2)*momenta(2,0)
acc = acc * momenta(3,3)
acc = acc + reg1
acc = acc + reg0
acc = acc / 6.0_ki
res = res + acc * coeffs%c4(1,4)
case default
res = 0.0_ki
end select
end function contract_b_tensor_5
!****f* src/interface/tens_comb/contract_c_tensor_5
! NAME
!
! Function contract_c_tensor_5
!
! USAGE
!
! ans = contract_c_tensor_5(coeffs, momenta)
!
! DESCRIPTION
!
! Contracts the a set of coefficients with an C-type tensor
! of rank 5 constructed from a given set of momenta.
!
! INPUTS
!
! * coeffs -- coefficients of type(coeff_type_5)
! * momenta -- real array of dimension(:,3) containing the
! momenta r_i of the loop propagators
!
! RETURN VALUE
!
! The result of the contraction which is a complex number
!
! SIDE EFFECTS
!
! None
!
! EXAMPLE
!
!
!*****
pure function contract_c_tensor_5(coeffs, momenta) result(res)
! generated by: write_function_c_tensor_contract
implicit none
type(coeff_type_5), intent(in) :: coeffs
real(ki), dimension(:,0:), intent(in), optional :: momenta
complex(ki) :: res
integer :: rk
real(ki) :: acc
if (present(momenta)) then
rk = size(momenta, 1)
else
rk = 0
end if
select case(rk)
case(0)
res = -coeffs%c2(1,6)
res = res - coeffs%c2(2,6)
res = res - coeffs%c2(3,6)
res = res + coeffs%c2(4,6)
res = res + coeffs%c2(5,6)
res = res + coeffs%c2(6,6)
acc = 3
res = res + acc * coeffs%c1(1,4)
acc = 3
res = res + acc * coeffs%c1(2,4)
acc = 3
res = res + acc * coeffs%c1(3,4)
acc = 3
res = res + acc * coeffs%c1(4,4)
case(1)
acc = -3*momenta(1,0)
res = acc * coeffs%c2(1,9)
acc = -3*momenta(1,0)
res = res + acc * coeffs%c2(2,9)
acc = -3*momenta(1,0)
res = res + acc * coeffs%c2(3,9)
acc = 3*momenta(1,1)
res = res + acc * coeffs%c2(4,9)
acc = 3*momenta(1,1)
res = res + acc * coeffs%c2(5,9)
acc = 3*momenta(1,2)
res = res + acc * coeffs%c2(6,9)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c2(1,4)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c2(2,4)
acc = 3*momenta(1,0)
res = res + acc * coeffs%c2(3,4)
acc = 3*momenta(1,1)
res = res + acc * coeffs%c2(4,4)
acc = 3*momenta(1,1)
res = res + acc * coeffs%c2(5,4)
acc = 3*momenta(1,2)
res = res + acc * coeffs%c2(6,4)
acc = momenta(1,0)
res = res + acc * coeffs%c3(1,5)
acc = momenta(1,0)
res = res + acc * coeffs%c3(2,5)
acc = momenta(1,0)
res = res + acc * coeffs%c3(3,5)
acc = momenta(1,1)
res = res + acc * coeffs%c3(4,5)
acc = 15*momenta(1,0)
res = res + acc * coeffs%c1(1,5)
acc = 15*momenta(1,1)
res = res + acc * coeffs%c1(2,5)
acc = 15*momenta(1,2)
res = res + acc * coeffs%c1(3,5)
acc = 15*momenta(1,3)
res = res + acc * coeffs%c1(4,5)
acc = -3*momenta(1,1)
res = res + acc * coeffs%c2(1,7)
acc = -3*momenta(1,2)
res = res + acc * coeffs%c2(2,7)
acc = -3*momenta(1,3)
res = res + acc * coeffs%c2(3,7)
acc = 3*momenta(1,2)
res = res + acc * coeffs%c2(4,7)
acc = 3*momenta(1,3)
res = res + acc * coeffs%c2(5,7)
acc = 3*momenta(1,3)
res = res + acc * coeffs%c2(6,7)
acc = -momenta(1,1)
res = res + acc * coeffs%c3(1,8)
acc = -momenta(1,1)
res = res + acc * coeffs%c3(2,8)
acc = -momenta(1,2)
res = res + acc * coeffs%c3(3,8)
acc = momenta(1,2)
res = res + acc * coeffs%c3(4,8)
acc = 3*momenta(1,1)
res = res + acc * coeffs%c2(1,10)
acc = 3*momenta(1,2)
res = res + acc * coeffs%c2(2,10)
acc = 3*momenta(1,3)
res = res + acc * coeffs%c2(3,10)
acc = 3*momenta(1,2)
res = res + acc * coeffs%c2(4,10)
acc = 3*momenta(1,3)
res = res + acc * coeffs%c2(5,10)
acc = 3*momenta(1,3)
res = res + acc * coeffs%c2(6,10)
acc = -momenta(1,2)
res = res + acc * coeffs%c3(1,9)
acc = -momenta(1,3)
res = res + acc * coeffs%c3(2,9)
acc = -momenta(1,3)
res = res + acc * coeffs%c3(3,9)
acc = momenta(1,3)
res = res + acc * coeffs%c3(4,9)
case default
res = 0.0_ki
end select
end function contract_c_tensor_5
end module tens_comb
diff --git a/golem95c-1.2.1/interface/tens_rec.f90 b/golem95c-1.2.1/interface/tens_rec.f90
index 1cbd805..987bd55 100644
--- a/golem95c-1.2.1/interface/tens_rec.f90
+++ b/golem95c-1.2.1/interface/tens_rec.f90
@@ -1,6177 +1,8469 @@
!****h* src/interface/tens_rec
! NAME
!
! Module tens_rec
!
! USAGE
!
! use tens_rec
!
! DESCRIPTION
!
! This module offers the possibility of reconstructing the tensor
! coefficients that have to be contracted with tensor integrals in
! order to reproduce a diagram, which has been specified by a set
! of denominators and a numerator N(q, mu^2). This module is typically
! used in connection with the module tens_comb.
!
! Please, note that this module is generated by a script and should not
! be modified manually. In order to make changes to this module rerun
! the Python script
!
! tool/tens_rec/tens.py
!
! USES
!
! * precision_golem (src/module/precision_golem.f90)
!
!*****
module tens_rec
use precision_golem, only: ki
implicit none
private :: ki
real(ki), dimension(0:3), parameter, private :: null_vec = &
& (/0.0_ki,0.0_ki,0.0_ki,0.0_ki/)
real(ki), dimension(1,1), parameter, private :: mat1_1 = &
& reshape((/&
&1.0_ki/3.0_ki/),&
& (/1,1/), order=(/2,1/))
real(ki), dimension(1,1), parameter, private :: q1_1 = &
& reshape((/&
&3.0_ki/),&
& (/1,1/), order=(/2,1/))
real(ki), dimension(2,2), parameter, private :: mat2_1 = &
& reshape((/&
&5.0_ki/6.0_ki,-3.0_ki/10.0_ki,-1.0_ki/6.0_ki,1.0_ki/10.0_ki/),&
& (/2,2/), order=(/2,1/))
real(ki), dimension(2,1), parameter, private :: q2_1 = &
& reshape((/&
&3.0_ki,5.0_ki/),&
& (/2,1/), order=(/2,1/))
real(ki), dimension(1,1), parameter, private :: mat2_2 = &
& reshape((/&
&1.0_ki/9.0_ki/),&
& (/1,1/), order=(/2,1/))
real(ki), dimension(1,2), parameter, private :: q2_2 = &
& reshape((/&
&3.0_ki,3.0_ki/),&
& (/1,2/), order=(/2,1/))
real(ki), dimension(3,3), parameter, private :: mat3_1 = &
& reshape((/&
&35.0_ki/24.0_ki,-21.0_ki/20.0_ki,15.0_ki/56.0_ki,-1.0_ki/2.0_ki,1.0_ki/2.0_ki, &
&-1.0_ki/7.0_ki,1.0_ki/24.0_ki,-1.0_ki/20.0_ki,1.0_ki/56.0_ki/),&
& (/3,3/), order=(/2,1/))
real(ki), dimension(3,1), parameter, private :: q3_1 = &
& reshape((/&
&3.0_ki,5.0_ki,7.0_ki/),&
& (/3,1/), order=(/2,1/))
real(ki), dimension(3,3), parameter, private :: mat3_2 = &
& reshape((/&
&4.0_ki/9.0_ki,-1.0_ki/10.0_ki,-1.0_ki/10.0_ki,-1.0_ki/18.0_ki,1.0_ki/30.0_ki, &
&0.0_ki,-1.0_ki/18.0_ki,0.0_ki,1.0_ki/30.0_ki/),&
& (/3,3/), order=(/2,1/))
real(ki), dimension(3,2), parameter, private :: q3_2 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki/),&
& (/3,2/), order=(/2,1/))
real(ki), dimension(1,1), parameter, private :: mat3_3 = &
& reshape((/&
&1.0_ki/27.0_ki/),&
& (/1,1/), order=(/2,1/))
real(ki), dimension(1,3), parameter, private :: q3_3 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki/),&
& (/1,3/), order=(/2,1/))
real(ki), dimension(4,4), parameter, private :: mat4_1 = &
& reshape((/&
&385.0_ki/192.0_ki,-77.0_ki/40.0_ki,165.0_ki/224.0_ki,-35.0_ki/704.0_ki, &
&-167.0_ki/192.0_ki,131.0_ki/120.0_ki,-103.0_ki/224.0_ki,71.0_ki/2112.0_ki, &
&23.0_ki/192.0_ki,-7.0_ki/40.0_ki,19.0_ki/224.0_ki,-5.0_ki/704.0_ki, &
&-1.0_ki/192.0_ki,1.0_ki/120.0_ki,-1.0_ki/224.0_ki,1.0_ki/2112.0_ki/),&
& (/4,4/), order=(/2,1/))
real(ki), dimension(4,1), parameter, private :: q4_1 = &
& reshape((/&
&3.0_ki,5.0_ki,7.0_ki,11.0_ki/),&
& (/4,1/), order=(/2,1/))
real(ki), dimension(6,6), parameter, private :: mat4_2 = &
& reshape((/&
&10.0_ki/9.0_ki,-1.0_ki/2.0_ki,5.0_ki/56.0_ki,-1.0_ki/2.0_ki,9.0_ki/100.0_ki, &
&5.0_ki/56.0_ki,-1.0_ki/4.0_ki,13.0_ki/60.0_ki,-1.0_ki/21.0_ki,1.0_ki/20.0_ki, &
&-3.0_ki/100.0_ki,0.0_ki,1.0_ki/72.0_ki,-1.0_ki/60.0_ki,1.0_ki/168.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,-1.0_ki/4.0_ki,1.0_ki/20.0_ki,0.0_ki,13.0_ki/60.0_ki, &
&-3.0_ki/100.0_ki,-1.0_ki/21.0_ki,1.0_ki/36.0_ki,-1.0_ki/60.0_ki,0.0_ki, &
&-1.0_ki/60.0_ki,1.0_ki/100.0_ki,0.0_ki,1.0_ki/72.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/60.0_ki,0.0_ki,1.0_ki/168.0_ki/),&
& (/6,6/), order=(/2,1/))
real(ki), dimension(6,2), parameter, private :: q4_2 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki,7.0_ki, &
&3.0_ki/),&
& (/6,2/), order=(/2,1/))
real(ki), dimension(4,4), parameter, private :: mat4_3 = &
& reshape((/&
&11.0_ki/54.0_ki,-1.0_ki/30.0_ki,-1.0_ki/30.0_ki,-1.0_ki/30.0_ki, &
&-1.0_ki/54.0_ki,1.0_ki/90.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,0.0_ki, &
&1.0_ki/90.0_ki,0.0_ki,-1.0_ki/54.0_ki,0.0_ki,0.0_ki,1.0_ki/90.0_ki/),&
& (/4,4/), order=(/2,1/))
real(ki), dimension(4,3), parameter, private :: q4_3 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki, &
&3.0_ki/),&
& (/4,3/), order=(/2,1/))
real(ki), dimension(1,1), parameter, private :: mat4_4 = &
& reshape((/&
&1.0_ki/81.0_ki/),&
& (/1,1/), order=(/2,1/))
real(ki), dimension(1,4), parameter, private :: q4_4 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki/),&
& (/1,4/), order=(/2,1/))
real(ki), dimension(5,5), parameter, private :: mat5_1 = &
& reshape((/&
&1001.0_ki/384.0_ki,-1001.0_ki/320.0_ki,715.0_ki/448.0_ki,-455.0_ki/1408.0_ki, &
&77.0_ki/832.0_ki,-213.0_ki/160.0_ki,967.0_ki/480.0_ki,-47.0_ki/42.0_ki, &
&257.0_ki/1056.0_ki,-443.0_ki/6240.0_ki,233.0_ki/960.0_ki,-101.0_ki/240.0_ki, &
&25.0_ki/96.0_ki,-133.0_ki/2112.0_ki,59.0_ki/3120.0_ki,-3.0_ki/160.0_ki, &
&17.0_ki/480.0_ki,-1.0_ki/42.0_ki,7.0_ki/1056.0_ki,-1.0_ki/480.0_ki, &
&1.0_ki/1920.0_ki,-1.0_ki/960.0_ki,1.0_ki/1344.0_ki,-1.0_ki/4224.0_ki, &
&1.0_ki/12480.0_ki/),&
& (/5,5/), order=(/2,1/))
real(ki), dimension(5,1), parameter, private :: q5_1 = &
& reshape((/&
&3.0_ki,5.0_ki,7.0_ki,11.0_ki,13.0_ki/),&
& (/5,1/), order=(/2,1/))
real(ki), dimension(10,10), parameter, private :: mat5_2 = &
& reshape((/&
&605.0_ki/288.0_ki,-65.0_ki/48.0_ki,85.0_ki/224.0_ki,-35.0_ki/2112.0_ki, &
&-65.0_ki/48.0_ki,27.0_ki/50.0_ki,-9.0_ki/112.0_ki,85.0_ki/224.0_ki, &
&-9.0_ki/112.0_ki,-35.0_ki/2112.0_ki,-371.0_ki/576.0_ki,487.0_ki/720.0_ki, &
&-151.0_ki/672.0_ki,71.0_ki/6336.0_ki,11.0_ki/40.0_ki,-9.0_ki/40.0_ki, &
&3.0_ki/70.0_ki,-5.0_ki/112.0_ki,3.0_ki/112.0_ki,0.0_ki,35.0_ki/576.0_ki, &
&-1.0_ki/12.0_ki,25.0_ki/672.0_ki,-5.0_ki/2112.0_ki,-1.0_ki/80.0_ki, &
&3.0_ki/200.0_ki,-3.0_ki/560.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/576.0_ki, &
&1.0_ki/360.0_ki,-1.0_ki/672.0_ki,1.0_ki/6336.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,-371.0_ki/576.0_ki,11.0_ki/40.0_ki,-5.0_ki/112.0_ki,0.0_ki, &
&487.0_ki/720.0_ki,-9.0_ki/40.0_ki,3.0_ki/112.0_ki,-151.0_ki/672.0_ki, &
&3.0_ki/70.0_ki,71.0_ki/6336.0_ki,5.0_ki/36.0_ki,-7.0_ki/60.0_ki, &
&1.0_ki/42.0_ki,0.0_ki,-7.0_ki/60.0_ki,9.0_ki/100.0_ki,-1.0_ki/70.0_ki, &
&1.0_ki/42.0_ki,-1.0_ki/70.0_ki,0.0_ki,-1.0_ki/144.0_ki,1.0_ki/120.0_ki, &
&-1.0_ki/336.0_ki,0.0_ki,1.0_ki/240.0_ki,-1.0_ki/200.0_ki,1.0_ki/560.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,35.0_ki/576.0_ki,-1.0_ki/80.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/12.0_ki,3.0_ki/200.0_ki,0.0_ki,25.0_ki/672.0_ki,-3.0_ki/560.0_ki, &
&-5.0_ki/2112.0_ki,-1.0_ki/144.0_ki,1.0_ki/240.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/120.0_ki,-1.0_ki/200.0_ki,0.0_ki,-1.0_ki/336.0_ki,1.0_ki/560.0_ki, &
&0.0_ki,-1.0_ki/576.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/672.0_ki,0.0_ki,1.0_ki/6336.0_ki/),&
& (/10,10/), order=(/2,1/))
real(ki), dimension(10,2), parameter, private :: q5_2 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,11.0_ki,5.0_ki,3.0_ki,5.0_ki, &
&5.0_ki,5.0_ki,7.0_ki,7.0_ki,3.0_ki,7.0_ki,5.0_ki,11.0_ki,3.0_ki/),&
& (/10,2/), order=(/2,1/))
real(ki), dimension(10,10), parameter, private :: mat5_3 = &
& reshape((/&
&143.0_ki/216.0_ki,-13.0_ki/60.0_ki,5.0_ki/168.0_ki,-13.0_ki/60.0_ki, &
&3.0_ki/100.0_ki,5.0_ki/168.0_ki,-13.0_ki/60.0_ki,3.0_ki/100.0_ki, &
&3.0_ki/100.0_ki,5.0_ki/168.0_ki,-1.0_ki/9.0_ki,4.0_ki/45.0_ki,-1.0_ki/63.0_ki, &
&1.0_ki/60.0_ki,-1.0_ki/100.0_ki,0.0_ki,1.0_ki/60.0_ki,-1.0_ki/100.0_ki,0.0_ki, &
&0.0_ki,1.0_ki/216.0_ki,-1.0_ki/180.0_ki,1.0_ki/504.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/9.0_ki,1.0_ki/60.0_ki,0.0_ki, &
&4.0_ki/45.0_ki,-1.0_ki/100.0_ki,-1.0_ki/63.0_ki,1.0_ki/60.0_ki,0.0_ki, &
&-1.0_ki/100.0_ki,0.0_ki,1.0_ki/108.0_ki,-1.0_ki/180.0_ki,0.0_ki, &
&-1.0_ki/180.0_ki,1.0_ki/300.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/216.0_ki,0.0_ki,0.0_ki,-1.0_ki/180.0_ki,0.0_ki,1.0_ki/504.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,-1.0_ki/9.0_ki,1.0_ki/60.0_ki,0.0_ki,1.0_ki/60.0_ki, &
&0.0_ki,0.0_ki,4.0_ki/45.0_ki,-1.0_ki/100.0_ki,-1.0_ki/100.0_ki, &
&-1.0_ki/63.0_ki,1.0_ki/108.0_ki,-1.0_ki/180.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/180.0_ki,1.0_ki/300.0_ki,0.0_ki,0.0_ki,1.0_ki/108.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/180.0_ki,0.0_ki,0.0_ki,-1.0_ki/180.0_ki,0.0_ki,1.0_ki/300.0_ki,0.0_ki, &
&1.0_ki/216.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/180.0_ki,0.0_ki, &
&0.0_ki,1.0_ki/504.0_ki/),&
& (/10,10/), order=(/2,1/))
real(ki), dimension(10,3), parameter, private :: q5_3 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki, &
&3.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki, &
&3.0_ki,5.0_ki,5.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki/),&
& (/10,3/), order=(/2,1/))
real(ki), dimension(5,5), parameter, private :: mat5_4 = &
& reshape((/&
&7.0_ki/81.0_ki,-1.0_ki/90.0_ki,-1.0_ki/90.0_ki,-1.0_ki/90.0_ki, &
&-1.0_ki/90.0_ki,-1.0_ki/162.0_ki,1.0_ki/270.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/162.0_ki,0.0_ki,1.0_ki/270.0_ki,0.0_ki,0.0_ki,-1.0_ki/162.0_ki,0.0_ki, &
&0.0_ki,1.0_ki/270.0_ki,0.0_ki,-1.0_ki/162.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/270.0_ki/),&
& (/5,5/), order=(/2,1/))
real(ki), dimension(5,4), parameter, private :: q5_4 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki, &
&3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki/),&
& (/5,4/), order=(/2,1/))
real(ki), dimension(6,6), parameter, private :: mat6_1 = &
& reshape((/&
&2431.0_ki/768.0_ki,-17017.0_ki/3840.0_ki,2431.0_ki/896.0_ki, &
&-7735.0_ki/8448.0_ki,1309.0_ki/3328.0_ki,-143.0_ki/6528.0_ki, &
&-48457.0_ki/26880.0_ki,35881.0_ki/11520.0_ki,-3959.0_ki/1920.0_ki, &
&18841.0_ki/25344.0_ki,-16217.0_ki/49920.0_ki,12673.0_ki/685440.0_ki, &
&5239.0_ki/13440.0_ki,-489.0_ki/640.0_ki,3727.0_ki/6720.0_ki, &
&-925.0_ki/4224.0_ki,2449.0_ki/24960.0_ki,-659.0_ki/114240.0_ki, &
&-77.0_ki/1920.0_ki,491.0_ki/5760.0_ki,-149.0_ki/2240.0_ki,371.0_ki/12672.0_ki, &
&-113.0_ki/8320.0_ki,41.0_ki/48960.0_ki,53.0_ki/26880.0_ki,-17.0_ki/3840.0_ki, &
&7.0_ki/1920.0_ki,-5.0_ki/2816.0_ki,43.0_ki/49920.0_ki,-13.0_ki/228480.0_ki, &
&-1.0_ki/26880.0_ki,1.0_ki/11520.0_ki,-1.0_ki/13440.0_ki,1.0_ki/25344.0_ki, &
&-1.0_ki/49920.0_ki,1.0_ki/685440.0_ki/),&
& (/6,6/), order=(/2,1/))
real(ki), dimension(6,1), parameter, private :: q6_1 = &
& reshape((/&
&3.0_ki,5.0_ki,7.0_ki,11.0_ki,13.0_ki,17.0_ki/),&
& (/6,1/), order=(/2,1/))
real(ki), dimension(15,15), parameter, private :: mat6_2 = &
& reshape((/&
&1981.0_ki/576.0_ki,-1085.0_ki/384.0_ki,205.0_ki/192.0_ki,-35.0_ki/264.0_ki, &
&77.0_ki/2496.0_ki,-1085.0_ki/384.0_ki,651.0_ki/400.0_ki,-27.0_ki/64.0_ki, &
&21.0_ki/1408.0_ki,205.0_ki/192.0_ki,-27.0_ki/64.0_ki,225.0_ki/3136.0_ki, &
&-35.0_ki/264.0_ki,21.0_ki/1408.0_ki,77.0_ki/2496.0_ki,-1231.0_ki/960.0_ki, &
&9127.0_ki/5760.0_ki,-2791.0_ki/4032.0_ki,1241.0_ki/12672.0_ki, &
&-443.0_ki/18720.0_ki,1501.0_ki/1920.0_ki,-79.0_ki/100.0_ki,549.0_ki/2240.0_ki, &
&-71.0_ki/7040.0_ki,-95.0_ki/448.0_ki,81.0_ki/448.0_ki,-15.0_ki/392.0_ki, &
&35.0_ki/4224.0_ki,-7.0_ki/1408.0_ki,0.0_ki,961.0_ki/5760.0_ki, &
&-373.0_ki/1440.0_ki,283.0_ki/2016.0_ki,-311.0_ki/12672.0_ki,59.0_ki/9360.0_ki, &
&-43.0_ki/640.0_ki,9.0_ki/100.0_ki,-87.0_ki/2240.0_ki,3.0_ki/1408.0_ki, &
&5.0_ki/448.0_ki,-3.0_ki/224.0_ki,15.0_ki/3136.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-17.0_ki/1920.0_ki,23.0_ki/1440.0_ki,-41.0_ki/4032.0_ki,31.0_ki/12672.0_ki, &
&-1.0_ki/1440.0_ki,1.0_ki/640.0_ki,-1.0_ki/400.0_ki,3.0_ki/2240.0_ki, &
&-1.0_ki/7040.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/5760.0_ki, &
&-1.0_ki/2880.0_ki,1.0_ki/4032.0_ki,-1.0_ki/12672.0_ki,1.0_ki/37440.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1231.0_ki/960.0_ki,1501.0_ki/1920.0_ki,-95.0_ki/448.0_ki,35.0_ki/4224.0_ki, &
&0.0_ki,9127.0_ki/5760.0_ki,-79.0_ki/100.0_ki,81.0_ki/448.0_ki, &
&-7.0_ki/1408.0_ki,-2791.0_ki/4032.0_ki,549.0_ki/2240.0_ki,-15.0_ki/392.0_ki, &
&1241.0_ki/12672.0_ki,-71.0_ki/7040.0_ki,-443.0_ki/18720.0_ki, &
&215.0_ki/576.0_ki,-2221.0_ki/5760.0_ki,167.0_ki/1344.0_ki,-71.0_ki/12672.0_ki, &
&0.0_ki,-2221.0_ki/5760.0_ki,221.0_ki/600.0_ki,-33.0_ki/320.0_ki, &
&71.0_ki/21120.0_ki,167.0_ki/1344.0_ki,-33.0_ki/320.0_ki,1.0_ki/49.0_ki, &
&-71.0_ki/12672.0_ki,71.0_ki/21120.0_ki,0.0_ki,-13.0_ki/384.0_ki, &
&11.0_ki/240.0_ki,-9.0_ki/448.0_ki,5.0_ki/4224.0_ki,0.0_ki,11.0_ki/384.0_ki, &
&-3.0_ki/80.0_ki,1.0_ki/64.0_ki,-1.0_ki/1408.0_ki,-1.0_ki/168.0_ki, &
&1.0_ki/140.0_ki,-1.0_ki/392.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1152.0_ki, &
&-1.0_ki/720.0_ki,1.0_ki/1344.0_ki,-1.0_ki/12672.0_ki,0.0_ki,-1.0_ki/1920.0_ki, &
&1.0_ki/1200.0_ki,-1.0_ki/2240.0_ki,1.0_ki/21120.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,961.0_ki/5760.0_ki,-43.0_ki/640.0_ki,5.0_ki/448.0_ki, &
&0.0_ki,0.0_ki,-373.0_ki/1440.0_ki,9.0_ki/100.0_ki,-3.0_ki/224.0_ki,0.0_ki, &
&283.0_ki/2016.0_ki,-87.0_ki/2240.0_ki,15.0_ki/3136.0_ki,-311.0_ki/12672.0_ki, &
&3.0_ki/1408.0_ki,59.0_ki/9360.0_ki,-13.0_ki/384.0_ki,11.0_ki/384.0_ki, &
&-1.0_ki/168.0_ki,0.0_ki,0.0_ki,11.0_ki/240.0_ki,-3.0_ki/80.0_ki, &
&1.0_ki/140.0_ki,0.0_ki,-9.0_ki/448.0_ki,1.0_ki/64.0_ki,-1.0_ki/392.0_ki, &
&5.0_ki/4224.0_ki,-1.0_ki/1408.0_ki,0.0_ki,1.0_ki/576.0_ki,-1.0_ki/480.0_ki, &
&1.0_ki/1344.0_ki,0.0_ki,0.0_ki,-1.0_ki/480.0_ki,1.0_ki/400.0_ki, &
&-1.0_ki/1120.0_ki,0.0_ki,1.0_ki/1344.0_ki,-1.0_ki/1120.0_ki,1.0_ki/3136.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,-17.0_ki/1920.0_ki,1.0_ki/640.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&23.0_ki/1440.0_ki,-1.0_ki/400.0_ki,0.0_ki,0.0_ki,-41.0_ki/4032.0_ki, &
&3.0_ki/2240.0_ki,0.0_ki,31.0_ki/12672.0_ki,-1.0_ki/7040.0_ki, &
&-1.0_ki/1440.0_ki,1.0_ki/1152.0_ki,-1.0_ki/1920.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/720.0_ki,1.0_ki/1200.0_ki,0.0_ki,0.0_ki,1.0_ki/1344.0_ki, &
&-1.0_ki/2240.0_ki,0.0_ki,-1.0_ki/12672.0_ki,1.0_ki/21120.0_ki,0.0_ki, &
&1.0_ki/5760.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/2880.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki,-1.0_ki/12672.0_ki,0.0_ki, &
&1.0_ki/37440.0_ki/),&
& (/15,15/), order=(/2,1/))
real(ki), dimension(15,2), parameter, private :: q6_2 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,11.0_ki,3.0_ki,13.0_ki, &
&5.0_ki,3.0_ki,5.0_ki,5.0_ki,5.0_ki,7.0_ki,5.0_ki,11.0_ki,7.0_ki,3.0_ki,7.0_ki, &
&5.0_ki,7.0_ki,7.0_ki,11.0_ki,3.0_ki,11.0_ki,5.0_ki,13.0_ki,3.0_ki/),&
& (/15,2/), order=(/2,1/))
real(ki), dimension(20,20), parameter, private :: mat6_3 = &
& reshape((/&
&2755.0_ki/1728.0_ki,-55.0_ki/72.0_ki,115.0_ki/672.0_ki,-35.0_ki/6336.0_ki, &
&-55.0_ki/72.0_ki,9.0_ki/40.0_ki,-3.0_ki/112.0_ki,115.0_ki/672.0_ki, &
&-3.0_ki/112.0_ki,-35.0_ki/6336.0_ki,-55.0_ki/72.0_ki,9.0_ki/40.0_ki, &
&-3.0_ki/112.0_ki,9.0_ki/40.0_ki,-27.0_ki/1000.0_ki,-3.0_ki/112.0_ki, &
&115.0_ki/672.0_ki,-3.0_ki/112.0_ki,-3.0_ki/112.0_ki,-35.0_ki/6336.0_ki, &
&-647.0_ki/1728.0_ki,383.0_ki/1080.0_ki,-199.0_ki/2016.0_ki,71.0_ki/19008.0_ki, &
&7.0_ki/60.0_ki,-9.0_ki/100.0_ki,1.0_ki/70.0_ki,-5.0_ki/336.0_ki, &
&1.0_ki/112.0_ki,0.0_ki,7.0_ki/60.0_ki,-9.0_ki/100.0_ki,1.0_ki/70.0_ki, &
&-3.0_ki/200.0_ki,9.0_ki/1000.0_ki,0.0_ki,-5.0_ki/336.0_ki,1.0_ki/112.0_ki, &
&0.0_ki,0.0_ki,47.0_ki/1728.0_ki,-13.0_ki/360.0_ki,31.0_ki/2016.0_ki, &
&-5.0_ki/6336.0_ki,-1.0_ki/240.0_ki,1.0_ki/200.0_ki,-1.0_ki/560.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,-1.0_ki/240.0_ki,1.0_ki/200.0_ki,-1.0_ki/560.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1728.0_ki,1.0_ki/1080.0_ki, &
&-1.0_ki/2016.0_ki,1.0_ki/19008.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-647.0_ki/1728.0_ki,7.0_ki/60.0_ki,-5.0_ki/336.0_ki,0.0_ki,383.0_ki/1080.0_ki, &
&-9.0_ki/100.0_ki,1.0_ki/112.0_ki,-199.0_ki/2016.0_ki,1.0_ki/70.0_ki, &
&71.0_ki/19008.0_ki,7.0_ki/60.0_ki,-3.0_ki/200.0_ki,0.0_ki,-9.0_ki/100.0_ki, &
&9.0_ki/1000.0_ki,1.0_ki/70.0_ki,-5.0_ki/336.0_ki,0.0_ki,1.0_ki/112.0_ki, &
&0.0_ki,13.0_ki/216.0_ki,-17.0_ki/360.0_ki,1.0_ki/126.0_ki,0.0_ki, &
&-17.0_ki/360.0_ki,7.0_ki/200.0_ki,-1.0_ki/210.0_ki,1.0_ki/126.0_ki, &
&-1.0_ki/210.0_ki,0.0_ki,-1.0_ki/120.0_ki,1.0_ki/200.0_ki,0.0_ki, &
&1.0_ki/200.0_ki,-3.0_ki/1000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/432.0_ki,1.0_ki/360.0_ki,-1.0_ki/1008.0_ki,0.0_ki,1.0_ki/720.0_ki, &
&-1.0_ki/600.0_ki,1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,47.0_ki/1728.0_ki, &
&-1.0_ki/240.0_ki,0.0_ki,0.0_ki,-13.0_ki/360.0_ki,1.0_ki/200.0_ki,0.0_ki, &
&31.0_ki/2016.0_ki,-1.0_ki/560.0_ki,-5.0_ki/6336.0_ki,-1.0_ki/240.0_ki,0.0_ki, &
&0.0_ki,1.0_ki/200.0_ki,0.0_ki,-1.0_ki/560.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/432.0_ki,1.0_ki/720.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki, &
&-1.0_ki/600.0_ki,0.0_ki,-1.0_ki/1008.0_ki,1.0_ki/1680.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/1728.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/2016.0_ki,0.0_ki,1.0_ki/19008.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-647.0_ki/1728.0_ki,7.0_ki/60.0_ki, &
&-5.0_ki/336.0_ki,0.0_ki,7.0_ki/60.0_ki,-3.0_ki/200.0_ki,0.0_ki, &
&-5.0_ki/336.0_ki,0.0_ki,0.0_ki,383.0_ki/1080.0_ki,-9.0_ki/100.0_ki, &
&1.0_ki/112.0_ki,-9.0_ki/100.0_ki,9.0_ki/1000.0_ki,1.0_ki/112.0_ki, &
&-199.0_ki/2016.0_ki,1.0_ki/70.0_ki,1.0_ki/70.0_ki,71.0_ki/19008.0_ki, &
&13.0_ki/216.0_ki,-17.0_ki/360.0_ki,1.0_ki/126.0_ki,0.0_ki,-1.0_ki/120.0_ki, &
&1.0_ki/200.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-17.0_ki/360.0_ki,7.0_ki/200.0_ki, &
&-1.0_ki/210.0_ki,1.0_ki/200.0_ki,-3.0_ki/1000.0_ki,0.0_ki,1.0_ki/126.0_ki, &
&-1.0_ki/210.0_ki,0.0_ki,0.0_ki,-1.0_ki/432.0_ki,1.0_ki/360.0_ki, &
&-1.0_ki/1008.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/720.0_ki,-1.0_ki/600.0_ki,1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,13.0_ki/216.0_ki,-1.0_ki/120.0_ki,0.0_ki,0.0_ki, &
&-17.0_ki/360.0_ki,1.0_ki/200.0_ki,0.0_ki,1.0_ki/126.0_ki,0.0_ki,0.0_ki, &
&-17.0_ki/360.0_ki,1.0_ki/200.0_ki,0.0_ki,7.0_ki/200.0_ki,-3.0_ki/1000.0_ki, &
&-1.0_ki/210.0_ki,1.0_ki/126.0_ki,0.0_ki,-1.0_ki/210.0_ki,0.0_ki, &
&-1.0_ki/216.0_ki,1.0_ki/360.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki, &
&-1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki,-1.0_ki/600.0_ki, &
&0.0_ki,-1.0_ki/600.0_ki,1.0_ki/1000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/432.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/1008.0_ki,0.0_ki,0.0_ki,1.0_ki/720.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/600.0_ki,0.0_ki,1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&47.0_ki/1728.0_ki,-1.0_ki/240.0_ki,0.0_ki,0.0_ki,-1.0_ki/240.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-13.0_ki/360.0_ki,1.0_ki/200.0_ki,0.0_ki, &
&1.0_ki/200.0_ki,0.0_ki,0.0_ki,31.0_ki/2016.0_ki,-1.0_ki/560.0_ki, &
&-1.0_ki/560.0_ki,-5.0_ki/6336.0_ki,-1.0_ki/432.0_ki,1.0_ki/720.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki, &
&-1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1008.0_ki, &
&1.0_ki/1680.0_ki,0.0_ki,0.0_ki,-1.0_ki/432.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/720.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/360.0_ki,0.0_ki, &
&0.0_ki,-1.0_ki/600.0_ki,0.0_ki,0.0_ki,-1.0_ki/1008.0_ki,0.0_ki, &
&1.0_ki/1680.0_ki,0.0_ki,-1.0_ki/1728.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,-1.0_ki/2016.0_ki,0.0_ki,0.0_ki,1.0_ki/19008.0_ki/),&
& (/20,20/), order=(/2,1/))
real(ki), dimension(20,3), parameter, private :: q6_3 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki, &
&11.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki, &
&7.0_ki,3.0_ki,3.0_ki,7.0_ki,5.0_ki,3.0_ki,11.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki, &
&5.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,7.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki, &
&5.0_ki,5.0_ki,7.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,7.0_ki, &
&5.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki/),&
& (/20,3/), order=(/2,1/))
real(ki), dimension(15,15), parameter, private :: mat6_4 = &
& reshape((/&
&28.0_ki/81.0_ki,-4.0_ki/45.0_ki,5.0_ki/504.0_ki,-4.0_ki/45.0_ki, &
&1.0_ki/100.0_ki,5.0_ki/504.0_ki,-4.0_ki/45.0_ki,1.0_ki/100.0_ki, &
&1.0_ki/100.0_ki,5.0_ki/504.0_ki,-4.0_ki/45.0_ki,1.0_ki/100.0_ki, &
&1.0_ki/100.0_ki,1.0_ki/100.0_ki,5.0_ki/504.0_ki,-5.0_ki/108.0_ki, &
&19.0_ki/540.0_ki,-1.0_ki/189.0_ki,1.0_ki/180.0_ki,-1.0_ki/300.0_ki,0.0_ki, &
&1.0_ki/180.0_ki,-1.0_ki/300.0_ki,0.0_ki,0.0_ki,1.0_ki/180.0_ki, &
&-1.0_ki/300.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/648.0_ki,-1.0_ki/540.0_ki, &
&1.0_ki/1512.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-5.0_ki/108.0_ki,1.0_ki/180.0_ki,0.0_ki, &
&19.0_ki/540.0_ki,-1.0_ki/300.0_ki,-1.0_ki/189.0_ki,1.0_ki/180.0_ki,0.0_ki, &
&-1.0_ki/300.0_ki,0.0_ki,1.0_ki/180.0_ki,0.0_ki,-1.0_ki/300.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/324.0_ki,-1.0_ki/540.0_ki,0.0_ki,-1.0_ki/540.0_ki,1.0_ki/900.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/648.0_ki,0.0_ki,0.0_ki,-1.0_ki/540.0_ki,0.0_ki,1.0_ki/1512.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-5.0_ki/108.0_ki, &
&1.0_ki/180.0_ki,0.0_ki,1.0_ki/180.0_ki,0.0_ki,0.0_ki,19.0_ki/540.0_ki, &
&-1.0_ki/300.0_ki,-1.0_ki/300.0_ki,-1.0_ki/189.0_ki,1.0_ki/180.0_ki,0.0_ki, &
&0.0_ki,-1.0_ki/300.0_ki,0.0_ki,1.0_ki/324.0_ki,-1.0_ki/540.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,-1.0_ki/540.0_ki,1.0_ki/900.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,1.0_ki/324.0_ki,0.0_ki,0.0_ki,-1.0_ki/540.0_ki,0.0_ki, &
&0.0_ki,-1.0_ki/540.0_ki,0.0_ki,1.0_ki/900.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,1.0_ki/648.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/540.0_ki,0.0_ki,0.0_ki,1.0_ki/1512.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&0.0_ki,-5.0_ki/108.0_ki,1.0_ki/180.0_ki,0.0_ki,1.0_ki/180.0_ki,0.0_ki,0.0_ki, &
&1.0_ki/180.0_ki,0.0_ki,0.0_ki,0.0_ki,19.0_ki/540.0_ki,-1.0_ki/300.0_ki, &
&-1.0_ki/300.0_ki,-1.0_ki/300.0_ki,-1.0_ki/189.0_ki,1.0_ki/324.0_ki, &
&-1.0_ki/540.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/540.0_ki,1.0_ki/900.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/324.0_ki,0.0_ki, &
&0.0_ki,-1.0_ki/540.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/540.0_ki,0.0_ki,1.0_ki/900.0_ki,0.0_ki,0.0_ki,1.0_ki/324.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/540.0_ki,0.0_ki,0.0_ki,0.0_ki, &
&-1.0_ki/540.0_ki,0.0_ki,0.0_ki,1.0_ki/900.0_ki,0.0_ki,1.0_ki/648.0_ki,0.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/540.0_ki, &
&0.0_ki,0.0_ki,0.0_ki,1.0_ki/1512.0_ki/),&
& (/15,15/), order=(/2,1/))
real(ki), dimension(15,4), parameter, private :: q6_4 = &
& reshape((/&
&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki, &
&7.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,3.0_ki, &
&7.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki, &
&5.0_ki,5.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki, &
&5.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki, &
&3.0_ki,7.0_ki,3.0_ki,3.0_ki,3.0_ki/),&
& (/15,4/), order=(/2,1/))
+real(ki), dimension(7,7), parameter, private :: mat7_1 = &
+& reshape((/&
+&46189.0_ki/12288.0_ki,-46189.0_ki/7680.0_ki,46189.0_ki/10752.0_ki, &
+&-146965.0_ki/67584.0_ki,24871.0_ki/19968.0_ki,-2717.0_ki/13056.0_ki, &
+&12155.0_ki/233472.0_ki,-41907.0_ki/17920.0_ki,73279.0_ki/16128.0_ki, &
+&-140753.0_ki/40320.0_ki,1489.0_ki/792.0_ki,-163879.0_ki/149760.0_ki, &
+&127901.0_ki/685440.0_ki,-28807.0_ki/612864.0_ki,82513.0_ki/143360.0_ki, &
+&-29017.0_ki/23040.0_ki,169339.0_ki/161280.0_ki,-124291.0_ki/202752.0_ki, &
+&109279.0_ki/299520.0_ki,-87799.0_ki/1370880.0_ki,11413.0_ki/700416.0_ki, &
+&-129.0_ki/1792.0_ki,1373.0_ki/8064.0_ki,-611.0_ki/4032.0_ki, &
+&307.0_ki/3168.0_ki,-889.0_ki/14976.0_ki,743.0_ki/68544.0_ki, &
+&-857.0_ki/306432.0_ki,139.0_ki/28672.0_ki,-1951.0_ki/161280.0_ki, &
+&365.0_ki/32256.0_ki,-1597.0_ki/202752.0_ki,23.0_ki/4608.0_ki, &
+&-263.0_ki/274176.0_ki,1237.0_ki/4902912.0_ki,-3.0_ki/17920.0_ki, &
+&1.0_ki/2304.0_ki,-17.0_ki/40320.0_ki,1.0_ki/3168.0_ki,-31.0_ki/149760.0_ki, &
+&29.0_ki/685440.0_ki,-1.0_ki/87552.0_ki,1.0_ki/430080.0_ki,-1.0_ki/161280.0_ki, &
+&1.0_ki/161280.0_ki,-1.0_ki/202752.0_ki,1.0_ki/299520.0_ki, &
+&-1.0_ki/1370880.0_ki,1.0_ki/4902912.0_ki/),&
+& (/7,7/), order=(/2,1/))
+real(ki), dimension(7,1), parameter, private :: q7_1 = &
+& reshape((/&
+&3.0_ki,5.0_ki,7.0_ki,11.0_ki,13.0_ki,17.0_ki,19.0_ki/),&
+& (/7,1/), order=(/2,1/))
+real(ki), dimension(21,21), parameter, private :: mat7_2 = &
+& reshape((/&
+&11743.0_ki/2304.0_ki,-57589.0_ki/11520.0_ki,3547.0_ki/1536.0_ki, &
+&-25235.0_ki/50688.0_ki,1771.0_ki/9984.0_ki,-143.0_ki/19584.0_ki, &
+&-57589.0_ki/11520.0_ki,5859.0_ki/1600.0_ki,-81.0_ki/64.0_ki, &
+&189.0_ki/1408.0_ki,-231.0_ki/8320.0_ki,3547.0_ki/1536.0_ki,-81.0_ki/64.0_ki, &
+&2025.0_ki/6272.0_ki,-75.0_ki/5632.0_ki,-25235.0_ki/50688.0_ki, &
+&189.0_ki/1408.0_ki,-75.0_ki/5632.0_ki,1771.0_ki/9984.0_ki,-231.0_ki/8320.0_ki, &
+&-143.0_ki/19584.0_ki,-352211.0_ki/161280.0_ki,52901.0_ki/17280.0_ki, &
+&-130021.0_ki/80640.0_ki,59381.0_ki/152064.0_ki,-21533.0_ki/149760.0_ki, &
+&12673.0_ki/2056320.0_ki,32443.0_ki/19200.0_ki,-6339.0_ki/3200.0_ki, &
+&3609.0_ki/4480.0_ki,-1383.0_ki/14080.0_ki,443.0_ki/20800.0_ki, &
+&-6565.0_ki/10752.0_ki,549.0_ki/896.0_ki,-2385.0_ki/12544.0_ki, &
+&355.0_ki/39424.0_ki,595.0_ki/8448.0_ki,-147.0_ki/2816.0_ki,5.0_ki/704.0_ki, &
+&-77.0_ki/4992.0_ki,77.0_ki/8320.0_ki,0.0_ki,28139.0_ki/80640.0_ki, &
+&-2311.0_ki/3840.0_ki,60941.0_ki/161280.0_ki,-5521.0_ki/50688.0_ki, &
+&3157.0_ki/74880.0_ki,-659.0_ki/342720.0_ki,-3823.0_ki/19200.0_ki, &
+&241.0_ki/800.0_ki,-141.0_ki/896.0_ki,31.0_ki/1280.0_ki,-59.0_ki/10400.0_ki, &
+&185.0_ki/3584.0_ki,-9.0_ki/128.0_ki,195.0_ki/6272.0_ki,-75.0_ki/39424.0_ki, &
+&-35.0_ki/16896.0_ki,7.0_ki/2816.0_ki,-5.0_ki/5632.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-599.0_ki/23040.0_ki,887.0_ki/17280.0_ki,-991.0_ki/26880.0_ki, &
+&2033.0_ki/152064.0_ki,-139.0_ki/24960.0_ki,41.0_ki/146880.0_ki, &
+&61.0_ki/6400.0_ki,-27.0_ki/1600.0_ki,47.0_ki/4480.0_ki,-3.0_ki/1280.0_ki, &
+&1.0_ki/1600.0_ki,-5.0_ki/3584.0_ki,1.0_ki/448.0_ki,-15.0_ki/12544.0_ki, &
+&5.0_ki/39424.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&37.0_ki/40320.0_ki,-23.0_ki/11520.0_ki,1.0_ki/630.0_ki,-1.0_ki/1408.0_ki, &
+&49.0_ki/149760.0_ki,-13.0_ki/685440.0_ki,-1.0_ki/6400.0_ki,1.0_ki/3200.0_ki, &
+&-1.0_ki/4480.0_ki,1.0_ki/14080.0_ki,-1.0_ki/41600.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/80640.0_ki, &
+&1.0_ki/34560.0_ki,-1.0_ki/40320.0_ki,1.0_ki/76032.0_ki,-1.0_ki/149760.0_ki, &
+&1.0_ki/2056320.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-352211.0_ki/161280.0_ki, &
+&32443.0_ki/19200.0_ki,-6565.0_ki/10752.0_ki,595.0_ki/8448.0_ki, &
+&-77.0_ki/4992.0_ki,0.0_ki,52901.0_ki/17280.0_ki,-6339.0_ki/3200.0_ki, &
+&549.0_ki/896.0_ki,-147.0_ki/2816.0_ki,77.0_ki/8320.0_ki, &
+&-130021.0_ki/80640.0_ki,3609.0_ki/4480.0_ki,-2385.0_ki/12544.0_ki, &
+&5.0_ki/704.0_ki,59381.0_ki/152064.0_ki,-1383.0_ki/14080.0_ki, &
+&355.0_ki/39424.0_ki,-21533.0_ki/149760.0_ki,443.0_ki/20800.0_ki, &
+&12673.0_ki/2056320.0_ki,557.0_ki/720.0_ki,-6701.0_ki/7200.0_ki, &
+&1583.0_ki/4032.0_ki,-41.0_ki/792.0_ki,443.0_ki/37440.0_ki,0.0_ki, &
+&-6701.0_ki/7200.0_ki,821.0_ki/800.0_ki,-213.0_ki/560.0_ki,133.0_ki/3520.0_ki, &
+&-443.0_ki/62400.0_ki,1583.0_ki/4032.0_ki,-213.0_ki/560.0_ki,87.0_ki/784.0_ki, &
+&-71.0_ki/14784.0_ki,-41.0_ki/792.0_ki,133.0_ki/3520.0_ki,-71.0_ki/14784.0_ki, &
+&443.0_ki/37440.0_ki,-443.0_ki/62400.0_ki,0.0_ki,-2207.0_ki/23040.0_ki, &
+&1693.0_ki/11520.0_ki,-2525.0_ki/32256.0_ki,163.0_ki/12672.0_ki, &
+&-59.0_ki/18720.0_ki,0.0_ki,2789.0_ki/28800.0_ki,-17.0_ki/120.0_ki, &
+&79.0_ki/1120.0_ki,-193.0_ki/21120.0_ki,59.0_ki/31200.0_ki,-163.0_ki/5376.0_ki, &
+&183.0_ki/4480.0_ki,-223.0_ki/12544.0_ki,5.0_ki/4928.0_ki,71.0_ki/50688.0_ki, &
+&-71.0_ki/42240.0_ki,71.0_ki/118272.0_ki,0.0_ki,0.0_ki,0.0_ki,7.0_ki/1440.0_ki, &
+&-5.0_ki/576.0_ki,11.0_ki/2016.0_ki,-1.0_ki/792.0_ki,1.0_ki/2880.0_ki,0.0_ki, &
+&-19.0_ki/4800.0_ki,11.0_ki/1600.0_ki,-1.0_ki/240.0_ki,3.0_ki/3520.0_ki, &
+&-1.0_ki/4800.0_ki,1.0_ki/1344.0_ki,-1.0_ki/840.0_ki,1.0_ki/1568.0_ki, &
+&-1.0_ki/14784.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/11520.0_ki,1.0_ki/5760.0_ki,-1.0_ki/8064.0_ki,1.0_ki/25344.0_ki, &
+&-1.0_ki/74880.0_ki,0.0_ki,1.0_ki/19200.0_ki,-1.0_ki/9600.0_ki, &
+&1.0_ki/13440.0_ki,-1.0_ki/42240.0_ki,1.0_ki/124800.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,28139.0_ki/80640.0_ki, &
+&-3823.0_ki/19200.0_ki,185.0_ki/3584.0_ki,-35.0_ki/16896.0_ki,0.0_ki,0.0_ki, &
+&-2311.0_ki/3840.0_ki,241.0_ki/800.0_ki,-9.0_ki/128.0_ki,7.0_ki/2816.0_ki, &
+&0.0_ki,60941.0_ki/161280.0_ki,-141.0_ki/896.0_ki,195.0_ki/6272.0_ki, &
+&-5.0_ki/5632.0_ki,-5521.0_ki/50688.0_ki,31.0_ki/1280.0_ki,-75.0_ki/39424.0_ki, &
+&3157.0_ki/74880.0_ki,-59.0_ki/10400.0_ki,-659.0_ki/342720.0_ki, &
+&-2207.0_ki/23040.0_ki,2789.0_ki/28800.0_ki,-163.0_ki/5376.0_ki, &
+&71.0_ki/50688.0_ki,0.0_ki,0.0_ki,1693.0_ki/11520.0_ki,-17.0_ki/120.0_ki, &
+&183.0_ki/4480.0_ki,-71.0_ki/42240.0_ki,0.0_ki,-2525.0_ki/32256.0_ki, &
+&79.0_ki/1120.0_ki,-223.0_ki/12544.0_ki,71.0_ki/118272.0_ki, &
+&163.0_ki/12672.0_ki,-193.0_ki/21120.0_ki,5.0_ki/4928.0_ki,-59.0_ki/18720.0_ki, &
+&59.0_ki/31200.0_ki,0.0_ki,19.0_ki/2304.0_ki,-43.0_ki/3840.0_ki, &
+&53.0_ki/10752.0_ki,-5.0_ki/16896.0_ki,0.0_ki,0.0_ki,-43.0_ki/3840.0_ki, &
+&3.0_ki/200.0_ki,-29.0_ki/4480.0_ki,1.0_ki/2816.0_ki,0.0_ki,53.0_ki/10752.0_ki, &
+&-29.0_ki/4480.0_ki,17.0_ki/6272.0_ki,-5.0_ki/39424.0_ki,-5.0_ki/16896.0_ki, &
+&1.0_ki/2816.0_ki,-5.0_ki/39424.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/4608.0_ki, &
+&1.0_ki/2880.0_ki,-1.0_ki/5376.0_ki,1.0_ki/50688.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/3840.0_ki,-1.0_ki/2400.0_ki,1.0_ki/4480.0_ki,-1.0_ki/42240.0_ki,0.0_ki, &
+&-1.0_ki/10752.0_ki,1.0_ki/6720.0_ki,-1.0_ki/12544.0_ki,1.0_ki/118272.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-599.0_ki/23040.0_ki, &
+&61.0_ki/6400.0_ki,-5.0_ki/3584.0_ki,0.0_ki,0.0_ki,0.0_ki,887.0_ki/17280.0_ki, &
+&-27.0_ki/1600.0_ki,1.0_ki/448.0_ki,0.0_ki,0.0_ki,-991.0_ki/26880.0_ki, &
+&47.0_ki/4480.0_ki,-15.0_ki/12544.0_ki,0.0_ki,2033.0_ki/152064.0_ki, &
+&-3.0_ki/1280.0_ki,5.0_ki/39424.0_ki,-139.0_ki/24960.0_ki,1.0_ki/1600.0_ki, &
+&41.0_ki/146880.0_ki,7.0_ki/1440.0_ki,-19.0_ki/4800.0_ki,1.0_ki/1344.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-5.0_ki/576.0_ki,11.0_ki/1600.0_ki,-1.0_ki/840.0_ki, &
+&0.0_ki,0.0_ki,11.0_ki/2016.0_ki,-1.0_ki/240.0_ki,1.0_ki/1568.0_ki,0.0_ki, &
+&-1.0_ki/792.0_ki,3.0_ki/3520.0_ki,-1.0_ki/14784.0_ki,1.0_ki/2880.0_ki, &
+&-1.0_ki/4800.0_ki,0.0_ki,-1.0_ki/4608.0_ki,1.0_ki/3840.0_ki, &
+&-1.0_ki/10752.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/2880.0_ki,-1.0_ki/2400.0_ki, &
+&1.0_ki/6720.0_ki,0.0_ki,0.0_ki,-1.0_ki/5376.0_ki,1.0_ki/4480.0_ki, &
+&-1.0_ki/12544.0_ki,0.0_ki,1.0_ki/50688.0_ki,-1.0_ki/42240.0_ki, &
+&1.0_ki/118272.0_ki,0.0_ki,0.0_ki,0.0_ki,37.0_ki/40320.0_ki,-1.0_ki/6400.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-23.0_ki/11520.0_ki,1.0_ki/3200.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/630.0_ki,-1.0_ki/4480.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1408.0_ki,1.0_ki/14080.0_ki,0.0_ki,49.0_ki/149760.0_ki, &
+&-1.0_ki/41600.0_ki,-13.0_ki/685440.0_ki,-1.0_ki/11520.0_ki,1.0_ki/19200.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/5760.0_ki,-1.0_ki/9600.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,-1.0_ki/8064.0_ki,1.0_ki/13440.0_ki,0.0_ki,0.0_ki,1.0_ki/25344.0_ki, &
+&-1.0_ki/42240.0_ki,0.0_ki,-1.0_ki/74880.0_ki,1.0_ki/124800.0_ki,0.0_ki, &
+&-1.0_ki/80640.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/34560.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/40320.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/76032.0_ki,0.0_ki,0.0_ki,-1.0_ki/149760.0_ki,0.0_ki, &
+&1.0_ki/2056320.0_ki/),&
+& (/21,21/), order=(/2,1/))
+real(ki), dimension(21,2), parameter, private :: q7_2 = &
+& reshape((/&
+&3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,11.0_ki,3.0_ki,13.0_ki, &
+&3.0_ki,17.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki,5.0_ki,7.0_ki,5.0_ki,11.0_ki, &
+&5.0_ki,13.0_ki,7.0_ki,3.0_ki,7.0_ki,5.0_ki,7.0_ki,7.0_ki,7.0_ki,11.0_ki, &
+&11.0_ki,3.0_ki,11.0_ki,5.0_ki,11.0_ki,7.0_ki,13.0_ki,3.0_ki,13.0_ki,5.0_ki, &
+&17.0_ki,3.0_ki/),&
+& (/21,2/), order=(/2,1/))
+real(ki), dimension(35,35), parameter, private :: mat7_3 = &
+& reshape((/&
+&11063.0_ki/3456.0_ki,-143.0_ki/72.0_ki,2425.0_ki/4032.0_ki, &
+&-665.0_ki/12672.0_ki,77.0_ki/7488.0_ki,-143.0_ki/72.0_ki,139.0_ki/160.0_ki, &
+&-81.0_ki/448.0_ki,7.0_ki/1408.0_ki,2425.0_ki/4032.0_ki,-81.0_ki/448.0_ki, &
+&75.0_ki/3136.0_ki,-665.0_ki/12672.0_ki,7.0_ki/1408.0_ki,77.0_ki/7488.0_ki, &
+&-143.0_ki/72.0_ki,139.0_ki/160.0_ki,-81.0_ki/448.0_ki,7.0_ki/1408.0_ki, &
+&139.0_ki/160.0_ki,-459.0_ki/2000.0_ki,27.0_ki/1120.0_ki,-81.0_ki/448.0_ki, &
+&27.0_ki/1120.0_ki,7.0_ki/1408.0_ki,2425.0_ki/4032.0_ki,-81.0_ki/448.0_ki, &
+&75.0_ki/3136.0_ki,-81.0_ki/448.0_ki,27.0_ki/1120.0_ki,75.0_ki/3136.0_ki, &
+&-665.0_ki/12672.0_ki,7.0_ki/1408.0_ki,7.0_ki/1408.0_ki,77.0_ki/7488.0_ki, &
+&-337.0_ki/360.0_ki,8813.0_ki/8640.0_ki,-2255.0_ki/6048.0_ki, &
+&727.0_ki/19008.0_ki,-443.0_ki/56160.0_ki,2473.0_ki/5760.0_ki, &
+&-947.0_ki/2400.0_ki,33.0_ki/320.0_ki,-71.0_ki/21120.0_ki,-125.0_ki/1344.0_ki, &
+&33.0_ki/448.0_ki,-5.0_ki/392.0_ki,35.0_ki/12672.0_ki,-7.0_ki/4224.0_ki,0.0_ki, &
+&2473.0_ki/5760.0_ki,-947.0_ki/2400.0_ki,33.0_ki/320.0_ki,-71.0_ki/21120.0_ki, &
+&-3.0_ki/25.0_ki,9.0_ki/100.0_ki,-9.0_ki/700.0_ki,3.0_ki/224.0_ki, &
+&-9.0_ki/1120.0_ki,0.0_ki,-125.0_ki/1344.0_ki,33.0_ki/448.0_ki, &
+&-5.0_ki/392.0_ki,3.0_ki/224.0_ki,-9.0_ki/1120.0_ki,0.0_ki,35.0_ki/12672.0_ki, &
+&-7.0_ki/4224.0_ki,0.0_ki,0.0_ki,409.0_ki/4320.0_ki,-299.0_ki/2160.0_ki, &
+&209.0_ki/3024.0_ki,-89.0_ki/9504.0_ki,59.0_ki/28080.0_ki,-11.0_ki/384.0_ki, &
+&3.0_ki/80.0_ki,-1.0_ki/64.0_ki,1.0_ki/1408.0_ki,5.0_ki/1344.0_ki, &
+&-1.0_ki/224.0_ki,5.0_ki/3136.0_ki,0.0_ki,0.0_ki,0.0_ki,-11.0_ki/384.0_ki, &
+&3.0_ki/80.0_ki,-1.0_ki/64.0_ki,1.0_ki/1408.0_ki,3.0_ki/800.0_ki, &
+&-9.0_ki/2000.0_ki,9.0_ki/5600.0_ki,0.0_ki,0.0_ki,0.0_ki,5.0_ki/1344.0_ki, &
+&-1.0_ki/224.0_ki,5.0_ki/3136.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,-11.0_ki/2880.0_ki,29.0_ki/4320.0_ki,-25.0_ki/6048.0_ki, &
+&17.0_ki/19008.0_ki,-1.0_ki/4320.0_ki,1.0_ki/1920.0_ki,-1.0_ki/1200.0_ki, &
+&1.0_ki/2240.0_ki,-1.0_ki/21120.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1920.0_ki,-1.0_ki/1200.0_ki,1.0_ki/2240.0_ki,-1.0_ki/21120.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/17280.0_ki,-1.0_ki/8640.0_ki, &
+&1.0_ki/12096.0_ki,-1.0_ki/38016.0_ki,1.0_ki/112320.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-337.0_ki/360.0_ki,2473.0_ki/5760.0_ki, &
+&-125.0_ki/1344.0_ki,35.0_ki/12672.0_ki,0.0_ki,8813.0_ki/8640.0_ki, &
+&-947.0_ki/2400.0_ki,33.0_ki/448.0_ki,-7.0_ki/4224.0_ki,-2255.0_ki/6048.0_ki, &
+&33.0_ki/320.0_ki,-5.0_ki/392.0_ki,727.0_ki/19008.0_ki,-71.0_ki/21120.0_ki, &
+&-443.0_ki/56160.0_ki,2473.0_ki/5760.0_ki,-3.0_ki/25.0_ki,3.0_ki/224.0_ki, &
+&0.0_ki,-947.0_ki/2400.0_ki,9.0_ki/100.0_ki,-9.0_ki/1120.0_ki,33.0_ki/320.0_ki, &
+&-9.0_ki/700.0_ki,-71.0_ki/21120.0_ki,-125.0_ki/1344.0_ki,3.0_ki/224.0_ki, &
+&0.0_ki,33.0_ki/448.0_ki,-9.0_ki/1120.0_ki,-5.0_ki/392.0_ki,35.0_ki/12672.0_ki, &
+&0.0_ki,-7.0_ki/4224.0_ki,0.0_ki,365.0_ki/1728.0_ki,-3409.0_ki/17280.0_ki, &
+&215.0_ki/4032.0_ki,-71.0_ki/38016.0_ki,0.0_ki,-3409.0_ki/17280.0_ki, &
+&1253.0_ki/7200.0_ki,-93.0_ki/2240.0_ki,71.0_ki/63360.0_ki,215.0_ki/4032.0_ki, &
+&-93.0_ki/2240.0_ki,1.0_ki/147.0_ki,-71.0_ki/38016.0_ki,71.0_ki/63360.0_ki, &
+&0.0_ki,-1.0_ki/16.0_ki,19.0_ki/400.0_ki,-1.0_ki/140.0_ki,0.0_ki, &
+&19.0_ki/400.0_ki,-69.0_ki/2000.0_ki,3.0_ki/700.0_ki,-1.0_ki/140.0_ki, &
+&3.0_ki/700.0_ki,0.0_ki,5.0_ki/672.0_ki,-1.0_ki/224.0_ki,0.0_ki, &
+&-1.0_ki/224.0_ki,3.0_ki/1120.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-17.0_ki/1152.0_ki,7.0_ki/360.0_ki,-11.0_ki/1344.0_ki,5.0_ki/12672.0_ki, &
+&0.0_ki,67.0_ki/5760.0_ki,-3.0_ki/200.0_ki,41.0_ki/6720.0_ki,-1.0_ki/4224.0_ki, &
+&-1.0_ki/504.0_ki,1.0_ki/420.0_ki,-1.0_ki/1176.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/480.0_ki,-1.0_ki/400.0_ki,1.0_ki/1120.0_ki,0.0_ki,-1.0_ki/800.0_ki, &
+&3.0_ki/2000.0_ki,-3.0_ki/5600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/3456.0_ki, &
+&-1.0_ki/2160.0_ki,1.0_ki/4032.0_ki,-1.0_ki/38016.0_ki,0.0_ki, &
+&-1.0_ki/5760.0_ki,1.0_ki/3600.0_ki,-1.0_ki/6720.0_ki,1.0_ki/63360.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,409.0_ki/4320.0_ki,-11.0_ki/384.0_ki,5.0_ki/1344.0_ki, &
+&0.0_ki,0.0_ki,-299.0_ki/2160.0_ki,3.0_ki/80.0_ki,-1.0_ki/224.0_ki,0.0_ki, &
+&209.0_ki/3024.0_ki,-1.0_ki/64.0_ki,5.0_ki/3136.0_ki,-89.0_ki/9504.0_ki, &
+&1.0_ki/1408.0_ki,59.0_ki/28080.0_ki,-11.0_ki/384.0_ki,3.0_ki/800.0_ki,0.0_ki, &
+&0.0_ki,3.0_ki/80.0_ki,-9.0_ki/2000.0_ki,0.0_ki,-1.0_ki/64.0_ki, &
+&9.0_ki/5600.0_ki,1.0_ki/1408.0_ki,5.0_ki/1344.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/224.0_ki,0.0_ki,5.0_ki/3136.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-17.0_ki/1152.0_ki,67.0_ki/5760.0_ki,-1.0_ki/504.0_ki,0.0_ki,0.0_ki, &
+&7.0_ki/360.0_ki,-3.0_ki/200.0_ki,1.0_ki/420.0_ki,0.0_ki,-11.0_ki/1344.0_ki, &
+&41.0_ki/6720.0_ki,-1.0_ki/1176.0_ki,5.0_ki/12672.0_ki,-1.0_ki/4224.0_ki, &
+&0.0_ki,1.0_ki/480.0_ki,-1.0_ki/800.0_ki,0.0_ki,0.0_ki,-1.0_ki/400.0_ki, &
+&3.0_ki/2000.0_ki,0.0_ki,1.0_ki/1120.0_ki,-3.0_ki/5600.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1728.0_ki,-1.0_ki/1440.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1440.0_ki,1.0_ki/1200.0_ki,-1.0_ki/3360.0_ki,0.0_ki,1.0_ki/4032.0_ki, &
+&-1.0_ki/3360.0_ki,1.0_ki/9408.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-11.0_ki/2880.0_ki,1.0_ki/1920.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,29.0_ki/4320.0_ki,-1.0_ki/1200.0_ki,0.0_ki,0.0_ki, &
+&-25.0_ki/6048.0_ki,1.0_ki/2240.0_ki,0.0_ki,17.0_ki/19008.0_ki, &
+&-1.0_ki/21120.0_ki,-1.0_ki/4320.0_ki,1.0_ki/1920.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1200.0_ki,0.0_ki,0.0_ki,1.0_ki/2240.0_ki,0.0_ki,-1.0_ki/21120.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/3456.0_ki,-1.0_ki/5760.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/2160.0_ki, &
+&1.0_ki/3600.0_ki,0.0_ki,0.0_ki,1.0_ki/4032.0_ki,-1.0_ki/6720.0_ki,0.0_ki, &
+&-1.0_ki/38016.0_ki,1.0_ki/63360.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/17280.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,-1.0_ki/8640.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/12096.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/38016.0_ki,0.0_ki,1.0_ki/112320.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-337.0_ki/360.0_ki,2473.0_ki/5760.0_ki, &
+&-125.0_ki/1344.0_ki,35.0_ki/12672.0_ki,0.0_ki,2473.0_ki/5760.0_ki, &
+&-3.0_ki/25.0_ki,3.0_ki/224.0_ki,0.0_ki,-125.0_ki/1344.0_ki,3.0_ki/224.0_ki, &
+&0.0_ki,35.0_ki/12672.0_ki,0.0_ki,0.0_ki,8813.0_ki/8640.0_ki, &
+&-947.0_ki/2400.0_ki,33.0_ki/448.0_ki,-7.0_ki/4224.0_ki,-947.0_ki/2400.0_ki, &
+&9.0_ki/100.0_ki,-9.0_ki/1120.0_ki,33.0_ki/448.0_ki,-9.0_ki/1120.0_ki, &
+&-7.0_ki/4224.0_ki,-2255.0_ki/6048.0_ki,33.0_ki/320.0_ki,-5.0_ki/392.0_ki, &
+&33.0_ki/320.0_ki,-9.0_ki/700.0_ki,-5.0_ki/392.0_ki,727.0_ki/19008.0_ki, &
+&-71.0_ki/21120.0_ki,-71.0_ki/21120.0_ki,-443.0_ki/56160.0_ki, &
+&365.0_ki/1728.0_ki,-3409.0_ki/17280.0_ki,215.0_ki/4032.0_ki, &
+&-71.0_ki/38016.0_ki,0.0_ki,-1.0_ki/16.0_ki,19.0_ki/400.0_ki,-1.0_ki/140.0_ki, &
+&0.0_ki,5.0_ki/672.0_ki,-1.0_ki/224.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-3409.0_ki/17280.0_ki,1253.0_ki/7200.0_ki,-93.0_ki/2240.0_ki, &
+&71.0_ki/63360.0_ki,19.0_ki/400.0_ki,-69.0_ki/2000.0_ki,3.0_ki/700.0_ki, &
+&-1.0_ki/224.0_ki,3.0_ki/1120.0_ki,0.0_ki,215.0_ki/4032.0_ki, &
+&-93.0_ki/2240.0_ki,1.0_ki/147.0_ki,-1.0_ki/140.0_ki,3.0_ki/700.0_ki,0.0_ki, &
+&-71.0_ki/38016.0_ki,71.0_ki/63360.0_ki,0.0_ki,0.0_ki,-17.0_ki/1152.0_ki, &
+&7.0_ki/360.0_ki,-11.0_ki/1344.0_ki,5.0_ki/12672.0_ki,0.0_ki,1.0_ki/480.0_ki, &
+&-1.0_ki/400.0_ki,1.0_ki/1120.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,67.0_ki/5760.0_ki,-3.0_ki/200.0_ki,41.0_ki/6720.0_ki,-1.0_ki/4224.0_ki, &
+&-1.0_ki/800.0_ki,3.0_ki/2000.0_ki,-3.0_ki/5600.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/504.0_ki,1.0_ki/420.0_ki,-1.0_ki/1176.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/3456.0_ki,-1.0_ki/2160.0_ki, &
+&1.0_ki/4032.0_ki,-1.0_ki/38016.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/5760.0_ki,1.0_ki/3600.0_ki, &
+&-1.0_ki/6720.0_ki,1.0_ki/63360.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&365.0_ki/1728.0_ki,-1.0_ki/16.0_ki,5.0_ki/672.0_ki,0.0_ki,0.0_ki, &
+&-3409.0_ki/17280.0_ki,19.0_ki/400.0_ki,-1.0_ki/224.0_ki,0.0_ki, &
+&215.0_ki/4032.0_ki,-1.0_ki/140.0_ki,0.0_ki,-71.0_ki/38016.0_ki,0.0_ki,0.0_ki, &
+&-3409.0_ki/17280.0_ki,19.0_ki/400.0_ki,-1.0_ki/224.0_ki,0.0_ki, &
+&1253.0_ki/7200.0_ki,-69.0_ki/2000.0_ki,3.0_ki/1120.0_ki,-93.0_ki/2240.0_ki, &
+&3.0_ki/700.0_ki,71.0_ki/63360.0_ki,215.0_ki/4032.0_ki,-1.0_ki/140.0_ki,0.0_ki, &
+&-93.0_ki/2240.0_ki,3.0_ki/700.0_ki,1.0_ki/147.0_ki,-71.0_ki/38016.0_ki,0.0_ki, &
+&71.0_ki/63360.0_ki,0.0_ki,-7.0_ki/216.0_ki,1.0_ki/40.0_ki,-1.0_ki/252.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/40.0_ki,-11.0_ki/600.0_ki,1.0_ki/420.0_ki,0.0_ki, &
+&-1.0_ki/252.0_ki,1.0_ki/420.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/40.0_ki, &
+&-11.0_ki/600.0_ki,1.0_ki/420.0_ki,0.0_ki,-11.0_ki/600.0_ki,13.0_ki/1000.0_ki, &
+&-1.0_ki/700.0_ki,1.0_ki/420.0_ki,-1.0_ki/700.0_ki,0.0_ki,-1.0_ki/252.0_ki, &
+&1.0_ki/420.0_ki,0.0_ki,1.0_ki/420.0_ki,-1.0_ki/700.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/864.0_ki,-1.0_ki/720.0_ki,1.0_ki/2016.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1440.0_ki,1.0_ki/1200.0_ki,-1.0_ki/3360.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1440.0_ki,1.0_ki/1200.0_ki, &
+&-1.0_ki/3360.0_ki,0.0_ki,1.0_ki/2400.0_ki,-1.0_ki/2000.0_ki,1.0_ki/5600.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,-17.0_ki/1152.0_ki,1.0_ki/480.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&7.0_ki/360.0_ki,-1.0_ki/400.0_ki,0.0_ki,0.0_ki,-11.0_ki/1344.0_ki, &
+&1.0_ki/1120.0_ki,0.0_ki,5.0_ki/12672.0_ki,0.0_ki,0.0_ki,67.0_ki/5760.0_ki, &
+&-1.0_ki/800.0_ki,0.0_ki,0.0_ki,-3.0_ki/200.0_ki,3.0_ki/2000.0_ki,0.0_ki, &
+&41.0_ki/6720.0_ki,-3.0_ki/5600.0_ki,-1.0_ki/4224.0_ki,-1.0_ki/504.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/420.0_ki,0.0_ki,-1.0_ki/1176.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/864.0_ki,-1.0_ki/1440.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/720.0_ki, &
+&1.0_ki/1200.0_ki,0.0_ki,0.0_ki,1.0_ki/2016.0_ki,-1.0_ki/3360.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1440.0_ki,1.0_ki/2400.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1200.0_ki,-1.0_ki/2000.0_ki,0.0_ki,-1.0_ki/3360.0_ki,1.0_ki/5600.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/3456.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/2160.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki,-1.0_ki/38016.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/5760.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/3600.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/6720.0_ki,0.0_ki,1.0_ki/63360.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,409.0_ki/4320.0_ki,-11.0_ki/384.0_ki, &
+&5.0_ki/1344.0_ki,0.0_ki,0.0_ki,-11.0_ki/384.0_ki,3.0_ki/800.0_ki,0.0_ki, &
+&0.0_ki,5.0_ki/1344.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-299.0_ki/2160.0_ki,3.0_ki/80.0_ki,-1.0_ki/224.0_ki,0.0_ki,3.0_ki/80.0_ki, &
+&-9.0_ki/2000.0_ki,0.0_ki,-1.0_ki/224.0_ki,0.0_ki,0.0_ki,209.0_ki/3024.0_ki, &
+&-1.0_ki/64.0_ki,5.0_ki/3136.0_ki,-1.0_ki/64.0_ki,9.0_ki/5600.0_ki, &
+&5.0_ki/3136.0_ki,-89.0_ki/9504.0_ki,1.0_ki/1408.0_ki,1.0_ki/1408.0_ki, &
+&59.0_ki/28080.0_ki,-17.0_ki/1152.0_ki,67.0_ki/5760.0_ki,-1.0_ki/504.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/480.0_ki,-1.0_ki/800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,7.0_ki/360.0_ki,-3.0_ki/200.0_ki,1.0_ki/420.0_ki, &
+&0.0_ki,-1.0_ki/400.0_ki,3.0_ki/2000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-11.0_ki/1344.0_ki,41.0_ki/6720.0_ki,-1.0_ki/1176.0_ki,1.0_ki/1120.0_ki, &
+&-3.0_ki/5600.0_ki,0.0_ki,5.0_ki/12672.0_ki,-1.0_ki/4224.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1728.0_ki,-1.0_ki/1440.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1440.0_ki,1.0_ki/1200.0_ki,-1.0_ki/3360.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/4032.0_ki,-1.0_ki/3360.0_ki, &
+&1.0_ki/9408.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-17.0_ki/1152.0_ki,1.0_ki/480.0_ki,0.0_ki,0.0_ki,0.0_ki,67.0_ki/5760.0_ki, &
+&-1.0_ki/800.0_ki,0.0_ki,0.0_ki,-1.0_ki/504.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,7.0_ki/360.0_ki,-1.0_ki/400.0_ki,0.0_ki,0.0_ki,-3.0_ki/200.0_ki, &
+&3.0_ki/2000.0_ki,0.0_ki,1.0_ki/420.0_ki,0.0_ki,0.0_ki,-11.0_ki/1344.0_ki, &
+&1.0_ki/1120.0_ki,0.0_ki,41.0_ki/6720.0_ki,-3.0_ki/5600.0_ki,-1.0_ki/1176.0_ki, &
+&5.0_ki/12672.0_ki,0.0_ki,-1.0_ki/4224.0_ki,0.0_ki,1.0_ki/864.0_ki, &
+&-1.0_ki/1440.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1440.0_ki,1.0_ki/2400.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/720.0_ki, &
+&1.0_ki/1200.0_ki,0.0_ki,0.0_ki,1.0_ki/1200.0_ki,-1.0_ki/2000.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,1.0_ki/2016.0_ki,-1.0_ki/3360.0_ki,0.0_ki, &
+&-1.0_ki/3360.0_ki,1.0_ki/5600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1728.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1440.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1440.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,1.0_ki/1200.0_ki,0.0_ki,0.0_ki,-1.0_ki/3360.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/4032.0_ki,0.0_ki,0.0_ki,-1.0_ki/3360.0_ki,0.0_ki, &
+&1.0_ki/9408.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-11.0_ki/2880.0_ki, &
+&1.0_ki/1920.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1920.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,29.0_ki/4320.0_ki,-1.0_ki/1200.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/1200.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-25.0_ki/6048.0_ki,1.0_ki/2240.0_ki,0.0_ki,1.0_ki/2240.0_ki,0.0_ki,0.0_ki, &
+&17.0_ki/19008.0_ki,-1.0_ki/21120.0_ki,-1.0_ki/21120.0_ki,-1.0_ki/4320.0_ki, &
+&1.0_ki/3456.0_ki,-1.0_ki/5760.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/2160.0_ki, &
+&1.0_ki/3600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/4032.0_ki,-1.0_ki/6720.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/38016.0_ki,1.0_ki/63360.0_ki,0.0_ki,0.0_ki,1.0_ki/3456.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-1.0_ki/5760.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/2160.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/3600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/4032.0_ki,0.0_ki, &
+&0.0_ki,-1.0_ki/6720.0_ki,0.0_ki,0.0_ki,-1.0_ki/38016.0_ki,0.0_ki, &
+&1.0_ki/63360.0_ki,0.0_ki,1.0_ki/17280.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/8640.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/12096.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/38016.0_ki,0.0_ki,0.0_ki,1.0_ki/112320.0_ki/),&
+& (/35,35/), order=(/2,1/))
+real(ki), dimension(35,3), parameter, private :: q7_3 = &
+& reshape((/&
+&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki, &
+&11.0_ki,3.0_ki,3.0_ki,13.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki, &
+&3.0_ki,5.0_ki,7.0_ki,3.0_ki,5.0_ki,11.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki,7.0_ki, &
+&5.0_ki,3.0_ki,7.0_ki,7.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki,11.0_ki,5.0_ki, &
+&3.0_ki,13.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki, &
+&7.0_ki,5.0_ki,3.0_ki,11.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,5.0_ki,5.0_ki,5.0_ki, &
+&5.0_ki,7.0_ki,5.0_ki,7.0_ki,3.0_ki,5.0_ki,7.0_ki,5.0_ki,5.0_ki,11.0_ki,3.0_ki, &
+&7.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki,7.0_ki,7.0_ki,5.0_ki, &
+&3.0_ki,7.0_ki,5.0_ki,5.0_ki,7.0_ki,7.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki, &
+&11.0_ki,3.0_ki,5.0_ki,11.0_ki,5.0_ki,3.0_ki,13.0_ki,3.0_ki,3.0_ki/),&
+& (/35,3/), order=(/2,1/))
+real(ki), dimension(35,35), parameter, private :: mat7_4 = &
+& reshape((/&
+&1309.0_ki/1296.0_ki,-829.0_ki/2160.0_ki,145.0_ki/2016.0_ki, &
+&-35.0_ki/19008.0_ki,-829.0_ki/2160.0_ki,9.0_ki/100.0_ki,-1.0_ki/112.0_ki, &
+&145.0_ki/2016.0_ki,-1.0_ki/112.0_ki,-35.0_ki/19008.0_ki,-829.0_ki/2160.0_ki, &
+&9.0_ki/100.0_ki,-1.0_ki/112.0_ki,9.0_ki/100.0_ki,-9.0_ki/1000.0_ki, &
+&-1.0_ki/112.0_ki,145.0_ki/2016.0_ki,-1.0_ki/112.0_ki,-1.0_ki/112.0_ki, &
+&-35.0_ki/19008.0_ki,-829.0_ki/2160.0_ki,9.0_ki/100.0_ki,-1.0_ki/112.0_ki, &
+&9.0_ki/100.0_ki,-9.0_ki/1000.0_ki,-1.0_ki/112.0_ki,9.0_ki/100.0_ki, &
+&-9.0_ki/1000.0_ki,-9.0_ki/1000.0_ki,-1.0_ki/112.0_ki,145.0_ki/2016.0_ki, &
+&-1.0_ki/112.0_ki,-1.0_ki/112.0_ki,-1.0_ki/112.0_ki,-35.0_ki/19008.0_ki, &
+&-995.0_ki/5184.0_ki,1099.0_ki/6480.0_ki,-247.0_ki/6048.0_ki, &
+&71.0_ki/57024.0_ki,17.0_ki/360.0_ki,-7.0_ki/200.0_ki,1.0_ki/210.0_ki, &
+&-5.0_ki/1008.0_ki,1.0_ki/336.0_ki,0.0_ki,17.0_ki/360.0_ki,-7.0_ki/200.0_ki, &
+&1.0_ki/210.0_ki,-1.0_ki/200.0_ki,3.0_ki/1000.0_ki,0.0_ki,-5.0_ki/1008.0_ki, &
+&1.0_ki/336.0_ki,0.0_ki,0.0_ki,17.0_ki/360.0_ki,-7.0_ki/200.0_ki, &
+&1.0_ki/210.0_ki,-1.0_ki/200.0_ki,3.0_ki/1000.0_ki,0.0_ki,-1.0_ki/200.0_ki, &
+&3.0_ki/1000.0_ki,0.0_ki,0.0_ki,-5.0_ki/1008.0_ki,1.0_ki/336.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,59.0_ki/5184.0_ki,-2.0_ki/135.0_ki,37.0_ki/6048.0_ki, &
+&-5.0_ki/19008.0_ki,-1.0_ki/720.0_ki,1.0_ki/600.0_ki,-1.0_ki/1680.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/720.0_ki,1.0_ki/600.0_ki,-1.0_ki/1680.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/720.0_ki,1.0_ki/600.0_ki, &
+&-1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/5184.0_ki,1.0_ki/3240.0_ki, &
+&-1.0_ki/6048.0_ki,1.0_ki/57024.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-995.0_ki/5184.0_ki,17.0_ki/360.0_ki,-5.0_ki/1008.0_ki, &
+&0.0_ki,1099.0_ki/6480.0_ki,-7.0_ki/200.0_ki,1.0_ki/336.0_ki, &
+&-247.0_ki/6048.0_ki,1.0_ki/210.0_ki,71.0_ki/57024.0_ki,17.0_ki/360.0_ki, &
+&-1.0_ki/200.0_ki,0.0_ki,-7.0_ki/200.0_ki,3.0_ki/1000.0_ki,1.0_ki/210.0_ki, &
+&-5.0_ki/1008.0_ki,0.0_ki,1.0_ki/336.0_ki,0.0_ki,17.0_ki/360.0_ki, &
+&-1.0_ki/200.0_ki,0.0_ki,-7.0_ki/200.0_ki,3.0_ki/1000.0_ki,1.0_ki/210.0_ki, &
+&-1.0_ki/200.0_ki,0.0_ki,3.0_ki/1000.0_ki,0.0_ki,-5.0_ki/1008.0_ki,0.0_ki, &
+&1.0_ki/336.0_ki,0.0_ki,0.0_ki,2.0_ki/81.0_ki,-1.0_ki/54.0_ki,1.0_ki/378.0_ki, &
+&0.0_ki,-1.0_ki/54.0_ki,1.0_ki/75.0_ki,-1.0_ki/630.0_ki,1.0_ki/378.0_ki, &
+&-1.0_ki/630.0_ki,0.0_ki,-1.0_ki/360.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&1.0_ki/600.0_ki,-1.0_ki/1000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/360.0_ki,1.0_ki/600.0_ki,0.0_ki,1.0_ki/600.0_ki,-1.0_ki/1000.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1296.0_ki,1.0_ki/1080.0_ki,-1.0_ki/3024.0_ki,0.0_ki,1.0_ki/2160.0_ki, &
+&-1.0_ki/1800.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&59.0_ki/5184.0_ki,-1.0_ki/720.0_ki,0.0_ki,0.0_ki,-2.0_ki/135.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,37.0_ki/6048.0_ki,-1.0_ki/1680.0_ki,-5.0_ki/19008.0_ki, &
+&-1.0_ki/720.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki,-1.0_ki/1680.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/720.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki, &
+&0.0_ki,-1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/1296.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki,0.0_ki,-1.0_ki/3024.0_ki,1.0_ki/5040.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/5184.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/3240.0_ki,0.0_ki,0.0_ki,-1.0_ki/6048.0_ki,0.0_ki,1.0_ki/57024.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-995.0_ki/5184.0_ki,17.0_ki/360.0_ki,-5.0_ki/1008.0_ki, &
+&0.0_ki,17.0_ki/360.0_ki,-1.0_ki/200.0_ki,0.0_ki,-5.0_ki/1008.0_ki,0.0_ki, &
+&0.0_ki,1099.0_ki/6480.0_ki,-7.0_ki/200.0_ki,1.0_ki/336.0_ki,-7.0_ki/200.0_ki, &
+&3.0_ki/1000.0_ki,1.0_ki/336.0_ki,-247.0_ki/6048.0_ki,1.0_ki/210.0_ki, &
+&1.0_ki/210.0_ki,71.0_ki/57024.0_ki,17.0_ki/360.0_ki,-1.0_ki/200.0_ki,0.0_ki, &
+&-1.0_ki/200.0_ki,0.0_ki,0.0_ki,-7.0_ki/200.0_ki,3.0_ki/1000.0_ki, &
+&3.0_ki/1000.0_ki,1.0_ki/210.0_ki,-5.0_ki/1008.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/336.0_ki,0.0_ki,2.0_ki/81.0_ki,-1.0_ki/54.0_ki,1.0_ki/378.0_ki,0.0_ki, &
+&-1.0_ki/360.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki, &
+&1.0_ki/75.0_ki,-1.0_ki/630.0_ki,1.0_ki/600.0_ki,-1.0_ki/1000.0_ki,0.0_ki, &
+&1.0_ki/378.0_ki,-1.0_ki/630.0_ki,0.0_ki,0.0_ki,-1.0_ki/360.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki,-1.0_ki/1000.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/3024.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/2160.0_ki,-1.0_ki/1800.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,2.0_ki/81.0_ki, &
+&-1.0_ki/360.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&1.0_ki/378.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&1.0_ki/75.0_ki,-1.0_ki/1000.0_ki,-1.0_ki/630.0_ki,1.0_ki/378.0_ki,0.0_ki, &
+&-1.0_ki/630.0_ki,0.0_ki,-1.0_ki/360.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/600.0_ki,0.0_ki,-1.0_ki/1000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/648.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki,0.0_ki,-1.0_ki/1800.0_ki,1.0_ki/3000.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1296.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/3024.0_ki,0.0_ki,0.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1800.0_ki,0.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,59.0_ki/5184.0_ki,-1.0_ki/720.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/720.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-2.0_ki/135.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki,37.0_ki/6048.0_ki, &
+&-1.0_ki/1680.0_ki,-1.0_ki/1680.0_ki,-5.0_ki/19008.0_ki,-1.0_ki/720.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1680.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki, &
+&1.0_ki/2160.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/3024.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1296.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/3024.0_ki,0.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/5184.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/3240.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/6048.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/57024.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-995.0_ki/5184.0_ki,17.0_ki/360.0_ki,-5.0_ki/1008.0_ki,0.0_ki, &
+&17.0_ki/360.0_ki,-1.0_ki/200.0_ki,0.0_ki,-5.0_ki/1008.0_ki,0.0_ki,0.0_ki, &
+&17.0_ki/360.0_ki,-1.0_ki/200.0_ki,0.0_ki,-1.0_ki/200.0_ki,0.0_ki,0.0_ki, &
+&-5.0_ki/1008.0_ki,0.0_ki,0.0_ki,0.0_ki,1099.0_ki/6480.0_ki,-7.0_ki/200.0_ki, &
+&1.0_ki/336.0_ki,-7.0_ki/200.0_ki,3.0_ki/1000.0_ki,1.0_ki/336.0_ki, &
+&-7.0_ki/200.0_ki,3.0_ki/1000.0_ki,3.0_ki/1000.0_ki,1.0_ki/336.0_ki, &
+&-247.0_ki/6048.0_ki,1.0_ki/210.0_ki,1.0_ki/210.0_ki,1.0_ki/210.0_ki, &
+&71.0_ki/57024.0_ki,2.0_ki/81.0_ki,-1.0_ki/54.0_ki,1.0_ki/378.0_ki,0.0_ki, &
+&-1.0_ki/360.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/360.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/54.0_ki,1.0_ki/75.0_ki,-1.0_ki/630.0_ki,1.0_ki/600.0_ki, &
+&-1.0_ki/1000.0_ki,0.0_ki,1.0_ki/600.0_ki,-1.0_ki/1000.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/378.0_ki,-1.0_ki/630.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/3024.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/2160.0_ki,-1.0_ki/1800.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,2.0_ki/81.0_ki, &
+&-1.0_ki/360.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&1.0_ki/378.0_ki,0.0_ki,0.0_ki,-1.0_ki/360.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki, &
+&0.0_ki,1.0_ki/75.0_ki,-1.0_ki/1000.0_ki,-1.0_ki/630.0_ki,1.0_ki/600.0_ki, &
+&0.0_ki,-1.0_ki/1000.0_ki,0.0_ki,1.0_ki/378.0_ki,0.0_ki,-1.0_ki/630.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/648.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki, &
+&-1.0_ki/1800.0_ki,0.0_ki,-1.0_ki/1800.0_ki,1.0_ki/3000.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,-1.0_ki/3024.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/2160.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,1.0_ki/5040.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,2.0_ki/81.0_ki, &
+&-1.0_ki/360.0_ki,0.0_ki,0.0_ki,-1.0_ki/360.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/378.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/54.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,0.0_ki,1.0_ki/75.0_ki,-1.0_ki/1000.0_ki, &
+&-1.0_ki/1000.0_ki,-1.0_ki/630.0_ki,1.0_ki/378.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/630.0_ki,0.0_ki,-1.0_ki/648.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,-1.0_ki/1800.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki, &
+&-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki, &
+&1.0_ki/3000.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/648.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,1.0_ki/3000.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,-1.0_ki/3024.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,1.0_ki/5040.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,59.0_ki/5184.0_ki,-1.0_ki/720.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/720.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/720.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,-2.0_ki/135.0_ki, &
+&1.0_ki/600.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki,0.0_ki,1.0_ki/600.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,37.0_ki/6048.0_ki,-1.0_ki/1680.0_ki,-1.0_ki/1680.0_ki, &
+&-1.0_ki/1680.0_ki,-5.0_ki/19008.0_ki,-1.0_ki/1296.0_ki,1.0_ki/2160.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,1.0_ki/1080.0_ki, &
+&-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/3024.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/1296.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/1080.0_ki,0.0_ki,0.0_ki,-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,-1.0_ki/3024.0_ki,0.0_ki,1.0_ki/5040.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1296.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,1.0_ki/2160.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,1.0_ki/1080.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&-1.0_ki/1800.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/3024.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/5040.0_ki,0.0_ki,-1.0_ki/5184.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,1.0_ki/3240.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&0.0_ki,0.0_ki,0.0_ki,0.0_ki,-1.0_ki/6048.0_ki,0.0_ki,0.0_ki,0.0_ki, &
+&1.0_ki/57024.0_ki/),&
+& (/35,35/), order=(/2,1/))
+real(ki), dimension(35,4), parameter, private :: q7_4 = &
+& reshape((/&
+&3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki, &
+&7.0_ki,3.0_ki,3.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki, &
+&5.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki, &
+&3.0_ki,7.0_ki,5.0_ki,3.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki, &
+&3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,5.0_ki, &
+&3.0_ki,3.0_ki,5.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki,3.0_ki,7.0_ki, &
+&3.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,3.0_ki,7.0_ki,5.0_ki,3.0_ki,3.0_ki, &
+&11.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,3.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki, &
+&5.0_ki,3.0_ki,3.0_ki,7.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki,3.0_ki,5.0_ki, &
+&5.0_ki,5.0_ki,3.0_ki,7.0_ki,3.0_ki,5.0_ki,5.0_ki,3.0_ki,3.0_ki,5.0_ki,5.0_ki, &
+&3.0_ki,5.0_ki,5.0_ki,5.0_ki,5.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki,3.0_ki,7.0_ki, &
+&3.0_ki,3.0_ki,3.0_ki,7.0_ki,3.0_ki,3.0_ki,5.0_ki,7.0_ki,3.0_ki,5.0_ki,3.0_ki, &
+&7.0_ki,5.0_ki,3.0_ki,3.0_ki,11.0_ki,3.0_ki,3.0_ki,3.0_ki/),&
+& (/35,4/), order=(/2,1/))
!****t* src/interface/tens_rec/coeff_type_1
!
! NAME
!
! Type coeff_type_1
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 1.
!
! ENTRIES
!
! * c0, ..., c1 -- coefficients of terms with 0,...,1
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_1
complex(ki) :: c0
complex(ki), dimension(4,1) :: c1
end type coeff_type_1
!****t* src/interface/tens_rec/coeff_type_2
!
! NAME
!
! Type coeff_type_2
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 2.
!
! ENTRIES
!
! * c0, ..., c2 -- coefficients of terms with 0,...,2
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_2
complex(ki) :: c0
complex(ki), dimension(4,2) :: c1
complex(ki), dimension(6,1) :: c2
end type coeff_type_2
!****t* src/interface/tens_rec/coeff_type_3
!
! NAME
!
! Type coeff_type_3
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 3.
!
! ENTRIES
!
! * c0, ..., c3 -- coefficients of terms with 0,...,3
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_3
complex(ki) :: c0
complex(ki), dimension(4,3) :: c1
complex(ki), dimension(6,3) :: c2
complex(ki), dimension(4,1) :: c3
end type coeff_type_3
!****t* src/interface/tens_rec/coeff_type_4
!
! NAME
!
! Type coeff_type_4
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 4.
!
! ENTRIES
!
! * c0, ..., c4 -- coefficients of terms with 0,...,4
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_4
complex(ki) :: c0
complex(ki), dimension(4,4) :: c1
complex(ki), dimension(6,6) :: c2
complex(ki), dimension(4,4) :: c3
complex(ki), dimension(1,1) :: c4
end type coeff_type_4
!****t* src/interface/tens_rec/coeff_type_5
!
! NAME
!
! Type coeff_type_5
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 5.
!
! ENTRIES
!
! * c0, ..., c4 -- coefficients of terms with 0,...,4
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_5
complex(ki) :: c0
complex(ki), dimension(4,5) :: c1
complex(ki), dimension(6,10) :: c2
complex(ki), dimension(4,10) :: c3
complex(ki), dimension(1,5) :: c4
end type coeff_type_5
!****t* src/interface/tens_rec/coeff_type_6
!
! NAME
!
! Type coeff_type_6
!
! DESCRIPTION
!
! Holds the coefficients of a mixed rank tensor integral with maximum
! tensor rank 6.
!
! ENTRIES
!
! * c0, ..., c4 -- coefficients of terms with 0,...,4
! first index selects non-zero components of q
! second index selects a specific monomial
!
!*****
type coeff_type_6
complex(ki) :: c0
complex(ki), dimension(4,6) :: c1
complex(ki), dimension(6,15) :: c2
complex(ki), dimension(4,20) :: c3
complex(ki), dimension(1,15) :: c4
end type coeff_type_6
+!****t* src/interface/tens_rec/coeff_type_7
+!
+! NAME
+!
+! Type coeff_type_7
+!
+! DESCRIPTION
+!
+! Holds the coefficients of a mixed rank tensor integral with maximum
+! tensor rank 7.
+!
+! ENTRIES
+!
+! * c0, ..., c4 -- coefficients of terms with 0,...,4
+! first index selects non-zero components of q
+! second index selects a specific monomial
+!
+!*****
+type coeff_type_7
+ complex(ki) :: c0
+ complex(ki), dimension(4,7) :: c1
+ complex(ki), dimension(6,21) :: c2
+ complex(ki), dimension(4,35) :: c3
+ complex(ki), dimension(1,35) :: c4
+end type coeff_type_7
interface print_coeffs
module procedure print_coeffs_1
module procedure print_coeffs_2
module procedure print_coeffs_3
module procedure print_coeffs_4
module procedure print_coeffs_5
module procedure print_coeffs_6
+ module procedure print_coeffs_7
end interface
contains
!****f* src/interface/tens_rec/solve1_1
! NAME
!
! Subroutine solve1_1
!
! USAGE
!
! call solve1_1(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q1_1.
! The matrix mat1_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_1 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve1_1(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_1), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_3), intent(in), optional :: coeffs2
complex(ki), dimension(1) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,1
Q(indices(1)) = q1_1(i,1)
xnum(i) = numeval(Q, mu2) &
& - tenseval1(Q, coeffs, 0) &
& - tenseval3(Q, coeffs2, 1)
end do
else
do i=1,1
Q(indices(1)) = q1_1(i,1)
xnum(i) = numeval(Q, mu2) - tenseval1(Q, coeffs, 0)
end do
end if
coeffs%c1(idx,:) = matmul(mat1_1,xnum)
end subroutine solve1_1
!****f* src/interface/tens_rec/tenseval1_1
! NAME
!
! Function tenseval1_1
!
! USAGE
!
! result = tenseval1_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval1_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval1_1
real(ki) :: q0
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(1)*q0
tenseval1_1 = acc
end function tenseval1_1
!****f* src/interface/tens_rec/ctenseval1_1
! NAME
!
! Function ctenseval1_1
!
! USAGE
!
! result = ctenseval1_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval1_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval1_1
complex(ki) :: q0
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(1)*q0
ctenseval1_1 = acc
end function ctenseval1_1
!****f* src/interface/tens_rec/solve1
! NAME
!
! Subroutine solve1
!
! USAGE
!
! call solve1(numeval, mu2, coeffs, coeffs2)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 1
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_1 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
subroutine solve1(numeval, mu2, coeffs, coeffs2)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_1), intent(inout) :: coeffs
type(coeff_type_3), intent(in), optional :: coeffs2
if (present(coeffs2)) then
coeffs%c0 = numeval(null_vec, mu2) - coeffs2%c0
call solve1_1(numeval, (/0/), mu2, coeffs, 1, coeffs2)
call solve1_1(numeval, (/1/), mu2, coeffs, 2, coeffs2)
call solve1_1(numeval, (/2/), mu2, coeffs, 3, coeffs2)
call solve1_1(numeval, (/3/), mu2, coeffs, 4, coeffs2)
else
coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
call solve1_1(numeval, (/0/), mu2, coeffs, 1)
call solve1_1(numeval, (/1/), mu2, coeffs, 2)
call solve1_1(numeval, (/2/), mu2, coeffs, 3)
call solve1_1(numeval, (/3/), mu2, coeffs, 4)
end if
end subroutine solve1
!****f* src/interface/tens_rec/tenseval1
! NAME
!
! Function tenseval1
!
! USAGE
!
! result = tenseval1(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_1
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval1(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_1), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval1
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 1
end if
tenseval1 = coeffs%c0
if (1 .le. maxk) then
tenseval1 = tenseval1 + tenseval1_1(Q, (/0/), coeffs%c1(1,:))
tenseval1 = tenseval1 + tenseval1_1(Q, (/1/), coeffs%c1(2,:))
tenseval1 = tenseval1 + tenseval1_1(Q, (/2/), coeffs%c1(3,:))
tenseval1 = tenseval1 + tenseval1_1(Q, (/3/), coeffs%c1(4,:))
end if
end function tenseval1
!****f* src/interface/tens_rec/ctenseval1
! NAME
!
! Function ctenseval1
!
! USAGE
!
! result = ctenseval1(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_1
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval1(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_1), intent(in) :: coeffs
complex(ki) :: ctenseval1
ctenseval1 = coeffs%c0
ctenseval1 = ctenseval1 + ctenseval1_1(Q, (/0/), coeffs%c1(1,:))
ctenseval1 = ctenseval1 + ctenseval1_1(Q, (/1/), coeffs%c1(2,:))
ctenseval1 = ctenseval1 + ctenseval1_1(Q, (/2/), coeffs%c1(3,:))
ctenseval1 = ctenseval1 + ctenseval1_1(Q, (/3/), coeffs%c1(4,:))
end function ctenseval1
!****f* src/interface/tens_rec/print_coeffs_1
! NAME
!
! Subroutine print_coeffs_1
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 1
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_1
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_1(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_1), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
end subroutine print_coeffs_1
!****f* src/interface/tens_rec/reconstruct1
! NAME
!
! Subroutine reconstruct1
!
! USAGE
!
! call reconstruct1(numeval, cm0)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 1,
! including the coefficients in front of mu2 and mu2^2.
!
! In the given case the rank is too low in order to allow for mu2 pieces.
!
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_1, representing the
! numerator
!
! SIDE EFFECTS
!
! Writes results to cm0.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct1(numeval, cm0)
! generated by: write_subroutine_reconstruct_dummy
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_1), intent(out) :: cm0
call solve1(numeval, 0.0_ki, cm0)
end subroutine reconstruct1
!****f* src/interface/tens_rec/solve2_1
! NAME
!
! Subroutine solve2_1
!
! USAGE
!
! call solve2_1(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q2_1.
! The matrix mat2_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_2 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve2_1(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_2), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_4), intent(in), optional :: coeffs2
complex(ki), dimension(2) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,2
Q(indices(1)) = q2_1(i,1)
xnum(i) = numeval(Q, mu2) &
& - tenseval2(Q, coeffs, 0) &
& - tenseval4(Q, coeffs2, 1)
end do
else
do i=1,2
Q(indices(1)) = q2_1(i,1)
xnum(i) = numeval(Q, mu2) - tenseval2(Q, coeffs, 0)
end do
end if
coeffs%c1(idx,:) = matmul(mat2_1,xnum)
end subroutine solve2_1
!****f* src/interface/tens_rec/tenseval2_1
! NAME
!
! Function tenseval2_1
!
! USAGE
!
! result = tenseval2_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(2) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval2_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(2), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval2_1
real(ki) :: q0
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(1) + coeffs(2)*q0
acc = acc*q0
tenseval2_1 = acc
end function tenseval2_1
!****f* src/interface/tens_rec/ctenseval2_1
! NAME
!
! Function ctenseval2_1
!
! USAGE
!
! result = ctenseval2_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(2) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval2_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(2), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval2_1
complex(ki) :: q0
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(1) + coeffs(2)*q0
acc = acc*q0
ctenseval2_1 = acc
end function ctenseval2_1
!****f* src/interface/tens_rec/solve2_2
! NAME
!
! Subroutine solve2_2
!
! USAGE
!
! call solve2_2(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q2_2.
! The matrix mat2_2 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_2 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve2_2(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(2), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_2), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_4), intent(in), optional :: coeffs2
complex(ki), dimension(1) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,1
Q(indices(1)) = q2_2(i,1)
Q(indices(2)) = q2_2(i,2)
xnum(i) = numeval(Q, mu2) &
& - tenseval2(Q, coeffs, 1) &
& - tenseval4(Q, coeffs2, 2)
end do
else
do i=1,1
Q(indices(1)) = q2_2(i,1)
Q(indices(2)) = q2_2(i,2)
xnum(i) = numeval(Q, mu2) - tenseval2(Q, coeffs, 1)
end do
end if
coeffs%c2(idx,:) = matmul(mat2_2,xnum)
end subroutine solve2_2
!****f* src/interface/tens_rec/tenseval2_2
! NAME
!
! Function tenseval2_2
!
! USAGE
!
! result = tenseval2_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval2_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval2_2
real(ki) :: q0
real(ki) :: q1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(1)*q0*q1
tenseval2_2 = acc
end function tenseval2_2
!****f* src/interface/tens_rec/ctenseval2_2
! NAME
!
! Function ctenseval2_2
!
! USAGE
!
! result = ctenseval2_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval2_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval2_2
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(1)*q0*q1
ctenseval2_2 = acc
end function ctenseval2_2
!****f* src/interface/tens_rec/solve2
! NAME
!
! Subroutine solve2
!
! USAGE
!
! call solve2(numeval, mu2, coeffs, coeffs2)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 2
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_2 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
subroutine solve2(numeval, mu2, coeffs, coeffs2)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_2), intent(inout) :: coeffs
type(coeff_type_4), intent(in), optional :: coeffs2
if (present(coeffs2)) then
coeffs%c0 = numeval(null_vec, mu2) - coeffs2%c0
call solve2_1(numeval, (/0/), mu2, coeffs, 1, coeffs2)
call solve2_1(numeval, (/1/), mu2, coeffs, 2, coeffs2)
call solve2_1(numeval, (/2/), mu2, coeffs, 3, coeffs2)
call solve2_1(numeval, (/3/), mu2, coeffs, 4, coeffs2)
call solve2_2(numeval, (/0,1/), mu2, coeffs, 1, coeffs2)
call solve2_2(numeval, (/0,2/), mu2, coeffs, 2, coeffs2)
call solve2_2(numeval, (/0,3/), mu2, coeffs, 3, coeffs2)
call solve2_2(numeval, (/1,2/), mu2, coeffs, 4, coeffs2)
call solve2_2(numeval, (/1,3/), mu2, coeffs, 5, coeffs2)
call solve2_2(numeval, (/2,3/), mu2, coeffs, 6, coeffs2)
else
coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
call solve2_1(numeval, (/0/), mu2, coeffs, 1)
call solve2_1(numeval, (/1/), mu2, coeffs, 2)
call solve2_1(numeval, (/2/), mu2, coeffs, 3)
call solve2_1(numeval, (/3/), mu2, coeffs, 4)
call solve2_2(numeval, (/0,1/), mu2, coeffs, 1)
call solve2_2(numeval, (/0,2/), mu2, coeffs, 2)
call solve2_2(numeval, (/0,3/), mu2, coeffs, 3)
call solve2_2(numeval, (/1,2/), mu2, coeffs, 4)
call solve2_2(numeval, (/1,3/), mu2, coeffs, 5)
call solve2_2(numeval, (/2,3/), mu2, coeffs, 6)
end if
end subroutine solve2
!****f* src/interface/tens_rec/tenseval2
! NAME
!
! Function tenseval2
!
! USAGE
!
! result = tenseval2(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_2
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval2(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_2), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval2
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 2
end if
tenseval2 = coeffs%c0
if (1 .le. maxk) then
tenseval2 = tenseval2 + tenseval2_1(Q, (/0/), coeffs%c1(1,:))
tenseval2 = tenseval2 + tenseval2_1(Q, (/1/), coeffs%c1(2,:))
tenseval2 = tenseval2 + tenseval2_1(Q, (/2/), coeffs%c1(3,:))
tenseval2 = tenseval2 + tenseval2_1(Q, (/3/), coeffs%c1(4,:))
end if
if (2 .le. maxk) then
tenseval2 = tenseval2 + tenseval2_2(Q, (/0,1/), coeffs%c2(1,:))
tenseval2 = tenseval2 + tenseval2_2(Q, (/0,2/), coeffs%c2(2,:))
tenseval2 = tenseval2 + tenseval2_2(Q, (/0,3/), coeffs%c2(3,:))
tenseval2 = tenseval2 + tenseval2_2(Q, (/1,2/), coeffs%c2(4,:))
tenseval2 = tenseval2 + tenseval2_2(Q, (/1,3/), coeffs%c2(5,:))
tenseval2 = tenseval2 + tenseval2_2(Q, (/2,3/), coeffs%c2(6,:))
end if
end function tenseval2
!****f* src/interface/tens_rec/ctenseval2
! NAME
!
! Function ctenseval2
!
! USAGE
!
! result = ctenseval2(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval2(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_2), intent(in) :: coeffs
complex(ki) :: ctenseval2
ctenseval2 = coeffs%c0
ctenseval2 = ctenseval2 + ctenseval2_1(Q, (/0/), coeffs%c1(1,:))
ctenseval2 = ctenseval2 + ctenseval2_1(Q, (/1/), coeffs%c1(2,:))
ctenseval2 = ctenseval2 + ctenseval2_1(Q, (/2/), coeffs%c1(3,:))
ctenseval2 = ctenseval2 + ctenseval2_1(Q, (/3/), coeffs%c1(4,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/0,1/), coeffs%c2(1,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/0,2/), coeffs%c2(2,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/0,3/), coeffs%c2(3,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/1,2/), coeffs%c2(4,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/1,3/), coeffs%c2(5,:))
ctenseval2 = ctenseval2 + ctenseval2_2(Q, (/2,3/), coeffs%c2(6,:))
end function ctenseval2
!****f* src/interface/tens_rec/print_coeffs_2
! NAME
!
! Subroutine print_coeffs_2
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 2
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_2
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_2(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_2), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
end subroutine print_coeffs_2
!****f* src/interface/tens_rec/reconstruct2
! NAME
!
! Subroutine reconstruct2
!
! USAGE
!
! call reconstruct2(numeval, cm0, cm1, cm2)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 2,
! including the coefficients in front of mu2 and mu2^2.
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_2, representing the
! numerator at mu2=0
! * cm1 -- coefficients of type complex(ki), representing the
! tensor in front of mu2 [optional]
! * cm2 -- coefficients of type complex(ki), representing the
! tensor in front of mu2^2 [optional]
!
! SIDE EFFECTS
!
! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
! is at most linear in mu2.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct2(numeval, cm0, cm1, cm2)
! generated by: write_subroutine_reconstruct
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_2), intent(out) :: cm0
complex(ki), intent(out), optional :: cm1
complex(ki), intent(out), optional :: cm2
complex(ki) :: ca, cb
call solve2(numeval, 0.0_ki, cm0)
if (present(cm1)) then
if (present(cm2)) then
ca = numeval(null_vec, +1.0_ki) - cm0%c0
cb = numeval(null_vec, -1.0_ki) - cm0%c0
cm1= 0.5_ki * (ca - cb)
cm2= 0.5_ki * (ca + cb)
else
cm1 = numeval(null_vec, +1.0_ki) - cm0%c0
end if
end if
end subroutine reconstruct2
!****f* src/interface/tens_rec/solve3_1
! NAME
!
! Subroutine solve3_1
!
! USAGE
!
! call solve3_1(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q3_1.
! The matrix mat3_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_3 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve3_1(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_3), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_5), intent(in), optional :: coeffs2
complex(ki), dimension(3) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,3
Q(indices(1)) = q3_1(i,1)
xnum(i) = numeval(Q, mu2) &
& - tenseval3(Q, coeffs, 0) &
& - tenseval5(Q, coeffs2, 1)
end do
else
do i=1,3
Q(indices(1)) = q3_1(i,1)
xnum(i) = numeval(Q, mu2) - tenseval3(Q, coeffs, 0)
end do
end if
coeffs%c1(idx,:) = matmul(mat3_1,xnum)
end subroutine solve3_1
!****f* src/interface/tens_rec/tenseval3_1
! NAME
!
! Function tenseval3_1
!
! USAGE
!
! result = tenseval3_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(3) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval3_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(3), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval3_1
real(ki) :: q0
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(2) + coeffs(3)*q0
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
tenseval3_1 = acc
end function tenseval3_1
!****f* src/interface/tens_rec/ctenseval3_1
! NAME
!
! Function ctenseval3_1
!
! USAGE
!
! result = ctenseval3_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(3) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval3_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(3), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval3_1
complex(ki) :: q0
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(2) + coeffs(3)*q0
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
ctenseval3_1 = acc
end function ctenseval3_1
!****f* src/interface/tens_rec/solve3_2
! NAME
!
! Subroutine solve3_2
!
! USAGE
!
! call solve3_2(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q3_2.
! The matrix mat3_2 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_3 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve3_2(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(2), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_3), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_5), intent(in), optional :: coeffs2
complex(ki), dimension(3) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,3
Q(indices(1)) = q3_2(i,1)
Q(indices(2)) = q3_2(i,2)
xnum(i) = numeval(Q, mu2) &
& - tenseval3(Q, coeffs, 1) &
& - tenseval5(Q, coeffs2, 2)
end do
else
do i=1,3
Q(indices(1)) = q3_2(i,1)
Q(indices(2)) = q3_2(i,2)
xnum(i) = numeval(Q, mu2) - tenseval3(Q, coeffs, 1)
end do
end if
coeffs%c2(idx,:) = matmul(mat3_2,xnum)
end subroutine solve3_2
!****f* src/interface/tens_rec/tenseval3_2
! NAME
!
! Function tenseval3_2
!
! USAGE
!
! result = tenseval3_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(3) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval3_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(3), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval3_2
real(ki) :: q0
real(ki) :: q1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(2)*q1 + coeffs(3)*q0 + coeffs(1)
acc = acc*q0*q1
tenseval3_2 = acc
end function tenseval3_2
!****f* src/interface/tens_rec/ctenseval3_2
! NAME
!
! Function ctenseval3_2
!
! USAGE
!
! result = ctenseval3_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(3) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval3_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(3), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval3_2
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(2)*q1 + coeffs(3)*q0 + coeffs(1)
acc = acc*q0*q1
ctenseval3_2 = acc
end function ctenseval3_2
!****f* src/interface/tens_rec/solve3_3
! NAME
!
! Subroutine solve3_3
!
! USAGE
!
! call solve3_3(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q3_3.
! The matrix mat3_3 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_3 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve3_3(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(3), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_3), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_5), intent(in), optional :: coeffs2
complex(ki), dimension(1) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,1
Q(indices(1)) = q3_3(i,1)
Q(indices(2)) = q3_3(i,2)
Q(indices(3)) = q3_3(i,3)
xnum(i) = numeval(Q, mu2) &
& - tenseval3(Q, coeffs, 2) &
& - tenseval5(Q, coeffs2, 3)
end do
else
do i=1,1
Q(indices(1)) = q3_3(i,1)
Q(indices(2)) = q3_3(i,2)
Q(indices(3)) = q3_3(i,3)
xnum(i) = numeval(Q, mu2) - tenseval3(Q, coeffs, 2)
end do
end if
coeffs%c3(idx,:) = matmul(mat3_3,xnum)
end subroutine solve3_3
!****f* src/interface/tens_rec/tenseval3_3
! NAME
!
! Function tenseval3_3
!
! USAGE
!
! result = tenseval3_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval3_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval3_3
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(1)*q0*q1*q2
tenseval3_3 = acc
end function tenseval3_3
!****f* src/interface/tens_rec/ctenseval3_3
! NAME
!
! Function ctenseval3_3
!
! USAGE
!
! result = ctenseval3_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval3_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval3_3
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(1)*q0*q1*q2
ctenseval3_3 = acc
end function ctenseval3_3
!****f* src/interface/tens_rec/solve3
! NAME
!
! Subroutine solve3
!
! USAGE
!
! call solve3(numeval, mu2, coeffs, coeffs2)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 3
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_3 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
subroutine solve3(numeval, mu2, coeffs, coeffs2)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_3), intent(inout) :: coeffs
type(coeff_type_5), intent(in), optional :: coeffs2
if (present(coeffs2)) then
coeffs%c0 = numeval(null_vec, mu2) - coeffs2%c0
call solve3_1(numeval, (/0/), mu2, coeffs, 1, coeffs2)
call solve3_1(numeval, (/1/), mu2, coeffs, 2, coeffs2)
call solve3_1(numeval, (/2/), mu2, coeffs, 3, coeffs2)
call solve3_1(numeval, (/3/), mu2, coeffs, 4, coeffs2)
call solve3_2(numeval, (/0,1/), mu2, coeffs, 1, coeffs2)
call solve3_2(numeval, (/0,2/), mu2, coeffs, 2, coeffs2)
call solve3_2(numeval, (/0,3/), mu2, coeffs, 3, coeffs2)
call solve3_2(numeval, (/1,2/), mu2, coeffs, 4, coeffs2)
call solve3_2(numeval, (/1,3/), mu2, coeffs, 5, coeffs2)
call solve3_2(numeval, (/2,3/), mu2, coeffs, 6, coeffs2)
call solve3_3(numeval, (/0,1,2/), mu2, coeffs, 1, coeffs2)
call solve3_3(numeval, (/0,1,3/), mu2, coeffs, 2, coeffs2)
call solve3_3(numeval, (/0,2,3/), mu2, coeffs, 3, coeffs2)
call solve3_3(numeval, (/1,2,3/), mu2, coeffs, 4, coeffs2)
else
coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
call solve3_1(numeval, (/0/), mu2, coeffs, 1)
call solve3_1(numeval, (/1/), mu2, coeffs, 2)
call solve3_1(numeval, (/2/), mu2, coeffs, 3)
call solve3_1(numeval, (/3/), mu2, coeffs, 4)
call solve3_2(numeval, (/0,1/), mu2, coeffs, 1)
call solve3_2(numeval, (/0,2/), mu2, coeffs, 2)
call solve3_2(numeval, (/0,3/), mu2, coeffs, 3)
call solve3_2(numeval, (/1,2/), mu2, coeffs, 4)
call solve3_2(numeval, (/1,3/), mu2, coeffs, 5)
call solve3_2(numeval, (/2,3/), mu2, coeffs, 6)
call solve3_3(numeval, (/0,1,2/), mu2, coeffs, 1)
call solve3_3(numeval, (/0,1,3/), mu2, coeffs, 2)
call solve3_3(numeval, (/0,2,3/), mu2, coeffs, 3)
call solve3_3(numeval, (/1,2,3/), mu2, coeffs, 4)
end if
end subroutine solve3
!****f* src/interface/tens_rec/tenseval3
! NAME
!
! Function tenseval3
!
! USAGE
!
! result = tenseval3(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_3
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval3(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_3), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval3
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 3
end if
tenseval3 = coeffs%c0
if (1 .le. maxk) then
tenseval3 = tenseval3 + tenseval3_1(Q, (/0/), coeffs%c1(1,:))
tenseval3 = tenseval3 + tenseval3_1(Q, (/1/), coeffs%c1(2,:))
tenseval3 = tenseval3 + tenseval3_1(Q, (/2/), coeffs%c1(3,:))
tenseval3 = tenseval3 + tenseval3_1(Q, (/3/), coeffs%c1(4,:))
end if
if (2 .le. maxk) then
tenseval3 = tenseval3 + tenseval3_2(Q, (/0,1/), coeffs%c2(1,:))
tenseval3 = tenseval3 + tenseval3_2(Q, (/0,2/), coeffs%c2(2,:))
tenseval3 = tenseval3 + tenseval3_2(Q, (/0,3/), coeffs%c2(3,:))
tenseval3 = tenseval3 + tenseval3_2(Q, (/1,2/), coeffs%c2(4,:))
tenseval3 = tenseval3 + tenseval3_2(Q, (/1,3/), coeffs%c2(5,:))
tenseval3 = tenseval3 + tenseval3_2(Q, (/2,3/), coeffs%c2(6,:))
end if
if (3 .le. maxk) then
tenseval3 = tenseval3 + tenseval3_3(Q, (/0,1,2/), coeffs%c3(1,:))
tenseval3 = tenseval3 + tenseval3_3(Q, (/0,1,3/), coeffs%c3(2,:))
tenseval3 = tenseval3 + tenseval3_3(Q, (/0,2,3/), coeffs%c3(3,:))
tenseval3 = tenseval3 + tenseval3_3(Q, (/1,2,3/), coeffs%c3(4,:))
end if
end function tenseval3
!****f* src/interface/tens_rec/ctenseval3
! NAME
!
! Function ctenseval3
!
! USAGE
!
! result = ctenseval3(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_3
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval3(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_3), intent(in) :: coeffs
complex(ki) :: ctenseval3
ctenseval3 = coeffs%c0
ctenseval3 = ctenseval3 + ctenseval3_1(Q, (/0/), coeffs%c1(1,:))
ctenseval3 = ctenseval3 + ctenseval3_1(Q, (/1/), coeffs%c1(2,:))
ctenseval3 = ctenseval3 + ctenseval3_1(Q, (/2/), coeffs%c1(3,:))
ctenseval3 = ctenseval3 + ctenseval3_1(Q, (/3/), coeffs%c1(4,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/0,1/), coeffs%c2(1,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/0,2/), coeffs%c2(2,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/0,3/), coeffs%c2(3,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/1,2/), coeffs%c2(4,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/1,3/), coeffs%c2(5,:))
ctenseval3 = ctenseval3 + ctenseval3_2(Q, (/2,3/), coeffs%c2(6,:))
ctenseval3 = ctenseval3 + ctenseval3_3(Q, (/0,1,2/), coeffs%c3(1,:))
ctenseval3 = ctenseval3 + ctenseval3_3(Q, (/0,1,3/), coeffs%c3(2,:))
ctenseval3 = ctenseval3 + ctenseval3_3(Q, (/0,2,3/), coeffs%c3(3,:))
ctenseval3 = ctenseval3 + ctenseval3_3(Q, (/1,2,3/), coeffs%c3(4,:))
end function ctenseval3
!****f* src/interface/tens_rec/print_coeffs_3
! NAME
!
! Subroutine print_coeffs_3
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 3
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_3
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_3(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_3), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,3), ')*q(0)^3'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,3), ')*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,3), ')*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,3), ')*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,2), ')*q(0)*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,3), ')*q(0)^2*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,2), ')*q(0)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,3), ')*q(0)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,2), ')*q(0)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,3), ')*q(0)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,2), ')*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,3), ')*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,2), ')*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,3), ')*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,2), ')*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,3), ')*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(1,1), ')*q(0)*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(2,1), ')*q(0)*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(3,1), ')*q(0)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(4,1), ')*q(1)*q(2)*q(3)'
end subroutine print_coeffs_3
!****f* src/interface/tens_rec/reconstruct3
! NAME
!
! Subroutine reconstruct3
!
! USAGE
!
! call reconstruct3(numeval, cm0, cm1, cm2)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 3,
! including the coefficients in front of mu2 and mu2^2.
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_3, representing the
! numerator at mu2=0
! * cm1 -- coefficients of type type(coeff_type_1), representing the
! tensor in front of mu2 [optional]
! * cm2 -- coefficients of type type(coeff_type_1), representing the
! tensor in front of mu2^2 [optional]
!
! SIDE EFFECTS
!
! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
! is at most linear in mu2.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct3(numeval, cm0, cm1, cm2)
! generated by: write_subroutine_reconstruct
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_3), intent(out) :: cm0
type(coeff_type_1), intent(out), optional :: cm1
type(coeff_type_1), intent(out), optional :: cm2
type(coeff_type_1) :: ca, cb
call solve3(numeval, 0.0_ki, cm0)
if (present(cm1)) then
if (present(cm2)) then
call solve1(numeval, +1.0_ki, ca, cm0)
call solve1(numeval, -1.0_ki, cb, cm0)
cm1%c0= 0.5_ki * (ca%c0 - cb%c0)
cm2%c0= 0.5_ki * (ca%c0 + cb%c0)
cm1%c1 = 0.5_ki * (ca%c1 - cb%c1)
cm2%c1 = 0.5_ki * (ca%c1 + cb%c1)
else
call solve1(numeval, +1.0_ki, cm1, cm0)
end if
end if
end subroutine reconstruct3
!****f* src/interface/tens_rec/solve4_1
! NAME
!
! Subroutine solve4_1
!
! USAGE
!
! call solve4_1(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q4_1.
! The matrix mat4_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_4 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve4_1(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_4), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_6), intent(in), optional :: coeffs2
complex(ki), dimension(4) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,4
Q(indices(1)) = q4_1(i,1)
xnum(i) = numeval(Q, mu2) &
& - tenseval4(Q, coeffs, 0) &
& - tenseval6(Q, coeffs2, 1)
end do
else
do i=1,4
Q(indices(1)) = q4_1(i,1)
xnum(i) = numeval(Q, mu2) - tenseval4(Q, coeffs, 0)
end do
end if
coeffs%c1(idx,:) = matmul(mat4_1,xnum)
end subroutine solve4_1
!****f* src/interface/tens_rec/tenseval4_1
! NAME
!
! Function tenseval4_1
!
! USAGE
!
! result = tenseval4_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(4) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval4_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(4), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval4_1
real(ki) :: q0
complex(ki) :: reg2
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(3) + coeffs(4)*q0
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
tenseval4_1 = acc
end function tenseval4_1
!****f* src/interface/tens_rec/ctenseval4_1
! NAME
!
! Function ctenseval4_1
!
! USAGE
!
! result = ctenseval4_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(4) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval4_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(4), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval4_1
complex(ki) :: q0
complex(ki) :: reg2
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(3) + coeffs(4)*q0
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
ctenseval4_1 = acc
end function ctenseval4_1
!****f* src/interface/tens_rec/solve4_2
! NAME
!
! Subroutine solve4_2
!
! USAGE
!
! call solve4_2(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q4_2.
! The matrix mat4_2 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_4 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve4_2(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(2), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_4), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_6), intent(in), optional :: coeffs2
complex(ki), dimension(6) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,6
Q(indices(1)) = q4_2(i,1)
Q(indices(2)) = q4_2(i,2)
xnum(i) = numeval(Q, mu2) &
& - tenseval4(Q, coeffs, 1) &
& - tenseval6(Q, coeffs2, 2)
end do
else
do i=1,6
Q(indices(1)) = q4_2(i,1)
Q(indices(2)) = q4_2(i,2)
xnum(i) = numeval(Q, mu2) - tenseval4(Q, coeffs, 1)
end do
end if
coeffs%c2(idx,:) = matmul(mat4_2,xnum)
end subroutine solve4_2
!****f* src/interface/tens_rec/tenseval4_2
! NAME
!
! Function tenseval4_2
!
! USAGE
!
! result = tenseval4_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(6) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval4_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(6), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval4_2
real(ki) :: q0
real(ki) :: q1
complex(ki) :: reg2
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(3)*q1 + coeffs(5)*q0 + coeffs(2)
reg1 = acc*q1
acc = coeffs(6)*q0 + coeffs(4)
reg2 = acc*q0
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
tenseval4_2 = acc
end function tenseval4_2
!****f* src/interface/tens_rec/ctenseval4_2
! NAME
!
! Function ctenseval4_2
!
! USAGE
!
! result = ctenseval4_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(6) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval4_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(6), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval4_2
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: reg2
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(3)*q1 + coeffs(5)*q0 + coeffs(2)
reg1 = acc*q1
acc = coeffs(6)*q0 + coeffs(4)
reg2 = acc*q0
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
ctenseval4_2 = acc
end function ctenseval4_2
!****f* src/interface/tens_rec/solve4_3
! NAME
!
! Subroutine solve4_3
!
! USAGE
!
! call solve4_3(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q4_3.
! The matrix mat4_3 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_4 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve4_3(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(3), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_4), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_6), intent(in), optional :: coeffs2
complex(ki), dimension(4) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
if (present(coeffs2)) then
do i=1,4
Q(indices(1)) = q4_3(i,1)
Q(indices(2)) = q4_3(i,2)
Q(indices(3)) = q4_3(i,3)
xnum(i) = numeval(Q, mu2) &
& - tenseval4(Q, coeffs, 2) &
& - tenseval6(Q, coeffs2, 3)
end do
else
do i=1,4
Q(indices(1)) = q4_3(i,1)
Q(indices(2)) = q4_3(i,2)
Q(indices(3)) = q4_3(i,3)
xnum(i) = numeval(Q, mu2) - tenseval4(Q, coeffs, 2)
end do
end if
coeffs%c3(idx,:) = matmul(mat4_3,xnum)
end subroutine solve4_3
!****f* src/interface/tens_rec/tenseval4_3
! NAME
!
! Function tenseval4_3
!
! USAGE
!
! result = tenseval4_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(4) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval4_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(4), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval4_3
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(4)*q0 + coeffs(3)*q1 + coeffs(1) + coeffs(2)*q2
acc = acc*q0*q1*q2
tenseval4_3 = acc
end function tenseval4_3
!****f* src/interface/tens_rec/ctenseval4_3
! NAME
!
! Function ctenseval4_3
!
! USAGE
!
! result = ctenseval4_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(4) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval4_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(4), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval4_3
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(4)*q0 + coeffs(3)*q1 + coeffs(1) + coeffs(2)*q2
acc = acc*q0*q1*q2
ctenseval4_3 = acc
end function ctenseval4_3
!****f* src/interface/tens_rec/solve4_4
! NAME
!
! Subroutine solve4_4
!
! USAGE
!
! call solve4_4(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q4_4.
! The matrix mat4_4 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_4 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve4_4(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(4), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_4), intent(inout) :: coeffs
integer, intent(in) :: idx
type(coeff_type_6), intent(in), optional :: coeffs2
complex(ki), dimension(1) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
if (present(coeffs2)) then
do i=1,1
Q(indices(1)) = q4_4(i,1)
Q(indices(2)) = q4_4(i,2)
Q(indices(3)) = q4_4(i,3)
Q(indices(4)) = q4_4(i,4)
xnum(i) = numeval(Q, mu2) &
& - tenseval4(Q, coeffs, 3) &
& - tenseval6(Q, coeffs2, 4)
end do
else
do i=1,1
Q(indices(1)) = q4_4(i,1)
Q(indices(2)) = q4_4(i,2)
Q(indices(3)) = q4_4(i,3)
Q(indices(4)) = q4_4(i,4)
xnum(i) = numeval(Q, mu2) - tenseval4(Q, coeffs, 3)
end do
end if
coeffs%c4(idx,:) = matmul(mat4_4,xnum)
end subroutine solve4_4
!****f* src/interface/tens_rec/tenseval4_4
! NAME
!
! Function tenseval4_4
!
! USAGE
!
! result = tenseval4_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval4_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval4_4
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
real(ki) :: q3
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(1)*q0*q1*q2*q3
tenseval4_4 = acc
end function tenseval4_4
!****f* src/interface/tens_rec/ctenseval4_4
! NAME
!
! Function ctenseval4_4
!
! USAGE
!
! result = ctenseval4_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(1) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval4_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(1), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval4_4
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: q3
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(1)*q0*q1*q2*q3
ctenseval4_4 = acc
end function ctenseval4_4
!****f* src/interface/tens_rec/solve4
! NAME
!
! Subroutine solve4
!
! USAGE
!
! call solve4(numeval, mu2, coeffs, coeffs2)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 4
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_4 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
subroutine solve4(numeval, mu2, coeffs, coeffs2)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_4), intent(inout) :: coeffs
type(coeff_type_6), intent(in), optional :: coeffs2
if (present(coeffs2)) then
coeffs%c0 = numeval(null_vec, mu2) - coeffs2%c0
call solve4_1(numeval, (/0/), mu2, coeffs, 1, coeffs2)
call solve4_1(numeval, (/1/), mu2, coeffs, 2, coeffs2)
call solve4_1(numeval, (/2/), mu2, coeffs, 3, coeffs2)
call solve4_1(numeval, (/3/), mu2, coeffs, 4, coeffs2)
call solve4_2(numeval, (/0,1/), mu2, coeffs, 1, coeffs2)
call solve4_2(numeval, (/0,2/), mu2, coeffs, 2, coeffs2)
call solve4_2(numeval, (/0,3/), mu2, coeffs, 3, coeffs2)
call solve4_2(numeval, (/1,2/), mu2, coeffs, 4, coeffs2)
call solve4_2(numeval, (/1,3/), mu2, coeffs, 5, coeffs2)
call solve4_2(numeval, (/2,3/), mu2, coeffs, 6, coeffs2)
call solve4_3(numeval, (/0,1,2/), mu2, coeffs, 1, coeffs2)
call solve4_3(numeval, (/0,1,3/), mu2, coeffs, 2, coeffs2)
call solve4_3(numeval, (/0,2,3/), mu2, coeffs, 3, coeffs2)
call solve4_3(numeval, (/1,2,3/), mu2, coeffs, 4, coeffs2)
call solve4_4(numeval, (/0,1,2,3/), mu2, coeffs, 1, coeffs2)
else
coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
call solve4_1(numeval, (/0/), mu2, coeffs, 1)
call solve4_1(numeval, (/1/), mu2, coeffs, 2)
call solve4_1(numeval, (/2/), mu2, coeffs, 3)
call solve4_1(numeval, (/3/), mu2, coeffs, 4)
call solve4_2(numeval, (/0,1/), mu2, coeffs, 1)
call solve4_2(numeval, (/0,2/), mu2, coeffs, 2)
call solve4_2(numeval, (/0,3/), mu2, coeffs, 3)
call solve4_2(numeval, (/1,2/), mu2, coeffs, 4)
call solve4_2(numeval, (/1,3/), mu2, coeffs, 5)
call solve4_2(numeval, (/2,3/), mu2, coeffs, 6)
call solve4_3(numeval, (/0,1,2/), mu2, coeffs, 1)
call solve4_3(numeval, (/0,1,3/), mu2, coeffs, 2)
call solve4_3(numeval, (/0,2,3/), mu2, coeffs, 3)
call solve4_3(numeval, (/1,2,3/), mu2, coeffs, 4)
call solve4_4(numeval, (/0,1,2,3/), mu2, coeffs, 1)
end if
end subroutine solve4
!****f* src/interface/tens_rec/tenseval4
! NAME
!
! Function tenseval4
!
! USAGE
!
! result = tenseval4(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_4
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval4(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_4), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval4
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 4
end if
tenseval4 = coeffs%c0
if (1 .le. maxk) then
tenseval4 = tenseval4 + tenseval4_1(Q, (/0/), coeffs%c1(1,:))
tenseval4 = tenseval4 + tenseval4_1(Q, (/1/), coeffs%c1(2,:))
tenseval4 = tenseval4 + tenseval4_1(Q, (/2/), coeffs%c1(3,:))
tenseval4 = tenseval4 + tenseval4_1(Q, (/3/), coeffs%c1(4,:))
end if
if (2 .le. maxk) then
tenseval4 = tenseval4 + tenseval4_2(Q, (/0,1/), coeffs%c2(1,:))
tenseval4 = tenseval4 + tenseval4_2(Q, (/0,2/), coeffs%c2(2,:))
tenseval4 = tenseval4 + tenseval4_2(Q, (/0,3/), coeffs%c2(3,:))
tenseval4 = tenseval4 + tenseval4_2(Q, (/1,2/), coeffs%c2(4,:))
tenseval4 = tenseval4 + tenseval4_2(Q, (/1,3/), coeffs%c2(5,:))
tenseval4 = tenseval4 + tenseval4_2(Q, (/2,3/), coeffs%c2(6,:))
end if
if (3 .le. maxk) then
tenseval4 = tenseval4 + tenseval4_3(Q, (/0,1,2/), coeffs%c3(1,:))
tenseval4 = tenseval4 + tenseval4_3(Q, (/0,1,3/), coeffs%c3(2,:))
tenseval4 = tenseval4 + tenseval4_3(Q, (/0,2,3/), coeffs%c3(3,:))
tenseval4 = tenseval4 + tenseval4_3(Q, (/1,2,3/), coeffs%c3(4,:))
end if
if (4 .le. maxk) then
tenseval4 = tenseval4 + tenseval4_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end if
end function tenseval4
!****f* src/interface/tens_rec/ctenseval4
! NAME
!
! Function ctenseval4
!
! USAGE
!
! result = ctenseval4(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_4
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval4(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_4), intent(in) :: coeffs
complex(ki) :: ctenseval4
ctenseval4 = coeffs%c0
ctenseval4 = ctenseval4 + ctenseval4_1(Q, (/0/), coeffs%c1(1,:))
ctenseval4 = ctenseval4 + ctenseval4_1(Q, (/1/), coeffs%c1(2,:))
ctenseval4 = ctenseval4 + ctenseval4_1(Q, (/2/), coeffs%c1(3,:))
ctenseval4 = ctenseval4 + ctenseval4_1(Q, (/3/), coeffs%c1(4,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/0,1/), coeffs%c2(1,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/0,2/), coeffs%c2(2,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/0,3/), coeffs%c2(3,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/1,2/), coeffs%c2(4,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/1,3/), coeffs%c2(5,:))
ctenseval4 = ctenseval4 + ctenseval4_2(Q, (/2,3/), coeffs%c2(6,:))
ctenseval4 = ctenseval4 + ctenseval4_3(Q, (/0,1,2/), coeffs%c3(1,:))
ctenseval4 = ctenseval4 + ctenseval4_3(Q, (/0,1,3/), coeffs%c3(2,:))
ctenseval4 = ctenseval4 + ctenseval4_3(Q, (/0,2,3/), coeffs%c3(3,:))
ctenseval4 = ctenseval4 + ctenseval4_3(Q, (/1,2,3/), coeffs%c3(4,:))
ctenseval4 = ctenseval4 + ctenseval4_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end function ctenseval4
!****f* src/interface/tens_rec/print_coeffs_4
! NAME
!
! Subroutine print_coeffs_4
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 4
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_4
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_4(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_4), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,3), ')*q(0)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,4), ')*q(0)^4'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,3), ')*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,4), ')*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,3), ')*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,4), ')*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,3), ')*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,4), ')*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,2), ')*q(0)*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,3), ')*q(0)*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,4), ')*q(0)^2*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,5), ')*q(0)^2*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,6), ')*q(0)^3*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,2), ')*q(0)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,3), ')*q(0)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,4), ')*q(0)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,5), ')*q(0)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,6), ')*q(0)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,2), ')*q(0)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,3), ')*q(0)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,4), ')*q(0)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,5), ')*q(0)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,6), ')*q(0)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,2), ')*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,3), ')*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,4), ')*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,5), ')*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,6), ')*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,2), ')*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,3), ')*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,4), ')*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,5), ')*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,6), ')*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,2), ')*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,3), ')*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,4), ')*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,5), ')*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,6), ')*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(1,1), ')*q(0)*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,2), ')*q(0)*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,3), ')*q(0)*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,4), ')*q(0)^2*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(2,1), ')*q(0)*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,2), ')*q(0)*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,3), ')*q(0)*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,4), ')*q(0)^2*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(3,1), ')*q(0)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,2), ')*q(0)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,3), ')*q(0)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,4), ')*q(0)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(4,1), ')*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,2), ')*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,3), ')*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,4), ')*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A21)') ' + (', coeffs%c4(1,1), ')*q(0)*q(1)*q(2)*q(3)'
end subroutine print_coeffs_4
!****f* src/interface/tens_rec/reconstruct4
! NAME
!
! Subroutine reconstruct4
!
! USAGE
!
! call reconstruct4(numeval, cm0, cm1, cm2)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 4,
! including the coefficients in front of mu2 and mu2^2.
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_4, representing the
! numerator at mu2=0
! * cm1 -- coefficients of type type(coeff_type_2), representing the
! tensor in front of mu2 [optional]
! * cm2 -- coefficients of type type(coeff_type_2), representing the
! tensor in front of mu2^2 [optional]
!
! SIDE EFFECTS
!
! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
! is at most linear in mu2.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct4(numeval, cm0, cm1, cm2)
! generated by: write_subroutine_reconstruct
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_4), intent(out) :: cm0
type(coeff_type_2), intent(out), optional :: cm1
type(coeff_type_2), intent(out), optional :: cm2
type(coeff_type_2) :: ca, cb
call solve4(numeval, 0.0_ki, cm0)
if (present(cm1)) then
if (present(cm2)) then
call solve2(numeval, +1.0_ki, ca, cm0)
call solve2(numeval, -1.0_ki, cb, cm0)
cm1%c0= 0.5_ki * (ca%c0 - cb%c0)
cm2%c0= 0.5_ki * (ca%c0 + cb%c0)
cm1%c1 = 0.5_ki * (ca%c1 - cb%c1)
cm2%c1 = 0.5_ki * (ca%c1 + cb%c1)
cm1%c2 = 0.5_ki * (ca%c2 - cb%c2)
cm2%c2 = 0.5_ki * (ca%c2 + cb%c2)
else
call solve2(numeval, +1.0_ki, cm1, cm0)
end if
end if
end subroutine reconstruct4
!****f* src/interface/tens_rec/solve5_1
! NAME
!
! Subroutine solve5_1
!
! USAGE
!
-! call solve5_1(numeval, indices, mu2, coeffs, idx)
+! call solve5_1(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q5_1.
! The matrix mat5_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_5 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
-subroutine solve5_1(numeval, indices, mu2, coeffs, idx)
+subroutine solve5_1(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_5), intent(inout) :: coeffs
integer, intent(in) :: idx
+ type(coeff_type_7), intent(in), optional :: coeffs2
complex(ki), dimension(5) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
- do i=1,5
- Q(indices(1)) = q5_1(i,1)
- xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 0)
- end do
+ if (present(coeffs2)) then
+ do i=1,5
+ Q(indices(1)) = q5_1(i,1)
+ xnum(i) = numeval(Q, mu2) &
+ & - tenseval5(Q, coeffs, 0) &
+ & - tenseval7(Q, coeffs2, 1)
+ end do
+ else
+ do i=1,5
+ Q(indices(1)) = q5_1(i,1)
+ xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 0)
+ end do
+ end if
coeffs%c1(idx,:) = matmul(mat5_1,xnum)
end subroutine solve5_1
!****f* src/interface/tens_rec/tenseval5_1
! NAME
!
! Function tenseval5_1
!
! USAGE
!
! result = tenseval5_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(5) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval5_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(5), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval5_1
real(ki) :: q0
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(4) + coeffs(5)*q0
reg3 = acc*q0
acc = coeffs(3)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
tenseval5_1 = acc
end function tenseval5_1
!****f* src/interface/tens_rec/ctenseval5_1
! NAME
!
! Function ctenseval5_1
!
! USAGE
!
! result = ctenseval5_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(5) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval5_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(5), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval5_1
complex(ki) :: q0
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(4) + coeffs(5)*q0
reg3 = acc*q0
acc = coeffs(3)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
ctenseval5_1 = acc
end function ctenseval5_1
!****f* src/interface/tens_rec/solve5_2
! NAME
!
! Subroutine solve5_2
!
! USAGE
!
-! call solve5_2(numeval, indices, mu2, coeffs, idx)
+! call solve5_2(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q5_2.
! The matrix mat5_2 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_5 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
-subroutine solve5_2(numeval, indices, mu2, coeffs, idx)
+subroutine solve5_2(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(2), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_5), intent(inout) :: coeffs
integer, intent(in) :: idx
+ type(coeff_type_7), intent(in), optional :: coeffs2
complex(ki), dimension(10) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
- do i=1,10
- Q(indices(1)) = q5_2(i,1)
- Q(indices(2)) = q5_2(i,2)
- xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 1)
- end do
+ if (present(coeffs2)) then
+ do i=1,10
+ Q(indices(1)) = q5_2(i,1)
+ Q(indices(2)) = q5_2(i,2)
+ xnum(i) = numeval(Q, mu2) &
+ & - tenseval5(Q, coeffs, 1) &
+ & - tenseval7(Q, coeffs2, 2)
+ end do
+ else
+ do i=1,10
+ Q(indices(1)) = q5_2(i,1)
+ Q(indices(2)) = q5_2(i,2)
+ xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 1)
+ end do
+ end if
coeffs%c2(idx,:) = matmul(mat5_2,xnum)
end subroutine solve5_2
!****f* src/interface/tens_rec/tenseval5_2
! NAME
!
! Function tenseval5_2
!
! USAGE
!
! result = tenseval5_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(10) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval5_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(10), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval5_2
real(ki) :: q0
real(ki) :: q1
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(7)*q1 + coeffs(9)*q0 + coeffs(6)
reg2 = acc*q0
acc = coeffs(4)*q1 + coeffs(3)
reg3 = acc*q1
acc = coeffs(2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q1
acc = coeffs(10)*q0 + coeffs(8)
reg3 = acc*q0
acc = coeffs(5)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
tenseval5_2 = acc
end function tenseval5_2
!****f* src/interface/tens_rec/ctenseval5_2
! NAME
!
! Function ctenseval5_2
!
! USAGE
!
! result = ctenseval5_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(10) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval5_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(10), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval5_2
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(7)*q1 + coeffs(9)*q0 + coeffs(6)
reg2 = acc*q0
acc = coeffs(4)*q1 + coeffs(3)
reg3 = acc*q1
acc = coeffs(2)
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q1
acc = coeffs(10)*q0 + coeffs(8)
reg3 = acc*q0
acc = coeffs(5)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
ctenseval5_2 = acc
end function ctenseval5_2
!****f* src/interface/tens_rec/solve5_3
! NAME
!
! Subroutine solve5_3
!
! USAGE
!
-! call solve5_3(numeval, indices, mu2, coeffs, idx)
+! call solve5_3(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q5_3.
! The matrix mat5_3 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_5 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
-subroutine solve5_3(numeval, indices, mu2, coeffs, idx)
+subroutine solve5_3(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(3), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_5), intent(inout) :: coeffs
integer, intent(in) :: idx
+ type(coeff_type_7), intent(in), optional :: coeffs2
complex(ki), dimension(10) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
- do i=1,10
- Q(indices(1)) = q5_3(i,1)
- Q(indices(2)) = q5_3(i,2)
- Q(indices(3)) = q5_3(i,3)
- xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 2)
- end do
+ if (present(coeffs2)) then
+ do i=1,10
+ Q(indices(1)) = q5_3(i,1)
+ Q(indices(2)) = q5_3(i,2)
+ Q(indices(3)) = q5_3(i,3)
+ xnum(i) = numeval(Q, mu2) &
+ & - tenseval5(Q, coeffs, 2) &
+ & - tenseval7(Q, coeffs2, 3)
+ end do
+ else
+ do i=1,10
+ Q(indices(1)) = q5_3(i,1)
+ Q(indices(2)) = q5_3(i,2)
+ Q(indices(3)) = q5_3(i,3)
+ xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 2)
+ end do
+ end if
coeffs%c3(idx,:) = matmul(mat5_3,xnum)
end subroutine solve5_3
!****f* src/interface/tens_rec/tenseval5_3
! NAME
!
! Function tenseval5_3
!
! USAGE
!
! result = tenseval5_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(10) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval5_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(10), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval5_3
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(10)*q0 + coeffs(9)*q1 + coeffs(7) + coeffs(8)*q2
reg1 = acc*q0
acc = coeffs(6)*q1 + coeffs(4) + coeffs(5)*q2
reg2 = acc*q1
acc = coeffs(2) + coeffs(3)*q2
reg3 = acc*q2
acc = coeffs(1)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2
tenseval5_3 = acc
end function tenseval5_3
!****f* src/interface/tens_rec/ctenseval5_3
! NAME
!
! Function ctenseval5_3
!
! USAGE
!
! result = ctenseval5_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(10) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval5_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(10), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval5_3
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(10)*q0 + coeffs(9)*q1 + coeffs(7) + coeffs(8)*q2
reg1 = acc*q0
acc = coeffs(6)*q1 + coeffs(4) + coeffs(5)*q2
reg2 = acc*q1
acc = coeffs(2) + coeffs(3)*q2
reg3 = acc*q2
acc = coeffs(1)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2
ctenseval5_3 = acc
end function ctenseval5_3
!****f* src/interface/tens_rec/solve5_4
! NAME
!
! Subroutine solve5_4
!
! USAGE
!
-! call solve5_4(numeval, indices, mu2, coeffs, idx)
+! call solve5_4(numeval, indices, mu2, coeffs, idx, coeffs2)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q5_4.
! The matrix mat5_4 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_5 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
-subroutine solve5_4(numeval, indices, mu2, coeffs, idx)
+subroutine solve5_4(numeval, indices, mu2, coeffs, idx, coeffs2)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(4), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_5), intent(inout) :: coeffs
integer, intent(in) :: idx
+ type(coeff_type_7), intent(in), optional :: coeffs2
complex(ki), dimension(5) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
- do i=1,5
- Q(indices(1)) = q5_4(i,1)
- Q(indices(2)) = q5_4(i,2)
- Q(indices(3)) = q5_4(i,3)
- Q(indices(4)) = q5_4(i,4)
- xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 3)
- end do
+ if (present(coeffs2)) then
+ do i=1,5
+ Q(indices(1)) = q5_4(i,1)
+ Q(indices(2)) = q5_4(i,2)
+ Q(indices(3)) = q5_4(i,3)
+ Q(indices(4)) = q5_4(i,4)
+ xnum(i) = numeval(Q, mu2) &
+ & - tenseval5(Q, coeffs, 3) &
+ & - tenseval7(Q, coeffs2, 4)
+ end do
+ else
+ do i=1,5
+ Q(indices(1)) = q5_4(i,1)
+ Q(indices(2)) = q5_4(i,2)
+ Q(indices(3)) = q5_4(i,3)
+ Q(indices(4)) = q5_4(i,4)
+ xnum(i) = numeval(Q, mu2) - tenseval5(Q, coeffs, 3)
+ end do
+ end if
coeffs%c4(idx,:) = matmul(mat5_4,xnum)
end subroutine solve5_4
!****f* src/interface/tens_rec/tenseval5_4
! NAME
!
! Function tenseval5_4
!
! USAGE
!
! result = tenseval5_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(5) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval5_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(5), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval5_4
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
real(ki) :: q3
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(2)*q3 + coeffs(1) + coeffs(5)*q0 + coeffs(3)*q2 + coeffs(4)*q1
acc = acc*q0*q1*q2*q3
tenseval5_4 = acc
end function tenseval5_4
!****f* src/interface/tens_rec/ctenseval5_4
! NAME
!
! Function ctenseval5_4
!
! USAGE
!
! result = ctenseval5_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(5) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval5_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(5), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval5_4
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: q3
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(2)*q3 + coeffs(1) + coeffs(5)*q0 + coeffs(3)*q2 + coeffs(4)*q1
acc = acc*q0*q1*q2*q3
ctenseval5_4 = acc
end function ctenseval5_4
!****f* src/interface/tens_rec/solve5
! NAME
!
! Subroutine solve5
!
! USAGE
!
-! call solve5(numeval, mu2, coeffs)
+! call solve5(numeval, mu2, coeffs, coeffs2)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 5
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_5 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
-subroutine solve5(numeval, mu2, coeffs)
+subroutine solve5(numeval, mu2, coeffs, coeffs2)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_5), intent(inout) :: coeffs
- coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
- call solve5_1(numeval, (/0/), mu2, coeffs, 1)
- call solve5_1(numeval, (/1/), mu2, coeffs, 2)
- call solve5_1(numeval, (/2/), mu2, coeffs, 3)
- call solve5_1(numeval, (/3/), mu2, coeffs, 4)
- call solve5_2(numeval, (/0,1/), mu2, coeffs, 1)
- call solve5_2(numeval, (/0,2/), mu2, coeffs, 2)
- call solve5_2(numeval, (/0,3/), mu2, coeffs, 3)
- call solve5_2(numeval, (/1,2/), mu2, coeffs, 4)
- call solve5_2(numeval, (/1,3/), mu2, coeffs, 5)
- call solve5_2(numeval, (/2,3/), mu2, coeffs, 6)
- call solve5_3(numeval, (/0,1,2/), mu2, coeffs, 1)
- call solve5_3(numeval, (/0,1,3/), mu2, coeffs, 2)
- call solve5_3(numeval, (/0,2,3/), mu2, coeffs, 3)
- call solve5_3(numeval, (/1,2,3/), mu2, coeffs, 4)
- call solve5_4(numeval, (/0,1,2,3/), mu2, coeffs, 1)
+ type(coeff_type_7), intent(in), optional :: coeffs2
+ if (present(coeffs2)) then
+ coeffs%c0 = numeval(null_vec, mu2) - coeffs2%c0
+ call solve5_1(numeval, (/0/), mu2, coeffs, 1, coeffs2)
+ call solve5_1(numeval, (/1/), mu2, coeffs, 2, coeffs2)
+ call solve5_1(numeval, (/2/), mu2, coeffs, 3, coeffs2)
+ call solve5_1(numeval, (/3/), mu2, coeffs, 4, coeffs2)
+ call solve5_2(numeval, (/0,1/), mu2, coeffs, 1, coeffs2)
+ call solve5_2(numeval, (/0,2/), mu2, coeffs, 2, coeffs2)
+ call solve5_2(numeval, (/0,3/), mu2, coeffs, 3, coeffs2)
+ call solve5_2(numeval, (/1,2/), mu2, coeffs, 4, coeffs2)
+ call solve5_2(numeval, (/1,3/), mu2, coeffs, 5, coeffs2)
+ call solve5_2(numeval, (/2,3/), mu2, coeffs, 6, coeffs2)
+ call solve5_3(numeval, (/0,1,2/), mu2, coeffs, 1, coeffs2)
+ call solve5_3(numeval, (/0,1,3/), mu2, coeffs, 2, coeffs2)
+ call solve5_3(numeval, (/0,2,3/), mu2, coeffs, 3, coeffs2)
+ call solve5_3(numeval, (/1,2,3/), mu2, coeffs, 4, coeffs2)
+ call solve5_4(numeval, (/0,1,2,3/), mu2, coeffs, 1, coeffs2)
+ else
+ coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
+ call solve5_1(numeval, (/0/), mu2, coeffs, 1)
+ call solve5_1(numeval, (/1/), mu2, coeffs, 2)
+ call solve5_1(numeval, (/2/), mu2, coeffs, 3)
+ call solve5_1(numeval, (/3/), mu2, coeffs, 4)
+ call solve5_2(numeval, (/0,1/), mu2, coeffs, 1)
+ call solve5_2(numeval, (/0,2/), mu2, coeffs, 2)
+ call solve5_2(numeval, (/0,3/), mu2, coeffs, 3)
+ call solve5_2(numeval, (/1,2/), mu2, coeffs, 4)
+ call solve5_2(numeval, (/1,3/), mu2, coeffs, 5)
+ call solve5_2(numeval, (/2,3/), mu2, coeffs, 6)
+ call solve5_3(numeval, (/0,1,2/), mu2, coeffs, 1)
+ call solve5_3(numeval, (/0,1,3/), mu2, coeffs, 2)
+ call solve5_3(numeval, (/0,2,3/), mu2, coeffs, 3)
+ call solve5_3(numeval, (/1,2,3/), mu2, coeffs, 4)
+ call solve5_4(numeval, (/0,1,2,3/), mu2, coeffs, 1)
+ end if
end subroutine solve5
!****f* src/interface/tens_rec/tenseval5
! NAME
!
! Function tenseval5
!
! USAGE
!
! result = tenseval5(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_5
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval5(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_5), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval5
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 4
end if
tenseval5 = coeffs%c0
if (1 .le. maxk) then
tenseval5 = tenseval5 + tenseval5_1(Q, (/0/), coeffs%c1(1,:))
tenseval5 = tenseval5 + tenseval5_1(Q, (/1/), coeffs%c1(2,:))
tenseval5 = tenseval5 + tenseval5_1(Q, (/2/), coeffs%c1(3,:))
tenseval5 = tenseval5 + tenseval5_1(Q, (/3/), coeffs%c1(4,:))
end if
if (2 .le. maxk) then
tenseval5 = tenseval5 + tenseval5_2(Q, (/0,1/), coeffs%c2(1,:))
tenseval5 = tenseval5 + tenseval5_2(Q, (/0,2/), coeffs%c2(2,:))
tenseval5 = tenseval5 + tenseval5_2(Q, (/0,3/), coeffs%c2(3,:))
tenseval5 = tenseval5 + tenseval5_2(Q, (/1,2/), coeffs%c2(4,:))
tenseval5 = tenseval5 + tenseval5_2(Q, (/1,3/), coeffs%c2(5,:))
tenseval5 = tenseval5 + tenseval5_2(Q, (/2,3/), coeffs%c2(6,:))
end if
if (3 .le. maxk) then
tenseval5 = tenseval5 + tenseval5_3(Q, (/0,1,2/), coeffs%c3(1,:))
tenseval5 = tenseval5 + tenseval5_3(Q, (/0,1,3/), coeffs%c3(2,:))
tenseval5 = tenseval5 + tenseval5_3(Q, (/0,2,3/), coeffs%c3(3,:))
tenseval5 = tenseval5 + tenseval5_3(Q, (/1,2,3/), coeffs%c3(4,:))
end if
if (4 .le. maxk) then
tenseval5 = tenseval5 + tenseval5_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end if
end function tenseval5
!****f* src/interface/tens_rec/ctenseval5
! NAME
!
! Function ctenseval5
!
! USAGE
!
! result = ctenseval5(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_5
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval5(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_5), intent(in) :: coeffs
complex(ki) :: ctenseval5
ctenseval5 = coeffs%c0
ctenseval5 = ctenseval5 + ctenseval5_1(Q, (/0/), coeffs%c1(1,:))
ctenseval5 = ctenseval5 + ctenseval5_1(Q, (/1/), coeffs%c1(2,:))
ctenseval5 = ctenseval5 + ctenseval5_1(Q, (/2/), coeffs%c1(3,:))
ctenseval5 = ctenseval5 + ctenseval5_1(Q, (/3/), coeffs%c1(4,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/0,1/), coeffs%c2(1,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/0,2/), coeffs%c2(2,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/0,3/), coeffs%c2(3,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/1,2/), coeffs%c2(4,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/1,3/), coeffs%c2(5,:))
ctenseval5 = ctenseval5 + ctenseval5_2(Q, (/2,3/), coeffs%c2(6,:))
ctenseval5 = ctenseval5 + ctenseval5_3(Q, (/0,1,2/), coeffs%c3(1,:))
ctenseval5 = ctenseval5 + ctenseval5_3(Q, (/0,1,3/), coeffs%c3(2,:))
ctenseval5 = ctenseval5 + ctenseval5_3(Q, (/0,2,3/), coeffs%c3(3,:))
ctenseval5 = ctenseval5 + ctenseval5_3(Q, (/1,2,3/), coeffs%c3(4,:))
ctenseval5 = ctenseval5 + ctenseval5_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end function ctenseval5
!****f* src/interface/tens_rec/print_coeffs_5
! NAME
!
! Subroutine print_coeffs_5
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 5
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_5
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_5(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_5), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,3), ')*q(0)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,4), ')*q(0)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,5), ')*q(0)^5'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,3), ')*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,4), ')*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,5), ')*q(1)^5'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,3), ')*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,4), ')*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,5), ')*q(2)^5'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,3), ')*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,4), ')*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,5), ')*q(3)^5'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,2), ')*q(0)*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,3), ')*q(0)*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,4), ')*q(0)*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,5), ')*q(0)^2*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,6), ')*q(0)^2*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,7), ')*q(0)^2*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,8), ')*q(0)^3*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,9), ')*q(0)^3*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,10), ')*q(0)^4*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,2), ')*q(0)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,3), ')*q(0)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,4), ')*q(0)*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,5), ')*q(0)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,6), ')*q(0)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,7), ')*q(0)^2*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,8), ')*q(0)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,9), ')*q(0)^3*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,10), ')*q(0)^4*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,2), ')*q(0)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,3), ')*q(0)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,4), ')*q(0)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,5), ')*q(0)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,6), ')*q(0)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,7), ')*q(0)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,8), ')*q(0)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,9), ')*q(0)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,10), ')*q(0)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,2), ')*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,3), ')*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,4), ')*q(1)*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,5), ')*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,6), ')*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,7), ')*q(1)^2*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,8), ')*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,9), ')*q(1)^3*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,10), ')*q(1)^4*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,2), ')*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,3), ')*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,4), ')*q(1)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,5), ')*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,6), ')*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,7), ')*q(1)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,8), ')*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,9), ')*q(1)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,10), ')*q(1)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,2), ')*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,3), ')*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,4), ')*q(2)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,5), ')*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,6), ')*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,7), ')*q(2)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,8), ')*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,9), ')*q(2)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,10), ')*q(2)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(1,1), ')*q(0)*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,2), ')*q(0)*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,3), ')*q(0)*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,4), ')*q(0)*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,5), ')*q(0)*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,6), ')*q(0)*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,7), ')*q(0)^2*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,8), ')*q(0)^2*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,9), ')*q(0)^2*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,10), ')*q(0)^3*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(2,1), ')*q(0)*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,2), ')*q(0)*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,3), ')*q(0)*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,4), ')*q(0)*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,5), ')*q(0)*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,6), ')*q(0)*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,7), ')*q(0)^2*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,8), ')*q(0)^2*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,9), ')*q(0)^2*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,10), ')*q(0)^3*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(3,1), ')*q(0)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,2), ')*q(0)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,3), ')*q(0)*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,4), ')*q(0)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,5), ')*q(0)*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,6), ')*q(0)*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,7), ')*q(0)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,8), ')*q(0)^2*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,9), ')*q(0)^2*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,10), ')*q(0)^3*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(4,1), ')*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,2), ')*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,3), ')*q(1)*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,4), ')*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,5), ')*q(1)*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,6), ')*q(1)*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,7), ')*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,8), ')*q(1)^2*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,9), ')*q(1)^2*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,10), ')*q(1)^3*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A21)') ' + (', coeffs%c4(1,1), ')*q(0)*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,2), ')*q(0)*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,3), ')*q(0)*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,4), ')*q(0)*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,5), ')*q(0)^2*q(1)*q(2)*q(3)'
end subroutine print_coeffs_5
!****f* src/interface/tens_rec/reconstruct5
! NAME
!
! Subroutine reconstruct5
!
! USAGE
!
! call reconstruct5(numeval, cm0, cm1, cm2)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 5,
! including the coefficients in front of mu2 and mu2^2.
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_5, representing the
! numerator at mu2=0
! * cm1 -- coefficients of type type(coeff_type_3), representing the
! tensor in front of mu2 [optional]
! * cm2 -- coefficients of type type(coeff_type_3), representing the
! tensor in front of mu2^2 [optional]
!
! SIDE EFFECTS
!
! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
! is at most linear in mu2.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct5(numeval, cm0, cm1, cm2)
! generated by: write_subroutine_reconstruct
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_5), intent(out) :: cm0
type(coeff_type_3), intent(out), optional :: cm1
type(coeff_type_3), intent(out), optional :: cm2
type(coeff_type_3) :: ca, cb
call solve5(numeval, 0.0_ki, cm0)
if (present(cm1)) then
if (present(cm2)) then
call solve3(numeval, +1.0_ki, ca, cm0)
call solve3(numeval, -1.0_ki, cb, cm0)
cm1%c0= 0.5_ki * (ca%c0 - cb%c0)
cm2%c0= 0.5_ki * (ca%c0 + cb%c0)
cm1%c1 = 0.5_ki * (ca%c1 - cb%c1)
cm2%c1 = 0.5_ki * (ca%c1 + cb%c1)
cm1%c2 = 0.5_ki * (ca%c2 - cb%c2)
cm2%c2 = 0.5_ki * (ca%c2 + cb%c2)
cm1%c3 = 0.5_ki * (ca%c3 - cb%c3)
cm2%c3 = 0.5_ki * (ca%c3 + cb%c3)
else
call solve3(numeval, +1.0_ki, cm1, cm0)
end if
end if
end subroutine reconstruct5
!****f* src/interface/tens_rec/solve6_1
! NAME
!
! Subroutine solve6_1
!
! USAGE
!
! call solve6_1(numeval, indices, mu2, coeffs, idx)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q6_1.
! The matrix mat6_1 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_6 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve6_1(numeval, indices, mu2, coeffs, idx)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(1), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_6), intent(inout) :: coeffs
integer, intent(in) :: idx
complex(ki), dimension(6) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
do i=1,6
Q(indices(1)) = q6_1(i,1)
xnum(i) = numeval(Q, mu2) - tenseval6(Q, coeffs, 0)
end do
coeffs%c1(idx,:) = matmul(mat6_1,xnum)
end subroutine solve6_1
!****f* src/interface/tens_rec/tenseval6_1
! NAME
!
! Function tenseval6_1
!
! USAGE
!
! result = tenseval6_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(6) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval6_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(6), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval6_1
real(ki) :: q0
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(5) + coeffs(6)*q0
reg4 = acc*q0
acc = coeffs(4)
acc = acc + reg4
reg3 = acc*q0
acc = coeffs(3)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
tenseval6_1 = acc
end function tenseval6_1
!****f* src/interface/tens_rec/ctenseval6_1
! NAME
!
! Function ctenseval6_1
!
! USAGE
!
! result = ctenseval6_1(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 1 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(1): the set of non-zero indices.
! * coeffs -- an array of dimension(6) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 1 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval6_1(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(1), intent(in) :: indices
complex(ki), dimension(6), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval6_1
complex(ki) :: q0
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
acc = coeffs(5) + coeffs(6)*q0
reg4 = acc*q0
acc = coeffs(4)
acc = acc + reg4
reg3 = acc*q0
acc = coeffs(3)
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(2)
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(1)
acc = acc + reg1
acc = acc*q0
ctenseval6_1 = acc
end function ctenseval6_1
!****f* src/interface/tens_rec/solve6_2
! NAME
!
! Subroutine solve6_2
!
! USAGE
!
! call solve6_2(numeval, indices, mu2, coeffs, idx)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q6_2.
! The matrix mat6_2 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_6 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve6_2(numeval, indices, mu2, coeffs, idx)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(2), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_6), intent(inout) :: coeffs
integer, intent(in) :: idx
complex(ki), dimension(15) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
do i=1,15
Q(indices(1)) = q6_2(i,1)
Q(indices(2)) = q6_2(i,2)
xnum(i) = numeval(Q, mu2) - tenseval6(Q, coeffs, 1)
end do
coeffs%c2(idx,:) = matmul(mat6_2,xnum)
end subroutine solve6_2
!****f* src/interface/tens_rec/tenseval6_2
! NAME
!
! Function tenseval6_2
!
! USAGE
!
! result = tenseval6_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(15) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval6_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(15), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval6_2
real(ki) :: q0
real(ki) :: q1
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(12)*q1 + coeffs(14)*q0 + coeffs(11)
reg3 = acc*q0
acc = coeffs(9)*q1 + coeffs(8)
reg4 = acc*q1
acc = coeffs(7)
acc = acc + reg4
acc = acc + reg3
reg2 = acc*q1
acc = coeffs(15)*q0 + coeffs(13)
reg4 = acc*q0
acc = coeffs(10)
acc = acc + reg4
reg3 = acc*q0
acc = coeffs(6)
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(5)*q1 + coeffs(4)
reg4 = acc*q1
acc = coeffs(3)
acc = acc + reg4
reg3 = acc*q1
acc = coeffs(2)
acc = acc + reg3
reg2 = acc*q1
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
tenseval6_2 = acc
end function tenseval6_2
!****f* src/interface/tens_rec/ctenseval6_2
! NAME
!
! Function ctenseval6_2
!
! USAGE
!
! result = ctenseval6_2(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 2 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(2): the set of non-zero indices.
! * coeffs -- an array of dimension(15) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 2 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval6_2(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(2), intent(in) :: indices
complex(ki), dimension(15), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval6_2
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
acc = coeffs(12)*q1 + coeffs(14)*q0 + coeffs(11)
reg3 = acc*q0
acc = coeffs(9)*q1 + coeffs(8)
reg4 = acc*q1
acc = coeffs(7)
acc = acc + reg4
acc = acc + reg3
reg2 = acc*q1
acc = coeffs(15)*q0 + coeffs(13)
reg4 = acc*q0
acc = coeffs(10)
acc = acc + reg4
reg3 = acc*q0
acc = coeffs(6)
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q0
acc = coeffs(5)*q1 + coeffs(4)
reg4 = acc*q1
acc = coeffs(3)
acc = acc + reg4
reg3 = acc*q1
acc = coeffs(2)
acc = acc + reg3
reg2 = acc*q1
acc = coeffs(1)
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1
ctenseval6_2 = acc
end function ctenseval6_2
!****f* src/interface/tens_rec/solve6_3
! NAME
!
! Subroutine solve6_3
!
! USAGE
!
! call solve6_3(numeval, indices, mu2, coeffs, idx)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q6_3.
! The matrix mat6_3 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_6 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve6_3(numeval, indices, mu2, coeffs, idx)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(3), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_6), intent(inout) :: coeffs
integer, intent(in) :: idx
complex(ki), dimension(20) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
Q(:)=0.0_ki
do i=1,20
Q(indices(1)) = q6_3(i,1)
Q(indices(2)) = q6_3(i,2)
Q(indices(3)) = q6_3(i,3)
xnum(i) = numeval(Q, mu2) - tenseval6(Q, coeffs, 2)
end do
coeffs%c3(idx,:) = matmul(mat6_3,xnum)
end subroutine solve6_3
!****f* src/interface/tens_rec/tenseval6_3
! NAME
!
! Function tenseval6_3
!
! USAGE
!
! result = tenseval6_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(20) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval6_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(20), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval6_3
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(18)*q0 + coeffs(15)*q1 + coeffs(12) + coeffs(13)*q2
reg2 = acc*q0
acc = coeffs(9)*q1 + coeffs(6) + coeffs(7)*q2
reg3 = acc*q1
acc = coeffs(3) + coeffs(4)*q2
reg4 = acc*q2
acc = coeffs(2)
acc = acc + reg4
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q2
acc = coeffs(20)*q0 + coeffs(19)*q1 + coeffs(17)
reg3 = acc*q0
acc = coeffs(16)*q1 + coeffs(14)
reg4 = acc*q1
acc = coeffs(11)
acc = acc + reg4
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(10)*q1 + coeffs(8)
reg4 = acc*q1
acc = coeffs(5)
acc = acc + reg4
reg3 = acc*q1
acc = coeffs(1)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2
tenseval6_3 = acc
end function tenseval6_3
!****f* src/interface/tens_rec/ctenseval6_3
! NAME
!
! Function ctenseval6_3
!
! USAGE
!
! result = ctenseval6_3(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 3 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(3): the set of non-zero indices.
! * coeffs -- an array of dimension(20) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 3 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval6_3(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(3), intent(in) :: indices
complex(ki), dimension(20), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval6_3
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
acc = coeffs(18)*q0 + coeffs(15)*q1 + coeffs(12) + coeffs(13)*q2
reg2 = acc*q0
acc = coeffs(9)*q1 + coeffs(6) + coeffs(7)*q2
reg3 = acc*q1
acc = coeffs(3) + coeffs(4)*q2
reg4 = acc*q2
acc = coeffs(2)
acc = acc + reg4
acc = acc + reg3
acc = acc + reg2
reg1 = acc*q2
acc = coeffs(20)*q0 + coeffs(19)*q1 + coeffs(17)
reg3 = acc*q0
acc = coeffs(16)*q1 + coeffs(14)
reg4 = acc*q1
acc = coeffs(11)
acc = acc + reg4
acc = acc + reg3
reg2 = acc*q0
acc = coeffs(10)*q1 + coeffs(8)
reg4 = acc*q1
acc = coeffs(5)
acc = acc + reg4
reg3 = acc*q1
acc = coeffs(1)
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2
ctenseval6_3 = acc
end function ctenseval6_3
!****f* src/interface/tens_rec/solve6_4
! NAME
!
! Subroutine solve6_4
!
! USAGE
!
! call solve6_4(numeval, indices, mu2, coeffs, idx)
!
! DESCRIPTION
!
! This subroutine solves a system generated by substituting the
! non-zero components of q in the numerator function numeval(q,mu2)
! for the values given in the array q6_4.
! The matrix mat6_4 is the inverse matrix of the left hand side
! of the original system.
!
! INPUTS
!
! * numeval -- a function representing the numerator function
! N(q, mu2) where q(0:3) is a real vector,
! mu2 is a real number and the result of numeval is complex
! * indices -- array of integers indicating the non-zero entries of q
! * mu2 -- fixed value for mu2 passed to numeval
! * coeffs -- coefficients of type coeff_type_6 to be solved for
! * idx -- label indicating which entries in coeffs the given set
! of indices corresponds to
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine solve6_4(numeval, indices, mu2, coeffs, idx)
! generated by: write_subroutine_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, dimension(4), intent(in) :: indices
real(ki), intent(in) :: mu2
type(coeff_type_6), intent(inout) :: coeffs
integer, intent(in) :: idx
complex(ki), dimension(15) :: xnum
real(ki), dimension(0:3) :: Q
integer :: i
do i=1,15
Q(indices(1)) = q6_4(i,1)
Q(indices(2)) = q6_4(i,2)
Q(indices(3)) = q6_4(i,3)
Q(indices(4)) = q6_4(i,4)
xnum(i) = numeval(Q, mu2) - tenseval6(Q, coeffs, 3)
end do
coeffs%c4(idx,:) = matmul(mat6_4,xnum)
end subroutine solve6_4
!****f* src/interface/tens_rec/tenseval6_4
! NAME
!
! Function tenseval6_4
!
! USAGE
!
! result = tenseval6_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(15) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function tenseval6_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(15), intent(in) :: coeffs
real(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: tenseval6_4
real(ki) :: q0
real(ki) :: q1
real(ki) :: q2
real(ki) :: q3
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(12)*q3 + coeffs(11) + coeffs(15)*q0 + coeffs(14)*q1
acc = acc + coeffs(13)*q2
reg1 = acc*q0
acc = coeffs(8)*q3 + coeffs(7) + coeffs(10)*q1 + coeffs(9)*q2
reg2 = acc*q1
acc = coeffs(5)*q3 + coeffs(4) + coeffs(6)*q2
reg3 = acc*q2
acc = coeffs(3)*q3 + coeffs(2)
reg4 = acc*q3
acc = coeffs(1)
acc = acc + reg4
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2*q3
tenseval6_4 = acc
end function tenseval6_4
!****f* src/interface/tens_rec/ctenseval6_4
! NAME
!
! Function ctenseval6_4
!
! USAGE
!
! result = ctenseval6_4(Q, indices, coeffs)
!
! DESCRIPTION
!
! Recomputes the part of N(Q) from the coefficients where Q has exactly
! 4 non-zero entries identified by the array indices.
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * indices -- array of dimension(4): the set of non-zero indices.
! * coeffs -- an array of dimension(15) holding the coefficients.
! as defined in the corresponding derived type.
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) coming from the terms where
! exactly the 4 entries of q specified in indices are non-zero.
!
! EXAMPLE
!
!
!*****
pure function ctenseval6_4(Q, indices, coeffs)
! generated by: write_function_recon
implicit none
integer, dimension(4), intent(in) :: indices
complex(ki), dimension(15), intent(in) :: coeffs
complex(ki), dimension(0:3), intent(in) :: Q
complex(ki) :: ctenseval6_4
complex(ki) :: q0
complex(ki) :: q1
complex(ki) :: q2
complex(ki) :: q3
complex(ki) :: reg4
complex(ki) :: reg2
complex(ki) :: reg3
complex(ki) :: reg1
complex(ki) :: acc
q0 = Q(indices(1))
q1 = Q(indices(2))
q2 = Q(indices(3))
q3 = Q(indices(4))
acc = coeffs(12)*q3 + coeffs(11) + coeffs(15)*q0 + coeffs(14)*q1
acc = acc + coeffs(13)*q2
reg1 = acc*q0
acc = coeffs(8)*q3 + coeffs(7) + coeffs(10)*q1 + coeffs(9)*q2
reg2 = acc*q1
acc = coeffs(5)*q3 + coeffs(4) + coeffs(6)*q2
reg3 = acc*q2
acc = coeffs(3)*q3 + coeffs(2)
reg4 = acc*q3
acc = coeffs(1)
acc = acc + reg4
acc = acc + reg3
acc = acc + reg2
acc = acc + reg1
acc = acc*q0*q1*q2*q3
ctenseval6_4 = acc
end function ctenseval6_4
!****f* src/interface/tens_rec/solve6
! NAME
!
! Subroutine solve6
!
! USAGE
!
! call solve6(numeval, mu2, coeffs)
!
! DESCRIPTION
!
! Determines the tensor coefficients of a numerator for a fixed value
! of mu^2 with maximum rank 6
!
! INPUTS
!
! * numeval -- function representing the numerator of the problem
! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
! * coeffs -- a record of type coeff_type_6 used to store the result
!
! SIDE EFFECTS
!
! No side effect
!
! EXAMPLE
!
!
!*****
subroutine solve6(numeval, mu2, coeffs)
! generated by: write_subroutine_glob_solve
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
real(ki), intent(in) :: mu2
type(coeff_type_6), intent(inout) :: coeffs
coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
call solve6_1(numeval, (/0/), mu2, coeffs, 1)
call solve6_1(numeval, (/1/), mu2, coeffs, 2)
call solve6_1(numeval, (/2/), mu2, coeffs, 3)
call solve6_1(numeval, (/3/), mu2, coeffs, 4)
call solve6_2(numeval, (/0,1/), mu2, coeffs, 1)
call solve6_2(numeval, (/0,2/), mu2, coeffs, 2)
call solve6_2(numeval, (/0,3/), mu2, coeffs, 3)
call solve6_2(numeval, (/1,2/), mu2, coeffs, 4)
call solve6_2(numeval, (/1,3/), mu2, coeffs, 5)
call solve6_2(numeval, (/2,3/), mu2, coeffs, 6)
call solve6_3(numeval, (/0,1,2/), mu2, coeffs, 1)
call solve6_3(numeval, (/0,1,3/), mu2, coeffs, 2)
call solve6_3(numeval, (/0,2,3/), mu2, coeffs, 3)
call solve6_3(numeval, (/1,2,3/), mu2, coeffs, 4)
call solve6_4(numeval, (/0,1,2,3/), mu2, coeffs, 1)
end subroutine solve6
!****f* src/interface/tens_rec/tenseval6
! NAME
!
! Function tenseval6
!
! USAGE
!
! result = tenseval6(Q, coeffs, max_k)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a real vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_6
! * max_k -- optional integer argument limiting the the reconstruction
! to a subset of terms with no more than max_k components of q
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function tenseval6(Q, coeffs, max_k)
! generated by: write_function_glob_recon
implicit none
real(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_6), intent(in) :: coeffs
integer, intent(in), optional :: max_k
complex(ki) :: tenseval6
integer :: maxk
if (present(max_k)) then
maxk = max_k
else
maxk = 4
end if
tenseval6 = coeffs%c0
if (1 .le. maxk) then
tenseval6 = tenseval6 + tenseval6_1(Q, (/0/), coeffs%c1(1,:))
tenseval6 = tenseval6 + tenseval6_1(Q, (/1/), coeffs%c1(2,:))
tenseval6 = tenseval6 + tenseval6_1(Q, (/2/), coeffs%c1(3,:))
tenseval6 = tenseval6 + tenseval6_1(Q, (/3/), coeffs%c1(4,:))
end if
if (2 .le. maxk) then
tenseval6 = tenseval6 + tenseval6_2(Q, (/0,1/), coeffs%c2(1,:))
tenseval6 = tenseval6 + tenseval6_2(Q, (/0,2/), coeffs%c2(2,:))
tenseval6 = tenseval6 + tenseval6_2(Q, (/0,3/), coeffs%c2(3,:))
tenseval6 = tenseval6 + tenseval6_2(Q, (/1,2/), coeffs%c2(4,:))
tenseval6 = tenseval6 + tenseval6_2(Q, (/1,3/), coeffs%c2(5,:))
tenseval6 = tenseval6 + tenseval6_2(Q, (/2,3/), coeffs%c2(6,:))
end if
if (3 .le. maxk) then
tenseval6 = tenseval6 + tenseval6_3(Q, (/0,1,2/), coeffs%c3(1,:))
tenseval6 = tenseval6 + tenseval6_3(Q, (/0,1,3/), coeffs%c3(2,:))
tenseval6 = tenseval6 + tenseval6_3(Q, (/0,2,3/), coeffs%c3(3,:))
tenseval6 = tenseval6 + tenseval6_3(Q, (/1,2,3/), coeffs%c3(4,:))
end if
if (4 .le. maxk) then
tenseval6 = tenseval6 + tenseval6_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end if
end function tenseval6
!****f* src/interface/tens_rec/ctenseval6
! NAME
!
! Function ctenseval6
!
! USAGE
!
! result = ctenseval6(Q, coeffs)
!
! DESCRIPTION
!
! Recomputes N(Q) from a set of tensor coefficients
!
! INPUTS
!
! * Q -- a complex vector of dimension(0:3)
! * coeffs -- a record of type coeff_type_6
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! The value of the part of N(q) as reconstructed from the coefficients
!
! EXAMPLE
!
!
!*****
pure function ctenseval6(Q, coeffs)
! generated by: write_function_glob_recon_complex
implicit none
complex(ki), dimension(0:3), intent(in) :: Q
type(coeff_type_6), intent(in) :: coeffs
complex(ki) :: ctenseval6
ctenseval6 = coeffs%c0
ctenseval6 = ctenseval6 + ctenseval6_1(Q, (/0/), coeffs%c1(1,:))
ctenseval6 = ctenseval6 + ctenseval6_1(Q, (/1/), coeffs%c1(2,:))
ctenseval6 = ctenseval6 + ctenseval6_1(Q, (/2/), coeffs%c1(3,:))
ctenseval6 = ctenseval6 + ctenseval6_1(Q, (/3/), coeffs%c1(4,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/0,1/), coeffs%c2(1,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/0,2/), coeffs%c2(2,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/0,3/), coeffs%c2(3,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/1,2/), coeffs%c2(4,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/1,3/), coeffs%c2(5,:))
ctenseval6 = ctenseval6 + ctenseval6_2(Q, (/2,3/), coeffs%c2(6,:))
ctenseval6 = ctenseval6 + ctenseval6_3(Q, (/0,1,2/), coeffs%c3(1,:))
ctenseval6 = ctenseval6 + ctenseval6_3(Q, (/0,1,3/), coeffs%c3(2,:))
ctenseval6 = ctenseval6 + ctenseval6_3(Q, (/0,2,3/), coeffs%c3(3,:))
ctenseval6 = ctenseval6 + ctenseval6_3(Q, (/1,2,3/), coeffs%c3(4,:))
ctenseval6 = ctenseval6 + ctenseval6_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
end function ctenseval6
!****f* src/interface/tens_rec/print_coeffs_6
! NAME
!
! Subroutine print_coeffs_6
!
! Visible through public interface print_coeffs
!
! USAGE
!
! call print_coeffs(coeffs,unit=6)
!
! DESCRIPTION
!
! Prints the coefficients of a numerator of maximum rank 6
! in human readable form.
!
! INPUTS
!
! * coeffs -- a record of type coeff_type_6
! * unit -- number of an open file, defaults to stdout (unit=6)
!
! SIDE EFFECTS
!
! Prints to the given file
!
! EXAMPLE
!
!
!*****
subroutine print_coeffs_6(coeffs, unit)
! generated by: write_print_coeffs
implicit none
type(coeff_type_6), intent(in) :: coeffs
integer, intent(in), optional :: unit
integer :: ch
if (present(unit)) then
ch = unit
else
ch = 6
end if
write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,3), ')*q(0)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,4), ')*q(0)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,5), ')*q(0)^5'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,6), ')*q(0)^6'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,3), ')*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,4), ')*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,5), ')*q(1)^5'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,6), ')*q(1)^6'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,3), ')*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,4), ')*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,5), ')*q(2)^5'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,6), ')*q(2)^6'
write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,3), ')*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,4), ')*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,5), ')*q(3)^5'
write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,6), ')*q(3)^6'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,2), ')*q(0)*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,3), ')*q(0)*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,4), ')*q(0)*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,5), ')*q(0)*q(1)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,6), ')*q(0)^2*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,7), ')*q(0)^2*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,8), ')*q(0)^2*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,9), ')*q(0)^2*q(1)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,10), ')*q(0)^3*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,11), ')*q(0)^3*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,12), ')*q(0)^3*q(1)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,13), ')*q(0)^4*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,14), ')*q(0)^4*q(1)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,15), ')*q(0)^5*q(1)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,2), ')*q(0)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,3), ')*q(0)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,4), ')*q(0)*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,5), ')*q(0)*q(2)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,6), ')*q(0)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,7), ')*q(0)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,8), ')*q(0)^2*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,9), ')*q(0)^2*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,10), ')*q(0)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,11), ')*q(0)^3*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,12), ')*q(0)^3*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,13), ')*q(0)^4*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,14), ')*q(0)^4*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,15), ')*q(0)^5*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,2), ')*q(0)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,3), ')*q(0)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,4), ')*q(0)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,5), ')*q(0)*q(3)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,6), ')*q(0)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,7), ')*q(0)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,8), ')*q(0)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,9), ')*q(0)^2*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,10), ')*q(0)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,11), ')*q(0)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,12), ')*q(0)^3*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,13), ')*q(0)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,14), ')*q(0)^4*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,15), ')*q(0)^5*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,2), ')*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,3), ')*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,4), ')*q(1)*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,5), ')*q(1)*q(2)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,6), ')*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,7), ')*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,8), ')*q(1)^2*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,9), ')*q(1)^2*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,10), ')*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,11), ')*q(1)^3*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,12), ')*q(1)^3*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,13), ')*q(1)^4*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,14), ')*q(1)^4*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,15), ')*q(1)^5*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,2), ')*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,3), ')*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,4), ')*q(1)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,5), ')*q(1)*q(3)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,6), ')*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,7), ')*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,8), ')*q(1)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,9), ')*q(1)^2*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,10), ')*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,11), ')*q(1)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,12), ')*q(1)^3*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,13), ')*q(1)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,14), ')*q(1)^4*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,15), ')*q(1)^5*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,2), ')*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,3), ')*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,4), ')*q(2)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,5), ')*q(2)*q(3)^5'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,6), ')*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,7), ')*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,8), ')*q(2)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,9), ')*q(2)^2*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,10), ')*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,11), ')*q(2)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,12), ')*q(2)^3*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,13), ')*q(2)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,14), ')*q(2)^4*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,15), ')*q(2)^5*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(1,1), ')*q(0)*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,2), ')*q(0)*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,3), ')*q(0)*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,4), ')*q(0)*q(1)*q(2)^4'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,5), ')*q(0)*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,6), ')*q(0)*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,7), ')*q(0)*q(1)^2*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,8), ')*q(0)*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,9), ')*q(0)*q(1)^3*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,10), ')*q(0)*q(1)^4*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,11), ')*q(0)^2*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,12), ')*q(0)^2*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,13), ')*q(0)^2*q(1)*q(2)^3'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,14), ')*q(0)^2*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(1,15), ')*q(0)^2*q(1)^2*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,16), ')*q(0)^2*q(1)^3*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,17), ')*q(0)^3*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,18), ')*q(0)^3*q(1)*q(2)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,19), ')*q(0)^3*q(1)^2*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,20), ')*q(0)^4*q(1)*q(2)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(2,1), ')*q(0)*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,2), ')*q(0)*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,3), ')*q(0)*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,4), ')*q(0)*q(1)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,5), ')*q(0)*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,6), ')*q(0)*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,7), ')*q(0)*q(1)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,8), ')*q(0)*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,9), ')*q(0)*q(1)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,10), ')*q(0)*q(1)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,11), ')*q(0)^2*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,12), ')*q(0)^2*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,13), ')*q(0)^2*q(1)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,14), ')*q(0)^2*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(2,15), ')*q(0)^2*q(1)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,16), ')*q(0)^2*q(1)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,17), ')*q(0)^3*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,18), ')*q(0)^3*q(1)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,19), ')*q(0)^3*q(1)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,20), ')*q(0)^4*q(1)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(3,1), ')*q(0)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,2), ')*q(0)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,3), ')*q(0)*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,4), ')*q(0)*q(2)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,5), ')*q(0)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,6), ')*q(0)*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,7), ')*q(0)*q(2)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,8), ')*q(0)*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,9), ')*q(0)*q(2)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,10), ')*q(0)*q(2)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,11), ')*q(0)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,12), ')*q(0)^2*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,13), ')*q(0)^2*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,14), ')*q(0)^2*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(3,15), ')*q(0)^2*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,16), ')*q(0)^2*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,17), ')*q(0)^3*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,18), ')*q(0)^3*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,19), ')*q(0)^3*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,20), ')*q(0)^4*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(4,1), ')*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,2), ')*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,3), ')*q(1)*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,4), ')*q(1)*q(2)*q(3)^4'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,5), ')*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,6), ')*q(1)*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,7), ')*q(1)*q(2)^2*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,8), ')*q(1)*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,9), ')*q(1)*q(2)^3*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,10), ')*q(1)*q(2)^4*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,11), ')*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,12), ')*q(1)^2*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,13), ')*q(1)^2*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,14), ')*q(1)^2*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(4,15), ')*q(1)^2*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,16), ')*q(1)^2*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,17), ')*q(1)^3*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,18), ')*q(1)^3*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,19), ')*q(1)^3*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,20), ')*q(1)^4*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A21)') ' + (', coeffs%c4(1,1), ')*q(0)*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,2), ')*q(0)*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,3), ')*q(0)*q(1)*q(2)*q(3)^3'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,4), ')*q(0)*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,5), ')*q(0)*q(1)*q(2)^2*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,6), ')*q(0)*q(1)*q(2)^3*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,7), ')*q(0)*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,8), ')*q(0)*q(1)^2*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,9), ')*q(0)*q(1)^2*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,10), ')*q(0)*q(1)^3*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,11), ')*q(0)^2*q(1)*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,12), ')*q(0)^2*q(1)*q(2)*q(3)^2'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,13), ')*q(0)^2*q(1)*q(2)^2*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,14), ')*q(0)^2*q(1)^2*q(2)*q(3)'
write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,15), ')*q(0)^3*q(1)*q(2)*q(3)'
end subroutine print_coeffs_6
!****f* src/interface/tens_rec/reconstruct6
! NAME
!
! Subroutine reconstruct6
!
! USAGE
!
! call reconstruct6(numeval, cm0, cm1, cm2)
!
! DESCRIPTION
!
! Reconstructs all coefficients of a tensor integral of maximum rank 6,
! including the coefficients in front of mu2 and mu2^2.
!
! INPUTS
!
! * numeval -- the numerator function
! * cm0 -- coefficients of type coeff_type_6, representing the
! numerator at mu2=0
! * cm1 -- coefficients of type type(coeff_type_4), representing the
! tensor in front of mu2 [optional]
! * cm2 -- coefficients of type type(coeff_type_4), representing the
! tensor in front of mu2^2 [optional]
!
! SIDE EFFECTS
!
! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
! is at most linear in mu2.
!
! EXAMPLE
!
!
!*****
subroutine reconstruct6(numeval, cm0, cm1, cm2)
! generated by: write_subroutine_reconstruct
implicit none
interface
function numeval(Q, mu2)
use precision_golem, only: ki
implicit none
real(ki), dimension(0:3), intent(in) :: Q
real(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
type(coeff_type_6), intent(out) :: cm0
type(coeff_type_4), intent(out), optional :: cm1
type(coeff_type_4), intent(out), optional :: cm2
type(coeff_type_4) :: ca, cb
call solve6(numeval, 0.0_ki, cm0)
if (present(cm1)) then
if (present(cm2)) then
call solve4(numeval, +1.0_ki, ca, cm0)
call solve4(numeval, -1.0_ki, cb, cm0)
cm1%c0= 0.5_ki * (ca%c0 - cb%c0)
cm2%c0= 0.5_ki * (ca%c0 + cb%c0)
cm1%c1 = 0.5_ki * (ca%c1 - cb%c1)
cm2%c1 = 0.5_ki * (ca%c1 + cb%c1)
cm1%c2 = 0.5_ki * (ca%c2 - cb%c2)
cm2%c2 = 0.5_ki * (ca%c2 + cb%c2)
cm1%c3 = 0.5_ki * (ca%c3 - cb%c3)
cm2%c3 = 0.5_ki * (ca%c3 + cb%c3)
cm1%c4 = 0.5_ki * (ca%c4 - cb%c4)
cm2%c4 = 0.5_ki * (ca%c4 + cb%c4)
else
call solve4(numeval, +1.0_ki, cm1, cm0)
end if
end if
end subroutine reconstruct6
+!****f* src/interface/tens_rec/solve7_1
+! NAME
+!
+! Subroutine solve7_1
+!
+! USAGE
+!
+! call solve7_1(numeval, indices, mu2, coeffs, idx)
+!
+! DESCRIPTION
+!
+! This subroutine solves a system generated by substituting the
+! non-zero components of q in the numerator function numeval(q,mu2)
+! for the values given in the array q7_1.
+! The matrix mat7_1 is the inverse matrix of the left hand side
+! of the original system.
+!
+! INPUTS
+!
+! * numeval -- a function representing the numerator function
+! N(q, mu2) where q(0:3) is a real vector,
+! mu2 is a real number and the result of numeval is complex
+! * indices -- array of integers indicating the non-zero entries of q
+! * mu2 -- fixed value for mu2 passed to numeval
+! * coeffs -- coefficients of type coeff_type_7 to be solved for
+! * idx -- label indicating which entries in coeffs the given set
+! of indices corresponds to
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! No return value
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine solve7_1(numeval, indices, mu2, coeffs, idx)
+ ! generated by: write_subroutine_solve
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ integer, dimension(1), intent(in) :: indices
+ real(ki), intent(in) :: mu2
+ type(coeff_type_7), intent(inout) :: coeffs
+ integer, intent(in) :: idx
+ complex(ki), dimension(7) :: xnum
+ real(ki), dimension(0:3) :: Q
+ integer :: i
+ Q(:)=0.0_ki
+ do i=1,7
+ Q(indices(1)) = q7_1(i,1)
+ xnum(i) = numeval(Q, mu2) - tenseval7(Q, coeffs, 0)
+ end do
+ coeffs%c1(idx,:) = matmul(mat7_1,xnum)
+end subroutine solve7_1
+!****f* src/interface/tens_rec/tenseval7_1
+! NAME
+!
+! Function tenseval7_1
+!
+! USAGE
+!
+! result = tenseval7_1(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 1 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a real vector of dimension(0:3)
+! * indices -- array of dimension(1): the set of non-zero indices.
+! * coeffs -- an array of dimension(7) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 1 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function tenseval7_1(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(1), intent(in) :: indices
+ complex(ki), dimension(7), intent(in) :: coeffs
+ real(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: tenseval7_1
+ real(ki) :: q0
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ acc = coeffs(6) + coeffs(7)*q0
+ reg5 = acc*q0
+ acc = coeffs(5)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(4)
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(3)
+ acc = acc + reg3
+ reg2 = acc*q0
+ acc = coeffs(2)
+ acc = acc + reg2
+ reg1 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg1
+ acc = acc*q0
+ tenseval7_1 = acc
+end function tenseval7_1
+!****f* src/interface/tens_rec/ctenseval7_1
+! NAME
+!
+! Function ctenseval7_1
+!
+! USAGE
+!
+! result = ctenseval7_1(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 1 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a complex vector of dimension(0:3)
+! * indices -- array of dimension(1): the set of non-zero indices.
+! * coeffs -- an array of dimension(7) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 1 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function ctenseval7_1(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(1), intent(in) :: indices
+ complex(ki), dimension(7), intent(in) :: coeffs
+ complex(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: ctenseval7_1
+ complex(ki) :: q0
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ acc = coeffs(6) + coeffs(7)*q0
+ reg5 = acc*q0
+ acc = coeffs(5)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(4)
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(3)
+ acc = acc + reg3
+ reg2 = acc*q0
+ acc = coeffs(2)
+ acc = acc + reg2
+ reg1 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg1
+ acc = acc*q0
+ ctenseval7_1 = acc
+end function ctenseval7_1
+!****f* src/interface/tens_rec/solve7_2
+! NAME
+!
+! Subroutine solve7_2
+!
+! USAGE
+!
+! call solve7_2(numeval, indices, mu2, coeffs, idx)
+!
+! DESCRIPTION
+!
+! This subroutine solves a system generated by substituting the
+! non-zero components of q in the numerator function numeval(q,mu2)
+! for the values given in the array q7_2.
+! The matrix mat7_2 is the inverse matrix of the left hand side
+! of the original system.
+!
+! INPUTS
+!
+! * numeval -- a function representing the numerator function
+! N(q, mu2) where q(0:3) is a real vector,
+! mu2 is a real number and the result of numeval is complex
+! * indices -- array of integers indicating the non-zero entries of q
+! * mu2 -- fixed value for mu2 passed to numeval
+! * coeffs -- coefficients of type coeff_type_7 to be solved for
+! * idx -- label indicating which entries in coeffs the given set
+! of indices corresponds to
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! No return value
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine solve7_2(numeval, indices, mu2, coeffs, idx)
+ ! generated by: write_subroutine_solve
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ integer, dimension(2), intent(in) :: indices
+ real(ki), intent(in) :: mu2
+ type(coeff_type_7), intent(inout) :: coeffs
+ integer, intent(in) :: idx
+ complex(ki), dimension(21) :: xnum
+ real(ki), dimension(0:3) :: Q
+ integer :: i
+ Q(:)=0.0_ki
+ do i=1,21
+ Q(indices(1)) = q7_2(i,1)
+ Q(indices(2)) = q7_2(i,2)
+ xnum(i) = numeval(Q, mu2) - tenseval7(Q, coeffs, 1)
+ end do
+ coeffs%c2(idx,:) = matmul(mat7_2,xnum)
+end subroutine solve7_2
+!****f* src/interface/tens_rec/tenseval7_2
+! NAME
+!
+! Function tenseval7_2
+!
+! USAGE
+!
+! result = tenseval7_2(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 2 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a real vector of dimension(0:3)
+! * indices -- array of dimension(2): the set of non-zero indices.
+! * coeffs -- an array of dimension(21) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 2 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function tenseval7_2(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(2), intent(in) :: indices
+ complex(ki), dimension(21), intent(in) :: coeffs
+ real(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: tenseval7_2
+ real(ki) :: q0
+ real(ki) :: q1
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ acc = coeffs(18)*q1 + coeffs(20)*q0 + coeffs(17)
+ reg4 = acc*q0
+ acc = coeffs(15)*q1 + coeffs(14)
+ reg5 = acc*q1
+ acc = coeffs(13)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(21)*q0 + coeffs(19)
+ reg5 = acc*q0
+ acc = coeffs(16)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(12)
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q0
+ acc = coeffs(11)*q1 + coeffs(10)
+ reg5 = acc*q1
+ acc = coeffs(9)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(8)
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(7)
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q0
+ acc = coeffs(6)*q1 + coeffs(5)
+ reg5 = acc*q1
+ acc = coeffs(4)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(3)
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(2)
+ acc = acc + reg3
+ reg2 = acc*q1
+ acc = coeffs(1)
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1
+ tenseval7_2 = acc
+end function tenseval7_2
+!****f* src/interface/tens_rec/ctenseval7_2
+! NAME
+!
+! Function ctenseval7_2
+!
+! USAGE
+!
+! result = ctenseval7_2(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 2 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a complex vector of dimension(0:3)
+! * indices -- array of dimension(2): the set of non-zero indices.
+! * coeffs -- an array of dimension(21) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 2 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function ctenseval7_2(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(2), intent(in) :: indices
+ complex(ki), dimension(21), intent(in) :: coeffs
+ complex(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: ctenseval7_2
+ complex(ki) :: q0
+ complex(ki) :: q1
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ acc = coeffs(18)*q1 + coeffs(20)*q0 + coeffs(17)
+ reg4 = acc*q0
+ acc = coeffs(15)*q1 + coeffs(14)
+ reg5 = acc*q1
+ acc = coeffs(13)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(21)*q0 + coeffs(19)
+ reg5 = acc*q0
+ acc = coeffs(16)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(12)
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q0
+ acc = coeffs(11)*q1 + coeffs(10)
+ reg5 = acc*q1
+ acc = coeffs(9)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(8)
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(7)
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q0
+ acc = coeffs(6)*q1 + coeffs(5)
+ reg5 = acc*q1
+ acc = coeffs(4)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(3)
+ acc = acc + reg4
+ reg3 = acc*q1
+ acc = coeffs(2)
+ acc = acc + reg3
+ reg2 = acc*q1
+ acc = coeffs(1)
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1
+ ctenseval7_2 = acc
+end function ctenseval7_2
+!****f* src/interface/tens_rec/solve7_3
+! NAME
+!
+! Subroutine solve7_3
+!
+! USAGE
+!
+! call solve7_3(numeval, indices, mu2, coeffs, idx)
+!
+! DESCRIPTION
+!
+! This subroutine solves a system generated by substituting the
+! non-zero components of q in the numerator function numeval(q,mu2)
+! for the values given in the array q7_3.
+! The matrix mat7_3 is the inverse matrix of the left hand side
+! of the original system.
+!
+! INPUTS
+!
+! * numeval -- a function representing the numerator function
+! N(q, mu2) where q(0:3) is a real vector,
+! mu2 is a real number and the result of numeval is complex
+! * indices -- array of integers indicating the non-zero entries of q
+! * mu2 -- fixed value for mu2 passed to numeval
+! * coeffs -- coefficients of type coeff_type_7 to be solved for
+! * idx -- label indicating which entries in coeffs the given set
+! of indices corresponds to
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! No return value
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine solve7_3(numeval, indices, mu2, coeffs, idx)
+ ! generated by: write_subroutine_solve
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ integer, dimension(3), intent(in) :: indices
+ real(ki), intent(in) :: mu2
+ type(coeff_type_7), intent(inout) :: coeffs
+ integer, intent(in) :: idx
+ complex(ki), dimension(35) :: xnum
+ real(ki), dimension(0:3) :: Q
+ integer :: i
+ Q(:)=0.0_ki
+ do i=1,35
+ Q(indices(1)) = q7_3(i,1)
+ Q(indices(2)) = q7_3(i,2)
+ Q(indices(3)) = q7_3(i,3)
+ xnum(i) = numeval(Q, mu2) - tenseval7(Q, coeffs, 2)
+ end do
+ coeffs%c3(idx,:) = matmul(mat7_3,xnum)
+end subroutine solve7_3
+!****f* src/interface/tens_rec/tenseval7_3
+! NAME
+!
+! Function tenseval7_3
+!
+! USAGE
+!
+! result = tenseval7_3(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 3 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a real vector of dimension(0:3)
+! * indices -- array of dimension(3): the set of non-zero indices.
+! * coeffs -- an array of dimension(35) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 3 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function tenseval7_3(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(3), intent(in) :: indices
+ complex(ki), dimension(35), intent(in) :: coeffs
+ real(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: tenseval7_3
+ real(ki) :: q0
+ real(ki) :: q1
+ real(ki) :: q2
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ q2 = Q(indices(3))
+ acc = coeffs(30)*q0 + coeffs(24)*q1 + coeffs(21) + coeffs(22)*q2
+ reg3 = acc*q0
+ acc = coeffs(14)*q1 + coeffs(11) + coeffs(12)*q2
+ reg4 = acc*q1
+ acc = coeffs(8) + coeffs(9)*q2
+ reg5 = acc*q2
+ acc = coeffs(7)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(34)*q0 + coeffs(31)*q1 + coeffs(29)
+ reg4 = acc*q0
+ acc = coeffs(25)*q1 + coeffs(23)
+ reg5 = acc*q1
+ acc = coeffs(20)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(15)*q1 + coeffs(13)
+ reg5 = acc*q1
+ acc = coeffs(10)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(6)
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q1
+ acc = coeffs(28)*q0 + coeffs(18) + coeffs(19)*q2
+ reg4 = acc*q0
+ acc = coeffs(4) + coeffs(5)*q2
+ reg5 = acc*q2
+ acc = coeffs(3)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q2
+ acc = coeffs(33)*q0 + coeffs(27)
+ reg5 = acc*q0
+ acc = coeffs(17)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(2)
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(35)*q0 + coeffs(32)
+ reg5 = acc*q0
+ acc = coeffs(26)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(16)
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg3
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1*q2
+ tenseval7_3 = acc
+end function tenseval7_3
+!****f* src/interface/tens_rec/ctenseval7_3
+! NAME
+!
+! Function ctenseval7_3
+!
+! USAGE
+!
+! result = ctenseval7_3(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 3 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a complex vector of dimension(0:3)
+! * indices -- array of dimension(3): the set of non-zero indices.
+! * coeffs -- an array of dimension(35) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 3 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function ctenseval7_3(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(3), intent(in) :: indices
+ complex(ki), dimension(35), intent(in) :: coeffs
+ complex(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: ctenseval7_3
+ complex(ki) :: q0
+ complex(ki) :: q1
+ complex(ki) :: q2
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ q2 = Q(indices(3))
+ acc = coeffs(30)*q0 + coeffs(24)*q1 + coeffs(21) + coeffs(22)*q2
+ reg3 = acc*q0
+ acc = coeffs(14)*q1 + coeffs(11) + coeffs(12)*q2
+ reg4 = acc*q1
+ acc = coeffs(8) + coeffs(9)*q2
+ reg5 = acc*q2
+ acc = coeffs(7)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(34)*q0 + coeffs(31)*q1 + coeffs(29)
+ reg4 = acc*q0
+ acc = coeffs(25)*q1 + coeffs(23)
+ reg5 = acc*q1
+ acc = coeffs(20)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(15)*q1 + coeffs(13)
+ reg5 = acc*q1
+ acc = coeffs(10)
+ acc = acc + reg5
+ reg4 = acc*q1
+ acc = coeffs(6)
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q1
+ acc = coeffs(28)*q0 + coeffs(18) + coeffs(19)*q2
+ reg4 = acc*q0
+ acc = coeffs(4) + coeffs(5)*q2
+ reg5 = acc*q2
+ acc = coeffs(3)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q2
+ acc = coeffs(33)*q0 + coeffs(27)
+ reg5 = acc*q0
+ acc = coeffs(17)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(2)
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(35)*q0 + coeffs(32)
+ reg5 = acc*q0
+ acc = coeffs(26)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(16)
+ acc = acc + reg4
+ reg3 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg3
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1*q2
+ ctenseval7_3 = acc
+end function ctenseval7_3
+!****f* src/interface/tens_rec/solve7_4
+! NAME
+!
+! Subroutine solve7_4
+!
+! USAGE
+!
+! call solve7_4(numeval, indices, mu2, coeffs, idx)
+!
+! DESCRIPTION
+!
+! This subroutine solves a system generated by substituting the
+! non-zero components of q in the numerator function numeval(q,mu2)
+! for the values given in the array q7_4.
+! The matrix mat7_4 is the inverse matrix of the left hand side
+! of the original system.
+!
+! INPUTS
+!
+! * numeval -- a function representing the numerator function
+! N(q, mu2) where q(0:3) is a real vector,
+! mu2 is a real number and the result of numeval is complex
+! * indices -- array of integers indicating the non-zero entries of q
+! * mu2 -- fixed value for mu2 passed to numeval
+! * coeffs -- coefficients of type coeff_type_7 to be solved for
+! * idx -- label indicating which entries in coeffs the given set
+! of indices corresponds to
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! No return value
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine solve7_4(numeval, indices, mu2, coeffs, idx)
+ ! generated by: write_subroutine_solve
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ integer, dimension(4), intent(in) :: indices
+ real(ki), intent(in) :: mu2
+ type(coeff_type_7), intent(inout) :: coeffs
+ integer, intent(in) :: idx
+ complex(ki), dimension(35) :: xnum
+ real(ki), dimension(0:3) :: Q
+ integer :: i
+ do i=1,35
+ Q(indices(1)) = q7_4(i,1)
+ Q(indices(2)) = q7_4(i,2)
+ Q(indices(3)) = q7_4(i,3)
+ Q(indices(4)) = q7_4(i,4)
+ xnum(i) = numeval(Q, mu2) - tenseval7(Q, coeffs, 3)
+ end do
+ coeffs%c4(idx,:) = matmul(mat7_4,xnum)
+end subroutine solve7_4
+!****f* src/interface/tens_rec/tenseval7_4
+! NAME
+!
+! Function tenseval7_4
+!
+! USAGE
+!
+! result = tenseval7_4(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 4 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a real vector of dimension(0:3)
+! * indices -- array of dimension(4): the set of non-zero indices.
+! * coeffs -- an array of dimension(35) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 4 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function tenseval7_4(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(4), intent(in) :: indices
+ complex(ki), dimension(35), intent(in) :: coeffs
+ real(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: tenseval7_4
+ real(ki) :: q0
+ real(ki) :: q1
+ real(ki) :: q2
+ real(ki) :: q3
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ q2 = Q(indices(3))
+ q3 = Q(indices(4))
+ acc = coeffs(28)*q3 + coeffs(27) + coeffs(34)*q0 + coeffs(30)*q1
+ acc = acc + coeffs(29)*q2
+ reg2 = acc*q0
+ acc = coeffs(18)*q3 + coeffs(17) + coeffs(20)*q1 + coeffs(19)*q2
+ reg3 = acc*q1
+ acc = coeffs(15)*q3 + coeffs(14) + coeffs(16)*q2
+ reg4 = acc*q2
+ acc = coeffs(13)*q3 + coeffs(12)
+ reg5 = acc*q3
+ acc = coeffs(11)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q1
+ acc = coeffs(9)*q3 + coeffs(8) + coeffs(26)*q0 + coeffs(10)*q2
+ reg3 = acc*q2
+ acc = coeffs(25)*q3 + coeffs(24) + coeffs(33)*q0
+ reg4 = acc*q0
+ acc = coeffs(7)*q3 + coeffs(6)
+ reg5 = acc*q3
+ acc = coeffs(5)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(23)*q3 + coeffs(22) + coeffs(32)*q0
+ reg4 = acc*q0
+ acc = coeffs(4)*q3 + coeffs(3)
+ reg5 = acc*q3
+ acc = coeffs(2)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q3
+ acc = coeffs(31) + coeffs(35)*q0
+ reg5 = acc*q0
+ acc = coeffs(21)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1*q2*q3
+ tenseval7_4 = acc
+end function tenseval7_4
+!****f* src/interface/tens_rec/ctenseval7_4
+! NAME
+!
+! Function ctenseval7_4
+!
+! USAGE
+!
+! result = ctenseval7_4(Q, indices, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes the part of N(Q) from the coefficients where Q has exactly
+! 4 non-zero entries identified by the array indices.
+!
+! INPUTS
+!
+! * Q -- a complex vector of dimension(0:3)
+! * indices -- array of dimension(4): the set of non-zero indices.
+! * coeffs -- an array of dimension(35) holding the coefficients.
+! as defined in the corresponding derived type.
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) coming from the terms where
+! exactly the 4 entries of q specified in indices are non-zero.
+!
+! EXAMPLE
+!
+!
+!*****
+pure function ctenseval7_4(Q, indices, coeffs)
+ ! generated by: write_function_recon
+ implicit none
+ integer, dimension(4), intent(in) :: indices
+ complex(ki), dimension(35), intent(in) :: coeffs
+ complex(ki), dimension(0:3), intent(in) :: Q
+ complex(ki) :: ctenseval7_4
+ complex(ki) :: q0
+ complex(ki) :: q1
+ complex(ki) :: q2
+ complex(ki) :: q3
+ complex(ki) :: reg4
+ complex(ki) :: reg5
+ complex(ki) :: reg2
+ complex(ki) :: reg3
+ complex(ki) :: reg1
+ complex(ki) :: acc
+ q0 = Q(indices(1))
+ q1 = Q(indices(2))
+ q2 = Q(indices(3))
+ q3 = Q(indices(4))
+ acc = coeffs(28)*q3 + coeffs(27) + coeffs(34)*q0 + coeffs(30)*q1
+ acc = acc + coeffs(29)*q2
+ reg2 = acc*q0
+ acc = coeffs(18)*q3 + coeffs(17) + coeffs(20)*q1 + coeffs(19)*q2
+ reg3 = acc*q1
+ acc = coeffs(15)*q3 + coeffs(14) + coeffs(16)*q2
+ reg4 = acc*q2
+ acc = coeffs(13)*q3 + coeffs(12)
+ reg5 = acc*q3
+ acc = coeffs(11)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ reg1 = acc*q1
+ acc = coeffs(9)*q3 + coeffs(8) + coeffs(26)*q0 + coeffs(10)*q2
+ reg3 = acc*q2
+ acc = coeffs(25)*q3 + coeffs(24) + coeffs(33)*q0
+ reg4 = acc*q0
+ acc = coeffs(7)*q3 + coeffs(6)
+ reg5 = acc*q3
+ acc = coeffs(5)
+ acc = acc + reg5
+ acc = acc + reg4
+ acc = acc + reg3
+ reg2 = acc*q2
+ acc = coeffs(23)*q3 + coeffs(22) + coeffs(32)*q0
+ reg4 = acc*q0
+ acc = coeffs(4)*q3 + coeffs(3)
+ reg5 = acc*q3
+ acc = coeffs(2)
+ acc = acc + reg5
+ acc = acc + reg4
+ reg3 = acc*q3
+ acc = coeffs(31) + coeffs(35)*q0
+ reg5 = acc*q0
+ acc = coeffs(21)
+ acc = acc + reg5
+ reg4 = acc*q0
+ acc = coeffs(1)
+ acc = acc + reg4
+ acc = acc + reg3
+ acc = acc + reg2
+ acc = acc + reg1
+ acc = acc*q0*q1*q2*q3
+ ctenseval7_4 = acc
+end function ctenseval7_4
+!****f* src/interface/tens_rec/solve7
+! NAME
+!
+! Subroutine solve7
+!
+! USAGE
+!
+! call solve7(numeval, mu2, coeffs)
+!
+! DESCRIPTION
+!
+! Determines the tensor coefficients of a numerator for a fixed value
+! of mu^2 with maximum rank 7
+!
+! INPUTS
+!
+! * numeval -- function representing the numerator of the problem
+! * mu2 -- fixed value of mu^2 for which the numerator is evaluated
+! * coeffs -- a record of type coeff_type_7 used to store the result
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine solve7(numeval, mu2, coeffs)
+ ! generated by: write_subroutine_glob_solve
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ real(ki), intent(in) :: mu2
+ type(coeff_type_7), intent(inout) :: coeffs
+ coeffs%c0 = numeval((/0.0_ki,0.0_ki,0.0_ki,0.0_ki/), mu2)
+ call solve7_1(numeval, (/0/), mu2, coeffs, 1)
+ call solve7_1(numeval, (/1/), mu2, coeffs, 2)
+ call solve7_1(numeval, (/2/), mu2, coeffs, 3)
+ call solve7_1(numeval, (/3/), mu2, coeffs, 4)
+ call solve7_2(numeval, (/0,1/), mu2, coeffs, 1)
+ call solve7_2(numeval, (/0,2/), mu2, coeffs, 2)
+ call solve7_2(numeval, (/0,3/), mu2, coeffs, 3)
+ call solve7_2(numeval, (/1,2/), mu2, coeffs, 4)
+ call solve7_2(numeval, (/1,3/), mu2, coeffs, 5)
+ call solve7_2(numeval, (/2,3/), mu2, coeffs, 6)
+ call solve7_3(numeval, (/0,1,2/), mu2, coeffs, 1)
+ call solve7_3(numeval, (/0,1,3/), mu2, coeffs, 2)
+ call solve7_3(numeval, (/0,2,3/), mu2, coeffs, 3)
+ call solve7_3(numeval, (/1,2,3/), mu2, coeffs, 4)
+ call solve7_4(numeval, (/0,1,2,3/), mu2, coeffs, 1)
+end subroutine solve7
+!****f* src/interface/tens_rec/tenseval7
+! NAME
+!
+! Function tenseval7
+!
+! USAGE
+!
+! result = tenseval7(Q, coeffs, max_k)
+!
+! DESCRIPTION
+!
+! Recomputes N(Q) from a set of tensor coefficients
+!
+! INPUTS
+!
+! * Q -- a real vector of dimension(0:3)
+! * coeffs -- a record of type coeff_type_7
+! * max_k -- optional integer argument limiting the the reconstruction
+! to a subset of terms with no more than max_k components of q
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) as reconstructed from the coefficients
+!
+! EXAMPLE
+!
+!
+!*****
+pure function tenseval7(Q, coeffs, max_k)
+ ! generated by: write_function_glob_recon
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ type(coeff_type_7), intent(in) :: coeffs
+ integer, intent(in), optional :: max_k
+ complex(ki) :: tenseval7
+ integer :: maxk
+ if (present(max_k)) then
+ maxk = max_k
+ else
+ maxk = 4
+ end if
+ tenseval7 = coeffs%c0
+ if (1 .le. maxk) then
+ tenseval7 = tenseval7 + tenseval7_1(Q, (/0/), coeffs%c1(1,:))
+ tenseval7 = tenseval7 + tenseval7_1(Q, (/1/), coeffs%c1(2,:))
+ tenseval7 = tenseval7 + tenseval7_1(Q, (/2/), coeffs%c1(3,:))
+ tenseval7 = tenseval7 + tenseval7_1(Q, (/3/), coeffs%c1(4,:))
+ end if
+ if (2 .le. maxk) then
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/0,1/), coeffs%c2(1,:))
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/0,2/), coeffs%c2(2,:))
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/0,3/), coeffs%c2(3,:))
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/1,2/), coeffs%c2(4,:))
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/1,3/), coeffs%c2(5,:))
+ tenseval7 = tenseval7 + tenseval7_2(Q, (/2,3/), coeffs%c2(6,:))
+ end if
+ if (3 .le. maxk) then
+ tenseval7 = tenseval7 + tenseval7_3(Q, (/0,1,2/), coeffs%c3(1,:))
+ tenseval7 = tenseval7 + tenseval7_3(Q, (/0,1,3/), coeffs%c3(2,:))
+ tenseval7 = tenseval7 + tenseval7_3(Q, (/0,2,3/), coeffs%c3(3,:))
+ tenseval7 = tenseval7 + tenseval7_3(Q, (/1,2,3/), coeffs%c3(4,:))
+ end if
+ if (4 .le. maxk) then
+ tenseval7 = tenseval7 + tenseval7_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
+ end if
+end function tenseval7
+!****f* src/interface/tens_rec/ctenseval7
+! NAME
+!
+! Function ctenseval7
+!
+! USAGE
+!
+! result = ctenseval7(Q, coeffs)
+!
+! DESCRIPTION
+!
+! Recomputes N(Q) from a set of tensor coefficients
+!
+! INPUTS
+!
+! * Q -- a complex vector of dimension(0:3)
+! * coeffs -- a record of type coeff_type_7
+!
+! SIDE EFFECTS
+!
+! No side effect
+!
+! RETURN VALUE
+!
+! The value of the part of N(q) as reconstructed from the coefficients
+!
+! EXAMPLE
+!
+!
+!*****
+pure function ctenseval7(Q, coeffs)
+ ! generated by: write_function_glob_recon_complex
+ implicit none
+ complex(ki), dimension(0:3), intent(in) :: Q
+ type(coeff_type_7), intent(in) :: coeffs
+ complex(ki) :: ctenseval7
+ ctenseval7 = coeffs%c0
+ ctenseval7 = ctenseval7 + ctenseval7_1(Q, (/0/), coeffs%c1(1,:))
+ ctenseval7 = ctenseval7 + ctenseval7_1(Q, (/1/), coeffs%c1(2,:))
+ ctenseval7 = ctenseval7 + ctenseval7_1(Q, (/2/), coeffs%c1(3,:))
+ ctenseval7 = ctenseval7 + ctenseval7_1(Q, (/3/), coeffs%c1(4,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/0,1/), coeffs%c2(1,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/0,2/), coeffs%c2(2,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/0,3/), coeffs%c2(3,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/1,2/), coeffs%c2(4,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/1,3/), coeffs%c2(5,:))
+ ctenseval7 = ctenseval7 + ctenseval7_2(Q, (/2,3/), coeffs%c2(6,:))
+ ctenseval7 = ctenseval7 + ctenseval7_3(Q, (/0,1,2/), coeffs%c3(1,:))
+ ctenseval7 = ctenseval7 + ctenseval7_3(Q, (/0,1,3/), coeffs%c3(2,:))
+ ctenseval7 = ctenseval7 + ctenseval7_3(Q, (/0,2,3/), coeffs%c3(3,:))
+ ctenseval7 = ctenseval7 + ctenseval7_3(Q, (/1,2,3/), coeffs%c3(4,:))
+ ctenseval7 = ctenseval7 + ctenseval7_4(Q, (/0,1,2,3/), coeffs%c4(1,:))
+end function ctenseval7
+!****f* src/interface/tens_rec/print_coeffs_7
+! NAME
+!
+! Subroutine print_coeffs_7
+!
+! Visible through public interface print_coeffs
+!
+! USAGE
+!
+! call print_coeffs(coeffs,unit=6)
+!
+! DESCRIPTION
+!
+! Prints the coefficients of a numerator of maximum rank 7
+! in human readable form.
+!
+! INPUTS
+!
+! * coeffs -- a record of type coeff_type_7
+! * unit -- number of an open file, defaults to stdout (unit=6)
+!
+! SIDE EFFECTS
+!
+! Prints to the given file
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine print_coeffs_7(coeffs, unit)
+ ! generated by: write_print_coeffs
+ implicit none
+ type(coeff_type_7), intent(in) :: coeffs
+ integer, intent(in), optional :: unit
+ integer :: ch
+ if (present(unit)) then
+ ch = unit
+ else
+ ch = 6
+ end if
+ write(ch,'(A4,G24.16,1x,G24.16,A1)') ' (', coeffs%c0, ')'
+ write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(1,1), ')*q(0)'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,2), ')*q(0)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,3), ')*q(0)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,4), ')*q(0)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,5), ')*q(0)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,6), ')*q(0)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(1,7), ')*q(0)^7'
+ write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(2,1), ')*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,2), ')*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,3), ')*q(1)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,4), ')*q(1)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,5), ')*q(1)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,6), ')*q(1)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(2,7), ')*q(1)^7'
+ write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(3,1), ')*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,2), ')*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,3), ')*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,4), ')*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,5), ')*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,6), ')*q(2)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(3,7), ')*q(2)^7'
+ write(ch,'(A4,G24.16,1x,G24.16,A6)') ' + (', coeffs%c1(4,1), ')*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,2), ')*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,3), ')*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,4), ')*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,5), ')*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,6), ')*q(3)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A8)') ' + (', coeffs%c1(4,7), ')*q(3)^7'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(1,1), ')*q(0)*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,2), ')*q(0)*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,3), ')*q(0)*q(1)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,4), ')*q(0)*q(1)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,5), ')*q(0)*q(1)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,6), ')*q(0)*q(1)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,7), ')*q(0)^2*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,8), ')*q(0)^2*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,9), ')*q(0)^2*q(1)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,10), ')*q(0)^2*q(1)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,11), ')*q(0)^2*q(1)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,12), ')*q(0)^3*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,13), ')*q(0)^3*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,14), ')*q(0)^3*q(1)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,15), ')*q(0)^3*q(1)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,16), ')*q(0)^4*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,17), ')*q(0)^4*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,18), ')*q(0)^4*q(1)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,19), ')*q(0)^5*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(1,20), ')*q(0)^5*q(1)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(1,21), ')*q(0)^6*q(1)'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(2,1), ')*q(0)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,2), ')*q(0)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,3), ')*q(0)*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,4), ')*q(0)*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,5), ')*q(0)*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,6), ')*q(0)*q(2)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,7), ')*q(0)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,8), ')*q(0)^2*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,9), ')*q(0)^2*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,10), ')*q(0)^2*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,11), ')*q(0)^2*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,12), ')*q(0)^3*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,13), ')*q(0)^3*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,14), ')*q(0)^3*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,15), ')*q(0)^3*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,16), ')*q(0)^4*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,17), ')*q(0)^4*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,18), ')*q(0)^4*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,19), ')*q(0)^5*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(2,20), ')*q(0)^5*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(2,21), ')*q(0)^6*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(3,1), ')*q(0)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,2), ')*q(0)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,3), ')*q(0)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,4), ')*q(0)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,5), ')*q(0)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,6), ')*q(0)*q(3)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,7), ')*q(0)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,8), ')*q(0)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,9), ')*q(0)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,10), ')*q(0)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,11), ')*q(0)^2*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,12), ')*q(0)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,13), ')*q(0)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,14), ')*q(0)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,15), ')*q(0)^3*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,16), ')*q(0)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,17), ')*q(0)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,18), ')*q(0)^4*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,19), ')*q(0)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(3,20), ')*q(0)^5*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(3,21), ')*q(0)^6*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(4,1), ')*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,2), ')*q(1)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,3), ')*q(1)*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,4), ')*q(1)*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,5), ')*q(1)*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,6), ')*q(1)*q(2)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,7), ')*q(1)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,8), ')*q(1)^2*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,9), ')*q(1)^2*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,10), ')*q(1)^2*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,11), ')*q(1)^2*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,12), ')*q(1)^3*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,13), ')*q(1)^3*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,14), ')*q(1)^3*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,15), ')*q(1)^3*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,16), ')*q(1)^4*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,17), ')*q(1)^4*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,18), ')*q(1)^4*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,19), ')*q(1)^5*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(4,20), ')*q(1)^5*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(4,21), ')*q(1)^6*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(5,1), ')*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,2), ')*q(1)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,3), ')*q(1)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,4), ')*q(1)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,5), ')*q(1)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,6), ')*q(1)*q(3)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,7), ')*q(1)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,8), ')*q(1)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,9), ')*q(1)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,10), ')*q(1)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,11), ')*q(1)^2*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,12), ')*q(1)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,13), ')*q(1)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,14), ')*q(1)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,15), ')*q(1)^3*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,16), ')*q(1)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,17), ')*q(1)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,18), ')*q(1)^4*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,19), ')*q(1)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(5,20), ')*q(1)^5*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(5,21), ')*q(1)^6*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A11)') ' + (', coeffs%c2(6,1), ')*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,2), ')*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,3), ')*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,4), ')*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,5), ')*q(2)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,6), ')*q(2)*q(3)^6'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,7), ')*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,8), ')*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,9), ')*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,10), ')*q(2)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,11), ')*q(2)^2*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,12), ')*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,13), ')*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,14), ')*q(2)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,15), ')*q(2)^3*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,16), ')*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,17), ')*q(2)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,18), ')*q(2)^4*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,19), ')*q(2)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A15)') ' + (', coeffs%c2(6,20), ')*q(2)^5*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A13)') ' + (', coeffs%c2(6,21), ')*q(2)^6*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(1,1), ')*q(0)*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,2), ')*q(0)*q(1)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,3), ')*q(0)*q(1)*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,4), ')*q(0)*q(1)*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,5), ')*q(0)*q(1)*q(2)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,6), ')*q(0)*q(1)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,7), ')*q(0)*q(1)^2*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,8), ')*q(0)*q(1)^2*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,9), ')*q(0)*q(1)^2*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,10), ')*q(0)*q(1)^3*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,11), ')*q(0)*q(1)^3*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,12), ')*q(0)*q(1)^3*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,13), ')*q(0)*q(1)^4*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,14), ')*q(0)*q(1)^4*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,15), ')*q(0)*q(1)^5*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,16), ')*q(0)^2*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,17), ')*q(0)^2*q(1)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,18), ')*q(0)^2*q(1)*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,19), ')*q(0)^2*q(1)*q(2)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,20), ')*q(0)^2*q(1)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(1,21), ')*q(0)^2*q(1)^2*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(1,22), ')*q(0)^2*q(1)^2*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,23), ')*q(0)^2*q(1)^3*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(1,24), ')*q(0)^2*q(1)^3*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,25), ')*q(0)^2*q(1)^4*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,26), ')*q(0)^3*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,27), ')*q(0)^3*q(1)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,28), ')*q(0)^3*q(1)*q(2)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,29), ')*q(0)^3*q(1)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(1,30), ')*q(0)^3*q(1)^2*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,31), ')*q(0)^3*q(1)^3*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,32), ')*q(0)^4*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,33), ')*q(0)^4*q(1)*q(2)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(1,34), ')*q(0)^4*q(1)^2*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(1,35), ')*q(0)^5*q(1)*q(2)'
+ write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(2,1), ')*q(0)*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,2), ')*q(0)*q(1)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,3), ')*q(0)*q(1)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,4), ')*q(0)*q(1)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,5), ')*q(0)*q(1)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,6), ')*q(0)*q(1)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,7), ')*q(0)*q(1)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,8), ')*q(0)*q(1)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,9), ')*q(0)*q(1)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,10), ')*q(0)*q(1)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,11), ')*q(0)*q(1)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,12), ')*q(0)*q(1)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,13), ')*q(0)*q(1)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,14), ')*q(0)*q(1)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,15), ')*q(0)*q(1)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,16), ')*q(0)^2*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,17), ')*q(0)^2*q(1)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,18), ')*q(0)^2*q(1)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,19), ')*q(0)^2*q(1)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,20), ')*q(0)^2*q(1)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(2,21), ')*q(0)^2*q(1)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(2,22), ')*q(0)^2*q(1)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,23), ')*q(0)^2*q(1)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(2,24), ')*q(0)^2*q(1)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,25), ')*q(0)^2*q(1)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,26), ')*q(0)^3*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,27), ')*q(0)^3*q(1)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,28), ')*q(0)^3*q(1)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,29), ')*q(0)^3*q(1)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(2,30), ')*q(0)^3*q(1)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,31), ')*q(0)^3*q(1)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,32), ')*q(0)^4*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,33), ')*q(0)^4*q(1)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(2,34), ')*q(0)^4*q(1)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(2,35), ')*q(0)^5*q(1)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(3,1), ')*q(0)*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,2), ')*q(0)*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,3), ')*q(0)*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,4), ')*q(0)*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,5), ')*q(0)*q(2)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,6), ')*q(0)*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,7), ')*q(0)*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,8), ')*q(0)*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,9), ')*q(0)*q(2)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,10), ')*q(0)*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,11), ')*q(0)*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,12), ')*q(0)*q(2)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,13), ')*q(0)*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,14), ')*q(0)*q(2)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,15), ')*q(0)*q(2)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,16), ')*q(0)^2*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,17), ')*q(0)^2*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,18), ')*q(0)^2*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,19), ')*q(0)^2*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,20), ')*q(0)^2*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(3,21), ')*q(0)^2*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(3,22), ')*q(0)^2*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,23), ')*q(0)^2*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(3,24), ')*q(0)^2*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,25), ')*q(0)^2*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,26), ')*q(0)^3*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,27), ')*q(0)^3*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,28), ')*q(0)^3*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,29), ')*q(0)^3*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(3,30), ')*q(0)^3*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,31), ')*q(0)^3*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,32), ')*q(0)^4*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,33), ')*q(0)^4*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(3,34), ')*q(0)^4*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(3,35), ')*q(0)^5*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A16)') ' + (', coeffs%c3(4,1), ')*q(1)*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,2), ')*q(1)*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,3), ')*q(1)*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,4), ')*q(1)*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,5), ')*q(1)*q(2)*q(3)^5'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,6), ')*q(1)*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,7), ')*q(1)*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,8), ')*q(1)*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,9), ')*q(1)*q(2)^2*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,10), ')*q(1)*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,11), ')*q(1)*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,12), ')*q(1)*q(2)^3*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,13), ')*q(1)*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,14), ')*q(1)*q(2)^4*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,15), ')*q(1)*q(2)^5*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,16), ')*q(1)^2*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,17), ')*q(1)^2*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,18), ')*q(1)^2*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,19), ')*q(1)^2*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,20), ')*q(1)^2*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(4,21), ')*q(1)^2*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(4,22), ')*q(1)^2*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,23), ')*q(1)^2*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(4,24), ')*q(1)^2*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,25), ')*q(1)^2*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,26), ')*q(1)^3*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,27), ')*q(1)^3*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,28), ')*q(1)^3*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,29), ')*q(1)^3*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A22)') ' + (', coeffs%c3(4,30), ')*q(1)^3*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,31), ')*q(1)^3*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,32), ')*q(1)^4*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,33), ')*q(1)^4*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A20)') ' + (', coeffs%c3(4,34), ')*q(1)^4*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A18)') ' + (', coeffs%c3(4,35), ')*q(1)^5*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A21)') ' + (', coeffs%c4(1,1), ')*q(0)*q(1)*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,2), ')*q(0)*q(1)*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,3), ')*q(0)*q(1)*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,4), ')*q(0)*q(1)*q(2)*q(3)^4'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,5), ')*q(0)*q(1)*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,6), ')*q(0)*q(1)*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,7), ')*q(0)*q(1)*q(2)^2*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,8), ')*q(0)*q(1)*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,9), ')*q(0)*q(1)*q(2)^3*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,10), ')*q(0)*q(1)*q(2)^4*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,11), ')*q(0)*q(1)^2*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,12), ')*q(0)*q(1)^2*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,13), ')*q(0)*q(1)^2*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,14), ')*q(0)*q(1)^2*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A27)') ' + (', coeffs%c4(1,15), ')*q(0)*q(1)^2*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,16), ')*q(0)*q(1)^2*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,17), ')*q(0)*q(1)^3*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,18), ')*q(0)*q(1)^3*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,19), ')*q(0)*q(1)^3*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,20), ')*q(0)*q(1)^4*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,21), ')*q(0)^2*q(1)*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,22), ')*q(0)^2*q(1)*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,23), ')*q(0)^2*q(1)*q(2)*q(3)^3'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,24), ')*q(0)^2*q(1)*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A27)') ' + (', coeffs%c4(1,25), ')*q(0)^2*q(1)*q(2)^2*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,26), ')*q(0)^2*q(1)*q(2)^3*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,27), ')*q(0)^2*q(1)^2*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A27)') ' + (', coeffs%c4(1,28), ')*q(0)^2*q(1)^2*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A27)') ' + (', coeffs%c4(1,29), ')*q(0)^2*q(1)^2*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,30), ')*q(0)^2*q(1)^3*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,31), ')*q(0)^3*q(1)*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,32), ')*q(0)^3*q(1)*q(2)*q(3)^2'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,33), ')*q(0)^3*q(1)*q(2)^2*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A25)') ' + (', coeffs%c4(1,34), ')*q(0)^3*q(1)^2*q(2)*q(3)'
+ write(ch,'(A4,G24.16,1x,G24.16,A23)') ' + (', coeffs%c4(1,35), ')*q(0)^4*q(1)*q(2)*q(3)'
+end subroutine print_coeffs_7
+!****f* src/interface/tens_rec/reconstruct7
+! NAME
+!
+! Subroutine reconstruct7
+!
+! USAGE
+!
+! call reconstruct7(numeval, cm0, cm1, cm2)
+!
+! DESCRIPTION
+!
+! Reconstructs all coefficients of a tensor integral of maximum rank 7,
+! including the coefficients in front of mu2 and mu2^2.
+!
+! INPUTS
+!
+! * numeval -- the numerator function
+! * cm0 -- coefficients of type coeff_type_7, representing the
+! numerator at mu2=0
+! * cm1 -- coefficients of type type(coeff_type_5), representing the
+! tensor in front of mu2 [optional]
+! * cm2 -- coefficients of type type(coeff_type_5), representing the
+! tensor in front of mu2^2 [optional]
+!
+! SIDE EFFECTS
+!
+! Writes results to cm0, cm1 and cm2 (if present). If cm1 and cm2 are omitted
+! only N(q,0) is evaluated. If cm2 is omitted it is assumed that the numerator
+! is at most linear in mu2.
+!
+! EXAMPLE
+!
+!
+!*****
+subroutine reconstruct7(numeval, cm0, cm1, cm2)
+ ! generated by: write_subroutine_reconstruct
+ implicit none
+ interface
+ function numeval(Q, mu2)
+ use precision_golem, only: ki
+ implicit none
+ real(ki), dimension(0:3), intent(in) :: Q
+ real(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+ type(coeff_type_7), intent(out) :: cm0
+ type(coeff_type_5), intent(out), optional :: cm1
+ type(coeff_type_5), intent(out), optional :: cm2
+ type(coeff_type_5) :: ca, cb
+ call solve7(numeval, 0.0_ki, cm0)
+ if (present(cm1)) then
+ if (present(cm2)) then
+ call solve5(numeval, +1.0_ki, ca, cm0)
+ call solve5(numeval, -1.0_ki, cb, cm0)
+ cm1%c0= 0.5_ki * (ca%c0 - cb%c0)
+ cm2%c0= 0.5_ki * (ca%c0 + cb%c0)
+ cm1%c1 = 0.5_ki * (ca%c1 - cb%c1)
+ cm2%c1 = 0.5_ki * (ca%c1 + cb%c1)
+ cm1%c2 = 0.5_ki * (ca%c2 - cb%c2)
+ cm2%c2 = 0.5_ki * (ca%c2 + cb%c2)
+ cm1%c3 = 0.5_ki * (ca%c3 - cb%c3)
+ cm2%c3 = 0.5_ki * (ca%c3 + cb%c3)
+ cm1%c4 = 0.5_ki * (ca%c4 - cb%c4)
+ cm2%c4 = 0.5_ki * (ca%c4 + cb%c4)
+ else
+ call solve5(numeval, +1.0_ki, cm1, cm0)
+ end if
+ end if
+end subroutine reconstruct7
end module tens_rec
diff --git a/golem95c-1.2.1/interface/tensor_integrals.f90 b/golem95c-1.2.1/interface/tensor_integrals.f90
index 2ec980e..6e0cc6f 100644
--- a/golem95c-1.2.1/interface/tensor_integrals.f90
+++ b/golem95c-1.2.1/interface/tensor_integrals.f90
@@ -1,1921 +1,1922 @@
!
!****h* src/interface/tensor_integrals
! NAME
!
! Module tensor_integrals
!
! USAGE
!
! use tensor_integrals
!
! DESCRIPTION
!
! This module provides an interface which allows to compute
! tensor integrals rather than form factors.
!
! OUTPUT
!
! This module exports the functions:
! * init_smat -- initialize the s_smat from vectors and masses
! * ti1 -- tensor tadpoles
! * ti2 -- tensor bubbles
! * ti3 -- tensor triangles
! * ti4 -- tensor boxes
! * ti5 -- tensor pentagons
! * ti6 -- tensor hexagons
!
! USES
!
! precision_golem
! form_factor_type
! form_factor_1p
! form_factor_2p
! form_factor_3p
! form_factor_4p
! form_factor_5p
! form_factor_6p
! cache
! matrice_s
! spinor
! array
!
!*****
module tensor_integrals
use precision_golem, only: ki
use form_factor_type, only: form_factor, operator(*), operator(+)
use form_factor_1p, only: a10
use form_factor_2p, only: a20, a21, a22, b22
use form_factor_3p, only: a30, a31, a32, a33, b32, b33
use form_factor_4p, only: a40, a41, a42, a43, a44, b42, b43, b44, c44
use form_factor_5p, only: a50, a51, a52, a53, a54, a55, b52, b53, b54, b55, &
& c54, c55
use form_factor_6p, only: a60, a61, a62, a63, a64, a65, a66
use cache, only: allocate_cache, clear_cache
use matrice_s, only: set_ref, s_mat, allocation_s, deallocation_s, init_invs, &
& b_ref
use spinor, only: scalar
use array, only: packb, unpackb, pminus
implicit none
private
private :: a10, a20, a21, a22, b22
private :: a30, a31, a32, a33, b32, b33
private :: a40, a41, a42, a43, a44, b42, b43, b44, c44
private :: a50, a51, a52, a53, a54, a55, b52, b53, b54, b55, c54, c55
private :: a60, a61, a62, a63, a64, a65, a66
private :: ki, form_factor, allocate_cache, clear_cache, scalar
private :: packb, unpackb, pminus
private :: set_ref, s_mat, allocation_s, deallocation_s, init_invs, b_ref
integer, dimension(0), target, private :: loc_s_null = 0
private :: symmetric_A_coeff1
private :: symmetric_A_coeff2
private :: symmetric_A_coeff3
private :: symmetric_A_coeff4
private :: symmetric_A_coeff5
private :: symmetric_A_coeff6
private :: symmetric_B_coeff2
private :: symmetric_B_coeff3
private :: symmetric_B_coeff4
private :: symmetric_B_coeff5
private :: symmetric_C_coeff4
private :: symmetric_C_coeff5
interface symmetric_A_coeff
module procedure symmetric_A_coeff1
module procedure symmetric_A_coeff2
module procedure symmetric_A_coeff3
module procedure symmetric_A_coeff4
module procedure symmetric_A_coeff5
module procedure symmetric_A_coeff6
end interface symmetric_A_coeff
interface symmetric_B_coeff
module procedure symmetric_B_coeff2
module procedure symmetric_B_coeff3
module procedure symmetric_B_coeff4
module procedure symmetric_B_coeff5
end interface symmetric_B_coeff
interface symmetric_C_coeff
module procedure symmetric_C_coeff4
module procedure symmetric_C_coeff5
end interface symmetric_C_coeff
interface init_smat
module procedure init_smat1
module procedure init_smat2
module procedure init_smat3
module procedure init_smat4
module procedure init_smat5
module procedure init_smat6
end interface init_smat
interface ti1
module procedure ti1r0
module procedure ti1r1
end interface ti1
interface ti2
module procedure ti2r0
module procedure ti2r1
module procedure ti2r2
end interface ti2
interface ti3
module procedure ti3r0
module procedure ti3r1
module procedure ti3r2
module procedure ti3r3
end interface ti3
interface ti4
module procedure ti4r0
module procedure ti4r1
module procedure ti4r2
module procedure ti4r3
module procedure ti4r4
end interface ti4
interface ti5
module procedure ti5r0
module procedure ti5r1
module procedure ti5r2
module procedure ti5r3
module procedure ti5r4
module procedure ti5r5
end interface ti5
interface ti6
module procedure ti6r0
module procedure ti6r1
module procedure ti6r2
module procedure ti6r3
module procedure ti6r4
module procedure ti6r5
module procedure ti6r6
end interface ti6
private :: ti1r0, ti1r1
private :: ti2r0, ti2r1, ti2r2
private :: ti3r0, ti3r1, ti3r2, ti3r3
private :: ti4r0, ti4r1, ti4r2, ti4r3, ti4r4
private :: ti5r0, ti5r1, ti5r2, ti5r3, ti5r4, ti5r5
private :: ti6r0, ti6r1, ti6r2, ti6r3, ti6r4, ti6r5, ti6r6
integer, parameter, public :: use_existing_smat = 1
integer, parameter, public :: keep_smat_on_exit = 2
public :: ti1, ti2, ti3, ti4, ti5, ti6, init_smat, done_smat
contains
pure elemental function chop(val,prec)
implicit none
real(ki), intent(in) :: val
real(ki), optional, intent(in) :: prec
real(ki) :: chop
if (present(prec)) then
if (abs(val) .gt. prec) then
chop = val
else
chop = 0.0_ki
end if
else
if (abs(val) .gt. 1.0E+04_ki*epsilon(1.0_ki)) then
chop = val
else
chop = 0.0_ki
end if
end if
end function chop
!---#[ init_smat :
subroutine init_smat1(m1sq)
implicit none
real(ki), intent(in) :: m1sq
call allocation_s(1)
set_ref = (/1/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
call allocate_cache(1)
! init_invs not needed for tadpoles
end subroutine init_smat1
subroutine init_smat2(r1,m1sq,m2sq)
implicit none
real(ki), dimension(4), intent(in) :: r1
real(ki), intent(in) :: m1sq,m2sq
call allocation_s(2)
set_ref = (/1,2/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
s_mat(1,2) = chop(scalar(r1,r1)) - m1sq - m2sq
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -m2sq-m2sq
call allocate_cache(2)
! init_invs not needed for bubbles
end subroutine init_smat2
subroutine init_smat3(r1,r2,m1sq,m2sq,m3sq)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2
real(ki), intent(in) :: m1sq,m2sq,m3sq
real(ki), dimension(4) :: delt
call allocation_s(3)
set_ref = (/1,2,3/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
delt = r1-r2
s_mat(1,2) = chop(scalar(delt,delt)) - m1sq - m2sq
delt = r1
s_mat(1,3) = chop(scalar(delt,delt)) - m1sq - m3sq
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -m2sq-m2sq
delt = r2
s_mat(2,3) = chop(scalar(delt,delt)) - m2sq - m3sq
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -m3sq-m3sq
call allocate_cache(3)
! init_invs not needed for triangles
+ call init_invs()
end subroutine init_smat3
subroutine init_smat4(r1,r2,r3,m1sq,m2sq,m3sq,m4sq)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3
real(ki), intent(in) :: m1sq,m2sq,m3sq,m4sq
real(ki), dimension(4) :: delt
call allocation_s(4)
set_ref = (/1,2,3,4/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
delt = r1-r2
s_mat(1,2) = chop(scalar(delt,delt)) - m1sq - m2sq
delt = r1-r3
s_mat(1,3) = chop(scalar(delt,delt)) - m1sq - m3sq
delt = r1
s_mat(1,4) = chop(scalar(delt,delt)) - m1sq - m4sq
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -m2sq-m2sq
delt = r2-r3
s_mat(2,3) = chop(scalar(delt,delt)) - m2sq - m3sq
delt = r2
s_mat(2,4) = chop(scalar(delt,delt)) - m2sq - m4sq
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -m3sq-m3sq
delt = r3
s_mat(3,4) = chop(scalar(delt,delt)) - m3sq - m4sq
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -m4sq-m4sq
call allocate_cache(4)
call init_invs()
end subroutine init_smat4
subroutine init_smat5(r1,r2,r3,r4,m1sq,m2sq,m3sq,m4sq,m5sq)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3,r4
real(ki), intent(in) :: m1sq,m2sq,m3sq,m4sq,m5sq
real(ki), dimension(4) :: delt
call allocation_s(5)
set_ref = (/1,2,3,4,5/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
delt = r1-r2
s_mat(1,2) = chop(scalar(delt,delt)) - m1sq - m2sq
delt = r1-r3
s_mat(1,3) = chop(scalar(delt,delt)) - m1sq - m3sq
delt = r1-r4
s_mat(1,4) = chop(scalar(delt,delt)) - m1sq - m4sq
delt = r1
s_mat(1,5) = chop(scalar(delt,delt)) - m1sq - m5sq
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -m2sq-m2sq
delt = r2-r3
s_mat(2,3) = chop(scalar(delt,delt)) - m2sq - m3sq
delt = r2-r4
s_mat(2,4) = chop(scalar(delt,delt)) - m2sq - m4sq
delt = r2
s_mat(2,5) = chop(scalar(delt,delt)) - m2sq - m5sq
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -m3sq-m3sq
delt = r3-r4
s_mat(3,4) = chop(scalar(delt,delt)) - m3sq - m4sq
delt = r3
s_mat(3,5) = chop(scalar(delt,delt)) - m3sq - m5sq
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -m4sq-m4sq
delt = r4
s_mat(4,5) = chop(scalar(delt,delt)) - m4sq - m5sq
s_mat(5,1) = s_mat(1,5)
s_mat(5,2) = s_mat(2,5)
s_mat(5,3) = s_mat(3,5)
s_mat(5,4) = s_mat(4,5)
s_mat(5,5) = -m5sq-m5sq
call allocate_cache(5)
call init_invs()
end subroutine init_smat5
subroutine init_smat6(r1,r2,r3,r4,r5,m1sq,m2sq,m3sq,m4sq,m5sq,m6sq)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3,r4,r5
real(ki), intent(in) :: m1sq,m2sq,m3sq,m4sq,m5sq,m6sq
real(ki), dimension(4) :: delt
call allocation_s(6)
set_ref = (/1,2,3,4,5,6/)
b_ref = packb(set_ref)
s_mat(1,1) = -m1sq-m1sq
delt = r1-r2
s_mat(1,2) = chop(scalar(delt,delt)) - m1sq - m2sq
delt = r1-r3
s_mat(1,3) = chop(scalar(delt,delt)) - m1sq - m3sq
delt = r1-r4
s_mat(1,4) = chop(scalar(delt,delt)) - m1sq - m4sq
delt = r1-r5
s_mat(1,5) = chop(scalar(delt,delt)) - m1sq - m5sq
delt = r1
s_mat(1,6) = chop(scalar(delt,delt)) - m1sq - m6sq
s_mat(2,1) = s_mat(1,2)
s_mat(2,2) = -m2sq-m2sq
delt = r2-r3
s_mat(2,3) = chop(scalar(delt,delt)) - m2sq - m3sq
delt = r2-r4
s_mat(2,4) = chop(scalar(delt,delt)) - m2sq - m4sq
delt = r2-r5
s_mat(2,5) = chop(scalar(delt,delt)) - m2sq - m5sq
delt = r2
s_mat(2,6) = chop(scalar(delt,delt)) - m2sq - m6sq
s_mat(3,1) = s_mat(1,3)
s_mat(3,2) = s_mat(2,3)
s_mat(3,3) = -m3sq-m3sq
delt = r3-r4
s_mat(3,4) = chop(scalar(delt,delt)) - m3sq - m4sq
delt = r3-r5
s_mat(3,5) = chop(scalar(delt,delt)) - m3sq - m5sq
delt = r3
s_mat(3,6) = chop(scalar(delt,delt)) - m3sq - m6sq
s_mat(4,1) = s_mat(1,4)
s_mat(4,2) = s_mat(2,4)
s_mat(4,3) = s_mat(3,4)
s_mat(4,4) = -m4sq-m4sq
delt = r4-r5
s_mat(4,5) = chop(scalar(delt,delt)) - m4sq - m5sq
delt = r4
s_mat(4,6) = chop(scalar(delt,delt)) - m4sq - m6sq
s_mat(5,1) = s_mat(1,5)
s_mat(5,2) = s_mat(2,5)
s_mat(5,3) = s_mat(3,5)
s_mat(5,4) = s_mat(4,5)
s_mat(5,5) = -m5sq-m5sq
delt = r5
s_mat(5,6) = chop(scalar(delt,delt)) - m5sq - m6sq
s_mat(6,1) = s_mat(1,6)
s_mat(6,2) = s_mat(2,6)
s_mat(6,3) = s_mat(3,6)
s_mat(6,4) = s_mat(4,6)
s_mat(6,5) = s_mat(5,6)
s_mat(6,6) = -m6sq-m6sq
call allocate_cache(6)
call init_invs()
end subroutine init_smat6
subroutine done_smat()
implicit none
call clear_cache()
call deallocation_s()
end subroutine done_smat
!---#] init_smat :
!---#[ One point tensor integrals :
subroutine ti1r0(tens,m1,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), intent(in) :: m1
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
logical :: f_init_smat, f_dispose_smat
integer, dimension(:), pointer :: lpinches
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(m1*m1)
tens = a10(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti1r0
subroutine ti1r1(tens,m1,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), intent(in) :: m1
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if(f_init_smat) call init_smat(m1*m1)
tens(:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
if(f_dispose_smat) call done_smat()
end subroutine ti1r1
!---#] One point tensor integrals :
!---#[ Two point tensor integrals :
subroutine ti2r0(tens,r1,m1,m2,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
real(ki), intent(in) :: m1, m2
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,m1*m1,m2*m2)
tens = a20(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti2r0
subroutine ti2r1(tens,r1,m1,m2,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
real(ki), intent(in) :: m1, m2
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4) :: term
integer, dimension(2) :: unpinched
unpinched = unpackb(pminus(b_ref,packb(pinches)),2)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,m1*m1,m2*m2)
call symmetric_A_coeff(term,r1)
tens(:) = term * A21(unpinched(1),lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti2r1
subroutine ti2r2(tens,r1,m1,m2,flag,pinches)
implicit none
type(form_factor), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
real(ki), intent(in) :: m1, m2
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4) :: term
integer, dimension(2) :: unpinched
unpinched = unpackb(pminus(b_ref,packb(pinches)),2)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,m1*m1,m2*m2)
call symmetric_A_coeff(term,r1,r1)
tens(:,:) = term(:,:) * A22(unpinched(1),unpinched(1),lpinches)
call symmetric_B_coeff(term)
tens(:,:) = tens(:,:) + term(:,:) * B22(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti2r2
!---#] Two point tensor integrals :
!---#[ Three point tensor integrals :
subroutine ti3r0(tens,r1,r2,m1,m2,m3,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2
real(ki), intent(in) :: m1, m2, m3
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,r2,m1*m1,m2*m2,m3*m3)
tens = A30(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti3r0
subroutine ti3r1(tens,r1,r2,m1,m2,m3,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2
real(ki), intent(in) :: m1, m2, m3
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
integer, dimension(3) :: unpinched
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),2)
if(f_init_smat) call init_smat(r1,r2,m1*m1,m2*m2,m3*m3)
tens(:) = r1(:) * A31(unpinched(1),lpinches) &
& + r2(:) * A31(unpinched(2),lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti3r1
subroutine ti3r2(tens,r1,r2,m1,m2,m3,flag,pinches)
implicit none
type(form_factor), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2
real(ki), intent(in) :: m1, m2, m3
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4) :: term
real(ki), dimension(2,4) :: rarr
integer :: j1, j2
integer, dimension(3) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),3)
if(f_init_smat) call init_smat(r1,r2,m1*m1,m2*m2,m3*m3)
tens(:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,2
do j2=1,2
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:) = tens(:,:) &
& + term(:,:) * A32(unpinched(j1),unpinched(j2),lpinches)
end do
end do
call symmetric_B_coeff(term)
tens(:,:) = tens(:,:) + term(:,:) * B32(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti3r2
subroutine ti3r3(tens,r1,r2,m1,m2,m3,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2
real(ki), intent(in) :: m1, m2, m3
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4) :: term
real(ki), dimension(2,4) :: rarr
integer :: j1, j2, j3
integer, dimension(3) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),3)
if(f_init_smat) call init_smat(r1,r2,m1*m1,m2*m2,m3*m3)
tens(:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,2
do j2=1,2
do j3=1,2
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:))
tens(:,:,:) = tens(:,:,:) &
& + term(:,:,:) * A33(unpinched(j1),unpinched(j2),unpinched(j3),&
& lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(j1,:))
tens(:,:,:) = tens(:,:,:) &
& + term(:,:,:) * B33(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti3r3
!---#] Three point tensor integrals :
!---#[ Four point tensor integrals :
subroutine ti4r0(tens,r1,r2,r3,m1,m2,m3,m4,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki), intent(in) :: m1, m2, m3, m4
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,r2,r3,m1*m1,m2*m2,m3*m3,m4*m4)
tens = A40(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti4r0
subroutine ti4r1(tens,r1,r2,r3,m1,m2,m3,m4,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki), intent(in) :: m1, m2, m3, m4
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4) :: term
real(ki), dimension(3,4) :: rarr
integer :: j1
integer, dimension(4) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),4)
if(f_init_smat) call init_smat(r1,r2,r3,m1*m1,m2*m2,m3*m3,m4*m4)
tens(:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,3
call symmetric_A_coeff(term,rarr(j1,:))
tens(:) = tens(:) + term(:) * A41(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti4r1
subroutine ti4r2(tens,r1,r2,r3,m1,m2,m3,m4,flag,pinches)
implicit none
type(form_factor), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki), intent(in) :: m1, m2, m3, m4
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4) :: term
real(ki), dimension(3,4) :: rarr
integer :: j1, j2
integer, dimension(4) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),4)
if(f_init_smat) call init_smat(r1,r2,r3,m1*m1,m2*m2,m3*m3,m4*m4)
tens(:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,3
do j2=1,3
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:) = tens(:,:) &
& + term(:,:) * A42(unpinched(j1),unpinched(j2),lpinches)
end do
end do
call symmetric_B_coeff(term)
tens(:,:) = tens(:,:) + term(:,:) * B42(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti4r2
subroutine ti4r3(tens,r1,r2,r3,m1,m2,m3,m4,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki), intent(in) :: m1, m2, m3, m4
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4) :: term
real(ki), dimension(3,4) :: rarr
integer :: j1, j2, j3
integer, dimension(4) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),4)
if(f_init_smat) call init_smat(r1,r2,r3,m1*m1,m2*m2,m3*m3,m4*m4)
tens(:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,3
do j2=1,3
do j3=1,3
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:))
tens(:,:,:) = tens(:,:,:) &
& + term(:,:,:) * A43(unpinched(j1),unpinched(j2),unpinched(j3),&
& lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(unpinched(j1),:))
tens(:,:,:) = tens(:,:,:) + term(:,:,:) * B43(j1,lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti4r3
subroutine ti4r4(tens,r1,r2,r3,m1,m2,m3,m4,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki), intent(in) :: m1, m2, m3, m4
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4) :: term
real(ki), dimension(3,4) :: rarr
integer :: j1, j2, j3, j4
integer, dimension(4) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),4)
if(f_init_smat) call init_smat(r1,r2,r3,m1*m1,m2*m2,m3*m3,m4*m4)
tens(:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,3
do j2=1,3
do j3=1,3
do j4=1,3
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:))
tens(:,:,:,:) = tens(:,:,:,:) &
& + term(:,:,:,:) * A44(unpinched(j1),unpinched(j2), &
& unpinched(j3),unpinched(j4),lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:,:,:) = tens(:,:,:,:) &
& + term(:,:,:,:) * B44(unpinched(j1),unpinched(j2),lpinches)
end do
end do
call symmetric_C_coeff(term)
tens(:,:,:,:) = tens(:,:,:,:) + term(:,:,:,:) * C44(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti4r4
!---#] Four point tensor integrals :
!---#[ Five point tensor integrals :
subroutine ti5r0(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens = A50(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti5r0
subroutine ti5r1(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4) :: term
real(ki), dimension(4,4) :: rarr
integer :: j1
integer, dimension(5) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),5)
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens(:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,4
call symmetric_A_coeff(term,rarr(j1,:))
tens(:) = tens(:) + term(:) * A51(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti5r1
subroutine ti5r2(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4) :: term
real(ki), dimension(4,4) :: rarr
integer :: j1, j2
integer, dimension(5) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),5)
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens(:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,4
do j2=1,4
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:) = tens(:,:) &
& + term(:,:) * A52(unpinched(j1),unpinched(j2),lpinches)
end do
end do
call symmetric_B_coeff(term)
tens(:,:) = tens(:,:) + term(:,:) * B52(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti5r2
subroutine ti5r3(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4) :: term
real(ki), dimension(4,4) :: rarr
integer :: j1, j2, j3
integer, dimension(5) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),5)
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens(:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,4
do j2=1,4
do j3=1,4
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:))
tens(:,:,:) = tens(:,:,:) &
& + term(:,:,:) * A53(unpinched(j1),unpinched(j2), &
& unpinched(j3),lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(j1,:))
tens(:,:,:) = tens(:,:,:) + term(:,:,:) * B53(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti5r3
subroutine ti5r4(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4) :: term
real(ki), dimension(4,4) :: rarr
integer :: j1, j2, j3, j4
integer, dimension(5) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),5)
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens(:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,4
do j2=1,4
do j3=1,4
do j4=1,4
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:))
tens(:,:,:,:) = tens(:,:,:,:) + term(:,:,:,:) * &
& A54(unpinched(j1),unpinched(j2),unpinched(j3),unpinched(j4),lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:,:,:) = tens(:,:,:,:) &
& + term(:,:,:,:) * B54(unpinched(j1),unpinched(j2),lpinches)
end do
end do
call symmetric_C_coeff(term)
tens(:,:,:,:) = tens(:,:,:,:) + term(:,:,:,:) * C54(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti5r4
subroutine ti5r5(tens,r1,r2,r3,r4,m1,m2,m3,m4,m5,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4
real(ki), intent(in) :: m1, m2, m3, m4, m5
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4,4) :: term
real(ki), dimension(4,4) :: rarr
integer :: j1, j2, j3, j4, j5
integer, dimension(5) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),5)
if(f_init_smat) call init_smat(r1,r2,r3,r4,m1*m1,m2*m2,m3*m3,m4*m4,m5*m5)
tens(:,:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,4
do j2=1,4
do j3=1,4
do j4=1,4
do j5=1,4
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:),&
& rarr(j5,:))
tens(:,:,:,:,:) = tens(:,:,:,:,:) + term(:,:,:,:,:) * &
& A55(unpinched(j1),unpinched(j2),unpinched(j3),unpinched(j4),&
& unpinched(j5),lpinches)
end do
end do
call symmetric_B_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:))
tens(:,:,:,:,:) = tens(:,:,:,:,:) + term(:,:,:,:,:) * &
& B55(unpinched(j1),unpinched(j2),unpinched(j3),lpinches)
end do
end do
call symmetric_C_coeff(term,rarr(j1,:))
tens(:,:,:,:,:) = tens(:,:,:,:,:) + term(:,:,:,:,:) * &
& C55(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti5r5
!---#] Five point tensor integrals :
!---#[ Six point tensor integrals :
subroutine ti6r0(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens = A60(lpinches)
if(f_dispose_smat) call done_smat()
end subroutine ti6r0
subroutine ti6r1(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
call symmetric_A_coeff(term,rarr(j1,:))
tens(:) = tens(:) + term(:) * A61(unpinched(j1),lpinches)
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r1
subroutine ti6r2(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1, j2
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
do j2=1,5
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:))
tens(:,:) = tens(:,:) &
& + term(:,:) * A62(unpinched(j1),unpinched(j2),lpinches)
end do
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r2
subroutine ti6r3(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1, j2, j3
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
do j2=1,5
do j3=1,5
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:))
tens(:,:,:) = tens(:,:,:) &
& + term(:,:,:) * A63(unpinched(j1),unpinched(j2),unpinched(j3),&
& lpinches)
end do
end do
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r3
subroutine ti6r4(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1, j2, j3, j4
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
do j2=1,5
do j3=1,5
do j4=1,5
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:))
tens(:,:,:,:) = tens(:,:,:,:) + term(:,:,:,:) * &
& A64(unpinched(j1),unpinched(j2),unpinched(j3),unpinched(j4),lpinches)
end do
end do
end do
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r4
subroutine ti6r5(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4,4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1, j2, j3, j4, j5
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:,:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
do j2=1,5
do j3=1,5
do j4=1,5
do j5=1,5
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:),&
& rarr(j5,:))
tens(:,:,:,:,:) = tens(:,:,:,:,:) + term(:,:,:,:,:) * &
& A65(unpinched(j1),unpinched(j2),unpinched(j3),unpinched(j4), &
& unpinched(j5),lpinches)
end do
end do
end do
end do
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r5
subroutine ti6r6(tens,r1,r2,r3,r4,r5,m1,m2,m3,m4,m5,m6,flag,pinches)
implicit none
type(form_factor), dimension(4,4,4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3, r4, r5
real(ki), intent(in) :: m1, m2, m3, m4, m5, m6
integer, optional, intent(in) :: flag
integer, dimension(:), target, optional, intent(in) :: pinches
integer, dimension(:), pointer :: lpinches
logical :: f_init_smat, f_dispose_smat
real(ki), dimension(4,4,4,4,4,4) :: term
real(ki), dimension(5,4) :: rarr
integer :: j1, j2, j3, j4, j5, j6
integer, dimension(6) :: unpinched
rarr(1,:) = r1(:)
rarr(2,:) = r2(:)
rarr(3,:) = r3(:)
rarr(4,:) = r4(:)
rarr(5,:) = r5(:)
if(present(flag)) then
f_init_smat = iand(flag, use_existing_smat) .eq. 0
f_dispose_smat = iand(flag, keep_smat_on_exit) .eq. 0
else
f_init_smat = .true.
f_dispose_smat = .true.
end if
if (present(pinches)) then
lpinches => pinches
else
lpinches => loc_s_null
end if
unpinched = unpackb(pminus(b_ref,packb(lpinches)),6)
if(f_init_smat) call init_smat(r1,r2,r3,r4,r5,m1*m1,m2*m2,m3*m3,m4*m4,&
& m5*m5,m6*m6)
tens(:,:,:,:,:,:) = form_factor(0.0_ki, 0.0_ki, 0.0_ki)
do j1=1,5
do j2=1,5
do j3=1,5
do j4=1,5
do j5=1,5
do j6=1,5
call symmetric_A_coeff(term,rarr(j1,:),rarr(j2,:),rarr(j3,:),rarr(j4,:),&
& rarr(j5,:),rarr(j6,:))
tens(:,:,:,:,:,:) = tens(:,:,:,:,:,:) + term(:,:,:,:,:,:) * &
& A66(unpinched(j1),unpinched(j2),unpinched(j3),unpinched(j4),&
& unpinched(j5),unpinched(j6),lpinches)
end do
end do
end do
end do
end do
end do
if(f_dispose_smat) call done_smat()
end subroutine ti6r6
!---#] Six point tensor integrals :
!---#[ Symmetric A coefficients :
pure subroutine symmetric_A_coeff1(tens,r1)
implicit none
real(ki), dimension(4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
tens(:) = r1(:)
end subroutine symmetric_A_coeff1
pure subroutine symmetric_A_coeff2(tens,r1,r2)
implicit none
real(ki), dimension(4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1,r2
integer :: i1,i2
tens(:,:) = 0.0_ki
!$omp parallel do
do i1 = 1,4
do i2 = 1,4
tens(i1,i2) = r1(i1)*r2(i2)
end do
end do
!$omp end parallel do
end subroutine symmetric_A_coeff2
pure subroutine symmetric_A_coeff3(tens,r1,r2,r3)
implicit none
real(ki), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1,r2,r3
integer :: i1,i2,i3
!$omp parallel do
do i1 = 1,4
do i2 = 1,4
do i3 = 1,4
tens(i1,i2,i3) = r1(i1)*r2(i2)*r3(i3)
end do
end do
end do
!$omp end parallel do
end subroutine symmetric_A_coeff3
pure subroutine symmetric_A_coeff4(tens,r1,r2,r3,r4)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3,r4
real(ki), dimension(4,4,4,4), intent(out) :: tens
integer :: i1,i2,i3,i4
!$omp parallel do
do i1 = 1,4
do i2 = 1,4
do i3 = 1,4
do i4 = 1,4
tens(i1,i2,i3,i4) = r1(i1)*r2(i2)*r3(i3)*r4(i4)
end do
end do
end do
end do
!$omp end parallel do
end subroutine symmetric_A_coeff4
pure subroutine symmetric_A_coeff5(tens,r1,r2,r3,r4,r5)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3,r4,r5
real(ki), dimension(4,4,4,4,4), intent(out) :: tens
integer :: i1,i2,i3,i4,i5
!$omp parallel do
do i1 = 1,4
do i2 = 1,4
do i3 = 1,4
do i4 = 1,4
do i5 = 1,4
tens(i1,i2,i3,i4,i5) = r1(i1)*r2(i2)*r3(i3)*r4(i4)*r5(i5)
end do
end do
end do
end do
end do
!$omp end parallel do
end subroutine symmetric_A_coeff5
pure subroutine symmetric_A_coeff6(tens,r1,r2,r3,r4,r5,r6)
implicit none
real(ki), dimension(4), intent(in) :: r1,r2,r3,r4,r5,r6
real(ki), dimension(4,4,4,4,4,4), intent(out) :: tens
integer :: i1,i2,i3,i4,i5,i6
!$omp parallel do
do i1 = 1,4
do i2 = 1,4
do i3 = 1,4
do i4 = 1,4
do i5 = 1,4
do i6 = 1,4
tens(i1,i2,i3,i4,i5,i6) = r1(i1)*r2(i2)*r3(i3)*r4(i4)*r5(i5)*r6(i6)
end do
end do
end do
end do
end do
end do
!$omp end parallel do
end subroutine symmetric_A_coeff6
!---#] Symmetric A coefficients :
!---#[ Symmetric B coefficients :
pure subroutine symmetric_B_coeff2(tens)
implicit none
real(ki), dimension(4,4), intent(out) :: tens
tens(:,:) = 0.0_ki
tens(1,1) = 1.0_ki
tens(2,2) = -1.0_ki
tens(3,3) = -1.0_ki
tens(4,4) = -1.0_ki
end subroutine symmetric_B_coeff2
pure subroutine symmetric_B_coeff3(tens,r1)
implicit none
real(ki), dimension(4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
real(ki), dimension(4) :: atens
real(ki) :: term
integer :: i1,i2,i3
integer :: s1, s2
call symmetric_A_coeff(atens,r1)
!$omp parallel do
do i1=1,4
s1 = -sign(1, 2*i1-3)
do i2=1,4
s2 = -sign(1, 2*i2-3)
do i3=1,4
term = 0.0_ki
if(i2==i3) term = term + s2*atens(i1)
if(i1==i3) term = term + s1*atens(i2)
if(i1==i2) term = term + s1*atens(i3)
tens(i1,i2,i3) = term
enddo
enddo
enddo
!$omp end parallel do
end subroutine symmetric_B_coeff3
pure subroutine symmetric_B_coeff4(tens,r1,r2)
implicit none
real(ki), dimension(4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2
real(ki) :: term
real(ki), dimension(4,4) :: atens
integer :: i1,i2,i3,i4
integer :: s1,s2,s3
call symmetric_A_coeff(atens,r1,r2)
!$omp parallel do
do i1=1,4
s1 = -sign(1, 2*i1-3)
do i2=1,4
s2 = -sign(1, 2*i2-3)
do i3=1,4
s3 = -sign(1, 2*i3-3)
do i4=1,4
term = 0.0_ki
if(i3==i4) term = term + s3*atens(i1,i2)
if(i2==i4) term = term + s2*atens(i1,i3)
if(i2==i3) term = term + s2*atens(i1,i4)
if(i1==i4) term = term + s1*atens(i2,i3)
if(i1==i3) term = term + s1*atens(i2,i4)
if(i1==i2) term = term + s1*atens(i3,i4)
tens(i1,i2,i3,i4) = term
enddo
enddo
enddo
enddo
!$omp end parallel do
end subroutine symmetric_B_coeff4
pure subroutine symmetric_B_coeff5(tens,r1,r2,r3)
implicit none
real(ki), dimension(4,4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1, r2, r3
real(ki) :: term
real(ki), dimension(4,4,4) :: atens
integer :: i1,i2,i3,i4,i5
integer :: s1,s2,s3,s4
call symmetric_A_coeff(atens,r1,r2,r3)
!$omp parallel do
do i1=1,4
s1 = -sign(1, 2*i1-3)
do i2=1,4
s2 = -sign(1, 2*i2-3)
do i3=1,4
s3 = -sign(1, 2*i3-3)
do i4=1,4
s4 = -sign(1, 2*i4-3)
do i5=1,4
term = 0.0_ki
if(i4==i5) term = term + s4*atens(i1,i2,i3)
if(i3==i5) term = term + s3*atens(i1,i2,i4)
if(i3==i4) term = term + s3*atens(i1,i2,i5)
if(i2==i5) term = term + s2*atens(i1,i3,i4)
if(i2==i4) term = term + s2*atens(i1,i3,i5)
if(i2==i3) term = term + s2*atens(i1,i4,i5)
if(i1==i5) term = term + s1*atens(i2,i3,i4)
if(i1==i4) term = term + s1*atens(i2,i3,i5)
if(i1==i3) term = term + s1*atens(i2,i4,i5)
if(i1==i2) term = term + s1*atens(i3,i4,i5)
tens(i1,i2,i3,i4,i5) = term
enddo
enddo
enddo
enddo
enddo
!$omp end parallel do
end subroutine symmetric_B_coeff5
!---#] Symmetric B coefficients :
!---#[ Symmetric C coefficients :
pure subroutine symmetric_C_coeff4(tens)
implicit none
real(ki), dimension(4,4,4,4), intent(out) :: tens
real(ki) :: term
integer :: i1,i2,i3,i4
integer :: s1, s2, s3
!$omp parallel do
do i1=1,4
s1 = -sign(1, 2*i1-3)
do i2=1,4
s2 = -sign(1, 2*i2-3)
do i3=1,4
s3 = -sign(1, 2*i3-3)
do i4=1,4
term = 0.0_ki
if((i1==i2).and.(i3==i4)) term = term + s1*s3
if((i1==i3).and.(i2==i4)) term = term + s1*s2
if((i1==i4).and.(i2==i3)) term = term + s1*s2
tens(i1,i2,i3,i4) = term
enddo
enddo
enddo
enddo
!$omp end parallel do
end subroutine symmetric_C_coeff4
pure subroutine symmetric_C_coeff5(tens,r1)
implicit none
real(ki), dimension(4,4,4,4,4), intent(out) :: tens
real(ki), dimension(4), intent(in) :: r1
real(ki), dimension(4) :: atens
real(ki) :: term
integer :: i1,i2,i3,i4,i5
integer :: s1, s2, s3, s4
call symmetric_A_coeff(atens,r1)
!$omp parallel do
do i1=1,4
s1 = -sign(1, 2*i1-3)
do i2=1,4
s2 = -sign(1, 2*i2-3)
do i3=1,4
s3 = -sign(1, 2*i3-3)
do i4=1,4
s4 = -sign(1, 2*i4-3)
do i5=1,4
term = 0.0_ki
if((i5==i2).and.(i3==i4)) term = term + s2*s3*atens(i1)
if((i5==i3).and.(i2==i4)) term = term + s3*s2*atens(i1)
if((i5==i4).and.(i2==i3)) term = term + s4*s2*atens(i1)
if((i1==i5).and.(i3==i4)) term = term + s1*s3*atens(i2)
if((i1==i3).and.(i5==i4)) term = term + s1*s4*atens(i2)
if((i1==i4).and.(i5==i3)) term = term + s1*s3*atens(i2)
if((i1==i2).and.(i5==i4)) term = term + s1*s4*atens(i3)
if((i1==i5).and.(i2==i4)) term = term + s1*s2*atens(i3)
if((i1==i4).and.(i2==i5)) term = term + s1*s2*atens(i3)
if((i1==i2).and.(i3==i5)) term = term + s1*s3*atens(i4)
if((i1==i3).and.(i2==i5)) term = term + s1*s2*atens(i4)
if((i1==i5).and.(i2==i3)) term = term + s1*s2*atens(i4)
if((i1==i2).and.(i3==i4)) term = term + s1*s3*atens(i5)
if((i1==i3).and.(i2==i4)) term = term + s1*s2*atens(i5)
if((i1==i4).and.(i2==i3)) term = term + s1*s2*atens(i5)
tens(i1,i2,i3,i4,i5) = term
enddo
enddo
enddo
enddo
enddo
!$omp end parallel do
end subroutine symmetric_C_coeff5
!---#] Symmetric C coefficients :
end module tensor_integrals
diff --git a/golem95c-1.2.1/kinematic/Makefile.am b/golem95c-1.2.1/kinematic/Makefile.am
index 2e25951..3f96a54 100644
--- a/golem95c-1.2.1/kinematic/Makefile.am
+++ b/golem95c-1.2.1/kinematic/Makefile.am
@@ -1,12 +1,20 @@
noinst_LTLIBRARIES=libgolem95_kinematics.la
libgolem95_kinematics_la_SOURCES= inverse_matrice.f90 matrice_s.f90
-libgolem95_kinematics_la_FCFLAGS=\
- -I$(builddir)/../module \
+
+#libgolem95_kinematics_la_FCFLAGS=
+
+include ../MakefileCommon.am
+
+AM_FCFLAGS+= -I$(builddir)/../module \
-I$(builddir)/../../avh_olo-2.2.1
-nodist_pkginclude_HEADERS= matrice_s.mod inverse_matrice.mod
+
+nodist_pkginclude_HEADERS= inverse_matrice.mod matrice_s.mod
CLEANFILES=*.mod
include Makefile.dep
+
+%.mod: %.o %.f90
+ @true
diff --git a/golem95c-1.2.1/kinematic/Makefile.dep b/golem95c-1.2.1/kinematic/Makefile.dep
index 997be1f..cc889c5 100644
--- a/golem95c-1.2.1/kinematic/Makefile.dep
+++ b/golem95c-1.2.1/kinematic/Makefile.dep
@@ -1,4 +1,5 @@
# Module dependencies
-matrice_s.o: inverse_matrice.o
+inverse_matrice.mod: inverse_matrice.f90 inverse_matrice.$(OBJEXT)
matrice_s.lo: inverse_matrice.lo
-matrice_s.obj: inverse_matrice.obj
+matrice_s.$(OBJEXT): inverse_matrice.$(OBJEXT)
+matrice_s.mod: matrice_s.f90 matrice_s.$(OBJEXT) inverse_matrice.$(OBJEXT)
diff --git a/golem95c-1.2.1/kinematic/Makefile.in b/golem95c-1.2.1/kinematic/Makefile.in
index e789898..8cf8408 100644
--- a/golem95c-1.2.1/kinematic/Makefile.in
+++ b/golem95c-1.2.1/kinematic/Makefile.in
@@ -1,560 +1,606 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/kinematic
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_kinematics_la_LIBADD =
-am_libgolem95_kinematics_la_OBJECTS = \
- libgolem95_kinematics_la-inverse_matrice.lo \
- libgolem95_kinematics_la-matrice_s.lo
+am_libgolem95_kinematics_la_OBJECTS = inverse_matrice.lo matrice_s.lo
libgolem95_kinematics_la_OBJECTS = \
$(am_libgolem95_kinematics_la_OBJECTS)
-libgolem95_kinematics_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_kinematics_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_kinematics_la_SOURCES)
DIST_SOURCES = $(libgolem95_kinematics_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_kinematics.la
libgolem95_kinematics_la_SOURCES = inverse_matrice.f90 matrice_s.f90
-libgolem95_kinematics_la_FCFLAGS = \
- -I$(builddir)/../module \
- -I$(builddir)/../../avh_olo-2.2.1
-nodist_pkginclude_HEADERS = matrice_s.mod inverse_matrice.mod
+#libgolem95_kinematics_la_FCFLAGS=
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 -I$(builddir)/../module \
+ -I$(builddir)/../../avh_olo-2.2.1
+nodist_pkginclude_HEADERS = inverse_matrice.mod matrice_s.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/kinematic/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/kinematic/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_kinematics.la: $(libgolem95_kinematics_la_OBJECTS) $(libgolem95_kinematics_la_DEPENDENCIES)
- $(libgolem95_kinematics_la_LINK) $(libgolem95_kinematics_la_OBJECTS) $(libgolem95_kinematics_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_kinematics.la: $(libgolem95_kinematics_la_OBJECTS) $(libgolem95_kinematics_la_DEPENDENCIES) $(EXTRA_libgolem95_kinematics_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_kinematics_la_OBJECTS) $(libgolem95_kinematics_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_kinematics_la-inverse_matrice.lo: inverse_matrice.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_kinematics_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_kinematics_la-inverse_matrice.lo $(FCFLAGS_f90) `test -f 'inverse_matrice.f90' || echo '$(srcdir)/'`inverse_matrice.f90
-
-libgolem95_kinematics_la-matrice_s.lo: matrice_s.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_kinematics_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_kinematics_la-matrice_s.lo $(FCFLAGS_f90) `test -f 'matrice_s.f90' || echo '$(srcdir)/'`matrice_s.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-matrice_s.o: inverse_matrice.o
+inverse_matrice.mod: inverse_matrice.f90 inverse_matrice.$(OBJEXT)
matrice_s.lo: inverse_matrice.lo
-matrice_s.obj: inverse_matrice.obj
+matrice_s.$(OBJEXT): inverse_matrice.$(OBJEXT)
+matrice_s.mod: matrice_s.f90 matrice_s.$(OBJEXT) inverse_matrice.$(OBJEXT)
+
+%.mod: %.o %.f90
+ @true
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/kinematic/inverse_matrice.f90 b/golem95c-1.2.1/kinematic/inverse_matrice.f90
index ffc2770..2e774bd 100644
--- a/golem95c-1.2.1/kinematic/inverse_matrice.f90
+++ b/golem95c-1.2.1/kinematic/inverse_matrice.f90
@@ -1,1562 +1,1562 @@
!
!****h* src/kinematic/inverse_matrice
! NAME
!
! Module inverse_matrice
!
! USAGE
!
! use inverse_matrice
!
! DESCRIPTION
!
! This module provides some routines and tools to inverse a n x n matrix.
!
! OUTPUT
!
! This module exports two routines:
! * inverse -- to inverse a nXn matrix
! * imprime_mat -- to print a nXn matrix
!
! USES
!
! * precision (src/module/precision_golem.f90)
! * equal (src/module/equal.f90)
! * s_matrix_type (src/module/s_matrix_type.f90)
! * constante (src/module/constante.f90)
!
!*****
module inverse_matrice
use precision_golem
use equal
use s_matrix_type
use parametre, only : accuracy_par
use sortie_erreur, only : tab_erreur_par,catch_exception
use constante, only:czero
implicit none
!
private
!
interface imprime_mat
!
module procedure imprime_mat_r, imprime_mat_c
module procedure imprime_mat_p
!
end interface
!
interface inverse
!
module procedure inverse_r, inverse_c
module procedure inverse_pr, inverse_pc
!
end interface
!
interface inverse_rescue
!
module procedure inverse_rescue_r, inverse_rescue_c
!
end interface
!
interface inverse_true
!
module procedure inverse_true_r, inverse_true_c
!
end interface
!
interface lu_decomp
!
module procedure lu_decomp_r, lu_decomp_c
!
end interface
!
interface inverse_triangular
!
module procedure inverse_triangular_r, inverse_triangular_c
!
end interface
!
interface inverse_greville
!
module procedure inverse_greville_r, inverse_greville_c
!
end interface
!
interface compt
!
module procedure compt_r, compt_c
!
end interface
!
interface verif
!
module procedure verif_r, verif_c
!
end interface
!
public :: inverse, imprime_mat
real(ki) :: glob_eps = 1.e-12_ki ! valeur en de ca duquelle on
! passe au cas singulier
contains
!
!****f* src/kinematic/inverse_matrice/inverse
! NAME
!
! Subroutine inverse
!
! USAGE
!
- ! call inverse(mat,inv_mat,error,pinch1,pinch2)
+ ! call inverse(mat,inv_mat,error,pinch1,pinch2,pinch3,pinch4,pinch5)
!
! DESCRIPTION
!
! This routine first tries the Gauss method with partial pivoting strategy.
! If the error returned is too large (greater than the global variable accuracy_par),
! then it switches to another method : the Greville method.
! In the case of the Gauss method, if some reduced matrices need to be inverted, a new matrix is built
! by removing the row(s) and column(s) pinch1,pinch2, etc. then the inverse is computed and the result returned
! is a nXn matrix where the column(s) and row(s) pinch1, pinch2, etc. are filled by 0, the other elements
! are those of the inverse computed. In the Greville method, the reduce matrix which is a nXn matrix
! where the column(s) and row(s) pinch1, pinch2, etc. are filled by 0 is directly inverted.
! Note that the error is computed in the following way:
! first the matrix is rescaled : i. e. divided by the greatest (in absolute value) element
! then the inverse is computed and the two matrices abs(1 - A^(-1) A) and abs(1 - A A^(-1)) are computed
! the error is the greatest element of these two matrices.
! In the case of the Greville method, the Moore_Penrose conditions are also tested
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2, or an s_matrix_poly type.
! * pinch1 -- an integer (optional), specified a pinch
! * pinch2 -- an integer (optional), specified a pinch
! * pinch3 -- an integer (optional), specified a pinch
! * pinch4 -- an integer (optional), specified a pinch
! * pinch5 -- an integer (optional), specified a pinch
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real (type ki) array of rank 2, same shape, the inverse
! of the matrix mat
! * error -- a real (type ki), the estimation of the error of the numerical inversion
!
! EXAMPLE
!
!
!
!*****
!
subroutine inverse_pr(mat_p,inv_mat_r,error,pinch1,pinch2,pinch3,pinch4,pinch5)
type(s_matrix_poly), intent(in) :: mat_p
real(ki), intent(out), dimension(size(mat_p%pt_real,1),size(mat_p%pt_real,1)) :: inv_mat_r
real(ki), intent(out) :: error
integer, optional :: pinch1, pinch2,pinch3,pinch4,pinch5
!
if (associated(mat_p%pt_real)) then
call inverse_r(mat_p%pt_real,inv_mat_r,error, pinch1=pinch1, pinch2=pinch2,pinch3=pinch3,pinch4=pinch4,pinch5=pinch5)
end if
!
end subroutine inverse_pr
!
subroutine inverse_pc(mat_p,inv_mat_c,error,pinch1,pinch2,pinch3,pinch4,pinch5)
type(s_matrix_poly), intent(in) :: mat_p
complex(ki), intent(out), dimension(size(mat_p%pt_cmplx,1),size(mat_p%pt_cmplx,1)) :: inv_mat_c
real(ki), intent(out) :: error
integer, optional :: pinch1, pinch2,pinch3,pinch4,pinch5
!
if (associated(mat_p%pt_cmplx)) then
call inverse_c(mat_p%pt_cmplx,inv_mat_c,error,pinch1=pinch1,pinch2=pinch2,pinch3=pinch3,pinch4=pinch4,pinch5=pinch5)
end if
!
end subroutine inverse_pc
!
subroutine inverse_r(mat_r,inv_mat_r,error,pinch1,pinch2,pinch3,pinch4,pinch5)
!
real(ki), intent(in), dimension(:,:) :: mat_r
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: inv_mat_r
real(ki), intent(out) :: error
integer, optional :: pinch1,pinch2,pinch3,pinch4,pinch5
!
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: norm_mat_r, mat_greville
real(ki) :: plus_grand,g_error,o_error
integer :: pin1,pin2,pin3,pin4,pin5
!
pin1 = -1
pin2 = -1
pin3 = -1
pin4 = -1
pin5 = -1
!
if (present(pinch1)) pin1 = pinch1
if (present(pinch2)) pin2 = pinch2
if (present(pinch3)) pin3 = pinch3
if (present(pinch4)) pin4 = pinch4
if (present(pinch5)) pin5 = pinch5
!
g_error = 1._ki
o_error = 1._ki
!
!
! First we rescale the matrix
!
plus_grand = maxval(array=abs(mat_r))
norm_mat_r = mat_r/plus_grand
!
! We first use the Gauss method
!
call inverse_rescue(norm_mat_r,inv_mat_r,o_error,pin1,pin2,pin3,pin4,pin5)
!
if (o_error >= accuracy_par) then
!
call inverse_greville(norm_mat_r,mat_greville,g_error)
!
if (g_error .lt. o_error) then
inv_mat_r = mat_greville
end if
!
end if
!
error = min(g_error,o_error)
!
if (error >= accuracy_par) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'the Greville method failed'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'the Gauss method failed too'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'the error returned %f0'
tab_erreur_par(3)%arg_real = error
call catch_exception(1)
!
end if
!
inv_mat_r = inv_mat_r/plus_grand
!
end subroutine inverse_r
!
subroutine inverse_c(mat_c,inv_mat_c,error,pinch1,pinch2,pinch3,pinch4,pinch5)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: inv_mat_c
real(ki), intent(out) :: error
integer, optional :: pinch1,pinch2,pinch3,pinch4,pinch5
!
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: norm_mat_c, mat_greville_c
real(ki) :: plus_grand,g_error,o_error
integer :: pin1,pin2,pin3,pin4,pin5
!
pin1 = -1
pin2 = -1
pin3 = -1
pin4 = -1
pin5 = -1
!
if (present(pinch1)) pin1 = pinch1
if (present(pinch2)) pin2 = pinch2
if (present(pinch2)) pin3 = pinch3
if (present(pinch2)) pin4 = pinch4
if (present(pinch2)) pin5 = pinch5
!
g_error = 1._ki
o_error = 1._ki
!
!
! First we rescale the matrix
!
plus_grand = max(maxval( array=abs( real(mat_c,ki) ) ), maxval( array=abs( aimag(mat_c) ) ) )
norm_mat_c = mat_c/cmplx(plus_grand,0._ki,ki)
!
! We first use the Gauss method
!
call inverse_rescue(norm_mat_c,inv_mat_c,o_error,pin1,pin2,pin3,pin4,pin5)
!
if (o_error >= accuracy_par) then
!
call inverse_greville(norm_mat_c,mat_greville_c,g_error)
!
if (g_error .lt. o_error) then
inv_mat_c = mat_greville_c
end if
end if
!
error = min(g_error,o_error)
!
if (error >= accuracy_par) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'the Greville method failed'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'the Gauss method failed too'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'the error returned %f0'
tab_erreur_par(3)%arg_real = error
call catch_exception(1)
!
end if
!
inv_mat_c = inv_mat_c/plus_grand
!
end subroutine inverse_c
!****if* src/kinematic/inverse_matrice/inverse_rescue
! NAME
!
! Subroutine inverse_rescue
!
! USAGE
!
! call inverse_rescue(mat,inv_mat,error,pinch1,pinch2)
!
! DESCRIPTION
!
! The role of this routine is just to reduce the size the input
! matrix mat if pinch1 and/or pinch2 etc. is/are present
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2
! * pinch1 -- an integer (optional), specified a pinch
! * pinch2 -- an integer (optional), specified a pinch
! * pinch3 -- an integer (optional), specified a pinch
! * pinch4 -- an integer (optional), specified a pinch
! * pinch5 -- an integer (optional), specified a pinch
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real/compelx (type ki) array of rank 2, same shape, the inverse
! of the matrix mat
! * error -- a real (type ki), the estimation of the error of the numerical inversion
!
! EXAMPLE
!
!
!
!*****
!
subroutine inverse_rescue_r(mat_r,inv_mat_r,error,pin1,pin2,pin3,pin4,pin5)
!
real(ki), intent(in), dimension(:,:) :: mat_r
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: inv_mat_r
real(ki), intent(out) :: error
integer, intent(in) :: pin1,pin2,pin3,pin4,pin5
!
integer :: i,j,n_dim
logical, dimension(size(mat_r,1),size(mat_r,1)) :: masque
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: f2
real(ki), dimension(:,:), allocatable :: true_mat_r,true_inv_mat_r
real(ki), dimension(:), allocatable :: true_vect_r
integer, dimension(5) :: tab_pinch
integer :: nb_pinch
!
tab_pinch = (/pin1,pin2,pin3,pin4,pin5/)
nb_pinch = count(mask=tab_pinch /= -1)
masque = .true.
!
n_dim = size(mat_r,1)-nb_pinch
!
allocate(true_mat_r(n_dim,n_dim))
allocate(true_inv_mat_r(n_dim,n_dim))
allocate(true_vect_r(n_dim*n_dim))
!
select case (nb_pinch)
!
case(0)
!
true_mat_r = mat_r
!
case default ! nb_pinch > 0
!
do i = 1, size(tab_pinch)
j=tab_pinch(i)
if (j /= -1) then
masque(j,:) = .false.
masque(:,j) = .false.
end if
end do
true_vect_r = pack(mat_r,mask=masque)
true_mat_r = reshape(source=true_vect_r,shape=(/n_dim,n_dim/))
end select
!
call inverse_true(true_mat_r,true_inv_mat_r,error)
!
f2(:,:) = 0._ki
true_vect_r = pack(true_inv_mat_r,.true.)
inv_mat_r = unpack(true_vect_r,masque,f2)
!
deallocate(true_mat_r)
deallocate(true_inv_mat_r)
deallocate(true_vect_r)
!
end subroutine inverse_rescue_r
!
subroutine inverse_rescue_c(mat_c,inv_mat_c,error,pin1,pin2,pin3,pin4,pin5)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: inv_mat_c
real(ki), intent(out) :: error
integer, intent(in) :: pin1,pin2,pin3,pin4,pin5
!
integer :: i,j,n_dim
logical, dimension(size(mat_c,1),size(mat_c,1)) :: masque
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: f2
complex(ki), dimension(:,:), allocatable :: true_mat_c,true_inv_mat_c
complex(ki), dimension(:), allocatable :: true_vect_c
integer, dimension(5) :: tab_pinch
integer :: nb_pinch
!
tab_pinch = (/pin1,pin2,pin3,pin4,pin5/)
nb_pinch = count(mask=tab_pinch /= -1)
masque = .true.
!
n_dim = size(mat_c,1)-nb_pinch
!
allocate(true_mat_c(n_dim,n_dim))
allocate(true_inv_mat_c(n_dim,n_dim))
allocate(true_vect_c(n_dim*n_dim))
!
select case (nb_pinch)
!
case(0)
!
true_mat_c = mat_c
!
case default ! nb_pinch > 0
!
do i = 1, size(tab_pinch)
j=tab_pinch(i)
if (j /= -1) then
masque(j,:) = .false.
masque(:,j) = .false.
end if
end do
true_vect_c = pack(mat_c,mask=masque)
true_mat_c = reshape(source=true_vect_c,shape=(/n_dim,n_dim/))
end select
!
call inverse_true(true_mat_c,true_inv_mat_c,error)
!
f2(:,:) = czero
true_vect_c = pack(true_inv_mat_c,.true.)
inv_mat_c = unpack(true_vect_c,masque,f2)
!
deallocate(true_mat_c)
deallocate(true_inv_mat_c)
deallocate(true_vect_c)
!
end subroutine inverse_rescue_c
!
!****if* src/kinematic/inverse_matrice/inverse_true
! NAME
!
! Subroutine inverse_true
!
! USAGE
!
! call inverse_true(mat,inv_mat,error)
!
! DESCRIPTION
!
! This routine uses a Gauss pivot method with partial pivoting to inverse M a nXn matrix.
! It returns an estimation of the error by computing the two matrices abs(1 - M^(-1) M)
! and abs(1 - M M^(-1)). The error is the greatest element of these two matrices.
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real/complex (type ki) array of rank 2, same shape, the inverse
! of the matrix mat
! * error -- a real (type ki), the estimation of the error of the numerical inversion
!
! EXAMPLE
!
!
!
!*****
!
subroutine inverse_true_r(mat_r,inv_mat_r,error)
!
real(ki), intent(in), dimension(:,:) :: mat_r
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: inv_mat_r
real(ki), intent(out) :: error
!
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: mat1,mat2,unit_mat
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: p_mat,l_mat,u_mat
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: inv_l_mat,inv_u_mat
integer :: i,n_dim
real(ki) :: max1,max2
!integer :: errorflag
!
n_dim = size(mat_r,1) ! dimension de la matrice
unit_mat(:,:) = 0._ki
!
do i=1,n_dim
!
unit_mat(i,i) = 1._ki
!
end do
!
call lu_decomp(mat_r,p_mat,l_mat,u_mat)
call inverse_triangular(l_mat,'inf',inv_l_mat)
call inverse_triangular(u_mat,'sup',inv_u_mat)
inv_mat_r = matmul(inv_u_mat,inv_l_mat)
inv_mat_r = matmul(inv_mat_r,transpose(p_mat))
!
mat1 = matmul(inv_mat_r,mat_r)
mat2 = matmul(mat_r,inv_mat_r)
mat1 = abs(mat1-unit_mat)
mat2 = abs(mat2-unit_mat)
!
max1 = maxval(mat1)
max2 = maxval(mat2)
!
error = max(max1,max2)
!
end subroutine inverse_true_r
!
subroutine inverse_true_c(mat_c,inv_mat_c,error)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: inv_mat_c
real(ki), intent(out) :: error
!
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: mat1c,mat2c,unit_mat
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: p_mat,l_mat,u_mat
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: inv_l_mat,inv_u_mat
real(ki), dimension(size(mat_c,1),size(mat_c,1)) :: mat1, mat2
integer :: i,n_dim
real(ki) :: max1,max2
!integer :: errorflag
!
n_dim = size(mat_c,1) ! dimension de la matrice
unit_mat(:,:) = czero
!
do i=1,n_dim
!
unit_mat(i,i) = cmplx(1._ki,0._ki,ki)
!
end do
!
call lu_decomp(mat_c,p_mat,l_mat,u_mat)
call inverse_triangular(l_mat,'inf',inv_l_mat)
call inverse_triangular(u_mat,'sup',inv_u_mat)
inv_mat_c = matmul(inv_u_mat,inv_l_mat)
inv_mat_c = matmul(inv_mat_c,transpose(p_mat))
!
mat1c = matmul(inv_mat_c,mat_c)
mat2c = matmul(mat_c,inv_mat_c)
mat1 = abs(mat1c-unit_mat)
mat2 = abs(mat2c-unit_mat)
!
max1 = maxval(mat1)
max2 = maxval(mat2)
!
error = max(max1,max2)
!
end subroutine inverse_true_c
!
!****if* src/kinematic/inverse_matrice/inverse_greville
! NAME
!
! Subroutine inverse_greville
!
! USAGE
!
! call inverse_greville(mat,inv_mat,error)
!
! DESCRIPTION
!
! This routine inverses a n x n matrix using the Greville method.
! This method enables to invert singular matrix using the Moore-Penrose definition.
! One builds an iterative process, a rectengular matrix A is defined with the
! first row of the n x n matrix, the the other rows are added step by step
! At each step, the pseudo inverse (Moore-Penrose) A' is built such that
! A A' = transpose(A A')
! A' A = transpose(A' A)
! A' A A' = A'
! A A' A = A
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real/complex (type ki) array of rank 2, same shape, the inverse
! of the matrix mat
! * error -- a real (type ki), the estimation of the error of the numerical inversion
!
! EXAMPLE
!
!
!
!*****
! On construit un processus iteratif : on definit une matrice A qui au
! debut est construit en partant de la premiere colonne
! puis en ajoutant les colonnes une a une.
! Pour chaque etape, on construit le pseudo inverse
! (au sens de Moore-Penrose) A' tel que :
! A A' = transpose(A A')
! A' A = transpose(A' A)
! A' A A' = A'
! A A' A = A
! cette routine retourne une estimation de l'erreur
!
subroutine inverse_greville_r(mat_r,inv_mat_r,error)
!
real(ki), intent(in), dimension(:,:) :: mat_r
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: inv_mat_r
real(ki), intent(out) :: error
!
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: id_mat, mat1, mat2
real(ki), dimension(size(mat_r,1),1) :: a
real(ki), dimension(1,size(mat_r,1)) :: at
real(ki), dimension(:,:), allocatable :: ga,ga_prime
real(ki), dimension(:,:), allocatable :: gab,gab_prime
integer :: k,n_dim
integer :: res
real(ki) :: denom, max1, max2
!
n_dim = size(mat_r,1) ! dimension de la matrice
!
!
id_mat = 0._ki
do k=1,n_dim
id_mat(k,k) = 1._ki
end do
!
! premiere iteration
!
allocate(ga(n_dim,1),stat=res)
allocate(ga_prime(1,n_dim),stat=res)
!
a(:,1) = mat_r(:,1) ! premiere colonne de mat
ga = a ! A est la 1ere colonne de mat
at = transpose(a)
denom = sum(matmul(at,a)) ! on utilise sum pour rendre scalaire
! matmul, sinon tableau (1,1)
if (sqrt(denom) >= glob_eps) then
!
ga_prime = at/denom ! cas standard A' pseudo-inverse de A
!
else
!
ga_prime(:,:) = 0._ki ! si mat est singuliere
!
end if
!
! autres iterations
!
do k=2,n_dim
!
allocate(gab(n_dim,k),stat=res)
allocate(gab_prime(k,n_dim),stat=res)
!
a(:,1) = mat_r(:,k)
call compt(n_dim,k-1,a,ga,ga_prime,gab,gab_prime)
! call verif(n_dim,k,gab,gab_prime,error)
!
deallocate(ga,stat=res)
deallocate(ga_prime,stat=res)
!
allocate(ga(n_dim,k),stat=res)
allocate(ga_prime(k,n_dim),stat=res)
!
ga = gab
ga_prime = gab_prime
!
deallocate(gab,stat=res)
deallocate(gab_prime,stat=res)
!
end do
!
inv_mat_r = ga_prime
!
mat1 = matmul(inv_mat_r,mat_r)
mat2 = matmul(mat_r,inv_mat_r)
mat1 = abs(mat1-id_mat)
mat2 = abs(mat2-id_mat)
!
max1 = maxval(mat1)
max2 = maxval(mat2)
!
error = max(max1,max2)
!
end subroutine inverse_greville_r
!
subroutine inverse_greville_c(mat_c,inv_mat_c,error)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: inv_mat_c
real(ki), intent(out) :: error
!
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: id_mat, mat1, mat2
complex(ki), dimension(size(mat_c,1),1) :: a
complex(ki), dimension(1,size(mat_c,1)) :: at
complex(ki), dimension(:,:), allocatable :: ga,ga_prime
complex(ki), dimension(:,:), allocatable :: gab,gab_prime
integer :: k,n_dim
integer :: res
real(ki) :: denom, max1, max2
!
n_dim = size(mat_c,1) ! dimension de la matrice
!
id_mat = czero
do k=1,n_dim
id_mat(k,k) = cmplx(1._ki,0._ki,ki)
end do
!
! premiere iteration
!
allocate(ga(n_dim,1),stat=res)
allocate(ga_prime(1,n_dim),stat=res)
!
a(:,1) = mat_c(:,1) ! premiere colonne de mat
ga = a ! A est la 1ere colonne de mat
at = conjg(transpose(a))
denom = real(sum(matmul(at,a)),ki) ! on utilise sum pour rendre scalaire
! matmul, sinon tableau (1,1)
if (sqrt(denom) >= glob_eps) then
!
ga_prime = at/denom ! cas standard A' pseudo-inverse de A
!
else
!
ga_prime(:,:) = czero ! si mat est singuliere
!
end if
!
! autres iterations
!
do k=2, n_dim
!
allocate(gab(n_dim,k),stat=res)
allocate(gab_prime(k,n_dim),stat=res)
!
a(:,1) = mat_c(:,k)
call compt(n_dim,k-1,a,ga,ga_prime,gab,gab_prime)
! call verif(n_dim,k,gab,gab_prime,error)
!
deallocate(ga,stat=res)
deallocate(ga_prime,stat=res)
!
allocate(ga(n_dim,k),stat=res)
allocate(ga_prime(k,n_dim),stat=res)
!
ga = gab
ga_prime = gab_prime
!
deallocate(gab,stat=res)
deallocate(gab_prime,stat=res)
!
end do
!
inv_mat_c = ga_prime
!
mat1 = matmul(inv_mat_c,mat_c)
mat2 = matmul(mat_c,inv_mat_c)
mat1 = abs(mat1-id_mat)
mat2 = abs(mat2-id_mat)
!
max1 = maxval(real(mat1,ki))
max2 = maxval(real(mat2,ki))
!
error = max(max1,max2)
end subroutine inverse_greville_c
!
!****if* src/kinematic/inverse_matrice/compt
! NAME
!
! Subroutine compt
!
! USAGE
!
! call compt(n,k,a,ga,ga_prime,ga_plus,ga_prime_plus)
!
! DESCRIPTION
!
! This routine is used to iterate the inversion processus
!
! INPUTS
!
! * n -- an integer, the shape of the matrix to inverse
! * k -- an integer, number of rows
! * a -- a real/complex (type ki) array of rank 2, its shape is (n,1)
! * ga -- a real/complex (type ki) array of rank 2, its shapes is (n,k)
! * ga_prime -- a real/complex (type ki) array of rank 2, its shapes is (k,n)
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * ga_plus -- a real/complex(type ki) array of rank 2, its shape is (n,k+1)
! * ga_prime_plus -- a real/complex(type ki) array of rank 2, its shape is (k+1,n)
!
! EXAMPLE
!
!
!
!*****
! cette routine itere le processus, elle recoit en argument les dimensions
! de A at A' ainsi que A et A' et retourne A+ et A'+, A+ a une colonne de
! plus que A et A'+ une ligne de plus que A'
!
subroutine compt_r(n,k,a,ga,ga_prime,ga_plus,ga_prime_plus)
!
integer, intent(in) :: n,k
real(ki), intent(in), dimension(n,1) :: a
real(ki), intent(in), dimension(n,k) :: ga
real(ki), intent(in), dimension(k,n) :: ga_prime
real(ki), intent(out), dimension(n,k+1) :: ga_plus
real(ki), intent(out), dimension(k+1,n) :: ga_prime_plus
!
real(ki), dimension(k,1) :: d
real(ki), dimension(1,k) :: dt
real(ki), dimension(n,1) :: c
real(ki), dimension(1,n) :: ct
real(ki) :: denom
!
!
d = matmul(ga_prime,a)
dt = transpose(d)
c = a - matmul(ga,d)
ct = transpose(c) ! cas standard
denom = sum(matmul(ct,c)) ! cas standard
!
if (sqrt(denom) < glob_eps) then
!
ct = matmul(dt,ga_prime) ! cas singulier
denom = 1._ki + sum(matmul(dt,d)) ! cas singulier
!
end if
!
ga_prime_plus(1:k,:) = ga_prime - matmul(d,ct)/denom
ga_prime_plus(k+1,:) = ct(1,:)/denom
ga_plus(:,1:k) = ga
ga_plus(:,k+1) = a(:,1)
!
end subroutine compt_r
subroutine compt_c(n,k,a,ga,ga_prime,ga_plus,ga_prime_plus)
!
integer, intent(in) :: n,k
complex(ki), intent(in), dimension(n,1) :: a
complex(ki), intent(in), dimension(n,k) :: ga
complex(ki), intent(in), dimension(k,n) :: ga_prime
complex(ki), intent(out), dimension(n,k+1) :: ga_plus
complex(ki), intent(out), dimension(k+1,n) :: ga_prime_plus
!
complex(ki), dimension(k,1) :: d
complex(ki), dimension(1,k) :: dt
complex(ki), dimension(n,1) :: c
complex(ki), dimension(1,n) :: ct
real(ki) :: denom
!
d = matmul(ga_prime,a)
dt = conjg(transpose(d))
c = a - matmul(ga,d)
ct = conjg(transpose(c)) ! cas standard
denom = real(sum(matmul(ct,c)),ki) ! cas standard
!
if (sqrt(abs(denom)) < glob_eps) then
!
ct = matmul(dt,ga_prime) ! cas singulier
denom = 1._ki + real(sum(matmul(dt,d)),ki) ! cas singulier
!
end if
!
ga_prime_plus(1:k,:) = ga_prime - matmul(d,ct)/denom
ga_prime_plus(k+1,:) = ct(1,:)/denom
ga_plus(:,1:k) = ga
ga_plus(:,k+1) = a(:,1)
!
end subroutine compt_c
!
!****if* src/kinematic/inverse_matrice/verif
! NAME
!
! Subroutine verif
!
! USAGE
!
! call verif(n,k,ga,ga_prime,error)
!
! DESCRIPTION
!
! This routine verifies the Moor-Penrose conditions, it returns the
! maximum error obtained
!
! INPUTS
!
! * n -- an integer, the shape of the matrix to inverse
! * k -- an integer, number of rows
! * ga -- a real/complex(type ki) array of rank 2, its shapes is (n,k)
! * ga_prime -- a real/complex(type ki) array of rank 2, its shapes is (k,n)
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * error -- a real(type ki), the maximum error obtained to fulfill the
! Moor-Penrose conditions
!
! EXAMPLE
!
!
!
!*****
! cette routine verifie les differentes conditions de Moor-Penrose,
! elle retourne une erreur qui est le maximum des nombres trouves
! au lieu de 0
!
subroutine verif_r(n,k,ga,ga_prime,error)
!
integer, intent(in) :: n,k
real(ki), intent(in), dimension(n,k) :: ga
real(ki), intent(in), dimension(k,n) :: ga_prime
real(ki), intent (out) :: error
!
real(ki), dimension(n,n) :: mat1
real(ki), dimension(k,k) :: mat2
real(ki), dimension(n,k) :: mat3
real(ki), dimension(k,n) :: mat4
real(ki) :: max1,max2,max3,max4
!
mat1 = matmul(ga,ga_prime)
mat2 = matmul(ga_prime,ga)
mat3 = abs(matmul(mat1,ga)-ga)
mat4 = abs(matmul(mat2,ga_prime)-ga_prime)
!
mat1 = abs(mat1-transpose(mat1))
mat2 = abs(mat2-transpose(mat2))
!
max1 = maxval(mat1)
max2 = maxval(mat2)
max3 = maxval(mat3)
max4 = maxval(mat4)
!
error = max(max1,max2,max3,max4)
!
end subroutine verif_r
subroutine verif_c(n,k,ga,ga_prime,error)
!
integer, intent(in) :: n,k
complex(ki), intent(in), dimension(n,k) :: ga
complex(ki), intent(in), dimension(k,n) :: ga_prime
real(ki), intent (out) :: error
!
complex(ki), dimension(n,n) :: mat1
complex(ki), dimension(k,k) :: mat2
real(ki), dimension(n,n) :: mat1a
real(ki), dimension(k,k) :: mat2a
real(ki), dimension(n,k) :: mat3
real(ki), dimension(k,n) :: mat4
real(ki) :: max1,max2,max3,max4
!
mat1 = matmul(ga,ga_prime)
mat2 = matmul(ga_prime,ga)
mat3 = abs(matmul(mat1,ga)-ga)
mat4 = abs(matmul(mat2,ga_prime)-ga_prime)
!
mat1a = abs(mat1-transpose(mat1))
mat2a = abs(mat2-transpose(mat2))
!
max1 = maxval(mat1a)
max2 = maxval(mat2a)
max3 = maxval(mat3)
max4 = maxval(mat4)
!
error = max(max1,max2,max3,max4)
!
end subroutine verif_c
!
!****f* src/kinematic/inverse_matrice/imprime_mat
! NAME
!
! Subroutine imprime_mat
!
! USAGE
!
! call imprime_mat(mat)
!
! DESCRIPTION
!
! This routine prints a n x n matrix
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No value returned
!
! EXAMPLE
!
! WARNING: swapped lines and columns! mat(line, column)
!
!*****
! cette routine sert a imprimer une matrice carree
subroutine imprime_mat_p(mat_p)
type(s_matrix_poly), intent(inout) :: mat_p
!
if (associated(mat_p%pt_cmplx)) then
call imprime_mat(mat_p%pt_cmplx)
elseif (associated(mat_p%pt_real)) then
call imprime_mat(mat_p%pt_real)
end if
!
end subroutine imprime_mat_p
!
!
subroutine imprime_mat_r(mat)
!
real(ki), intent(in), dimension(:,:) :: mat
!
character(len=11*(size(mat,2)-1)+8+14) :: form
integer :: i
integer, dimension(2) :: dim
!
dim = shape(mat)
form = '(1x,"[",'//repeat('E17.10,TR2,', dim(2)-1)//'E17.10,"]",1x)'
do i=1,dim(1)
!
write (*, fmt=form ) mat(i,:)
!
end do
!
end subroutine imprime_mat_r
!
subroutine imprime_mat_c(matc)
!
complex(ki), intent(in), dimension(:,:) :: matc
!
character(len=32*(size(matc,2)-1)+30) :: form
integer :: i
integer, dimension(2) :: dim
!
dim = shape(matc)
form = ""
!
do i=1,dim(2)-1
!
form = trim(form)//'"(",e16.10,1x,"I*",e16.10,")",2x'
!
end do
!
form = trim(form)//'"(",e16.10,1x,"I*",e16.10,")"'
!
do i=1,dim(1)
!
write (*,'(1x,"[",'//form//',"]")') matc(i,:)
!
end do
!
end subroutine imprime_mat_c
!
!****if* src/kinematic/inverse_matrice/inverse_triangular
! NAME
!
! Subroutine inverse_triangular
!
! USAGE
!
! call inverse_triangular(mat,inf_or_sup,inv_mat)
!
! DESCRIPTION
!
! This routine inverses an upper or lower triangular matrix
! The program assumes that the matrix is lower triangular, if it is upper
! the program works with the transposed matrix
!
! INPUTS
!
! * mat -- a real/complex (type ki) array of rank 2
! * inf_or_sup -- a string of 3 characters : inf or sup
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real/complex (type ki) array of rank 2, the inverse of the triangular matrix
!
! EXAMPLE
!
!
!
!*****
!
subroutine inverse_triangular_r(mat_r,inf_or_sup,inv_mat_r)
!
real(ki), intent(in), dimension(:,:) :: mat_r
character(len=3), intent(in) :: inf_or_sup
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: inv_mat_r
!
logical :: inversible,triangular_sup,triangular_inf
integer :: n_dim,i,j,k
real(ki) :: somme
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: mat1
!
n_dim = size(mat_r,1) ! dimension de la matrice
inversible = .true.
triangular_inf = .false.
triangular_sup = .false.
inv_mat_r(:,:) = 0._ki
!
if (inf_or_sup == 'inf') triangular_inf = .true.
if (inf_or_sup == 'sup') triangular_sup = .true.
!
do i=1,n_dim
!
inversible = inversible .and. .not.(equal_real(mat_r(i,i),0._ki))
!
end do
!
if ( (inversible) .and. (triangular_inf .or. triangular_sup) ) then
!
if (triangular_inf) then
!
mat1 = mat_r
!
else
!
mat1 = transpose(mat_r)
!
end if
!
do i=1,n_dim
!
do j=1,i
!
if (j == i) then
!
inv_mat_r(i,j) = 1._ki/mat1(i,i)
!
else
!
somme = 0._ki
!
do k=1,i-1
!
somme = somme + mat1(i,k)*inv_mat_r(k,j)
!
end do
!
inv_mat_r(i,j) = -somme/mat1(i,i)
!
end if
!
end do
!
end do
!
if (triangular_sup) inv_mat_r = transpose(inv_mat_r)
!
else
!
!~ if (.not.(inversible)) write(*,*) 'matrice pas inversible'
if (.not.(inversible)) then
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'alerte, internal error'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'In the LU decomposition'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'One triangular matrix is not invertible'
call catch_exception(1)
end if
!~ if (triangular_inf .and. triangular_sup) write(*,*) 'matrice pas diagonal'
if (triangular_inf .and. triangular_sup) then
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'alerte, internal error'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'In the LU decomposition'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'One matrix is not diagonal'
call catch_exception(1)
end if
!
end if
!
end subroutine inverse_triangular_r
!
subroutine inverse_triangular_c(mat_c,inf_or_sup,inv_mat_c)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
character(len=3), intent(in) :: inf_or_sup
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: inv_mat_c
!
logical :: inversible,triangular_sup,triangular_inf
integer :: n_dim,i,j,k
complex(ki) :: somme
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: mat1
!
n_dim = size(mat_c,1) ! dimension de la matrice
inversible = .true.
triangular_inf = .false.
triangular_sup = .false.
inv_mat_c(:,:) = czero
!
if (inf_or_sup == 'inf') triangular_inf = .true.
if (inf_or_sup == 'sup') triangular_sup = .true.
!
do i=1,n_dim
!
inversible = inversible .and. .not.(equal_real(abs(mat_c(i,i)),0._ki))
!
end do
!
if ( (inversible) .and. (triangular_inf .or. triangular_sup) ) then
!
if (triangular_inf) then
!
mat1 = mat_c
!
else
!
mat1 = transpose(mat_c)
!
end if
!
do i=1,n_dim
!
do j=1,i
!
if (j == i) then
!
inv_mat_c(i,j) = cmplx(1._ki,0._ki,ki)/mat1(i,i)
!
else
!
somme = czero
!
do k=1,i-1
!
somme = somme + mat1(i,k)*inv_mat_c(k,j)
!
end do
!
inv_mat_c(i,j) = -somme/mat1(i,i)
!
end if
!
end do
!
end do
!
if (triangular_sup) inv_mat_c = transpose(inv_mat_c)
!
else
!
!~ if (.not.(inversible)) write(*,*) 'matrice pas inversible'
if (.not.(inversible)) then
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'alerte, internal error'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'In the LU decomposition'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'One triangular matrix is not invertible'
call catch_exception(1)
end if
!~ if (triangular_inf .and. triangular_sup) write(*,*) 'matrice pas diagonal'
if (triangular_inf .and. triangular_sup) then
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'alerte, internal error'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'In the LU decomposition'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'One matrix is not diagonal'
call catch_exception(1)
end if
!
end if
!
end subroutine inverse_triangular_c
!
!****if* src/kinematic/inverse_matrice/inverse_diagonal
! NAME
!
! Subroutine inverse_diagonal
!
! USAGE
!
! call inverse_diagonal(mat,inv_mat)
!
! DESCRIPTION
!
! This routine inverses a diagonal matrix
!
! INPUTS
!
! * mat -- a real (type ki) array of rank 2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * inv_mat -- a real (type ki) array of rank 2, the inverse of the triangular matrix
!
! EXAMPLE
!
!
!
!*****
!
subroutine inverse_diagonal(mat,inv_mat)
!
real(ki), intent(in), dimension(:,:) :: mat
real(ki), intent(out), dimension(size(mat,1),size(mat,1)) :: inv_mat
!
logical :: inversible
integer :: n_dim,i
!
n_dim = size(mat,1) ! dimension de la matrice
inversible = .true.
inv_mat(:,:) = 0._ki
!
do i=1,n_dim
!
inversible = inversible .and. (mat(i,i) /= 0._ki)
!
end do
!
if (inversible) then
!
do i=1,n_dim
!
inv_mat(i,i) = 1._ki/mat(i,i)
!
end do
!
else
!
!~ write(*,*) 'matrice pas inversible'
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'alerte, internal error'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'In the LU decomposition'
tab_erreur_par(3)%a_imprimer = .true.
tab_erreur_par(3)%chaine = 'One diagonal matrix is not invertible'
call catch_exception(1)
!
end if
!
end subroutine inverse_diagonal
!
!
!****if* src/kinematic/inverse_matrice/lu_decomp
! NAME
!
! Subroutine lu_decomp
!
! USAGE
!
! call lu_decomp(mat,p_mat,l_mat,u_mat)
!
! DESCRIPTION
!
! This routine writes a symmetric matrix as P L U where P is a
! permutation matrix, L is a lower triangular matrix and
! U is an upper triangular matrix
!
! INPUTS
!
! * mat -- a real (type ki) array of rank 2
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! * p_mat -- a real (type ki) array of rank 2, the permutation matrix
! * l_mat -- a real (type ki) array of rank 2, the lower triangular matrix
! * u_mat -- a real (type ki) array of rank 2, the upper triangular matrix
!
! EXAMPLE
!
!
!
!*****
!
subroutine lu_decomp_r(mat_r,p_mat,l_mat,u_mat)
!
real(ki), intent(in), dimension(:,:) :: mat_r
real(ki), intent(out), dimension(size(mat_r,1),size(mat_r,1)) :: l_mat,u_mat,p_mat
!
integer :: n_dim,i,j,k
integer, dimension(1) :: loc_m
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: mat_b
real(ki), dimension(size(mat_r,1),size(mat_r,1)) :: temp_mat,id_mat
real(ki), dimension(size(mat_r,1)) :: temp_vec
!
n_dim = size(mat_r,1) ! dimension de la matrice
u_mat(:,:) = 0._ki
id_mat(:,:) = 0._ki
!
do i=1,n_dim
!
id_mat(i,i) = 1._ki
!
end do
!
mat_b = mat_r
l_mat(:,:) = 0._ki
p_mat = id_mat
!
do k=1,n_dim-1
!
! plus grand element de la colonne k entre les lignes k et n_dim
!
loc_m = maxloc(abs(mat_b(k:n_dim,k))) + k - 1
!
! si ce plus grand element n'est pas sur la ligne k ou bien on ne
! traite pas la derniere ligne, on permute les lignes.
! p_mat garde trace de la permutation
!
if ( (loc_m(1) /= k) .and.(k /= n_dim) ) then
!
temp_vec = mat_b(k,:)
mat_b(k,:) = mat_b(loc_m(1),:)
mat_b(loc_m(1),:) = temp_vec
!
temp_vec = l_mat(k,:)
l_mat(k,:) = l_mat(loc_m(1),:)
l_mat(loc_m(1),:) = temp_vec
!
temp_mat = id_mat
temp_mat(k,:) = id_mat(loc_m(1),:)
temp_mat(loc_m(1),:) = id_mat(k,:)
p_mat = matmul(p_mat,temp_mat)
!
end if
!
l_mat(k,k) = 1._ki
l_mat(k+1:n_dim,k) = mat_b(k+1:n_dim,k)/mat_b(k,k)
!
do i=k+1,n_dim
!
mat_b(i,1:k) = 0._ki
!
do j=k+1,n_dim
!
mat_b(i,j) = mat_b(i,j) - l_mat(i,k)*mat_b(k,j)
!
end do
!
end do
!
end do
!
l_mat(n_dim,n_dim) = 1._ki
u_mat = mat_b
!
end subroutine lu_decomp_r
!
!
subroutine lu_decomp_c(mat_c,p_mat,l_mat,u_mat)
!
complex(ki), intent(in), dimension(:,:) :: mat_c
complex(ki), intent(out), dimension(size(mat_c,1),size(mat_c,1)) :: l_mat,u_mat,p_mat
!
integer :: n_dim,i,j,k
integer, dimension(1) :: loc_m
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: mat_b
complex(ki), dimension(size(mat_c,1),size(mat_c,1)) :: temp_mat,id_mat
complex(ki), dimension(size(mat_c,1)) :: temp_vec
!
n_dim = size(mat_c,1) ! dimension de la matrice
u_mat(:,:) = czero
id_mat(:,:) = czero
!
do i=1,n_dim
!
id_mat(i,i) = cmplx(1._ki,0._ki,ki)
!
end do
!
mat_b = mat_c
l_mat(:,:) = czero
p_mat = id_mat
!
do k=1,n_dim-1
!
! plus grand element de la colonne k entre les lignes k et n_dim
!
loc_m = maxloc(abs(mat_b(k:n_dim,k))) + k - 1
!
! si ce plus grand element n'est pas sur la ligne k ou bien on ne
! traite pas la derniere ligne, on permute les lignes.
! p_mat garde trace de la permutation
!
if ( (loc_m(1) /= k) .and.(k /= n_dim) ) then
!
temp_vec = mat_b(k,:)
mat_b(k,:) = mat_b(loc_m(1),:)
mat_b(loc_m(1),:) = temp_vec
!
temp_vec = l_mat(k,:)
l_mat(k,:) = l_mat(loc_m(1),:)
l_mat(loc_m(1),:) = temp_vec
!
temp_mat = id_mat
temp_mat(k,:) = id_mat(loc_m(1),:)
temp_mat(loc_m(1),:) = id_mat(k,:)
p_mat = matmul(p_mat,temp_mat)
!
end if
!
l_mat(k,k) = cmplx(1._ki,0._ki,ki)
l_mat(k+1:n_dim,k) = mat_b(k+1:n_dim,k)/mat_b(k,k)
!
do i=k+1,n_dim
!
mat_b(i,1:k) = czero
!
do j=k+1,n_dim
!
mat_b(i,j) = mat_b(i,j) - l_mat(i,k)*mat_b(k,j)
!
end do
!
end do
!
end do
!
l_mat(n_dim,n_dim) = cmplx(1._ki,0._ki,ki)
u_mat = mat_b
!
end subroutine lu_decomp_c
!
end module inverse_matrice
diff --git a/golem95c-1.2.1/module/Makefile.am b/golem95c-1.2.1/module/Makefile.am
index fba0b4e..a7df564 100644
--- a/golem95c-1.2.1/module/Makefile.am
+++ b/golem95c-1.2.1/module/Makefile.am
@@ -1,22 +1,19 @@
noinst_LTLIBRARIES=libgolem95_module.la
libgolem95_module_la_SOURCES= precision_golem.f90 \
- tri.f90 array.f90 parametre.f90 constante.f90 \
+ tri.f90 array.f90 parametre.f90 constante.f90 form_factor_type.f90 \
sortie_erreur.f90 equal.f90 s_matrix_type.f90 multiply_div.f90 \
- cache.f90 form_factor_type.f90 kronecker.f90 z_log.f90 \
+ cache.f90 kronecker.f90 z_log.f90 \
spinor.f90 translate.f90 zdilog.f90
-libgolem95_module_la_FCFLAGS=\
- -I$(builddir)/../../avh_olo-2.2.1
+include ../MakefileCommon.am
nodist_pkginclude_HEADERS= precision_golem.mod \
tri_croissant.mod array.mod \
cache.mod constante.mod s_matrix_type.mod dilogarithme.mod \
equal.mod form_factor_type.mod kronecker.mod logarithme.mod \
multiply_div.mod parametre.mod \
sortie_erreur.mod spinor.mod translate.mod
CLEANFILES=$(nodist_pkginclude_HEADERS)
include Makefile.dep
-%.mod: %.o %.f90
- @true
diff --git a/golem95c-1.2.1/module/Makefile.dep b/golem95c-1.2.1/module/Makefile.dep
index fd91f50..d4b99b9 100644
--- a/golem95c-1.2.1/module/Makefile.dep
+++ b/golem95c-1.2.1/module/Makefile.dep
@@ -1,28 +1,53 @@
# Module dependencies
-cache.o: sortie_erreur.o
-cache.lo: sortie_erreur.lo
-cache.obj: sortie_erreur.obj
-equal.o: constante.o parametre.o sortie_erreur.o
-equal.lo: constante.lo parametre.lo sortie_erreur.lo
-equal.obj: constante.obj parametre.obj sortie_erreur.obj
-form_factor_type.o: constante.o
-form_factor_type.lo: constante.lo
-form_factor_type.obj: constante.obj
-s_matrix_type.o: constante.o equal.o sortie_erreur.o
-s_matrix_type.lo: constante.lo equal.lo sortie_erreur.lo
-s_matrix_type.obj: constante.obj equal.obj sortie_erreur.obj
-sortie_erreur.o: array.o parametre.o
-sortie_erreur.lo: array.lo parametre.lo
-sortie_erreur.obj: array.obj parametre.obj
-spinor.o: constante.o
-spinor.lo: constante.lo
-spinor.obj: constante.obj
-translate.o: sortie_erreur.o
-translate.lo: sortie_erreur.lo
-translate.obj: sortie_erreur.obj
-z_log.o: constante.o equal.o sortie_erreur.o
-z_log.lo: constante.lo equal.lo sortie_erreur.lo
-z_log.obj: constante.obj equal.obj sortie_erreur.obj
-zdilog.o: constante.o equal.o sortie_erreur.o z_log.o
-zdilog.lo: constante.lo equal.lo sortie_erreur.lo z_log.lo
-zdilog.obj: constante.obj equal.obj sortie_erreur.obj z_log.obj
+array.mod: array.f90 array.$(OBJEXT)
+cache.lo: form_factor_type.lo precision_golem.lo sortie_erreur.lo
+cache.$(OBJEXT): form_factor_type.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+cache.mod: cache.f90 cache.$(OBJEXT) form_factor_type.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+constante.lo: precision_golem.lo
+constante.$(OBJEXT): precision_golem.$(OBJEXT)
+constante.mod: constante.f90 constante.$(OBJEXT) precision_golem.$(OBJEXT)
+equal.lo: constante.lo parametre.lo precision_golem.lo sortie_erreur.lo
+equal.$(OBJEXT): constante.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+equal.mod: equal.f90 equal.$(OBJEXT) constante.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+form_factor_type.lo: constante.lo precision_golem.lo
+form_factor_type.$(OBJEXT): constante.$(OBJEXT) precision_golem.$(OBJEXT)
+form_factor_type.mod: form_factor_type.f90 form_factor_type.$(OBJEXT) \
+ constante.$(OBJEXT) precision_golem.$(OBJEXT)
+kronecker.mod: kronecker.f90 kronecker.$(OBJEXT)
+multiply_div.lo: precision_golem.lo
+multiply_div.$(OBJEXT): precision_golem.$(OBJEXT)
+multiply_div.mod: multiply_div.f90 multiply_div.$(OBJEXT) precision_golem.$(OBJEXT)
+parametre.lo: precision_golem.lo
+parametre.$(OBJEXT): precision_golem.$(OBJEXT)
+parametre.mod: parametre.f90 parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+precision_golem.mod: precision_golem.f90 precision_golem.$(OBJEXT)
+s_matrix_type.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo
+s_matrix_type.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+s_matrix_type.mod: s_matrix_type.f90 s_matrix_type.$(OBJEXT) constante.$(OBJEXT) \
+ equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+sortie_erreur.lo: array.lo parametre.lo precision_golem.lo
+sortie_erreur.$(OBJEXT): array.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+sortie_erreur.mod: sortie_erreur.f90 sortie_erreur.$(OBJEXT) array.$(OBJEXT) \
+ parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+spinor.lo: constante.lo precision_golem.lo
+spinor.$(OBJEXT): constante.$(OBJEXT) precision_golem.$(OBJEXT)
+spinor.mod: spinor.f90 spinor.$(OBJEXT) constante.$(OBJEXT) precision_golem.$(OBJEXT)
+translate.lo: precision_golem.lo sortie_erreur.lo
+translate.$(OBJEXT): precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+translate.mod: translate.f90 translate.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+tri.lo: precision_golem.lo
+tri.$(OBJEXT): precision_golem.$(OBJEXT)
+tri_croissant.mod: tri.f90 tri.$(OBJEXT) precision_golem.$(OBJEXT)
+z_log.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo
+z_log.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+logarithme.mod: z_log.f90 z_log.$(OBJEXT) constante.$(OBJEXT) equal.$(OBJEXT) \
+ precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+zdilog.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo \
+ z_log.lo
+zdilog.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT) \
+ z_log.$(OBJEXT)
+dilogarithme.mod: zdilog.f90 zdilog.$(OBJEXT) constante.$(OBJEXT) equal.$(OBJEXT) \
+ precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT) z_log.$(OBJEXT)
diff --git a/golem95c-1.2.1/module/Makefile.in b/golem95c-1.2.1/module/Makefile.in
index e7a144c..0442e39 100644
--- a/golem95c-1.2.1/module/Makefile.in
+++ b/golem95c-1.2.1/module/Makefile.in
@@ -1,652 +1,664 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in $(srcdir)/precision_golem.f90.in
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in \
+ $(srcdir)/precision_golem.f90.in
subdir = golem95c-1.2.1/module
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES = precision_golem.f90
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_module_la_LIBADD =
-am_libgolem95_module_la_OBJECTS = \
- libgolem95_module_la-precision_golem.lo \
- libgolem95_module_la-tri.lo libgolem95_module_la-array.lo \
- libgolem95_module_la-parametre.lo \
- libgolem95_module_la-constante.lo \
- libgolem95_module_la-sortie_erreur.lo \
- libgolem95_module_la-equal.lo \
- libgolem95_module_la-s_matrix_type.lo \
- libgolem95_module_la-multiply_div.lo \
- libgolem95_module_la-cache.lo \
- libgolem95_module_la-form_factor_type.lo \
- libgolem95_module_la-kronecker.lo \
- libgolem95_module_la-z_log.lo libgolem95_module_la-spinor.lo \
- libgolem95_module_la-translate.lo \
- libgolem95_module_la-zdilog.lo
+am_libgolem95_module_la_OBJECTS = precision_golem.lo tri.lo array.lo \
+ parametre.lo constante.lo form_factor_type.lo sortie_erreur.lo \
+ equal.lo s_matrix_type.lo multiply_div.lo cache.lo \
+ kronecker.lo z_log.lo spinor.lo translate.lo zdilog.lo
libgolem95_module_la_OBJECTS = $(am_libgolem95_module_la_OBJECTS)
-libgolem95_module_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_module_la_SOURCES)
DIST_SOURCES = $(libgolem95_module_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_module.la
libgolem95_module_la_SOURCES = precision_golem.f90 \
- tri.f90 array.f90 parametre.f90 constante.f90 \
+ tri.f90 array.f90 parametre.f90 constante.f90 form_factor_type.f90 \
sortie_erreur.f90 equal.f90 s_matrix_type.f90 multiply_div.f90 \
- cache.f90 form_factor_type.f90 kronecker.f90 z_log.f90 \
+ cache.f90 kronecker.f90 z_log.f90 \
spinor.f90 translate.f90 zdilog.f90
-libgolem95_module_la_FCFLAGS = \
- -I$(builddir)/../../avh_olo-2.2.1
-
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1
nodist_pkginclude_HEADERS = precision_golem.mod \
tri_croissant.mod array.mod \
cache.mod constante.mod s_matrix_type.mod dilogarithme.mod \
equal.mod form_factor_type.mod kronecker.mod logarithme.mod \
multiply_div.mod parametre.mod \
sortie_erreur.mod spinor.mod translate.mod
CLEANFILES = $(nodist_pkginclude_HEADERS)
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/module/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/module/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
precision_golem.f90: $(top_builddir)/config.status $(srcdir)/precision_golem.f90.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_module.la: $(libgolem95_module_la_OBJECTS) $(libgolem95_module_la_DEPENDENCIES)
- $(libgolem95_module_la_LINK) $(libgolem95_module_la_OBJECTS) $(libgolem95_module_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_module.la: $(libgolem95_module_la_OBJECTS) $(libgolem95_module_la_DEPENDENCIES) $(EXTRA_libgolem95_module_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_module_la_OBJECTS) $(libgolem95_module_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_module_la-precision_golem.lo: precision_golem.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-precision_golem.lo $(FCFLAGS_f90) `test -f 'precision_golem.f90' || echo '$(srcdir)/'`precision_golem.f90
-
-libgolem95_module_la-tri.lo: tri.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-tri.lo $(FCFLAGS_f90) `test -f 'tri.f90' || echo '$(srcdir)/'`tri.f90
-
-libgolem95_module_la-array.lo: array.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-array.lo $(FCFLAGS_f90) `test -f 'array.f90' || echo '$(srcdir)/'`array.f90
-
-libgolem95_module_la-parametre.lo: parametre.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-parametre.lo $(FCFLAGS_f90) `test -f 'parametre.f90' || echo '$(srcdir)/'`parametre.f90
-
-libgolem95_module_la-constante.lo: constante.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-constante.lo $(FCFLAGS_f90) `test -f 'constante.f90' || echo '$(srcdir)/'`constante.f90
-
-libgolem95_module_la-sortie_erreur.lo: sortie_erreur.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-sortie_erreur.lo $(FCFLAGS_f90) `test -f 'sortie_erreur.f90' || echo '$(srcdir)/'`sortie_erreur.f90
-
-libgolem95_module_la-equal.lo: equal.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-equal.lo $(FCFLAGS_f90) `test -f 'equal.f90' || echo '$(srcdir)/'`equal.f90
-
-libgolem95_module_la-s_matrix_type.lo: s_matrix_type.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-s_matrix_type.lo $(FCFLAGS_f90) `test -f 's_matrix_type.f90' || echo '$(srcdir)/'`s_matrix_type.f90
-
-libgolem95_module_la-multiply_div.lo: multiply_div.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-multiply_div.lo $(FCFLAGS_f90) `test -f 'multiply_div.f90' || echo '$(srcdir)/'`multiply_div.f90
-
-libgolem95_module_la-cache.lo: cache.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-cache.lo $(FCFLAGS_f90) `test -f 'cache.f90' || echo '$(srcdir)/'`cache.f90
-
-libgolem95_module_la-form_factor_type.lo: form_factor_type.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-form_factor_type.lo $(FCFLAGS_f90) `test -f 'form_factor_type.f90' || echo '$(srcdir)/'`form_factor_type.f90
-
-libgolem95_module_la-kronecker.lo: kronecker.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-kronecker.lo $(FCFLAGS_f90) `test -f 'kronecker.f90' || echo '$(srcdir)/'`kronecker.f90
-
-libgolem95_module_la-z_log.lo: z_log.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-z_log.lo $(FCFLAGS_f90) `test -f 'z_log.f90' || echo '$(srcdir)/'`z_log.f90
-
-libgolem95_module_la-spinor.lo: spinor.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-spinor.lo $(FCFLAGS_f90) `test -f 'spinor.f90' || echo '$(srcdir)/'`spinor.f90
-
-libgolem95_module_la-translate.lo: translate.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-translate.lo $(FCFLAGS_f90) `test -f 'translate.f90' || echo '$(srcdir)/'`translate.f90
-
-libgolem95_module_la-zdilog.lo: zdilog.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_module_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_module_la-zdilog.lo $(FCFLAGS_f90) `test -f 'zdilog.f90' || echo '$(srcdir)/'`zdilog.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
-# Module dependencies
-cache.o: sortie_erreur.o
-cache.lo: sortie_erreur.lo
-cache.obj: sortie_erreur.obj
-equal.o: constante.o parametre.o sortie_erreur.o
-equal.lo: constante.lo parametre.lo sortie_erreur.lo
-equal.obj: constante.obj parametre.obj sortie_erreur.obj
-form_factor_type.o: constante.o
-form_factor_type.lo: constante.lo
-form_factor_type.obj: constante.obj
-s_matrix_type.o: constante.o equal.o sortie_erreur.o
-s_matrix_type.lo: constante.lo equal.lo sortie_erreur.lo
-s_matrix_type.obj: constante.obj equal.obj sortie_erreur.obj
-sortie_erreur.o: array.o parametre.o
-sortie_erreur.lo: array.lo parametre.lo
-sortie_erreur.obj: array.obj parametre.obj
-spinor.o: constante.o
-spinor.lo: constante.lo
-spinor.obj: constante.obj
-translate.o: sortie_erreur.o
-translate.lo: sortie_erreur.lo
-translate.obj: sortie_erreur.obj
-z_log.o: constante.o equal.o sortie_erreur.o
-z_log.lo: constante.lo equal.lo sortie_erreur.lo
-z_log.obj: constante.obj equal.obj sortie_erreur.obj
-zdilog.o: constante.o equal.o sortie_erreur.o z_log.o
-zdilog.lo: constante.lo equal.lo sortie_erreur.lo z_log.lo
-zdilog.obj: constante.obj equal.obj sortie_erreur.obj z_log.obj
-
%.mod: %.o %.f90
@true
+# Module dependencies
+array.mod: array.f90 array.$(OBJEXT)
+cache.lo: form_factor_type.lo precision_golem.lo sortie_erreur.lo
+cache.$(OBJEXT): form_factor_type.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+cache.mod: cache.f90 cache.$(OBJEXT) form_factor_type.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+constante.lo: precision_golem.lo
+constante.$(OBJEXT): precision_golem.$(OBJEXT)
+constante.mod: constante.f90 constante.$(OBJEXT) precision_golem.$(OBJEXT)
+equal.lo: constante.lo parametre.lo precision_golem.lo sortie_erreur.lo
+equal.$(OBJEXT): constante.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+equal.mod: equal.f90 equal.$(OBJEXT) constante.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+form_factor_type.lo: constante.lo precision_golem.lo
+form_factor_type.$(OBJEXT): constante.$(OBJEXT) precision_golem.$(OBJEXT)
+form_factor_type.mod: form_factor_type.f90 form_factor_type.$(OBJEXT) \
+ constante.$(OBJEXT) precision_golem.$(OBJEXT)
+kronecker.mod: kronecker.f90 kronecker.$(OBJEXT)
+multiply_div.lo: precision_golem.lo
+multiply_div.$(OBJEXT): precision_golem.$(OBJEXT)
+multiply_div.mod: multiply_div.f90 multiply_div.$(OBJEXT) precision_golem.$(OBJEXT)
+parametre.lo: precision_golem.lo
+parametre.$(OBJEXT): precision_golem.$(OBJEXT)
+parametre.mod: parametre.f90 parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+precision_golem.mod: precision_golem.f90 precision_golem.$(OBJEXT)
+s_matrix_type.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo
+s_matrix_type.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+s_matrix_type.mod: s_matrix_type.f90 s_matrix_type.$(OBJEXT) constante.$(OBJEXT) \
+ equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+sortie_erreur.lo: array.lo parametre.lo precision_golem.lo
+sortie_erreur.$(OBJEXT): array.$(OBJEXT) parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+sortie_erreur.mod: sortie_erreur.f90 sortie_erreur.$(OBJEXT) array.$(OBJEXT) \
+ parametre.$(OBJEXT) precision_golem.$(OBJEXT)
+spinor.lo: constante.lo precision_golem.lo
+spinor.$(OBJEXT): constante.$(OBJEXT) precision_golem.$(OBJEXT)
+spinor.mod: spinor.f90 spinor.$(OBJEXT) constante.$(OBJEXT) precision_golem.$(OBJEXT)
+translate.lo: precision_golem.lo sortie_erreur.lo
+translate.$(OBJEXT): precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+translate.mod: translate.f90 translate.$(OBJEXT) precision_golem.$(OBJEXT) \
+ sortie_erreur.$(OBJEXT)
+tri.lo: precision_golem.lo
+tri.$(OBJEXT): precision_golem.$(OBJEXT)
+tri_croissant.mod: tri.f90 tri.$(OBJEXT) precision_golem.$(OBJEXT)
+z_log.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo
+z_log.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+logarithme.mod: z_log.f90 z_log.$(OBJEXT) constante.$(OBJEXT) equal.$(OBJEXT) \
+ precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT)
+zdilog.lo: constante.lo equal.lo precision_golem.lo sortie_erreur.lo \
+ z_log.lo
+zdilog.$(OBJEXT): constante.$(OBJEXT) equal.$(OBJEXT) precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT) \
+ z_log.$(OBJEXT)
+dilogarithme.mod: zdilog.f90 zdilog.$(OBJEXT) constante.$(OBJEXT) equal.$(OBJEXT) \
+ precision_golem.$(OBJEXT) sortie_erreur.$(OBJEXT) z_log.$(OBJEXT)
+
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/golem95c-1.2.1/module/cache.f90 b/golem95c-1.2.1/module/cache.f90
index 903ba5c..6853664 100644
--- a/golem95c-1.2.1/module/cache.f90
+++ b/golem95c-1.2.1/module/cache.f90
@@ -1,359 +1,370 @@
!
!****h* src/module/cache
! NAME
!
! Module cache
!
! USAGE
!
! use cache
!
! DESCRIPTION
!
! This module is used to reserve some memory to store already computed four/three
! point functions
!
! OUTPUT
!
! This module exports three routines:
! * allocate_cache -- to reserve the memory
! * reset_cache -- to force the re-computation of the cache arrays
! * clear_cache -- to clear the reserved memory
!
! USES
!
! * sortie_erreur (src/module/sortie_erreur.f90)
!
!
!*****
module cache
!
use precision_golem
use sortie_erreur, only : tab_erreur_par,catch_exception
+ use form_factor_type
implicit none
!
private :: ki
!
integer, private :: err
logical, dimension(:,:,:,:,:), allocatable :: computed_f4p_np2
complex(ki),dimension(:,:,:,:,:), allocatable :: results_f4p_np2
logical, dimension(:,:,:), allocatable :: computed_f4p_np4
complex(ki),dimension(:,:,:,:), allocatable :: results_f4p_np4
logical, dimension(:,:,:,:,:,:), allocatable :: computed_f3p
real(ki),dimension(:,:,:,:,:,:,:), allocatable :: results_f3p
logical, dimension(:,:,:,:,:,:), allocatable :: computed_f3p_np2
real(ki),dimension(:,:,:,:,:,:,:), allocatable :: results_f3p_np2
+
+
+type(form_factor),dimension(1000) :: cache_generic;
+integer, dimension(1000):: cache_generic_tag;
+integer :: cache_generic_count;
+
+
!
! everything public except err, ki
!public :: allocate_cache, reset_cache, clear_cache
!
contains
!
!****f* src/module/cache/allocate_cache
! NAME
!
! Subroutine allocate_cache
!
! USAGE
!
! call allocate_cache(dim_s)
!
! DESCRIPTION
!
! This subroutine allocates the necessary memory to store
! the n+2/n+4 four point functions and the n/n+2 three point functions
!
! INPUTS
!
! * dim_s -- an integer, the dimension of the S matrix
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine allocate_cache(dim_s)
!
integer, intent(in) :: dim_s
!
allocate(computed_f4p_np2(0:dim_s,0:dim_s,0:dim_s,0:dim_s,0:dim_s),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for computed_f4p_np2'
call catch_exception(0)
!
end if
!
allocate(computed_f4p_np4(0:dim_s,0:dim_s,0:dim_s),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for computed_f4p_np4'
call catch_exception(0)
!
end if
!
allocate(computed_f3p(0:dim_s,0:dim_s,0:dim_s,0:3,0:3,0:3),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for computed_f3p'
call catch_exception(0)
!
end if
!
allocate(computed_f3p_np2(0:dim_s,0:dim_s,0:dim_s,0:3,0:3,0:3),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for computed_f3p_np2'
call catch_exception(0)
!
end if
computed_f4p_np2 = .false.
computed_f4p_np4 = .false.
computed_f3p = .false.
computed_f3p_np2 = .false.
!
allocate(results_f4p_np2(0:dim_s,0:dim_s,0:dim_s,0:dim_s,0:dim_s),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for results_f4p_np2'
call catch_exception(0)
!
end if
!
allocate(results_f4p_np4(0:dim_s,0:dim_s,0:dim_s,2),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for computed_f4p_np4'
call catch_exception(0)
!
end if
!
allocate(results_f3p(0:dim_s,0:dim_s,0:dim_s,0:3,0:3,0:3,6),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for results_f3p'
call catch_exception(0)
!
end if
!
allocate(results_f3p_np2(0:dim_s,0:dim_s,0:dim_s,0:3,0:3,0:3,4),stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine allocate_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot allocate memory for results_f3p_np2'
call catch_exception(0)
!
end if
!
end subroutine allocate_cache
!
!
!****f* src/module/cache/reset_cache
! NAME
!
! Subroutine reset_cache
!
! USAGE
!
! call reset_cache()
!
! DESCRIPTION
!
! This subroutine forces the cache arrays to be computed again
!
! INPUTS
!
! No inputs
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine reset_cache()
!
computed_f4p_np2 = .false.
computed_f4p_np4 = .false.
computed_f3p = .false.
computed_f3p_np2 = .false.
+
+ cache_generic_count = 0
!
end subroutine reset_cache
!
!
!
!****f* src/module/cache/clear_cache
! NAME
!
! Subroutine clear_cache
!
! USAGE
!
! call clear_cache()
!
! DESCRIPTION
!
! This subroutine deallocates the reserved memory to store
! the n+2/n+4 four point functions and the n/n+2 three point functions.
!
! INPUTS
!
! No inputs
!
! SIDE EFFECTS
!
! No side effect
!
! RETURN VALUE
!
! No return value
!
! EXAMPLE
!
!
!*****
subroutine clear_cache()
!
+ cache_generic_count=0
+ !
deallocate(computed_f4p_np2,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for computed_f4p_np2'
call catch_exception(0)
!
end if
!
deallocate(results_f4p_np2,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for results_f4p_np2'
call catch_exception(0)
!
end if
!
deallocate(computed_f4p_np4,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for computed_f4p_np4'
call catch_exception(0)
!
end if
!
deallocate(results_f4p_np4,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for results_f4p_np4'
call catch_exception(0)
!
end if
!
deallocate(computed_f3p,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for computed_f3p'
call catch_exception(0)
!
end if
!
deallocate(results_f3p,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for results_f3p'
call catch_exception(0)
!
end if
!
deallocate(computed_f3p_np2,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for computed_f3p_np2'
call catch_exception(0)
!
end if
!
deallocate(results_f3p_np2,stat=err)
!
if (err /= 0) then
!
tab_erreur_par(1)%a_imprimer = .true.
tab_erreur_par(1)%chaine = 'In subroutine clear_cache'
tab_erreur_par(2)%a_imprimer = .true.
tab_erreur_par(2)%chaine = 'cannot deallocate memory for results_f3p_np2'
call catch_exception(0)
!
end if
!
end subroutine clear_cache
- !
end module cache
diff --git a/golem95c-1.2.1/numerical/Makefile.am b/golem95c-1.2.1/numerical/Makefile.am
index bc8a04e..cbd1db4 100644
--- a/golem95c-1.2.1/numerical/Makefile.am
+++ b/golem95c-1.2.1/numerical/Makefile.am
@@ -1,11 +1,12 @@
noinst_LTLIBRARIES=libgolem95_numerical.la
libgolem95_numerical_la_SOURCES= mod_adapt_gauss.f90 mod_numeric.f90
-libgolem95_numerical_la_FCFLAGS=\
+include ../MakefileCommon.am
+AM_FCFLAGS+=\
-I$(builddir)/../module \
-I$(builddir)/../../avh_olo-2.2.1
nodist_pkginclude_HEADERS= adapt_gauss.mod numerical_evaluation.mod
CLEANFILES=*.mod
include Makefile.dep
diff --git a/golem95c-1.2.1/numerical/Makefile.dep b/golem95c-1.2.1/numerical/Makefile.dep
index 4f039d1..74d79d1 100644
--- a/golem95c-1.2.1/numerical/Makefile.dep
+++ b/golem95c-1.2.1/numerical/Makefile.dep
@@ -1,4 +1,6 @@
# Module dependencies
-mod_numeric.o: mod_adapt_gauss.o
+adapt_gauss.mod: mod_adapt_gauss.f90 mod_adapt_gauss.$(OBJEXT)
mod_numeric.lo: mod_adapt_gauss.lo
-mod_numeric.obj: mod_adapt_gauss.obj
+mod_numeric.$(OBJEXT): mod_adapt_gauss.$(OBJEXT)
+numerical_evaluation.mod: mod_numeric.f90 mod_numeric.$(OBJEXT) \
+ mod_adapt_gauss.$(OBJEXT)
diff --git a/golem95c-1.2.1/numerical/Makefile.in b/golem95c-1.2.1/numerical/Makefile.in
index 988101e..de3fcc6 100644
--- a/golem95c-1.2.1/numerical/Makefile.in
+++ b/golem95c-1.2.1/numerical/Makefile.in
@@ -1,560 +1,602 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
- $(srcdir)/Makefile.in
+DIST_COMMON = $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.am \
+ $(srcdir)/Makefile.dep $(srcdir)/Makefile.in
subdir = golem95c-1.2.1/numerical
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
LTLIBRARIES = $(noinst_LTLIBRARIES)
libgolem95_numerical_la_LIBADD =
-am_libgolem95_numerical_la_OBJECTS = \
- libgolem95_numerical_la-mod_adapt_gauss.lo \
- libgolem95_numerical_la-mod_numeric.lo
+am_libgolem95_numerical_la_OBJECTS = mod_adapt_gauss.lo mod_numeric.lo
libgolem95_numerical_la_OBJECTS = \
$(am_libgolem95_numerical_la_OBJECTS)
-libgolem95_numerical_la_LINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) \
- $(LIBTOOLFLAGS) --mode=link $(FCLD) \
- $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
- $(LDFLAGS) -o $@
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libgolem95_numerical_la_SOURCES)
DIST_SOURCES = $(libgolem95_numerical_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(pkgincludedir)"
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
noinst_LTLIBRARIES = libgolem95_numerical.la
libgolem95_numerical_la_SOURCES = mod_adapt_gauss.f90 mod_numeric.f90
-libgolem95_numerical_la_FCFLAGS = \
- -I$(builddir)/../module \
+AM_FCFLAGS = -I$(top_builddir)/avh_olo-2.2.1 -I$(builddir)/../module \
-I$(builddir)/../../avh_olo-2.2.1
-
nodist_pkginclude_HEADERS = adapt_gauss.mod numerical_evaluation.mod
CLEANFILES = *.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
-$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
+$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu golem95c-1.2.1/numerical/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu golem95c-1.2.1/numerical/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/../MakefileCommon.am $(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
clean-noinstLTLIBRARIES:
-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
- @list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libgolem95_numerical.la: $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_DEPENDENCIES)
- $(libgolem95_numerical_la_LINK) $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_LIBADD) $(LIBS)
+ @list='$(noinst_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libgolem95_numerical.la: $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_DEPENDENCIES) $(EXTRA_libgolem95_numerical_la_DEPENDENCIES)
+ $(FCLINK) $(libgolem95_numerical_la_OBJECTS) $(libgolem95_numerical_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
-libgolem95_numerical_la-mod_adapt_gauss.lo: mod_adapt_gauss.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_numerical_la-mod_adapt_gauss.lo $(FCFLAGS_f90) `test -f 'mod_adapt_gauss.f90' || echo '$(srcdir)/'`mod_adapt_gauss.f90
-
-libgolem95_numerical_la-mod_numeric.lo: mod_numeric.f90
- $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(FC) $(libgolem95_numerical_la_FCFLAGS) $(FCFLAGS) -c -o libgolem95_numerical_la-mod_numeric.lo $(FCFLAGS_f90) `test -f 'mod_numeric.f90' || echo '$(srcdir)/'`mod_numeric.f90
-
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am:
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libtool clean-noinstLTLIBRARIES ctags distclean \
- distclean-compile distclean-generic distclean-libtool \
- distclean-tags distdir dvi dvi-am html html-am info info-am \
- install install-am install-data install-data-am install-dvi \
- install-dvi-am install-exec install-exec-am install-html \
- install-html-am install-info install-info-am install-man \
- install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
- install-ps install-ps-am install-strip installcheck \
- installcheck-am installdirs maintainer-clean \
- maintainer-clean-generic mostlyclean mostlyclean-compile \
- mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
- tags uninstall uninstall-am uninstall-nodist_pkgincludeHEADERS
-
+ clean-libtool clean-noinstLTLIBRARIES cscopelist ctags \
+ distclean distclean-compile distclean-generic \
+ distclean-libtool distclean-tags distdir dvi dvi-am html \
+ html-am info info-am install install-am install-data \
+ install-data-am install-dvi install-dvi-am install-exec \
+ install-exec-am install-html install-html-am install-info \
+ install-info-am install-man install-nodist_pkgincludeHEADERS \
+ install-pdf install-pdf-am install-ps install-ps-am \
+ install-strip installcheck installcheck-am installdirs \
+ maintainer-clean maintainer-clean-generic mostlyclean \
+ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
+ pdf pdf-am ps ps-am tags uninstall uninstall-am \
+ uninstall-nodist_pkgincludeHEADERS
+
+
+%.mod: %.o %.f90
+ @true
# Module dependencies
-mod_numeric.o: mod_adapt_gauss.o
+adapt_gauss.mod: mod_adapt_gauss.f90 mod_adapt_gauss.$(OBJEXT)
mod_numeric.lo: mod_adapt_gauss.lo
-mod_numeric.obj: mod_adapt_gauss.obj
+mod_numeric.$(OBJEXT): mod_adapt_gauss.$(OBJEXT)
+numerical_evaluation.mod: mod_numeric.f90 mod_numeric.$(OBJEXT) \
+ mod_adapt_gauss.$(OBJEXT)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/config.aux/ltmain.sh b/libtool
similarity index 87%
copy from config.aux/ltmain.sh
copy to libtool
index 3061e3c..047b478 100755
--- a/config.aux/ltmain.sh
+++ b/libtool
@@ -1,9636 +1,10395 @@
+#! /bin/sh
-# libtool (GNU libtool) 2.4
+# libtool - Provide generalized library-building support services.
+# Generated automatically by config.status (gosam-contrib) 1.0
+# Libtool was configured on host pcl247e:
+# NOTE: Changes made to this file will be lost: look at ltmain.sh.
+#
+# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
+# 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+# Foundation, Inc.
+# Written by Gordon Matzigkeit, 1996
+#
+# This file is part of GNU Libtool.
+#
+# GNU Libtool is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of
+# the License, or (at your option) any later version.
+#
+# As a special exception to the GNU General Public License,
+# if you distribute this file as part of a program or library that
+# is built using GNU Libtool, you may include this file under the
+# same distribution terms that you use for the rest of that program.
+#
+# GNU Libtool is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Libtool; see the file COPYING. If not, a copy
+# can be downloaded from http://www.gnu.org/licenses/gpl.html, or
+# obtained by writing to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+
+# The names of the tagged configurations supported by this script.
+available_tags="F77 FC "
+
+# ### BEGIN LIBTOOL CONFIG
+
+# Which release of libtool.m4 was used?
+macro_version=2.4.2
+macro_revision=1.3337
+
+# Whether or not to build shared libraries.
+build_libtool_libs=yes
+
+# Whether or not to build static libraries.
+build_old_libs=yes
+
+# What type of objects to build.
+pic_mode=default
+
+# Whether or not to optimize for fast installation.
+fast_install=needless
+
+# Shell to use when invoking shell scripts.
+SHELL="/bin/sh"
+
+# An echo program that protects backslashes.
+ECHO="printf %s\\n"
+
+# The PATH separator for the build system.
+PATH_SEPARATOR=":"
+
+# The host system.
+host_alias=
+host=x86_64-suse-linux-gnu
+host_os=linux-gnu
+
+# The build system.
+build_alias=
+build=x86_64-suse-linux-gnu
+build_os=linux-gnu
+
+# A sed program that does not truncate output.
+SED="/usr/bin/sed"
+
+# Sed that helps us avoid accidentally triggering echo(1) options like -n.
+Xsed="$SED -e 1s/^X//"
+
+# A grep program that handles long lines.
+GREP="/usr/bin/grep"
+
+# An ERE matcher.
+EGREP="/usr/bin/grep -E"
+
+# A literal string matcher.
+FGREP="/usr/bin/grep -F"
+
+# A BSD- or MS-compatible name lister.
+NM="/usr/bin/nm -B"
+
+# Whether we need soft or hard links.
+LN_S="ln -s"
+
+# What is the maximum length of a command?
+max_cmd_len=1572864
+
+# Object file suffix (normally "o").
+objext=o
+
+# Executable file suffix (normally "").
+exeext=
+
+# whether the shell understands "unset".
+lt_unset=unset
+
+# turn spaces into newlines.
+SP2NL="tr \\040 \\012"
+
+# turn newlines into spaces.
+NL2SP="tr \\015\\012 \\040\\040"
+
+# convert $build file names to $host format.
+to_host_file_cmd=func_convert_file_noop
+
+# convert $build files to toolchain format.
+to_tool_file_cmd=func_convert_file_noop
+
+# An object symbol dumper.
+OBJDUMP="objdump"
+
+# Method to check whether dependent libraries are shared objects.
+deplibs_check_method="pass_all"
+
+# Command to use when deplibs_check_method = "file_magic".
+file_magic_cmd="\$MAGIC_CMD"
+
+# How to find potential files when deplibs_check_method = "file_magic".
+file_magic_glob=""
+
+# Find potential files using nocaseglob when deplibs_check_method = "file_magic".
+want_nocaseglob="no"
+
+# DLL creation program.
+DLLTOOL="false"
+
+# Command to associate shared and link libraries.
+sharedlib_from_linklib_cmd="printf %s\\n"
+
+# The archiver.
+AR="ar"
+
+# Flags to create an archive.
+AR_FLAGS="cru"
+
+# How to feed a file listing to the archiver.
+archiver_list_spec="@"
+
+# A symbol stripping program.
+STRIP="strip"
+
+# Commands used to install an old-style archive.
+RANLIB="ranlib"
+old_postinstall_cmds="chmod 644 \$oldlib~\$RANLIB \$tool_oldlib"
+old_postuninstall_cmds=""
+
+# Whether to use a lock for old archive extraction.
+lock_old_archive_extraction=no
+
+# A C compiler.
+LTCC="gcc"
+
+# LTCC compiler flags.
+LTCFLAGS="-g -O2"
+
+# Take the output of nm and produce a listing of raw symbols and C names.
+global_symbol_pipe="sed -n -e 's/^.*[ ]\\([ABCDGIRSTW][ABCDGIRSTW]*\\)[ ][ ]*\\([_A-Za-z][_A-Za-z0-9]*\\)\$/\\1 \\2 \\2/p' | sed '/ __gnu_lto/d'"
+
+# Transform the output of nm in a proper C declaration.
+global_symbol_to_cdecl="sed -n -e 's/^T .* \\(.*\\)\$/extern int \\1();/p' -e 's/^[ABCDGIRSTW]* .* \\(.*\\)\$/extern char \\1;/p'"
+
+# Transform the output of nm in a C name address pair.
+global_symbol_to_c_name_address="sed -n -e 's/^: \\([^ ]*\\)[ ]*\$/ {\\\"\\1\\\", (void *) 0},/p' -e 's/^[ABCDGIRSTW]* \\([^ ]*\\) \\([^ ]*\\)\$/ {\"\\2\", (void *) \\&\\2},/p'"
+
+# Transform the output of nm in a C name address pair when lib prefix is needed.
+global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \\([^ ]*\\)[ ]*\$/ {\\\"\\1\\\", (void *) 0},/p' -e 's/^[ABCDGIRSTW]* \\([^ ]*\\) \\(lib[^ ]*\\)\$/ {\"\\2\", (void *) \\&\\2},/p' -e 's/^[ABCDGIRSTW]* \\([^ ]*\\) \\([^ ]*\\)\$/ {\"lib\\2\", (void *) \\&\\2},/p'"
+
+# Specify filename containing input files for $NM.
+nm_file_list_spec="@"
+
+# The root where to search for dependent libraries,and in which our libraries should be installed.
+lt_sysroot=
+
+# The name of the directory that contains temporary libtool files.
+objdir=.libs
+
+# Used to examine libraries when file_magic_cmd begins with "file".
+MAGIC_CMD=file
+
+# Must we lock files when doing compilation?
+need_locks="no"
+
+# Manifest tool.
+MANIFEST_TOOL=":"
+
+# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
+DSYMUTIL=""
+
+# Tool to change global to local symbols on Mac OS X.
+NMEDIT=""
+
+# Tool to manipulate fat objects and archives on Mac OS X.
+LIPO=""
+
+# ldd/readelf like tool for Mach-O binaries on Mac OS X.
+OTOOL=""
+
+# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
+OTOOL64=""
+
+# Old archive suffix (normally "a").
+libext=a
+
+# Shared library suffix (normally ".so").
+shrext_cmds=".so"
+
+# The commands to extract the exported symbol list from a shared archive.
+extract_expsyms_cmds=""
+
+# Variables whose values should be saved in libtool wrapper scripts and
+# restored at link time.
+variables_saved_for_relink="PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
+
+# Do we need the "lib" prefix for modules?
+need_lib_prefix=no
+
+# Do we need a version for libraries?
+need_version=no
+
+# Library versioning type.
+version_type=linux
+
+# Shared library runtime path variable.
+runpath_var=LD_RUN_PATH
+
+# Shared library path variable.
+shlibpath_var=LD_LIBRARY_PATH
+
+# Is shlibpath searched before the hard-coded library search path?
+shlibpath_overrides_runpath=yes
+
+# Format of library name prefix.
+libname_spec="lib\$name"
+
+# List of archive names. First name is the real one, the rest are links.
+# The last name is the one that the linker finds with -lNAME
+library_names_spec="\${libname}\${release}\${shared_ext}\$versuffix \${libname}\${release}\${shared_ext}\$major \$libname\${shared_ext}"
+
+# The coded name of the library, if different from the real name.
+soname_spec="\${libname}\${release}\${shared_ext}\$major"
+
+# Permission mode override for installation of shared libraries.
+install_override_mode=""
+
+# Command to use after installation of a shared archive.
+postinstall_cmds=""
+
+# Command to use after uninstallation of a shared archive.
+postuninstall_cmds=""
+
+# Commands used to finish a libtool library installation in a directory.
+finish_cmds="PATH=\\\"\\\$PATH:/sbin\\\" ldconfig -n \$libdir"
+
+# As "finish_cmds", except a single script fragment to be evaled but
+# not shown.
+finish_eval=""
+
+# Whether we should hardcode library paths into libraries.
+hardcode_into_libs=yes
+
+# Compile-time system search path for libraries.
+sys_lib_search_path_spec="/usr/lib64/gcc/x86_64-suse-linux/4.7 /usr/lib64 /lib64 /usr/x86_64-suse-linux/lib "
+
+# Run-time system search path for libraries.
+sys_lib_dlsearch_path_spec="/lib /usr/lib /usr/local/lib64 /usr/local/lib /usr/X11R6/lib64 /usr/X11R6/lib /usr/lib64/xorg/modules /usr/lib64/graphviz /usr/lib64/graphviz/sharp /usr/lib64/graphviz/java /usr/lib64/graphviz/perl /usr/lib64/graphviz/php /usr/lib64/graphviz/ocaml /usr/lib64/graphviz/python /usr/lib64/graphviz/lua /usr/lib64/graphviz/tcl /usr/lib64/graphviz/guile /usr/lib64/graphviz/ruby /opt/kde3/lib64 /opt/kde3/lib /usr/tivoli/tsm/client/api/bin "
+
+# Whether dlopen is supported.
+dlopen_support=unknown
+
+# Whether dlopen of programs is supported.
+dlopen_self=unknown
+
+# Whether dlopen of statically linked programs is supported.
+dlopen_self_static=unknown
+
+# Commands to strip libraries.
+old_striplib="strip --strip-debug"
+striplib="strip --strip-unneeded"
+
+
+# The linker used to build libraries.
+LD="/usr/x86_64-suse-linux/bin/ld -m elf_x86_64"
+
+# How to create reloadable object files.
+reload_flag=" -r"
+reload_cmds="\$LD\$reload_flag -o \$output\$reload_objs"
+
+# Commands used to build an old-style archive.
+old_archive_cmds="\$AR \$AR_FLAGS \$oldlib\$oldobjs~\$RANLIB \$tool_oldlib"
+
+# A language specific compiler.
+CC="gcc"
+
+# Is the compiler the GNU compiler?
+with_gcc=yes
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=" -fno-builtin"
+
+# Additional compiler flags for building library objects.
+pic_flag=" -fPIC -DPIC"
+
+# How to pass a linker flag through the compiler.
+wl="-Wl,"
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag="-static"
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o="yes"
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=no
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=no
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec="\${wl}--export-dynamic"
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec="\${wl}--whole-archive\$convenience \${wl}--no-whole-archive"
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object="no"
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=""
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=""
+
+# Commands used to build a shared archive.
+archive_cmds="\$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname -o \$lib"
+archive_expsym_cmds="echo \\\"{ global:\\\" > \$output_objdir/\$libname.ver~
+ cat \$export_symbols | sed -e \\\"s/\\\\(.*\\\\)/\\\\1;/\\\" >> \$output_objdir/\$libname.ver~
+ echo \\\"local: *; };\\\" >> \$output_objdir/\$libname.ver~
+ \$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname \${wl}-version-script \${wl}\$output_objdir/\$libname.ver -o \$lib"
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=""
+module_expsym_cmds=""
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld="yes"
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=""
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=""
+
+# Flag to hardcode $libdir into a binary during linking.
+# This must work even if $libdir does not exist
+hardcode_libdir_flag_spec="\${wl}-rpath \${wl}\$libdir"
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=""
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=no
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting ${shlibpath_var} if the
+# library is relocated.
+hardcode_direct_absolute=no
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=no
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=unsupported
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=no
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=no
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=unknown
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=no
+
+# The commands to list exported symbols.
+export_symbols_cmds="\$NM \$libobjs \$convenience | \$global_symbol_pipe | \$SED 's/.* //' | sort | uniq > \$export_symbols"
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms="_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*"
+
+# Symbols that must always be exported.
+include_expsyms=""
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=""
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=""
+
+# Specify filename containing input files.
+file_list_spec=""
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=immediate
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=""
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=""
+postdep_objects=""
+predeps=""
+postdeps=""
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=""
+
+# ### END LIBTOOL CONFIG
+
+
+# libtool (GNU libtool) 2.4.2
# Written by Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006,
-# 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+# 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
# This is free software; see the source for copying conditions. There is NO
# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# GNU Libtool is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# As a special exception to the GNU General Public License,
# if you distribute this file as part of a program or library that
# is built using GNU Libtool, you may include this file under the
# same distribution terms that you use for the rest of that program.
#
# GNU Libtool is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Libtool; see the file COPYING. If not, a copy
# can be downloaded from http://www.gnu.org/licenses/gpl.html,
# or obtained by writing to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# Usage: $progname [OPTION]... [MODE-ARG]...
#
# Provide generalized library-building support services.
#
# --config show all configuration variables
# --debug enable verbose shell tracing
# -n, --dry-run display commands without modifying any files
# --features display basic configuration information and exit
# --mode=MODE use operation mode MODE
# --preserve-dup-deps don't remove duplicate dependency libraries
# --quiet, --silent don't print informational messages
# --no-quiet, --no-silent
# print informational messages (default)
+# --no-warn don't display warning messages
# --tag=TAG use configuration variables from tag TAG
# -v, --verbose print more informational messages than default
# --no-verbose don't print the extra informational messages
# --version print version information
# -h, --help, --help-all print short, long, or detailed help message
#
# MODE must be one of the following:
#
# clean remove files from the build directory
# compile compile a source file into a libtool object
# execute automatically set library path, then run a program
# finish complete the installation of libtool libraries
# install install libraries or executables
# link create a library or an executable
# uninstall remove libraries from an installed directory
#
# MODE-ARGS vary depending on the MODE. When passed as first option,
# `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that.
# Try `$progname --help --mode=MODE' for a more detailed description of MODE.
#
# When reporting a bug, please describe a test case to reproduce it and
# include the following information:
#
# host-triplet: $host
# shell: $SHELL
# compiler: $LTCC
# compiler flags: $LTCFLAGS
# linker: $LD (gnu? $with_gnu_ld)
-# $progname: (GNU libtool) 2.4
+# $progname: (GNU libtool) 2.4.2
# automake: $automake_version
# autoconf: $autoconf_version
#
# Report bugs to <bug-libtool@gnu.org>.
# GNU libtool home page: <http://www.gnu.org/software/libtool/>.
# General help using GNU software: <http://www.gnu.org/gethelp/>.
PROGRAM=libtool
PACKAGE=libtool
-VERSION=2.4
+VERSION=2.4.2
TIMESTAMP=""
-package_revision=1.3293
+package_revision=1.3337
# Be Bourne compatible
if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then
emulate sh
NULLCMD=:
# Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which
# is contrary to our usage. Disable this feature.
alias -g '${1+"$@"}'='"$@"'
setopt NO_GLOB_SUBST
else
case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac
fi
BIN_SH=xpg4; export BIN_SH # for Tru64
DUALCASE=1; export DUALCASE # for MKS sh
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
$1
_LTECHO_EOF'
}
# NLS nuisances: We save the old values to restore during execute mode.
lt_user_locale=
lt_safe_locale=
for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
do
eval "if test \"\${$lt_var+set}\" = set; then
save_$lt_var=\$$lt_var
$lt_var=C
export $lt_var
lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\"
lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\"
fi"
done
LC_ALL=C
LANGUAGE=C
export LANGUAGE LC_ALL
$lt_unset CDPATH
# Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh
# is ksh but when the shell is invoked as "sh" and the current value of
# the _XPG environment variable is not equal to 1 (one), the special
# positional parameter $0, within a function call, is the name of the
# function.
progpath="$0"
: ${CP="cp -f"}
test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'}
-: ${EGREP="grep -E"}
-: ${FGREP="grep -F"}
-: ${GREP="grep"}
-: ${LN_S="ln -s"}
: ${MAKE="make"}
: ${MKDIR="mkdir"}
: ${MV="mv -f"}
: ${RM="rm -f"}
-: ${SED="sed"}
: ${SHELL="${CONFIG_SHELL-/bin/sh}"}
: ${Xsed="$SED -e 1s/^X//"}
# Global variables:
EXIT_SUCCESS=0
EXIT_FAILURE=1
EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing.
EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake.
exit_status=$EXIT_SUCCESS
# Make sure IFS has a sensible default
lt_nl='
'
IFS=" $lt_nl"
dirname="s,/[^/]*$,,"
basename="s,^.*/,,"
# func_dirname file append nondir_replacement
# Compute the dirname of FILE. If nonempty, add APPEND to the result,
# otherwise set result to NONDIR_REPLACEMENT.
func_dirname ()
{
- func_dirname_result=`$ECHO "${1}" | $SED "$dirname"`
- if test "X$func_dirname_result" = "X${1}"; then
- func_dirname_result="${3}"
- else
- func_dirname_result="$func_dirname_result${2}"
- fi
-} # func_dirname may be replaced by extended shell implementation
+ case ${1} in
+ */*) func_dirname_result="${1%/*}${2}" ;;
+ * ) func_dirname_result="${3}" ;;
+ esac
+} # Extended-shell func_dirname implementation
# func_basename file
func_basename ()
{
- func_basename_result=`$ECHO "${1}" | $SED "$basename"`
-} # func_basename may be replaced by extended shell implementation
+ func_basename_result="${1##*/}"
+} # Extended-shell func_basename implementation
# func_dirname_and_basename file append nondir_replacement
# perform func_basename and func_dirname in a single function
# call:
# dirname: Compute the dirname of FILE. If nonempty,
# add APPEND to the result, otherwise set result
# to NONDIR_REPLACEMENT.
# value returned in "$func_dirname_result"
# basename: Compute filename of FILE.
# value retuned in "$func_basename_result"
# Implementation must be kept synchronized with func_dirname
# and func_basename. For efficiency, we do not delegate to
# those functions but instead duplicate the functionality here.
func_dirname_and_basename ()
{
- # Extract subdirectory from the argument.
- func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"`
- if test "X$func_dirname_result" = "X${1}"; then
- func_dirname_result="${3}"
- else
- func_dirname_result="$func_dirname_result${2}"
- fi
- func_basename_result=`$ECHO "${1}" | $SED -e "$basename"`
-} # func_dirname_and_basename may be replaced by extended shell implementation
+ case ${1} in
+ */*) func_dirname_result="${1%/*}${2}" ;;
+ * ) func_dirname_result="${3}" ;;
+ esac
+ func_basename_result="${1##*/}"
+} # Extended-shell func_dirname_and_basename implementation
# func_stripname prefix suffix name
# strip PREFIX and SUFFIX off of NAME.
# PREFIX and SUFFIX must not contain globbing or regex special
# characters, hashes, percent signs, but SUFFIX may contain a leading
# dot (in which case that matches only a dot).
# func_strip_suffix prefix name
func_stripname ()
{
- case ${2} in
- .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;;
- *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;;
- esac
-} # func_stripname may be replaced by extended shell implementation
+ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are
+ # positional parameters, so assign one to ordinary parameter first.
+ func_stripname_result=${3}
+ func_stripname_result=${func_stripname_result#"${1}"}
+ func_stripname_result=${func_stripname_result%"${2}"}
+} # Extended-shell func_stripname implementation
# These SED scripts presuppose an absolute path with a trailing slash.
pathcar='s,^/\([^/]*\).*$,\1,'
pathcdr='s,^/[^/]*,,'
removedotparts=':dotsl
s@/\./@/@g
t dotsl
s,/\.$,/,'
collapseslashes='s@/\{1,\}@/@g'
finalslash='s,/*$,/,'
# func_normal_abspath PATH
# Remove doubled-up and trailing slashes, "." path components,
# and cancel out any ".." path components in PATH after making
# it an absolute path.
# value returned in "$func_normal_abspath_result"
func_normal_abspath ()
{
# Start from root dir and reassemble the path.
func_normal_abspath_result=
func_normal_abspath_tpath=$1
func_normal_abspath_altnamespace=
case $func_normal_abspath_tpath in
"")
# Empty path, that just means $cwd.
func_stripname '' '/' "`pwd`"
func_normal_abspath_result=$func_stripname_result
return
;;
# The next three entries are used to spot a run of precisely
# two leading slashes without using negated character classes;
# we take advantage of case's first-match behaviour.
///*)
# Unusual form of absolute path, do nothing.
;;
//*)
# Not necessarily an ordinary path; POSIX reserves leading '//'
# and for example Cygwin uses it to access remote file shares
# over CIFS/SMB, so we conserve a leading double slash if found.
func_normal_abspath_altnamespace=/
;;
/*)
# Absolute path, do nothing.
;;
*)
# Relative path, prepend $cwd.
func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath
;;
esac
# Cancel out all the simple stuff to save iterations. We also want
# the path to end with a slash for ease of parsing, so make sure
# there is one (and only one) here.
func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$removedotparts" -e "$collapseslashes" -e "$finalslash"`
while :; do
# Processed it all yet?
if test "$func_normal_abspath_tpath" = / ; then
# If we ascended to the root using ".." the result may be empty now.
if test -z "$func_normal_abspath_result" ; then
func_normal_abspath_result=/
fi
break
fi
func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$pathcar"`
func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \
-e "$pathcdr"`
# Figure out what to do with it
case $func_normal_abspath_tcomponent in
"")
# Trailing empty path component, ignore it.
;;
..)
# Parent dir; strip last assembled component from result.
func_dirname "$func_normal_abspath_result"
func_normal_abspath_result=$func_dirname_result
;;
*)
# Actual path component, append it.
func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent
;;
esac
done
# Restore leading double-slash if one was found on entry.
func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result
}
# func_relative_path SRCDIR DSTDIR
# generates a relative path from SRCDIR to DSTDIR, with a trailing
# slash if non-empty, suitable for immediately appending a filename
# without needing to append a separator.
# value returned in "$func_relative_path_result"
func_relative_path ()
{
func_relative_path_result=
func_normal_abspath "$1"
func_relative_path_tlibdir=$func_normal_abspath_result
func_normal_abspath "$2"
func_relative_path_tbindir=$func_normal_abspath_result
# Ascend the tree starting from libdir
while :; do
# check if we have found a prefix of bindir
case $func_relative_path_tbindir in
$func_relative_path_tlibdir)
# found an exact match
func_relative_path_tcancelled=
break
;;
$func_relative_path_tlibdir*)
# found a matching prefix
func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir"
func_relative_path_tcancelled=$func_stripname_result
if test -z "$func_relative_path_result"; then
func_relative_path_result=.
fi
break
;;
*)
func_dirname $func_relative_path_tlibdir
func_relative_path_tlibdir=${func_dirname_result}
if test "x$func_relative_path_tlibdir" = x ; then
# Have to descend all the way to the root!
func_relative_path_result=../$func_relative_path_result
func_relative_path_tcancelled=$func_relative_path_tbindir
break
fi
func_relative_path_result=../$func_relative_path_result
;;
esac
done
# Now calculate path; take care to avoid doubling-up slashes.
func_stripname '' '/' "$func_relative_path_result"
func_relative_path_result=$func_stripname_result
func_stripname '/' '/' "$func_relative_path_tcancelled"
if test "x$func_stripname_result" != x ; then
func_relative_path_result=${func_relative_path_result}/${func_stripname_result}
fi
# Normalisation. If bindir is libdir, return empty string,
# else relative path ending with a slash; either way, target
# file name can be directly appended.
if test ! -z "$func_relative_path_result"; then
func_stripname './' '' "$func_relative_path_result/"
func_relative_path_result=$func_stripname_result
fi
}
# The name of this program:
func_dirname_and_basename "$progpath"
progname=$func_basename_result
# Make sure we have an absolute path for reexecution:
case $progpath in
[\\/]*|[A-Za-z]:\\*) ;;
*[\\/]*)
progdir=$func_dirname_result
progdir=`cd "$progdir" && pwd`
progpath="$progdir/$progname"
;;
*)
save_IFS="$IFS"
- IFS=:
+ IFS=${PATH_SEPARATOR-:}
for progdir in $PATH; do
IFS="$save_IFS"
test -x "$progdir/$progname" && break
done
IFS="$save_IFS"
test -n "$progdir" || progdir=`pwd`
progpath="$progdir/$progname"
;;
esac
# Sed substitution that helps us do robust quoting. It backslashifies
# metacharacters that are still active within double-quoted strings.
Xsed="${SED}"' -e 1s/^X//'
sed_quote_subst='s/\([`"$\\]\)/\\\1/g'
# Same as above, but do not quote variable references.
double_quote_subst='s/\(["`\\]\)/\\\1/g'
# Sed substitution that turns a string into a regex matching for the
# string literally.
sed_make_literal_regex='s,[].[^$\\*\/],\\&,g'
# Sed substitution that converts a w32 file name or path
# which contains forward slashes, into one that contains
# (escaped) backslashes. A very naive implementation.
lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g'
# Re-`\' parameter expansions in output of double_quote_subst that were
# `\'-ed in input to the same. If an odd number of `\' preceded a '$'
# in input to double_quote_subst, that '$' was protected from expansion.
# Since each input `\' is now two `\'s, look for any number of runs of
# four `\'s followed by two `\'s and then a '$'. `\' that '$'.
bs='\\'
bs2='\\\\'
bs4='\\\\\\\\'
dollar='\$'
sed_double_backslash="\
s/$bs4/&\\
/g
s/^$bs2$dollar/$bs&/
s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g
s/\n//g"
# Standard options:
opt_dry_run=false
opt_help=false
opt_quiet=false
opt_verbose=false
opt_warning=:
# func_echo arg...
# Echo program name prefixed message, along with the current mode
# name if it has been set yet.
func_echo ()
{
$ECHO "$progname: ${opt_mode+$opt_mode: }$*"
}
# func_verbose arg...
# Echo program name prefixed message in verbose mode only.
func_verbose ()
{
$opt_verbose && func_echo ${1+"$@"}
# A bug in bash halts the script if the last line of a function
# fails when set -e is in force, so we need another command to
# work around that:
:
}
# func_echo_all arg...
# Invoke $ECHO with all args, space-separated.
func_echo_all ()
{
$ECHO "$*"
}
# func_error arg...
# Echo program name prefixed message to standard error.
func_error ()
{
$ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2
}
# func_warning arg...
# Echo program name prefixed warning message to standard error.
func_warning ()
{
$opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2
# bash bug again:
:
}
# func_fatal_error arg...
# Echo program name prefixed message to standard error, and exit.
func_fatal_error ()
{
func_error ${1+"$@"}
exit $EXIT_FAILURE
}
# func_fatal_help arg...
# Echo program name prefixed message to standard error, followed by
# a help hint, and exit.
func_fatal_help ()
{
func_error ${1+"$@"}
func_fatal_error "$help"
}
help="Try \`$progname --help' for more information." ## default
# func_grep expression filename
# Check whether EXPRESSION matches any line of FILENAME, without output.
func_grep ()
{
$GREP "$1" "$2" >/dev/null 2>&1
}
# func_mkdir_p directory-path
# Make sure the entire path to DIRECTORY-PATH is available.
func_mkdir_p ()
{
my_directory_path="$1"
my_dir_list=
if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then
# Protect directory names starting with `-'
case $my_directory_path in
-*) my_directory_path="./$my_directory_path" ;;
esac
# While some portion of DIR does not yet exist...
while test ! -d "$my_directory_path"; do
# ...make a list in topmost first order. Use a colon delimited
# list incase some portion of path contains whitespace.
my_dir_list="$my_directory_path:$my_dir_list"
# If the last portion added has no slash in it, the list is done
case $my_directory_path in */*) ;; *) break ;; esac
# ...otherwise throw away the child directory and loop
my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"`
done
my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'`
save_mkdir_p_IFS="$IFS"; IFS=':'
for my_dir in $my_dir_list; do
IFS="$save_mkdir_p_IFS"
# mkdir can fail with a `File exist' error if two processes
# try to create one of the directories concurrently. Don't
# stop in that case!
$MKDIR "$my_dir" 2>/dev/null || :
done
IFS="$save_mkdir_p_IFS"
# Bail out if we (or some other process) failed to create a directory.
test -d "$my_directory_path" || \
func_fatal_error "Failed to create \`$1'"
fi
}
# func_mktempdir [string]
# Make a temporary directory that won't clash with other running
# libtool processes, and avoids race conditions if possible. If
# given, STRING is the basename for that directory.
func_mktempdir ()
{
my_template="${TMPDIR-/tmp}/${1-$progname}"
if test "$opt_dry_run" = ":"; then
# Return a directory name, but don't create it in dry-run mode
my_tmpdir="${my_template}-$$"
else
# If mktemp works, use that first and foremost
my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null`
if test ! -d "$my_tmpdir"; then
# Failing that, at least try and use $RANDOM to avoid a race
my_tmpdir="${my_template}-${RANDOM-0}$$"
save_mktempdir_umask=`umask`
umask 0077
$MKDIR "$my_tmpdir"
umask $save_mktempdir_umask
fi
# If we're not in dry-run mode, bomb out on failure
test -d "$my_tmpdir" || \
func_fatal_error "cannot create temporary directory \`$my_tmpdir'"
fi
$ECHO "$my_tmpdir"
}
# func_quote_for_eval arg
# Aesthetically quote ARG to be evaled later.
# This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT
# is double-quoted, suitable for a subsequent eval, whereas
# FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters
# which are still active within double quotes backslashified.
func_quote_for_eval ()
{
case $1 in
*[\\\`\"\$]*)
func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;;
*)
func_quote_for_eval_unquoted_result="$1" ;;
esac
case $func_quote_for_eval_unquoted_result in
# Double-quote args containing shell metacharacters to delay
# word splitting, command substitution and and variable
# expansion for a subsequent eval.
# Many Bourne shells cannot handle close brackets correctly
# in scan sets, so we specify it separately.
*[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\""
;;
*)
func_quote_for_eval_result="$func_quote_for_eval_unquoted_result"
esac
}
# func_quote_for_expand arg
# Aesthetically quote ARG to be evaled later; same as above,
# but do not quote variable references.
func_quote_for_expand ()
{
case $1 in
*[\\\`\"]*)
my_arg=`$ECHO "$1" | $SED \
-e "$double_quote_subst" -e "$sed_double_backslash"` ;;
*)
my_arg="$1" ;;
esac
case $my_arg in
# Double-quote args containing shell metacharacters to delay
# word splitting and command substitution for a subsequent eval.
# Many Bourne shells cannot handle close brackets correctly
# in scan sets, so we specify it separately.
*[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"")
my_arg="\"$my_arg\""
;;
esac
func_quote_for_expand_result="$my_arg"
}
# func_show_eval cmd [fail_exp]
# Unless opt_silent is true, then output CMD. Then, if opt_dryrun is
# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
# is given, then evaluate it.
func_show_eval ()
{
my_cmd="$1"
my_fail_exp="${2-:}"
${opt_silent-false} || {
func_quote_for_expand "$my_cmd"
eval "func_echo $func_quote_for_expand_result"
}
if ${opt_dry_run-false}; then :; else
eval "$my_cmd"
my_status=$?
if test "$my_status" -eq 0; then :; else
eval "(exit $my_status); $my_fail_exp"
fi
fi
}
# func_show_eval_locale cmd [fail_exp]
# Unless opt_silent is true, then output CMD. Then, if opt_dryrun is
# not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP
# is given, then evaluate it. Use the saved locale for evaluation.
func_show_eval_locale ()
{
my_cmd="$1"
my_fail_exp="${2-:}"
${opt_silent-false} || {
func_quote_for_expand "$my_cmd"
eval "func_echo $func_quote_for_expand_result"
}
if ${opt_dry_run-false}; then :; else
eval "$lt_user_locale
$my_cmd"
my_status=$?
eval "$lt_safe_locale"
if test "$my_status" -eq 0; then :; else
eval "(exit $my_status); $my_fail_exp"
fi
fi
}
# func_tr_sh
# Turn $1 into a string suitable for a shell variable name.
# Result is stored in $func_tr_sh_result. All characters
# not in the set a-zA-Z0-9_ are replaced with '_'. Further,
# if $1 begins with a digit, a '_' is prepended as well.
func_tr_sh ()
{
case $1 in
[0-9]* | *[!a-zA-Z0-9_]*)
func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'`
;;
* )
func_tr_sh_result=$1
;;
esac
}
# func_version
# Echo version message to standard output and exit.
func_version ()
{
$opt_debug
$SED -n '/(C)/!b go
:more
/\./!{
N
s/\n# / /
b more
}
:go
/^# '$PROGRAM' (GNU /,/# warranty; / {
s/^# //
s/^# *$//
s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/
p
}' < "$progpath"
exit $?
}
# func_usage
# Echo short help message to standard output and exit.
func_usage ()
{
$opt_debug
$SED -n '/^# Usage:/,/^# *.*--help/ {
s/^# //
s/^# *$//
s/\$progname/'$progname'/
p
}' < "$progpath"
echo
$ECHO "run \`$progname --help | more' for full usage"
exit $?
}
# func_help [NOEXIT]
# Echo long help message to standard output and exit,
# unless 'noexit' is passed as argument.
func_help ()
{
$opt_debug
$SED -n '/^# Usage:/,/# Report bugs to/ {
:print
s/^# //
s/^# *$//
s*\$progname*'$progname'*
s*\$host*'"$host"'*
s*\$SHELL*'"$SHELL"'*
s*\$LTCC*'"$LTCC"'*
s*\$LTCFLAGS*'"$LTCFLAGS"'*
s*\$LD*'"$LD"'*
s/\$with_gnu_ld/'"$with_gnu_ld"'/
- s/\$automake_version/'"`(automake --version) 2>/dev/null |$SED 1q`"'/
- s/\$autoconf_version/'"`(autoconf --version) 2>/dev/null |$SED 1q`"'/
+ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/
+ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/
p
d
}
/^# .* home page:/b print
/^# General help using/b print
' < "$progpath"
ret=$?
if test -z "$1"; then
exit $ret
fi
}
# func_missing_arg argname
# Echo program name prefixed message to standard error and set global
# exit_cmd.
func_missing_arg ()
{
$opt_debug
func_error "missing argument for $1."
exit_cmd=exit
}
# func_split_short_opt shortopt
# Set func_split_short_opt_name and func_split_short_opt_arg shell
# variables after splitting SHORTOPT after the 2nd character.
func_split_short_opt ()
{
- my_sed_short_opt='1s/^\(..\).*$/\1/;q'
- my_sed_short_rest='1s/^..\(.*\)$/\1/;q'
-
- func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"`
- func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"`
-} # func_split_short_opt may be replaced by extended shell implementation
+ func_split_short_opt_arg=${1#??}
+ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}
+} # Extended-shell func_split_short_opt implementation
# func_split_long_opt longopt
# Set func_split_long_opt_name and func_split_long_opt_arg shell
# variables after splitting LONGOPT at the `=' sign.
func_split_long_opt ()
{
- my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q'
- my_sed_long_arg='1s/^--[^=]*=//'
-
- func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"`
- func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"`
-} # func_split_long_opt may be replaced by extended shell implementation
+ func_split_long_opt_name=${1%%=*}
+ func_split_long_opt_arg=${1#*=}
+} # Extended-shell func_split_long_opt implementation
exit_cmd=:
magic="%%%MAGIC variable%%%"
magic_exe="%%%MAGIC EXE variable%%%"
# Global variables.
nonopt=
preserve_args=
lo2o="s/\\.lo\$/.${objext}/"
o2lo="s/\\.${objext}\$/.lo/"
extracted_archives=
extracted_serial=0
# If this variable is set in any of the actions, the command in it
# will be execed at the end. This prevents here-documents from being
# left over by shells.
exec_cmd=
# func_append var value
# Append VALUE to the end of shell variable VAR.
func_append ()
{
- eval "${1}=\$${1}\${2}"
-} # func_append may be replaced by extended shell implementation
+ eval "${1}+=\${2}"
+} # Extended-shell func_append implementation
# func_append_quoted var value
# Quote VALUE and append to the end of shell variable VAR, separated
# by a space.
func_append_quoted ()
{
func_quote_for_eval "${2}"
- eval "${1}=\$${1}\\ \$func_quote_for_eval_result"
-} # func_append_quoted may be replaced by extended shell implementation
+ eval "${1}+=\\ \$func_quote_for_eval_result"
+} # Extended-shell func_append_quoted implementation
# func_arith arithmetic-term...
func_arith ()
{
- func_arith_result=`expr "${@}"`
-} # func_arith may be replaced by extended shell implementation
+ func_arith_result=$(( $* ))
+} # Extended-shell func_arith implementation
# func_len string
# STRING may not start with a hyphen.
func_len ()
{
- func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len`
-} # func_len may be replaced by extended shell implementation
+ func_len_result=${#1}
+} # Extended-shell func_len implementation
# func_lo2o object
func_lo2o ()
{
- func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"`
-} # func_lo2o may be replaced by extended shell implementation
+ case ${1} in
+ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;
+ *) func_lo2o_result=${1} ;;
+ esac
+} # Extended-shell func_lo2o implementation
# func_xform libobj-or-source
func_xform ()
{
- func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'`
-} # func_xform may be replaced by extended shell implementation
+ func_xform_result=${1%.*}.lo
+} # Extended-shell func_xform implementation
# func_fatal_configuration arg...
# Echo program name prefixed message to standard error, followed by
# a configuration failure hint, and exit.
func_fatal_configuration ()
{
func_error ${1+"$@"}
func_error "See the $PACKAGE documentation for more information."
func_fatal_error "Fatal configuration error."
}
# func_config
# Display the configuration for all the tags in this script.
func_config ()
{
re_begincf='^# ### BEGIN LIBTOOL'
re_endcf='^# ### END LIBTOOL'
# Default configuration.
$SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath"
# Now print the configurations for the tags.
for tagname in $taglist; do
$SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath"
done
exit $?
}
# func_features
# Display the features supported by this script.
func_features ()
{
echo "host: $host"
if test "$build_libtool_libs" = yes; then
echo "enable shared libraries"
else
echo "disable shared libraries"
fi
if test "$build_old_libs" = yes; then
echo "enable static libraries"
else
echo "disable static libraries"
fi
exit $?
}
# func_enable_tag tagname
# Verify that TAGNAME is valid, and either flag an error and exit, or
# enable the TAGNAME tag. We also add TAGNAME to the global $taglist
# variable here.
func_enable_tag ()
{
# Global variable:
tagname="$1"
re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$"
re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$"
sed_extractcf="/$re_begincf/,/$re_endcf/p"
# Validate tagname.
case $tagname in
*[!-_A-Za-z0-9,/]*)
func_fatal_error "invalid tag name: $tagname"
;;
esac
# Don't test for the "default" C tag, as we know it's
# there but not specially marked.
case $tagname in
CC) ;;
*)
if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then
taglist="$taglist $tagname"
# Evaluate the configuration. Be careful to quote the path
# and the sed script, to avoid splitting on whitespace, but
# also don't use non-portable quotes within backquotes within
# quotes we have to do it in 2 steps:
extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"`
eval "$extractedcf"
else
func_error "ignoring unknown tag $tagname"
fi
;;
esac
}
# func_check_version_match
# Ensure that we are using m4 macros, and libtool script from the same
# release of libtool.
func_check_version_match ()
{
if test "$package_revision" != "$macro_revision"; then
if test "$VERSION" != "$macro_version"; then
if test -z "$macro_version"; then
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
$progname: definition of this LT_INIT comes from an older release.
$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
$progname: and run autoconf again.
_LT_EOF
else
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, but the
$progname: definition of this LT_INIT comes from $PACKAGE $macro_version.
$progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION
$progname: and run autoconf again.
_LT_EOF
fi
else
cat >&2 <<_LT_EOF
$progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision,
$progname: but the definition of this LT_INIT comes from revision $macro_revision.
$progname: You should recreate aclocal.m4 with macros from revision $package_revision
$progname: of $PACKAGE $VERSION and run autoconf again.
_LT_EOF
fi
exit $EXIT_MISMATCH
fi
}
# Shorthand for --mode=foo, only valid as the first argument
case $1 in
clean|clea|cle|cl)
shift; set dummy --mode clean ${1+"$@"}; shift
;;
compile|compil|compi|comp|com|co|c)
shift; set dummy --mode compile ${1+"$@"}; shift
;;
execute|execut|execu|exec|exe|ex|e)
shift; set dummy --mode execute ${1+"$@"}; shift
;;
finish|finis|fini|fin|fi|f)
shift; set dummy --mode finish ${1+"$@"}; shift
;;
install|instal|insta|inst|ins|in|i)
shift; set dummy --mode install ${1+"$@"}; shift
;;
link|lin|li|l)
shift; set dummy --mode link ${1+"$@"}; shift
;;
uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u)
shift; set dummy --mode uninstall ${1+"$@"}; shift
;;
esac
# Option defaults:
opt_debug=:
opt_dry_run=false
opt_config=false
opt_preserve_dup_deps=false
opt_features=false
opt_finish=false
opt_help=false
opt_help_all=false
opt_silent=:
+opt_warning=:
opt_verbose=:
opt_silent=false
opt_verbose=false
# Parse options once, thoroughly. This comes as soon as possible in the
# script to make things like `--version' happen as quickly as we can.
{
# this just eases exit handling
while test $# -gt 0; do
opt="$1"
shift
case $opt in
--debug|-x) opt_debug='set -x'
func_echo "enabling shell trace mode"
$opt_debug
;;
--dry-run|--dryrun|-n)
opt_dry_run=:
;;
--config)
opt_config=:
func_config
;;
--dlopen|-dlopen)
optarg="$1"
opt_dlopen="${opt_dlopen+$opt_dlopen
}$optarg"
shift
;;
--preserve-dup-deps)
opt_preserve_dup_deps=:
;;
--features)
opt_features=:
func_features
;;
--finish)
opt_finish=:
set dummy --mode finish ${1+"$@"}; shift
;;
--help)
opt_help=:
;;
--help-all)
opt_help_all=:
opt_help=': help-all'
;;
--mode)
test $# = 0 && func_missing_arg $opt && break
optarg="$1"
opt_mode="$optarg"
case $optarg in
# Valid mode arguments:
clean|compile|execute|finish|install|link|relink|uninstall) ;;
# Catch anything else as an error
*) func_error "invalid argument for $opt"
exit_cmd=exit
break
;;
esac
shift
;;
--no-silent|--no-quiet)
opt_silent=false
-func_append preserve_args " $opt"
+preserve_args+=" $opt"
+ ;;
+ --no-warning|--no-warn)
+ opt_warning=false
+preserve_args+=" $opt"
;;
--no-verbose)
opt_verbose=false
-func_append preserve_args " $opt"
+preserve_args+=" $opt"
;;
--silent|--quiet)
opt_silent=:
-func_append preserve_args " $opt"
+preserve_args+=" $opt"
opt_verbose=false
;;
--verbose|-v)
opt_verbose=:
-func_append preserve_args " $opt"
+preserve_args+=" $opt"
opt_silent=false
;;
--tag)
test $# = 0 && func_missing_arg $opt && break
optarg="$1"
opt_tag="$optarg"
-func_append preserve_args " $opt $optarg"
+preserve_args+=" $opt $optarg"
func_enable_tag "$optarg"
shift
;;
-\?|-h) func_usage ;;
--help) func_help ;;
--version) func_version ;;
# Separate optargs to long options:
--*=*)
func_split_long_opt "$opt"
set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"}
shift
;;
# Separate non-argument short options:
-\?*|-h*|-n*|-v*)
func_split_short_opt "$opt"
set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"}
shift
;;
--) break ;;
-*) func_fatal_help "unrecognized option \`$opt'" ;;
*) set dummy "$opt" ${1+"$@"}; shift; break ;;
esac
done
# Validate options:
# save first non-option argument
if test "$#" -gt 0; then
nonopt="$opt"
shift
fi
# preserve --debug
- test "$opt_debug" = : || func_append preserve_args " --debug"
+ test "$opt_debug" = : || preserve_args+=" --debug"
case $host in
*cygwin* | *mingw* | *pw32* | *cegcc*)
# don't eliminate duplications in $postdeps and $predeps
opt_duplicate_compiler_generated_deps=:
;;
*)
opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps
;;
esac
$opt_help || {
# Sanity checks first:
func_check_version_match
if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then
func_fatal_configuration "not configured to build any kind of library"
fi
# Darwin sucks
eval std_shrext=\"$shrext_cmds\"
# Only execute mode is allowed to have -dlopen flags.
if test -n "$opt_dlopen" && test "$opt_mode" != execute; then
func_error "unrecognized option \`-dlopen'"
$ECHO "$help" 1>&2
exit $EXIT_FAILURE
fi
# Change the help message to a mode-specific one.
generic_help="$help"
help="Try \`$progname --help --mode=$opt_mode' for more information."
}
# Bail if the options were screwed
$exit_cmd $EXIT_FAILURE
}
## ----------- ##
## Main. ##
## ----------- ##
# func_lalib_p file
# True iff FILE is a libtool `.la' library or `.lo' object file.
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_lalib_p ()
{
test -f "$1" &&
$SED -e 4q "$1" 2>/dev/null \
| $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1
}
# func_lalib_unsafe_p file
# True iff FILE is a libtool `.la' library or `.lo' object file.
# This function implements the same check as func_lalib_p without
# resorting to external programs. To this end, it redirects stdin and
# closes it afterwards, without saving the original file descriptor.
# As a safety measure, use it only where a negative result would be
# fatal anyway. Works if `file' does not exist.
func_lalib_unsafe_p ()
{
lalib_p=no
if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then
for lalib_p_l in 1 2 3 4
do
read lalib_p_line
case "$lalib_p_line" in
\#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;;
esac
done
exec 0<&5 5<&-
fi
test "$lalib_p" = yes
}
# func_ltwrapper_script_p file
# True iff FILE is a libtool wrapper script
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_script_p ()
{
func_lalib_p "$1"
}
# func_ltwrapper_executable_p file
# True iff FILE is a libtool wrapper executable
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_executable_p ()
{
func_ltwrapper_exec_suffix=
case $1 in
*.exe) ;;
*) func_ltwrapper_exec_suffix=.exe ;;
esac
$GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1
}
# func_ltwrapper_scriptname file
# Assumes file is an ltwrapper_executable
# uses $file to determine the appropriate filename for a
# temporary ltwrapper_script.
func_ltwrapper_scriptname ()
{
func_dirname_and_basename "$1" "" "."
func_stripname '' '.exe' "$func_basename_result"
func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper"
}
# func_ltwrapper_p file
# True iff FILE is a libtool wrapper script or wrapper executable
# This function is only a basic sanity check; it will hardly flush out
# determined imposters.
func_ltwrapper_p ()
{
func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1"
}
# func_execute_cmds commands fail_cmd
# Execute tilde-delimited COMMANDS.
# If FAIL_CMD is given, eval that upon failure.
# FAIL_CMD may read-access the current command in variable CMD!
func_execute_cmds ()
{
$opt_debug
save_ifs=$IFS; IFS='~'
for cmd in $1; do
IFS=$save_ifs
eval cmd=\"$cmd\"
func_show_eval "$cmd" "${2-:}"
done
IFS=$save_ifs
}
# func_source file
# Source FILE, adding directory component if necessary.
# Note that it is not necessary on cygwin/mingw to append a dot to
# FILE even if both FILE and FILE.exe exist: automatic-append-.exe
# behavior happens only for exec(3), not for open(2)! Also, sourcing
# `FILE.' does not work on cygwin managed mounts.
func_source ()
{
$opt_debug
case $1 in
*/* | *\\*) . "$1" ;;
*) . "./$1" ;;
esac
}
# func_resolve_sysroot PATH
# Replace a leading = in PATH with a sysroot. Store the result into
# func_resolve_sysroot_result
func_resolve_sysroot ()
{
func_resolve_sysroot_result=$1
case $func_resolve_sysroot_result in
=*)
func_stripname '=' '' "$func_resolve_sysroot_result"
func_resolve_sysroot_result=$lt_sysroot$func_stripname_result
;;
esac
}
# func_replace_sysroot PATH
# If PATH begins with the sysroot, replace it with = and
# store the result into func_replace_sysroot_result.
func_replace_sysroot ()
{
case "$lt_sysroot:$1" in
?*:"$lt_sysroot"*)
func_stripname "$lt_sysroot" '' "$1"
func_replace_sysroot_result="=$func_stripname_result"
;;
*)
# Including no sysroot.
func_replace_sysroot_result=$1
;;
esac
}
# func_infer_tag arg
# Infer tagged configuration to use if any are available and
# if one wasn't chosen via the "--tag" command line option.
# Only attempt this if the compiler in the base compile
# command doesn't match the default compiler.
# arg is usually of the form 'gcc ...'
func_infer_tag ()
{
$opt_debug
if test -n "$available_tags" && test -z "$tagname"; then
CC_quoted=
for arg in $CC; do
func_append_quoted CC_quoted "$arg"
done
CC_expanded=`func_echo_all $CC`
CC_quoted_expanded=`func_echo_all $CC_quoted`
case $@ in
# Blanks in the command may have been stripped by the calling shell,
# but not from the CC environment variable when configure was run.
" $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
" $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;;
# Blanks at the start of $base_compile will cause this to fail
# if we don't check for them as well.
*)
for z in $available_tags; do
if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then
# Evaluate the configuration.
eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`"
CC_quoted=
for arg in $CC; do
# Double-quote args containing other shell metacharacters.
func_append_quoted CC_quoted "$arg"
done
CC_expanded=`func_echo_all $CC`
CC_quoted_expanded=`func_echo_all $CC_quoted`
case "$@ " in
" $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \
" $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*)
# The compiler in the base compile command matches
# the one in the tagged configuration.
# Assume this is the tagged configuration we want.
tagname=$z
break
;;
esac
fi
done
# If $tagname still isn't set, then no tagged configuration
# was found and let the user know that the "--tag" command
# line option must be used.
if test -z "$tagname"; then
func_echo "unable to infer tagged configuration"
func_fatal_error "specify a tag with \`--tag'"
# else
# func_verbose "using $tagname tagged configuration"
fi
;;
esac
fi
}
# func_write_libtool_object output_name pic_name nonpic_name
# Create a libtool object file (analogous to a ".la" file),
# but don't create it if we're doing a dry run.
func_write_libtool_object ()
{
write_libobj=${1}
if test "$build_libtool_libs" = yes; then
write_lobj=\'${2}\'
else
write_lobj=none
fi
if test "$build_old_libs" = yes; then
write_oldobj=\'${3}\'
else
write_oldobj=none
fi
$opt_dry_run || {
cat >${write_libobj}T <<EOF
# $write_libobj - a libtool object file
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# Please DO NOT delete this file!
# It is necessary for linking the library.
# Name of the PIC object.
pic_object=$write_lobj
# Name of the non-PIC object
non_pic_object=$write_oldobj
EOF
$MV "${write_libobj}T" "${write_libobj}"
}
}
##################################################
# FILE NAME AND PATH CONVERSION HELPER FUNCTIONS #
##################################################
# func_convert_core_file_wine_to_w32 ARG
# Helper function used by file name conversion functions when $build is *nix,
# and $host is mingw, cygwin, or some other w32 environment. Relies on a
# correctly configured wine environment available, with the winepath program
# in $build's $PATH.
#
# ARG is the $build file name to be converted to w32 format.
# Result is available in $func_convert_core_file_wine_to_w32_result, and will
# be empty on error (or when ARG is empty)
func_convert_core_file_wine_to_w32 ()
{
$opt_debug
func_convert_core_file_wine_to_w32_result="$1"
if test -n "$1"; then
# Unfortunately, winepath does not exit with a non-zero error code, so we
# are forced to check the contents of stdout. On the other hand, if the
# command is not found, the shell will set an exit code of 127 and print
# *an error message* to stdout. So we must check for both error code of
# zero AND non-empty stdout, which explains the odd construction:
func_convert_core_file_wine_to_w32_tmp=`winepath -w "$1" 2>/dev/null`
if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then
func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" |
$SED -e "$lt_sed_naive_backslashify"`
else
func_convert_core_file_wine_to_w32_result=
fi
fi
}
# end: func_convert_core_file_wine_to_w32
# func_convert_core_path_wine_to_w32 ARG
# Helper function used by path conversion functions when $build is *nix, and
# $host is mingw, cygwin, or some other w32 environment. Relies on a correctly
# configured wine environment available, with the winepath program in $build's
# $PATH. Assumes ARG has no leading or trailing path separator characters.
#
# ARG is path to be converted from $build format to win32.
# Result is available in $func_convert_core_path_wine_to_w32_result.
# Unconvertible file (directory) names in ARG are skipped; if no directory names
# are convertible, then the result may be empty.
func_convert_core_path_wine_to_w32 ()
{
$opt_debug
# unfortunately, winepath doesn't convert paths, only file names
func_convert_core_path_wine_to_w32_result=""
if test -n "$1"; then
oldIFS=$IFS
IFS=:
for func_convert_core_path_wine_to_w32_f in $1; do
IFS=$oldIFS
func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f"
if test -n "$func_convert_core_file_wine_to_w32_result" ; then
if test -z "$func_convert_core_path_wine_to_w32_result"; then
func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result"
else
func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result"
fi
fi
done
IFS=$oldIFS
fi
}
# end: func_convert_core_path_wine_to_w32
# func_cygpath ARGS...
# Wrapper around calling the cygpath program via LT_CYGPATH. This is used when
# when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2)
# $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or
# (2), returns the Cygwin file name or path in func_cygpath_result (input
# file name or path is assumed to be in w32 format, as previously converted
# from $build's *nix or MSYS format). In case (3), returns the w32 file name
# or path in func_cygpath_result (input file name or path is assumed to be in
# Cygwin format). Returns an empty string on error.
#
# ARGS are passed to cygpath, with the last one being the file name or path to
# be converted.
#
# Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH
# environment variable; do not put it in $PATH.
func_cygpath ()
{
$opt_debug
if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then
func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null`
if test "$?" -ne 0; then
# on failure, ensure result is empty
func_cygpath_result=
fi
else
func_cygpath_result=
func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'"
fi
}
#end: func_cygpath
# func_convert_core_msys_to_w32 ARG
# Convert file name or path ARG from MSYS format to w32 format. Return
# result in func_convert_core_msys_to_w32_result.
func_convert_core_msys_to_w32 ()
{
$opt_debug
# awkward: cmd appends spaces to result
func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null |
$SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"`
}
#end: func_convert_core_msys_to_w32
# func_convert_file_check ARG1 ARG2
# Verify that ARG1 (a file name in $build format) was converted to $host
# format in ARG2. Otherwise, emit an error message, but continue (resetting
# func_to_host_file_result to ARG1).
func_convert_file_check ()
{
$opt_debug
if test -z "$2" && test -n "$1" ; then
func_error "Could not determine host file name corresponding to"
func_error " \`$1'"
func_error "Continuing, but uninstalled executables may not work."
# Fallback:
func_to_host_file_result="$1"
fi
}
# end func_convert_file_check
# func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH
# Verify that FROM_PATH (a path in $build format) was converted to $host
# format in TO_PATH. Otherwise, emit an error message, but continue, resetting
# func_to_host_file_result to a simplistic fallback value (see below).
func_convert_path_check ()
{
$opt_debug
if test -z "$4" && test -n "$3"; then
func_error "Could not determine the host path corresponding to"
func_error " \`$3'"
func_error "Continuing, but uninstalled executables may not work."
# Fallback. This is a deliberately simplistic "conversion" and
# should not be "improved". See libtool.info.
if test "x$1" != "x$2"; then
lt_replace_pathsep_chars="s|$1|$2|g"
func_to_host_path_result=`echo "$3" |
$SED -e "$lt_replace_pathsep_chars"`
else
func_to_host_path_result="$3"
fi
fi
}
# end func_convert_path_check
# func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG
# Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT
# and appending REPL if ORIG matches BACKPAT.
func_convert_path_front_back_pathsep ()
{
$opt_debug
case $4 in
$1 ) func_to_host_path_result="$3$func_to_host_path_result"
;;
esac
case $4 in
- $2 ) func_append func_to_host_path_result "$3"
+ $2 ) func_to_host_path_result+="$3"
;;
esac
}
# end func_convert_path_front_back_pathsep
##################################################
# $build to $host FILE NAME CONVERSION FUNCTIONS #
##################################################
# invoked via `$to_host_file_cmd ARG'
#
# In each case, ARG is the path to be converted from $build to $host format.
# Result will be available in $func_to_host_file_result.
# func_to_host_file ARG
# Converts the file name ARG from $build format to $host format. Return result
# in func_to_host_file_result.
func_to_host_file ()
{
$opt_debug
$to_host_file_cmd "$1"
}
# end func_to_host_file
# func_to_tool_file ARG LAZY
# converts the file name ARG from $build format to toolchain format. Return
# result in func_to_tool_file_result. If the conversion in use is listed
# in (the comma separated) LAZY, no conversion takes place.
func_to_tool_file ()
{
$opt_debug
case ,$2, in
*,"$to_tool_file_cmd",*)
func_to_tool_file_result=$1
;;
*)
$to_tool_file_cmd "$1"
func_to_tool_file_result=$func_to_host_file_result
;;
esac
}
# end func_to_tool_file
# func_convert_file_noop ARG
# Copy ARG to func_to_host_file_result.
func_convert_file_noop ()
{
func_to_host_file_result="$1"
}
# end func_convert_file_noop
# func_convert_file_msys_to_w32 ARG
# Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic
# conversion to w32 is not available inside the cwrapper. Returns result in
# func_to_host_file_result.
func_convert_file_msys_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_msys_to_w32 "$1"
func_to_host_file_result="$func_convert_core_msys_to_w32_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_msys_to_w32
# func_convert_file_cygwin_to_w32 ARG
# Convert file name ARG from Cygwin to w32 format. Returns result in
# func_to_host_file_result.
func_convert_file_cygwin_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
# because $build is cygwin, we call "the" cygpath in $PATH; no need to use
# LT_CYGPATH in this case.
func_to_host_file_result=`cygpath -m "$1"`
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_cygwin_to_w32
# func_convert_file_nix_to_w32 ARG
# Convert file name ARG from *nix to w32 format. Requires a wine environment
# and a working winepath. Returns result in func_to_host_file_result.
func_convert_file_nix_to_w32 ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_file_wine_to_w32 "$1"
func_to_host_file_result="$func_convert_core_file_wine_to_w32_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_nix_to_w32
# func_convert_file_msys_to_cygwin ARG
# Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
# Returns result in func_to_host_file_result.
func_convert_file_msys_to_cygwin ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
func_convert_core_msys_to_w32 "$1"
func_cygpath -u "$func_convert_core_msys_to_w32_result"
func_to_host_file_result="$func_cygpath_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_msys_to_cygwin
# func_convert_file_nix_to_cygwin ARG
# Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed
# in a wine environment, working winepath, and LT_CYGPATH set. Returns result
# in func_to_host_file_result.
func_convert_file_nix_to_cygwin ()
{
$opt_debug
func_to_host_file_result="$1"
if test -n "$1"; then
# convert from *nix to w32, then use cygpath to convert from w32 to cygwin.
func_convert_core_file_wine_to_w32 "$1"
func_cygpath -u "$func_convert_core_file_wine_to_w32_result"
func_to_host_file_result="$func_cygpath_result"
fi
func_convert_file_check "$1" "$func_to_host_file_result"
}
# end func_convert_file_nix_to_cygwin
#############################################
# $build to $host PATH CONVERSION FUNCTIONS #
#############################################
# invoked via `$to_host_path_cmd ARG'
#
# In each case, ARG is the path to be converted from $build to $host format.
# The result will be available in $func_to_host_path_result.
#
# Path separators are also converted from $build format to $host format. If
# ARG begins or ends with a path separator character, it is preserved (but
# converted to $host format) on output.
#
# All path conversion functions are named using the following convention:
# file name conversion function : func_convert_file_X_to_Y ()
# path conversion function : func_convert_path_X_to_Y ()
# where, for any given $build/$host combination the 'X_to_Y' value is the
# same. If conversion functions are added for new $build/$host combinations,
# the two new functions must follow this pattern, or func_init_to_host_path_cmd
# will break.
# func_init_to_host_path_cmd
# Ensures that function "pointer" variable $to_host_path_cmd is set to the
# appropriate value, based on the value of $to_host_file_cmd.
to_host_path_cmd=
func_init_to_host_path_cmd ()
{
$opt_debug
if test -z "$to_host_path_cmd"; then
func_stripname 'func_convert_file_' '' "$to_host_file_cmd"
to_host_path_cmd="func_convert_path_${func_stripname_result}"
fi
}
# func_to_host_path ARG
# Converts the path ARG from $build format to $host format. Return result
# in func_to_host_path_result.
func_to_host_path ()
{
$opt_debug
func_init_to_host_path_cmd
$to_host_path_cmd "$1"
}
# end func_to_host_path
# func_convert_path_noop ARG
# Copy ARG to func_to_host_path_result.
func_convert_path_noop ()
{
func_to_host_path_result="$1"
}
# end func_convert_path_noop
# func_convert_path_msys_to_w32 ARG
# Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic
# conversion to w32 is not available inside the cwrapper. Returns result in
# func_to_host_path_result.
func_convert_path_msys_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# Remove leading and trailing path separator characters from ARG. MSYS
# behavior is inconsistent here; cygpath turns them into '.;' and ';.';
# and winepath ignores them completely.
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
func_to_host_path_result="$func_convert_core_msys_to_w32_result"
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_msys_to_w32
# func_convert_path_cygwin_to_w32 ARG
# Convert path ARG from Cygwin to w32 format. Returns result in
# func_to_host_file_result.
func_convert_path_cygwin_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"`
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_cygwin_to_w32
# func_convert_path_nix_to_w32 ARG
# Convert path ARG from *nix to w32 format. Requires a wine environment and
# a working winepath. Returns result in func_to_host_file_result.
func_convert_path_nix_to_w32 ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
func_to_host_path_result="$func_convert_core_path_wine_to_w32_result"
func_convert_path_check : ";" \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" ";" "$1"
fi
}
# end func_convert_path_nix_to_w32
# func_convert_path_msys_to_cygwin ARG
# Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set.
# Returns result in func_to_host_file_result.
func_convert_path_msys_to_cygwin ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# See func_convert_path_msys_to_w32:
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_msys_to_w32 "$func_to_host_path_tmp1"
func_cygpath -u -p "$func_convert_core_msys_to_w32_result"
func_to_host_path_result="$func_cygpath_result"
func_convert_path_check : : \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" : "$1"
fi
}
# end func_convert_path_msys_to_cygwin
# func_convert_path_nix_to_cygwin ARG
# Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a
# a wine environment, working winepath, and LT_CYGPATH set. Returns result in
# func_to_host_file_result.
func_convert_path_nix_to_cygwin ()
{
$opt_debug
func_to_host_path_result="$1"
if test -n "$1"; then
# Remove leading and trailing path separator characters from
# ARG. msys behavior is inconsistent here, cygpath turns them
# into '.;' and ';.', and winepath ignores them completely.
func_stripname : : "$1"
func_to_host_path_tmp1=$func_stripname_result
func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1"
func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result"
func_to_host_path_result="$func_cygpath_result"
func_convert_path_check : : \
"$func_to_host_path_tmp1" "$func_to_host_path_result"
func_convert_path_front_back_pathsep ":*" "*:" : "$1"
fi
}
# end func_convert_path_nix_to_cygwin
# func_mode_compile arg...
func_mode_compile ()
{
$opt_debug
# Get the compilation command and the source file.
base_compile=
srcfile="$nonopt" # always keep a non-empty value in "srcfile"
suppress_opt=yes
suppress_output=
arg_mode=normal
libobj=
later=
pie_flag=
for arg
do
case $arg_mode in
arg )
# do not "continue". Instead, add this to base_compile
lastarg="$arg"
arg_mode=normal
;;
target )
libobj="$arg"
arg_mode=normal
continue
;;
normal )
# Accept any command-line options.
case $arg in
-o)
test -n "$libobj" && \
func_fatal_error "you cannot specify \`-o' more than once"
arg_mode=target
continue
;;
-pie | -fpie | -fPIE)
- func_append pie_flag " $arg"
+ pie_flag+=" $arg"
continue
;;
-shared | -static | -prefer-pic | -prefer-non-pic)
- func_append later " $arg"
+ later+=" $arg"
continue
;;
-no-suppress)
suppress_opt=no
continue
;;
-Xcompiler)
arg_mode=arg # the next one goes into the "base_compile" arg list
continue # The current "srcfile" will either be retained or
;; # replaced later. I would guess that would be a bug.
-Wc,*)
func_stripname '-Wc,' '' "$arg"
args=$func_stripname_result
lastarg=
save_ifs="$IFS"; IFS=','
for arg in $args; do
IFS="$save_ifs"
func_append_quoted lastarg "$arg"
done
IFS="$save_ifs"
func_stripname ' ' '' "$lastarg"
lastarg=$func_stripname_result
# Add the arguments to base_compile.
- func_append base_compile " $lastarg"
+ base_compile+=" $lastarg"
continue
;;
*)
# Accept the current argument as the source file.
# The previous "srcfile" becomes the current argument.
#
lastarg="$srcfile"
srcfile="$arg"
;;
esac # case $arg
;;
esac # case $arg_mode
# Aesthetically quote the previous argument.
func_append_quoted base_compile "$lastarg"
done # for arg
case $arg_mode in
arg)
func_fatal_error "you must specify an argument for -Xcompile"
;;
target)
func_fatal_error "you must specify a target with \`-o'"
;;
*)
# Get the name of the library object.
test -z "$libobj" && {
func_basename "$srcfile"
libobj="$func_basename_result"
}
;;
esac
# Recognize several different file suffixes.
# If the user specifies -o file.o, it is replaced with file.lo
case $libobj in
*.[cCFSifmso] | \
*.ada | *.adb | *.ads | *.asm | \
*.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \
- *.[fF][09]? | *.for | *.java | *.obj | *.sx | *.cu | *.cup)
+ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup)
func_xform "$libobj"
libobj=$func_xform_result
;;
esac
case $libobj in
*.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;;
*)
func_fatal_error "cannot determine name of library object from \`$libobj'"
;;
esac
func_infer_tag $base_compile
for arg in $later; do
case $arg in
-shared)
test "$build_libtool_libs" != yes && \
func_fatal_configuration "can not build a shared library"
build_old_libs=no
continue
;;
-static)
build_libtool_libs=no
build_old_libs=yes
continue
;;
-prefer-pic)
pic_mode=yes
continue
;;
-prefer-non-pic)
pic_mode=no
continue
;;
esac
done
func_quote_for_eval "$libobj"
test "X$libobj" != "X$func_quote_for_eval_result" \
&& $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \
&& func_warning "libobj name \`$libobj' may not contain shell special characters."
func_dirname_and_basename "$obj" "/" ""
objname="$func_basename_result"
xdir="$func_dirname_result"
lobj=${xdir}$objdir/$objname
test -z "$base_compile" && \
func_fatal_help "you must specify a compilation command"
# Delete any leftover library objects.
if test "$build_old_libs" = yes; then
removelist="$obj $lobj $libobj ${libobj}T"
else
removelist="$lobj $libobj ${libobj}T"
fi
# On Cygwin there's no "real" PIC flag so we must build both object types
case $host_os in
cygwin* | mingw* | pw32* | os2* | cegcc*)
pic_mode=default
;;
esac
if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then
# non-PIC code in shared libraries is not supported
pic_mode=default
fi
# Calculate the filename of the output object if compiler does
# not support -o with -c
if test "$compiler_c_o" = no; then
output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext}
lockfile="$output_obj.lock"
else
output_obj=
need_locks=no
lockfile=
fi
# Lock this critical section if it is needed
# We use this script file to make the link, it avoids creating a new file
if test "$need_locks" = yes; then
until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
func_echo "Waiting for $lockfile to be removed"
sleep 2
done
elif test "$need_locks" = warn; then
if test -f "$lockfile"; then
$ECHO "\
*** ERROR, $lockfile exists and contains:
`cat $lockfile 2>/dev/null`
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
- func_append removelist " $output_obj"
+ removelist+=" $output_obj"
$ECHO "$srcfile" > "$lockfile"
fi
$opt_dry_run || $RM $removelist
- func_append removelist " $lockfile"
+ removelist+=" $lockfile"
trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15
func_to_tool_file "$srcfile" func_convert_file_msys_to_w32
srcfile=$func_to_tool_file_result
func_quote_for_eval "$srcfile"
qsrcfile=$func_quote_for_eval_result
# Only build a PIC object if we are building libtool libraries.
if test "$build_libtool_libs" = yes; then
# Without this assignment, base_compile gets emptied.
fbsd_hideous_sh_bug=$base_compile
if test "$pic_mode" != no; then
command="$base_compile $qsrcfile $pic_flag"
else
# Don't build PIC code
command="$base_compile $qsrcfile"
fi
func_mkdir_p "$xdir$objdir"
if test -z "$output_obj"; then
# Place PIC objects in $objdir
- func_append command " -o $lobj"
+ command+=" -o $lobj"
fi
func_show_eval_locale "$command" \
'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE'
if test "$need_locks" = warn &&
test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
$ECHO "\
*** ERROR, $lockfile contains:
`cat $lockfile 2>/dev/null`
but it should contain:
$srcfile
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
# Just move the object if needed, then go on to compile the next one
if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then
func_show_eval '$MV "$output_obj" "$lobj"' \
'error=$?; $opt_dry_run || $RM $removelist; exit $error'
fi
# Allow error messages only from the first compilation.
if test "$suppress_opt" = yes; then
suppress_output=' >/dev/null 2>&1'
fi
fi
# Only build a position-dependent object if we build old libraries.
if test "$build_old_libs" = yes; then
if test "$pic_mode" != yes; then
# Don't build PIC code
command="$base_compile $qsrcfile$pie_flag"
else
command="$base_compile $qsrcfile $pic_flag"
fi
if test "$compiler_c_o" = yes; then
- func_append command " -o $obj"
+ command+=" -o $obj"
fi
# Suppress compiler output if we already did a PIC compilation.
- func_append command "$suppress_output"
+ command+="$suppress_output"
func_show_eval_locale "$command" \
'$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE'
if test "$need_locks" = warn &&
test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then
$ECHO "\
*** ERROR, $lockfile contains:
`cat $lockfile 2>/dev/null`
but it should contain:
$srcfile
This indicates that another process is trying to use the same
temporary object file, and libtool could not work around it because
your compiler does not support \`-c' and \`-o' together. If you
repeat this compilation, it may succeed, by chance, but you had better
avoid parallel builds (make -j) in this platform, or get a better
compiler."
$opt_dry_run || $RM $removelist
exit $EXIT_FAILURE
fi
# Just move the object if needed
if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then
func_show_eval '$MV "$output_obj" "$obj"' \
'error=$?; $opt_dry_run || $RM $removelist; exit $error'
fi
fi
$opt_dry_run || {
func_write_libtool_object "$libobj" "$objdir/$objname" "$objname"
# Unlock the critical section if it was locked
if test "$need_locks" != no; then
removelist=$lockfile
$RM "$lockfile"
fi
}
exit $EXIT_SUCCESS
}
$opt_help || {
test "$opt_mode" = compile && func_mode_compile ${1+"$@"}
}
func_mode_help ()
{
# We need to display help for each of the modes.
case $opt_mode in
"")
# Generic help is extracted from the usage comments
# at the start of this file.
func_help
;;
clean)
$ECHO \
"Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE...
Remove files from the build directory.
RM is the name of the program to use to delete files associated with each FILE
(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
to RM.
If FILE is a libtool library, object or program, all the files associated
with it are deleted. Otherwise, only FILE itself is deleted using RM."
;;
compile)
$ECHO \
"Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE
Compile a source file into a libtool library object.
This mode accepts the following additional options:
-o OUTPUT-FILE set the output file name to OUTPUT-FILE
-no-suppress do not suppress compiler output for multiple passes
-prefer-pic try to build PIC objects only
-prefer-non-pic try to build non-PIC objects only
-shared do not build a \`.o' file suitable for static linking
-static only build a \`.o' file suitable for static linking
-Wc,FLAG pass FLAG directly to the compiler
COMPILE-COMMAND is a command to be used in creating a \`standard' object file
from the given SOURCEFILE.
The output file name is determined by removing the directory component from
SOURCEFILE, then substituting the C source code suffix \`.c' with the
library object suffix, \`.lo'."
;;
execute)
$ECHO \
"Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]...
Automatically set library path, then run a program.
This mode accepts the following additional options:
-dlopen FILE add the directory containing FILE to the library path
This mode sets the library path environment variable according to \`-dlopen'
flags.
If any of the ARGS are libtool executable wrappers, then they are translated
into their corresponding uninstalled binary, and any of their required library
directories are added to the library path.
Then, COMMAND is executed, with ARGS as arguments."
;;
finish)
$ECHO \
"Usage: $progname [OPTION]... --mode=finish [LIBDIR]...
Complete the installation of libtool libraries.
Each LIBDIR is a directory that contains libtool libraries.
The commands that this mode executes may require superuser privileges. Use
the \`--dry-run' option if you just want to see what would be executed."
;;
install)
$ECHO \
"Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND...
Install executables or libraries.
INSTALL-COMMAND is the installation command. The first component should be
either the \`install' or \`cp' program.
The following components of INSTALL-COMMAND are treated specially:
-inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation
The rest of the components are interpreted as arguments to that command (only
BSD-compatible install options are recognized)."
;;
link)
$ECHO \
"Usage: $progname [OPTION]... --mode=link LINK-COMMAND...
Link object files or libraries together to form another library, or to
create an executable program.
LINK-COMMAND is a command using the C compiler that you would use to create
a program from several object files.
The following components of LINK-COMMAND are treated specially:
-all-static do not do any dynamic linking at all
-avoid-version do not add a version suffix if possible
-bindir BINDIR specify path to binaries directory (for systems where
libraries must be found in the PATH setting at runtime)
-dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime
-dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols
-export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3)
-export-symbols SYMFILE
try to export only the symbols listed in SYMFILE
-export-symbols-regex REGEX
try to export only the symbols matching REGEX
-LLIBDIR search LIBDIR for required installed libraries
-lNAME OUTPUT-FILE requires the installed library libNAME
-module build a library that can dlopened
-no-fast-install disable the fast-install mode
-no-install link a not-installable executable
-no-undefined declare that a library does not refer to external symbols
-o OUTPUT-FILE create OUTPUT-FILE from the specified objects
-objectlist FILE Use a list of object files found in FILE to specify objects
-precious-files-regex REGEX
don't remove output files matching REGEX
-release RELEASE specify package release information
-rpath LIBDIR the created library will eventually be installed in LIBDIR
-R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries
-shared only do dynamic linking of libtool libraries
-shrext SUFFIX override the standard shared library file extension
-static do not do any dynamic linking of uninstalled libtool libraries
-static-libtool-libs
do not do any dynamic linking of libtool libraries
-version-info CURRENT[:REVISION[:AGE]]
specify library version info [each variable defaults to 0]
-weak LIBNAME declare that the target provides the LIBNAME interface
-Wc,FLAG
-Xcompiler FLAG pass linker-specific FLAG directly to the compiler
-Wl,FLAG
-Xlinker FLAG pass linker-specific FLAG directly to the linker
-XCClinker FLAG pass link-specific FLAG to the compiler driver (CC)
All other options (arguments beginning with \`-') are ignored.
Every other argument is treated as a filename. Files ending in \`.la' are
treated as uninstalled libtool libraries, other files are standard or library
object files.
If the OUTPUT-FILE ends in \`.la', then a libtool library is created,
only library objects (\`.lo' files) may be specified, and \`-rpath' is
required, except when creating a convenience library.
If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created
using \`ar' and \`ranlib', or on Windows using \`lib'.
If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file
is created, otherwise an executable program is created."
;;
uninstall)
$ECHO \
"Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE...
Remove libraries from an installation directory.
RM is the name of the program to use to delete files associated with each FILE
(typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed
to RM.
If FILE is a libtool library, all the files associated with it are deleted.
Otherwise, only FILE itself is deleted using RM."
;;
*)
func_fatal_help "invalid operation mode \`$opt_mode'"
;;
esac
echo
$ECHO "Try \`$progname --help' for more information about other modes."
}
# Now that we've collected a possible --mode arg, show help if necessary
if $opt_help; then
if test "$opt_help" = :; then
func_mode_help
else
{
func_help noexit
for opt_mode in compile link execute install finish uninstall clean; do
func_mode_help
done
} | sed -n '1p; 2,$s/^Usage:/ or: /p'
{
func_help noexit
for opt_mode in compile link execute install finish uninstall clean; do
echo
func_mode_help
done
} |
sed '1d
/^When reporting/,/^Report/{
H
d
}
$x
/information about other modes/d
/more detailed .*MODE/d
s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/'
fi
exit $?
fi
# func_mode_execute arg...
func_mode_execute ()
{
$opt_debug
# The first argument is the command name.
cmd="$nonopt"
test -z "$cmd" && \
func_fatal_help "you must specify a COMMAND"
# Handle -dlopen flags immediately.
for file in $opt_dlopen; do
test -f "$file" \
|| func_fatal_help "\`$file' is not a file"
dir=
case $file in
*.la)
func_resolve_sysroot "$file"
file=$func_resolve_sysroot_result
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$file" \
|| func_fatal_help "\`$lib' is not a valid libtool archive"
# Read the libtool library.
dlname=
library_names=
func_source "$file"
# Skip this library if it cannot be dlopened.
if test -z "$dlname"; then
# Warn if it was a shared library.
test -n "$library_names" && \
func_warning "\`$file' was not linked with \`-export-dynamic'"
continue
fi
func_dirname "$file" "" "."
dir="$func_dirname_result"
if test -f "$dir/$objdir/$dlname"; then
- func_append dir "/$objdir"
+ dir+="/$objdir"
else
if test ! -f "$dir/$dlname"; then
func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'"
fi
fi
;;
*.lo)
# Just add the directory containing the .lo file.
func_dirname "$file" "" "."
dir="$func_dirname_result"
;;
*)
func_warning "\`-dlopen' is ignored for non-libtool libraries and objects"
continue
;;
esac
# Get the absolute pathname.
absdir=`cd "$dir" && pwd`
test -n "$absdir" && dir="$absdir"
# Now add the directory to shlibpath_var.
if eval "test -z \"\$$shlibpath_var\""; then
eval "$shlibpath_var=\"\$dir\""
else
eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\""
fi
done
# This variable tells wrapper scripts just to set shlibpath_var
# rather than running their programs.
libtool_execute_magic="$magic"
# Check if any of the arguments is a wrapper script.
args=
for file
do
case $file in
-* | *.la | *.lo ) ;;
*)
# Do a test to see if this is really a libtool program.
if func_ltwrapper_script_p "$file"; then
func_source "$file"
# Transform arg to wrapped name.
file="$progdir/$program"
elif func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
func_source "$func_ltwrapper_scriptname_result"
# Transform arg to wrapped name.
file="$progdir/$program"
fi
;;
esac
# Quote arguments (to preserve shell metacharacters).
func_append_quoted args "$file"
done
if test "X$opt_dry_run" = Xfalse; then
if test -n "$shlibpath_var"; then
# Export the shlibpath_var.
eval "export $shlibpath_var"
fi
# Restore saved environment variables
for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES
do
eval "if test \"\${save_$lt_var+set}\" = set; then
$lt_var=\$save_$lt_var; export $lt_var
else
$lt_unset $lt_var
fi"
done
# Now prepare to actually exec the command.
exec_cmd="\$cmd$args"
else
# Display what would be done.
if test -n "$shlibpath_var"; then
eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\""
echo "export $shlibpath_var"
fi
$ECHO "$cmd$args"
exit $EXIT_SUCCESS
fi
}
test "$opt_mode" = execute && func_mode_execute ${1+"$@"}
# func_mode_finish arg...
func_mode_finish ()
{
$opt_debug
libs=
libdirs=
admincmds=
for opt in "$nonopt" ${1+"$@"}
do
if test -d "$opt"; then
- func_append libdirs " $opt"
+ libdirs+=" $opt"
elif test -f "$opt"; then
if func_lalib_unsafe_p "$opt"; then
- func_append libs " $opt"
+ libs+=" $opt"
else
func_warning "\`$opt' is not a valid libtool archive"
fi
else
func_fatal_error "invalid argument \`$opt'"
fi
done
if test -n "$libs"; then
if test -n "$lt_sysroot"; then
sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"`
sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;"
else
sysroot_cmd=
fi
# Remove sysroot references
if $opt_dry_run; then
for lib in $libs; do
echo "removing references to $lt_sysroot and \`=' prefixes from $lib"
done
else
tmpdir=`func_mktempdir`
for lib in $libs; do
sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \
> $tmpdir/tmp-la
mv -f $tmpdir/tmp-la $lib
done
${RM}r "$tmpdir"
fi
fi
if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
for libdir in $libdirs; do
if test -n "$finish_cmds"; then
# Do each command in the finish commands.
func_execute_cmds "$finish_cmds" 'admincmds="$admincmds
'"$cmd"'"'
fi
if test -n "$finish_eval"; then
# Do the single finish_eval.
eval cmds=\"$finish_eval\"
- $opt_dry_run || eval "$cmds" || func_append admincmds "
+ $opt_dry_run || eval "$cmds" || admincmds+="
$cmds"
fi
done
fi
# Exit here if they wanted silent mode.
$opt_silent && exit $EXIT_SUCCESS
if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then
echo "----------------------------------------------------------------------"
echo "Libraries have been installed in:"
for libdir in $libdirs; do
$ECHO " $libdir"
done
echo
echo "If you ever happen to want to link against installed libraries"
echo "in a given directory, LIBDIR, you must either use libtool, and"
echo "specify the full pathname of the library, or use the \`-LLIBDIR'"
echo "flag during linking and do at least one of the following:"
if test -n "$shlibpath_var"; then
echo " - add LIBDIR to the \`$shlibpath_var' environment variable"
echo " during execution"
fi
if test -n "$runpath_var"; then
echo " - add LIBDIR to the \`$runpath_var' environment variable"
echo " during linking"
fi
if test -n "$hardcode_libdir_flag_spec"; then
libdir=LIBDIR
eval flag=\"$hardcode_libdir_flag_spec\"
$ECHO " - use the \`$flag' linker flag"
fi
if test -n "$admincmds"; then
$ECHO " - have your system administrator run these commands:$admincmds"
fi
if test -f /etc/ld.so.conf; then
echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'"
fi
echo
echo "See any operating system documentation about shared libraries for"
case $host in
solaris2.[6789]|solaris2.1[0-9])
echo "more information, such as the ld(1), crle(1) and ld.so(8) manual"
echo "pages."
;;
*)
echo "more information, such as the ld(1) and ld.so(8) manual pages."
;;
esac
echo "----------------------------------------------------------------------"
fi
exit $EXIT_SUCCESS
}
test "$opt_mode" = finish && func_mode_finish ${1+"$@"}
# func_mode_install arg...
func_mode_install ()
{
$opt_debug
# There may be an optional sh(1) argument at the beginning of
# install_prog (especially on Windows NT).
if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh ||
# Allow the use of GNU shtool's install command.
case $nonopt in *shtool*) :;; *) false;; esac; then
# Aesthetically quote it.
func_quote_for_eval "$nonopt"
install_prog="$func_quote_for_eval_result "
arg=$1
shift
else
install_prog=
arg=$nonopt
fi
# The real first argument should be the name of the installation program.
# Aesthetically quote it.
func_quote_for_eval "$arg"
- func_append install_prog "$func_quote_for_eval_result"
+ install_prog+="$func_quote_for_eval_result"
install_shared_prog=$install_prog
case " $install_prog " in
*[\\\ /]cp\ *) install_cp=: ;;
*) install_cp=false ;;
esac
# We need to accept at least all the BSD install flags.
dest=
files=
opts=
prev=
install_type=
isdir=no
stripme=
no_mode=:
for arg
do
arg2=
if test -n "$dest"; then
- func_append files " $dest"
+ files+=" $dest"
dest=$arg
continue
fi
case $arg in
-d) isdir=yes ;;
-f)
if $install_cp; then :; else
prev=$arg
fi
;;
-g | -m | -o)
prev=$arg
;;
-s)
stripme=" -s"
continue
;;
-*)
;;
*)
# If the previous option needed an argument, then skip it.
if test -n "$prev"; then
if test "x$prev" = x-m && test -n "$install_override_mode"; then
arg2=$install_override_mode
no_mode=false
fi
prev=
else
dest=$arg
continue
fi
;;
esac
# Aesthetically quote the argument.
func_quote_for_eval "$arg"
- func_append install_prog " $func_quote_for_eval_result"
+ install_prog+=" $func_quote_for_eval_result"
if test -n "$arg2"; then
func_quote_for_eval "$arg2"
fi
- func_append install_shared_prog " $func_quote_for_eval_result"
+ install_shared_prog+=" $func_quote_for_eval_result"
done
test -z "$install_prog" && \
func_fatal_help "you must specify an install program"
test -n "$prev" && \
func_fatal_help "the \`$prev' option requires an argument"
if test -n "$install_override_mode" && $no_mode; then
if $install_cp; then :; else
func_quote_for_eval "$install_override_mode"
- func_append install_shared_prog " -m $func_quote_for_eval_result"
+ install_shared_prog+=" -m $func_quote_for_eval_result"
fi
fi
if test -z "$files"; then
if test -z "$dest"; then
func_fatal_help "no file or destination specified"
else
func_fatal_help "you must specify a destination"
fi
fi
# Strip any trailing slash from the destination.
func_stripname '' '/' "$dest"
dest=$func_stripname_result
# Check to see that the destination is a directory.
test -d "$dest" && isdir=yes
if test "$isdir" = yes; then
destdir="$dest"
destname=
else
func_dirname_and_basename "$dest" "" "."
destdir="$func_dirname_result"
destname="$func_basename_result"
# Not a directory, so check to see that there is only one file specified.
set dummy $files; shift
test "$#" -gt 1 && \
func_fatal_help "\`$dest' is not a directory"
fi
case $destdir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
for file in $files; do
case $file in
*.lo) ;;
*)
func_fatal_help "\`$destdir' must be an absolute directory name"
;;
esac
done
;;
esac
# This variable tells wrapper scripts just to set variables rather
# than running their programs.
libtool_install_magic="$magic"
staticlibs=
future_libdirs=
current_libdirs=
for file in $files; do
# Do each installation.
case $file in
*.$libext)
# Do the static libraries later.
- func_append staticlibs " $file"
+ staticlibs+=" $file"
;;
*.la)
func_resolve_sysroot "$file"
file=$func_resolve_sysroot_result
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$file" \
|| func_fatal_help "\`$file' is not a valid libtool archive"
library_names=
old_library=
relink_command=
func_source "$file"
# Add the libdir to current_libdirs if it is the destination.
if test "X$destdir" = "X$libdir"; then
case "$current_libdirs " in
*" $libdir "*) ;;
- *) func_append current_libdirs " $libdir" ;;
+ *) current_libdirs+=" $libdir" ;;
esac
else
# Note the libdir as a future libdir.
case "$future_libdirs " in
*" $libdir "*) ;;
- *) func_append future_libdirs " $libdir" ;;
+ *) future_libdirs+=" $libdir" ;;
esac
fi
func_dirname "$file" "/" ""
dir="$func_dirname_result"
- func_append dir "$objdir"
+ dir+="$objdir"
if test -n "$relink_command"; then
# Determine the prefix the user has applied to our future dir.
inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"`
# Don't allow the user to place us outside of our expected
# location b/c this prevents finding dependent libraries that
# are installed to the same prefix.
# At present, this check doesn't affect windows .dll's that
# are installed into $libdir/../bin (currently, that works fine)
# but it's something to keep an eye on.
test "$inst_prefix_dir" = "$destdir" && \
- func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir"
+ func_warning "error: cannot install \`$file' to a directory not ending in $libdir"
if test -n "$inst_prefix_dir"; then
# Stick the inst_prefix_dir data into the link command.
relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"`
else
relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"`
fi
func_warning "relinking \`$file'"
func_show_eval "$relink_command" \
'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"'
fi
# See the names of the shared library.
set dummy $library_names; shift
if test -n "$1"; then
realname="$1"
shift
srcname="$realname"
test -n "$relink_command" && srcname="$realname"T
# Install the shared library and build the symlinks.
func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \
'exit $?'
tstripme="$stripme"
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
case $realname in
*.dll.a)
tstripme=""
;;
esac
;;
esac
if test -n "$tstripme" && test -n "$striplib"; then
func_show_eval "$striplib $destdir/$realname" 'exit $?'
fi
if test "$#" -gt 0; then
# Delete the old symlinks, and create new ones.
# Try `ln -sf' first, because the `ln' binary might depend on
# the symlink we replace! Solaris /bin/ln does not understand -f,
# so we also need to try rm && ln -s.
for linkname
do
test "$linkname" != "$realname" \
&& func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })"
done
fi
# Do each command in the postinstall commands.
lib="$destdir/$realname"
func_execute_cmds "$postinstall_cmds" 'exit $?'
fi
# Install the pseudo-library for information purposes.
func_basename "$file"
name="$func_basename_result"
instname="$dir/$name"i
func_show_eval "$install_prog $instname $destdir/$name" 'exit $?'
# Maybe install the static library, too.
- test -n "$old_library" && func_append staticlibs " $dir/$old_library"
+ test -n "$old_library" && staticlibs+=" $dir/$old_library"
;;
*.lo)
# Install (i.e. copy) a libtool object.
# Figure out destination file name, if it wasn't already specified.
if test -n "$destname"; then
destfile="$destdir/$destname"
else
func_basename "$file"
destfile="$func_basename_result"
destfile="$destdir/$destfile"
fi
# Deduce the name of the destination old-style object file.
case $destfile in
*.lo)
func_lo2o "$destfile"
staticdest=$func_lo2o_result
;;
*.$objext)
staticdest="$destfile"
destfile=
;;
*)
func_fatal_help "cannot copy a libtool object to \`$destfile'"
;;
esac
# Install the libtool object if requested.
test -n "$destfile" && \
func_show_eval "$install_prog $file $destfile" 'exit $?'
# Install the old object if enabled.
if test "$build_old_libs" = yes; then
# Deduce the name of the old-style object file.
func_lo2o "$file"
staticobj=$func_lo2o_result
func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?'
fi
exit $EXIT_SUCCESS
;;
*)
# Figure out destination file name, if it wasn't already specified.
if test -n "$destname"; then
destfile="$destdir/$destname"
else
func_basename "$file"
destfile="$func_basename_result"
destfile="$destdir/$destfile"
fi
# If the file is missing, and there is a .exe on the end, strip it
# because it is most likely a libtool script we actually want to
# install
stripped_ext=""
case $file in
*.exe)
if test ! -f "$file"; then
func_stripname '' '.exe' "$file"
file=$func_stripname_result
stripped_ext=".exe"
fi
;;
esac
# Do a test to see if this is really a libtool program.
case $host in
*cygwin* | *mingw*)
if func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
wrapper=$func_ltwrapper_scriptname_result
else
func_stripname '' '.exe' "$file"
wrapper=$func_stripname_result
fi
;;
*)
wrapper=$file
;;
esac
if func_ltwrapper_script_p "$wrapper"; then
notinst_deplibs=
relink_command=
func_source "$wrapper"
# Check the variables that should have been set.
test -z "$generated_by_libtool_version" && \
func_fatal_error "invalid libtool wrapper script \`$wrapper'"
finalize=yes
for lib in $notinst_deplibs; do
# Check to see that each library is installed.
libdir=
if test -f "$lib"; then
func_source "$lib"
fi
libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test
if test -n "$libdir" && test ! -f "$libfile"; then
func_warning "\`$lib' has not been installed in \`$libdir'"
finalize=no
fi
done
relink_command=
func_source "$wrapper"
outputname=
if test "$fast_install" = no && test -n "$relink_command"; then
$opt_dry_run || {
if test "$finalize" = yes; then
tmpdir=`func_mktempdir`
func_basename "$file$stripped_ext"
file="$func_basename_result"
outputname="$tmpdir/$file"
# Replace the output file specification.
relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'`
$opt_silent || {
func_quote_for_expand "$relink_command"
eval "func_echo $func_quote_for_expand_result"
}
if eval "$relink_command"; then :
else
func_error "error: relink \`$file' with the above command before installing it"
$opt_dry_run || ${RM}r "$tmpdir"
continue
fi
file="$outputname"
else
func_warning "cannot relink \`$file'"
fi
}
else
# Install the binary that we compiled earlier.
file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"`
fi
fi
# remove .exe since cygwin /usr/bin/install will append another
# one anyway
case $install_prog,$host in
*/usr/bin/install*,*cygwin*)
case $file:$destfile in
*.exe:*.exe)
# this is ok
;;
*.exe:*)
destfile=$destfile.exe
;;
*:*.exe)
func_stripname '' '.exe' "$destfile"
destfile=$func_stripname_result
;;
esac
;;
esac
func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?'
$opt_dry_run || if test -n "$outputname"; then
${RM}r "$tmpdir"
fi
;;
esac
done
for file in $staticlibs; do
func_basename "$file"
name="$func_basename_result"
# Set up the ranlib parameters.
oldlib="$destdir/$name"
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
func_show_eval "$install_prog \$file \$oldlib" 'exit $?'
if test -n "$stripme" && test -n "$old_striplib"; then
- func_show_eval "$old_striplib $oldlib" 'exit $?'
+ func_show_eval "$old_striplib $tool_oldlib" 'exit $?'
fi
# Do each command in the postinstall commands.
func_execute_cmds "$old_postinstall_cmds" 'exit $?'
done
test -n "$future_libdirs" && \
func_warning "remember to run \`$progname --finish$future_libdirs'"
if test -n "$current_libdirs"; then
# Maybe just do a dry run.
$opt_dry_run && current_libdirs=" -n$current_libdirs"
exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs'
else
exit $EXIT_SUCCESS
fi
}
test "$opt_mode" = install && func_mode_install ${1+"$@"}
# func_generate_dlsyms outputname originator pic_p
# Extract symbols from dlprefiles and create ${outputname}S.o with
# a dlpreopen symbol table.
func_generate_dlsyms ()
{
$opt_debug
my_outputname="$1"
my_originator="$2"
my_pic_p="${3-no}"
my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'`
my_dlsyms=
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
if test -n "$NM" && test -n "$global_symbol_pipe"; then
my_dlsyms="${my_outputname}S.c"
else
func_error "not configured to extract global symbols from dlpreopened files"
fi
fi
if test -n "$my_dlsyms"; then
case $my_dlsyms in
"") ;;
*.c)
# Discover the nlist of each of the dlfiles.
nlist="$output_objdir/${my_outputname}.nm"
func_show_eval "$RM $nlist ${nlist}S ${nlist}T"
# Parse the name list into a source file.
func_verbose "creating $output_objdir/$my_dlsyms"
$opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\
/* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */
/* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */
#ifdef __cplusplus
extern \"C\" {
#endif
#if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4))
#pragma GCC diagnostic ignored \"-Wstrict-prototypes\"
#endif
/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
#if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE)
/* DATA imports from DLLs on WIN32 con't be const, because runtime
relocations are performed -- see ld's documentation on pseudo-relocs. */
# define LT_DLSYM_CONST
#elif defined(__osf__)
/* This system does not cope well with relocations in const data. */
# define LT_DLSYM_CONST
#else
# define LT_DLSYM_CONST const
#endif
/* External symbol declarations for the compiler. */\
"
if test "$dlself" = yes; then
func_verbose "generating symbol list for \`$output'"
$opt_dry_run || echo ': @PROGRAM@ ' > "$nlist"
# Add our own program objects to the symbol list.
progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP`
for progfile in $progfiles; do
func_to_tool_file "$progfile" func_convert_file_msys_to_w32
func_verbose "extracting global C symbols from \`$func_to_tool_file_result'"
$opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'"
done
if test -n "$exclude_expsyms"; then
$opt_dry_run || {
eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
}
fi
if test -n "$export_symbols_regex"; then
$opt_dry_run || {
eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
}
fi
# Prepare the list of exported symbols
if test -z "$export_symbols"; then
export_symbols="$output_objdir/$outputname.exp"
$opt_dry_run || {
$RM $export_symbols
eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"'
case $host in
*cygwin* | *mingw* | *cegcc* )
eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"'
;;
esac
}
else
$opt_dry_run || {
eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"'
eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T'
eval '$MV "$nlist"T "$nlist"'
case $host in
*cygwin* | *mingw* | *cegcc* )
eval "echo EXPORTS "'> "$output_objdir/$outputname.def"'
eval 'cat "$nlist" >> "$output_objdir/$outputname.def"'
;;
esac
}
fi
fi
for dlprefile in $dlprefiles; do
func_verbose "extracting global C symbols from \`$dlprefile'"
func_basename "$dlprefile"
name="$func_basename_result"
case $host in
*cygwin* | *mingw* | *cegcc* )
# if an import library, we need to obtain dlname
if func_win32_import_lib_p "$dlprefile"; then
func_tr_sh "$dlprefile"
eval "curr_lafile=\$libfile_$func_tr_sh_result"
dlprefile_dlbasename=""
if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then
# Use subshell, to avoid clobbering current variable values
dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"`
if test -n "$dlprefile_dlname" ; then
func_basename "$dlprefile_dlname"
dlprefile_dlbasename="$func_basename_result"
else
# no lafile. user explicitly requested -dlpreopen <import library>.
$sharedlib_from_linklib_cmd "$dlprefile"
dlprefile_dlbasename=$sharedlib_from_linklib_result
fi
fi
$opt_dry_run || {
if test -n "$dlprefile_dlbasename" ; then
eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"'
else
func_warning "Could not compute DLL name from $name"
eval '$ECHO ": $name " >> "$nlist"'
fi
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe |
$SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'"
}
else # not an import lib
$opt_dry_run || {
eval '$ECHO ": $name " >> "$nlist"'
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
}
fi
;;
*)
$opt_dry_run || {
eval '$ECHO ": $name " >> "$nlist"'
func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32
eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'"
}
;;
esac
done
$opt_dry_run || {
# Make sure we have at least an empty file.
test -f "$nlist" || : > "$nlist"
if test -n "$exclude_expsyms"; then
$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T
$MV "$nlist"T "$nlist"
fi
# Try sorting and uniquifying the output.
if $GREP -v "^: " < "$nlist" |
if sort -k 3 </dev/null >/dev/null 2>&1; then
sort -k 3
else
sort +2
fi |
uniq > "$nlist"S; then
:
else
$GREP -v "^: " < "$nlist" > "$nlist"S
fi
if test -f "$nlist"S; then
eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"'
else
echo '/* NONE */' >> "$output_objdir/$my_dlsyms"
fi
echo >> "$output_objdir/$my_dlsyms" "\
/* The mapping between symbol names and symbols. */
typedef struct {
const char *name;
void *address;
} lt_dlsymlist;
extern LT_DLSYM_CONST lt_dlsymlist
lt_${my_prefix}_LTX_preloaded_symbols[];
LT_DLSYM_CONST lt_dlsymlist
lt_${my_prefix}_LTX_preloaded_symbols[] =
{\
{ \"$my_originator\", (void *) 0 },"
case $need_lib_prefix in
no)
eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms"
;;
*)
eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms"
;;
esac
echo >> "$output_objdir/$my_dlsyms" "\
{0, (void *) 0}
};
/* This works around a problem in FreeBSD linker */
#ifdef FREEBSD_WORKAROUND
static const void *lt_preloaded_setup() {
return lt_${my_prefix}_LTX_preloaded_symbols;
}
#endif
#ifdef __cplusplus
}
#endif\
"
} # !$opt_dry_run
pic_flag_for_symtable=
case "$compile_command " in
*" -static "*) ;;
*)
case $host in
# compiling the symbol table file with pic_flag works around
# a FreeBSD bug that causes programs to crash when -lm is
# linked before any other PIC object. But we must not use
# pic_flag when linking with -static. The problem exists in
# FreeBSD 2.2.6 and is fixed in FreeBSD 3.1.
- *-*-freebsd2*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
+ *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*)
pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;;
*-*-hpux*)
pic_flag_for_symtable=" $pic_flag" ;;
*)
if test "X$my_pic_p" != Xno; then
pic_flag_for_symtable=" $pic_flag"
fi
;;
esac
;;
esac
symtab_cflags=
for arg in $LTCFLAGS; do
case $arg in
-pie | -fpie | -fPIE) ;;
- *) func_append symtab_cflags " $arg" ;;
+ *) symtab_cflags+=" $arg" ;;
esac
done
# Now compile the dynamic symbol file.
func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?'
# Clean up the generated files.
func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"'
# Transform the symbol file into the correct name.
symfileobj="$output_objdir/${my_outputname}S.$objext"
case $host in
*cygwin* | *mingw* | *cegcc* )
if test -f "$output_objdir/$my_outputname.def"; then
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"`
else
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
fi
;;
*)
compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"`
;;
esac
;;
*)
func_fatal_error "unknown suffix for \`$my_dlsyms'"
;;
esac
else
# We keep going just in case the user didn't refer to
# lt_preloaded_symbols. The linker will fail if global_symbol_pipe
# really was required.
# Nullify the symbol file.
compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"`
finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"`
fi
}
# func_win32_libid arg
# return the library type of file 'arg'
#
# Need a lot of goo to handle *both* DLLs and import libs
# Has to be a shell function in order to 'eat' the argument
# that is supplied when $file_magic_command is called.
# Despite the name, also deal with 64 bit binaries.
func_win32_libid ()
{
$opt_debug
win32_libid_type="unknown"
win32_fileres=`file -L $1 2>/dev/null`
case $win32_fileres in
*ar\ archive\ import\ library*) # definitely import
win32_libid_type="x86 archive import"
;;
*ar\ archive*) # could be an import, or static
# Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD.
if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null |
$EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then
func_to_tool_file "$1" func_convert_file_msys_to_w32
win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" |
$SED -n -e '
1,100{
/ I /{
s,.*,import,
p
q
}
}'`
case $win32_nmres in
import*) win32_libid_type="x86 archive import";;
*) win32_libid_type="x86 archive static";;
esac
fi
;;
*DLL*)
win32_libid_type="x86 DLL"
;;
*executable*) # but shell scripts are "executable" too...
case $win32_fileres in
*MS\ Windows\ PE\ Intel*)
win32_libid_type="x86 DLL"
;;
esac
;;
esac
$ECHO "$win32_libid_type"
}
# func_cygming_dll_for_implib ARG
#
# Platform-specific function to extract the
# name of the DLL associated with the specified
# import library ARG.
# Invoked by eval'ing the libtool variable
# $sharedlib_from_linklib_cmd
# Result is available in the variable
# $sharedlib_from_linklib_result
func_cygming_dll_for_implib ()
{
$opt_debug
sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"`
}
# func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs
#
# The is the core of a fallback implementation of a
# platform-specific function to extract the name of the
# DLL associated with the specified import library LIBNAME.
#
# SECTION_NAME is either .idata$6 or .idata$7, depending
# on the platform and compiler that created the implib.
#
# Echos the name of the DLL associated with the
# specified import library.
func_cygming_dll_for_implib_fallback_core ()
{
$opt_debug
match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"`
$OBJDUMP -s --section "$1" "$2" 2>/dev/null |
$SED '/^Contents of section '"$match_literal"':/{
# Place marker at beginning of archive member dllname section
s/.*/====MARK====/
p
d
}
# These lines can sometimes be longer than 43 characters, but
# are always uninteresting
/:[ ]*file format pe[i]\{,1\}-/d
/^In archive [^:]*:/d
# Ensure marker is printed
/^====MARK====/p
# Remove all lines with less than 43 characters
/^.\{43\}/!d
# From remaining lines, remove first 43 characters
s/^.\{43\}//' |
$SED -n '
# Join marker and all lines until next marker into a single line
/^====MARK====/ b para
H
$ b para
b
:para
x
s/\n//g
# Remove the marker
s/^====MARK====//
# Remove trailing dots and whitespace
s/[\. \t]*$//
# Print
/./p' |
# we now have a list, one entry per line, of the stringified
# contents of the appropriate section of all members of the
# archive which possess that section. Heuristic: eliminate
# all those which have a first or second character that is
# a '.' (that is, objdump's representation of an unprintable
# character.) This should work for all archives with less than
# 0x302f exports -- but will fail for DLLs whose name actually
# begins with a literal '.' or a single character followed by
# a '.'.
#
# Of those that remain, print the first one.
$SED -e '/^\./d;/^.\./d;q'
}
# func_cygming_gnu_implib_p ARG
# This predicate returns with zero status (TRUE) if
# ARG is a GNU/binutils-style import library. Returns
# with nonzero status (FALSE) otherwise.
func_cygming_gnu_implib_p ()
{
$opt_debug
func_to_tool_file "$1" func_convert_file_msys_to_w32
func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'`
test -n "$func_cygming_gnu_implib_tmp"
}
# func_cygming_ms_implib_p ARG
# This predicate returns with zero status (TRUE) if
# ARG is an MS-style import library. Returns
# with nonzero status (FALSE) otherwise.
func_cygming_ms_implib_p ()
{
$opt_debug
func_to_tool_file "$1" func_convert_file_msys_to_w32
func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'`
test -n "$func_cygming_ms_implib_tmp"
}
# func_cygming_dll_for_implib_fallback ARG
# Platform-specific function to extract the
# name of the DLL associated with the specified
# import library ARG.
#
# This fallback implementation is for use when $DLLTOOL
# does not support the --identify-strict option.
# Invoked by eval'ing the libtool variable
# $sharedlib_from_linklib_cmd
# Result is available in the variable
# $sharedlib_from_linklib_result
func_cygming_dll_for_implib_fallback ()
{
$opt_debug
if func_cygming_gnu_implib_p "$1" ; then
# binutils import library
sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"`
elif func_cygming_ms_implib_p "$1" ; then
# ms-generated import library
sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"`
else
# unknown
sharedlib_from_linklib_result=""
fi
}
# func_extract_an_archive dir oldlib
func_extract_an_archive ()
{
$opt_debug
f_ex_an_ar_dir="$1"; shift
f_ex_an_ar_oldlib="$1"
if test "$lock_old_archive_extraction" = yes; then
lockfile=$f_ex_an_ar_oldlib.lock
until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do
func_echo "Waiting for $lockfile to be removed"
sleep 2
done
fi
func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \
'stat=$?; rm -f "$lockfile"; exit $stat'
if test "$lock_old_archive_extraction" = yes; then
$opt_dry_run || rm -f "$lockfile"
fi
if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then
:
else
func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib"
fi
}
# func_extract_archives gentop oldlib ...
func_extract_archives ()
{
$opt_debug
my_gentop="$1"; shift
my_oldlibs=${1+"$@"}
my_oldobjs=""
my_xlib=""
my_xabs=""
my_xdir=""
for my_xlib in $my_oldlibs; do
# Extract the objects.
case $my_xlib in
[\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;;
*) my_xabs=`pwd`"/$my_xlib" ;;
esac
func_basename "$my_xlib"
my_xlib="$func_basename_result"
my_xlib_u=$my_xlib
while :; do
case " $extracted_archives " in
*" $my_xlib_u "*)
func_arith $extracted_serial + 1
extracted_serial=$func_arith_result
my_xlib_u=lt$extracted_serial-$my_xlib ;;
*) break ;;
esac
done
extracted_archives="$extracted_archives $my_xlib_u"
my_xdir="$my_gentop/$my_xlib_u"
func_mkdir_p "$my_xdir"
case $host in
*-darwin*)
func_verbose "Extracting $my_xabs"
# Do not bother doing anything if just a dry run
$opt_dry_run || {
darwin_orig_dir=`pwd`
cd $my_xdir || exit $?
darwin_archive=$my_xabs
darwin_curdir=`pwd`
darwin_base_archive=`basename "$darwin_archive"`
darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true`
if test -n "$darwin_arches"; then
darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'`
darwin_arch=
func_verbose "$darwin_base_archive has multiple architectures $darwin_arches"
for darwin_arch in $darwin_arches ; do
func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}"
$LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}"
cd "unfat-$$/${darwin_base_archive}-${darwin_arch}"
func_extract_an_archive "`pwd`" "${darwin_base_archive}"
cd "$darwin_curdir"
$RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}"
done # $darwin_arches
## Okay now we've a bunch of thin objects, gotta fatten them up :)
darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u`
darwin_file=
darwin_files=
for darwin_file in $darwin_filelist; do
darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP`
$LIPO -create -output "$darwin_file" $darwin_files
done # $darwin_filelist
$RM -rf unfat-$$
cd "$darwin_orig_dir"
else
cd $darwin_orig_dir
func_extract_an_archive "$my_xdir" "$my_xabs"
fi # $darwin_arches
} # !$opt_dry_run
;;
*)
func_extract_an_archive "$my_xdir" "$my_xabs"
;;
esac
my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP`
done
func_extract_archives_result="$my_oldobjs"
}
# func_emit_wrapper [arg=no]
#
# Emit a libtool wrapper script on stdout.
# Don't directly open a file because we may want to
# incorporate the script contents within a cygwin/mingw
# wrapper executable. Must ONLY be called from within
# func_mode_link because it depends on a number of variables
# set therein.
#
# ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR
# variable will take. If 'yes', then the emitted script
# will assume that the directory in which it is stored is
# the $objdir directory. This is a cygwin/mingw-specific
# behavior.
func_emit_wrapper ()
{
func_emit_wrapper_arg1=${1-no}
$ECHO "\
#! $SHELL
# $output - temporary wrapper script for $objdir/$outputname
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# The $output program cannot be directly executed until all the libtool
# libraries that it depends on are installed.
#
# This wrapper script should never be moved out of the build directory.
# If it is, it will not operate correctly.
# Sed substitution that helps us do robust quoting. It backslashifies
# metacharacters that are still active within double-quoted strings.
sed_quote_subst='$sed_quote_subst'
# Be Bourne compatible
if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then
emulate sh
NULLCMD=:
# Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which
# is contrary to our usage. Disable this feature.
alias -g '\${1+\"\$@\"}'='\"\$@\"'
setopt NO_GLOB_SUBST
else
case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac
fi
BIN_SH=xpg4; export BIN_SH # for Tru64
DUALCASE=1; export DUALCASE # for MKS sh
# The HP-UX ksh and POSIX shell print the target directory to stdout
# if CDPATH is set.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
relink_command=\"$relink_command\"
# This environment variable determines our operation mode.
if test \"\$libtool_install_magic\" = \"$magic\"; then
# install mode needs the following variables:
generated_by_libtool_version='$macro_version'
notinst_deplibs='$notinst_deplibs'
else
# When we are sourced in execute mode, \$file and \$ECHO are already set.
if test \"\$libtool_execute_magic\" != \"$magic\"; then
file=\"\$0\""
qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"`
$ECHO "\
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
\$1
_LTECHO_EOF'
}
ECHO=\"$qECHO\"
fi
# Very basic option parsing. These options are (a) specific to
# the libtool wrapper, (b) are identical between the wrapper
# /script/ and the wrapper /executable/ which is used only on
# windows platforms, and (c) all begin with the string "--lt-"
# (application programs are unlikely to have options which match
# this pattern).
#
# There are only two supported options: --lt-debug and
# --lt-dump-script. There is, deliberately, no --lt-help.
#
# The first argument to this parsing function should be the
# script's $0 value, followed by "$@".
lt_option_debug=
func_parse_lt_options ()
{
lt_script_arg0=\$0
shift
for lt_opt
do
case \"\$lt_opt\" in
--lt-debug) lt_option_debug=1 ;;
--lt-dump-script)
lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\`
test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=.
lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\`
cat \"\$lt_dump_D/\$lt_dump_F\"
exit 0
;;
--lt-*)
\$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2
exit 1
;;
esac
done
# Print the debug banner immediately:
if test -n \"\$lt_option_debug\"; then
echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2
fi
}
# Used when --lt-debug. Prints its arguments to stdout
# (redirection is the responsibility of the caller)
func_lt_dump_args ()
{
lt_dump_args_N=1;
for lt_arg
do
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\"
lt_dump_args_N=\`expr \$lt_dump_args_N + 1\`
done
}
# Core function for launching the target application
func_exec_program_core ()
{
"
case $host in
# Backslashes separate directories on plain windows
*-*-mingw | *-*-os2* | *-cegcc*)
$ECHO "\
if test -n \"\$lt_option_debug\"; then
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2
func_lt_dump_args \${1+\"\$@\"} 1>&2
fi
exec \"\$progdir\\\\\$program\" \${1+\"\$@\"}
"
;;
*)
$ECHO "\
if test -n \"\$lt_option_debug\"; then
\$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2
func_lt_dump_args \${1+\"\$@\"} 1>&2
fi
exec \"\$progdir/\$program\" \${1+\"\$@\"}
"
;;
esac
$ECHO "\
\$ECHO \"\$0: cannot exec \$program \$*\" 1>&2
exit 1
}
# A function to encapsulate launching the target application
# Strips options in the --lt-* namespace from \$@ and
# launches target application with the remaining arguments.
func_exec_program ()
{
- for lt_wr_arg
- do
- case \$lt_wr_arg in
- --lt-*) ;;
- *) set x \"\$@\" \"\$lt_wr_arg\"; shift;;
- esac
- shift
- done
+ case \" \$* \" in
+ *\\ --lt-*)
+ for lt_wr_arg
+ do
+ case \$lt_wr_arg in
+ --lt-*) ;;
+ *) set x \"\$@\" \"\$lt_wr_arg\"; shift;;
+ esac
+ shift
+ done ;;
+ esac
func_exec_program_core \${1+\"\$@\"}
}
# Parse options
func_parse_lt_options \"\$0\" \${1+\"\$@\"}
# Find the directory that this script lives in.
thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\`
test \"x\$thisdir\" = \"x\$file\" && thisdir=.
# Follow symbolic links until we get to the real thisdir.
file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\`
while test -n \"\$file\"; do
destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\`
# If there was a directory component, then change thisdir.
if test \"x\$destdir\" != \"x\$file\"; then
case \"\$destdir\" in
[\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;;
*) thisdir=\"\$thisdir/\$destdir\" ;;
esac
fi
file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\`
file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\`
done
# Usually 'no', except on cygwin/mingw when embedded into
# the cwrapper.
WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1
if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then
# special case for '.'
if test \"\$thisdir\" = \".\"; then
thisdir=\`pwd\`
fi
# remove .libs from thisdir
case \"\$thisdir\" in
*[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;;
$objdir ) thisdir=. ;;
esac
fi
# Try to get the absolute directory name.
absdir=\`cd \"\$thisdir\" && pwd\`
test -n \"\$absdir\" && thisdir=\"\$absdir\"
"
if test "$fast_install" = yes; then
$ECHO "\
program=lt-'$outputname'$exeext
progdir=\"\$thisdir/$objdir\"
if test ! -f \"\$progdir/\$program\" ||
{ file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\
test \"X\$file\" != \"X\$progdir/\$program\"; }; then
file=\"\$\$-\$program\"
if test ! -d \"\$progdir\"; then
$MKDIR \"\$progdir\"
else
$RM \"\$progdir/\$file\"
fi"
$ECHO "\
# relink executable if necessary
if test -n \"\$relink_command\"; then
if relink_command_output=\`eval \$relink_command 2>&1\`; then :
else
$ECHO \"\$relink_command_output\" >&2
$RM \"\$progdir/\$file\"
exit 1
fi
fi
$MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null ||
{ $RM \"\$progdir/\$program\";
$MV \"\$progdir/\$file\" \"\$progdir/\$program\"; }
$RM \"\$progdir/\$file\"
fi"
else
$ECHO "\
program='$outputname'
progdir=\"\$thisdir/$objdir\"
"
fi
$ECHO "\
if test -f \"\$progdir/\$program\"; then"
# fixup the dll searchpath if we need to.
#
# Fix the DLL searchpath if we need to. Do this before prepending
# to shlibpath, because on Windows, both are PATH and uninstalled
# libraries must come first.
if test -n "$dllsearchpath"; then
$ECHO "\
# Add the dll search path components to the executable PATH
PATH=$dllsearchpath:\$PATH
"
fi
# Export our shlibpath_var if we have one.
if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
$ECHO "\
# Add our own library path to $shlibpath_var
$shlibpath_var=\"$temp_rpath\$$shlibpath_var\"
# Some systems cannot cope with colon-terminated $shlibpath_var
# The second colon is a workaround for a bug in BeOS R4 sed
$shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\`
export $shlibpath_var
"
fi
$ECHO "\
if test \"\$libtool_execute_magic\" != \"$magic\"; then
# Run the actual program with our arguments.
func_exec_program \${1+\"\$@\"}
fi
else
# The program doesn't exist.
\$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2
\$ECHO \"This script is just a wrapper for \$program.\" 1>&2
\$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2
exit 1
fi
fi\
"
}
# func_emit_cwrapperexe_src
# emit the source code for a wrapper executable on stdout
# Must ONLY be called from within func_mode_link because
# it depends on a number of variable set therein.
func_emit_cwrapperexe_src ()
{
cat <<EOF
/* $cwrappersource - temporary wrapper executable for $objdir/$outputname
Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
The $output program cannot be directly executed until all the libtool
libraries that it depends on are installed.
This wrapper executable should never be moved out of the build directory.
If it is, it will not operate correctly.
*/
EOF
cat <<"EOF"
#ifdef _MSC_VER
# define _CRT_SECURE_NO_DEPRECATE 1
#endif
#include <stdio.h>
#include <stdlib.h>
#ifdef _MSC_VER
# include <direct.h>
# include <process.h>
# include <io.h>
#else
# include <unistd.h>
# include <stdint.h>
# ifdef __CYGWIN__
# include <io.h>
# endif
#endif
#include <malloc.h>
#include <stdarg.h>
#include <assert.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <fcntl.h>
#include <sys/stat.h>
/* declarations of non-ANSI functions */
#if defined(__MINGW32__)
# ifdef __STRICT_ANSI__
int _putenv (const char *);
# endif
#elif defined(__CYGWIN__)
# ifdef __STRICT_ANSI__
char *realpath (const char *, char *);
int putenv (char *);
int setenv (const char *, const char *, int);
# endif
/* #elif defined (other platforms) ... */
#endif
/* portability defines, excluding path handling macros */
#if defined(_MSC_VER)
# define setmode _setmode
# define stat _stat
# define chmod _chmod
# define getcwd _getcwd
# define putenv _putenv
# define S_IXUSR _S_IEXEC
# ifndef _INTPTR_T_DEFINED
# define _INTPTR_T_DEFINED
# define intptr_t int
# endif
#elif defined(__MINGW32__)
# define setmode _setmode
# define stat _stat
# define chmod _chmod
# define getcwd _getcwd
# define putenv _putenv
#elif defined(__CYGWIN__)
# define HAVE_SETENV
# define FOPEN_WB "wb"
/* #elif defined (other platforms) ... */
#endif
#if defined(PATH_MAX)
# define LT_PATHMAX PATH_MAX
#elif defined(MAXPATHLEN)
# define LT_PATHMAX MAXPATHLEN
#else
# define LT_PATHMAX 1024
#endif
#ifndef S_IXOTH
# define S_IXOTH 0
#endif
#ifndef S_IXGRP
# define S_IXGRP 0
#endif
/* path handling portability macros */
#ifndef DIR_SEPARATOR
# define DIR_SEPARATOR '/'
# define PATH_SEPARATOR ':'
#endif
#if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \
defined (__OS2__)
# define HAVE_DOS_BASED_FILE_SYSTEM
# define FOPEN_WB "wb"
# ifndef DIR_SEPARATOR_2
# define DIR_SEPARATOR_2 '\\'
# endif
# ifndef PATH_SEPARATOR_2
# define PATH_SEPARATOR_2 ';'
# endif
#endif
#ifndef DIR_SEPARATOR_2
# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
#else /* DIR_SEPARATOR_2 */
# define IS_DIR_SEPARATOR(ch) \
(((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
#endif /* DIR_SEPARATOR_2 */
#ifndef PATH_SEPARATOR_2
# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR)
#else /* PATH_SEPARATOR_2 */
# define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2)
#endif /* PATH_SEPARATOR_2 */
#ifndef FOPEN_WB
# define FOPEN_WB "w"
#endif
#ifndef _O_BINARY
# define _O_BINARY 0
#endif
#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type)))
#define XFREE(stale) do { \
if (stale) { free ((void *) stale); stale = 0; } \
} while (0)
#if defined(LT_DEBUGWRAPPER)
static int lt_debug = 1;
#else
static int lt_debug = 0;
#endif
const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */
void *xmalloc (size_t num);
char *xstrdup (const char *string);
const char *base_name (const char *name);
char *find_executable (const char *wrapper);
char *chase_symlinks (const char *pathspec);
int make_executable (const char *path);
int check_executable (const char *path);
char *strendzap (char *str, const char *pat);
void lt_debugprintf (const char *file, int line, const char *fmt, ...);
void lt_fatal (const char *file, int line, const char *message, ...);
static const char *nonnull (const char *s);
static const char *nonempty (const char *s);
void lt_setenv (const char *name, const char *value);
char *lt_extend_str (const char *orig_value, const char *add, int to_end);
void lt_update_exe_path (const char *name, const char *value);
void lt_update_lib_path (const char *name, const char *value);
char **prepare_spawn (char **argv);
void lt_dump_script (FILE *f);
EOF
cat <<EOF
volatile const char * MAGIC_EXE = "$magic_exe";
const char * LIB_PATH_VARNAME = "$shlibpath_var";
EOF
if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then
func_to_host_path "$temp_rpath"
cat <<EOF
const char * LIB_PATH_VALUE = "$func_to_host_path_result";
EOF
else
cat <<"EOF"
const char * LIB_PATH_VALUE = "";
EOF
fi
if test -n "$dllsearchpath"; then
func_to_host_path "$dllsearchpath:"
cat <<EOF
const char * EXE_PATH_VARNAME = "PATH";
const char * EXE_PATH_VALUE = "$func_to_host_path_result";
EOF
else
cat <<"EOF"
const char * EXE_PATH_VARNAME = "";
const char * EXE_PATH_VALUE = "";
EOF
fi
if test "$fast_install" = yes; then
cat <<EOF
const char * TARGET_PROGRAM_NAME = "lt-$outputname"; /* hopefully, no .exe */
EOF
else
cat <<EOF
const char * TARGET_PROGRAM_NAME = "$outputname"; /* hopefully, no .exe */
EOF
fi
cat <<"EOF"
#define LTWRAPPER_OPTION_PREFIX "--lt-"
static const char *ltwrapper_option_prefix = LTWRAPPER_OPTION_PREFIX;
static const char *dumpscript_opt = LTWRAPPER_OPTION_PREFIX "dump-script";
static const char *debug_opt = LTWRAPPER_OPTION_PREFIX "debug";
int
main (int argc, char *argv[])
{
char **newargz;
int newargc;
char *tmp_pathspec;
char *actual_cwrapper_path;
char *actual_cwrapper_name;
char *target_name;
char *lt_argv_zero;
intptr_t rval = 127;
int i;
program_name = (char *) xstrdup (base_name (argv[0]));
newargz = XMALLOC (char *, argc + 1);
/* very simple arg parsing; don't want to rely on getopt
* also, copy all non cwrapper options to newargz, except
* argz[0], which is handled differently
*/
newargc=0;
for (i = 1; i < argc; i++)
{
if (strcmp (argv[i], dumpscript_opt) == 0)
{
EOF
case "$host" in
*mingw* | *cygwin* )
# make stdout use "unix" line endings
echo " setmode(1,_O_BINARY);"
;;
esac
cat <<"EOF"
lt_dump_script (stdout);
return 0;
}
if (strcmp (argv[i], debug_opt) == 0)
{
lt_debug = 1;
continue;
}
if (strcmp (argv[i], ltwrapper_option_prefix) == 0)
{
/* however, if there is an option in the LTWRAPPER_OPTION_PREFIX
namespace, but it is not one of the ones we know about and
have already dealt with, above (inluding dump-script), then
report an error. Otherwise, targets might begin to believe
they are allowed to use options in the LTWRAPPER_OPTION_PREFIX
namespace. The first time any user complains about this, we'll
need to make LTWRAPPER_OPTION_PREFIX a configure-time option
or a configure.ac-settable value.
*/
lt_fatal (__FILE__, __LINE__,
"unrecognized %s option: '%s'",
ltwrapper_option_prefix, argv[i]);
}
/* otherwise ... */
newargz[++newargc] = xstrdup (argv[i]);
}
newargz[++newargc] = NULL;
EOF
cat <<EOF
/* The GNU banner must be the first non-error debug message */
lt_debugprintf (__FILE__, __LINE__, "libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\n");
EOF
cat <<"EOF"
lt_debugprintf (__FILE__, __LINE__, "(main) argv[0]: %s\n", argv[0]);
lt_debugprintf (__FILE__, __LINE__, "(main) program_name: %s\n", program_name);
tmp_pathspec = find_executable (argv[0]);
if (tmp_pathspec == NULL)
lt_fatal (__FILE__, __LINE__, "couldn't find %s", argv[0]);
lt_debugprintf (__FILE__, __LINE__,
"(main) found exe (before symlink chase) at: %s\n",
tmp_pathspec);
actual_cwrapper_path = chase_symlinks (tmp_pathspec);
lt_debugprintf (__FILE__, __LINE__,
"(main) found exe (after symlink chase) at: %s\n",
actual_cwrapper_path);
XFREE (tmp_pathspec);
actual_cwrapper_name = xstrdup (base_name (actual_cwrapper_path));
strendzap (actual_cwrapper_path, actual_cwrapper_name);
/* wrapper name transforms */
strendzap (actual_cwrapper_name, ".exe");
tmp_pathspec = lt_extend_str (actual_cwrapper_name, ".exe", 1);
XFREE (actual_cwrapper_name);
actual_cwrapper_name = tmp_pathspec;
tmp_pathspec = 0;
/* target_name transforms -- use actual target program name; might have lt- prefix */
target_name = xstrdup (base_name (TARGET_PROGRAM_NAME));
strendzap (target_name, ".exe");
tmp_pathspec = lt_extend_str (target_name, ".exe", 1);
XFREE (target_name);
target_name = tmp_pathspec;
tmp_pathspec = 0;
lt_debugprintf (__FILE__, __LINE__,
"(main) libtool target name: %s\n",
target_name);
EOF
cat <<EOF
newargz[0] =
XMALLOC (char, (strlen (actual_cwrapper_path) +
strlen ("$objdir") + 1 + strlen (actual_cwrapper_name) + 1));
strcpy (newargz[0], actual_cwrapper_path);
strcat (newargz[0], "$objdir");
strcat (newargz[0], "/");
EOF
cat <<"EOF"
/* stop here, and copy so we don't have to do this twice */
tmp_pathspec = xstrdup (newargz[0]);
/* do NOT want the lt- prefix here, so use actual_cwrapper_name */
strcat (newargz[0], actual_cwrapper_name);
/* DO want the lt- prefix here if it exists, so use target_name */
lt_argv_zero = lt_extend_str (tmp_pathspec, target_name, 1);
XFREE (tmp_pathspec);
tmp_pathspec = NULL;
EOF
case $host_os in
mingw*)
cat <<"EOF"
{
char* p;
while ((p = strchr (newargz[0], '\\')) != NULL)
{
*p = '/';
}
while ((p = strchr (lt_argv_zero, '\\')) != NULL)
{
*p = '/';
}
}
EOF
;;
esac
cat <<"EOF"
XFREE (target_name);
XFREE (actual_cwrapper_path);
XFREE (actual_cwrapper_name);
lt_setenv ("BIN_SH", "xpg4"); /* for Tru64 */
lt_setenv ("DUALCASE", "1"); /* for MSK sh */
/* Update the DLL searchpath. EXE_PATH_VALUE ($dllsearchpath) must
be prepended before (that is, appear after) LIB_PATH_VALUE ($temp_rpath)
because on Windows, both *_VARNAMEs are PATH but uninstalled
libraries must come first. */
lt_update_exe_path (EXE_PATH_VARNAME, EXE_PATH_VALUE);
lt_update_lib_path (LIB_PATH_VARNAME, LIB_PATH_VALUE);
lt_debugprintf (__FILE__, __LINE__, "(main) lt_argv_zero: %s\n",
nonnull (lt_argv_zero));
for (i = 0; i < newargc; i++)
{
lt_debugprintf (__FILE__, __LINE__, "(main) newargz[%d]: %s\n",
i, nonnull (newargz[i]));
}
EOF
case $host_os in
mingw*)
cat <<"EOF"
/* execv doesn't actually work on mingw as expected on unix */
newargz = prepare_spawn (newargz);
rval = _spawnv (_P_WAIT, lt_argv_zero, (const char * const *) newargz);
if (rval == -1)
{
/* failed to start process */
lt_debugprintf (__FILE__, __LINE__,
"(main) failed to launch target \"%s\": %s\n",
lt_argv_zero, nonnull (strerror (errno)));
return 127;
}
return rval;
EOF
;;
*)
cat <<"EOF"
execv (lt_argv_zero, newargz);
return rval; /* =127, but avoids unused variable warning */
EOF
;;
esac
cat <<"EOF"
}
void *
xmalloc (size_t num)
{
void *p = (void *) malloc (num);
if (!p)
lt_fatal (__FILE__, __LINE__, "memory exhausted");
return p;
}
char *
xstrdup (const char *string)
{
return string ? strcpy ((char *) xmalloc (strlen (string) + 1),
string) : NULL;
}
const char *
base_name (const char *name)
{
const char *base;
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
/* Skip over the disk name in MSDOS pathnames. */
if (isalpha ((unsigned char) name[0]) && name[1] == ':')
name += 2;
#endif
for (base = name; *name; name++)
if (IS_DIR_SEPARATOR (*name))
base = name + 1;
return base;
}
int
check_executable (const char *path)
{
struct stat st;
lt_debugprintf (__FILE__, __LINE__, "(check_executable): %s\n",
nonempty (path));
if ((!path) || (!*path))
return 0;
if ((stat (path, &st) >= 0)
&& (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH)))
return 1;
else
return 0;
}
int
make_executable (const char *path)
{
int rval = 0;
struct stat st;
lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n",
nonempty (path));
if ((!path) || (!*path))
return 0;
if (stat (path, &st) >= 0)
{
rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR);
}
return rval;
}
/* Searches for the full path of the wrapper. Returns
newly allocated full path name if found, NULL otherwise
Does not chase symlinks, even on platforms that support them.
*/
char *
find_executable (const char *wrapper)
{
int has_slash = 0;
const char *p;
const char *p_next;
/* static buffer for getcwd */
char tmp[LT_PATHMAX + 1];
int tmp_len;
char *concat_name;
lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n",
nonempty (wrapper));
if ((wrapper == NULL) || (*wrapper == '\0'))
return NULL;
/* Absolute path? */
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':')
{
concat_name = xstrdup (wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
else
{
#endif
if (IS_DIR_SEPARATOR (wrapper[0]))
{
concat_name = xstrdup (wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
}
#endif
for (p = wrapper; *p; p++)
if (*p == '/')
{
has_slash = 1;
break;
}
if (!has_slash)
{
/* no slashes; search PATH */
const char *path = getenv ("PATH");
if (path != NULL)
{
for (p = path; *p; p = p_next)
{
const char *q;
size_t p_len;
for (q = p; *q; q++)
if (IS_PATH_SEPARATOR (*q))
break;
p_len = q - p;
p_next = (*q == '\0' ? q : q + 1);
if (p_len == 0)
{
/* empty path: current directory */
if (getcwd (tmp, LT_PATHMAX) == NULL)
lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
nonnull (strerror (errno)));
tmp_len = strlen (tmp);
concat_name =
XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, tmp, tmp_len);
concat_name[tmp_len] = '/';
strcpy (concat_name + tmp_len + 1, wrapper);
}
else
{
concat_name =
XMALLOC (char, p_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, p, p_len);
concat_name[p_len] = '/';
strcpy (concat_name + p_len + 1, wrapper);
}
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
}
}
/* not found in PATH; assume curdir */
}
/* Relative path | not found in path: prepend cwd */
if (getcwd (tmp, LT_PATHMAX) == NULL)
lt_fatal (__FILE__, __LINE__, "getcwd failed: %s",
nonnull (strerror (errno)));
tmp_len = strlen (tmp);
concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1);
memcpy (concat_name, tmp, tmp_len);
concat_name[tmp_len] = '/';
strcpy (concat_name + tmp_len + 1, wrapper);
if (check_executable (concat_name))
return concat_name;
XFREE (concat_name);
return NULL;
}
char *
chase_symlinks (const char *pathspec)
{
#ifndef S_ISLNK
return xstrdup (pathspec);
#else
char buf[LT_PATHMAX];
struct stat s;
char *tmp_pathspec = xstrdup (pathspec);
char *p;
int has_symlinks = 0;
while (strlen (tmp_pathspec) && !has_symlinks)
{
lt_debugprintf (__FILE__, __LINE__,
"checking path component for symlinks: %s\n",
tmp_pathspec);
if (lstat (tmp_pathspec, &s) == 0)
{
if (S_ISLNK (s.st_mode) != 0)
{
has_symlinks = 1;
break;
}
/* search backwards for last DIR_SEPARATOR */
p = tmp_pathspec + strlen (tmp_pathspec) - 1;
while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
p--;
if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p)))
{
/* no more DIR_SEPARATORS left */
break;
}
*p = '\0';
}
else
{
lt_fatal (__FILE__, __LINE__,
"error accessing file \"%s\": %s",
tmp_pathspec, nonnull (strerror (errno)));
}
}
XFREE (tmp_pathspec);
if (!has_symlinks)
{
return xstrdup (pathspec);
}
tmp_pathspec = realpath (pathspec, buf);
if (tmp_pathspec == 0)
{
lt_fatal (__FILE__, __LINE__,
"could not follow symlinks for %s", pathspec);
}
return xstrdup (tmp_pathspec);
#endif
}
char *
strendzap (char *str, const char *pat)
{
size_t len, patlen;
assert (str != NULL);
assert (pat != NULL);
len = strlen (str);
patlen = strlen (pat);
if (patlen <= len)
{
str += len - patlen;
if (strcmp (str, pat) == 0)
*str = '\0';
}
return str;
}
void
lt_debugprintf (const char *file, int line, const char *fmt, ...)
{
va_list args;
if (lt_debug)
{
(void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line);
va_start (args, fmt);
(void) vfprintf (stderr, fmt, args);
va_end (args);
}
}
static void
lt_error_core (int exit_status, const char *file,
int line, const char *mode,
const char *message, va_list ap)
{
fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode);
vfprintf (stderr, message, ap);
fprintf (stderr, ".\n");
if (exit_status >= 0)
exit (exit_status);
}
void
lt_fatal (const char *file, int line, const char *message, ...)
{
va_list ap;
va_start (ap, message);
lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap);
va_end (ap);
}
static const char *
nonnull (const char *s)
{
return s ? s : "(null)";
}
static const char *
nonempty (const char *s)
{
return (s && !*s) ? "(empty)" : nonnull (s);
}
void
lt_setenv (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_setenv) setting '%s' to '%s'\n",
nonnull (name), nonnull (value));
{
#ifdef HAVE_SETENV
/* always make a copy, for consistency with !HAVE_SETENV */
char *str = xstrdup (value);
setenv (name, str, 1);
#else
int len = strlen (name) + 1 + strlen (value) + 1;
char *str = XMALLOC (char, len);
sprintf (str, "%s=%s", name, value);
if (putenv (str) != EXIT_SUCCESS)
{
XFREE (str);
}
#endif
}
}
char *
lt_extend_str (const char *orig_value, const char *add, int to_end)
{
char *new_value;
if (orig_value && *orig_value)
{
int orig_value_len = strlen (orig_value);
int add_len = strlen (add);
new_value = XMALLOC (char, add_len + orig_value_len + 1);
if (to_end)
{
strcpy (new_value, orig_value);
strcpy (new_value + orig_value_len, add);
}
else
{
strcpy (new_value, add);
strcpy (new_value + add_len, orig_value);
}
}
else
{
new_value = xstrdup (add);
}
return new_value;
}
void
lt_update_exe_path (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_update_exe_path) modifying '%s' by prepending '%s'\n",
nonnull (name), nonnull (value));
if (name && *name && value && *value)
{
char *new_value = lt_extend_str (getenv (name), value, 0);
/* some systems can't cope with a ':'-terminated path #' */
int len = strlen (new_value);
while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1]))
{
new_value[len-1] = '\0';
}
lt_setenv (name, new_value);
XFREE (new_value);
}
}
void
lt_update_lib_path (const char *name, const char *value)
{
lt_debugprintf (__FILE__, __LINE__,
"(lt_update_lib_path) modifying '%s' by prepending '%s'\n",
nonnull (name), nonnull (value));
if (name && *name && value && *value)
{
char *new_value = lt_extend_str (getenv (name), value, 0);
lt_setenv (name, new_value);
XFREE (new_value);
}
}
EOF
case $host_os in
mingw*)
cat <<"EOF"
/* Prepares an argument vector before calling spawn().
Note that spawn() does not by itself call the command interpreter
(getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") :
({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&v);
v.dwPlatformId == VER_PLATFORM_WIN32_NT;
}) ? "cmd.exe" : "command.com").
Instead it simply concatenates the arguments, separated by ' ', and calls
CreateProcess(). We must quote the arguments since Win32 CreateProcess()
interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a
special way:
- Space and tab are interpreted as delimiters. They are not treated as
delimiters if they are surrounded by double quotes: "...".
- Unescaped double quotes are removed from the input. Their only effect is
that within double quotes, space and tab are treated like normal
characters.
- Backslashes not followed by double quotes are not special.
- But 2*n+1 backslashes followed by a double quote become
n backslashes followed by a double quote (n >= 0):
\" -> "
\\\" -> \"
\\\\\" -> \\"
*/
#define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
#define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037"
char **
prepare_spawn (char **argv)
{
size_t argc;
char **new_argv;
size_t i;
/* Count number of arguments. */
for (argc = 0; argv[argc] != NULL; argc++)
;
/* Allocate new argument vector. */
new_argv = XMALLOC (char *, argc + 1);
/* Put quoted arguments into the new argument vector. */
for (i = 0; i < argc; i++)
{
const char *string = argv[i];
if (string[0] == '\0')
new_argv[i] = xstrdup ("\"\"");
else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL)
{
int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL);
size_t length;
unsigned int backslashes;
const char *s;
char *quoted_string;
char *p;
length = 0;
backslashes = 0;
if (quote_around)
length++;
for (s = string; *s != '\0'; s++)
{
char c = *s;
if (c == '"')
length += backslashes + 1;
length++;
if (c == '\\')
backslashes++;
else
backslashes = 0;
}
if (quote_around)
length += backslashes + 1;
quoted_string = XMALLOC (char, length + 1);
p = quoted_string;
backslashes = 0;
if (quote_around)
*p++ = '"';
for (s = string; *s != '\0'; s++)
{
char c = *s;
if (c == '"')
{
unsigned int j;
for (j = backslashes + 1; j > 0; j--)
*p++ = '\\';
}
*p++ = c;
if (c == '\\')
backslashes++;
else
backslashes = 0;
}
if (quote_around)
{
unsigned int j;
for (j = backslashes; j > 0; j--)
*p++ = '\\';
*p++ = '"';
}
*p = '\0';
new_argv[i] = quoted_string;
}
else
new_argv[i] = (char *) string;
}
new_argv[argc] = NULL;
return new_argv;
}
EOF
;;
esac
cat <<"EOF"
void lt_dump_script (FILE* f)
{
EOF
func_emit_wrapper yes |
- $SED -e 's/\([\\"]\)/\\\1/g' \
- -e 's/^/ fputs ("/' -e 's/$/\\n", f);/'
-
+ $SED -n -e '
+s/^\(.\{79\}\)\(..*\)/\1\
+\2/
+h
+s/\([\\"]\)/\\\1/g
+s/$/\\n/
+s/\([^\n]*\).*/ fputs ("\1", f);/p
+g
+D'
cat <<"EOF"
}
EOF
}
# end: func_emit_cwrapperexe_src
# func_win32_import_lib_p ARG
# True if ARG is an import lib, as indicated by $file_magic_cmd
func_win32_import_lib_p ()
{
$opt_debug
case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in
*import*) : ;;
*) false ;;
esac
}
# func_mode_link arg...
func_mode_link ()
{
$opt_debug
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
# It is impossible to link a dll without this setting, and
# we shouldn't force the makefile maintainer to figure out
# which system we are compiling for in order to pass an extra
# flag for every libtool invocation.
# allow_undefined=no
# FIXME: Unfortunately, there are problems with the above when trying
# to make a dll which has undefined symbols, in which case not
# even a static library is built. For now, we need to specify
# -no-undefined on the libtool link line when we can be certain
# that all symbols are satisfied, otherwise we get a static library.
allow_undefined=yes
;;
*)
allow_undefined=yes
;;
esac
libtool_args=$nonopt
base_compile="$nonopt $@"
compile_command=$nonopt
finalize_command=$nonopt
compile_rpath=
finalize_rpath=
compile_shlibpath=
finalize_shlibpath=
convenience=
old_convenience=
deplibs=
old_deplibs=
compiler_flags=
linker_flags=
dllsearchpath=
lib_search_path=`pwd`
inst_prefix_dir=
new_inherited_linker_flags=
avoid_version=no
bindir=
dlfiles=
dlprefiles=
dlself=no
export_dynamic=no
export_symbols=
export_symbols_regex=
generated=
libobjs=
ltlibs=
module=no
no_install=no
objs=
non_pic_objects=
precious_files_regex=
prefer_static_libs=no
preload=no
prev=
prevarg=
release=
rpath=
xrpath=
perm_rpath=
temp_rpath=
thread_safe=no
vinfo=
vinfo_number=no
weak_libs=
single_module="${wl}-single_module"
func_infer_tag $base_compile
# We need to know -static, to get the right output filenames.
for arg
do
case $arg in
-shared)
test "$build_libtool_libs" != yes && \
func_fatal_configuration "can not build a shared library"
build_old_libs=no
break
;;
-all-static | -static | -static-libtool-libs)
case $arg in
-all-static)
if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then
func_warning "complete static linking is impossible in this configuration"
fi
if test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=yes
;;
-static)
if test -z "$pic_flag" && test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=built
;;
-static-libtool-libs)
if test -z "$pic_flag" && test -n "$link_static_flag"; then
dlopen_self=$dlopen_self_static
fi
prefer_static_libs=yes
;;
esac
build_libtool_libs=no
build_old_libs=yes
break
;;
esac
done
# See if our shared archives depend on static archives.
test -n "$old_archive_from_new_cmds" && build_old_libs=yes
# Go through the arguments, transforming them on the way.
while test "$#" -gt 0; do
arg="$1"
shift
func_quote_for_eval "$arg"
qarg=$func_quote_for_eval_unquoted_result
- func_append libtool_args " $func_quote_for_eval_result"
+ libtool_args+=" $func_quote_for_eval_result"
# If the previous option needs an argument, assign it.
if test -n "$prev"; then
case $prev in
output)
- func_append compile_command " @OUTPUT@"
- func_append finalize_command " @OUTPUT@"
+ compile_command+=" @OUTPUT@"
+ finalize_command+=" @OUTPUT@"
;;
esac
case $prev in
bindir)
bindir="$arg"
prev=
continue
;;
dlfiles|dlprefiles)
if test "$preload" = no; then
# Add the symbol object into the linking commands.
- func_append compile_command " @SYMFILE@"
- func_append finalize_command " @SYMFILE@"
+ compile_command+=" @SYMFILE@"
+ finalize_command+=" @SYMFILE@"
preload=yes
fi
case $arg in
*.la | *.lo) ;; # We handle these cases below.
force)
if test "$dlself" = no; then
dlself=needless
export_dynamic=yes
fi
prev=
continue
;;
self)
if test "$prev" = dlprefiles; then
dlself=yes
elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then
dlself=yes
else
dlself=needless
export_dynamic=yes
fi
prev=
continue
;;
*)
if test "$prev" = dlfiles; then
- func_append dlfiles " $arg"
+ dlfiles+=" $arg"
else
- func_append dlprefiles " $arg"
+ dlprefiles+=" $arg"
fi
prev=
continue
;;
esac
;;
expsyms)
export_symbols="$arg"
test -f "$arg" \
|| func_fatal_error "symbol file \`$arg' does not exist"
prev=
continue
;;
expsyms_regex)
export_symbols_regex="$arg"
prev=
continue
;;
framework)
case $host in
*-*-darwin*)
case "$deplibs " in
*" $qarg.ltframework "*) ;;
- *) func_append deplibs " $qarg.ltframework" # this is fixed later
+ *) deplibs+=" $qarg.ltframework" # this is fixed later
;;
esac
;;
esac
prev=
continue
;;
inst_prefix)
inst_prefix_dir="$arg"
prev=
continue
;;
objectlist)
if test -f "$arg"; then
save_arg=$arg
moreargs=
for fil in `cat "$save_arg"`
do
-# func_append moreargs " $fil"
+# moreargs+=" $fil"
arg=$fil
# A libtool-controlled object.
# Check to see that this really is a libtool object.
if func_lalib_unsafe_p "$arg"; then
pic_object=
non_pic_object=
# Read the .lo file
func_source "$arg"
if test -z "$pic_object" ||
test -z "$non_pic_object" ||
test "$pic_object" = none &&
test "$non_pic_object" = none; then
func_fatal_error "cannot find name of object for \`$arg'"
fi
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
if test "$pic_object" != none; then
# Prepend the subdirectory the object is found in.
pic_object="$xdir$pic_object"
if test "$prev" = dlfiles; then
if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
- func_append dlfiles " $pic_object"
+ dlfiles+=" $pic_object"
prev=
continue
else
# If libtool objects are unsupported, then we need to preload.
prev=dlprefiles
fi
fi
# CHECK ME: I think I busted this. -Ossama
if test "$prev" = dlprefiles; then
# Preload the old-style object.
- func_append dlprefiles " $pic_object"
+ dlprefiles+=" $pic_object"
prev=
fi
# A PIC object.
- func_append libobjs " $pic_object"
+ libobjs+=" $pic_object"
arg="$pic_object"
fi
# Non-PIC object.
if test "$non_pic_object" != none; then
# Prepend the subdirectory the object is found in.
non_pic_object="$xdir$non_pic_object"
# A standard non-PIC object
- func_append non_pic_objects " $non_pic_object"
+ non_pic_objects+=" $non_pic_object"
if test -z "$pic_object" || test "$pic_object" = none ; then
arg="$non_pic_object"
fi
else
# If the PIC object exists, use it instead.
# $xdir was prepended to $pic_object above.
non_pic_object="$pic_object"
- func_append non_pic_objects " $non_pic_object"
+ non_pic_objects+=" $non_pic_object"
fi
else
# Only an error if not doing a dry-run.
if $opt_dry_run; then
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
func_lo2o "$arg"
pic_object=$xdir$objdir/$func_lo2o_result
non_pic_object=$xdir$func_lo2o_result
- func_append libobjs " $pic_object"
- func_append non_pic_objects " $non_pic_object"
+ libobjs+=" $pic_object"
+ non_pic_objects+=" $non_pic_object"
else
func_fatal_error "\`$arg' is not a valid libtool object"
fi
fi
done
else
func_fatal_error "link input file \`$arg' does not exist"
fi
arg=$save_arg
prev=
continue
;;
precious_regex)
precious_files_regex="$arg"
prev=
continue
;;
release)
release="-$arg"
prev=
continue
;;
rpath | xrpath)
# We need an absolute path.
case $arg in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
func_fatal_error "only absolute run-paths are allowed"
;;
esac
if test "$prev" = rpath; then
case "$rpath " in
*" $arg "*) ;;
- *) func_append rpath " $arg" ;;
+ *) rpath+=" $arg" ;;
esac
else
case "$xrpath " in
*" $arg "*) ;;
- *) func_append xrpath " $arg" ;;
+ *) xrpath+=" $arg" ;;
esac
fi
prev=
continue
;;
shrext)
shrext_cmds="$arg"
prev=
continue
;;
weak)
- func_append weak_libs " $arg"
+ weak_libs+=" $arg"
prev=
continue
;;
xcclinker)
- func_append linker_flags " $qarg"
- func_append compiler_flags " $qarg"
+ linker_flags+=" $qarg"
+ compiler_flags+=" $qarg"
prev=
- func_append compile_command " $qarg"
- func_append finalize_command " $qarg"
+ compile_command+=" $qarg"
+ finalize_command+=" $qarg"
continue
;;
xcompiler)
- func_append compiler_flags " $qarg"
+ compiler_flags+=" $qarg"
prev=
- func_append compile_command " $qarg"
- func_append finalize_command " $qarg"
+ compile_command+=" $qarg"
+ finalize_command+=" $qarg"
continue
;;
xlinker)
- func_append linker_flags " $qarg"
- func_append compiler_flags " $wl$qarg"
+ linker_flags+=" $qarg"
+ compiler_flags+=" $wl$qarg"
prev=
- func_append compile_command " $wl$qarg"
- func_append finalize_command " $wl$qarg"
+ compile_command+=" $wl$qarg"
+ finalize_command+=" $wl$qarg"
continue
;;
*)
eval "$prev=\"\$arg\""
prev=
continue
;;
esac
fi # test -n "$prev"
prevarg="$arg"
case $arg in
-all-static)
if test -n "$link_static_flag"; then
# See comment for -static flag below, for more details.
- func_append compile_command " $link_static_flag"
- func_append finalize_command " $link_static_flag"
+ compile_command+=" $link_static_flag"
+ finalize_command+=" $link_static_flag"
fi
continue
;;
-allow-undefined)
# FIXME: remove this flag sometime in the future.
func_fatal_error "\`-allow-undefined' must not be used because it is the default"
;;
-avoid-version)
avoid_version=yes
continue
;;
-bindir)
prev=bindir
continue
;;
-dlopen)
prev=dlfiles
continue
;;
-dlpreopen)
prev=dlprefiles
continue
;;
-export-dynamic)
export_dynamic=yes
continue
;;
-export-symbols | -export-symbols-regex)
if test -n "$export_symbols" || test -n "$export_symbols_regex"; then
func_fatal_error "more than one -exported-symbols argument is not allowed"
fi
if test "X$arg" = "X-export-symbols"; then
prev=expsyms
else
prev=expsyms_regex
fi
continue
;;
-framework)
prev=framework
continue
;;
-inst-prefix-dir)
prev=inst_prefix
continue
;;
# The native IRIX linker understands -LANG:*, -LIST:* and -LNO:*
# so, if we see these flags be careful not to treat them like -L
-L[A-Z][A-Z]*:*)
case $with_gcc/$host in
no/*-*-irix* | /*-*-irix*)
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
;;
esac
continue
;;
-L*)
func_stripname "-L" '' "$arg"
if test -z "$func_stripname_result"; then
if test "$#" -gt 0; then
func_fatal_error "require no space between \`-L' and \`$1'"
else
func_fatal_error "need path for \`-L' option"
fi
fi
func_resolve_sysroot "$func_stripname_result"
dir=$func_resolve_sysroot_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
*)
absdir=`cd "$dir" && pwd`
test -z "$absdir" && \
func_fatal_error "cannot determine absolute directory name of \`$dir'"
dir="$absdir"
;;
esac
case "$deplibs " in
*" -L$dir "* | *" $arg "*)
# Will only happen for absolute or sysroot arguments
;;
*)
# Preserve sysroot, but never include relative directories
case $dir in
- [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;;
- *) func_append deplibs " -L$dir" ;;
+ [\\/]* | [A-Za-z]:[\\/]* | =*) deplibs+=" $arg" ;;
+ *) deplibs+=" -L$dir" ;;
esac
- func_append lib_search_path " $dir"
+ lib_search_path+=" $dir"
;;
esac
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'`
case :$dllsearchpath: in
*":$dir:"*) ;;
::) dllsearchpath=$dir;;
- *) func_append dllsearchpath ":$dir";;
+ *) dllsearchpath+=":$dir";;
esac
case :$dllsearchpath: in
*":$testbindir:"*) ;;
::) dllsearchpath=$testbindir;;
- *) func_append dllsearchpath ":$testbindir";;
+ *) dllsearchpath+=":$testbindir";;
esac
;;
esac
continue
;;
-l*)
if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*)
# These systems don't actually have a C or math library (as such)
continue
;;
*-*-os2*)
# These systems don't actually have a C library (as such)
test "X$arg" = "X-lc" && continue
;;
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc due to us having libc/libc_r.
test "X$arg" = "X-lc" && continue
;;
*-*-rhapsody* | *-*-darwin1.[012])
# Rhapsody C and math libraries are in the System framework
- func_append deplibs " System.ltframework"
+ deplibs+=" System.ltframework"
continue
;;
*-*-sco3.2v5* | *-*-sco5v6*)
# Causes problems with __ctype
test "X$arg" = "X-lc" && continue
;;
*-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
# Compiler inserts libc in the correct place for threads to work
test "X$arg" = "X-lc" && continue
;;
esac
elif test "X$arg" = "X-lc_r"; then
case $host in
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc_r directly, use -pthread flag.
continue
;;
esac
fi
- func_append deplibs " $arg"
+ deplibs+=" $arg"
continue
;;
-module)
module=yes
continue
;;
# Tru64 UNIX uses -model [arg] to determine the layout of C++
# classes, name mangling, and exception handling.
# Darwin uses the -arch flag to determine output architecture.
-model|-arch|-isysroot|--sysroot)
- func_append compiler_flags " $arg"
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
+ compiler_flags+=" $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
prev=xcompiler
continue
;;
- -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads)
- func_append compiler_flags " $arg"
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
+ compiler_flags+=" $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
case "$new_inherited_linker_flags " in
*" $arg "*) ;;
- * ) func_append new_inherited_linker_flags " $arg" ;;
+ * ) new_inherited_linker_flags+=" $arg" ;;
esac
continue
;;
-multi_module)
single_module="${wl}-multi_module"
continue
;;
-no-fast-install)
fast_install=no
continue
;;
-no-install)
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*)
# The PATH hackery in wrapper scripts is required on Windows
# and Darwin in order for the loader to find any dlls it needs.
func_warning "\`-no-install' is ignored for $host"
func_warning "assuming \`-no-fast-install' instead"
fast_install=no
;;
*) no_install=yes ;;
esac
continue
;;
-no-undefined)
allow_undefined=no
continue
;;
-objectlist)
prev=objectlist
continue
;;
-o) prev=output ;;
-precious-files-regex)
prev=precious_regex
continue
;;
-release)
prev=release
continue
;;
-rpath)
prev=rpath
continue
;;
-R)
prev=xrpath
continue
;;
-R*)
func_stripname '-R' '' "$arg"
dir=$func_stripname_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) ;;
=*)
func_stripname '=' '' "$dir"
dir=$lt_sysroot$func_stripname_result
;;
*)
func_fatal_error "only absolute run-paths are allowed"
;;
esac
case "$xrpath " in
*" $dir "*) ;;
- *) func_append xrpath " $dir" ;;
+ *) xrpath+=" $dir" ;;
esac
continue
;;
-shared)
# The effects of -shared are defined in a previous loop.
continue
;;
-shrext)
prev=shrext
continue
;;
-static | -static-libtool-libs)
# The effects of -static are defined in a previous loop.
# We used to do the same as -all-static on platforms that
# didn't have a PIC flag, but the assumption that the effects
# would be equivalent was wrong. It would break on at least
# Digital Unix and AIX.
continue
;;
-thread-safe)
thread_safe=yes
continue
;;
-version-info)
prev=vinfo
continue
;;
-version-number)
prev=vinfo
vinfo_number=yes
continue
;;
-weak)
prev=weak
continue
;;
-Wc,*)
func_stripname '-Wc,' '' "$arg"
args=$func_stripname_result
arg=
save_ifs="$IFS"; IFS=','
for flag in $args; do
IFS="$save_ifs"
func_quote_for_eval "$flag"
- func_append arg " $func_quote_for_eval_result"
- func_append compiler_flags " $func_quote_for_eval_result"
+ arg+=" $func_quote_for_eval_result"
+ compiler_flags+=" $func_quote_for_eval_result"
done
IFS="$save_ifs"
func_stripname ' ' '' "$arg"
arg=$func_stripname_result
;;
-Wl,*)
func_stripname '-Wl,' '' "$arg"
args=$func_stripname_result
arg=
save_ifs="$IFS"; IFS=','
for flag in $args; do
IFS="$save_ifs"
func_quote_for_eval "$flag"
- func_append arg " $wl$func_quote_for_eval_result"
- func_append compiler_flags " $wl$func_quote_for_eval_result"
- func_append linker_flags " $func_quote_for_eval_result"
+ arg+=" $wl$func_quote_for_eval_result"
+ compiler_flags+=" $wl$func_quote_for_eval_result"
+ linker_flags+=" $func_quote_for_eval_result"
done
IFS="$save_ifs"
func_stripname ' ' '' "$arg"
arg=$func_stripname_result
;;
-Xcompiler)
prev=xcompiler
continue
;;
-Xlinker)
prev=xlinker
continue
;;
-XCClinker)
prev=xcclinker
continue
;;
# -msg_* for osf cc
-msg_*)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
# Flags to be passed through unchanged, with rationale:
# -64, -mips[0-9] enable 64-bit mode for the SGI compiler
# -r[0-9][0-9]* specify processor for the SGI compiler
# -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler
# +DA*, +DD* enable 64-bit mode for the HP compiler
# -q* compiler args for the IBM compiler
# -m*, -t[45]*, -txscale* architecture-specific flags for GCC
# -F/path path to uninstalled frameworks, gcc on darwin
# -p, -pg, --coverage, -fprofile-* profiling flags for GCC
# @file GCC response files
# -tp=* Portland pgcc target processor selection
# --sysroot=* for sysroot support
# -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization
-64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \
-t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \
-O*|-flto*|-fwhopr*|-fuse-linker-plugin)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
- func_append compiler_flags " $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
+ compiler_flags+=" $arg"
continue
;;
# Some other compiler flag.
-* | +*)
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
*.$objext)
# A standard object.
- func_append objs " $arg"
+ objs+=" $arg"
;;
*.lo)
# A libtool-controlled object.
# Check to see that this really is a libtool object.
if func_lalib_unsafe_p "$arg"; then
pic_object=
non_pic_object=
# Read the .lo file
func_source "$arg"
if test -z "$pic_object" ||
test -z "$non_pic_object" ||
test "$pic_object" = none &&
test "$non_pic_object" = none; then
func_fatal_error "cannot find name of object for \`$arg'"
fi
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
if test "$pic_object" != none; then
# Prepend the subdirectory the object is found in.
pic_object="$xdir$pic_object"
if test "$prev" = dlfiles; then
if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then
- func_append dlfiles " $pic_object"
+ dlfiles+=" $pic_object"
prev=
continue
else
# If libtool objects are unsupported, then we need to preload.
prev=dlprefiles
fi
fi
# CHECK ME: I think I busted this. -Ossama
if test "$prev" = dlprefiles; then
# Preload the old-style object.
- func_append dlprefiles " $pic_object"
+ dlprefiles+=" $pic_object"
prev=
fi
# A PIC object.
- func_append libobjs " $pic_object"
+ libobjs+=" $pic_object"
arg="$pic_object"
fi
# Non-PIC object.
if test "$non_pic_object" != none; then
# Prepend the subdirectory the object is found in.
non_pic_object="$xdir$non_pic_object"
# A standard non-PIC object
- func_append non_pic_objects " $non_pic_object"
+ non_pic_objects+=" $non_pic_object"
if test -z "$pic_object" || test "$pic_object" = none ; then
arg="$non_pic_object"
fi
else
# If the PIC object exists, use it instead.
# $xdir was prepended to $pic_object above.
non_pic_object="$pic_object"
- func_append non_pic_objects " $non_pic_object"
+ non_pic_objects+=" $non_pic_object"
fi
else
# Only an error if not doing a dry-run.
if $opt_dry_run; then
# Extract subdirectory from the argument.
func_dirname "$arg" "/" ""
xdir="$func_dirname_result"
func_lo2o "$arg"
pic_object=$xdir$objdir/$func_lo2o_result
non_pic_object=$xdir$func_lo2o_result
- func_append libobjs " $pic_object"
- func_append non_pic_objects " $non_pic_object"
+ libobjs+=" $pic_object"
+ non_pic_objects+=" $non_pic_object"
else
func_fatal_error "\`$arg' is not a valid libtool object"
fi
fi
;;
*.$libext)
# An archive.
- func_append deplibs " $arg"
- func_append old_deplibs " $arg"
+ deplibs+=" $arg"
+ old_deplibs+=" $arg"
continue
;;
*.la)
# A libtool-controlled library.
func_resolve_sysroot "$arg"
if test "$prev" = dlfiles; then
# This library was specified with -dlopen.
- func_append dlfiles " $func_resolve_sysroot_result"
+ dlfiles+=" $func_resolve_sysroot_result"
prev=
elif test "$prev" = dlprefiles; then
# The library was specified with -dlpreopen.
- func_append dlprefiles " $func_resolve_sysroot_result"
+ dlprefiles+=" $func_resolve_sysroot_result"
prev=
else
- func_append deplibs " $func_resolve_sysroot_result"
+ deplibs+=" $func_resolve_sysroot_result"
fi
continue
;;
# Some other compiler argument.
*)
# Unknown arguments in both finalize_command and compile_command need
# to be aesthetically quoted because they are evaled later.
func_quote_for_eval "$arg"
arg="$func_quote_for_eval_result"
;;
esac # arg
# Now actually substitute the argument into the commands.
if test -n "$arg"; then
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
fi
done # argument parsing loop
test -n "$prev" && \
func_fatal_help "the \`$prevarg' option requires an argument"
if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then
eval arg=\"$export_dynamic_flag_spec\"
- func_append compile_command " $arg"
- func_append finalize_command " $arg"
+ compile_command+=" $arg"
+ finalize_command+=" $arg"
fi
oldlibs=
# calculate the name of the file, without its directory
func_basename "$output"
outputname="$func_basename_result"
libobjs_save="$libobjs"
if test -n "$shlibpath_var"; then
# get the directories listed in $shlibpath_var
eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\`
else
shlib_search_path=
fi
eval sys_lib_search_path=\"$sys_lib_search_path_spec\"
eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\"
func_dirname "$output" "/" ""
output_objdir="$func_dirname_result$objdir"
func_to_tool_file "$output_objdir/"
tool_output_objdir=$func_to_tool_file_result
# Create the object directory.
func_mkdir_p "$output_objdir"
# Determine the type of output
case $output in
"")
func_fatal_help "you must specify an output file"
;;
*.$libext) linkmode=oldlib ;;
*.lo | *.$objext) linkmode=obj ;;
*.la) linkmode=lib ;;
*) linkmode=prog ;; # Anything else should be a program.
esac
specialdeplibs=
libs=
# Find all interdependent deplibs by searching for libraries
# that are linked more than once (e.g. -la -lb -la)
for deplib in $deplibs; do
if $opt_preserve_dup_deps ; then
case "$libs " in
- *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ *" $deplib "*) specialdeplibs+=" $deplib" ;;
esac
fi
- func_append libs " $deplib"
+ libs+=" $deplib"
done
if test "$linkmode" = lib; then
libs="$predeps $libs $compiler_lib_search_path $postdeps"
# Compute libraries that are listed more than once in $predeps
# $postdeps and mark them as special (i.e., whose duplicates are
# not to be eliminated).
pre_post_deps=
if $opt_duplicate_compiler_generated_deps; then
for pre_post_dep in $predeps $postdeps; do
case "$pre_post_deps " in
- *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;;
+ *" $pre_post_dep "*) specialdeplibs+=" $pre_post_deps" ;;
esac
- func_append pre_post_deps " $pre_post_dep"
+ pre_post_deps+=" $pre_post_dep"
done
fi
pre_post_deps=
fi
deplibs=
newdependency_libs=
newlib_search_path=
need_relink=no # whether we're linking any uninstalled libtool libraries
notinst_deplibs= # not-installed libtool libraries
notinst_path= # paths that contain not-installed libtool libraries
case $linkmode in
lib)
passes="conv dlpreopen link"
for file in $dlfiles $dlprefiles; do
case $file in
*.la) ;;
*)
func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file"
;;
esac
done
;;
prog)
compile_deplibs=
finalize_deplibs=
alldeplibs=no
newdlfiles=
newdlprefiles=
passes="conv scan dlopen dlpreopen link"
;;
*) passes="conv"
;;
esac
for pass in $passes; do
# The preopen pass in lib mode reverses $deplibs; put it back here
# so that -L comes before libs that need it for instance...
if test "$linkmode,$pass" = "lib,link"; then
## FIXME: Find the place where the list is rebuilt in the wrong
## order, and fix it there properly
tmp_deplibs=
for deplib in $deplibs; do
tmp_deplibs="$deplib $tmp_deplibs"
done
deplibs="$tmp_deplibs"
fi
if test "$linkmode,$pass" = "lib,link" ||
test "$linkmode,$pass" = "prog,scan"; then
libs="$deplibs"
deplibs=
fi
if test "$linkmode" = prog; then
case $pass in
dlopen) libs="$dlfiles" ;;
dlpreopen) libs="$dlprefiles" ;;
link) libs="$deplibs %DEPLIBS% $dependency_libs" ;;
esac
fi
if test "$linkmode,$pass" = "lib,dlpreopen"; then
# Collect and forward deplibs of preopened libtool libs
for lib in $dlprefiles; do
# Ignore non-libtool-libs
dependency_libs=
func_resolve_sysroot "$lib"
case $lib in
*.la) func_source "$func_resolve_sysroot_result" ;;
esac
# Collect preopened libtool deplibs, except any this library
# has declared as weak libs
for deplib in $dependency_libs; do
func_basename "$deplib"
deplib_base=$func_basename_result
case " $weak_libs " in
*" $deplib_base "*) ;;
- *) func_append deplibs " $deplib" ;;
+ *) deplibs+=" $deplib" ;;
esac
done
done
libs="$dlprefiles"
fi
if test "$pass" = dlopen; then
# Collect dlpreopened libraries
save_deplibs="$deplibs"
deplibs=
fi
for deplib in $libs; do
lib=
found=no
case $deplib in
- -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe|-threads)
+ -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \
+ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*)
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
- func_append compiler_flags " $deplib"
+ compiler_flags+=" $deplib"
if test "$linkmode" = lib ; then
case "$new_inherited_linker_flags " in
*" $deplib "*) ;;
- * ) func_append new_inherited_linker_flags " $deplib" ;;
+ * ) new_inherited_linker_flags+=" $deplib" ;;
esac
fi
fi
continue
;;
-l*)
if test "$linkmode" != lib && test "$linkmode" != prog; then
func_warning "\`-l' is ignored for archives/objects"
continue
fi
func_stripname '-l' '' "$deplib"
name=$func_stripname_result
if test "$linkmode" = lib; then
searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path"
else
searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path"
fi
for searchdir in $searchdirs; do
for search_ext in .la $std_shrext .so .a; do
# Search the libtool library
lib="$searchdir/lib${name}${search_ext}"
if test -f "$lib"; then
if test "$search_ext" = ".la"; then
found=yes
else
found=no
fi
break 2
fi
done
done
if test "$found" != yes; then
# deplib doesn't seem to be a libtool library
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
fi
continue
else # deplib is a libtool library
# If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib,
# We need to do some special things here, and not later.
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $deplib "*)
if func_lalib_p "$lib"; then
library_names=
old_library=
func_source "$lib"
for l in $old_library $library_names; do
ll="$l"
done
if test "X$ll" = "X$old_library" ; then # only static version available
found=no
func_dirname "$lib" "" "."
ladir="$func_dirname_result"
lib=$ladir/$old_library
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs"
fi
continue
fi
fi
;;
*) ;;
esac
fi
fi
;; # -l
*.ltframework)
if test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
deplibs="$deplib $deplibs"
if test "$linkmode" = lib ; then
case "$new_inherited_linker_flags " in
*" $deplib "*) ;;
- * ) func_append new_inherited_linker_flags " $deplib" ;;
+ * ) new_inherited_linker_flags+=" $deplib" ;;
esac
fi
fi
continue
;;
-L*)
case $linkmode in
lib)
deplibs="$deplib $deplibs"
test "$pass" = conv && continue
newdependency_libs="$deplib $newdependency_libs"
func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
- func_append newlib_search_path " $func_resolve_sysroot_result"
+ newlib_search_path+=" $func_resolve_sysroot_result"
;;
prog)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
continue
fi
if test "$pass" = scan; then
deplibs="$deplib $deplibs"
else
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
fi
func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
- func_append newlib_search_path " $func_resolve_sysroot_result"
+ newlib_search_path+=" $func_resolve_sysroot_result"
;;
*)
func_warning "\`-L' is ignored for archives/objects"
;;
esac # linkmode
continue
;; # -L
-R*)
if test "$pass" = link; then
func_stripname '-R' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
dir=$func_resolve_sysroot_result
# Make sure the xrpath contains only unique directories.
case "$xrpath " in
*" $dir "*) ;;
- *) func_append xrpath " $dir" ;;
+ *) xrpath+=" $dir" ;;
esac
fi
deplibs="$deplib $deplibs"
continue
;;
*.la)
func_resolve_sysroot "$deplib"
lib=$func_resolve_sysroot_result
;;
*.$libext)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
continue
fi
case $linkmode in
lib)
# Linking convenience modules into shared libraries is allowed,
# but linking other static libraries is non-portable.
case " $dlpreconveniencelibs " in
*" $deplib "*) ;;
*)
valid_a_lib=no
case $deplibs_check_method in
match_pattern*)
set dummy $deplibs_check_method; shift
match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \
| $EGREP "$match_pattern_regex" > /dev/null; then
valid_a_lib=yes
fi
;;
pass_all)
valid_a_lib=yes
;;
esac
if test "$valid_a_lib" != yes; then
echo
$ECHO "*** Warning: Trying to link with static lib archive $deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because the file extensions .$libext of this argument makes me believe"
echo "*** that it is just a static archive that I should not use here."
else
echo
$ECHO "*** Warning: Linking the shared library $output against the"
$ECHO "*** static library $deplib is not portable!"
deplibs="$deplib $deplibs"
fi
;;
esac
continue
;;
prog)
if test "$pass" != link; then
deplibs="$deplib $deplibs"
else
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
fi
continue
;;
esac # linkmode
;; # *.$libext
*.lo | *.$objext)
if test "$pass" = conv; then
deplibs="$deplib $deplibs"
elif test "$linkmode" = prog; then
if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then
# If there is no dlopen support or we're linking statically,
# we need to preload.
- func_append newdlprefiles " $deplib"
+ newdlprefiles+=" $deplib"
compile_deplibs="$deplib $compile_deplibs"
finalize_deplibs="$deplib $finalize_deplibs"
else
- func_append newdlfiles " $deplib"
+ newdlfiles+=" $deplib"
fi
fi
continue
;;
%DEPLIBS%)
alldeplibs=yes
continue
;;
esac # case $deplib
if test "$found" = yes || test -f "$lib"; then :
else
func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'"
fi
# Check to see that this really is a libtool archive.
func_lalib_unsafe_p "$lib" \
|| func_fatal_error "\`$lib' is not a valid libtool archive"
func_dirname "$lib" "" "."
ladir="$func_dirname_result"
dlname=
dlopen=
dlpreopen=
libdir=
library_names=
old_library=
inherited_linker_flags=
# If the library was installed with an old release of libtool,
# it will not redefine variables installed, or shouldnotlink
installed=yes
shouldnotlink=no
avoidtemprpath=
# Read the .la file
func_source "$lib"
# Convert "-framework foo" to "foo.ltframework"
if test -n "$inherited_linker_flags"; then
tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'`
for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do
case " $new_inherited_linker_flags " in
*" $tmp_inherited_linker_flag "*) ;;
- *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";;
+ *) new_inherited_linker_flags+=" $tmp_inherited_linker_flag";;
esac
done
fi
dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
if test "$linkmode,$pass" = "lib,link" ||
test "$linkmode,$pass" = "prog,scan" ||
{ test "$linkmode" != prog && test "$linkmode" != lib; }; then
- test -n "$dlopen" && func_append dlfiles " $dlopen"
- test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen"
+ test -n "$dlopen" && dlfiles+=" $dlopen"
+ test -n "$dlpreopen" && dlprefiles+=" $dlpreopen"
fi
if test "$pass" = conv; then
# Only check for convenience libraries
deplibs="$lib $deplibs"
if test -z "$libdir"; then
if test -z "$old_library"; then
func_fatal_error "cannot find name of link library for \`$lib'"
fi
# It is a libtool convenience library, so add in its objects.
- func_append convenience " $ladir/$objdir/$old_library"
- func_append old_convenience " $ladir/$objdir/$old_library"
+ convenience+=" $ladir/$objdir/$old_library"
+ old_convenience+=" $ladir/$objdir/$old_library"
elif test "$linkmode" != prog && test "$linkmode" != lib; then
func_fatal_error "\`$lib' is not a convenience library"
fi
tmp_libs=
for deplib in $dependency_libs; do
deplibs="$deplib $deplibs"
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
- *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ *" $deplib "*) specialdeplibs+=" $deplib" ;;
esac
fi
- func_append tmp_libs " $deplib"
+ tmp_libs+=" $deplib"
done
continue
fi # $pass = conv
# Get the name of the library we link against.
linklib=
if test -n "$old_library" &&
{ test "$prefer_static_libs" = yes ||
test "$prefer_static_libs,$installed" = "built,no"; }; then
linklib=$old_library
else
for l in $old_library $library_names; do
linklib="$l"
done
fi
if test -z "$linklib"; then
func_fatal_error "cannot find name of link library for \`$lib'"
fi
# This library was specified with -dlopen.
if test "$pass" = dlopen; then
if test -z "$libdir"; then
func_fatal_error "cannot -dlopen a convenience library: \`$lib'"
fi
if test -z "$dlname" ||
test "$dlopen_support" != yes ||
test "$build_libtool_libs" = no; then
# If there is no dlname, no dlopen support or we're linking
# statically, we need to preload. We also need to preload any
# dependent libraries so libltdl's deplib preloader doesn't
# bomb out in the load deplibs phase.
- func_append dlprefiles " $lib $dependency_libs"
+ dlprefiles+=" $lib $dependency_libs"
else
- func_append newdlfiles " $lib"
+ newdlfiles+=" $lib"
fi
continue
fi # $pass = dlopen
# We need an absolute path.
case $ladir in
[\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;;
*)
abs_ladir=`cd "$ladir" && pwd`
if test -z "$abs_ladir"; then
func_warning "cannot determine absolute directory name of \`$ladir'"
func_warning "passing it literally to the linker, although it might fail"
abs_ladir="$ladir"
fi
;;
esac
func_basename "$lib"
laname="$func_basename_result"
# Find the relevant object directory and library name.
if test "X$installed" = Xyes; then
if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then
func_warning "library \`$lib' was moved."
dir="$ladir"
absdir="$abs_ladir"
libdir="$abs_ladir"
else
dir="$lt_sysroot$libdir"
absdir="$lt_sysroot$libdir"
fi
test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes
else
if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then
dir="$ladir"
absdir="$abs_ladir"
# Remove this search path later
- func_append notinst_path " $abs_ladir"
+ notinst_path+=" $abs_ladir"
else
dir="$ladir/$objdir"
absdir="$abs_ladir/$objdir"
# Remove this search path later
- func_append notinst_path " $abs_ladir"
+ notinst_path+=" $abs_ladir"
fi
fi # $installed = yes
func_stripname 'lib' '.la' "$laname"
name=$func_stripname_result
# This library was specified with -dlpreopen.
if test "$pass" = dlpreopen; then
if test -z "$libdir" && test "$linkmode" = prog; then
func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'"
fi
case "$host" in
# special handling for platforms with PE-DLLs.
*cygwin* | *mingw* | *cegcc* )
# Linker will automatically link against shared library if both
# static and shared are present. Therefore, ensure we extract
# symbols from the import library if a shared library is present
# (otherwise, the dlopen module name will be incorrect). We do
# this by putting the import library name into $newdlprefiles.
# We recover the dlopen module name by 'saving' the la file
# name in a special purpose variable, and (later) extracting the
# dlname from the la file.
if test -n "$dlname"; then
func_tr_sh "$dir/$linklib"
eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname"
- func_append newdlprefiles " $dir/$linklib"
+ newdlprefiles+=" $dir/$linklib"
else
- func_append newdlprefiles " $dir/$old_library"
+ newdlprefiles+=" $dir/$old_library"
# Keep a list of preopened convenience libraries to check
# that they are being used correctly in the link pass.
test -z "$libdir" && \
- func_append dlpreconveniencelibs " $dir/$old_library"
+ dlpreconveniencelibs+=" $dir/$old_library"
fi
;;
* )
# Prefer using a static library (so that no silly _DYNAMIC symbols
# are required to link).
if test -n "$old_library"; then
- func_append newdlprefiles " $dir/$old_library"
+ newdlprefiles+=" $dir/$old_library"
# Keep a list of preopened convenience libraries to check
# that they are being used correctly in the link pass.
test -z "$libdir" && \
- func_append dlpreconveniencelibs " $dir/$old_library"
+ dlpreconveniencelibs+=" $dir/$old_library"
# Otherwise, use the dlname, so that lt_dlopen finds it.
elif test -n "$dlname"; then
- func_append newdlprefiles " $dir/$dlname"
+ newdlprefiles+=" $dir/$dlname"
else
- func_append newdlprefiles " $dir/$linklib"
+ newdlprefiles+=" $dir/$linklib"
fi
;;
esac
fi # $pass = dlpreopen
if test -z "$libdir"; then
# Link the convenience library
if test "$linkmode" = lib; then
deplibs="$dir/$old_library $deplibs"
elif test "$linkmode,$pass" = "prog,link"; then
compile_deplibs="$dir/$old_library $compile_deplibs"
finalize_deplibs="$dir/$old_library $finalize_deplibs"
else
deplibs="$lib $deplibs" # used for prog,scan pass
fi
continue
fi
if test "$linkmode" = prog && test "$pass" != link; then
- func_append newlib_search_path " $ladir"
+ newlib_search_path+=" $ladir"
deplibs="$lib $deplibs"
linkalldeplibs=no
if test "$link_all_deplibs" != no || test -z "$library_names" ||
test "$build_libtool_libs" = no; then
linkalldeplibs=yes
fi
tmp_libs=
for deplib in $dependency_libs; do
case $deplib in
-L*) func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result"
- func_append newlib_search_path " $func_resolve_sysroot_result"
+ newlib_search_path+=" $func_resolve_sysroot_result"
;;
esac
# Need to link against all dependency_libs?
if test "$linkalldeplibs" = yes; then
deplibs="$deplib $deplibs"
else
# Need to hardcode shared library paths
# or/and link against static libraries
newdependency_libs="$deplib $newdependency_libs"
fi
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
- *" $deplib "*) func_append specialdeplibs " $deplib" ;;
+ *" $deplib "*) specialdeplibs+=" $deplib" ;;
esac
fi
- func_append tmp_libs " $deplib"
+ tmp_libs+=" $deplib"
done # for deplib
continue
fi # $linkmode = prog...
if test "$linkmode,$pass" = "prog,link"; then
if test -n "$library_names" &&
{ { test "$prefer_static_libs" = no ||
test "$prefer_static_libs,$installed" = "built,yes"; } ||
test -z "$old_library"; }; then
# We need to hardcode the library path
if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then
# Make sure the rpath contains only unique directories.
case "$temp_rpath:" in
*"$absdir:"*) ;;
- *) func_append temp_rpath "$absdir:" ;;
+ *) temp_rpath+="$absdir:" ;;
esac
fi
# Hardcode the library path.
# Skip directories that are in the system default run-time
# search path.
case " $sys_lib_dlsearch_path " in
*" $absdir "*) ;;
*)
case "$compile_rpath " in
*" $absdir "*) ;;
- *) func_append compile_rpath " $absdir" ;;
+ *) compile_rpath+=" $absdir" ;;
esac
;;
esac
case " $sys_lib_dlsearch_path " in
*" $libdir "*) ;;
*)
case "$finalize_rpath " in
*" $libdir "*) ;;
- *) func_append finalize_rpath " $libdir" ;;
+ *) finalize_rpath+=" $libdir" ;;
esac
;;
esac
fi # $linkmode,$pass = prog,link...
if test "$alldeplibs" = yes &&
{ test "$deplibs_check_method" = pass_all ||
{ test "$build_libtool_libs" = yes &&
test -n "$library_names"; }; }; then
# We only need to search for static libraries
continue
fi
fi
link_static=no # Whether the deplib will be linked statically
use_static_libs=$prefer_static_libs
if test "$use_static_libs" = built && test "$installed" = yes; then
use_static_libs=no
fi
if test -n "$library_names" &&
{ test "$use_static_libs" = no || test -z "$old_library"; }; then
case $host in
*cygwin* | *mingw* | *cegcc*)
# No point in relinking DLLs because paths are not encoded
- func_append notinst_deplibs " $lib"
+ notinst_deplibs+=" $lib"
need_relink=no
;;
*)
if test "$installed" = no; then
- func_append notinst_deplibs " $lib"
+ notinst_deplibs+=" $lib"
need_relink=yes
fi
;;
esac
# This is a shared library
# Warn about portability, can't link against -module's on some
# systems (darwin). Don't bleat about dlopened modules though!
dlopenmodule=""
for dlpremoduletest in $dlprefiles; do
if test "X$dlpremoduletest" = "X$lib"; then
dlopenmodule="$dlpremoduletest"
break
fi
done
if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then
echo
if test "$linkmode" = prog; then
$ECHO "*** Warning: Linking the executable $output against the loadable module"
else
$ECHO "*** Warning: Linking the shared library $output against the loadable module"
fi
$ECHO "*** $linklib is not portable!"
fi
if test "$linkmode" = lib &&
test "$hardcode_into_libs" = yes; then
# Hardcode the library path.
# Skip directories that are in the system default run-time
# search path.
case " $sys_lib_dlsearch_path " in
*" $absdir "*) ;;
*)
case "$compile_rpath " in
*" $absdir "*) ;;
- *) func_append compile_rpath " $absdir" ;;
+ *) compile_rpath+=" $absdir" ;;
esac
;;
esac
case " $sys_lib_dlsearch_path " in
*" $libdir "*) ;;
*)
case "$finalize_rpath " in
*" $libdir "*) ;;
- *) func_append finalize_rpath " $libdir" ;;
+ *) finalize_rpath+=" $libdir" ;;
esac
;;
esac
fi
if test -n "$old_archive_from_expsyms_cmds"; then
# figure out the soname
set dummy $library_names
shift
realname="$1"
shift
libname=`eval "\\$ECHO \"$libname_spec\""`
# use dlname if we got it. it's perfectly good, no?
if test -n "$dlname"; then
soname="$dlname"
elif test -n "$soname_spec"; then
# bleh windows
case $host in
*cygwin* | mingw* | *cegcc*)
func_arith $current - $age
major=$func_arith_result
versuffix="-$major"
;;
esac
eval soname=\"$soname_spec\"
else
soname="$realname"
fi
# Make a new name for the extract_expsyms_cmds to use
soroot="$soname"
func_basename "$soroot"
soname="$func_basename_result"
func_stripname 'lib' '.dll' "$soname"
newlib=libimp-$func_stripname_result.a
# If the library has no export list, then create one now
if test -f "$output_objdir/$soname-def"; then :
else
func_verbose "extracting exported symbol list from \`$soname'"
func_execute_cmds "$extract_expsyms_cmds" 'exit $?'
fi
# Create $newlib
if test -f "$output_objdir/$newlib"; then :; else
func_verbose "generating import library for \`$soname'"
func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?'
fi
# make sure the library variables are pointing to the new library
dir=$output_objdir
linklib=$newlib
fi # test -n "$old_archive_from_expsyms_cmds"
if test "$linkmode" = prog || test "$opt_mode" != relink; then
add_shlibpath=
add_dir=
add=
lib_linked=yes
case $hardcode_action in
immediate | unsupported)
if test "$hardcode_direct" = no; then
add="$dir/$linklib"
case $host in
*-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;;
*-*-sysv4*uw2*) add_dir="-L$dir" ;;
*-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \
*-*-unixware7*) add_dir="-L$dir" ;;
*-*-darwin* )
# if the lib is a (non-dlopened) module then we can not
# link against it, someone is ignoring the earlier warnings
if /usr/bin/file -L $add 2> /dev/null |
$GREP ": [^:]* bundle" >/dev/null ; then
if test "X$dlopenmodule" != "X$lib"; then
$ECHO "*** Warning: lib $linklib is a module, not a shared library"
if test -z "$old_library" ; then
echo
echo "*** And there doesn't seem to be a static archive available"
echo "*** The link will probably fail, sorry"
else
add="$dir/$old_library"
fi
elif test -n "$old_library"; then
add="$dir/$old_library"
fi
fi
esac
elif test "$hardcode_minus_L" = no; then
case $host in
*-*-sunos*) add_shlibpath="$dir" ;;
esac
add_dir="-L$dir"
add="-l$name"
elif test "$hardcode_shlibpath_var" = no; then
add_shlibpath="$dir"
add="-l$name"
else
lib_linked=no
fi
;;
relink)
if test "$hardcode_direct" = yes &&
test "$hardcode_direct_absolute" = no; then
add="$dir/$linklib"
elif test "$hardcode_minus_L" = yes; then
- add_dir="-L$dir"
+ add_dir="-L$absdir"
# Try looking first in the location we're being installed to.
if test -n "$inst_prefix_dir"; then
case $libdir in
[\\/]*)
- func_append add_dir " -L$inst_prefix_dir$libdir"
+ add_dir+=" -L$inst_prefix_dir$libdir"
;;
esac
fi
add="-l$name"
elif test "$hardcode_shlibpath_var" = yes; then
add_shlibpath="$dir"
add="-l$name"
else
lib_linked=no
fi
;;
*) lib_linked=no ;;
esac
if test "$lib_linked" != yes; then
func_fatal_configuration "unsupported hardcode properties"
fi
if test -n "$add_shlibpath"; then
case :$compile_shlibpath: in
*":$add_shlibpath:"*) ;;
- *) func_append compile_shlibpath "$add_shlibpath:" ;;
+ *) compile_shlibpath+="$add_shlibpath:" ;;
esac
fi
if test "$linkmode" = prog; then
test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs"
test -n "$add" && compile_deplibs="$add $compile_deplibs"
else
test -n "$add_dir" && deplibs="$add_dir $deplibs"
test -n "$add" && deplibs="$add $deplibs"
if test "$hardcode_direct" != yes &&
test "$hardcode_minus_L" != yes &&
test "$hardcode_shlibpath_var" = yes; then
case :$finalize_shlibpath: in
*":$libdir:"*) ;;
- *) func_append finalize_shlibpath "$libdir:" ;;
+ *) finalize_shlibpath+="$libdir:" ;;
esac
fi
fi
fi
if test "$linkmode" = prog || test "$opt_mode" = relink; then
add_shlibpath=
add_dir=
add=
# Finalize command for both is simple: just hardcode it.
if test "$hardcode_direct" = yes &&
test "$hardcode_direct_absolute" = no; then
add="$libdir/$linklib"
elif test "$hardcode_minus_L" = yes; then
add_dir="-L$libdir"
add="-l$name"
elif test "$hardcode_shlibpath_var" = yes; then
case :$finalize_shlibpath: in
*":$libdir:"*) ;;
- *) func_append finalize_shlibpath "$libdir:" ;;
+ *) finalize_shlibpath+="$libdir:" ;;
esac
add="-l$name"
elif test "$hardcode_automatic" = yes; then
if test -n "$inst_prefix_dir" &&
test -f "$inst_prefix_dir$libdir/$linklib" ; then
add="$inst_prefix_dir$libdir/$linklib"
else
add="$libdir/$linklib"
fi
else
# We cannot seem to hardcode it, guess we'll fake it.
add_dir="-L$libdir"
# Try looking first in the location we're being installed to.
if test -n "$inst_prefix_dir"; then
case $libdir in
[\\/]*)
- func_append add_dir " -L$inst_prefix_dir$libdir"
+ add_dir+=" -L$inst_prefix_dir$libdir"
;;
esac
fi
add="-l$name"
fi
if test "$linkmode" = prog; then
test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs"
test -n "$add" && finalize_deplibs="$add $finalize_deplibs"
else
test -n "$add_dir" && deplibs="$add_dir $deplibs"
test -n "$add" && deplibs="$add $deplibs"
fi
fi
elif test "$linkmode" = prog; then
# Here we assume that one of hardcode_direct or hardcode_minus_L
# is not unsupported. This is valid on all known static and
# shared platforms.
if test "$hardcode_direct" != unsupported; then
test -n "$old_library" && linklib="$old_library"
compile_deplibs="$dir/$linklib $compile_deplibs"
finalize_deplibs="$dir/$linklib $finalize_deplibs"
else
compile_deplibs="-l$name -L$dir $compile_deplibs"
finalize_deplibs="-l$name -L$dir $finalize_deplibs"
fi
elif test "$build_libtool_libs" = yes; then
# Not a shared library
if test "$deplibs_check_method" != pass_all; then
# We're trying link a shared library against a static one
# but the system doesn't support it.
# Just print a warning and add the library to dependency_libs so
# that the program can be linked against the static library.
echo
$ECHO "*** Warning: This system can not link to static lib archive $lib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have."
if test "$module" = yes; then
echo "*** But as you try to build a module library, libtool will still create "
echo "*** a static module, that should work as long as the dlopening application"
echo "*** is linked with the -dlopen flag to resolve symbols at runtime."
if test -z "$global_symbol_pipe"; then
echo
echo "*** However, this would only work if libtool was able to extract symbol"
echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
echo "*** not find such a program. So, this module is probably useless."
echo "*** \`nm' from GNU binutils and a full rebuild may help."
fi
if test "$build_old_libs" = no; then
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
fi
else
deplibs="$dir/$old_library $deplibs"
link_static=yes
fi
fi # link shared/static library?
if test "$linkmode" = lib; then
if test -n "$dependency_libs" &&
{ test "$hardcode_into_libs" != yes ||
test "$build_old_libs" = yes ||
test "$link_static" = yes; }; then
# Extract -R from dependency_libs
temp_deplibs=
for libdir in $dependency_libs; do
case $libdir in
-R*) func_stripname '-R' '' "$libdir"
temp_xrpath=$func_stripname_result
case " $xrpath " in
*" $temp_xrpath "*) ;;
- *) func_append xrpath " $temp_xrpath";;
+ *) xrpath+=" $temp_xrpath";;
esac;;
- *) func_append temp_deplibs " $libdir";;
+ *) temp_deplibs+=" $libdir";;
esac
done
dependency_libs="$temp_deplibs"
fi
- func_append newlib_search_path " $absdir"
+ newlib_search_path+=" $absdir"
# Link against this library
test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs"
# ... and its dependency_libs
tmp_libs=
for deplib in $dependency_libs; do
newdependency_libs="$deplib $newdependency_libs"
case $deplib in
-L*) func_stripname '-L' '' "$deplib"
func_resolve_sysroot "$func_stripname_result";;
*) func_resolve_sysroot "$deplib" ;;
esac
if $opt_preserve_dup_deps ; then
case "$tmp_libs " in
*" $func_resolve_sysroot_result "*)
- func_append specialdeplibs " $func_resolve_sysroot_result" ;;
+ specialdeplibs+=" $func_resolve_sysroot_result" ;;
esac
fi
- func_append tmp_libs " $func_resolve_sysroot_result"
+ tmp_libs+=" $func_resolve_sysroot_result"
done
if test "$link_all_deplibs" != no; then
# Add the search paths of all dependency libraries
for deplib in $dependency_libs; do
path=
case $deplib in
-L*) path="$deplib" ;;
*.la)
func_resolve_sysroot "$deplib"
deplib=$func_resolve_sysroot_result
func_dirname "$deplib" "" "."
dir=$func_dirname_result
# We need an absolute path.
case $dir in
[\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;;
*)
absdir=`cd "$dir" && pwd`
if test -z "$absdir"; then
func_warning "cannot determine absolute directory name of \`$dir'"
absdir="$dir"
fi
;;
esac
if $GREP "^installed=no" $deplib > /dev/null; then
case $host in
*-*-darwin*)
depdepl=
eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib`
if test -n "$deplibrary_names" ; then
for tmp in $deplibrary_names ; do
depdepl=$tmp
done
if test -f "$absdir/$objdir/$depdepl" ; then
depdepl="$absdir/$objdir/$depdepl"
darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
if test -z "$darwin_install_name"; then
darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'`
fi
- func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}"
- func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}"
+ compiler_flags+=" ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}"
+ linker_flags+=" -dylib_file ${darwin_install_name}:${depdepl}"
path=
fi
fi
;;
*)
path="-L$absdir/$objdir"
;;
esac
else
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
test -z "$libdir" && \
func_fatal_error "\`$deplib' is not a valid libtool archive"
test "$absdir" != "$libdir" && \
func_warning "\`$deplib' seems to be moved"
path="-L$absdir"
fi
;;
esac
case " $deplibs " in
*" $path "*) ;;
*) deplibs="$path $deplibs" ;;
esac
done
fi # link_all_deplibs != no
fi # linkmode = lib
done # for deplib in $libs
if test "$pass" = link; then
if test "$linkmode" = "prog"; then
compile_deplibs="$new_inherited_linker_flags $compile_deplibs"
finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs"
else
compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
fi
fi
dependency_libs="$newdependency_libs"
if test "$pass" = dlpreopen; then
# Link the dlpreopened libraries before other libraries
for deplib in $save_deplibs; do
deplibs="$deplib $deplibs"
done
fi
if test "$pass" != dlopen; then
if test "$pass" != conv; then
# Make sure lib_search_path contains only unique directories.
lib_search_path=
for dir in $newlib_search_path; do
case "$lib_search_path " in
*" $dir "*) ;;
- *) func_append lib_search_path " $dir" ;;
+ *) lib_search_path+=" $dir" ;;
esac
done
newlib_search_path=
fi
if test "$linkmode,$pass" != "prog,link"; then
vars="deplibs"
else
vars="compile_deplibs finalize_deplibs"
fi
for var in $vars dependency_libs; do
# Add libraries to $var in reverse order
eval tmp_libs=\"\$$var\"
new_libs=
for deplib in $tmp_libs; do
# FIXME: Pedantically, this is the right thing to do, so
# that some nasty dependency loop isn't accidentally
# broken:
#new_libs="$deplib $new_libs"
# Pragmatically, this seems to cause very few problems in
# practice:
case $deplib in
-L*) new_libs="$deplib $new_libs" ;;
-R*) ;;
*)
# And here is the reason: when a library appears more
# than once as an explicit dependence of a library, or
# is implicitly linked in more than once by the
# compiler, it is considered special, and multiple
# occurrences thereof are not removed. Compare this
# with having the same library being listed as a
# dependency of multiple other libraries: in this case,
# we know (pedantically, we assume) the library does not
# need to be listed more than once, so we keep only the
# last copy. This is not always right, but it is rare
# enough that we require users that really mean to play
# such unportable linking tricks to link the library
# using -Wl,-lname, so that libtool does not consider it
# for duplicate removal.
case " $specialdeplibs " in
*" $deplib "*) new_libs="$deplib $new_libs" ;;
*)
case " $new_libs " in
*" $deplib "*) ;;
*) new_libs="$deplib $new_libs" ;;
esac
;;
esac
;;
esac
done
tmp_libs=
for deplib in $new_libs; do
case $deplib in
-L*)
case " $tmp_libs " in
*" $deplib "*) ;;
- *) func_append tmp_libs " $deplib" ;;
+ *) tmp_libs+=" $deplib" ;;
esac
;;
- *) func_append tmp_libs " $deplib" ;;
+ *) tmp_libs+=" $deplib" ;;
esac
done
eval $var=\"$tmp_libs\"
done # for var
fi
# Last step: remove runtime libs from dependency_libs
# (they stay in deplibs)
tmp_libs=
for i in $dependency_libs ; do
case " $predeps $postdeps $compiler_lib_search_path " in
*" $i "*)
i=""
;;
esac
if test -n "$i" ; then
- func_append tmp_libs " $i"
+ tmp_libs+=" $i"
fi
done
dependency_libs=$tmp_libs
done # for pass
if test "$linkmode" = prog; then
dlfiles="$newdlfiles"
fi
if test "$linkmode" = prog || test "$linkmode" = lib; then
dlprefiles="$newdlprefiles"
fi
case $linkmode in
oldlib)
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
func_warning "\`-dlopen' is ignored for archives"
fi
case " $deplibs" in
*\ -l* | *\ -L*)
func_warning "\`-l' and \`-L' are ignored for archives" ;;
esac
test -n "$rpath" && \
func_warning "\`-rpath' is ignored for archives"
test -n "$xrpath" && \
func_warning "\`-R' is ignored for archives"
test -n "$vinfo" && \
func_warning "\`-version-info/-version-number' is ignored for archives"
test -n "$release" && \
func_warning "\`-release' is ignored for archives"
test -n "$export_symbols$export_symbols_regex" && \
func_warning "\`-export-symbols' is ignored for archives"
# Now set the variables for building old libraries.
build_libtool_libs=no
oldlibs="$output"
- func_append objs "$old_deplibs"
+ objs+="$old_deplibs"
;;
lib)
# Make sure we only generate libraries of the form `libNAME.la'.
case $outputname in
lib*)
func_stripname 'lib' '.la' "$outputname"
name=$func_stripname_result
eval shared_ext=\"$shrext_cmds\"
eval libname=\"$libname_spec\"
;;
*)
test "$module" = no && \
func_fatal_help "libtool library \`$output' must begin with \`lib'"
if test "$need_lib_prefix" != no; then
# Add the "lib" prefix for modules if required
func_stripname '' '.la' "$outputname"
name=$func_stripname_result
eval shared_ext=\"$shrext_cmds\"
eval libname=\"$libname_spec\"
else
func_stripname '' '.la' "$outputname"
libname=$func_stripname_result
fi
;;
esac
if test -n "$objs"; then
if test "$deplibs_check_method" != pass_all; then
func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs"
else
echo
$ECHO "*** Warning: Linking the shared library $output against the non-libtool"
$ECHO "*** objects $objs is not portable!"
- func_append libobjs " $objs"
+ libobjs+=" $objs"
fi
fi
test "$dlself" != no && \
func_warning "\`-dlopen self' is ignored for libtool libraries"
set dummy $rpath
shift
test "$#" -gt 1 && \
func_warning "ignoring multiple \`-rpath's for a libtool library"
install_libdir="$1"
oldlibs=
if test -z "$rpath"; then
if test "$build_libtool_libs" = yes; then
# Building a libtool convenience library.
# Some compilers have problems with a `.al' extension so
# convenience libraries should have the same extension an
# archive normally would.
oldlibs="$output_objdir/$libname.$libext $oldlibs"
build_libtool_libs=convenience
build_old_libs=yes
fi
test -n "$vinfo" && \
func_warning "\`-version-info/-version-number' is ignored for convenience libraries"
test -n "$release" && \
func_warning "\`-release' is ignored for convenience libraries"
else
# Parse the version information argument.
save_ifs="$IFS"; IFS=':'
set dummy $vinfo 0 0 0
shift
IFS="$save_ifs"
test -n "$7" && \
func_fatal_help "too many parameters to \`-version-info'"
# convert absolute version numbers to libtool ages
# this retains compatibility with .la files and attempts
# to make the code below a bit more comprehensible
case $vinfo_number in
yes)
number_major="$1"
number_minor="$2"
number_revision="$3"
#
# There are really only two kinds -- those that
# use the current revision as the major version
# and those that subtract age and use age as
# a minor version. But, then there is irix
# which has an extra 1 added just for fun
#
case $version_type in
+ # correct linux to gnu/linux during the next big refactor
darwin|linux|osf|windows|none)
func_arith $number_major + $number_minor
current=$func_arith_result
age="$number_minor"
revision="$number_revision"
;;
freebsd-aout|freebsd-elf|qnx|sunos)
current="$number_major"
revision="$number_minor"
age="0"
;;
irix|nonstopux)
func_arith $number_major + $number_minor
current=$func_arith_result
age="$number_minor"
revision="$number_minor"
lt_irix_increment=no
;;
esac
;;
no)
current="$1"
revision="$2"
age="$3"
;;
esac
# Check that each of the things are valid numbers.
case $current in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "CURRENT \`$current' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
case $revision in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "REVISION \`$revision' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
case $age in
0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;;
*)
func_error "AGE \`$age' must be a nonnegative integer"
func_fatal_error "\`$vinfo' is not valid version information"
;;
esac
if test "$age" -gt "$current"; then
func_error "AGE \`$age' is greater than the current interface number \`$current'"
func_fatal_error "\`$vinfo' is not valid version information"
fi
# Calculate the version variables.
major=
versuffix=
verstring=
case $version_type in
none) ;;
darwin)
# Like Linux, but with the current version available in
# verstring for coding it into the library header
func_arith $current - $age
major=.$func_arith_result
versuffix="$major.$age.$revision"
# Darwin ld doesn't like 0 for these options...
func_arith $current + 1
minor_current=$func_arith_result
xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision"
verstring="-compatibility_version $minor_current -current_version $minor_current.$revision"
;;
freebsd-aout)
major=".$current"
versuffix=".$current.$revision";
;;
freebsd-elf)
major=".$current"
versuffix=".$current"
;;
irix | nonstopux)
if test "X$lt_irix_increment" = "Xno"; then
func_arith $current - $age
else
func_arith $current - $age + 1
fi
major=$func_arith_result
case $version_type in
nonstopux) verstring_prefix=nonstopux ;;
*) verstring_prefix=sgi ;;
esac
verstring="$verstring_prefix$major.$revision"
# Add in all the interfaces that we are compatible with.
loop=$revision
while test "$loop" -ne 0; do
func_arith $revision - $loop
iface=$func_arith_result
func_arith $loop - 1
loop=$func_arith_result
verstring="$verstring_prefix$major.$iface:$verstring"
done
# Before this point, $major must not contain `.'.
major=.$major
versuffix="$major.$revision"
;;
- linux)
+ linux) # correct to gnu/linux during the next big refactor
func_arith $current - $age
major=.$func_arith_result
versuffix="$major.$age.$revision"
;;
osf)
func_arith $current - $age
major=.$func_arith_result
versuffix=".$current.$age.$revision"
verstring="$current.$age.$revision"
# Add in all the interfaces that we are compatible with.
loop=$age
while test "$loop" -ne 0; do
func_arith $current - $loop
iface=$func_arith_result
func_arith $loop - 1
loop=$func_arith_result
verstring="$verstring:${iface}.0"
done
# Make executables depend on our current version.
- func_append verstring ":${current}.0"
+ verstring+=":${current}.0"
;;
qnx)
major=".$current"
versuffix=".$current"
;;
sunos)
major=".$current"
versuffix=".$current.$revision"
;;
windows)
# Use '-' rather than '.', since we only want one
# extension on DOS 8.3 filesystems.
func_arith $current - $age
major=$func_arith_result
versuffix="-$major"
;;
*)
func_fatal_configuration "unknown library version type \`$version_type'"
;;
esac
# Clear the version info if we defaulted, and they specified a release.
if test -z "$vinfo" && test -n "$release"; then
major=
case $version_type in
darwin)
# we can't check for "0.0" in archive_cmds due to quoting
# problems, so we reset it completely
verstring=
;;
*)
verstring="0.0"
;;
esac
if test "$need_version" = no; then
versuffix=
else
versuffix=".0.0"
fi
fi
# Remove version info from name if versioning should be avoided
if test "$avoid_version" = yes && test "$need_version" = no; then
major=
versuffix=
verstring=""
fi
# Check to see if the archive will have undefined symbols.
if test "$allow_undefined" = yes; then
if test "$allow_undefined_flag" = unsupported; then
func_warning "undefined symbols not allowed in $host shared libraries"
build_libtool_libs=no
build_old_libs=yes
fi
else
# Don't allow undefined symbols.
allow_undefined_flag="$no_undefined_flag"
fi
fi
func_generate_dlsyms "$libname" "$libname" "yes"
- func_append libobjs " $symfileobj"
+ libobjs+=" $symfileobj"
test "X$libobjs" = "X " && libobjs=
if test "$opt_mode" != relink; then
# Remove our outputs, but don't remove object files since they
# may have been created when compiling PIC objects.
removelist=
tempremovelist=`$ECHO "$output_objdir/*"`
for p in $tempremovelist; do
case $p in
*.$objext | *.gcno)
;;
$output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*)
if test "X$precious_files_regex" != "X"; then
if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1
then
continue
fi
fi
- func_append removelist " $p"
+ removelist+=" $p"
;;
*) ;;
esac
done
test -n "$removelist" && \
func_show_eval "${RM}r \$removelist"
fi
# Now set the variables for building old libraries.
if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then
- func_append oldlibs " $output_objdir/$libname.$libext"
+ oldlibs+=" $output_objdir/$libname.$libext"
# Transform .lo files to .o files.
oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP`
fi
# Eliminate all temporary directories.
#for path in $notinst_path; do
# lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"`
# deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"`
# dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"`
#done
if test -n "$xrpath"; then
# If the user specified any rpath flags, then add them.
temp_xrpath=
for libdir in $xrpath; do
func_replace_sysroot "$libdir"
- func_append temp_xrpath " -R$func_replace_sysroot_result"
+ temp_xrpath+=" -R$func_replace_sysroot_result"
case "$finalize_rpath " in
*" $libdir "*) ;;
- *) func_append finalize_rpath " $libdir" ;;
+ *) finalize_rpath+=" $libdir" ;;
esac
done
if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then
dependency_libs="$temp_xrpath $dependency_libs"
fi
fi
# Make sure dlfiles contains only unique files that won't be dlpreopened
old_dlfiles="$dlfiles"
dlfiles=
for lib in $old_dlfiles; do
case " $dlprefiles $dlfiles " in
*" $lib "*) ;;
- *) func_append dlfiles " $lib" ;;
+ *) dlfiles+=" $lib" ;;
esac
done
# Make sure dlprefiles contains only unique files
old_dlprefiles="$dlprefiles"
dlprefiles=
for lib in $old_dlprefiles; do
case "$dlprefiles " in
*" $lib "*) ;;
- *) func_append dlprefiles " $lib" ;;
+ *) dlprefiles+=" $lib" ;;
esac
done
if test "$build_libtool_libs" = yes; then
if test -n "$rpath"; then
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*)
# these systems don't actually have a c library (as such)!
;;
*-*-rhapsody* | *-*-darwin1.[012])
# Rhapsody C library is in the System framework
- func_append deplibs " System.ltframework"
+ deplibs+=" System.ltframework"
;;
*-*-netbsd*)
# Don't link with libc until the a.out ld.so is fixed.
;;
*-*-openbsd* | *-*-freebsd* | *-*-dragonfly*)
# Do not include libc due to us having libc/libc_r.
;;
*-*-sco3.2v5* | *-*-sco5v6*)
# Causes problems with __ctype
;;
*-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*)
# Compiler inserts libc in the correct place for threads to work
;;
*)
# Add libc to deplibs on all other systems if necessary.
if test "$build_libtool_need_lc" = "yes"; then
- func_append deplibs " -lc"
+ deplibs+=" -lc"
fi
;;
esac
fi
# Transform deplibs into only deplibs that can be linked in shared.
name_save=$name
libname_save=$libname
release_save=$release
versuffix_save=$versuffix
major_save=$major
# I'm not sure if I'm treating the release correctly. I think
# release should show up in the -l (ie -lgmp5) so we don't want to
# add it in twice. Is that correct?
release=""
versuffix=""
major=""
newdeplibs=
droppeddeps=no
case $deplibs_check_method in
pass_all)
# Don't check for shared/static. Everything works.
# This might be a little naive. We might want to check
# whether the library exists or not. But this is on
# osf3 & osf4 and I'm not really sure... Just
# implementing what was already the behavior.
newdeplibs=$deplibs
;;
test_compile)
# This code stresses the "libraries are programs" paradigm to its
# limits. Maybe even breaks it. We compile a program, linking it
# against the deplibs as a proxy for the library. Then we can check
# whether they linked in statically or dynamically with ldd.
$opt_dry_run || $RM conftest.c
cat > conftest.c <<EOF
int main() { return 0; }
EOF
$opt_dry_run || $RM conftest
if $LTCC $LTCFLAGS -o conftest conftest.c $deplibs; then
ldd_output=`ldd conftest`
for i in $deplibs; do
case $i in
-l*)
func_stripname -l '' "$i"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $i "*)
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
i=""
;;
esac
fi
if test -n "$i" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
set dummy $deplib_matches; shift
deplib_match=$1
if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
else
droppeddeps=yes
echo
$ECHO "*** Warning: dynamic linker does not accept needed library $i."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which I believe you do not have"
echo "*** because a test_compile did reveal that the linker did not use it for"
echo "*** its dynamic dependency list that programs get resolved with at runtime."
fi
fi
;;
*)
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
;;
esac
done
else
# Error occurred in the first compile. Let's try to salvage
# the situation: Compile a separate program for each library.
for i in $deplibs; do
case $i in
-l*)
func_stripname -l '' "$i"
name=$func_stripname_result
$opt_dry_run || $RM conftest
if $LTCC $LTCFLAGS -o conftest conftest.c $i; then
ldd_output=`ldd conftest`
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $i "*)
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
i=""
;;
esac
fi
if test -n "$i" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
deplib_matches=`eval "\\$ECHO \"$library_names_spec\""`
set dummy $deplib_matches; shift
deplib_match=$1
if test `expr "$ldd_output" : ".*$deplib_match"` -ne 0 ; then
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
else
droppeddeps=yes
echo
$ECHO "*** Warning: dynamic linker does not accept needed library $i."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because a test_compile did reveal that the linker did not use this one"
echo "*** as a dynamic dependency that programs can get resolved with at runtime."
fi
fi
else
droppeddeps=yes
echo
$ECHO "*** Warning! Library $i is needed by this library but I was not able to"
echo "*** make it link in! You will probably need to install it or some"
echo "*** library that it depends on before this library will be fully"
echo "*** functional. Installing it before continuing would be even better."
fi
;;
*)
- func_append newdeplibs " $i"
+ newdeplibs+=" $i"
;;
esac
done
fi
;;
file_magic*)
set dummy $deplibs_check_method; shift
file_magic_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
for a_deplib in $deplibs; do
case $a_deplib in
-l*)
func_stripname -l '' "$a_deplib"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $a_deplib "*)
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
a_deplib=""
;;
esac
fi
if test -n "$a_deplib" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
if test -n "$file_magic_glob"; then
libnameglob=`func_echo_all "$libname" | $SED -e $file_magic_glob`
else
libnameglob=$libname
fi
test "$want_nocaseglob" = yes && nocaseglob=`shopt -p nocaseglob`
for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
if test "$want_nocaseglob" = yes; then
shopt -s nocaseglob
potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
$nocaseglob
else
potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null`
fi
for potent_lib in $potential_libs; do
# Follow soft links.
if ls -lLd "$potent_lib" 2>/dev/null |
$GREP " -> " >/dev/null; then
continue
fi
# The statement above tries to avoid entering an
# endless loop below, in case of cyclic links.
# We might still enter an endless loop, since a link
# loop can be closed while we follow links,
# but so what?
potlib="$potent_lib"
while test -h "$potlib" 2>/dev/null; do
potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'`
case $potliblink in
[\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";;
*) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";;
esac
done
if eval $file_magic_cmd \"\$potlib\" 2>/dev/null |
$SED -e 10q |
$EGREP "$file_magic_regex" > /dev/null; then
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
a_deplib=""
break 2
fi
done
done
fi
if test -n "$a_deplib" ; then
droppeddeps=yes
echo
$ECHO "*** Warning: linker path does not have real file for library $a_deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because I did check the linker path looking for a file starting"
if test -z "$potlib" ; then
$ECHO "*** with $libname but no candidates were found. (...for file magic test)"
else
$ECHO "*** with $libname and none of the candidates passed a file format test"
$ECHO "*** using a file magic. Last file checked: $potlib"
fi
fi
;;
*)
# Add a -L argument.
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
;;
esac
done # Gone through all deplibs.
;;
match_pattern*)
set dummy $deplibs_check_method; shift
match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"`
for a_deplib in $deplibs; do
case $a_deplib in
-l*)
func_stripname -l '' "$a_deplib"
name=$func_stripname_result
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
case " $predeps $postdeps " in
*" $a_deplib "*)
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
a_deplib=""
;;
esac
fi
if test -n "$a_deplib" ; then
libname=`eval "\\$ECHO \"$libname_spec\""`
for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do
potential_libs=`ls $i/$libname[.-]* 2>/dev/null`
for potent_lib in $potential_libs; do
potlib="$potent_lib" # see symlink-check above in file_magic test
if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \
$EGREP "$match_pattern_regex" > /dev/null; then
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
a_deplib=""
break 2
fi
done
done
fi
if test -n "$a_deplib" ; then
droppeddeps=yes
echo
$ECHO "*** Warning: linker path does not have real file for library $a_deplib."
echo "*** I have the capability to make that library automatically link in when"
echo "*** you link to this library. But I can only do this if you have a"
echo "*** shared version of the library, which you do not appear to have"
echo "*** because I did check the linker path looking for a file starting"
if test -z "$potlib" ; then
$ECHO "*** with $libname but no candidates were found. (...for regex pattern test)"
else
$ECHO "*** with $libname and none of the candidates passed a file format test"
$ECHO "*** using a regex pattern. Last file checked: $potlib"
fi
fi
;;
*)
# Add a -L argument.
- func_append newdeplibs " $a_deplib"
+ newdeplibs+=" $a_deplib"
;;
esac
done # Gone through all deplibs.
;;
none | unknown | *)
newdeplibs=""
tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'`
if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then
for i in $predeps $postdeps ; do
# can't use Xsed below, because $i might contain '/'
tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"`
done
fi
case $tmp_deplibs in
*[!\ \ ]*)
echo
if test "X$deplibs_check_method" = "Xnone"; then
echo "*** Warning: inter-library dependencies are not supported in this platform."
else
echo "*** Warning: inter-library dependencies are not known to be supported."
fi
echo "*** All declared inter-library dependencies are being dropped."
droppeddeps=yes
;;
esac
;;
esac
versuffix=$versuffix_save
major=$major_save
release=$release_save
libname=$libname_save
name=$name_save
case $host in
*-*-rhapsody* | *-*-darwin1.[012])
# On Rhapsody replace the C library with the System framework
newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'`
;;
esac
if test "$droppeddeps" = yes; then
if test "$module" = yes; then
echo
echo "*** Warning: libtool could not satisfy all declared inter-library"
$ECHO "*** dependencies of module $libname. Therefore, libtool will create"
echo "*** a static module, that should work as long as the dlopening"
echo "*** application is linked with the -dlopen flag."
if test -z "$global_symbol_pipe"; then
echo
echo "*** However, this would only work if libtool was able to extract symbol"
echo "*** lists from a program, using \`nm' or equivalent, but libtool could"
echo "*** not find such a program. So, this module is probably useless."
echo "*** \`nm' from GNU binutils and a full rebuild may help."
fi
if test "$build_old_libs" = no; then
oldlibs="$output_objdir/$libname.$libext"
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
else
echo "*** The inter-library dependencies that have been dropped here will be"
echo "*** automatically added whenever a program is linked with this library"
echo "*** or is declared to -dlopen it."
if test "$allow_undefined" = no; then
echo
echo "*** Since this library must not contain undefined symbols,"
echo "*** because either the platform does not support them or"
echo "*** it was explicitly requested with -no-undefined,"
echo "*** libtool will only create a static version of it."
if test "$build_old_libs" = no; then
oldlibs="$output_objdir/$libname.$libext"
build_libtool_libs=module
build_old_libs=yes
else
build_libtool_libs=no
fi
fi
fi
fi
# Done checking deplibs!
deplibs=$newdeplibs
fi
# Time to change all our "foo.ltframework" stuff back to "-framework foo"
case $host in
*-*-darwin*)
newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
;;
esac
# move library search paths that coincide with paths to not yet
# installed libraries to the beginning of the library search list
new_libs=
for path in $notinst_path; do
case " $new_libs " in
*" -L$path/$objdir "*) ;;
*)
case " $deplibs " in
*" -L$path/$objdir "*)
- func_append new_libs " -L$path/$objdir" ;;
+ new_libs+=" -L$path/$objdir" ;;
esac
;;
esac
done
for deplib in $deplibs; do
case $deplib in
-L*)
case " $new_libs " in
*" $deplib "*) ;;
- *) func_append new_libs " $deplib" ;;
+ *) new_libs+=" $deplib" ;;
esac
;;
- *) func_append new_libs " $deplib" ;;
+ *) new_libs+=" $deplib" ;;
esac
done
deplibs="$new_libs"
# All the library-specific variables (install_libdir is set above).
library_names=
old_library=
dlname=
# Test again, we may have decided not to build it any more
if test "$build_libtool_libs" = yes; then
+ # Remove ${wl} instances when linking with ld.
+ # FIXME: should test the right _cmds variable.
+ case $archive_cmds in
+ *\$LD\ *) wl= ;;
+ esac
if test "$hardcode_into_libs" = yes; then
# Hardcode the library paths
hardcode_libdirs=
dep_rpath=
rpath="$finalize_rpath"
test "$opt_mode" != relink && rpath="$compile_rpath$rpath"
for libdir in $rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
func_replace_sysroot "$libdir"
libdir=$func_replace_sysroot_result
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
- func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ hardcode_libdirs+="$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
- func_append dep_rpath " $flag"
+ dep_rpath+=" $flag"
fi
elif test -n "$runpath_var"; then
case "$perm_rpath " in
*" $libdir "*) ;;
- *) func_apped perm_rpath " $libdir" ;;
+ *) perm_rpath+=" $libdir" ;;
esac
fi
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
- if test -n "$hardcode_libdir_flag_spec_ld"; then
- eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\"
- else
- eval dep_rpath=\"$hardcode_libdir_flag_spec\"
- fi
+ eval "dep_rpath=\"$hardcode_libdir_flag_spec\""
fi
if test -n "$runpath_var" && test -n "$perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $perm_rpath; do
- func_append rpath "$dir:"
+ rpath+="$dir:"
done
eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var"
fi
test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs"
fi
shlibpath="$finalize_shlibpath"
test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath"
if test -n "$shlibpath"; then
eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var"
fi
# Get the real and link names of the library.
eval shared_ext=\"$shrext_cmds\"
eval library_names=\"$library_names_spec\"
set dummy $library_names
shift
realname="$1"
shift
if test -n "$soname_spec"; then
eval soname=\"$soname_spec\"
else
soname="$realname"
fi
if test -z "$dlname"; then
dlname=$soname
fi
lib="$output_objdir/$realname"
linknames=
for link
do
- func_append linknames " $link"
+ linknames+=" $link"
done
# Use standard objects if they are pic
test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP`
test "X$libobjs" = "X " && libobjs=
delfiles=
if test -n "$export_symbols" && test -n "$include_expsyms"; then
$opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp"
export_symbols="$output_objdir/$libname.uexp"
- func_append delfiles " $export_symbols"
+ delfiles+=" $export_symbols"
fi
orig_export_symbols=
case $host_os in
cygwin* | mingw* | cegcc*)
if test -n "$export_symbols" && test -z "$export_symbols_regex"; then
# exporting using user supplied symfile
if test "x`$SED 1q $export_symbols`" != xEXPORTS; then
# and it's NOT already a .def file. Must figure out
# which of the given symbols are data symbols and tag
# them as such. So, trigger use of export_symbols_cmds.
# export_symbols gets reassigned inside the "prepare
# the list of exported symbols" if statement, so the
# include_expsyms logic still works.
orig_export_symbols="$export_symbols"
export_symbols=
always_export_symbols=yes
fi
fi
;;
esac
# Prepare the list of exported symbols
if test -z "$export_symbols"; then
if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then
func_verbose "generating symbol list for \`$libname.la'"
export_symbols="$output_objdir/$libname.exp"
$opt_dry_run || $RM $export_symbols
cmds=$export_symbols_cmds
save_ifs="$IFS"; IFS='~'
for cmd1 in $cmds; do
IFS="$save_ifs"
# Take the normal branch if the nm_file_list_spec branch
# doesn't work or if tool conversion is not needed.
case $nm_file_list_spec~$to_tool_file_cmd in
*~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*)
try_normal_branch=yes
eval cmd=\"$cmd1\"
func_len " $cmd"
len=$func_len_result
;;
*)
try_normal_branch=no
;;
esac
if test "$try_normal_branch" = yes \
&& { test "$len" -lt "$max_cmd_len" \
|| test "$max_cmd_len" -le -1; }
then
func_show_eval "$cmd" 'exit $?'
skipped_export=false
elif test -n "$nm_file_list_spec"; then
func_basename "$output"
output_la=$func_basename_result
save_libobjs=$libobjs
save_output=$output
output=${output_objdir}/${output_la}.nm
func_to_tool_file "$output"
libobjs=$nm_file_list_spec$func_to_tool_file_result
- func_append delfiles " $output"
+ delfiles+=" $output"
func_verbose "creating $NM input file list: $output"
for obj in $save_libobjs; do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result"
done > "$output"
eval cmd=\"$cmd1\"
func_show_eval "$cmd" 'exit $?'
output=$save_output
libobjs=$save_libobjs
skipped_export=false
else
# The command line is too long to execute in one step.
func_verbose "using reloadable object file for export list..."
skipped_export=:
# Break out early, otherwise skipped_export may be
# set to false by a later but shorter cmd.
break
fi
done
IFS="$save_ifs"
if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then
func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
fi
fi
fi
if test -n "$export_symbols" && test -n "$include_expsyms"; then
tmp_export_symbols="$export_symbols"
test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols"
$opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
fi
if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then
# The given exports_symbols file has to be filtered, so filter it.
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
- func_append delfiles " $export_symbols $output_objdir/$libname.filter"
+ delfiles+=" $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
tmp_deplibs=
for test_deplib in $deplibs; do
case " $convenience " in
*" $test_deplib "*) ;;
*)
- func_append tmp_deplibs " $test_deplib"
+ tmp_deplibs+=" $test_deplib"
;;
esac
done
deplibs="$tmp_deplibs"
if test -n "$convenience"; then
if test -n "$whole_archive_flag_spec" &&
test "$compiler_needs_object" = yes &&
test -z "$libobjs"; then
# extract the archives, so we have objects to list.
# TODO: could optimize this to just extract one archive.
whole_archive_flag_spec=
fi
if test -n "$whole_archive_flag_spec"; then
save_libobjs=$libobjs
eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
test "X$libobjs" = "X " && libobjs=
else
gentop="$output_objdir/${outputname}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_extract_archives $gentop $convenience
- func_append libobjs " $func_extract_archives_result"
+ libobjs+=" $func_extract_archives_result"
test "X$libobjs" = "X " && libobjs=
fi
fi
if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then
eval flag=\"$thread_safe_flag_spec\"
- func_append linker_flags " $flag"
+ linker_flags+=" $flag"
fi
# Make a backup of the uninstalled library when relinking
if test "$opt_mode" = relink; then
$opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $?
fi
# Do each of the archive commands.
if test "$module" = yes && test -n "$module_cmds" ; then
if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
eval test_cmds=\"$module_expsym_cmds\"
cmds=$module_expsym_cmds
else
eval test_cmds=\"$module_cmds\"
cmds=$module_cmds
fi
else
if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
eval test_cmds=\"$archive_expsym_cmds\"
cmds=$archive_expsym_cmds
else
eval test_cmds=\"$archive_cmds\"
cmds=$archive_cmds
fi
fi
if test "X$skipped_export" != "X:" &&
func_len " $test_cmds" &&
len=$func_len_result &&
test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
:
else
# The command line is too long to link in one step, link piecewise
# or, if using GNU ld and skipped_export is not :, use a linker
# script.
# Save the value of $output and $libobjs because we want to
# use them later. If we have whole_archive_flag_spec, we
# want to use save_libobjs as it was before
# whole_archive_flag_spec was expanded, because we can't
# assume the linker understands whole_archive_flag_spec.
# This may have to be revisited, in case too many
# convenience libraries get linked in and end up exceeding
# the spec.
if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then
save_libobjs=$libobjs
fi
save_output=$output
func_basename "$output"
output_la=$func_basename_result
# Clear the reloadable object creation command queue and
# initialize k to one.
test_cmds=
concat_cmds=
objlist=
last_robj=
k=1
if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then
output=${output_objdir}/${output_la}.lnkscript
func_verbose "creating GNU ld script: $output"
echo 'INPUT (' > $output
for obj in $save_libobjs
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result" >> $output
done
echo ')' >> $output
- func_append delfiles " $output"
+ delfiles+=" $output"
func_to_tool_file "$output"
output=$func_to_tool_file_result
elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then
output=${output_objdir}/${output_la}.lnk
func_verbose "creating linker input file list: $output"
: > $output
set x $save_libobjs
shift
firstobj=
if test "$compiler_needs_object" = yes; then
firstobj="$1 "
shift
fi
for obj
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result" >> $output
done
- func_append delfiles " $output"
+ delfiles+=" $output"
func_to_tool_file "$output"
output=$firstobj\"$file_list_spec$func_to_tool_file_result\"
else
if test -n "$save_libobjs"; then
func_verbose "creating reloadable object files..."
output=$output_objdir/$output_la-${k}.$objext
eval test_cmds=\"$reload_cmds\"
func_len " $test_cmds"
len0=$func_len_result
len=$len0
# Loop over the list of objects to be linked.
for obj in $save_libobjs
do
func_len " $obj"
func_arith $len + $func_len_result
len=$func_arith_result
if test "X$objlist" = X ||
test "$len" -lt "$max_cmd_len"; then
- func_append objlist " $obj"
+ objlist+=" $obj"
else
# The command $test_cmds is almost too long, add a
# command to the queue.
if test "$k" -eq 1 ; then
# The first file doesn't have a previous command to add.
reload_objs=$objlist
eval concat_cmds=\"$reload_cmds\"
else
# All subsequent reloadable object files will link in
# the last one created.
reload_objs="$objlist $last_robj"
eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\"
fi
last_robj=$output_objdir/$output_la-${k}.$objext
func_arith $k + 1
k=$func_arith_result
output=$output_objdir/$output_la-${k}.$objext
objlist=" $obj"
func_len " $last_robj"
func_arith $len0 + $func_len_result
len=$func_arith_result
fi
done
# Handle the remaining objects by creating one last
# reloadable object file. All subsequent reloadable object
# files will link in the last one created.
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
reload_objs="$objlist $last_robj"
eval concat_cmds=\"\${concat_cmds}$reload_cmds\"
if test -n "$last_robj"; then
eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\"
fi
- func_append delfiles " $output"
+ delfiles+=" $output"
else
output=
fi
if ${skipped_export-false}; then
func_verbose "generating symbol list for \`$libname.la'"
export_symbols="$output_objdir/$libname.exp"
$opt_dry_run || $RM $export_symbols
libobjs=$output
# Append the command to create the export file.
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\"
if test -n "$last_robj"; then
eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\"
fi
fi
test -n "$save_libobjs" &&
func_verbose "creating a temporary reloadable object file: $output"
# Loop through the commands generated above and execute them.
save_ifs="$IFS"; IFS='~'
for cmd in $concat_cmds; do
IFS="$save_ifs"
$opt_silent || {
func_quote_for_expand "$cmd"
eval "func_echo $func_quote_for_expand_result"
}
$opt_dry_run || eval "$cmd" || {
lt_exit=$?
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
( cd "$output_objdir" && \
$RM "${realname}T" && \
$MV "${realname}U" "$realname" )
fi
exit $lt_exit
}
done
IFS="$save_ifs"
if test -n "$export_symbols_regex" && ${skipped_export-false}; then
func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"'
func_show_eval '$MV "${export_symbols}T" "$export_symbols"'
fi
fi
if ${skipped_export-false}; then
if test -n "$export_symbols" && test -n "$include_expsyms"; then
tmp_export_symbols="$export_symbols"
test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols"
$opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"'
fi
if test -n "$orig_export_symbols"; then
# The given exports_symbols file has to be filtered, so filter it.
func_verbose "filter symbol list for \`$libname.la' to tag DATA exports"
# FIXME: $output_objdir/$libname.filter potentially contains lots of
# 's' commands which not all seds can handle. GNU sed should be fine
# though. Also, the filter scales superlinearly with the number of
# global variables. join(1) would be nice here, but unfortunately
# isn't a blessed tool.
$opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter
- func_append delfiles " $export_symbols $output_objdir/$libname.filter"
+ delfiles+=" $export_symbols $output_objdir/$libname.filter"
export_symbols=$output_objdir/$libname.def
$opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols
fi
fi
libobjs=$output
# Restore the value of output.
output=$save_output
if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then
eval libobjs=\"\$libobjs $whole_archive_flag_spec\"
test "X$libobjs" = "X " && libobjs=
fi
# Expand the library linking commands again to reset the
# value of $libobjs for piecewise linking.
# Do each of the archive commands.
if test "$module" = yes && test -n "$module_cmds" ; then
if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then
cmds=$module_expsym_cmds
else
cmds=$module_cmds
fi
else
if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then
cmds=$archive_expsym_cmds
else
cmds=$archive_cmds
fi
fi
fi
if test -n "$delfiles"; then
# Append the command to remove temporary files to $cmds.
eval cmds=\"\$cmds~\$RM $delfiles\"
fi
# Add any objects from preloaded convenience libraries
if test -n "$dlprefiles"; then
gentop="$output_objdir/${outputname}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_extract_archives $gentop $dlprefiles
- func_append libobjs " $func_extract_archives_result"
+ libobjs+=" $func_extract_archives_result"
test "X$libobjs" = "X " && libobjs=
fi
save_ifs="$IFS"; IFS='~'
for cmd in $cmds; do
IFS="$save_ifs"
eval cmd=\"$cmd\"
$opt_silent || {
func_quote_for_expand "$cmd"
eval "func_echo $func_quote_for_expand_result"
}
$opt_dry_run || eval "$cmd" || {
lt_exit=$?
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
( cd "$output_objdir" && \
$RM "${realname}T" && \
$MV "${realname}U" "$realname" )
fi
exit $lt_exit
}
done
IFS="$save_ifs"
# Restore the uninstalled library and exit
if test "$opt_mode" = relink; then
$opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $?
if test -n "$convenience"; then
if test -z "$whole_archive_flag_spec"; then
func_show_eval '${RM}r "$gentop"'
fi
fi
exit $EXIT_SUCCESS
fi
# Create links to the real library.
for linkname in $linknames; do
if test "$realname" != "$linkname"; then
func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?'
fi
done
# If -module or -export-dynamic was specified, set the dlname.
if test "$module" = yes || test "$export_dynamic" = yes; then
# On all known operating systems, these are identical.
dlname="$soname"
fi
fi
;;
obj)
if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then
func_warning "\`-dlopen' is ignored for objects"
fi
case " $deplibs" in
*\ -l* | *\ -L*)
func_warning "\`-l' and \`-L' are ignored for objects" ;;
esac
test -n "$rpath" && \
func_warning "\`-rpath' is ignored for objects"
test -n "$xrpath" && \
func_warning "\`-R' is ignored for objects"
test -n "$vinfo" && \
func_warning "\`-version-info' is ignored for objects"
test -n "$release" && \
func_warning "\`-release' is ignored for objects"
case $output in
*.lo)
test -n "$objs$old_deplibs" && \
func_fatal_error "cannot build library object \`$output' from non-libtool objects"
libobj=$output
func_lo2o "$libobj"
obj=$func_lo2o_result
;;
*)
libobj=
obj="$output"
;;
esac
# Delete the old objects.
$opt_dry_run || $RM $obj $libobj
# Objects from convenience libraries. This assumes
# single-version convenience libraries. Whenever we create
# different ones for PIC/non-PIC, this we'll have to duplicate
# the extraction.
reload_conv_objs=
gentop=
# reload_cmds runs $LD directly, so let us get rid of
# -Wl from whole_archive_flag_spec and hope we can get by with
# turning comma into space..
wl=
if test -n "$convenience"; then
if test -n "$whole_archive_flag_spec"; then
eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\"
reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'`
else
gentop="$output_objdir/${obj}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_extract_archives $gentop $convenience
reload_conv_objs="$reload_objs $func_extract_archives_result"
fi
fi
# If we're not building shared, we need to use non_pic_objs
test "$build_libtool_libs" != yes && libobjs="$non_pic_objects"
# Create the old-style object.
reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test
output="$obj"
func_execute_cmds "$reload_cmds" 'exit $?'
# Exit if we aren't doing a library object file.
if test -z "$libobj"; then
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
exit $EXIT_SUCCESS
fi
if test "$build_libtool_libs" != yes; then
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
# Create an invalid libtool object if no PIC, so that we don't
# accidentally link it into a program.
# $show "echo timestamp > $libobj"
# $opt_dry_run || eval "echo timestamp > $libobj" || exit $?
exit $EXIT_SUCCESS
fi
if test -n "$pic_flag" || test "$pic_mode" != default; then
# Only do commands if we really have different PIC objects.
reload_objs="$libobjs $reload_conv_objs"
output="$libobj"
func_execute_cmds "$reload_cmds" 'exit $?'
fi
if test -n "$gentop"; then
func_show_eval '${RM}r "$gentop"'
fi
exit $EXIT_SUCCESS
;;
prog)
case $host in
*cygwin*) func_stripname '' '.exe' "$output"
output=$func_stripname_result.exe;;
esac
test -n "$vinfo" && \
func_warning "\`-version-info' is ignored for programs"
test -n "$release" && \
func_warning "\`-release' is ignored for programs"
test "$preload" = yes \
&& test "$dlopen_support" = unknown \
&& test "$dlopen_self" = unknown \
&& test "$dlopen_self_static" = unknown && \
func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support."
case $host in
*-*-rhapsody* | *-*-darwin1.[012])
# On Rhapsody replace the C library is the System framework
compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'`
finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'`
;;
esac
case $host in
*-*-darwin*)
# Don't allow lazy linking, it breaks C++ global constructors
# But is supposedly fixed on 10.4 or later (yay!).
if test "$tagname" = CXX ; then
case ${MACOSX_DEPLOYMENT_TARGET-10.0} in
10.[0123])
- func_append compile_command " ${wl}-bind_at_load"
- func_append finalize_command " ${wl}-bind_at_load"
+ compile_command+=" ${wl}-bind_at_load"
+ finalize_command+=" ${wl}-bind_at_load"
;;
esac
fi
# Time to change all our "foo.ltframework" stuff back to "-framework foo"
compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'`
;;
esac
# move library search paths that coincide with paths to not yet
# installed libraries to the beginning of the library search list
new_libs=
for path in $notinst_path; do
case " $new_libs " in
*" -L$path/$objdir "*) ;;
*)
case " $compile_deplibs " in
*" -L$path/$objdir "*)
- func_append new_libs " -L$path/$objdir" ;;
+ new_libs+=" -L$path/$objdir" ;;
esac
;;
esac
done
for deplib in $compile_deplibs; do
case $deplib in
-L*)
case " $new_libs " in
*" $deplib "*) ;;
- *) func_append new_libs " $deplib" ;;
+ *) new_libs+=" $deplib" ;;
esac
;;
- *) func_append new_libs " $deplib" ;;
+ *) new_libs+=" $deplib" ;;
esac
done
compile_deplibs="$new_libs"
- func_append compile_command " $compile_deplibs"
- func_append finalize_command " $finalize_deplibs"
+ compile_command+=" $compile_deplibs"
+ finalize_command+=" $finalize_deplibs"
if test -n "$rpath$xrpath"; then
# If the user specified any rpath flags, then add them.
for libdir in $rpath $xrpath; do
# This is the magic to use -rpath.
case "$finalize_rpath " in
*" $libdir "*) ;;
- *) func_append finalize_rpath " $libdir" ;;
+ *) finalize_rpath+=" $libdir" ;;
esac
done
fi
# Now hardcode the library paths
rpath=
hardcode_libdirs=
for libdir in $compile_rpath $finalize_rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
- func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ hardcode_libdirs+="$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
- func_append rpath " $flag"
+ rpath+=" $flag"
fi
elif test -n "$runpath_var"; then
case "$perm_rpath " in
*" $libdir "*) ;;
- *) func_append perm_rpath " $libdir" ;;
+ *) perm_rpath+=" $libdir" ;;
esac
fi
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*)
testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'`
case :$dllsearchpath: in
*":$libdir:"*) ;;
::) dllsearchpath=$libdir;;
- *) func_append dllsearchpath ":$libdir";;
+ *) dllsearchpath+=":$libdir";;
esac
case :$dllsearchpath: in
*":$testbindir:"*) ;;
::) dllsearchpath=$testbindir;;
- *) func_append dllsearchpath ":$testbindir";;
+ *) dllsearchpath+=":$testbindir";;
esac
;;
esac
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
eval rpath=\" $hardcode_libdir_flag_spec\"
fi
compile_rpath="$rpath"
rpath=
hardcode_libdirs=
for libdir in $finalize_rpath; do
if test -n "$hardcode_libdir_flag_spec"; then
if test -n "$hardcode_libdir_separator"; then
if test -z "$hardcode_libdirs"; then
hardcode_libdirs="$libdir"
else
# Just accumulate the unique libdirs.
case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in
*"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*)
;;
*)
- func_append hardcode_libdirs "$hardcode_libdir_separator$libdir"
+ hardcode_libdirs+="$hardcode_libdir_separator$libdir"
;;
esac
fi
else
eval flag=\"$hardcode_libdir_flag_spec\"
- func_append rpath " $flag"
+ rpath+=" $flag"
fi
elif test -n "$runpath_var"; then
case "$finalize_perm_rpath " in
*" $libdir "*) ;;
- *) func_append finalize_perm_rpath " $libdir" ;;
+ *) finalize_perm_rpath+=" $libdir" ;;
esac
fi
done
# Substitute the hardcoded libdirs into the rpath.
if test -n "$hardcode_libdir_separator" &&
test -n "$hardcode_libdirs"; then
libdir="$hardcode_libdirs"
eval rpath=\" $hardcode_libdir_flag_spec\"
fi
finalize_rpath="$rpath"
if test -n "$libobjs" && test "$build_old_libs" = yes; then
# Transform all the library objects into standard objects.
compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP`
fi
func_generate_dlsyms "$outputname" "@PROGRAM@" "no"
# template prelinking step
if test -n "$prelink_cmds"; then
func_execute_cmds "$prelink_cmds" 'exit $?'
fi
wrappers_required=yes
case $host in
*cegcc* | *mingw32ce*)
# Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway.
wrappers_required=no
;;
*cygwin* | *mingw* )
if test "$build_libtool_libs" != yes; then
wrappers_required=no
fi
;;
*)
if test "$need_relink" = no || test "$build_libtool_libs" != yes; then
wrappers_required=no
fi
;;
esac
if test "$wrappers_required" = no; then
# Replace the output file specification.
compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
link_command="$compile_command$compile_rpath"
# We have no uninstalled library dependencies, so finalize right now.
exit_status=0
func_show_eval "$link_command" 'exit_status=$?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
# Delete the generated files.
if test -f "$output_objdir/${outputname}S.${objext}"; then
func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"'
fi
exit $exit_status
fi
if test -n "$compile_shlibpath$finalize_shlibpath"; then
compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command"
fi
if test -n "$finalize_shlibpath"; then
finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command"
fi
compile_var=
finalize_var=
if test -n "$runpath_var"; then
if test -n "$perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $perm_rpath; do
- func_append rpath "$dir:"
+ rpath+="$dir:"
done
compile_var="$runpath_var=\"$rpath\$$runpath_var\" "
fi
if test -n "$finalize_perm_rpath"; then
# We should set the runpath_var.
rpath=
for dir in $finalize_perm_rpath; do
- func_append rpath "$dir:"
+ rpath+="$dir:"
done
finalize_var="$runpath_var=\"$rpath\$$runpath_var\" "
fi
fi
if test "$no_install" = yes; then
# We don't need to create a wrapper script.
link_command="$compile_var$compile_command$compile_rpath"
# Replace the output file specification.
link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'`
# Delete the old output file.
$opt_dry_run || $RM $output
# Link the executable and exit
func_show_eval "$link_command" 'exit $?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
exit $EXIT_SUCCESS
fi
if test "$hardcode_action" = relink; then
# Fast installation is not supported
link_command="$compile_var$compile_command$compile_rpath"
relink_command="$finalize_var$finalize_command$finalize_rpath"
func_warning "this platform does not like uninstalled shared libraries"
func_warning "\`$output' will be relinked during installation"
else
if test "$fast_install" != no; then
link_command="$finalize_var$compile_command$finalize_rpath"
if test "$fast_install" = yes; then
relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'`
else
# fast_install is set to needless
relink_command=
fi
else
link_command="$compile_var$compile_command$compile_rpath"
relink_command="$finalize_var$finalize_command$finalize_rpath"
fi
fi
# Replace the output file specification.
link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'`
# Delete the old output files.
$opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname
func_show_eval "$link_command" 'exit $?'
if test -n "$postlink_cmds"; then
func_to_tool_file "$output_objdir/$outputname"
postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'`
func_execute_cmds "$postlink_cmds" 'exit $?'
fi
# Now create the wrapper script.
func_verbose "creating $output"
# Quote the relink command for shipping.
if test -n "$relink_command"; then
# Preserve any variables that may affect compiler behavior
for var in $variables_saved_for_relink; do
if eval test -z \"\${$var+set}\"; then
relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
elif eval var_value=\$$var; test -z "$var_value"; then
relink_command="$var=; export $var; $relink_command"
else
func_quote_for_eval "$var_value"
relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
fi
done
relink_command="(cd `pwd`; $relink_command)"
relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
fi
# Only actually do things if not in dry run mode.
$opt_dry_run || {
# win32 will think the script is a binary if it has
# a .exe suffix, so we strip it off here.
case $output in
*.exe) func_stripname '' '.exe' "$output"
output=$func_stripname_result ;;
esac
# test for cygwin because mv fails w/o .exe extensions
case $host in
*cygwin*)
exeext=.exe
func_stripname '' '.exe' "$outputname"
outputname=$func_stripname_result ;;
*) exeext= ;;
esac
case $host in
*cygwin* | *mingw* )
func_dirname_and_basename "$output" "" "."
output_name=$func_basename_result
output_path=$func_dirname_result
cwrappersource="$output_path/$objdir/lt-$output_name.c"
cwrapper="$output_path/$output_name.exe"
$RM $cwrappersource $cwrapper
trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15
func_emit_cwrapperexe_src > $cwrappersource
# The wrapper executable is built using the $host compiler,
# because it contains $host paths and files. If cross-
# compiling, it, like the target executable, must be
# executed on the $host or under an emulation environment.
$opt_dry_run || {
$LTCC $LTCFLAGS -o $cwrapper $cwrappersource
$STRIP $cwrapper
}
# Now, create the wrapper script for func_source use:
func_ltwrapper_scriptname $cwrapper
$RM $func_ltwrapper_scriptname_result
trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15
$opt_dry_run || {
# note: this script will not be executed, so do not chmod.
if test "x$build" = "x$host" ; then
$cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result
else
func_emit_wrapper no > $func_ltwrapper_scriptname_result
fi
}
;;
* )
$RM $output
trap "$RM $output; exit $EXIT_FAILURE" 1 2 15
func_emit_wrapper no > $output
chmod +x $output
;;
esac
}
exit $EXIT_SUCCESS
;;
esac
# See if we need to build an old-fashioned archive.
for oldlib in $oldlibs; do
if test "$build_libtool_libs" = convenience; then
oldobjs="$libobjs_save $symfileobj"
addlibs="$convenience"
build_libtool_libs=no
else
if test "$build_libtool_libs" = module; then
oldobjs="$libobjs_save"
build_libtool_libs=no
else
oldobjs="$old_deplibs $non_pic_objects"
if test "$preload" = yes && test -f "$symfileobj"; then
- func_append oldobjs " $symfileobj"
+ oldobjs+=" $symfileobj"
fi
fi
addlibs="$old_convenience"
fi
if test -n "$addlibs"; then
gentop="$output_objdir/${outputname}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_extract_archives $gentop $addlibs
- func_append oldobjs " $func_extract_archives_result"
+ oldobjs+=" $func_extract_archives_result"
fi
# Do each command in the archive commands.
if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then
cmds=$old_archive_from_new_cmds
else
# Add any objects from preloaded convenience libraries
if test -n "$dlprefiles"; then
gentop="$output_objdir/${outputname}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_extract_archives $gentop $dlprefiles
- func_append oldobjs " $func_extract_archives_result"
+ oldobjs+=" $func_extract_archives_result"
fi
# POSIX demands no paths to be encoded in archives. We have
# to avoid creating archives with duplicate basenames if we
# might have to extract them afterwards, e.g., when creating a
# static archive out of a convenience library, or when linking
# the entirety of a libtool archive into another (currently
# not supported by libtool).
if (for obj in $oldobjs
do
func_basename "$obj"
$ECHO "$func_basename_result"
done | sort | sort -uc >/dev/null 2>&1); then
:
else
echo "copying selected object files to avoid basename conflicts..."
gentop="$output_objdir/${outputname}x"
- func_append generated " $gentop"
+ generated+=" $gentop"
func_mkdir_p "$gentop"
save_oldobjs=$oldobjs
oldobjs=
counter=1
for obj in $save_oldobjs
do
func_basename "$obj"
objbase="$func_basename_result"
case " $oldobjs " in
" ") oldobjs=$obj ;;
*[\ /]"$objbase "*)
while :; do
# Make sure we don't pick an alternate name that also
# overlaps.
newobj=lt$counter-$objbase
func_arith $counter + 1
counter=$func_arith_result
case " $oldobjs " in
*[\ /]"$newobj "*) ;;
*) if test ! -f "$gentop/$newobj"; then break; fi ;;
esac
done
func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj"
- func_append oldobjs " $gentop/$newobj"
+ oldobjs+=" $gentop/$newobj"
;;
- *) func_append oldobjs " $obj" ;;
+ *) oldobjs+=" $obj" ;;
esac
done
fi
+ func_to_tool_file "$oldlib" func_convert_file_msys_to_w32
+ tool_oldlib=$func_to_tool_file_result
eval cmds=\"$old_archive_cmds\"
func_len " $cmds"
len=$func_len_result
if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then
cmds=$old_archive_cmds
elif test -n "$archiver_list_spec"; then
func_verbose "using command file archive linking..."
for obj in $oldobjs
do
func_to_tool_file "$obj"
$ECHO "$func_to_tool_file_result"
done > $output_objdir/$libname.libcmd
func_to_tool_file "$output_objdir/$libname.libcmd"
oldobjs=" $archiver_list_spec$func_to_tool_file_result"
cmds=$old_archive_cmds
else
# the command line is too long to link in one step, link in parts
func_verbose "using piecewise archive linking..."
save_RANLIB=$RANLIB
RANLIB=:
objlist=
concat_cmds=
save_oldobjs=$oldobjs
oldobjs=
# Is there a better way of finding the last object in the list?
for obj in $save_oldobjs
do
last_oldobj=$obj
done
eval test_cmds=\"$old_archive_cmds\"
func_len " $test_cmds"
len0=$func_len_result
len=$len0
for obj in $save_oldobjs
do
func_len " $obj"
func_arith $len + $func_len_result
len=$func_arith_result
- func_append objlist " $obj"
+ objlist+=" $obj"
if test "$len" -lt "$max_cmd_len"; then
:
else
# the above command should be used before it gets too long
oldobjs=$objlist
if test "$obj" = "$last_oldobj" ; then
RANLIB=$save_RANLIB
fi
test -z "$concat_cmds" || concat_cmds=$concat_cmds~
eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\"
objlist=
len=$len0
fi
done
RANLIB=$save_RANLIB
oldobjs=$objlist
if test "X$oldobjs" = "X" ; then
eval cmds=\"\$concat_cmds\"
else
eval cmds=\"\$concat_cmds~\$old_archive_cmds\"
fi
fi
fi
func_execute_cmds "$cmds" 'exit $?'
done
test -n "$generated" && \
func_show_eval "${RM}r$generated"
# Now create the libtool archive.
case $output in
*.la)
old_library=
test "$build_old_libs" = yes && old_library="$libname.$libext"
func_verbose "creating $output"
# Preserve any variables that may affect compiler behavior
for var in $variables_saved_for_relink; do
if eval test -z \"\${$var+set}\"; then
relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command"
elif eval var_value=\$$var; test -z "$var_value"; then
relink_command="$var=; export $var; $relink_command"
else
func_quote_for_eval "$var_value"
relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command"
fi
done
# Quote the link command for shipping.
relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)"
relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"`
if test "$hardcode_automatic" = yes ; then
relink_command=
fi
# Only create the output if not a dry run.
$opt_dry_run || {
for installed in no yes; do
if test "$installed" = yes; then
if test -z "$install_libdir"; then
break
fi
output="$output_objdir/$outputname"i
# Replace all uninstalled libtool libraries with the installed ones
newdependency_libs=
for deplib in $dependency_libs; do
case $deplib in
*.la)
func_basename "$deplib"
name="$func_basename_result"
- eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib`
+ func_resolve_sysroot "$deplib"
+ eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result`
test -z "$libdir" && \
func_fatal_error "\`$deplib' is not a valid libtool archive"
- func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name"
+ newdependency_libs+=" ${lt_sysroot:+=}$libdir/$name"
;;
-L*)
func_stripname -L '' "$deplib"
func_replace_sysroot "$func_stripname_result"
- func_append newdependency_libs " -L$func_replace_sysroot_result"
+ newdependency_libs+=" -L$func_replace_sysroot_result"
;;
-R*)
func_stripname -R '' "$deplib"
func_replace_sysroot "$func_stripname_result"
- func_append newdependency_libs " -R$func_replace_sysroot_result"
+ newdependency_libs+=" -R$func_replace_sysroot_result"
;;
- *) func_append newdependency_libs " $deplib" ;;
+ *) newdependency_libs+=" $deplib" ;;
esac
done
dependency_libs="$newdependency_libs"
newdlfiles=
for lib in $dlfiles; do
case $lib in
*.la)
func_basename "$lib"
name="$func_basename_result"
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
test -z "$libdir" && \
func_fatal_error "\`$lib' is not a valid libtool archive"
- func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name"
+ newdlfiles+=" ${lt_sysroot:+=}$libdir/$name"
;;
- *) func_append newdlfiles " $lib" ;;
+ *) newdlfiles+=" $lib" ;;
esac
done
dlfiles="$newdlfiles"
newdlprefiles=
for lib in $dlprefiles; do
case $lib in
*.la)
# Only pass preopened files to the pseudo-archive (for
# eventual linking with the app. that links it) if we
# didn't already link the preopened objects directly into
# the library:
func_basename "$lib"
name="$func_basename_result"
eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib`
test -z "$libdir" && \
func_fatal_error "\`$lib' is not a valid libtool archive"
- func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name"
+ newdlprefiles+=" ${lt_sysroot:+=}$libdir/$name"
;;
esac
done
dlprefiles="$newdlprefiles"
else
newdlfiles=
for lib in $dlfiles; do
case $lib in
[\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
*) abs=`pwd`"/$lib" ;;
esac
- func_append newdlfiles " $abs"
+ newdlfiles+=" $abs"
done
dlfiles="$newdlfiles"
newdlprefiles=
for lib in $dlprefiles; do
case $lib in
[\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;;
*) abs=`pwd`"/$lib" ;;
esac
- func_append newdlprefiles " $abs"
+ newdlprefiles+=" $abs"
done
dlprefiles="$newdlprefiles"
fi
$RM $output
# place dlname in correct position for cygwin
# In fact, it would be nice if we could use this code for all target
# systems that can't hard-code library paths into their executables
# and that have no shared library path variable independent of PATH,
# but it turns out we can't easily determine that from inspecting
# libtool variables, so we have to hard-code the OSs to which it
# applies here; at the moment, that means platforms that use the PE
# object format with DLL files. See the long comment at the top of
# tests/bindir.at for full details.
tdlname=$dlname
case $host,$output,$installed,$module,$dlname in
*cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll)
# If a -bindir argument was supplied, place the dll there.
if test "x$bindir" != x ;
then
func_relative_path "$install_libdir" "$bindir"
tdlname=$func_relative_path_result$dlname
else
# Otherwise fall back on heuristic.
tdlname=../bin/$dlname
fi
;;
esac
$ECHO > $output "\
# $outputname - a libtool library file
# Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION
#
# Please DO NOT delete this file!
# It is necessary for linking the library.
# The name that we can dlopen(3).
dlname='$tdlname'
# Names of this library.
library_names='$library_names'
# The name of the static archive.
old_library='$old_library'
# Linker flags that can not go in dependency_libs.
inherited_linker_flags='$new_inherited_linker_flags'
# Libraries that this one depends upon.
dependency_libs='$dependency_libs'
# Names of additional weak libraries provided by this library
weak_library_names='$weak_libs'
# Version information for $libname.
current=$current
age=$age
revision=$revision
# Is this an already installed library?
installed=$installed
# Should we warn about portability when linking against -modules?
shouldnotlink=$module
# Files to dlopen/dlpreopen
dlopen='$dlfiles'
dlpreopen='$dlprefiles'
# Directory that this library needs to be installed in:
libdir='$install_libdir'"
if test "$installed" = no && test "$need_relink" = yes; then
$ECHO >> $output "\
relink_command=\"$relink_command\""
fi
done
}
# Do a symbolic link so that the libtool archive can be found in
# LD_LIBRARY_PATH before the program is installed.
func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?'
;;
esac
exit $EXIT_SUCCESS
}
{ test "$opt_mode" = link || test "$opt_mode" = relink; } &&
func_mode_link ${1+"$@"}
# func_mode_uninstall arg...
func_mode_uninstall ()
{
$opt_debug
RM="$nonopt"
files=
rmforce=
exit_status=0
# This variable tells wrapper scripts just to set variables rather
# than running their programs.
libtool_install_magic="$magic"
for arg
do
case $arg in
- -f) func_append RM " $arg"; rmforce=yes ;;
- -*) func_append RM " $arg" ;;
- *) func_append files " $arg" ;;
+ -f) RM+=" $arg"; rmforce=yes ;;
+ -*) RM+=" $arg" ;;
+ *) files+=" $arg" ;;
esac
done
test -z "$RM" && \
func_fatal_help "you must specify an RM program"
rmdirs=
for file in $files; do
func_dirname "$file" "" "."
dir="$func_dirname_result"
if test "X$dir" = X.; then
odir="$objdir"
else
odir="$dir/$objdir"
fi
func_basename "$file"
name="$func_basename_result"
test "$opt_mode" = uninstall && odir="$dir"
# Remember odir for removal later, being careful to avoid duplicates
if test "$opt_mode" = clean; then
case " $rmdirs " in
*" $odir "*) ;;
- *) func_append rmdirs " $odir" ;;
+ *) rmdirs+=" $odir" ;;
esac
fi
# Don't error if the file doesn't exist and rm -f was used.
if { test -L "$file"; } >/dev/null 2>&1 ||
{ test -h "$file"; } >/dev/null 2>&1 ||
test -f "$file"; then
:
elif test -d "$file"; then
exit_status=1
continue
elif test "$rmforce" = yes; then
continue
fi
rmfiles="$file"
case $name in
*.la)
# Possibly a libtool archive, so verify it.
if func_lalib_p "$file"; then
func_source $dir/$name
# Delete the libtool libraries and symlinks.
for n in $library_names; do
- func_append rmfiles " $odir/$n"
+ rmfiles+=" $odir/$n"
done
- test -n "$old_library" && func_append rmfiles " $odir/$old_library"
+ test -n "$old_library" && rmfiles+=" $odir/$old_library"
case "$opt_mode" in
clean)
case " $library_names " in
*" $dlname "*) ;;
- *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;;
+ *) test -n "$dlname" && rmfiles+=" $odir/$dlname" ;;
esac
- test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i"
+ test -n "$libdir" && rmfiles+=" $odir/$name $odir/${name}i"
;;
uninstall)
if test -n "$library_names"; then
# Do each command in the postuninstall commands.
func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1'
fi
if test -n "$old_library"; then
# Do each command in the old_postuninstall commands.
func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1'
fi
# FIXME: should reinstall the best remaining shared library.
;;
esac
fi
;;
*.lo)
# Possibly a libtool object, so verify it.
if func_lalib_p "$file"; then
# Read the .lo file
func_source $dir/$name
# Add PIC object to the list of files to remove.
if test -n "$pic_object" &&
test "$pic_object" != none; then
- func_append rmfiles " $dir/$pic_object"
+ rmfiles+=" $dir/$pic_object"
fi
# Add non-PIC object to the list of files to remove.
if test -n "$non_pic_object" &&
test "$non_pic_object" != none; then
- func_append rmfiles " $dir/$non_pic_object"
+ rmfiles+=" $dir/$non_pic_object"
fi
fi
;;
*)
if test "$opt_mode" = clean ; then
noexename=$name
case $file in
*.exe)
func_stripname '' '.exe' "$file"
file=$func_stripname_result
func_stripname '' '.exe' "$name"
noexename=$func_stripname_result
# $file with .exe has already been added to rmfiles,
# add $file without .exe
- func_append rmfiles " $file"
+ rmfiles+=" $file"
;;
esac
# Do a test to see if this is a libtool program.
if func_ltwrapper_p "$file"; then
if func_ltwrapper_executable_p "$file"; then
func_ltwrapper_scriptname "$file"
relink_command=
func_source $func_ltwrapper_scriptname_result
- func_append rmfiles " $func_ltwrapper_scriptname_result"
+ rmfiles+=" $func_ltwrapper_scriptname_result"
else
relink_command=
func_source $dir/$noexename
fi
# note $name still contains .exe if it was in $file originally
# as does the version of $file that was added into $rmfiles
- func_append rmfiles " $odir/$name $odir/${name}S.${objext}"
+ rmfiles+=" $odir/$name $odir/${name}S.${objext}"
if test "$fast_install" = yes && test -n "$relink_command"; then
- func_append rmfiles " $odir/lt-$name"
+ rmfiles+=" $odir/lt-$name"
fi
if test "X$noexename" != "X$name" ; then
- func_append rmfiles " $odir/lt-${noexename}.c"
+ rmfiles+=" $odir/lt-${noexename}.c"
fi
fi
fi
;;
esac
func_show_eval "$RM $rmfiles" 'exit_status=1'
done
# Try to remove the ${objdir}s in the directories where we deleted files
for dir in $rmdirs; do
if test -d "$dir"; then
func_show_eval "rmdir $dir >/dev/null 2>&1"
fi
done
exit $exit_status
}
{ test "$opt_mode" = uninstall || test "$opt_mode" = clean; } &&
func_mode_uninstall ${1+"$@"}
test -z "$opt_mode" && {
help="$generic_help"
func_fatal_help "you must specify a MODE"
}
test -z "$exec_cmd" && \
func_fatal_help "invalid operation mode \`$opt_mode'"
if test -n "$exec_cmd"; then
eval exec "$exec_cmd"
exit $EXIT_FAILURE
fi
exit $exit_status
# The TAGs below are defined such that we never get into a situation
# in which we disable both kinds of libraries. Given conflicting
# choices, we go for a static library, that is the most portable,
# since we can't tell whether shared libraries were disabled because
# the user asked for that or because the platform doesn't support
# them. This is particularly important on AIX, because we don't
# support having both static and shared libraries enabled at the same
# time on that platform, so we default to a shared-only configuration.
# If a disable-shared tag is given, we'll fallback to a static-only
# configuration. But we'll never go from static-only to shared-only.
# ### BEGIN LIBTOOL TAG CONFIG: disable-shared
build_libtool_libs=no
build_old_libs=yes
# ### END LIBTOOL TAG CONFIG: disable-shared
# ### BEGIN LIBTOOL TAG CONFIG: disable-static
build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac`
# ### END LIBTOOL TAG CONFIG: disable-static
# Local Variables:
# mode:shell-script
# sh-indentation:2
# End:
# vi:sw=2
+
+# ### BEGIN LIBTOOL TAG CONFIG: F77
+
+# The linker used to build libraries.
+LD="/usr/x86_64-suse-linux/bin/ld -m elf_x86_64"
+
+# How to create reloadable object files.
+reload_flag=" -r"
+reload_cmds="\$LD\$reload_flag -o \$output\$reload_objs"
+
+# Commands used to build an old-style archive.
+old_archive_cmds="\$AR \$AR_FLAGS \$oldlib\$oldobjs~\$RANLIB \$tool_oldlib"
+
+# A language specific compiler.
+CC="gfortran"
+
+# Is the compiler the GNU compiler?
+with_gcc=yes
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=""
+
+# Additional compiler flags for building library objects.
+pic_flag=" -fPIC"
+
+# How to pass a linker flag through the compiler.
+wl="-Wl,"
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag="-static"
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o="yes"
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=no
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=no
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec="\${wl}--export-dynamic"
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec="\${wl}--whole-archive\$convenience \${wl}--no-whole-archive"
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object="no"
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=""
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=""
+
+# Commands used to build a shared archive.
+archive_cmds="\$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname -o \$lib"
+archive_expsym_cmds="echo \\\"{ global:\\\" > \$output_objdir/\$libname.ver~
+ cat \$export_symbols | sed -e \\\"s/\\\\(.*\\\\)/\\\\1;/\\\" >> \$output_objdir/\$libname.ver~
+ echo \\\"local: *; };\\\" >> \$output_objdir/\$libname.ver~
+ \$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname \${wl}-version-script \${wl}\$output_objdir/\$libname.ver -o \$lib"
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=""
+module_expsym_cmds=""
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld="yes"
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=""
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=""
+
+# Flag to hardcode $libdir into a binary during linking.
+# This must work even if $libdir does not exist
+hardcode_libdir_flag_spec="\${wl}-rpath \${wl}\$libdir"
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=""
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=no
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting ${shlibpath_var} if the
+# library is relocated.
+hardcode_direct_absolute=no
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=no
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=unsupported
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=no
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=no
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=unknown
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=no
+
+# The commands to list exported symbols.
+export_symbols_cmds="\$NM \$libobjs \$convenience | \$global_symbol_pipe | \$SED 's/.* //' | sort | uniq > \$export_symbols"
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms="_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*"
+
+# Symbols that must always be exported.
+include_expsyms=""
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=""
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=""
+
+# Specify filename containing input files.
+file_list_spec=""
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=immediate
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=""
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=""
+postdep_objects=""
+predeps=""
+postdeps=""
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=""
+
+# ### END LIBTOOL TAG CONFIG: F77
+
+# ### BEGIN LIBTOOL TAG CONFIG: FC
+
+# The linker used to build libraries.
+LD="/usr/x86_64-suse-linux/bin/ld -m elf_x86_64"
+
+# How to create reloadable object files.
+reload_flag=" -r"
+reload_cmds="\$LD\$reload_flag -o \$output\$reload_objs"
+
+# Commands used to build an old-style archive.
+old_archive_cmds="\$AR \$AR_FLAGS \$oldlib\$oldobjs~\$RANLIB \$tool_oldlib"
+
+# A language specific compiler.
+CC="gfortran"
+
+# Is the compiler the GNU compiler?
+with_gcc=yes
+
+# Compiler flag to turn off builtin functions.
+no_builtin_flag=""
+
+# Additional compiler flags for building library objects.
+pic_flag=" -fPIC"
+
+# How to pass a linker flag through the compiler.
+wl="-Wl,"
+
+# Compiler flag to prevent dynamic linking.
+link_static_flag="-static"
+
+# Does compiler simultaneously support -c and -o options?
+compiler_c_o="yes"
+
+# Whether or not to add -lc for building shared libraries.
+build_libtool_need_lc=no
+
+# Whether or not to disallow shared libs when runtime libs are static.
+allow_libtool_libs_with_static_runtimes=no
+
+# Compiler flag to allow reflexive dlopens.
+export_dynamic_flag_spec="\${wl}--export-dynamic"
+
+# Compiler flag to generate shared objects directly from archives.
+whole_archive_flag_spec="\${wl}--whole-archive\$convenience \${wl}--no-whole-archive"
+
+# Whether the compiler copes with passing no objects directly.
+compiler_needs_object="no"
+
+# Create an old-style archive from a shared archive.
+old_archive_from_new_cmds=""
+
+# Create a temporary old-style archive to link instead of a shared archive.
+old_archive_from_expsyms_cmds=""
+
+# Commands used to build a shared archive.
+archive_cmds="\$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname -o \$lib"
+archive_expsym_cmds="echo \\\"{ global:\\\" > \$output_objdir/\$libname.ver~
+ cat \$export_symbols | sed -e \\\"s/\\\\(.*\\\\)/\\\\1;/\\\" >> \$output_objdir/\$libname.ver~
+ echo \\\"local: *; };\\\" >> \$output_objdir/\$libname.ver~
+ \$CC -shared \$pic_flag \$libobjs \$deplibs \$compiler_flags \${wl}-soname \$wl\$soname \${wl}-version-script \${wl}\$output_objdir/\$libname.ver -o \$lib"
+
+# Commands used to build a loadable module if different from building
+# a shared archive.
+module_cmds=""
+module_expsym_cmds=""
+
+# Whether we are building with GNU ld or not.
+with_gnu_ld="yes"
+
+# Flag that allows shared libraries with undefined symbols to be built.
+allow_undefined_flag=""
+
+# Flag that enforces no undefined symbols.
+no_undefined_flag=""
+
+# Flag to hardcode $libdir into a binary during linking.
+# This must work even if $libdir does not exist
+hardcode_libdir_flag_spec="\${wl}-rpath \${wl}\$libdir"
+
+# Whether we need a single "-rpath" flag with a separated argument.
+hardcode_libdir_separator=""
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary.
+hardcode_direct=no
+
+# Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
+# DIR into the resulting binary and the resulting library dependency is
+# "absolute",i.e impossible to change by setting ${shlibpath_var} if the
+# library is relocated.
+hardcode_direct_absolute=no
+
+# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
+# into the resulting binary.
+hardcode_minus_L=no
+
+# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
+# into the resulting binary.
+hardcode_shlibpath_var=unsupported
+
+# Set to "yes" if building a shared library automatically hardcodes DIR
+# into the library and all subsequent libraries and executables linked
+# against it.
+hardcode_automatic=no
+
+# Set to yes if linker adds runtime paths of dependent libraries
+# to runtime path list.
+inherit_rpath=no
+
+# Whether libtool must link a program against all its dependency libraries.
+link_all_deplibs=unknown
+
+# Set to "yes" if exported symbols are required.
+always_export_symbols=no
+
+# The commands to list exported symbols.
+export_symbols_cmds="\$NM \$libobjs \$convenience | \$global_symbol_pipe | \$SED 's/.* //' | sort | uniq > \$export_symbols"
+
+# Symbols that should not be listed in the preloaded symbols.
+exclude_expsyms="_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*"
+
+# Symbols that must always be exported.
+include_expsyms=""
+
+# Commands necessary for linking programs (against libraries) with templates.
+prelink_cmds=""
+
+# Commands necessary for finishing linking programs.
+postlink_cmds=""
+
+# Specify filename containing input files.
+file_list_spec=""
+
+# How to hardcode a shared library path into an executable.
+hardcode_action=immediate
+
+# The directories searched by this compiler when creating a shared library.
+compiler_lib_search_dirs=""
+
+# Dependencies to place before and after the objects being linked to
+# create a shared library.
+predep_objects=""
+postdep_objects=""
+predeps=""
+postdeps=""
+
+# The library search path used internally by the compiler when linking
+# a shared library.
+compiler_lib_search_path=""
+
+# ### END LIBTOOL TAG CONFIG: FC
diff --git a/m4/libtool.m4 b/m4/libtool.m4
index d812584..44e0ecf 100644
--- a/m4/libtool.m4
+++ b/m4/libtool.m4
@@ -1,7831 +1,7982 @@
# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*-
#
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
-# 2006, 2007, 2008, 2009, 2010 Free Software Foundation,
-# Inc.
+# 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+# Foundation, Inc.
# Written by Gordon Matzigkeit, 1996
#
# This file is free software; the Free Software Foundation gives
# unlimited permission to copy and/or distribute it, with or without
# modifications, as long as this notice is preserved.
m4_define([_LT_COPYING], [dnl
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
-# 2006, 2007, 2008, 2009, 2010 Free Software Foundation,
-# Inc.
+# 2006, 2007, 2008, 2009, 2010, 2011 Free Software
+# Foundation, Inc.
# Written by Gordon Matzigkeit, 1996
#
# This file is part of GNU Libtool.
#
# GNU Libtool is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
#
# As a special exception to the GNU General Public License,
# if you distribute this file as part of a program or library that
# is built using GNU Libtool, you may include this file under the
# same distribution terms that you use for the rest of that program.
#
# GNU Libtool is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Libtool; see the file COPYING. If not, a copy
# can be downloaded from http://www.gnu.org/licenses/gpl.html, or
# obtained by writing to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
])
# serial 57 LT_INIT
# LT_PREREQ(VERSION)
# ------------------
# Complain and exit if this libtool version is less that VERSION.
m4_defun([LT_PREREQ],
[m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1,
[m4_default([$3],
[m4_fatal([Libtool version $1 or higher is required],
63)])],
[$2])])
# _LT_CHECK_BUILDDIR
# ------------------
# Complain if the absolute build directory name contains unusual characters
m4_defun([_LT_CHECK_BUILDDIR],
[case `pwd` in
*\ * | *\ *)
AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;;
esac
])
# LT_INIT([OPTIONS])
# ------------------
AC_DEFUN([LT_INIT],
[AC_PREREQ([2.58])dnl We use AC_INCLUDES_DEFAULT
AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl
AC_BEFORE([$0], [LT_LANG])dnl
AC_BEFORE([$0], [LT_OUTPUT])dnl
AC_BEFORE([$0], [LTDL_INIT])dnl
m4_require([_LT_CHECK_BUILDDIR])dnl
dnl Autoconf doesn't catch unexpanded LT_ macros by default:
m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl
m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl
dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4
dnl unless we require an AC_DEFUNed macro:
AC_REQUIRE([LTOPTIONS_VERSION])dnl
AC_REQUIRE([LTSUGAR_VERSION])dnl
AC_REQUIRE([LTVERSION_VERSION])dnl
AC_REQUIRE([LTOBSOLETE_VERSION])dnl
m4_require([_LT_PROG_LTMAIN])dnl
_LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}])
dnl Parse OPTIONS
_LT_SET_OPTIONS([$0], [$1])
# This can be used to rebuild libtool when needed
LIBTOOL_DEPS="$ltmain"
# Always use our own libtool.
LIBTOOL='$(SHELL) $(top_builddir)/libtool'
AC_SUBST(LIBTOOL)dnl
_LT_SETUP
# Only expand once:
m4_define([LT_INIT])
])# LT_INIT
# Old names:
AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT])
AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_PROG_LIBTOOL], [])
dnl AC_DEFUN([AM_PROG_LIBTOOL], [])
# _LT_CC_BASENAME(CC)
# -------------------
# Calculate cc_basename. Skip known compiler wrappers and cross-prefix.
m4_defun([_LT_CC_BASENAME],
[for cc_temp in $1""; do
case $cc_temp in
compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;;
distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;;
\-*) ;;
*) break;;
esac
done
cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"`
])
# _LT_FILEUTILS_DEFAULTS
# ----------------------
# It is okay to use these file commands and assume they have been set
# sensibly after `m4_require([_LT_FILEUTILS_DEFAULTS])'.
m4_defun([_LT_FILEUTILS_DEFAULTS],
[: ${CP="cp -f"}
: ${MV="mv -f"}
: ${RM="rm -f"}
])# _LT_FILEUTILS_DEFAULTS
# _LT_SETUP
# ---------
m4_defun([_LT_SETUP],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_CANONICAL_BUILD])dnl
AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl
AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl
+_LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl
+dnl
_LT_DECL([], [host_alias], [0], [The host system])dnl
_LT_DECL([], [host], [0])dnl
_LT_DECL([], [host_os], [0])dnl
dnl
_LT_DECL([], [build_alias], [0], [The build system])dnl
_LT_DECL([], [build], [0])dnl
_LT_DECL([], [build_os], [0])dnl
dnl
AC_REQUIRE([AC_PROG_CC])dnl
AC_REQUIRE([LT_PATH_LD])dnl
AC_REQUIRE([LT_PATH_NM])dnl
dnl
AC_REQUIRE([AC_PROG_LN_S])dnl
test -z "$LN_S" && LN_S="ln -s"
_LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl
dnl
AC_REQUIRE([LT_CMD_MAX_LEN])dnl
_LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl
_LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl
dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_CHECK_SHELL_FEATURES])dnl
m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl
m4_require([_LT_CMD_RELOAD])dnl
m4_require([_LT_CHECK_MAGIC_METHOD])dnl
m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl
m4_require([_LT_CMD_OLD_ARCHIVE])dnl
m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl
m4_require([_LT_WITH_SYSROOT])dnl
_LT_CONFIG_LIBTOOL_INIT([
# See if we are running on zsh, and set the options which allow our
# commands through without removal of \ escapes INIT.
if test -n "\${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
])
if test -n "${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
_LT_CHECK_OBJDIR
m4_require([_LT_TAG_COMPILER])dnl
case $host_os in
aix3*)
# AIX sometimes has problems with the GCC collect2 program. For some
# reason, if we set the COLLECT_NAMES environment variable, the problems
# vanish in a puff of smoke.
if test "X${COLLECT_NAMES+set}" != Xset; then
COLLECT_NAMES=
export COLLECT_NAMES
fi
;;
esac
# Global variables:
ofile=libtool
can_build_shared=yes
# All known linkers require a `.a' archive for static linking (except MSVC,
# which needs '.lib').
libext=a
with_gnu_ld="$lt_cv_prog_gnu_ld"
old_CC="$CC"
old_CFLAGS="$CFLAGS"
# Set sane defaults for various variables
test -z "$CC" && CC=cc
test -z "$LTCC" && LTCC=$CC
test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
test -z "$LD" && LD=ld
test -z "$ac_objext" && ac_objext=o
_LT_CC_BASENAME([$compiler])
# Only perform the check for file, if the check method requires it
test -z "$MAGIC_CMD" && MAGIC_CMD=file
case $deplibs_check_method in
file_magic*)
if test "$file_magic_cmd" = '$MAGIC_CMD'; then
_LT_PATH_MAGIC
fi
;;
esac
# Use C for the default configuration in the libtool script
LT_SUPPORTED_TAG([CC])
_LT_LANG_C_CONFIG
_LT_LANG_DEFAULT_CONFIG
_LT_CONFIG_COMMANDS
])# _LT_SETUP
# _LT_PREPARE_SED_QUOTE_VARS
# --------------------------
# Define a few sed substitution that help us do robust quoting.
m4_defun([_LT_PREPARE_SED_QUOTE_VARS],
[# Backslashify metacharacters that are still active within
# double-quoted strings.
sed_quote_subst='s/\([["`$\\]]\)/\\\1/g'
# Same as above, but do not quote variable references.
double_quote_subst='s/\([["`\\]]\)/\\\1/g'
# Sed substitution to delay expansion of an escaped shell variable in a
# double_quote_subst'ed string.
delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
# Sed substitution to delay expansion of an escaped single quote.
delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
# Sed substitution to avoid accidental globbing in evaled expressions
no_glob_subst='s/\*/\\\*/g'
])
# _LT_PROG_LTMAIN
# ---------------
# Note that this code is called both from `configure', and `config.status'
# now that we use AC_CONFIG_COMMANDS to generate libtool. Notably,
# `config.status' has no value for ac_aux_dir unless we are using Automake,
# so we pass a copy along to make sure it has a sensible value anyway.
m4_defun([_LT_PROG_LTMAIN],
[m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl
_LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir'])
ltmain="$ac_aux_dir/ltmain.sh"
])# _LT_PROG_LTMAIN
## ------------------------------------- ##
## Accumulate code for creating libtool. ##
## ------------------------------------- ##
# So that we can recreate a full libtool script including additional
# tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS
# in macros and then make a single call at the end using the `libtool'
# label.
# _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS])
# ----------------------------------------
# Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later.
m4_define([_LT_CONFIG_LIBTOOL_INIT],
[m4_ifval([$1],
[m4_append([_LT_OUTPUT_LIBTOOL_INIT],
[$1
])])])
# Initialize.
m4_define([_LT_OUTPUT_LIBTOOL_INIT])
# _LT_CONFIG_LIBTOOL([COMMANDS])
# ------------------------------
# Register COMMANDS to be passed to AC_CONFIG_COMMANDS later.
m4_define([_LT_CONFIG_LIBTOOL],
[m4_ifval([$1],
[m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS],
[$1
])])])
# Initialize.
m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS])
# _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS])
# -----------------------------------------------------
m4_defun([_LT_CONFIG_SAVE_COMMANDS],
[_LT_CONFIG_LIBTOOL([$1])
_LT_CONFIG_LIBTOOL_INIT([$2])
])
# _LT_FORMAT_COMMENT([COMMENT])
# -----------------------------
# Add leading comment marks to the start of each line, and a trailing
# full-stop to the whole comment if one is not present already.
m4_define([_LT_FORMAT_COMMENT],
[m4_ifval([$1], [
m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])],
[['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.])
)])
## ------------------------ ##
## FIXME: Eliminate VARNAME ##
## ------------------------ ##
# _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?])
# -------------------------------------------------------------------
# CONFIGNAME is the name given to the value in the libtool script.
# VARNAME is the (base) name used in the configure script.
# VALUE may be 0, 1 or 2 for a computed quote escaped value based on
# VARNAME. Any other value will be used directly.
m4_define([_LT_DECL],
[lt_if_append_uniq([lt_decl_varnames], [$2], [, ],
[lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name],
[m4_ifval([$1], [$1], [$2])])
lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3])
m4_ifval([$4],
[lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])])
lt_dict_add_subkey([lt_decl_dict], [$2],
[tagged?], [m4_ifval([$5], [yes], [no])])])
])
# _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION])
# --------------------------------------------------------
m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])])
# lt_decl_tag_varnames([SEPARATOR], [VARNAME1...])
# ------------------------------------------------
m4_define([lt_decl_tag_varnames],
[_lt_decl_filter([tagged?], [yes], $@)])
# _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..])
# ---------------------------------------------------------
m4_define([_lt_decl_filter],
[m4_case([$#],
[0], [m4_fatal([$0: too few arguments: $#])],
[1], [m4_fatal([$0: too few arguments: $#: $1])],
[2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)],
[3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)],
[lt_dict_filter([lt_decl_dict], $@)])[]dnl
])
# lt_decl_quote_varnames([SEPARATOR], [VARNAME1...])
# --------------------------------------------------
m4_define([lt_decl_quote_varnames],
[_lt_decl_filter([value], [1], $@)])
# lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...])
# ---------------------------------------------------
m4_define([lt_decl_dquote_varnames],
[_lt_decl_filter([value], [2], $@)])
# lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...])
# ---------------------------------------------------
m4_define([lt_decl_varnames_tagged],
[m4_assert([$# <= 2])dnl
_$0(m4_quote(m4_default([$1], [[, ]])),
m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]),
m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))])
m4_define([_lt_decl_varnames_tagged],
[m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])])
# lt_decl_all_varnames([SEPARATOR], [VARNAME1...])
# ------------------------------------------------
m4_define([lt_decl_all_varnames],
[_$0(m4_quote(m4_default([$1], [[, ]])),
m4_if([$2], [],
m4_quote(lt_decl_varnames),
m4_quote(m4_shift($@))))[]dnl
])
m4_define([_lt_decl_all_varnames],
[lt_join($@, lt_decl_varnames_tagged([$1],
lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl
])
# _LT_CONFIG_STATUS_DECLARE([VARNAME])
# ------------------------------------
# Quote a variable value, and forward it to `config.status' so that its
# declaration there will have the same value as in `configure'. VARNAME
# must have a single quote delimited value for this to work.
m4_define([_LT_CONFIG_STATUS_DECLARE],
[$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`'])
# _LT_CONFIG_STATUS_DECLARATIONS
# ------------------------------
# We delimit libtool config variables with single quotes, so when
# we write them to config.status, we have to be sure to quote all
# embedded single quotes properly. In configure, this macro expands
# each variable declared with _LT_DECL (and _LT_TAGDECL) into:
#
# <var>='`$ECHO "$<var>" | $SED "$delay_single_quote_subst"`'
m4_defun([_LT_CONFIG_STATUS_DECLARATIONS],
[m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames),
[m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])])
# _LT_LIBTOOL_TAGS
# ----------------
# Output comment and list of tags supported by the script
m4_defun([_LT_LIBTOOL_TAGS],
[_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl
available_tags="_LT_TAGS"dnl
])
# _LT_LIBTOOL_DECLARE(VARNAME, [TAG])
# -----------------------------------
# Extract the dictionary values for VARNAME (optionally with TAG) and
# expand to a commented shell variable setting:
#
# # Some comment about what VAR is for.
# visible_name=$lt_internal_name
m4_define([_LT_LIBTOOL_DECLARE],
[_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1],
[description])))[]dnl
m4_pushdef([_libtool_name],
m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl
m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])),
[0], [_libtool_name=[$]$1],
[1], [_libtool_name=$lt_[]$1],
[2], [_libtool_name=$lt_[]$1],
[_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl
m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl
])
# _LT_LIBTOOL_CONFIG_VARS
# -----------------------
# Produce commented declarations of non-tagged libtool config variables
# suitable for insertion in the LIBTOOL CONFIG section of the `libtool'
# script. Tagged libtool config variables (even for the LIBTOOL CONFIG
# section) are produced by _LT_LIBTOOL_TAG_VARS.
m4_defun([_LT_LIBTOOL_CONFIG_VARS],
[m4_foreach([_lt_var],
m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)),
[m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])])
# _LT_LIBTOOL_TAG_VARS(TAG)
# -------------------------
m4_define([_LT_LIBTOOL_TAG_VARS],
[m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames),
[m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])])
# _LT_TAGVAR(VARNAME, [TAGNAME])
# ------------------------------
m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])])
# _LT_CONFIG_COMMANDS
# -------------------
# Send accumulated output to $CONFIG_STATUS. Thanks to the lists of
# variables for single and double quote escaping we saved from calls
# to _LT_DECL, we can put quote escaped variables declarations
# into `config.status', and then the shell code to quote escape them in
# for loops in `config.status'. Finally, any additional code accumulated
# from calls to _LT_CONFIG_LIBTOOL_INIT is expanded.
m4_defun([_LT_CONFIG_COMMANDS],
[AC_PROVIDE_IFELSE([LT_OUTPUT],
dnl If the libtool generation code has been placed in $CONFIG_LT,
dnl instead of duplicating it all over again into config.status,
dnl then we will have config.status run $CONFIG_LT later, so it
dnl needs to know what name is stored there:
[AC_CONFIG_COMMANDS([libtool],
[$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])],
dnl If the libtool generation code is destined for config.status,
dnl expand the accumulated commands and init code now:
[AC_CONFIG_COMMANDS([libtool],
[_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])])
])#_LT_CONFIG_COMMANDS
# Initialize.
m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT],
[
# The HP-UX ksh and POSIX shell print the target directory to stdout
# if CDPATH is set.
(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
sed_quote_subst='$sed_quote_subst'
double_quote_subst='$double_quote_subst'
delay_variable_subst='$delay_variable_subst'
_LT_CONFIG_STATUS_DECLARATIONS
LTCC='$LTCC'
LTCFLAGS='$LTCFLAGS'
compiler='$compiler_DEFAULT'
# A function that is used when there is no print builtin or printf.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
\$[]1
_LTECHO_EOF'
}
# Quote evaled strings.
for var in lt_decl_all_varnames([[ \
]], lt_decl_quote_varnames); do
case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
*[[\\\\\\\`\\"\\\$]]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\""
;;
*)
eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
;;
esac
done
# Double-quote double-evaled strings.
for var in lt_decl_all_varnames([[ \
]], lt_decl_dquote_varnames); do
case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in
*[[\\\\\\\`\\"\\\$]]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\""
;;
*)
eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
;;
esac
done
_LT_OUTPUT_LIBTOOL_INIT
])
# _LT_GENERATED_FILE_INIT(FILE, [COMMENT])
# ------------------------------------
# Generate a child script FILE with all initialization necessary to
# reuse the environment learned by the parent script, and make the
# file executable. If COMMENT is supplied, it is inserted after the
# `#!' sequence but before initialization text begins. After this
# macro, additional text can be appended to FILE to form the body of
# the child script. The macro ends with non-zero status if the
# file could not be fully written (such as if the disk is full).
m4_ifdef([AS_INIT_GENERATED],
[m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])],
[m4_defun([_LT_GENERATED_FILE_INIT],
[m4_require([AS_PREPARE])]dnl
[m4_pushdef([AS_MESSAGE_LOG_FD])]dnl
[lt_write_fail=0
cat >$1 <<_ASEOF || lt_write_fail=1
#! $SHELL
# Generated by $as_me.
$2
SHELL=\${CONFIG_SHELL-$SHELL}
export SHELL
_ASEOF
cat >>$1 <<\_ASEOF || lt_write_fail=1
AS_SHELL_SANITIZE
_AS_PREPARE
exec AS_MESSAGE_FD>&1
_ASEOF
test $lt_write_fail = 0 && chmod +x $1[]dnl
m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT
# LT_OUTPUT
# ---------
# This macro allows early generation of the libtool script (before
# AC_OUTPUT is called), incase it is used in configure for compilation
# tests.
AC_DEFUN([LT_OUTPUT],
[: ${CONFIG_LT=./config.lt}
AC_MSG_NOTICE([creating $CONFIG_LT])
_LT_GENERATED_FILE_INIT(["$CONFIG_LT"],
[# Run this file to recreate a libtool stub with the current configuration.])
cat >>"$CONFIG_LT" <<\_LTEOF
lt_cl_silent=false
exec AS_MESSAGE_LOG_FD>>config.log
{
echo
AS_BOX([Running $as_me.])
} >&AS_MESSAGE_LOG_FD
lt_cl_help="\
\`$as_me' creates a local libtool stub from the current configuration,
for use in further configure time tests before the real libtool is
generated.
Usage: $[0] [[OPTIONS]]
-h, --help print this help, then exit
-V, --version print version number, then exit
-q, --quiet do not print progress messages
-d, --debug don't remove temporary files
Report bugs to <bug-libtool@gnu.org>."
lt_cl_version="\
m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl
m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION])
configured by $[0], generated by m4_PACKAGE_STRING.
-Copyright (C) 2010 Free Software Foundation, Inc.
+Copyright (C) 2011 Free Software Foundation, Inc.
This config.lt script is free software; the Free Software Foundation
gives unlimited permision to copy, distribute and modify it."
while test $[#] != 0
do
case $[1] in
--version | --v* | -V )
echo "$lt_cl_version"; exit 0 ;;
--help | --h* | -h )
echo "$lt_cl_help"; exit 0 ;;
--debug | --d* | -d )
debug=: ;;
--quiet | --q* | --silent | --s* | -q )
lt_cl_silent=: ;;
-*) AC_MSG_ERROR([unrecognized option: $[1]
Try \`$[0] --help' for more information.]) ;;
*) AC_MSG_ERROR([unrecognized argument: $[1]
Try \`$[0] --help' for more information.]) ;;
esac
shift
done
if $lt_cl_silent; then
exec AS_MESSAGE_FD>/dev/null
fi
_LTEOF
cat >>"$CONFIG_LT" <<_LTEOF
_LT_OUTPUT_LIBTOOL_COMMANDS_INIT
_LTEOF
cat >>"$CONFIG_LT" <<\_LTEOF
AC_MSG_NOTICE([creating $ofile])
_LT_OUTPUT_LIBTOOL_COMMANDS
AS_EXIT(0)
_LTEOF
chmod +x "$CONFIG_LT"
# configure is writing to config.log, but config.lt does its own redirection,
# appending to config.log, which fails on DOS, as config.log is still kept
# open by configure. Here we exec the FD to /dev/null, effectively closing
# config.log, so it can be properly (re)opened and appended to by config.lt.
lt_cl_success=:
test "$silent" = yes &&
lt_config_lt_args="$lt_config_lt_args --quiet"
exec AS_MESSAGE_LOG_FD>/dev/null
$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false
exec AS_MESSAGE_LOG_FD>>config.log
$lt_cl_success || AS_EXIT(1)
])# LT_OUTPUT
# _LT_CONFIG(TAG)
# ---------------
# If TAG is the built-in tag, create an initial libtool script with a
# default configuration from the untagged config vars. Otherwise add code
# to config.status for appending the configuration named by TAG from the
# matching tagged config vars.
m4_defun([_LT_CONFIG],
[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
_LT_CONFIG_SAVE_COMMANDS([
m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl
m4_if(_LT_TAG, [C], [
# See if we are running on zsh, and set the options which allow our
# commands through without removal of \ escapes.
if test -n "${ZSH_VERSION+set}" ; then
setopt NO_GLOB_SUBST
fi
cfgfile="${ofile}T"
trap "$RM \"$cfgfile\"; exit 1" 1 2 15
$RM "$cfgfile"
cat <<_LT_EOF >> "$cfgfile"
#! $SHELL
# `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services.
# Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION
# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
# NOTE: Changes made to this file will be lost: look at ltmain.sh.
#
_LT_COPYING
_LT_LIBTOOL_TAGS
# ### BEGIN LIBTOOL CONFIG
_LT_LIBTOOL_CONFIG_VARS
_LT_LIBTOOL_TAG_VARS
# ### END LIBTOOL CONFIG
_LT_EOF
case $host_os in
aix3*)
cat <<\_LT_EOF >> "$cfgfile"
# AIX sometimes has problems with the GCC collect2 program. For some
# reason, if we set the COLLECT_NAMES environment variable, the problems
# vanish in a puff of smoke.
if test "X${COLLECT_NAMES+set}" != Xset; then
COLLECT_NAMES=
export COLLECT_NAMES
fi
_LT_EOF
;;
esac
_LT_PROG_LTMAIN
# We use sed instead of cat because bash on DJGPP gets confused if
# if finds mixed CR/LF and LF-only lines. Since sed operates in
# text mode, it properly converts lines to CR/LF. This bash problem
# is reportedly fixed, but why not run on old versions too?
sed '$q' "$ltmain" >> "$cfgfile" \
|| (rm -f "$cfgfile"; exit 1)
_LT_PROG_REPLACE_SHELLFNS
mv -f "$cfgfile" "$ofile" ||
(rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
chmod +x "$ofile"
],
[cat <<_LT_EOF >> "$ofile"
dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded
dnl in a comment (ie after a #).
# ### BEGIN LIBTOOL TAG CONFIG: $1
_LT_LIBTOOL_TAG_VARS(_LT_TAG)
# ### END LIBTOOL TAG CONFIG: $1
_LT_EOF
])dnl /m4_if
],
[m4_if([$1], [], [
PACKAGE='$PACKAGE'
VERSION='$VERSION'
TIMESTAMP='$TIMESTAMP'
RM='$RM'
ofile='$ofile'], [])
])dnl /_LT_CONFIG_SAVE_COMMANDS
])# _LT_CONFIG
# LT_SUPPORTED_TAG(TAG)
# ---------------------
# Trace this macro to discover what tags are supported by the libtool
# --tag option, using:
# autoconf --trace 'LT_SUPPORTED_TAG:$1'
AC_DEFUN([LT_SUPPORTED_TAG], [])
# C support is built-in for now
m4_define([_LT_LANG_C_enabled], [])
m4_define([_LT_TAGS], [])
# LT_LANG(LANG)
# -------------
# Enable libtool support for the given language if not already enabled.
AC_DEFUN([LT_LANG],
[AC_BEFORE([$0], [LT_OUTPUT])dnl
m4_case([$1],
[C], [_LT_LANG(C)],
[C++], [_LT_LANG(CXX)],
+ [Go], [_LT_LANG(GO)],
[Java], [_LT_LANG(GCJ)],
[Fortran 77], [_LT_LANG(F77)],
[Fortran], [_LT_LANG(FC)],
[Windows Resource], [_LT_LANG(RC)],
[m4_ifdef([_LT_LANG_]$1[_CONFIG],
[_LT_LANG($1)],
[m4_fatal([$0: unsupported language: "$1"])])])dnl
])# LT_LANG
# _LT_LANG(LANGNAME)
# ------------------
m4_defun([_LT_LANG],
[m4_ifdef([_LT_LANG_]$1[_enabled], [],
[LT_SUPPORTED_TAG([$1])dnl
m4_append([_LT_TAGS], [$1 ])dnl
m4_define([_LT_LANG_]$1[_enabled], [])dnl
_LT_LANG_$1_CONFIG($1)])dnl
])# _LT_LANG
+m4_ifndef([AC_PROG_GO], [
+############################################################
+# NOTE: This macro has been submitted for inclusion into #
+# GNU Autoconf as AC_PROG_GO. When it is available in #
+# a released version of Autoconf we should remove this #
+# macro and use it instead. #
+############################################################
+m4_defun([AC_PROG_GO],
+[AC_LANG_PUSH(Go)dnl
+AC_ARG_VAR([GOC], [Go compiler command])dnl
+AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl
+_AC_ARG_VAR_LDFLAGS()dnl
+AC_CHECK_TOOL(GOC, gccgo)
+if test -z "$GOC"; then
+ if test -n "$ac_tool_prefix"; then
+ AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo])
+ fi
+fi
+if test -z "$GOC"; then
+ AC_CHECK_PROG(GOC, gccgo, gccgo, false)
+fi
+])#m4_defun
+])#m4_ifndef
+
+
# _LT_LANG_DEFAULT_CONFIG
# -----------------------
m4_defun([_LT_LANG_DEFAULT_CONFIG],
[AC_PROVIDE_IFELSE([AC_PROG_CXX],
[LT_LANG(CXX)],
[m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])])
AC_PROVIDE_IFELSE([AC_PROG_F77],
[LT_LANG(F77)],
[m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])])
AC_PROVIDE_IFELSE([AC_PROG_FC],
[LT_LANG(FC)],
[m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])])
dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal
dnl pulling things in needlessly.
AC_PROVIDE_IFELSE([AC_PROG_GCJ],
[LT_LANG(GCJ)],
[AC_PROVIDE_IFELSE([A][M_PROG_GCJ],
[LT_LANG(GCJ)],
[AC_PROVIDE_IFELSE([LT_PROG_GCJ],
[LT_LANG(GCJ)],
[m4_ifdef([AC_PROG_GCJ],
[m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])])
m4_ifdef([A][M_PROG_GCJ],
[m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])])
m4_ifdef([LT_PROG_GCJ],
[m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])])
+AC_PROVIDE_IFELSE([AC_PROG_GO],
+ [LT_LANG(GO)],
+ [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])])
+
AC_PROVIDE_IFELSE([LT_PROG_RC],
[LT_LANG(RC)],
[m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])])
])# _LT_LANG_DEFAULT_CONFIG
# Obsolete macros:
AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)])
AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)])
AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)])
AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)])
AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_CXX], [])
dnl AC_DEFUN([AC_LIBTOOL_F77], [])
dnl AC_DEFUN([AC_LIBTOOL_FC], [])
dnl AC_DEFUN([AC_LIBTOOL_GCJ], [])
dnl AC_DEFUN([AC_LIBTOOL_RC], [])
# _LT_TAG_COMPILER
# ----------------
m4_defun([_LT_TAG_COMPILER],
[AC_REQUIRE([AC_PROG_CC])dnl
_LT_DECL([LTCC], [CC], [1], [A C compiler])dnl
_LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl
_LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl
_LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl
# If no C compiler was specified, use CC.
LTCC=${LTCC-"$CC"}
# If no C compiler flags were specified, use CFLAGS.
LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
# Allow CC to be a program name with arguments.
compiler=$CC
])# _LT_TAG_COMPILER
# _LT_COMPILER_BOILERPLATE
# ------------------------
# Check for compiler boilerplate output or warnings with
# the simple compiler test code.
m4_defun([_LT_COMPILER_BOILERPLATE],
[m4_require([_LT_DECL_SED])dnl
ac_outfile=conftest.$ac_objext
echo "$lt_simple_compile_test_code" >conftest.$ac_ext
eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_compiler_boilerplate=`cat conftest.err`
$RM conftest*
])# _LT_COMPILER_BOILERPLATE
# _LT_LINKER_BOILERPLATE
# ----------------------
# Check for linker boilerplate output or warnings with
# the simple link test code.
m4_defun([_LT_LINKER_BOILERPLATE],
[m4_require([_LT_DECL_SED])dnl
ac_outfile=conftest.$ac_objext
echo "$lt_simple_link_test_code" >conftest.$ac_ext
eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_linker_boilerplate=`cat conftest.err`
$RM -r conftest*
])# _LT_LINKER_BOILERPLATE
# _LT_REQUIRED_DARWIN_CHECKS
# -------------------------
m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[
case $host_os in
rhapsody* | darwin*)
AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:])
AC_CHECK_TOOL([NMEDIT], [nmedit], [:])
AC_CHECK_TOOL([LIPO], [lipo], [:])
AC_CHECK_TOOL([OTOOL], [otool], [:])
AC_CHECK_TOOL([OTOOL64], [otool64], [:])
_LT_DECL([], [DSYMUTIL], [1],
[Tool to manipulate archived DWARF debug symbol files on Mac OS X])
_LT_DECL([], [NMEDIT], [1],
[Tool to change global to local symbols on Mac OS X])
_LT_DECL([], [LIPO], [1],
[Tool to manipulate fat objects and archives on Mac OS X])
_LT_DECL([], [OTOOL], [1],
[ldd/readelf like tool for Mach-O binaries on Mac OS X])
_LT_DECL([], [OTOOL64], [1],
[ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4])
AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod],
[lt_cv_apple_cc_single_mod=no
if test -z "${LT_MULTI_MODULE}"; then
# By default we will add the -single_module flag. You can override
# by either setting the environment variable LT_MULTI_MODULE
# non-empty at configure time, or by adding -multi_module to the
# link flags.
rm -rf libconftest.dylib*
echo "int foo(void){return 1;}" > conftest.c
echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
-dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD
$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
-dynamiclib -Wl,-single_module conftest.c 2>conftest.err
_lt_result=$?
- if test -f libconftest.dylib && test ! -s conftest.err && test $_lt_result = 0; then
+ # If there is a non-empty error log, and "single_module"
+ # appears in it, assume the flag caused a linker warning
+ if test -s conftest.err && $GREP single_module conftest.err; then
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ # Otherwise, if the output was created with a 0 exit code from
+ # the compiler, it worked.
+ elif test -f libconftest.dylib && test $_lt_result -eq 0; then
lt_cv_apple_cc_single_mod=yes
else
cat conftest.err >&AS_MESSAGE_LOG_FD
fi
rm -rf libconftest.dylib*
rm -f conftest.*
fi])
+
AC_CACHE_CHECK([for -exported_symbols_list linker flag],
[lt_cv_ld_exported_symbols_list],
[lt_cv_ld_exported_symbols_list=no
save_LDFLAGS=$LDFLAGS
echo "_main" > conftest.sym
LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])],
[lt_cv_ld_exported_symbols_list=yes],
[lt_cv_ld_exported_symbols_list=no])
LDFLAGS="$save_LDFLAGS"
])
+
AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load],
[lt_cv_ld_force_load=no
cat > conftest.c << _LT_EOF
int forced_loaded() { return 2;}
_LT_EOF
echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD
$LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD
echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD
$AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD
echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD
$RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD
cat > conftest.c << _LT_EOF
int main() { return 0;}
_LT_EOF
echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD
$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err
_lt_result=$?
- if test -f conftest && test ! -s conftest.err && test $_lt_result = 0 && $GREP forced_load conftest 2>&1 >/dev/null; then
+ if test -s conftest.err && $GREP force_load conftest.err; then
+ cat conftest.err >&AS_MESSAGE_LOG_FD
+ elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then
lt_cv_ld_force_load=yes
else
cat conftest.err >&AS_MESSAGE_LOG_FD
fi
rm -f conftest.err libconftest.a conftest conftest.c
rm -rf conftest.dSYM
])
case $host_os in
rhapsody* | darwin1.[[012]])
_lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;;
darwin1.*)
_lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
darwin*) # darwin 5.x on
# if running on 10.5 or later, the deployment target defaults
# to the OS version, if on x86, and 10.4, the deployment
# target defaults to 10.4. Don't you love it?
case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
10.0,*86*-darwin8*|10.0,*-darwin[[91]]*)
_lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
10.[[012]]*)
_lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
10.*)
_lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
esac
;;
esac
if test "$lt_cv_apple_cc_single_mod" = "yes"; then
_lt_dar_single_mod='$single_module'
fi
if test "$lt_cv_ld_exported_symbols_list" = "yes"; then
_lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym'
else
_lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}'
fi
if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then
_lt_dsymutil='~$DSYMUTIL $lib || :'
else
_lt_dsymutil=
fi
;;
esac
])
-# _LT_DARWIN_LINKER_FEATURES
-# --------------------------
+# _LT_DARWIN_LINKER_FEATURES([TAG])
+# ---------------------------------
# Checks for linker and compiler features on darwin
m4_defun([_LT_DARWIN_LINKER_FEATURES],
[
m4_require([_LT_REQUIRED_DARWIN_CHECKS])
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_automatic, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
if test "$lt_cv_ld_force_load" = "yes"; then
_LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`'
+ m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes],
+ [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes])
else
_LT_TAGVAR(whole_archive_flag_spec, $1)=''
fi
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined"
case $cc_basename in
ifort*) _lt_dar_can_shared=yes ;;
*) _lt_dar_can_shared=$GCC ;;
esac
if test "$_lt_dar_can_shared" = "yes"; then
output_verbose_link_cmd=func_echo_all
_LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
_LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
_LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
_LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
m4_if([$1], [CXX],
[ if test "$lt_cv_apple_cc_single_mod" != "yes"; then
_LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}"
_LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}"
fi
],[])
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
])
# _LT_SYS_MODULE_PATH_AIX([TAGNAME])
# ----------------------------------
# Links a minimal program and checks the executable
# for the system default hardcoded library path. In most cases,
# this is /usr/lib:/lib, but when the MPI compilers are used
# the location of the communication and MPI libs are included too.
# If we don't find anything, use the default library path according
# to the aix ld manual.
# Store the results from the different compilers for each TAGNAME.
# Allow to override them for all tags through lt_cv_aix_libpath.
m4_defun([_LT_SYS_MODULE_PATH_AIX],
[m4_require([_LT_DECL_SED])dnl
if test "${lt_cv_aix_libpath+set}" = set; then
aix_libpath=$lt_cv_aix_libpath
else
AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])],
[AC_LINK_IFELSE([AC_LANG_PROGRAM],[
lt_aix_libpath_sed='[
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\([^ ]*\) *$/\1/
p
}
}]'
_LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
# Check for a 64-bit object if we didn't find anything.
if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then
_LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi],[])
if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then
_LT_TAGVAR([lt_cv_aix_libpath_], [$1])="/usr/lib:/lib"
fi
])
aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])
fi
])# _LT_SYS_MODULE_PATH_AIX
# _LT_SHELL_INIT(ARG)
# -------------------
m4_define([_LT_SHELL_INIT],
[m4_divert_text([M4SH-INIT], [$1
])])# _LT_SHELL_INIT
# _LT_PROG_ECHO_BACKSLASH
# -----------------------
# Find how we can fake an echo command that does not interpret backslash.
# In particular, with Autoconf 2.60 or later we add some code to the start
# of the generated configure script which will find a shell with a builtin
# printf (which we can use as an echo command).
m4_defun([_LT_PROG_ECHO_BACKSLASH],
[ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
AC_MSG_CHECKING([how to print strings])
# Test print first, because it will be a builtin if present.
if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \
test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='print -r --'
elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then
ECHO='printf %s\n'
else
# Use this function as a fallback that always works.
func_fallback_echo ()
{
eval 'cat <<_LTECHO_EOF
$[]1
_LTECHO_EOF'
}
ECHO='func_fallback_echo'
fi
# func_echo_all arg...
# Invoke $ECHO with all args, space-separated.
func_echo_all ()
{
$ECHO "$*"
}
case "$ECHO" in
printf*) AC_MSG_RESULT([printf]) ;;
print*) AC_MSG_RESULT([print -r]) ;;
*) AC_MSG_RESULT([cat]) ;;
esac
m4_ifdef([_AS_DETECT_SUGGESTED],
[_AS_DETECT_SUGGESTED([
test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || (
ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO
ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO
PATH=/empty FPATH=/empty; export PATH FPATH
test "X`printf %s $ECHO`" = "X$ECHO" \
|| test "X`print -r -- $ECHO`" = "X$ECHO" )])])
_LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts])
_LT_DECL([], [ECHO], [1], [An echo program that protects backslashes])
])# _LT_PROG_ECHO_BACKSLASH
# _LT_WITH_SYSROOT
# ----------------
AC_DEFUN([_LT_WITH_SYSROOT],
[AC_MSG_CHECKING([for sysroot])
AC_ARG_WITH([sysroot],
[ --with-sysroot[=DIR] Search for dependent libraries within DIR
(or the compiler's sysroot if not specified).],
[], [with_sysroot=no])
dnl lt_sysroot will always be passed unquoted. We quote it here
dnl in case the user passed a directory name.
lt_sysroot=
case ${with_sysroot} in #(
yes)
if test "$GCC" = yes; then
lt_sysroot=`$CC --print-sysroot 2>/dev/null`
fi
;; #(
/*)
lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
;; #(
no|'')
;; #(
*)
AC_MSG_RESULT([${with_sysroot}])
AC_MSG_ERROR([The sysroot must be an absolute path.])
;;
esac
AC_MSG_RESULT([${lt_sysroot:-no}])
_LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl
[dependent libraries, and in which our libraries should be installed.])])
# _LT_ENABLE_LOCK
# ---------------
m4_defun([_LT_ENABLE_LOCK],
[AC_ARG_ENABLE([libtool-lock],
[AS_HELP_STRING([--disable-libtool-lock],
[avoid locking (might break parallel builds)])])
test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes
# Some flags need to be propagated to the compiler or linker for good
# libtool support.
case $host in
ia64-*-hpux*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
case `/usr/bin/file conftest.$ac_objext` in
*ELF-32*)
HPUX_IA64_MODE="32"
;;
*ELF-64*)
HPUX_IA64_MODE="64"
;;
esac
fi
rm -rf conftest*
;;
*-*-irix6*)
# Find out which ABI we are using.
echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
if test "$lt_cv_prog_gnu_ld" = yes; then
case `/usr/bin/file conftest.$ac_objext` in
*32-bit*)
LD="${LD-ld} -melf32bsmip"
;;
*N32*)
LD="${LD-ld} -melf32bmipn32"
;;
*64-bit*)
LD="${LD-ld} -melf64bmip"
;;
esac
else
case `/usr/bin/file conftest.$ac_objext` in
*32-bit*)
LD="${LD-ld} -32"
;;
*N32*)
LD="${LD-ld} -n32"
;;
*64-bit*)
LD="${LD-ld} -64"
;;
esac
fi
fi
rm -rf conftest*
;;
x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \
s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
case `/usr/bin/file conftest.o` in
*32-bit*)
case $host in
x86_64-*kfreebsd*-gnu)
LD="${LD-ld} -m elf_i386_fbsd"
;;
x86_64-*linux*)
LD="${LD-ld} -m elf_i386"
;;
ppc64-*linux*|powerpc64-*linux*)
LD="${LD-ld} -m elf32ppclinux"
;;
s390x-*linux*)
LD="${LD-ld} -m elf_s390"
;;
sparc64-*linux*)
LD="${LD-ld} -m elf32_sparc"
;;
esac
;;
*64-bit*)
case $host in
x86_64-*kfreebsd*-gnu)
LD="${LD-ld} -m elf_x86_64_fbsd"
;;
x86_64-*linux*)
LD="${LD-ld} -m elf_x86_64"
;;
ppc*-*linux*|powerpc*-*linux*)
LD="${LD-ld} -m elf64ppc"
;;
s390*-*linux*|s390*-*tpf*)
LD="${LD-ld} -m elf64_s390"
;;
sparc*-*linux*)
LD="${LD-ld} -m elf64_sparc"
;;
esac
;;
esac
fi
rm -rf conftest*
;;
*-*-sco3.2v5*)
# On SCO OpenServer 5, we need -belf to get full-featured binaries.
SAVE_CFLAGS="$CFLAGS"
CFLAGS="$CFLAGS -belf"
AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf,
[AC_LANG_PUSH(C)
AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no])
AC_LANG_POP])
if test x"$lt_cv_cc_needs_belf" != x"yes"; then
# this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
CFLAGS="$SAVE_CFLAGS"
fi
;;
-sparc*-*solaris*)
+*-*solaris*)
# Find out which ABI we are using.
echo 'int i;' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
case `/usr/bin/file conftest.o` in
*64-bit*)
case $lt_cv_prog_gnu_ld in
- yes*) LD="${LD-ld} -m elf64_sparc" ;;
+ yes*)
+ case $host in
+ i?86-*-solaris*)
+ LD="${LD-ld} -m elf_x86_64"
+ ;;
+ sparc*-*-solaris*)
+ LD="${LD-ld} -m elf64_sparc"
+ ;;
+ esac
+ # GNU ld 2.21 introduced _sol2 emulations. Use them if available.
+ if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then
+ LD="${LD-ld}_sol2"
+ fi
+ ;;
*)
if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
LD="${LD-ld} -64"
fi
;;
esac
;;
esac
fi
rm -rf conftest*
;;
esac
need_locks="$enable_libtool_lock"
])# _LT_ENABLE_LOCK
# _LT_PROG_AR
# -----------
m4_defun([_LT_PROG_AR],
[AC_CHECK_TOOLS(AR, [ar], false)
: ${AR=ar}
: ${AR_FLAGS=cru}
_LT_DECL([], [AR], [1], [The archiver])
_LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive])
AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file],
[lt_cv_ar_at_file=no
AC_COMPILE_IFELSE([AC_LANG_PROGRAM],
[echo conftest.$ac_objext > conftest.lst
lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD'
AC_TRY_EVAL([lt_ar_try])
if test "$ac_status" -eq 0; then
# Ensure the archiver fails upon bogus file names.
rm -f conftest.$ac_objext libconftest.a
AC_TRY_EVAL([lt_ar_try])
if test "$ac_status" -ne 0; then
lt_cv_ar_at_file=@
fi
fi
rm -f conftest.* libconftest.a
])
])
if test "x$lt_cv_ar_at_file" = xno; then
archiver_list_spec=
else
archiver_list_spec=$lt_cv_ar_at_file
fi
_LT_DECL([], [archiver_list_spec], [1],
[How to feed a file listing to the archiver])
])# _LT_PROG_AR
# _LT_CMD_OLD_ARCHIVE
# -------------------
m4_defun([_LT_CMD_OLD_ARCHIVE],
[_LT_PROG_AR
AC_CHECK_TOOL(STRIP, strip, :)
test -z "$STRIP" && STRIP=:
_LT_DECL([], [STRIP], [1], [A symbol stripping program])
AC_CHECK_TOOL(RANLIB, ranlib, :)
test -z "$RANLIB" && RANLIB=:
_LT_DECL([], [RANLIB], [1],
[Commands used to install an old-style archive])
# Determine commands to create old-style static archives.
old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
old_postinstall_cmds='chmod 644 $oldlib'
old_postuninstall_cmds=
if test -n "$RANLIB"; then
case $host_os in
openbsd*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$oldlib"
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib"
;;
*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib"
+ old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib"
;;
esac
- old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib"
+ old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib"
fi
case $host_os in
darwin*)
lock_old_archive_extraction=yes ;;
*)
lock_old_archive_extraction=no ;;
esac
_LT_DECL([], [old_postinstall_cmds], [2])
_LT_DECL([], [old_postuninstall_cmds], [2])
_LT_TAGDECL([], [old_archive_cmds], [2],
[Commands used to build an old-style archive])
_LT_DECL([], [lock_old_archive_extraction], [0],
[Whether to use a lock for old archive extraction])
])# _LT_CMD_OLD_ARCHIVE
# _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE])
# ----------------------------------------------------------------
# Check whether the given compiler option works
AC_DEFUN([_LT_COMPILER_OPTION],
[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_SED])dnl
AC_CACHE_CHECK([$1], [$2],
[$2=no
m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4])
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="$3"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
# The option is referenced via a variable to avoid confusing sed.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&AS_MESSAGE_LOG_FD
echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
$2=yes
fi
fi
$RM conftest*
])
if test x"[$]$2" = xyes; then
m4_if([$5], , :, [$5])
else
m4_if([$6], , :, [$6])
fi
])# _LT_COMPILER_OPTION
# Old name:
AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], [])
# _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS,
# [ACTION-SUCCESS], [ACTION-FAILURE])
# ----------------------------------------------------
# Check whether the given linker option works
AC_DEFUN([_LT_LINKER_OPTION],
[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_SED])dnl
AC_CACHE_CHECK([$1], [$2],
[$2=no
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS $3"
echo "$lt_simple_link_test_code" > conftest.$ac_ext
if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
# The linker can only warn and ignore the option if not recognized
# So say no if there are warnings
if test -s conftest.err; then
# Append any errors to the config.log.
cat conftest.err 1>&AS_MESSAGE_LOG_FD
$ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if diff conftest.exp conftest.er2 >/dev/null; then
$2=yes
fi
else
$2=yes
fi
fi
$RM -r conftest*
LDFLAGS="$save_LDFLAGS"
])
if test x"[$]$2" = xyes; then
m4_if([$4], , :, [$4])
else
m4_if([$5], , :, [$5])
fi
])# _LT_LINKER_OPTION
# Old name:
AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], [])
# LT_CMD_MAX_LEN
#---------------
AC_DEFUN([LT_CMD_MAX_LEN],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
# find the maximum length of command line arguments
AC_MSG_CHECKING([the maximum length of command line arguments])
AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl
i=0
teststring="ABCD"
case $build_os in
msdosdjgpp*)
# On DJGPP, this test can blow up pretty badly due to problems in libc
# (any single argument exceeding 2000 bytes causes a buffer overrun
# during glob expansion). Even if it were fixed, the result of this
# check would be larger than it should be.
lt_cv_sys_max_cmd_len=12288; # 12K is about right
;;
gnu*)
# Under GNU Hurd, this test is not required because there is
# no limit to the length of command line arguments.
# Libtool will interpret -1 as no limit whatsoever
lt_cv_sys_max_cmd_len=-1;
;;
cygwin* | mingw* | cegcc*)
# On Win9x/ME, this test blows up -- it succeeds, but takes
# about 5 minutes as the teststring grows exponentially.
# Worse, since 9x/ME are not pre-emptively multitasking,
# you end up with a "frozen" computer, even though with patience
# the test eventually succeeds (with a max line length of 256k).
# Instead, let's just punt: use the minimum linelength reported by
# all of the supported platforms: 8192 (on NT/2K/XP).
lt_cv_sys_max_cmd_len=8192;
;;
mint*)
# On MiNT this can take a long time and run out of memory.
lt_cv_sys_max_cmd_len=8192;
;;
amigaos*)
# On AmigaOS with pdksh, this test takes hours, literally.
# So we just punt and use a minimum line length of 8192.
lt_cv_sys_max_cmd_len=8192;
;;
netbsd* | freebsd* | openbsd* | darwin* | dragonfly*)
# This has been around since 386BSD, at least. Likely further.
if test -x /sbin/sysctl; then
lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
elif test -x /usr/sbin/sysctl; then
lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
else
lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
fi
# And add a safety zone
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
;;
interix*)
# We know the value 262144 and hardcode it with a safety zone (like BSD)
lt_cv_sys_max_cmd_len=196608
;;
+ os2*)
+ # The test takes a long time on OS/2.
+ lt_cv_sys_max_cmd_len=8192
+ ;;
+
osf*)
# Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
# due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
# nice to cause kernel panics so lets avoid the loop below.
# First set a reasonable default.
lt_cv_sys_max_cmd_len=16384
#
if test -x /sbin/sysconfig; then
case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
*1*) lt_cv_sys_max_cmd_len=-1 ;;
esac
fi
;;
sco3.2v5*)
lt_cv_sys_max_cmd_len=102400
;;
sysv5* | sco5v6* | sysv4.2uw2*)
kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
if test -n "$kargmax"; then
lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'`
else
lt_cv_sys_max_cmd_len=32768
fi
;;
*)
lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
if test -n "$lt_cv_sys_max_cmd_len"; then
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
else
# Make teststring a little bigger before we do anything with it.
# a 1K string should be a reasonable start.
for i in 1 2 3 4 5 6 7 8 ; do
teststring=$teststring$teststring
done
SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
# If test is not a shell built-in, we'll probably end up computing a
# maximum length that is only half of the actual maximum length, but
# we can't tell.
- while { test "X"`func_fallback_echo "$teststring$teststring" 2>/dev/null` \
+ while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \
= "X$teststring$teststring"; } >/dev/null 2>&1 &&
test $i != 17 # 1/2 MB should be enough
do
i=`expr $i + 1`
teststring=$teststring$teststring
done
# Only check the string length outside the loop.
lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
teststring=
# Add a significant safety factor because C++ compilers can tack on
# massive amounts of additional arguments before passing them to the
# linker. It appears as though 1/2 is a usable value.
lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
fi
;;
esac
])
if test -n $lt_cv_sys_max_cmd_len ; then
AC_MSG_RESULT($lt_cv_sys_max_cmd_len)
else
AC_MSG_RESULT(none)
fi
max_cmd_len=$lt_cv_sys_max_cmd_len
_LT_DECL([], [max_cmd_len], [0],
[What is the maximum length of a command?])
])# LT_CMD_MAX_LEN
# Old name:
AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], [])
# _LT_HEADER_DLFCN
# ----------------
m4_defun([_LT_HEADER_DLFCN],
[AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl
])# _LT_HEADER_DLFCN
# _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE,
# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING)
# ----------------------------------------------------------------
m4_defun([_LT_TRY_DLOPEN_SELF],
[m4_require([_LT_HEADER_DLFCN])dnl
if test "$cross_compiling" = yes; then :
[$4]
else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
[#line $LINENO "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
#include <dlfcn.h>
#endif
#include <stdio.h>
#ifdef RTLD_GLOBAL
# define LT_DLGLOBAL RTLD_GLOBAL
#else
# ifdef DL_GLOBAL
# define LT_DLGLOBAL DL_GLOBAL
# else
# define LT_DLGLOBAL 0
# endif
#endif
/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
find out it does not work in some platform. */
#ifndef LT_DLLAZY_OR_NOW
# ifdef RTLD_LAZY
# define LT_DLLAZY_OR_NOW RTLD_LAZY
# else
# ifdef DL_LAZY
# define LT_DLLAZY_OR_NOW DL_LAZY
# else
# ifdef RTLD_NOW
# define LT_DLLAZY_OR_NOW RTLD_NOW
# else
# ifdef DL_NOW
# define LT_DLLAZY_OR_NOW DL_NOW
# else
# define LT_DLLAZY_OR_NOW 0
# endif
# endif
# endif
# endif
#endif
/* When -fvisbility=hidden is used, assume the code has been annotated
correspondingly for the symbols needed. */
#if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3))
int fnord () __attribute__((visibility("default")));
#endif
int fnord () { return 42; }
int main ()
{
void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
int status = $lt_dlunknown;
if (self)
{
if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
else
{
if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
else puts (dlerror ());
}
/* dlclose (self); */
}
else
puts (dlerror ());
return status;
}]
_LT_EOF
if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then
(./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null
lt_status=$?
case x$lt_status in
x$lt_dlno_uscore) $1 ;;
x$lt_dlneed_uscore) $2 ;;
x$lt_dlunknown|x*) $3 ;;
esac
else :
# compilation failed
$3
fi
fi
rm -fr conftest*
])# _LT_TRY_DLOPEN_SELF
# LT_SYS_DLOPEN_SELF
# ------------------
AC_DEFUN([LT_SYS_DLOPEN_SELF],
[m4_require([_LT_HEADER_DLFCN])dnl
if test "x$enable_dlopen" != xyes; then
enable_dlopen=unknown
enable_dlopen_self=unknown
enable_dlopen_self_static=unknown
else
lt_cv_dlopen=no
lt_cv_dlopen_libs=
case $host_os in
beos*)
lt_cv_dlopen="load_add_on"
lt_cv_dlopen_libs=
lt_cv_dlopen_self=yes
;;
mingw* | pw32* | cegcc*)
lt_cv_dlopen="LoadLibrary"
lt_cv_dlopen_libs=
;;
cygwin*)
lt_cv_dlopen="dlopen"
lt_cv_dlopen_libs=
;;
darwin*)
# if libdl is installed we need to link against it
AC_CHECK_LIB([dl], [dlopen],
[lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[
lt_cv_dlopen="dyld"
lt_cv_dlopen_libs=
lt_cv_dlopen_self=yes
])
;;
*)
AC_CHECK_FUNC([shl_load],
[lt_cv_dlopen="shl_load"],
[AC_CHECK_LIB([dld], [shl_load],
[lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"],
[AC_CHECK_FUNC([dlopen],
[lt_cv_dlopen="dlopen"],
[AC_CHECK_LIB([dl], [dlopen],
[lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],
[AC_CHECK_LIB([svld], [dlopen],
[lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"],
[AC_CHECK_LIB([dld], [dld_link],
[lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"])
])
])
])
])
])
;;
esac
if test "x$lt_cv_dlopen" != xno; then
enable_dlopen=yes
else
enable_dlopen=no
fi
case $lt_cv_dlopen in
dlopen)
save_CPPFLAGS="$CPPFLAGS"
test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
save_LDFLAGS="$LDFLAGS"
wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
save_LIBS="$LIBS"
LIBS="$lt_cv_dlopen_libs $LIBS"
AC_CACHE_CHECK([whether a program can dlopen itself],
lt_cv_dlopen_self, [dnl
_LT_TRY_DLOPEN_SELF(
lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes,
lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross)
])
if test "x$lt_cv_dlopen_self" = xyes; then
wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
AC_CACHE_CHECK([whether a statically linked program can dlopen itself],
lt_cv_dlopen_self_static, [dnl
_LT_TRY_DLOPEN_SELF(
lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes,
lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross)
])
fi
CPPFLAGS="$save_CPPFLAGS"
LDFLAGS="$save_LDFLAGS"
LIBS="$save_LIBS"
;;
esac
case $lt_cv_dlopen_self in
yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
*) enable_dlopen_self=unknown ;;
esac
case $lt_cv_dlopen_self_static in
yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
*) enable_dlopen_self_static=unknown ;;
esac
fi
_LT_DECL([dlopen_support], [enable_dlopen], [0],
[Whether dlopen is supported])
_LT_DECL([dlopen_self], [enable_dlopen_self], [0],
[Whether dlopen of programs is supported])
_LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0],
[Whether dlopen of statically linked programs is supported])
])# LT_SYS_DLOPEN_SELF
# Old name:
AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], [])
# _LT_COMPILER_C_O([TAGNAME])
# ---------------------------
# Check to see if options -c and -o are simultaneously supported by compiler.
# This macro does not hard code the compiler like AC_PROG_CC_C_O.
m4_defun([_LT_COMPILER_C_O],
[m4_require([_LT_DECL_SED])dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_TAG_COMPILER])dnl
AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext],
[_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)],
[_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no
$RM -r conftest 2>/dev/null
mkdir conftest
cd conftest
mkdir out
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="-o out/conftest2.$ac_objext"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
# with a dollar sign (not a hyphen), so the echo should work correctly.
lt_compile=`echo "$ac_compile" | $SED \
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
(eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&AS_MESSAGE_LOG_FD
echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings
$ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp
$SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
fi
fi
chmod u+w . 2>&AS_MESSAGE_LOG_FD
$RM conftest*
# SGI C++ compiler will create directory out/ii_files/ for
# template instantiation
test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
$RM out/* && rmdir out
cd ..
$RM -r conftest
$RM conftest*
])
_LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1],
[Does compiler simultaneously support -c and -o options?])
])# _LT_COMPILER_C_O
# _LT_COMPILER_FILE_LOCKS([TAGNAME])
# ----------------------------------
# Check to see if we can do hard links to lock some files if needed
m4_defun([_LT_COMPILER_FILE_LOCKS],
[m4_require([_LT_ENABLE_LOCK])dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
_LT_COMPILER_C_O([$1])
hard_links="nottested"
if test "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then
# do not overwrite the value of need_locks provided by the user
AC_MSG_CHECKING([if we can lock with hard links])
hard_links=yes
$RM conftest*
ln conftest.a conftest.b 2>/dev/null && hard_links=no
touch conftest.a
ln conftest.a conftest.b 2>&5 || hard_links=no
ln conftest.a conftest.b 2>/dev/null && hard_links=no
AC_MSG_RESULT([$hard_links])
if test "$hard_links" = no; then
AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe])
need_locks=warn
fi
else
need_locks=no
fi
_LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?])
])# _LT_COMPILER_FILE_LOCKS
# _LT_CHECK_OBJDIR
# ----------------
m4_defun([_LT_CHECK_OBJDIR],
[AC_CACHE_CHECK([for objdir], [lt_cv_objdir],
[rm -f .libs 2>/dev/null
mkdir .libs 2>/dev/null
if test -d .libs; then
lt_cv_objdir=.libs
else
# MS-DOS does not allow filenames that begin with a dot.
lt_cv_objdir=_libs
fi
rmdir .libs 2>/dev/null])
objdir=$lt_cv_objdir
_LT_DECL([], [objdir], [0],
[The name of the directory that contains temporary libtool files])dnl
m4_pattern_allow([LT_OBJDIR])dnl
AC_DEFINE_UNQUOTED(LT_OBJDIR, "$lt_cv_objdir/",
[Define to the sub-directory in which libtool stores uninstalled libraries.])
])# _LT_CHECK_OBJDIR
# _LT_LINKER_HARDCODE_LIBPATH([TAGNAME])
# --------------------------------------
# Check hardcoding attributes.
m4_defun([_LT_LINKER_HARDCODE_LIBPATH],
[AC_MSG_CHECKING([how to hardcode library paths into programs])
_LT_TAGVAR(hardcode_action, $1)=
if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" ||
test -n "$_LT_TAGVAR(runpath_var, $1)" ||
test "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then
# We can hardcode non-existent directories.
if test "$_LT_TAGVAR(hardcode_direct, $1)" != no &&
# If the only mechanism to avoid hardcoding is shlibpath_var, we
# have to relink, otherwise we might link with an installed library
# when we should be linking with a yet-to-be-installed one
## test "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no &&
test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; then
# Linking always hardcodes the temporary library directory.
_LT_TAGVAR(hardcode_action, $1)=relink
else
# We can link without hardcoding, and we can hardcode nonexisting dirs.
_LT_TAGVAR(hardcode_action, $1)=immediate
fi
else
# We cannot hardcode anything, or else we can only hardcode existing
# directories.
_LT_TAGVAR(hardcode_action, $1)=unsupported
fi
AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)])
if test "$_LT_TAGVAR(hardcode_action, $1)" = relink ||
test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then
# Fast installation is not supported
enable_fast_install=no
elif test "$shlibpath_overrides_runpath" = yes ||
test "$enable_shared" = no; then
# Fast installation is not necessary
enable_fast_install=needless
fi
_LT_TAGDECL([], [hardcode_action], [0],
[How to hardcode a shared library path into an executable])
])# _LT_LINKER_HARDCODE_LIBPATH
# _LT_CMD_STRIPLIB
# ----------------
m4_defun([_LT_CMD_STRIPLIB],
[m4_require([_LT_DECL_EGREP])
striplib=
old_striplib=
AC_MSG_CHECKING([whether stripping libraries is possible])
if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
test -z "$striplib" && striplib="$STRIP --strip-unneeded"
AC_MSG_RESULT([yes])
else
# FIXME - insert some real tests, host_os isn't really good enough
case $host_os in
darwin*)
if test -n "$STRIP" ; then
striplib="$STRIP -x"
old_striplib="$STRIP -S"
AC_MSG_RESULT([yes])
else
AC_MSG_RESULT([no])
fi
;;
*)
AC_MSG_RESULT([no])
;;
esac
fi
_LT_DECL([], [old_striplib], [1], [Commands to strip libraries])
_LT_DECL([], [striplib], [1])
])# _LT_CMD_STRIPLIB
# _LT_SYS_DYNAMIC_LINKER([TAG])
# -----------------------------
# PORTME Fill in your ld.so characteristics
m4_defun([_LT_SYS_DYNAMIC_LINKER],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
m4_require([_LT_DECL_EGREP])dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_OBJDUMP])dnl
m4_require([_LT_DECL_SED])dnl
m4_require([_LT_CHECK_SHELL_FEATURES])dnl
AC_MSG_CHECKING([dynamic linker characteristics])
m4_if([$1],
[], [
if test "$GCC" = yes; then
case $host_os in
darwin*) lt_awk_arg="/^libraries:/,/LR/" ;;
*) lt_awk_arg="/^libraries:/" ;;
esac
case $host_os in
mingw* | cegcc*) lt_sed_strip_eq="s,=\([[A-Za-z]]:\),\1,g" ;;
*) lt_sed_strip_eq="s,=/,/,g" ;;
esac
lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq`
case $lt_search_path_spec in
*\;*)
# if the path contains ";" then we assume it to be the separator
# otherwise default to the standard path separator (i.e. ":") - it is
# assumed that no part of a normal pathname contains ";" but that should
# okay in the real world where ";" in dirpaths is itself problematic.
lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'`
;;
*)
lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"`
;;
esac
# Ok, now we have the path, separated by spaces, we can step through it
# and add multilib dir if necessary.
lt_tmp_lt_search_path_spec=
lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
for lt_sys_path in $lt_search_path_spec; do
if test -d "$lt_sys_path/$lt_multi_os_dir"; then
lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir"
else
test -d "$lt_sys_path" && \
lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
fi
done
lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk '
BEGIN {RS=" "; FS="/|\n";} {
lt_foo="";
lt_count=0;
for (lt_i = NF; lt_i > 0; lt_i--) {
if ($lt_i != "" && $lt_i != ".") {
if ($lt_i == "..") {
lt_count++;
} else {
if (lt_count == 0) {
lt_foo="/" $lt_i lt_foo;
} else {
lt_count--;
}
}
}
}
if (lt_foo != "") { lt_freq[[lt_foo]]++; }
if (lt_freq[[lt_foo]] == 1) { print lt_foo; }
}'`
# AWK program above erroneously prepends '/' to C:/dos/paths
# for these hosts.
case $host_os in
mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\
$SED 's,/\([[A-Za-z]]:\),\1,g'` ;;
esac
sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP`
else
sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
fi])
library_names_spec=
libname_spec='lib$name'
soname_spec=
shrext_cmds=".so"
postinstall_cmds=
postuninstall_cmds=
finish_cmds=
finish_eval=
shlibpath_var=
shlibpath_overrides_runpath=unknown
version_type=none
dynamic_linker="$host_os ld.so"
sys_lib_dlsearch_path_spec="/lib /usr/lib"
need_lib_prefix=unknown
hardcode_into_libs=no
# when you set need_version to no, make sure it does not cause -set_version
# flags to be left without arguments
need_version=unknown
case $host_os in
aix3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
shlibpath_var=LIBPATH
# AIX 3 has no versioning support, so we append a major version to the name.
soname_spec='${libname}${release}${shared_ext}$major'
;;
aix[[4-9]]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
hardcode_into_libs=yes
if test "$host_cpu" = ia64; then
# AIX 5 supports IA64
library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
else
# With GCC up to 2.95.x, collect2 would create an import file
# for dependence libraries. The import file would start with
# the line `#! .'. This would cause the generated library to
# depend on `.', always an invalid library. This was fixed in
# development snapshots of GCC prior to 3.0.
case $host_os in
aix4 | aix4.[[01]] | aix4.[[01]].*)
if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
echo ' yes '
echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
:
else
can_build_shared=no
fi
;;
esac
# AIX (on Power*) has no versioning support, so currently we can not hardcode correct
# soname into executable. Probably we can add versioning support to
# collect2, so additional links can be useful in future.
if test "$aix_use_runtimelinking" = yes; then
# If using run time linking (on AIX 4.2 or later) use lib<name>.so
# instead of lib<name>.a to let people know that these are not
# typical AIX shared libraries.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
else
# We preserve .a as extension for shared libraries through AIX4.2
# and later when we are not doing run time linking.
library_names_spec='${libname}${release}.a $libname.a'
soname_spec='${libname}${release}${shared_ext}$major'
fi
shlibpath_var=LIBPATH
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# Since July 2007 AmigaOS4 officially supports .so libraries.
# When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
;;
m68k)
library_names_spec='$libname.ixlibrary $libname.a'
# Create ${libname}_ixlibrary.a entries in /sys/libs.
finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
;;
esac
;;
beos*)
library_names_spec='${libname}${shared_ext}'
dynamic_linker="$host_os ld.so"
shlibpath_var=LIBRARY_PATH
;;
bsdi[[45]]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
# the default ld.so.conf also contains /usr/contrib/lib and
# /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
# libtool to hard-code these into programs
;;
cygwin* | mingw* | pw32* | cegcc*)
version_type=windows
shrext_cmds=".dll"
need_version=no
need_lib_prefix=no
case $GCC,$cc_basename in
yes,*)
# gcc
library_names_spec='$libname.dll.a'
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname~
chmod a+x \$dldir/$dlname~
if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
fi'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
case $host_os in
cygwin*)
# Cygwin DLLs use 'cyg' prefix rather than 'lib'
soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
m4_if([$1], [],[
sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"])
;;
mingw* | cegcc*)
# MinGW DLLs use traditional 'lib' prefix
soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
;;
pw32*)
# pw32 DLLs use 'pw' prefix rather than 'lib'
library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
;;
esac
dynamic_linker='Win32 ld.exe'
;;
*,cl*)
# Native MSVC
libname_spec='$name'
soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
library_names_spec='${libname}.dll.lib'
case $build_os in
mingw*)
sys_lib_search_path_spec=
lt_save_ifs=$IFS
IFS=';'
for lt_path in $LIB
do
IFS=$lt_save_ifs
# Let DOS variable expansion print the short 8.3 style file name.
lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"`
sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path"
done
IFS=$lt_save_ifs
# Convert to MSYS style.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'`
;;
cygwin*)
# Convert to unix form, then to dos form, then back to unix form
# but this time dos style (no spaces!) so that the unix form looks
# like /cygdrive/c/PROGRA~1:/cygdr...
sys_lib_search_path_spec=`cygpath --path --unix "$LIB"`
sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null`
sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
;;
*)
sys_lib_search_path_spec="$LIB"
if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then
# It is most probably a Windows format PATH.
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
else
sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
fi
# FIXME: find the short name or the path components, as spaces are
# common. (e.g. "Program Files" -> "PROGRA~1")
;;
esac
# DLL is installed to $(libdir)/../bin by postinstall_cmds
postinstall_cmds='base_file=`basename \${file}`~
dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
dldir=$destdir/`dirname \$dlpath`~
test -d \$dldir || mkdir -p \$dldir~
$install_prog $dir/$dlname \$dldir/$dlname'
postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
dlpath=$dir/\$dldll~
$RM \$dlpath'
shlibpath_overrides_runpath=yes
dynamic_linker='Win32 link.exe'
;;
*)
# Assume MSVC wrapper
library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib'
dynamic_linker='Win32 ld.exe'
;;
esac
# FIXME: first we should search . and the directory the executable is in
shlibpath_var=PATH
;;
darwin* | rhapsody*)
dynamic_linker="$host_os dyld"
version_type=darwin
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
soname_spec='${libname}${release}${major}$shared_ext'
shlibpath_overrides_runpath=yes
shlibpath_var=DYLD_LIBRARY_PATH
shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
m4_if([$1], [],[
sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"])
sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
;;
dgux*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
-freebsd1*)
- dynamic_linker=no
- ;;
-
freebsd* | dragonfly*)
# DragonFly does not have aout. When/if they implement a new
# versioning mechanism, adjust this.
if test -x /usr/bin/objformat; then
objformat=`/usr/bin/objformat`
else
case $host_os in
- freebsd[[123]]*) objformat=aout ;;
+ freebsd[[23]].*) objformat=aout ;;
*) objformat=elf ;;
esac
fi
version_type=freebsd-$objformat
case $version_type in
freebsd-elf*)
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
need_version=no
need_lib_prefix=no
;;
freebsd-*)
library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
need_version=yes
;;
esac
shlibpath_var=LD_LIBRARY_PATH
case $host_os in
- freebsd2*)
+ freebsd2.*)
shlibpath_overrides_runpath=yes
;;
freebsd3.[[01]]* | freebsdelf3.[[01]]*)
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \
freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1)
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
*) # from 4.6 on, and DragonFly
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
esac
;;
gnu*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
+ shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
haiku*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
dynamic_linker="$host_os runtime_loader"
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LIBRARY_PATH
shlibpath_overrides_runpath=yes
sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib'
hardcode_into_libs=yes
;;
hpux9* | hpux10* | hpux11*)
# Give a soname corresponding to the major version so that dld.sl refuses to
# link against other versions.
version_type=sunos
need_lib_prefix=no
need_version=no
case $host_cpu in
ia64*)
shrext_cmds='.so'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.so"
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
if test "X$HPUX_IA64_MODE" = X32; then
sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
else
sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
fi
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
hppa*64*)
shrext_cmds='.sl'
hardcode_into_libs=yes
dynamic_linker="$host_os dld.sl"
shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
;;
*)
shrext_cmds='.sl'
dynamic_linker="$host_os dld.sl"
shlibpath_var=SHLIB_PATH
shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
;;
esac
# HP-UX runs *really* slowly unless shared libraries are mode 555, ...
postinstall_cmds='chmod 555 $lib'
# or fails outright, so override atomically:
install_override_mode=555
;;
interix[[3-9]]*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
irix5* | irix6* | nonstopux*)
case $host_os in
nonstopux*) version_type=nonstopux ;;
*)
if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
else
version_type=irix
fi ;;
esac
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
case $host_os in
irix5* | nonstopux*)
libsuff= shlibsuff=
;;
*)
case $LD in # libtool.m4 will add one of these switches to LD
*-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
libsuff= shlibsuff= libmagic=32-bit;;
*-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
libsuff=32 shlibsuff=N32 libmagic=N32;;
*-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
libsuff=64 shlibsuff=64 libmagic=64-bit;;
*) libsuff= shlibsuff= libmagic=never-match;;
esac
;;
esac
shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
shlibpath_overrides_runpath=no
sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
hardcode_into_libs=yes
;;
# No shared lib support for Linux oldld, aout, or coff.
linux*oldld* | linux*aout* | linux*coff*)
dynamic_linker=no
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
# Some binutils ld are patched to set DT_RUNPATH
AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath],
[lt_cv_shlibpath_overrides_runpath=no
save_LDFLAGS=$LDFLAGS
save_libdir=$libdir
eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \
LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\""
AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])],
[AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null],
[lt_cv_shlibpath_overrides_runpath=yes])])
LDFLAGS=$save_LDFLAGS
libdir=$save_libdir
])
shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath
# This implies no fast_install, which is unacceptable.
# Some rework will be needed to allow for fast_install
# before this can be enabled.
hardcode_into_libs=yes
# Append ld.so.conf contents to the search path
if test -f /etc/ld.so.conf; then
lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '`
sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
fi
# We used to test for /lib/ld.so.1 and disable shared libraries on
# powerpc, because MkLinux only supported shared libraries with the
# GNU dynamic linker. Since this was broken with cross compilers,
# most powerpc-linux boxes support dynamic linking these days and
# people can always --disable-shared, the test was removed, and we
# assume the GNU/Linux dynamic linker is in use.
dynamic_linker='GNU/Linux ld.so'
;;
netbsd*)
version_type=sunos
need_lib_prefix=no
need_version=no
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
dynamic_linker='NetBSD (a.out) ld.so'
else
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
dynamic_linker='NetBSD ld.elf_so'
fi
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
;;
newsos6)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
;;
*nto* | *qnx*)
version_type=qnx
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
dynamic_linker='ldqnx.so'
;;
openbsd*)
version_type=sunos
sys_lib_dlsearch_path_spec="/usr/lib"
need_lib_prefix=no
# Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
case $host_os in
openbsd3.3 | openbsd3.3.*) need_version=yes ;;
*) need_version=no ;;
esac
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
shlibpath_var=LD_LIBRARY_PATH
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
case $host_os in
openbsd2.[[89]] | openbsd2.[[89]].*)
shlibpath_overrides_runpath=no
;;
*)
shlibpath_overrides_runpath=yes
;;
esac
else
shlibpath_overrides_runpath=yes
fi
;;
os2*)
libname_spec='$name'
shrext_cmds=".dll"
need_lib_prefix=no
library_names_spec='$libname${shared_ext} $libname.a'
dynamic_linker='OS/2 ld.exe'
shlibpath_var=LIBPATH
;;
osf3* | osf4* | osf5*)
version_type=osf
need_lib_prefix=no
need_version=no
soname_spec='${libname}${release}${shared_ext}$major'
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
;;
rdos*)
dynamic_linker=no
;;
solaris*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
# ldd complains unless libraries are executable
postinstall_cmds='chmod +x $lib'
;;
sunos4*)
version_type=sunos
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
if test "$with_gnu_ld" = yes; then
need_lib_prefix=no
fi
need_version=yes
;;
sysv4 | sysv4.3*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
case $host_vendor in
sni)
shlibpath_overrides_runpath=no
need_lib_prefix=no
runpath_var=LD_RUN_PATH
;;
siemens)
need_lib_prefix=no
;;
motorola)
need_lib_prefix=no
need_version=no
shlibpath_overrides_runpath=no
sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
;;
esac
;;
sysv4*MP*)
if test -d /usr/nec ;then
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
soname_spec='$libname${shared_ext}.$major'
shlibpath_var=LD_LIBRARY_PATH
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
version_type=freebsd-elf
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=yes
hardcode_into_libs=yes
if test "$with_gnu_ld" = yes; then
sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
else
sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
case $host_os in
sco3.2v5*)
sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
;;
esac
fi
sys_lib_dlsearch_path_spec='/usr/lib'
;;
tpf*)
# TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
need_lib_prefix=no
need_version=no
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
shlibpath_var=LD_LIBRARY_PATH
shlibpath_overrides_runpath=no
hardcode_into_libs=yes
;;
uts4*)
- version_type=linux
+ version_type=linux # correct to gnu/linux during the next big refactor
library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
soname_spec='${libname}${release}${shared_ext}$major'
shlibpath_var=LD_LIBRARY_PATH
;;
*)
dynamic_linker=no
;;
esac
AC_MSG_RESULT([$dynamic_linker])
test "$dynamic_linker" = no && can_build_shared=no
variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
if test "$GCC" = yes; then
variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
fi
if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
fi
if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
fi
_LT_DECL([], [variables_saved_for_relink], [1],
[Variables whose values should be saved in libtool wrapper scripts and
restored at link time])
_LT_DECL([], [need_lib_prefix], [0],
[Do we need the "lib" prefix for modules?])
_LT_DECL([], [need_version], [0], [Do we need a version for libraries?])
_LT_DECL([], [version_type], [0], [Library versioning type])
_LT_DECL([], [runpath_var], [0], [Shared library runtime path variable])
_LT_DECL([], [shlibpath_var], [0],[Shared library path variable])
_LT_DECL([], [shlibpath_overrides_runpath], [0],
[Is shlibpath searched before the hard-coded library search path?])
_LT_DECL([], [libname_spec], [1], [Format of library name prefix])
_LT_DECL([], [library_names_spec], [1],
[[List of archive names. First name is the real one, the rest are links.
The last name is the one that the linker finds with -lNAME]])
_LT_DECL([], [soname_spec], [1],
[[The coded name of the library, if different from the real name]])
_LT_DECL([], [install_override_mode], [1],
[Permission mode override for installation of shared libraries])
_LT_DECL([], [postinstall_cmds], [2],
[Command to use after installation of a shared archive])
_LT_DECL([], [postuninstall_cmds], [2],
[Command to use after uninstallation of a shared archive])
_LT_DECL([], [finish_cmds], [2],
[Commands used to finish a libtool library installation in a directory])
_LT_DECL([], [finish_eval], [1],
[[As "finish_cmds", except a single script fragment to be evaled but
not shown]])
_LT_DECL([], [hardcode_into_libs], [0],
[Whether we should hardcode library paths into libraries])
_LT_DECL([], [sys_lib_search_path_spec], [2],
[Compile-time system search path for libraries])
_LT_DECL([], [sys_lib_dlsearch_path_spec], [2],
[Run-time system search path for libraries])
])# _LT_SYS_DYNAMIC_LINKER
# _LT_PATH_TOOL_PREFIX(TOOL)
# --------------------------
# find a file program which can recognize shared library
AC_DEFUN([_LT_PATH_TOOL_PREFIX],
[m4_require([_LT_DECL_EGREP])dnl
AC_MSG_CHECKING([for $1])
AC_CACHE_VAL(lt_cv_path_MAGIC_CMD,
[case $MAGIC_CMD in
[[\\/*] | ?:[\\/]*])
lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
;;
*)
lt_save_MAGIC_CMD="$MAGIC_CMD"
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
dnl $ac_dummy forces splitting on constant user-supplied paths.
dnl POSIX.2 word splitting is done only on the output of word expansions,
dnl not every word. This closes a longstanding sh security hole.
ac_dummy="m4_if([$2], , $PATH, [$2])"
for ac_dir in $ac_dummy; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
if test -f $ac_dir/$1; then
lt_cv_path_MAGIC_CMD="$ac_dir/$1"
if test -n "$file_magic_test_file"; then
case $deplibs_check_method in
"file_magic "*)
file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
$EGREP "$file_magic_regex" > /dev/null; then
:
else
cat <<_LT_EOF 1>&2
*** Warning: the command libtool uses to detect shared libraries,
*** $file_magic_cmd, produces output that libtool cannot recognize.
*** The result is that libtool may fail to recognize shared libraries
*** as such. This will affect the creation of libtool libraries that
*** depend on shared libraries, but programs linked with such libtool
*** libraries will work regardless of this problem. Nevertheless, you
*** may want to report the problem to your system manager and/or to
*** bug-libtool@gnu.org
_LT_EOF
fi ;;
esac
fi
break
fi
done
IFS="$lt_save_ifs"
MAGIC_CMD="$lt_save_MAGIC_CMD"
;;
esac])
MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
if test -n "$MAGIC_CMD"; then
AC_MSG_RESULT($MAGIC_CMD)
else
AC_MSG_RESULT(no)
fi
_LT_DECL([], [MAGIC_CMD], [0],
[Used to examine libraries when file_magic_cmd begins with "file"])dnl
])# _LT_PATH_TOOL_PREFIX
# Old name:
AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], [])
# _LT_PATH_MAGIC
# --------------
# find a file program which can recognize a shared library
m4_defun([_LT_PATH_MAGIC],
[_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH)
if test -z "$lt_cv_path_MAGIC_CMD"; then
if test -n "$ac_tool_prefix"; then
_LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH)
else
MAGIC_CMD=:
fi
fi
])# _LT_PATH_MAGIC
# LT_PATH_LD
# ----------
# find the pathname to the GNU or non-GNU linker
AC_DEFUN([LT_PATH_LD],
[AC_REQUIRE([AC_PROG_CC])dnl
AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_CANONICAL_BUILD])dnl
m4_require([_LT_DECL_SED])dnl
m4_require([_LT_DECL_EGREP])dnl
m4_require([_LT_PROG_ECHO_BACKSLASH])dnl
AC_ARG_WITH([gnu-ld],
[AS_HELP_STRING([--with-gnu-ld],
[assume the C compiler uses GNU ld @<:@default=no@:>@])],
[test "$withval" = no || with_gnu_ld=yes],
[with_gnu_ld=no])dnl
ac_prog=ld
if test "$GCC" = yes; then
# Check if gcc -print-prog-name=ld gives a path.
AC_MSG_CHECKING([for ld used by $CC])
case $host in
*-*-mingw*)
# gcc leaves a trailing carriage return which upsets mingw
ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
*)
ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
esac
case $ac_prog in
# Accept absolute paths.
[[\\/]]* | ?:[[\\/]]*)
re_direlt='/[[^/]][[^/]]*/\.\./'
# Canonicalize the pathname of ld
ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
done
test -z "$LD" && LD="$ac_prog"
;;
"")
# If it fails, then pretend we aren't using GCC.
ac_prog=ld
;;
*)
# If it is relative, then search for the first ld in PATH.
with_gnu_ld=unknown
;;
esac
elif test "$with_gnu_ld" = yes; then
AC_MSG_CHECKING([for GNU ld])
else
AC_MSG_CHECKING([for non-GNU ld])
fi
AC_CACHE_VAL(lt_cv_path_LD,
[if test -z "$LD"; then
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
for ac_dir in $PATH; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
lt_cv_path_LD="$ac_dir/$ac_prog"
# Check to see if the program is GNU ld. I'd rather use --version,
# but apparently some variants of GNU ld only accept -v.
# Break only if it was the GNU/non-GNU ld that we prefer.
case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
*GNU* | *'with BFD'*)
test "$with_gnu_ld" != no && break
;;
*)
test "$with_gnu_ld" != yes && break
;;
esac
fi
done
IFS="$lt_save_ifs"
else
lt_cv_path_LD="$LD" # Let the user override the test with a path.
fi])
LD="$lt_cv_path_LD"
if test -n "$LD"; then
AC_MSG_RESULT($LD)
else
AC_MSG_RESULT(no)
fi
test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
_LT_PATH_LD_GNU
AC_SUBST([LD])
_LT_TAGDECL([], [LD], [1], [The linker used to build libraries])
])# LT_PATH_LD
# Old names:
AU_ALIAS([AM_PROG_LD], [LT_PATH_LD])
AU_ALIAS([AC_PROG_LD], [LT_PATH_LD])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AM_PROG_LD], [])
dnl AC_DEFUN([AC_PROG_LD], [])
# _LT_PATH_LD_GNU
#- --------------
m4_defun([_LT_PATH_LD_GNU],
[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], lt_cv_prog_gnu_ld,
[# I'd rather use --version here, but apparently some GNU lds only accept -v.
case `$LD -v 2>&1 </dev/null` in
*GNU* | *'with BFD'*)
lt_cv_prog_gnu_ld=yes
;;
*)
lt_cv_prog_gnu_ld=no
;;
esac])
with_gnu_ld=$lt_cv_prog_gnu_ld
])# _LT_PATH_LD_GNU
# _LT_CMD_RELOAD
# --------------
# find reload flag for linker
# -- PORTME Some linkers may need a different reload flag.
m4_defun([_LT_CMD_RELOAD],
[AC_CACHE_CHECK([for $LD option to reload object files],
lt_cv_ld_reload_flag,
[lt_cv_ld_reload_flag='-r'])
reload_flag=$lt_cv_ld_reload_flag
case $reload_flag in
"" | " "*) ;;
*) reload_flag=" $reload_flag" ;;
esac
reload_cmds='$LD$reload_flag -o $output$reload_objs'
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
if test "$GCC" != yes; then
reload_cmds=false
fi
;;
darwin*)
if test "$GCC" = yes; then
reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs'
else
reload_cmds='$LD$reload_flag -o $output$reload_objs'
fi
;;
esac
_LT_TAGDECL([], [reload_flag], [1], [How to create reloadable object files])dnl
_LT_TAGDECL([], [reload_cmds], [2])dnl
])# _LT_CMD_RELOAD
# _LT_CHECK_MAGIC_METHOD
# ----------------------
# how to check for library dependencies
# -- PORTME fill in with the dynamic library characteristics
m4_defun([_LT_CHECK_MAGIC_METHOD],
[m4_require([_LT_DECL_EGREP])
m4_require([_LT_DECL_OBJDUMP])
AC_CACHE_CHECK([how to recognize dependent libraries],
lt_cv_deplibs_check_method,
[lt_cv_file_magic_cmd='$MAGIC_CMD'
lt_cv_file_magic_test_file=
lt_cv_deplibs_check_method='unknown'
# Need to set the preceding variable on all platforms that support
# interlibrary dependencies.
# 'none' -- dependencies not supported.
# `unknown' -- same as none, but documents that we really don't know.
# 'pass_all' -- all dependencies passed with no checks.
# 'test_compile' -- check by making test program.
# 'file_magic [[regex]]' -- check by looking for files in library path
# which responds to the $file_magic_cmd with a given extended regex.
# If you have `file' or equivalent on your system and you're not sure
# whether `pass_all' will *always* work, you probably want this one.
case $host_os in
aix[[4-9]]*)
lt_cv_deplibs_check_method=pass_all
;;
beos*)
lt_cv_deplibs_check_method=pass_all
;;
bsdi[[45]]*)
lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib)'
lt_cv_file_magic_cmd='/usr/bin/file -L'
lt_cv_file_magic_test_file=/shlib/libc.so
;;
cygwin*)
# func_win32_libid is a shell function defined in ltmain.sh
lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
lt_cv_file_magic_cmd='func_win32_libid'
;;
mingw* | pw32*)
# Base MSYS/MinGW do not provide the 'file' command needed by
# func_win32_libid shell function, so use a weaker test based on 'objdump',
# unless we find 'file', for example because we are cross-compiling.
# func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin.
if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then
lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
lt_cv_file_magic_cmd='func_win32_libid'
else
# Keep this pattern in sync with the one in func_win32_libid.
lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)'
lt_cv_file_magic_cmd='$OBJDUMP -f'
fi
;;
cegcc*)
# use the weaker test based on 'objdump'. See mingw*.
lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
lt_cv_file_magic_cmd='$OBJDUMP -f'
;;
darwin* | rhapsody*)
lt_cv_deplibs_check_method=pass_all
;;
freebsd* | dragonfly*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
case $host_cpu in
i*86 )
# Not sure whether the presence of OpenBSD here was a mistake.
# Let's accept both of them until this is cleared up.
lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library'
lt_cv_file_magic_cmd=/usr/bin/file
lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
;;
esac
else
lt_cv_deplibs_check_method=pass_all
fi
;;
gnu*)
lt_cv_deplibs_check_method=pass_all
;;
haiku*)
lt_cv_deplibs_check_method=pass_all
;;
hpux10.20* | hpux11*)
lt_cv_file_magic_cmd=/usr/bin/file
case $host_cpu in
ia64*)
lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64'
lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
;;
hppa*64*)
[lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]']
lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
;;
*)
lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library'
lt_cv_file_magic_test_file=/usr/lib/libc.sl
;;
esac
;;
interix[[3-9]]*)
# PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$'
;;
irix5* | irix6* | nonstopux*)
case $LD in
*-32|*"-32 ") libmagic=32-bit;;
*-n32|*"-n32 ") libmagic=N32;;
*-64|*"-64 ") libmagic=64-bit;;
*) libmagic=never-match;;
esac
lt_cv_deplibs_check_method=pass_all
;;
-# This must be Linux ELF.
+# This must be glibc/ELF.
linux* | k*bsd*-gnu | kopensolaris*-gnu)
lt_cv_deplibs_check_method=pass_all
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$'
else
lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$'
fi
;;
newos6*)
lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)'
lt_cv_file_magic_cmd=/usr/bin/file
lt_cv_file_magic_test_file=/usr/lib/libnls.so
;;
*nto* | *qnx*)
lt_cv_deplibs_check_method=pass_all
;;
openbsd*)
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$'
else
lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$'
fi
;;
osf3* | osf4* | osf5*)
lt_cv_deplibs_check_method=pass_all
;;
rdos*)
lt_cv_deplibs_check_method=pass_all
;;
solaris*)
lt_cv_deplibs_check_method=pass_all
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
lt_cv_deplibs_check_method=pass_all
;;
sysv4 | sysv4.3*)
case $host_vendor in
motorola)
lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]'
lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
;;
ncr)
lt_cv_deplibs_check_method=pass_all
;;
sequent)
lt_cv_file_magic_cmd='/bin/file'
lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )'
;;
sni)
lt_cv_file_magic_cmd='/bin/file'
lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib"
lt_cv_file_magic_test_file=/lib/libc.so
;;
siemens)
lt_cv_deplibs_check_method=pass_all
;;
pc)
lt_cv_deplibs_check_method=pass_all
;;
esac
;;
tpf*)
lt_cv_deplibs_check_method=pass_all
;;
esac
])
file_magic_glob=
want_nocaseglob=no
if test "$build" = "$host"; then
case $host_os in
mingw* | pw32*)
if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then
want_nocaseglob=yes
else
file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"`
fi
;;
esac
fi
file_magic_cmd=$lt_cv_file_magic_cmd
deplibs_check_method=$lt_cv_deplibs_check_method
test -z "$deplibs_check_method" && deplibs_check_method=unknown
_LT_DECL([], [deplibs_check_method], [1],
[Method to check whether dependent libraries are shared objects])
_LT_DECL([], [file_magic_cmd], [1],
[Command to use when deplibs_check_method = "file_magic"])
_LT_DECL([], [file_magic_glob], [1],
[How to find potential files when deplibs_check_method = "file_magic"])
_LT_DECL([], [want_nocaseglob], [1],
[Find potential files using nocaseglob when deplibs_check_method = "file_magic"])
])# _LT_CHECK_MAGIC_METHOD
# LT_PATH_NM
# ----------
# find the pathname to a BSD- or MS-compatible name lister
AC_DEFUN([LT_PATH_NM],
[AC_REQUIRE([AC_PROG_CC])dnl
AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM,
[if test -n "$NM"; then
# Let the user override the test.
lt_cv_path_NM="$NM"
else
lt_nm_to_check="${ac_tool_prefix}nm"
if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
lt_nm_to_check="$lt_nm_to_check nm"
fi
for lt_tmp_nm in $lt_nm_to_check; do
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
IFS="$lt_save_ifs"
test -z "$ac_dir" && ac_dir=.
tmp_nm="$ac_dir/$lt_tmp_nm"
if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then
# Check to see if the nm accepts a BSD-compat flag.
# Adding the `sed 1q' prevents false positives on HP-UX, which says:
# nm: unknown option "B" ignored
# Tru64's nm complains that /dev/null is an invalid object file
case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in
*/dev/null* | *'Invalid file or object type'*)
lt_cv_path_NM="$tmp_nm -B"
break
;;
*)
case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
*/dev/null*)
lt_cv_path_NM="$tmp_nm -p"
break
;;
*)
lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
continue # so that we can try to find one that supports BSD flags
;;
esac
;;
esac
fi
done
IFS="$lt_save_ifs"
done
: ${lt_cv_path_NM=no}
fi])
if test "$lt_cv_path_NM" != "no"; then
NM="$lt_cv_path_NM"
else
# Didn't find any BSD compatible name lister, look for dumpbin.
if test -n "$DUMPBIN"; then :
# Let the user override the test.
else
AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :)
case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in
*COFF*)
DUMPBIN="$DUMPBIN -symbols"
;;
*)
DUMPBIN=:
;;
esac
fi
AC_SUBST([DUMPBIN])
if test "$DUMPBIN" != ":"; then
NM="$DUMPBIN"
fi
fi
test -z "$NM" && NM=nm
AC_SUBST([NM])
_LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl
AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface],
[lt_cv_nm_interface="BSD nm"
echo "int some_variable = 0;" > conftest.$ac_ext
(eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$ac_compile" 2>conftest.err)
cat conftest.err >&AS_MESSAGE_LOG_FD
(eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD)
(eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
cat conftest.err >&AS_MESSAGE_LOG_FD
(eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD)
cat conftest.out >&AS_MESSAGE_LOG_FD
if $GREP 'External.*some_variable' conftest.out > /dev/null; then
lt_cv_nm_interface="MS dumpbin"
fi
rm -f conftest*])
])# LT_PATH_NM
# Old names:
AU_ALIAS([AM_PROG_NM], [LT_PATH_NM])
AU_ALIAS([AC_PROG_NM], [LT_PATH_NM])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AM_PROG_NM], [])
dnl AC_DEFUN([AC_PROG_NM], [])
# _LT_CHECK_SHAREDLIB_FROM_LINKLIB
# --------------------------------
# how to determine the name of the shared library
# associated with a specific link library.
# -- PORTME fill in with the dynamic library characteristics
m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB],
[m4_require([_LT_DECL_EGREP])
m4_require([_LT_DECL_OBJDUMP])
m4_require([_LT_DECL_DLLTOOL])
AC_CACHE_CHECK([how to associate runtime and link libraries],
lt_cv_sharedlib_from_linklib_cmd,
[lt_cv_sharedlib_from_linklib_cmd='unknown'
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# two different shell functions defined in ltmain.sh
# decide which to use based on capabilities of $DLLTOOL
case `$DLLTOOL --help 2>&1` in
*--identify-strict*)
lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib
;;
*)
lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback
;;
esac
;;
*)
# fallback: assume linklib IS sharedlib
lt_cv_sharedlib_from_linklib_cmd="$ECHO"
;;
esac
])
sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd
test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO
_LT_DECL([], [sharedlib_from_linklib_cmd], [1],
[Command to associate shared and link libraries])
])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB
# _LT_PATH_MANIFEST_TOOL
# ----------------------
# locate the manifest tool
m4_defun([_LT_PATH_MANIFEST_TOOL],
[AC_CHECK_TOOL(MANIFEST_TOOL, mt, :)
test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt
AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool],
[lt_cv_path_mainfest_tool=no
echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD
$MANIFEST_TOOL '-?' 2>conftest.err > conftest.out
cat conftest.err >&AS_MESSAGE_LOG_FD
if $GREP 'Manifest Tool' conftest.out > /dev/null; then
lt_cv_path_mainfest_tool=yes
fi
rm -f conftest*])
if test "x$lt_cv_path_mainfest_tool" != xyes; then
MANIFEST_TOOL=:
fi
_LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl
])# _LT_PATH_MANIFEST_TOOL
# LT_LIB_M
# --------
# check for math library
AC_DEFUN([LT_LIB_M],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
LIBM=
case $host in
*-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*)
# These system don't have libm, or don't need it
;;
*-ncr-sysv4.3*)
AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw")
AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm")
;;
*)
AC_CHECK_LIB(m, cos, LIBM="-lm")
;;
esac
AC_SUBST([LIBM])
])# LT_LIB_M
# Old name:
AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_CHECK_LIBM], [])
# _LT_COMPILER_NO_RTTI([TAGNAME])
# -------------------------------
m4_defun([_LT_COMPILER_NO_RTTI],
[m4_require([_LT_TAG_COMPILER])dnl
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
if test "$GCC" = yes; then
case $cc_basename in
nvcc*)
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;;
*)
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;;
esac
_LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions],
lt_cv_prog_compiler_rtti_exceptions,
[-fno-rtti -fno-exceptions], [],
[_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"])
fi
_LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1],
[Compiler flag to turn off builtin functions])
])# _LT_COMPILER_NO_RTTI
# _LT_CMD_GLOBAL_SYMBOLS
# ----------------------
m4_defun([_LT_CMD_GLOBAL_SYMBOLS],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_PROG_CC])dnl
AC_REQUIRE([AC_PROG_AWK])dnl
AC_REQUIRE([LT_PATH_NM])dnl
AC_REQUIRE([LT_PATH_LD])dnl
m4_require([_LT_DECL_SED])dnl
m4_require([_LT_DECL_EGREP])dnl
m4_require([_LT_TAG_COMPILER])dnl
# Check for command to grab the raw symbol name followed by C symbol from nm.
AC_MSG_CHECKING([command to parse $NM output from $compiler object])
AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe],
[
# These are sane defaults that work on at least a few old systems.
# [They come from Ultrix. What could be older than Ultrix?!! ;)]
# Character class describing NM global symbol codes.
symcode='[[BCDEGRST]]'
# Regexp to match symbols that can be accessed directly from C.
sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)'
# Define system-specific variables.
case $host_os in
aix*)
symcode='[[BCDT]]'
;;
cygwin* | mingw* | pw32* | cegcc*)
symcode='[[ABCDGISTW]]'
;;
hpux*)
if test "$host_cpu" = ia64; then
symcode='[[ABCDEGRST]]'
fi
;;
irix* | nonstopux*)
symcode='[[BCDEGRST]]'
;;
osf*)
symcode='[[BCDEGQRST]]'
;;
solaris*)
symcode='[[BDRT]]'
;;
sco3.2v5*)
symcode='[[DT]]'
;;
sysv4.2uw2*)
symcode='[[DT]]'
;;
sysv5* | sco5v6* | unixware* | OpenUNIX*)
symcode='[[ABDT]]'
;;
sysv4)
symcode='[[DFNSTU]]'
;;
esac
# If we're using GNU nm, then use its standard symbol codes.
case `$NM -V 2>&1` in
*GNU* | *'with BFD'*)
symcode='[[ABCDGIRSTW]]' ;;
esac
# Transform an extracted symbol line into a proper C declaration.
# Some systems (esp. on ia64) link data and code symbols differently,
# so use this general approach.
lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'"
# Transform an extracted symbol line into symbol name and symbol address
lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'"
lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/p'"
# Handle CRLF in mingw tool chain
opt_cr=
case $build_os in
mingw*)
opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
;;
esac
# Try without a prefix underscore, then with it.
for ac_symprfx in "" "_"; do
# Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
symxfrm="\\1 $ac_symprfx\\2 \\2"
# Write the raw and C identifiers.
if test "$lt_cv_nm_interface" = "MS dumpbin"; then
# Fake it for dumpbin and say T for any non-static function
# and D for any global variable.
# Also find C++ and __fastcall symbols from MSVC++,
# which start with @ or ?.
lt_cv_sys_global_symbol_pipe="$AWK ['"\
" {last_section=section; section=\$ 3};"\
+" /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\
" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
" \$ 0!~/External *\|/{next};"\
" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
" {if(hide[section]) next};"\
" {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\
" {split(\$ 0, a, /\||\r/); split(a[2], s)};"\
" s[1]~/^[@?]/{print s[1], s[1]; next};"\
" s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\
" ' prfx=^$ac_symprfx]"
else
lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
fi
lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'"
# Check to see that the pipe works correctly.
pipe_works=no
rm -f conftest*
cat > conftest.$ac_ext <<_LT_EOF
#ifdef __cplusplus
extern "C" {
#endif
char nm_test_var;
void nm_test_func(void);
void nm_test_func(void){}
#ifdef __cplusplus
}
#endif
int main(){nm_test_var='a';nm_test_func();return(0);}
_LT_EOF
if AC_TRY_EVAL(ac_compile); then
# Now try to grab the symbols.
nlist=conftest.nm
if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then
# Try sorting and uniquifying the output.
if sort "$nlist" | uniq > "$nlist"T; then
mv -f "$nlist"T "$nlist"
else
rm -f "$nlist"T
fi
# Make sure that we snagged all the symbols we need.
if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
cat <<_LT_EOF > conftest.$ac_ext
/* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */
#if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE)
/* DATA imports from DLLs on WIN32 con't be const, because runtime
relocations are performed -- see ld's documentation on pseudo-relocs. */
# define LT@&t@_DLSYM_CONST
#elif defined(__osf__)
/* This system does not cope well with relocations in const data. */
# define LT@&t@_DLSYM_CONST
#else
# define LT@&t@_DLSYM_CONST const
#endif
#ifdef __cplusplus
extern "C" {
#endif
_LT_EOF
# Now generate the symbol file.
eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
cat <<_LT_EOF >> conftest.$ac_ext
/* The mapping between symbol names and symbols. */
LT@&t@_DLSYM_CONST struct {
const char *name;
void *address;
}
lt__PROGRAM__LTX_preloaded_symbols[[]] =
{
{ "@PROGRAM@", (void *) 0 },
_LT_EOF
$SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
cat <<\_LT_EOF >> conftest.$ac_ext
{0, (void *) 0}
};
/* This works around a problem in FreeBSD linker */
#ifdef FREEBSD_WORKAROUND
static const void *lt_preloaded_setup() {
return lt__PROGRAM__LTX_preloaded_symbols;
}
#endif
#ifdef __cplusplus
}
#endif
_LT_EOF
# Now try linking the two files.
mv conftest.$ac_objext conftstm.$ac_objext
lt_globsym_save_LIBS=$LIBS
lt_globsym_save_CFLAGS=$CFLAGS
LIBS="conftstm.$ac_objext"
CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)"
if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then
pipe_works=yes
fi
LIBS=$lt_globsym_save_LIBS
CFLAGS=$lt_globsym_save_CFLAGS
else
echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD
fi
else
echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD
fi
else
echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD
fi
else
echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD
cat conftest.$ac_ext >&5
fi
rm -rf conftest* conftst*
# Do not use the global_symbol_pipe unless it works.
if test "$pipe_works" = yes; then
break
else
lt_cv_sys_global_symbol_pipe=
fi
done
])
if test -z "$lt_cv_sys_global_symbol_pipe"; then
lt_cv_sys_global_symbol_to_cdecl=
fi
if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
AC_MSG_RESULT(failed)
else
AC_MSG_RESULT(ok)
fi
# Response file support.
if test "$lt_cv_nm_interface" = "MS dumpbin"; then
nm_file_list_spec='@'
elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then
nm_file_list_spec='@'
fi
_LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1],
[Take the output of nm and produce a listing of raw symbols and C names])
_LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1],
[Transform the output of nm in a proper C declaration])
_LT_DECL([global_symbol_to_c_name_address],
[lt_cv_sys_global_symbol_to_c_name_address], [1],
[Transform the output of nm in a C name address pair])
_LT_DECL([global_symbol_to_c_name_address_lib_prefix],
[lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1],
[Transform the output of nm in a C name address pair when lib prefix is needed])
_LT_DECL([], [nm_file_list_spec], [1],
[Specify filename containing input files for $NM])
]) # _LT_CMD_GLOBAL_SYMBOLS
# _LT_COMPILER_PIC([TAGNAME])
# ---------------------------
m4_defun([_LT_COMPILER_PIC],
[m4_require([_LT_TAG_COMPILER])dnl
_LT_TAGVAR(lt_prog_compiler_wl, $1)=
_LT_TAGVAR(lt_prog_compiler_pic, $1)=
_LT_TAGVAR(lt_prog_compiler_static, $1)=
m4_if([$1], [CXX], [
# C++ specific cases for pic, static, wl, etc.
if test "$GXX" = yes; then
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
case $host_os in
aix*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
m68k)
# FIXME: we need at least 68020 code to build shared libraries, but
# adding the `-m68020' flag to GCC prevents building anything better,
# like `-m68040'.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
;;
esac
;;
beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
# PIC is the default for these OSes.
;;
mingw* | cygwin* | os2* | pw32* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
# Although the cygwin gcc ignores -fPIC, still need this for old-style
# (--disable-auto-import) libraries
m4_if([$1], [GCJ], [],
[_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
;;
darwin* | rhapsody*)
# PIC is the default on this platform
# Common symbols not allowed in MH_DYLIB files
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
;;
*djgpp*)
# DJGPP does not support shared libraries at all
_LT_TAGVAR(lt_prog_compiler_pic, $1)=
;;
haiku*)
# PIC is the default for Haiku.
# The "-static" flag exists, but is broken.
_LT_TAGVAR(lt_prog_compiler_static, $1)=
;;
interix[[3-9]]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
sysv4*MP*)
if test -d /usr/nec; then
_LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
fi
;;
hpux*)
# PIC is the default for 64-bit PA HP-UX, but not for 32-bit
# PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
# sets the default TLS model and affects inlining.
case $host_cpu in
hppa*64*)
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
esac
;;
*qnx* | *nto*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
esac
else
case $host_os in
aix[[4-9]]*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
else
_LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
fi
;;
chorus*)
case $cc_basename in
cxch68*)
# Green Hills C++ Compiler
# _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a"
;;
esac
;;
mingw* | cygwin* | os2* | pw32* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
m4_if([$1], [GCJ], [],
[_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
;;
dgux*)
case $cc_basename in
ec++*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
;;
ghcx*)
# Green Hills C++ Compiler
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
;;
*)
;;
esac
;;
freebsd* | dragonfly*)
# FreeBSD uses GNU C++
;;
hpux9* | hpux10* | hpux11*)
case $cc_basename in
CC*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive'
if test "$host_cpu" != ia64; then
_LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
fi
;;
aCC*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive'
case $host_cpu in
hppa*64*|ia64*)
# +Z the default
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
;;
esac
;;
*)
;;
esac
;;
interix*)
# This is c89, which is MS Visual C++ (no shared libs)
# Anyone wants to do a port?
;;
irix5* | irix6* | nonstopux*)
case $cc_basename in
CC*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
# CC pic flag -KPIC is the default.
;;
*)
;;
esac
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
KCC*)
# KAI C++ Compiler
_LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
ecpc* )
# old Intel C++ for x86_64 which still supported -KPIC.
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
icpc* )
# Intel C++, used to be incompatible with GCC.
# ICC 10 doesn't accept -KPIC any more.
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
pgCC* | pgcpp*)
# Portland Group C++ compiler
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
cxx*)
# Compaq C++
# Make sure the PIC flag is empty. It appears that all Alpha
# Linux and Compaq Tru64 Unix objects are PIC.
_LT_TAGVAR(lt_prog_compiler_pic, $1)=
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*)
# IBM XL 8.0, 9.0 on PPC and BlueGene
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink'
;;
*)
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*)
# Sun C++ 5.9
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
;;
esac
;;
esac
;;
lynxos*)
;;
m88k*)
;;
mvs*)
case $cc_basename in
cxx*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall'
;;
*)
;;
esac
;;
netbsd*)
;;
*qnx* | *nto*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
;;
osf3* | osf4* | osf5*)
case $cc_basename in
KCC*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,'
;;
RCC*)
# Rational C++ 2.4.1
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
;;
cxx*)
# Digital/Compaq C++
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
# Make sure the PIC flag is empty. It appears that all Alpha
# Linux and Compaq Tru64 Unix objects are PIC.
_LT_TAGVAR(lt_prog_compiler_pic, $1)=
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
*)
;;
esac
;;
psos*)
;;
solaris*)
case $cc_basename in
CC* | sunCC*)
# Sun C++ 4.2, 5.x and Centerline C++
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
;;
gcx*)
# Green Hills C++ Compiler
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
;;
*)
;;
esac
;;
sunos4*)
case $cc_basename in
CC*)
# Sun C++ 4.x
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
lcc*)
# Lucid
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
;;
*)
;;
esac
;;
sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
case $cc_basename in
CC*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
esac
;;
tandem*)
case $cc_basename in
NCC*)
# NonStop-UX NCC 3.20
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
;;
*)
;;
esac
;;
vxworks*)
;;
*)
_LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
;;
esac
fi
],
[
if test "$GCC" = yes; then
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
case $host_os in
aix*)
# All AIX code is PIC.
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
m68k)
# FIXME: we need at least 68020 code to build shared libraries, but
# adding the `-m68020' flag to GCC prevents building anything better,
# like `-m68040'.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4'
;;
esac
;;
beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
# PIC is the default for these OSes.
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
# Although the cygwin gcc ignores -fPIC, still need this for old-style
# (--disable-auto-import) libraries
m4_if([$1], [GCJ], [],
[_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
;;
darwin* | rhapsody*)
# PIC is the default on this platform
# Common symbols not allowed in MH_DYLIB files
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common'
;;
haiku*)
# PIC is the default for Haiku.
# The "-static" flag exists, but is broken.
_LT_TAGVAR(lt_prog_compiler_static, $1)=
;;
hpux*)
# PIC is the default for 64-bit PA HP-UX, but not for 32-bit
# PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
# sets the default TLS model and affects inlining.
case $host_cpu in
hppa*64*)
# +Z the default
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
esac
;;
interix[[3-9]]*)
# Interix 3.x gcc -fpic/-fPIC options generate broken code.
# Instead, we relocate shared libraries at runtime.
;;
msdosdjgpp*)
# Just because we use GCC doesn't mean we suddenly get shared libraries
# on systems that don't support them.
_LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
enable_shared=no
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
;;
sysv4*MP*)
if test -d /usr/nec; then
_LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic
fi
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
;;
esac
case $cc_basename in
nvcc*) # Cuda Compiler Driver 2.2
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker '
- _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Xcompiler -fPIC'
+ if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)"
+ fi
;;
esac
else
# PORTME Check for flag to pass linker flags through the system compiler.
case $host_os in
aix*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
if test "$host_cpu" = ia64; then
# AIX 5 now supports IA64 processor
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
else
_LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp'
fi
;;
mingw* | cygwin* | pw32* | os2* | cegcc*)
# This hack is so that the source file can tell whether it is being
# built for inclusion in a dll (and should export symbols for example).
m4_if([$1], [GCJ], [],
[_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT'])
;;
hpux9* | hpux10* | hpux11*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
# PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
# not for PA HP-UX.
case $host_cpu in
hppa*64*|ia64*)
# +Z the default
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z'
;;
esac
# Is there a better lt_prog_compiler_static that works with the bundled CC?
_LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive'
;;
irix5* | irix6* | nonstopux*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
# PIC (with -KPIC) is the default.
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
# old Intel for x86_64 which still supported -KPIC.
ecc*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
# icc used to be incompatible with GCC.
# ICC 10 doesn't accept -KPIC any more.
icc* | ifort*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
# Lahey Fortran 8.1.
lf95*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared'
_LT_TAGVAR(lt_prog_compiler_static, $1)='--static'
;;
nagfor*)
# NAG Fortran compiler
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group compilers (*not* the Pentium gcc compiler,
# which looks to be a dead project)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
ccc*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
# All Alpha code is PIC.
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
xl* | bgxl* | bgf* | mpixl*)
# IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink'
;;
*)
case `$CC -V 2>&1 | sed 5q` in
- *Sun\ F* | *Sun*Fortran*)
+ *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*)
# Sun Fortran 8.3 passes all unrecognized flags to the linker
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
_LT_TAGVAR(lt_prog_compiler_wl, $1)=''
;;
+ *Sun\ F* | *Sun*Fortran*)
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
+ ;;
*Sun\ C*)
# Sun C 5.9
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
;;
+ *Intel*\ [[CF]]*Compiler*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
+ ;;
+ *Portland\ Group*)
+ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
+ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic'
+ _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
+ ;;
esac
;;
esac
;;
newsos6)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
*nto* | *qnx*)
# QNX uses GNU C++, but need to define -shared option too, otherwise
# it will coredump.
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared'
;;
osf3* | osf4* | osf5*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
# All OSF/1 code is PIC.
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
rdos*)
_LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared'
;;
solaris*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
case $cc_basename in
f77* | f90* | f95* | sunf77* | sunf90* | sunf95*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';;
*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';;
esac
;;
sunos4*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld '
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
sysv4 | sysv4.2uw2* | sysv4.3*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
sysv4*MP*)
if test -d /usr/nec ;then
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
fi
;;
sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
unicos*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
;;
uts4*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic'
;;
*)
_LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no
;;
esac
fi
])
case $host_os in
# For platforms which do not support PIC, -DPIC is meaningless:
*djgpp*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)=
;;
*)
_LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])"
;;
esac
AC_CACHE_CHECK([for $compiler option to produce PIC],
[_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)],
[_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)])
_LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)
#
# Check to make sure the PIC flag actually works.
#
if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then
_LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works],
[_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)],
[$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [],
[case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in
"" | " "*) ;;
*) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;;
esac],
[_LT_TAGVAR(lt_prog_compiler_pic, $1)=
_LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no])
fi
_LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1],
[Additional compiler flags for building library objects])
_LT_TAGDECL([wl], [lt_prog_compiler_wl], [1],
[How to pass a linker flag through the compiler])
#
# Check to make sure the static flag actually works.
#
wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\"
_LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works],
_LT_TAGVAR(lt_cv_prog_compiler_static_works, $1),
$lt_tmp_static_flag,
[],
[_LT_TAGVAR(lt_prog_compiler_static, $1)=])
_LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1],
[Compiler flag to prevent dynamic linking])
])# _LT_COMPILER_PIC
# _LT_LINKER_SHLIBS([TAGNAME])
# ----------------------------
# See if the linker supports building shared libraries.
m4_defun([_LT_LINKER_SHLIBS],
[AC_REQUIRE([LT_PATH_LD])dnl
AC_REQUIRE([LT_PATH_NM])dnl
m4_require([_LT_PATH_MANIFEST_TOOL])dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_EGREP])dnl
m4_require([_LT_DECL_SED])dnl
m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl
m4_require([_LT_TAG_COMPILER])dnl
AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
m4_if([$1], [CXX], [
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
_LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*']
case $host_os in
aix[[4-9]]*)
# If we're using GNU nm, then we don't want the "-C" option.
# -C means demangle to AIX nm, but means don't demangle with GNU nm
# Also, AIX nm treats weak defined symbols like other global defined
# symbols, whereas GNU nm marks them as "W".
if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
_LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
else
_LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
fi
;;
pw32*)
_LT_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds"
;;
cygwin* | mingw* | cegcc*)
case $cc_basename in
- cl*) ;;
+ cl*)
+ _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
+ ;;
*)
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols'
_LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname']
;;
esac
;;
*)
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
;;
esac
], [
runpath_var=
_LT_TAGVAR(allow_undefined_flag, $1)=
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(archive_cmds, $1)=
_LT_TAGVAR(archive_expsym_cmds, $1)=
_LT_TAGVAR(compiler_needs_object, $1)=no
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
_LT_TAGVAR(export_dynamic_flag_spec, $1)=
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
_LT_TAGVAR(hardcode_automatic, $1)=no
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
- _LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
_LT_TAGVAR(hardcode_libdir_separator, $1)=
_LT_TAGVAR(hardcode_minus_L, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
_LT_TAGVAR(inherit_rpath, $1)=no
_LT_TAGVAR(link_all_deplibs, $1)=unknown
_LT_TAGVAR(module_cmds, $1)=
_LT_TAGVAR(module_expsym_cmds, $1)=
_LT_TAGVAR(old_archive_from_new_cmds, $1)=
_LT_TAGVAR(old_archive_from_expsyms_cmds, $1)=
_LT_TAGVAR(thread_safe_flag_spec, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
# include_expsyms should be a list of space-separated symbols to be *always*
# included in the symbol list
_LT_TAGVAR(include_expsyms, $1)=
# exclude_expsyms can be an extended regexp of symbols to exclude
# it will be wrapped by ` (' and `)$', so one must not match beginning or
# end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
# as well as any symbol that contains `d'.
_LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*']
# Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
# platforms (ab)use it in PIC code, but their linkers get confused if
# the symbol is explicitly referenced. Since portable code cannot
# rely on this symbol name, it's probably fine to never include it in
# preloaded symbol tables.
# Exclude shared library initialization/finalization symbols.
dnl Note also adjust exclude_expsyms for C++ above.
extract_expsyms_cmds=
case $host_os in
cygwin* | mingw* | pw32* | cegcc*)
# FIXME: the MSVC++ port hasn't been tested in a loooong time
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
if test "$GCC" != yes; then
with_gnu_ld=no
fi
;;
interix*)
# we just hope/assume this is gcc and not c89 (= MSVC++)
with_gnu_ld=yes
;;
openbsd*)
with_gnu_ld=no
;;
esac
_LT_TAGVAR(ld_shlibs, $1)=yes
# On some targets, GNU ld is compatible enough with the native linker
# that we're better off using the native interface for both.
lt_use_gnu_ld_interface=no
if test "$with_gnu_ld" = yes; then
case $host_os in
aix*)
# The AIX port of GNU ld has always aspired to compatibility
# with the native linker. However, as the warning in the GNU ld
# block says, versions before 2.19.5* couldn't really create working
# shared libraries, regardless of the interface used.
case `$LD -v 2>&1` in
*\ \(GNU\ Binutils\)\ 2.19.5*) ;;
*\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;;
*\ \(GNU\ Binutils\)\ [[3-9]]*) ;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
;;
*)
lt_use_gnu_ld_interface=yes
;;
esac
fi
if test "$lt_use_gnu_ld_interface" = yes; then
# If archive_cmds runs LD, not CC, wlarc should be empty
wlarc='${wl}'
# Set some defaults for GNU ld with shared library support. These
# are reset later if shared libraries are not supported. Putting them
# here allows them to be overridden if necessary.
runpath_var=LD_RUN_PATH
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
# ancient GNU ld didn't support --whole-archive et. al.
if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
_LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
else
_LT_TAGVAR(whole_archive_flag_spec, $1)=
fi
supports_anon_versioning=no
case `$LD -v 2>&1` in
*GNU\ gold*) supports_anon_versioning=yes ;;
*\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11
*\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
*\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
*\ 2.11.*) ;; # other 2.11 versions
*) supports_anon_versioning=yes ;;
esac
# See if GNU ld supports shared libraries.
case $host_os in
aix[[3-9]]*)
# On AIX/PPC, the GNU linker is very broken
if test "$host_cpu" != ia64; then
_LT_TAGVAR(ld_shlibs, $1)=no
cat <<_LT_EOF 1>&2
*** Warning: the GNU linker, at least up to release 2.19, is reported
*** to be unable to reliably create shared libraries on AIX.
*** Therefore, libtool is disabling shared libraries support. If you
*** really care for shared libraries, you may want to install binutils
*** 2.20 or above, or modify your PATH so that a non-GNU linker is found.
*** You will then need to restart the configuration process.
_LT_EOF
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)=''
;;
m68k)
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_minus_L, $1)=yes
;;
esac
;;
beos*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
# Joseph Beckenbach <jrb3@best.com> says some releases of gcc
# support --undefined. This deserves some investigation. FIXME
_LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
cygwin* | mingw* | pw32* | cegcc*)
# _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
# as there is no search path for DLLs.
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols'
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols'
_LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname']
if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
# If the export-symbols file already is a .def file (1st line
# is EXPORTS), use it as is; otherwise, prepend...
_LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
cp $export_symbols $output_objdir/$soname.def;
else
echo EXPORTS > $output_objdir/$soname.def;
cat $export_symbols >> $output_objdir/$soname.def;
fi~
$CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
haiku*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(link_all_deplibs, $1)=yes
;;
interix[[3-9]]*)
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
;;
gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
tmp_diet=no
if test "$host_os" = linux-dietlibc; then
case $cc_basename in
diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
esac
fi
if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
&& test "$tmp_diet" = no
then
tmp_addflag=' $pic_flag'
tmp_sharedflag='-shared'
case $cc_basename,$host_cpu in
pgcc*) # Portland Group C compiler
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag'
;;
pgf77* | pgf90* | pgf95* | pgfortran*)
# Portland Group f77 and f90 compilers
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag -Mnomain' ;;
ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
tmp_addflag=' -i_dynamic' ;;
efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
tmp_addflag=' -i_dynamic -nofor_main' ;;
ifc* | ifort*) # Intel Fortran compiler
tmp_addflag=' -nofor_main' ;;
lf95*) # Lahey Fortran 8.1
_LT_TAGVAR(whole_archive_flag_spec, $1)=
tmp_sharedflag='--shared' ;;
xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below)
tmp_sharedflag='-qmkshrobj'
tmp_addflag= ;;
nvcc*) # Cuda Compiler Driver 2.2
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
_LT_TAGVAR(compiler_needs_object, $1)=yes
;;
esac
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*) # Sun C 5.9
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
_LT_TAGVAR(compiler_needs_object, $1)=yes
tmp_sharedflag='-G' ;;
*Sun\ F*) # Sun Fortran 8.3
tmp_sharedflag='-G' ;;
esac
_LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
fi
case $cc_basename in
xlf* | bgf* | bgxlf* | mpixlf*)
# IBM XL Fortran 10.1 on PPC cannot create shared libs itself
_LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive'
- _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
- _LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='-rpath $libdir'
+ _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
fi
;;
esac
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
wlarc=
else
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
fi
;;
solaris*)
if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
_LT_TAGVAR(ld_shlibs, $1)=no
cat <<_LT_EOF 1>&2
*** Warning: The releases 2.8.* of the GNU linker cannot reliably
*** create shared libraries on Solaris systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.9.1 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
case `$LD -v 2>&1` in
*\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*)
_LT_TAGVAR(ld_shlibs, $1)=no
cat <<_LT_EOF 1>&2
*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not
*** reliably create shared libraries on SCO systems. Therefore, libtool
*** is disabling shared libraries support. We urge you to upgrade GNU
*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
*** your PATH or compiler configuration so that the native linker is
*** used, and then restart.
_LT_EOF
;;
*)
# For security reasons, it is highly recommended that you always
# use absolute paths for naming shared libraries, and exclude the
# DT_RUNPATH tag from executables and libraries. But doing so
# requires that you compile everything twice, which is a pain.
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
;;
sunos4*)
_LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
wlarc=
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
if test "$_LT_TAGVAR(ld_shlibs, $1)" = no; then
runpath_var=
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
_LT_TAGVAR(export_dynamic_flag_spec, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
fi
else
# PORTME fill in a description of your system's linker (not GNU ld)
case $host_os in
aix3*)
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(always_export_symbols, $1)=yes
_LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
# Note: this linker hardcodes the directories in LIBPATH if there
# are no directories specified by -L.
_LT_TAGVAR(hardcode_minus_L, $1)=yes
if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then
# Neither direct hardcoding nor static linking is supported with a
# broken collect2.
_LT_TAGVAR(hardcode_direct, $1)=unsupported
fi
;;
aix[[4-9]]*)
if test "$host_cpu" = ia64; then
# On IA64, the linker does run time linking by default, so we don't
# have to do anything special.
aix_use_runtimelinking=no
exp_sym_flag='-Bexport'
no_entry_flag=""
else
# If we're using GNU nm, then we don't want the "-C" option.
# -C means demangle to AIX nm, but means don't demangle with GNU nm
# Also, AIX nm treats weak defined symbols like other global
# defined symbols, whereas GNU nm marks them as "W".
if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
_LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
else
_LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
fi
aix_use_runtimelinking=no
# Test if we are trying to use run time linking or normal
# AIX style linking. If -brtl is somewhere in LDFLAGS, we
# need to do runtime linking.
case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*)
for ld_flag in $LDFLAGS; do
if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
aix_use_runtimelinking=yes
break
fi
done
;;
esac
exp_sym_flag='-bexport'
no_entry_flag='-bnoentry'
fi
# When large executables or shared objects are built, AIX ld can
# have problems creating the table of contents. If linking a library
# or program results in "error TOC overflow" add -mminimal-toc to
# CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
# enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
_LT_TAGVAR(archive_cmds, $1)=''
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(hardcode_libdir_separator, $1)=':'
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(file_list_spec, $1)='${wl}-f,'
if test "$GCC" = yes; then
case $host_os in aix4.[[012]]|aix4.[[012]].*)
# We only want to do this on AIX 4.2 and lower, the check
# below for broken collect2 doesn't work under 4.3+
collect2name=`${CC} -print-prog-name=collect2`
if test -f "$collect2name" &&
strings "$collect2name" | $GREP resolve_lib_name >/dev/null
then
# We have reworked collect2
:
else
# We have old collect2
_LT_TAGVAR(hardcode_direct, $1)=unsupported
# It fails to find uninstalled libraries when the uninstalled
# path is not listed in the libpath. Setting hardcode_minus_L
# to unsupported forces relinking
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=
fi
;;
esac
shared_flag='-shared'
if test "$aix_use_runtimelinking" = yes; then
shared_flag="$shared_flag "'${wl}-G'
fi
else
# not using gcc
if test "$host_cpu" = ia64; then
# VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
# chokes on -Wl,-G. The following line is correct:
shared_flag='-G'
else
if test "$aix_use_runtimelinking" = yes; then
shared_flag='${wl}-G'
else
shared_flag='${wl}-bM:SRE'
fi
fi
fi
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall'
# It seems that -bexpall does not export symbols beginning with
# underscore (_), so it is better to generate a list of symbols to export.
_LT_TAGVAR(always_export_symbols, $1)=yes
if test "$aix_use_runtimelinking" = yes; then
# Warning - without using the other runtime loading flags (-brtl),
# -berok will link without error, but may produce a broken library.
_LT_TAGVAR(allow_undefined_flag, $1)='-berok'
# Determine the default libpath from the value encoded in an
# empty executable.
_LT_SYS_MODULE_PATH_AIX([$1])
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
else
if test "$host_cpu" = ia64; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib'
_LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
_LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
else
# Determine the default libpath from the value encoded in an
# empty executable.
_LT_SYS_MODULE_PATH_AIX([$1])
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
# Warning - without using the other run time loading flags,
# -berok will link without error, but may produce a broken library.
_LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok'
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok'
if test "$with_gnu_ld" = yes; then
# We only use this code for GNU lds that support --whole-archive.
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
else
# Exported symbols can be pulled into shared objects from archives
_LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)=yes
# This is similar to how AIX traditionally builds its shared libraries.
_LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
fi
fi
;;
amigaos*)
case $host_cpu in
powerpc)
# see comment about AmigaOS4 .so support
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)=''
;;
m68k)
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_minus_L, $1)=yes
;;
esac
;;
bsdi[[45]]*)
_LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic
;;
cygwin* | mingw* | pw32* | cegcc*)
# When not using gcc, we currently assume that we are using
# Microsoft Visual C++.
# hardcode_libdir_flag_spec is actually meaningless, as there is
# no search path for DLLs.
case $cc_basename in
cl*)
# Native MSVC
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(always_export_symbols, $1)=yes
_LT_TAGVAR(file_list_spec, $1)='@'
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
_LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames='
_LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp;
else
sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp;
fi~
$CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
linknames='
# The linker will not automatically build a static lib if we build a DLL.
# _LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
+ _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*'
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols'
# Don't use ranlib
_LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib'
_LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~
lt_tool_outputfile="@TOOL_OUTPUT@"~
case $lt_outputfile in
*.exe|*.EXE) ;;
*)
lt_outputfile="$lt_outputfile.exe"
lt_tool_outputfile="$lt_tool_outputfile.exe"
;;
esac~
if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then
$MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
$RM "$lt_outputfile.manifest";
fi'
;;
*)
# Assume MSVC wrapper
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
_LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames='
# The linker will automatically build a .lib file if we build a DLL.
_LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
# FIXME: Should let the user specify the lib program.
_LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs'
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
;;
esac
;;
darwin* | rhapsody*)
_LT_DARWIN_LINKER_FEATURES($1)
;;
dgux*)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
- freebsd1*)
- _LT_TAGVAR(ld_shlibs, $1)=no
- ;;
-
# FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
# support. Future versions do this automatically, but an explicit c++rt0.o
# does not break anything, and helps significantly (at the cost of a little
# extra space).
freebsd2.2*)
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
# Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2*)
+ freebsd2.*)
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
# FreeBSD 3 and greater uses gcc -shared to do shared libraries.
freebsd* | dragonfly*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
hpux9*)
if test "$GCC" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
else
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
fi
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(hardcode_direct, $1)=yes
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
;;
hpux10*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
else
_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
fi
if test "$with_gnu_ld" = no; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
- _LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
_LT_TAGVAR(hardcode_minus_L, $1)=yes
fi
;;
hpux11*)
if test "$GCC" = yes && test "$with_gnu_ld" = no; then
case $host_cpu in
hppa*64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
else
case $host_cpu in
hppa*64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
ia64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
m4_if($1, [], [
# Older versions of the 11.00 compiler do not understand -b yet
# (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does)
_LT_LINKER_OPTION([if $CC understands -b],
_LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b],
[_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'],
[_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])],
[_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'])
;;
esac
fi
if test "$with_gnu_ld" = no; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
case $host_cpu in
hppa*64*|ia64*)
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
*)
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# hardcode_minus_L: Not really in the search PATH,
# but as the default location of the library.
_LT_TAGVAR(hardcode_minus_L, $1)=yes
;;
esac
fi
;;
irix5* | irix6* | nonstopux*)
if test "$GCC" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
# Try to use the -exported_symbol ld option, if it does not
# work, assume that -exports_file does not work either and
# implicitly export all symbols.
# This should be the same for all languages, so no per-tag cache variable.
AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol],
[lt_cv_irix_exported_symbol],
[save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
AC_LINK_IFELSE(
[AC_LANG_SOURCE(
[AC_LANG_CASE([C], [[int foo (void) { return 0; }]],
[C++], [[int foo (void) { return 0; }]],
[Fortran 77], [[
subroutine foo
end]],
[Fortran], [[
subroutine foo
end]])])],
[lt_cv_irix_exported_symbol=yes],
[lt_cv_irix_exported_symbol=no])
LDFLAGS="$save_LDFLAGS"])
if test "$lt_cv_irix_exported_symbol" = yes; then
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
fi
else
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib'
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)='no'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(inherit_rpath, $1)=yes
_LT_TAGVAR(link_all_deplibs, $1)=yes
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
else
_LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
fi
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
newsos6)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
*nto* | *qnx*)
;;
openbsd*)
if test -f /usr/libexec/ld.so; then
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
else
case $host_os in
openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*)
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
;;
esac
fi
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
os2*)
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
_LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
;;
osf3*)
if test "$GCC" = yes; then
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
_LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)='no'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
;;
osf4* | osf5*) # as osf3* with the addition of -msym flag
if test "$GCC" = yes; then
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
else
_LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
$CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp'
# Both c and cxx compiler support -rpath directly
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)='no'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
;;
solaris*)
_LT_TAGVAR(no_undefined_flag, $1)=' -z defs'
if test "$GCC" = yes; then
wlarc='${wl}'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
else
case `$CC -V 2>&1` in
*"Compilers 5.0"*)
wlarc=''
_LT_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
;;
*)
wlarc='${wl}'
_LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
;;
esac
fi
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
case $host_os in
solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
*)
# The compiler driver will combine and reorder linker options,
# but understands `-z linker_flag'. GCC discards it without `$wl',
# but is careful enough not to reorder.
# Supported since Solaris 2.6 (maybe 2.5.1?)
if test "$GCC" = yes; then
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
else
_LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract'
fi
;;
esac
_LT_TAGVAR(link_all_deplibs, $1)=yes
;;
sunos4*)
if test "x$host_vendor" = xsequent; then
# Use $CC to link under sequent, because it throws in some extra .o
# files that make .init and .fini sections work.
_LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
else
_LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
fi
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
sysv4)
case $host_vendor in
sni)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_direct, $1)=yes # is this really true???
;;
siemens)
## LD is ld it makes a PLAMLIB
## CC just makes a GrossModule.
_LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs'
_LT_TAGVAR(hardcode_direct, $1)=no
;;
motorola)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie
;;
esac
runpath_var='LD_RUN_PATH'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
sysv4.3*)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport'
;;
sysv4*MP*)
if test -d /usr/nec; then
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
runpath_var=LD_RUN_PATH
hardcode_runpath_var=yes
_LT_TAGVAR(ld_shlibs, $1)=yes
fi
;;
sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*)
_LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text'
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
_LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
sysv5* | sco3.2v5* | sco5v6*)
# Note: We can NOT use -z defs as we might desire, because we do not
# link with -lc, and that would cause any symbols used from libc to
# always be unresolved, which means just about no library would
# ever link correctly. If we're not using GNU ld we use -z text
# though, which does catch some bad symbols but isn't as heavy-handed
# as -z defs.
_LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text'
_LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs'
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=':'
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport'
runpath_var='LD_RUN_PATH'
if test "$GCC" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
else
_LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
fi
;;
uts4*)
_LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
*)
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
if test x$host_vendor = xsni; then
case $host in
sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Blargedynsym'
;;
esac
fi
fi
])
AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)])
test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no
_LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld
_LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl
_LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl
_LT_DECL([], [extract_expsyms_cmds], [2],
[The commands to extract the exported symbol list from a shared archive])
#
# Do we need to explicitly link libc?
#
case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in
x|xyes)
# Assume -lc should be added
_LT_TAGVAR(archive_cmds_need_lc, $1)=yes
if test "$enable_shared" = yes && test "$GCC" = yes; then
case $_LT_TAGVAR(archive_cmds, $1) in
*'~'*)
# FIXME: we may have to deal with multi-command sequences.
;;
'$CC '*)
# Test whether the compiler implicitly links with -lc since on some
# systems, -lgcc has to come before -lc. If gcc already passes -lc
# to ld, don't add -lc before -lgcc.
AC_CACHE_CHECK([whether -lc should be explicitly linked in],
[lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1),
[$RM conftest*
echo "$lt_simple_compile_test_code" > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile) 2>conftest.err; then
soname=conftest
lib=conftest
libobjs=conftest.$ac_objext
deplibs=
wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1)
pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1)
compiler_flags=-v
linker_flags=-v
verstring=
output_objdir=.
libname=conftest
lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1)
_LT_TAGVAR(allow_undefined_flag, $1)=
if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1)
then
lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no
else
lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes
fi
_LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag
else
cat conftest.err 1>&5
fi
$RM conftest*
])
_LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)
;;
esac
fi
;;
esac
_LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0],
[Whether or not to add -lc for building shared libraries])
_LT_TAGDECL([allow_libtool_libs_with_static_runtimes],
[enable_shared_with_static_runtimes], [0],
[Whether or not to disallow shared libs when runtime libs are static])
_LT_TAGDECL([], [export_dynamic_flag_spec], [1],
[Compiler flag to allow reflexive dlopens])
_LT_TAGDECL([], [whole_archive_flag_spec], [1],
[Compiler flag to generate shared objects directly from archives])
_LT_TAGDECL([], [compiler_needs_object], [1],
[Whether the compiler copes with passing no objects directly])
_LT_TAGDECL([], [old_archive_from_new_cmds], [2],
[Create an old-style archive from a shared archive])
_LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2],
[Create a temporary old-style archive to link instead of a shared archive])
_LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive])
_LT_TAGDECL([], [archive_expsym_cmds], [2])
_LT_TAGDECL([], [module_cmds], [2],
[Commands used to build a loadable module if different from building
a shared archive.])
_LT_TAGDECL([], [module_expsym_cmds], [2])
_LT_TAGDECL([], [with_gnu_ld], [1],
[Whether we are building with GNU ld or not])
_LT_TAGDECL([], [allow_undefined_flag], [1],
[Flag that allows shared libraries with undefined symbols to be built])
_LT_TAGDECL([], [no_undefined_flag], [1],
[Flag that enforces no undefined symbols])
_LT_TAGDECL([], [hardcode_libdir_flag_spec], [1],
[Flag to hardcode $libdir into a binary during linking.
This must work even if $libdir does not exist])
-_LT_TAGDECL([], [hardcode_libdir_flag_spec_ld], [1],
- [[If ld is used when linking, flag to hardcode $libdir into a binary
- during linking. This must work even if $libdir does not exist]])
_LT_TAGDECL([], [hardcode_libdir_separator], [1],
[Whether we need a single "-rpath" flag with a separated argument])
_LT_TAGDECL([], [hardcode_direct], [0],
[Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
DIR into the resulting binary])
_LT_TAGDECL([], [hardcode_direct_absolute], [0],
[Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes
DIR into the resulting binary and the resulting library dependency is
"absolute", i.e impossible to change by setting ${shlibpath_var} if the
library is relocated])
_LT_TAGDECL([], [hardcode_minus_L], [0],
[Set to "yes" if using the -LDIR flag during linking hardcodes DIR
into the resulting binary])
_LT_TAGDECL([], [hardcode_shlibpath_var], [0],
[Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
into the resulting binary])
_LT_TAGDECL([], [hardcode_automatic], [0],
[Set to "yes" if building a shared library automatically hardcodes DIR
into the library and all subsequent libraries and executables linked
against it])
_LT_TAGDECL([], [inherit_rpath], [0],
[Set to yes if linker adds runtime paths of dependent libraries
to runtime path list])
_LT_TAGDECL([], [link_all_deplibs], [0],
[Whether libtool must link a program against all its dependency libraries])
_LT_TAGDECL([], [always_export_symbols], [0],
[Set to "yes" if exported symbols are required])
_LT_TAGDECL([], [export_symbols_cmds], [2],
[The commands to list exported symbols])
_LT_TAGDECL([], [exclude_expsyms], [1],
[Symbols that should not be listed in the preloaded symbols])
_LT_TAGDECL([], [include_expsyms], [1],
[Symbols that must always be exported])
_LT_TAGDECL([], [prelink_cmds], [2],
[Commands necessary for linking programs (against libraries) with templates])
_LT_TAGDECL([], [postlink_cmds], [2],
[Commands necessary for finishing linking programs])
_LT_TAGDECL([], [file_list_spec], [1],
[Specify filename containing input files])
dnl FIXME: Not yet implemented
dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1],
dnl [Compiler flag to generate thread safe objects])
])# _LT_LINKER_SHLIBS
# _LT_LANG_C_CONFIG([TAG])
# ------------------------
# Ensure that the configuration variables for a C compiler are suitably
# defined. These variables are subsequently used by _LT_CONFIG to write
# the compiler configuration to `libtool'.
m4_defun([_LT_LANG_C_CONFIG],
[m4_require([_LT_DECL_EGREP])dnl
lt_save_CC="$CC"
AC_LANG_PUSH(C)
# Source file extension for C test sources.
ac_ext=c
# Object file extension for compiled C test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# Code to be used in simple compile tests
lt_simple_compile_test_code="int some_variable = 0;"
# Code to be used in simple link tests
lt_simple_link_test_code='int main(){return(0);}'
_LT_TAG_COMPILER
# Save the default compiler, since it gets overwritten when the other
# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
compiler_DEFAULT=$CC
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
if test -n "$compiler"; then
_LT_COMPILER_NO_RTTI($1)
_LT_COMPILER_PIC($1)
_LT_COMPILER_C_O($1)
_LT_COMPILER_FILE_LOCKS($1)
_LT_LINKER_SHLIBS($1)
_LT_SYS_DYNAMIC_LINKER($1)
_LT_LINKER_HARDCODE_LIBPATH($1)
LT_SYS_DLOPEN_SELF
_LT_CMD_STRIPLIB
# Report which library types will actually be built
AC_MSG_CHECKING([if libtool supports shared libraries])
AC_MSG_RESULT([$can_build_shared])
AC_MSG_CHECKING([whether to build shared libraries])
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[[4-9]]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
AC_MSG_RESULT([$enable_shared])
AC_MSG_CHECKING([whether to build static libraries])
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
AC_MSG_RESULT([$enable_static])
_LT_CONFIG($1)
fi
AC_LANG_POP
CC="$lt_save_CC"
])# _LT_LANG_C_CONFIG
# _LT_LANG_CXX_CONFIG([TAG])
# --------------------------
# Ensure that the configuration variables for a C++ compiler are suitably
# defined. These variables are subsequently used by _LT_CONFIG to write
# the compiler configuration to `libtool'.
m4_defun([_LT_LANG_CXX_CONFIG],
[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_EGREP])dnl
m4_require([_LT_PATH_MANIFEST_TOOL])dnl
if test -n "$CXX" && ( test "X$CXX" != "Xno" &&
( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) ||
(test "X$CXX" != "Xg++"))) ; then
AC_PROG_CXXCPP
else
_lt_caught_CXX_error=yes
fi
AC_LANG_PUSH(C++)
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(allow_undefined_flag, $1)=
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(archive_expsym_cmds, $1)=
_LT_TAGVAR(compiler_needs_object, $1)=no
_LT_TAGVAR(export_dynamic_flag_spec, $1)=
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
-_LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
_LT_TAGVAR(hardcode_libdir_separator, $1)=
_LT_TAGVAR(hardcode_minus_L, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported
_LT_TAGVAR(hardcode_automatic, $1)=no
_LT_TAGVAR(inherit_rpath, $1)=no
_LT_TAGVAR(module_cmds, $1)=
_LT_TAGVAR(module_expsym_cmds, $1)=
_LT_TAGVAR(link_all_deplibs, $1)=unknown
_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
_LT_TAGVAR(reload_flag, $1)=$reload_flag
_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
_LT_TAGVAR(no_undefined_flag, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
# Source file extension for C++ test sources.
ac_ext=cpp
# Object file extension for compiled C++ test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# No sense in running all these tests if we already determined that
# the CXX compiler isn't working. Some variables (like enable_shared)
# are currently assumed to apply to all compilers on this platform,
# and will be corrupted by setting them based on a non-working compiler.
if test "$_lt_caught_CXX_error" != yes; then
# Code to be used in simple compile tests
lt_simple_compile_test_code="int some_variable = 0;"
# Code to be used in simple link tests
lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }'
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
_LT_TAG_COMPILER
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
# Allow CC to be a program name with arguments.
lt_save_CC=$CC
lt_save_CFLAGS=$CFLAGS
lt_save_LD=$LD
lt_save_GCC=$GCC
GCC=$GXX
lt_save_with_gnu_ld=$with_gnu_ld
lt_save_path_LD=$lt_cv_path_LD
if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then
lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx
else
$as_unset lt_cv_prog_gnu_ld
fi
if test -n "${lt_cv_path_LDCXX+set}"; then
lt_cv_path_LD=$lt_cv_path_LDCXX
else
$as_unset lt_cv_path_LD
fi
test -z "${LDCXX+set}" || LD=$LDCXX
CC=${CXX-"c++"}
CFLAGS=$CXXFLAGS
compiler=$CC
_LT_TAGVAR(compiler, $1)=$CC
_LT_CC_BASENAME([$compiler])
if test -n "$compiler"; then
# We don't want -fno-exception when compiling C++ code, so set the
# no_builtin_flag separately
if test "$GXX" = yes; then
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin'
else
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=
fi
if test "$GXX" = yes; then
# Set up default GNU C++ configuration
LT_PATH_LD
# Check if GNU C++ uses GNU ld as the underlying linker, since the
# archiving commands below assume that GNU ld is being used.
if test "$with_gnu_ld" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
# If archive_cmds runs LD, not CC, wlarc should be empty
# XXX I think wlarc can be eliminated in ltcf-cxx, but I need to
# investigate it a little bit more. (MM)
wlarc='${wl}'
# ancient GNU ld didn't support --whole-archive et. al.
if eval "`$CC -print-prog-name=ld` --help 2>&1" |
$GREP 'no-whole-archive' > /dev/null; then
_LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
else
_LT_TAGVAR(whole_archive_flag_spec, $1)=
fi
else
with_gnu_ld=no
wlarc=
# A generic and very simple default shared library creation
# command for GNU C++ for the case where it uses the native
# linker, instead of GNU ld. If possible, this setting should
# overridden to take advantage of the native linker features on
# the platform it is being used on.
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
fi
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
else
GXX=no
with_gnu_ld=no
wlarc=
fi
# PORTME: fill in a description of your system's C++ link characteristics
AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries])
_LT_TAGVAR(ld_shlibs, $1)=yes
case $host_os in
aix3*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
aix[[4-9]]*)
if test "$host_cpu" = ia64; then
# On IA64, the linker does run time linking by default, so we don't
# have to do anything special.
aix_use_runtimelinking=no
exp_sym_flag='-Bexport'
no_entry_flag=""
else
aix_use_runtimelinking=no
# Test if we are trying to use run time linking or normal
# AIX style linking. If -brtl is somewhere in LDFLAGS, we
# need to do runtime linking.
case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*)
for ld_flag in $LDFLAGS; do
case $ld_flag in
*-brtl*)
aix_use_runtimelinking=yes
break
;;
esac
done
;;
esac
exp_sym_flag='-bexport'
no_entry_flag='-bnoentry'
fi
# When large executables or shared objects are built, AIX ld can
# have problems creating the table of contents. If linking a library
# or program results in "error TOC overflow" add -mminimal-toc to
# CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
# enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
_LT_TAGVAR(archive_cmds, $1)=''
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(hardcode_libdir_separator, $1)=':'
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(file_list_spec, $1)='${wl}-f,'
if test "$GXX" = yes; then
case $host_os in aix4.[[012]]|aix4.[[012]].*)
# We only want to do this on AIX 4.2 and lower, the check
# below for broken collect2 doesn't work under 4.3+
collect2name=`${CC} -print-prog-name=collect2`
if test -f "$collect2name" &&
strings "$collect2name" | $GREP resolve_lib_name >/dev/null
then
# We have reworked collect2
:
else
# We have old collect2
_LT_TAGVAR(hardcode_direct, $1)=unsupported
# It fails to find uninstalled libraries when the uninstalled
# path is not listed in the libpath. Setting hardcode_minus_L
# to unsupported forces relinking
_LT_TAGVAR(hardcode_minus_L, $1)=yes
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=
fi
esac
shared_flag='-shared'
if test "$aix_use_runtimelinking" = yes; then
shared_flag="$shared_flag "'${wl}-G'
fi
else
# not using gcc
if test "$host_cpu" = ia64; then
# VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
# chokes on -Wl,-G. The following line is correct:
shared_flag='-G'
else
if test "$aix_use_runtimelinking" = yes; then
shared_flag='${wl}-G'
else
shared_flag='${wl}-bM:SRE'
fi
fi
fi
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall'
# It seems that -bexpall does not export symbols beginning with
# underscore (_), so it is better to generate a list of symbols to
# export.
_LT_TAGVAR(always_export_symbols, $1)=yes
if test "$aix_use_runtimelinking" = yes; then
# Warning - without using the other runtime loading flags (-brtl),
# -berok will link without error, but may produce a broken library.
_LT_TAGVAR(allow_undefined_flag, $1)='-berok'
# Determine the default libpath from the value encoded in an empty
# executable.
_LT_SYS_MODULE_PATH_AIX([$1])
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
else
if test "$host_cpu" = ia64; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib'
_LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs"
_LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
else
# Determine the default libpath from the value encoded in an
# empty executable.
_LT_SYS_MODULE_PATH_AIX([$1])
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath"
# Warning - without using the other run time loading flags,
# -berok will link without error, but may produce a broken library.
_LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok'
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok'
if test "$with_gnu_ld" = yes; then
# We only use this code for GNU lds that support --whole-archive.
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
else
# Exported symbols can be pulled into shared objects from archives
_LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)=yes
# This is similar to how AIX traditionally builds its shared
# libraries.
_LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
fi
fi
;;
beos*)
if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
# Joseph Beckenbach <jrb3@best.com> says some releases of gcc
# support --undefined. This deserves some investigation. FIXME
_LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
chorus*)
case $cc_basename in
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
;;
cygwin* | mingw* | pw32* | cegcc*)
case $GXX,$cc_basename in
,cl* | no,cl*)
# Native MSVC
# hardcode_libdir_flag_spec is actually meaningless, as there is
# no search path for DLLs.
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' '
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(always_export_symbols, $1)=yes
_LT_TAGVAR(file_list_spec, $1)='@'
# Tell ltmain to make .lib files, not .a files.
libext=lib
# Tell ltmain to make .dll files, not .so files.
shrext_cmds=".dll"
# FIXME: Setting linknames here is a bad hack.
_LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames='
_LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
$SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp;
else
$SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp;
fi~
$CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~
linknames='
# The linker will not automatically build a static lib if we build a DLL.
# _LT_TAGVAR(old_archive_from_new_cmds, $1)='true'
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
# Don't use ranlib
_LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib'
_LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~
lt_tool_outputfile="@TOOL_OUTPUT@"~
case $lt_outputfile in
*.exe|*.EXE) ;;
*)
lt_outputfile="$lt_outputfile.exe"
lt_tool_outputfile="$lt_tool_outputfile.exe"
;;
esac~
func_to_tool_file "$lt_outputfile"~
if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then
$MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1;
$RM "$lt_outputfile.manifest";
fi'
;;
*)
# g++
# _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless,
# as there is no search path for DLLs.
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols'
_LT_TAGVAR(allow_undefined_flag, $1)=unsupported
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
# If the export-symbols file already is a .def file (1st line
# is EXPORTS), use it as is; otherwise, prepend...
_LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
cp $export_symbols $output_objdir/$soname.def;
else
echo EXPORTS > $output_objdir/$soname.def;
cat $export_symbols >> $output_objdir/$soname.def;
fi~
$CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
;;
darwin* | rhapsody*)
_LT_DARWIN_LINKER_FEATURES($1)
;;
dgux*)
case $cc_basename in
ec++*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
ghcx*)
# Green Hills C++ Compiler
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
;;
- freebsd[[12]]*)
+ freebsd2.*)
# C++ shared libraries reported to be fairly broken before
# switch to ELF
_LT_TAGVAR(ld_shlibs, $1)=no
;;
freebsd-elf*)
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
;;
freebsd* | dragonfly*)
# FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF
# conventions
_LT_TAGVAR(ld_shlibs, $1)=yes
;;
gnu*)
;;
haiku*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(link_all_deplibs, $1)=yes
;;
hpux9*)
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
# but as the default
# location of the library.
case $cc_basename in
CC*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
aCC*)
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
#
# There doesn't appear to be a way to prevent this compiler from
# explicitly linking system object files so we need to strip them
# from the output so that they don't get included in the library
# dependencies.
output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
;;
*)
if test "$GXX" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
else
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
;;
hpux10*|hpux11*)
if test $with_gnu_ld = no; then
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
case $host_cpu in
hppa*64*|ia64*)
;;
*)
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
;;
esac
fi
case $host_cpu in
hppa*64*|ia64*)
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
;;
*)
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH,
# but as the default
# location of the library.
;;
esac
case $cc_basename in
CC*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
aCC*)
case $host_cpu in
hppa*64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
ia64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
esac
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
#
# There doesn't appear to be a way to prevent this compiler from
# explicitly linking system object files so we need to strip them
# from the output so that they don't get included in the library
# dependencies.
output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
;;
*)
if test "$GXX" = yes; then
if test $with_gnu_ld = no; then
case $host_cpu in
hppa*64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
ia64*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
esac
fi
else
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
;;
interix[[3-9]]*)
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
# Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
# Instead, shared libraries are loaded at an image base (0x10000000 by
# default) and relocated if they conflict, which is a slow very memory
# consuming and fragmenting process. To avoid this, we pick a random,
# 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
# time. Moving up from 0x10000000 also allows more sbrk(2) space.
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
;;
irix5* | irix6*)
case $cc_basename in
CC*)
# SGI C++
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
# Archives containing C++ object files must be created using
# "CC -ar", where "CC" is the IRIX C++ compiler. This is
# necessary to make sure instantiated templates are included
# in the archive.
_LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs'
;;
*)
if test "$GXX" = yes; then
if test "$with_gnu_ld" = no; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib'
fi
fi
_LT_TAGVAR(link_all_deplibs, $1)=yes
;;
esac
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
_LT_TAGVAR(inherit_rpath, $1)=yes
;;
linux* | k*bsd*-gnu | kopensolaris*-gnu)
case $cc_basename in
KCC*)
# Kuck and Associates, Inc. (KAI) C++ Compiler
# KCC will only create a shared library if the output file
# ends with ".so" (or ".sl" for HP-UX), so rename the library
# to its proper name (with version) after linking.
_LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib'
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
#
# There doesn't appear to be a way to prevent this compiler from
# explicitly linking system object files so we need to strip them
# from the output so that they don't get included in the library
# dependencies.
output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
# Archives containing C++ object files must be created using
# "CC -Bstatic", where "CC" is the KAI C++ compiler.
_LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs'
;;
icpc* | ecpc* )
# Intel C++
with_gnu_ld=yes
# version 8.0 and above of icpc choke on multiply defined symbols
# if we add $predep_objects and $postdep_objects, however 7.1 and
# earlier do not add the objects themselves.
case `$CC -V 2>&1` in
*"Version 7."*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
;;
*) # Version 8.0 or newer
tmp_idyn=
case $host_cpu in
ia64*) tmp_idyn=' -i_dynamic';;
esac
_LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
;;
esac
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
;;
pgCC* | pgcpp*)
# Portland Group C++ compiler
case `$CC -V` in
*pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*)
_LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~
rm -rf $tpldir~
$CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~
compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"'
_LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~
rm -rf $tpldir~
$CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~
$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~
$RANLIB $oldlib'
_LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~
rm -rf $tpldir~
$CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
$CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~
rm -rf $tpldir~
$CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
$CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib'
;;
*) # Version 6 and above use weak symbols
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib'
;;
esac
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
;;
cxx*)
# Compaq C++
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols'
runpath_var=LD_RUN_PATH
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
#
# There doesn't appear to be a way to prevent this compiler from
# explicitly linking system object files so we need to strip them
# from the output so that they don't get included in the library
# dependencies.
output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed'
;;
xl* | mpixl* | bgxl*)
# IBM XL 8.0 on PPC, with GNU ld
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic'
_LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
if test "x$supports_anon_versioning" = xyes; then
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~
cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
echo "local: *; };" >> $output_objdir/$libname.ver~
$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
fi
;;
*)
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*)
# Sun C++ 5.9
_LT_TAGVAR(no_undefined_flag, $1)=' -zdefs'
_LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive'
_LT_TAGVAR(compiler_needs_object, $1)=yes
# Not sure whether something based on
# $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1
# would be better.
output_verbose_link_cmd='func_echo_all'
# Archives containing C++ object files must be created using
# "CC -xar", where "CC" is the Sun C++ compiler. This is
# necessary to make sure instantiated templates are included
# in the archive.
_LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs'
;;
esac
;;
esac
;;
lynxos*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
m88k*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
mvs*)
case $cc_basename in
cxx*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
;;
netbsd*)
if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags'
wlarc=
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
fi
# Workaround some broken pre-1.5 toolchains
output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"'
;;
*nto* | *qnx*)
_LT_TAGVAR(ld_shlibs, $1)=yes
;;
openbsd2*)
# C++ shared libraries are fairly broken
_LT_TAGVAR(ld_shlibs, $1)=no
;;
openbsd*)
if test -f /usr/libexec/ld.so; then
_LT_TAGVAR(hardcode_direct, $1)=yes
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=yes
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib'
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E'
_LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
fi
output_verbose_link_cmd=func_echo_all
else
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
osf3* | osf4* | osf5*)
case $cc_basename in
KCC*)
# Kuck and Associates, Inc. (KAI) C++ Compiler
# KCC will only create a shared library if the output file
# ends with ".so" (or ".sl" for HP-UX), so rename the library
# to its proper name (with version) after linking.
_LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
# Archives containing C++ object files must be created using
# the KAI C++ compiler.
case $host in
osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;;
*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;;
esac
;;
RCC*)
# Rational C++ 2.4.1
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
cxx*)
case $host in
osf3*)
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
;;
*)
_LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*'
_LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~
echo "-hidden">> $lib.exp~
$CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~
$RM $lib.exp'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir'
;;
esac
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
#
# There doesn't appear to be a way to prevent this compiler from
# explicitly linking system object files so we need to strip them
# from the output so that they don't get included in the library
# dependencies.
output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"'
;;
*)
if test "$GXX" = yes && test "$with_gnu_ld" = no; then
_LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*'
case $host in
osf3*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
;;
esac
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=:
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
else
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
fi
;;
esac
;;
psos*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
sunos4*)
case $cc_basename in
CC*)
# Sun C++ 4.x
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
lcc*)
# Lucid
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
;;
solaris*)
case $cc_basename in
CC* | sunCC*)
# Sun C++ 4.2, 5.x and Centerline C++
_LT_TAGVAR(archive_cmds_need_lc,$1)=yes
_LT_TAGVAR(no_undefined_flag, $1)=' -zdefs'
_LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir'
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
case $host_os in
solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
*)
# The compiler driver will combine and reorder linker options,
# but understands `-z linker_flag'.
# Supported since Solaris 2.6 (maybe 2.5.1?)
_LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract'
;;
esac
_LT_TAGVAR(link_all_deplibs, $1)=yes
output_verbose_link_cmd='func_echo_all'
# Archives containing C++ object files must be created using
# "CC -xar", where "CC" is the Sun C++ compiler. This is
# necessary to make sure instantiated templates are included
# in the archive.
_LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs'
;;
gcx*)
# Green Hills C++ Compiler
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
# The C++ compiler must be used to create the archive.
_LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs'
;;
*)
# GNU C++ compiler with Solaris linker
if test "$GXX" = yes && test "$with_gnu_ld" = no; then
_LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs'
if $CC --version | $GREP -v '^2\.7' > /dev/null; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
else
# g++ 2.7 appears to require `-G' NOT `-shared' on this
# platform.
_LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
$CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
# Commands to make compiler produce verbose output that lists
# what "hidden" libraries, object files and flags are used when
# linking a shared library.
output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"'
fi
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir'
case $host_os in
solaris2.[[0-5]] | solaris2.[[0-5]].*) ;;
*)
_LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
;;
esac
fi
;;
esac
;;
sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*)
_LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text'
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
runpath_var='LD_RUN_PATH'
case $cc_basename in
CC*)
_LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
;;
sysv5* | sco3.2v5* | sco5v6*)
# Note: We can NOT use -z defs as we might desire, because we do not
# link with -lc, and that would cause any symbols used from libc to
# always be unresolved, which means just about no library would
# ever link correctly. If we're not using GNU ld we use -z text
# though, which does catch some bad symbols but isn't as heavy-handed
# as -z defs.
_LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text'
_LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs'
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(hardcode_shlibpath_var, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir'
_LT_TAGVAR(hardcode_libdir_separator, $1)=':'
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport'
runpath_var='LD_RUN_PATH'
case $cc_basename in
CC*)
_LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~
'"$_LT_TAGVAR(old_archive_cmds, $1)"
_LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~
'"$_LT_TAGVAR(reload_cmds, $1)"
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
;;
esac
;;
tandem*)
case $cc_basename in
NCC*)
# NonStop-UX NCC 3.20
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
;;
vxworks*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
*)
# FIXME: insert proper C++ library support
_LT_TAGVAR(ld_shlibs, $1)=no
;;
esac
AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)])
test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no
_LT_TAGVAR(GCC, $1)="$GXX"
_LT_TAGVAR(LD, $1)="$LD"
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
_LT_SYS_HIDDEN_LIBDEPS($1)
_LT_COMPILER_PIC($1)
_LT_COMPILER_C_O($1)
_LT_COMPILER_FILE_LOCKS($1)
_LT_LINKER_SHLIBS($1)
_LT_SYS_DYNAMIC_LINKER($1)
_LT_LINKER_HARDCODE_LIBPATH($1)
_LT_CONFIG($1)
fi # test -n "$compiler"
CC=$lt_save_CC
CFLAGS=$lt_save_CFLAGS
LDCXX=$LD
LD=$lt_save_LD
GCC=$lt_save_GCC
with_gnu_ld=$lt_save_with_gnu_ld
lt_cv_path_LDCXX=$lt_cv_path_LD
lt_cv_path_LD=$lt_save_path_LD
lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld
lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld
fi # test "$_lt_caught_CXX_error" != yes
AC_LANG_POP
])# _LT_LANG_CXX_CONFIG
# _LT_FUNC_STRIPNAME_CNF
# ----------------------
# func_stripname_cnf prefix suffix name
# strip PREFIX and SUFFIX off of NAME.
# PREFIX and SUFFIX must not contain globbing or regex special
# characters, hashes, percent signs, but SUFFIX may contain a leading
# dot (in which case that matches only a dot).
#
# This function is identical to the (non-XSI) version of func_stripname,
# except this one can be used by m4 code that may be executed by configure,
# rather than the libtool script.
m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl
AC_REQUIRE([_LT_DECL_SED])
AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])
func_stripname_cnf ()
{
case ${2} in
.*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;;
*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;;
esac
} # func_stripname_cnf
])# _LT_FUNC_STRIPNAME_CNF
# _LT_SYS_HIDDEN_LIBDEPS([TAGNAME])
# ---------------------------------
# Figure out "hidden" library dependencies from verbose
# compiler output when linking a shared library.
# Parse the compiler output and extract the necessary
# objects, libraries and library flags.
m4_defun([_LT_SYS_HIDDEN_LIBDEPS],
[m4_require([_LT_FILEUTILS_DEFAULTS])dnl
AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl
# Dependencies to place before and after the object being linked:
_LT_TAGVAR(predep_objects, $1)=
_LT_TAGVAR(postdep_objects, $1)=
_LT_TAGVAR(predeps, $1)=
_LT_TAGVAR(postdeps, $1)=
_LT_TAGVAR(compiler_lib_search_path, $1)=
dnl we can't use the lt_simple_compile_test_code here,
dnl because it contains code intended for an executable,
dnl not a library. It's possible we should let each
dnl tag define a new lt_????_link_test_code variable,
dnl but it's only used here...
m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF
int a;
void foo (void) { a = 0; }
_LT_EOF
], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF
class Foo
{
public:
Foo (void) { a = 0; }
private:
int a;
};
_LT_EOF
], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF
subroutine foo
implicit none
integer*4 a
a=0
return
end
_LT_EOF
], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF
subroutine foo
implicit none
integer a
a=0
return
end
_LT_EOF
], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF
public class foo {
private int a;
public void bar (void) {
a = 0;
}
};
_LT_EOF
+], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF
+package foo
+func foo() {
+}
+_LT_EOF
])
_lt_libdeps_save_CFLAGS=$CFLAGS
case "$CC $CFLAGS " in #(
*\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;;
*\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;;
+*\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;;
esac
dnl Parse the compiler output and extract the necessary
dnl objects, libraries and library flags.
if AC_TRY_EVAL(ac_compile); then
# Parse the compiler output and extract the necessary
# objects, libraries and library flags.
# Sentinel used to keep track of whether or not we are before
# the conftest object file.
pre_test_object_deps_done=no
for p in `eval "$output_verbose_link_cmd"`; do
case ${prev}${p} in
-L* | -R* | -l*)
# Some compilers place space between "-{L,R}" and the path.
# Remove the space.
if test $p = "-L" ||
test $p = "-R"; then
prev=$p
continue
fi
# Expand the sysroot to ease extracting the directories later.
if test -z "$prev"; then
case $p in
-L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;;
-R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;;
-l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;;
esac
fi
case $p in
=*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;;
esac
if test "$pre_test_object_deps_done" = no; then
case ${prev} in
-L | -R)
# Internal compiler library paths should come after those
# provided the user. The postdeps already come after the
# user supplied libs so there is no need to process them.
if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then
_LT_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}"
else
_LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}"
fi
;;
# The "-l" case would never come before the object being
# linked, so don't bother handling this case.
esac
else
if test -z "$_LT_TAGVAR(postdeps, $1)"; then
_LT_TAGVAR(postdeps, $1)="${prev}${p}"
else
_LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} ${prev}${p}"
fi
fi
prev=
;;
*.lto.$objext) ;; # Ignore GCC LTO objects
*.$objext)
# This assumes that the test object file only shows up
# once in the compiler output.
if test "$p" = "conftest.$objext"; then
pre_test_object_deps_done=yes
continue
fi
if test "$pre_test_object_deps_done" = no; then
if test -z "$_LT_TAGVAR(predep_objects, $1)"; then
_LT_TAGVAR(predep_objects, $1)="$p"
else
_LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p"
fi
else
if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then
_LT_TAGVAR(postdep_objects, $1)="$p"
else
_LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p"
fi
fi
;;
*) ;; # Ignore the rest.
esac
done
# Clean up.
rm -f a.out a.exe
else
echo "libtool.m4: error: problem compiling $1 test program"
fi
$RM -f confest.$objext
CFLAGS=$_lt_libdeps_save_CFLAGS
# PORTME: override above test on systems where it is broken
m4_if([$1], [CXX],
[case $host_os in
interix[[3-9]]*)
# Interix 3.5 installs completely hosed .la files for C++, so rather than
# hack all around it, let's just trust "g++" to DTRT.
_LT_TAGVAR(predep_objects,$1)=
_LT_TAGVAR(postdep_objects,$1)=
_LT_TAGVAR(postdeps,$1)=
;;
linux*)
case `$CC -V 2>&1 | sed 5q` in
*Sun\ C*)
# Sun C++ 5.9
# The more standards-conforming stlport4 library is
# incompatible with the Cstd library. Avoid specifying
# it if it's in CXXFLAGS. Ignore libCrun as
# -library=stlport4 depends on it.
case " $CXX $CXXFLAGS " in
*" -library=stlport4 "*)
solaris_use_stlport4=yes
;;
esac
if test "$solaris_use_stlport4" != yes; then
_LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun'
fi
;;
esac
;;
solaris*)
case $cc_basename in
CC* | sunCC*)
# The more standards-conforming stlport4 library is
# incompatible with the Cstd library. Avoid specifying
# it if it's in CXXFLAGS. Ignore libCrun as
# -library=stlport4 depends on it.
case " $CXX $CXXFLAGS " in
*" -library=stlport4 "*)
solaris_use_stlport4=yes
;;
esac
# Adding this requires a known-good setup of shared libraries for
# Sun compiler versions before 5.6, else PIC objects from an old
# archive will be linked into the output, leading to subtle bugs.
if test "$solaris_use_stlport4" != yes; then
_LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun'
fi
;;
esac
;;
esac
])
case " $_LT_TAGVAR(postdeps, $1) " in
*" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;;
esac
_LT_TAGVAR(compiler_lib_search_dirs, $1)=
if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then
_LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | ${SED} -e 's! -L! !g' -e 's!^ !!'`
fi
_LT_TAGDECL([], [compiler_lib_search_dirs], [1],
[The directories searched by this compiler when creating a shared library])
_LT_TAGDECL([], [predep_objects], [1],
[Dependencies to place before and after the objects being linked to
create a shared library])
_LT_TAGDECL([], [postdep_objects], [1])
_LT_TAGDECL([], [predeps], [1])
_LT_TAGDECL([], [postdeps], [1])
_LT_TAGDECL([], [compiler_lib_search_path], [1],
[The library search path used internally by the compiler when linking
a shared library])
])# _LT_SYS_HIDDEN_LIBDEPS
# _LT_LANG_F77_CONFIG([TAG])
# --------------------------
# Ensure that the configuration variables for a Fortran 77 compiler are
# suitably defined. These variables are subsequently used by _LT_CONFIG
# to write the compiler configuration to `libtool'.
m4_defun([_LT_LANG_F77_CONFIG],
[AC_LANG_PUSH(Fortran 77)
if test -z "$F77" || test "X$F77" = "Xno"; then
_lt_disable_F77=yes
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(allow_undefined_flag, $1)=
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(archive_expsym_cmds, $1)=
_LT_TAGVAR(export_dynamic_flag_spec, $1)=
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
-_LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
_LT_TAGVAR(hardcode_libdir_separator, $1)=
_LT_TAGVAR(hardcode_minus_L, $1)=no
_LT_TAGVAR(hardcode_automatic, $1)=no
_LT_TAGVAR(inherit_rpath, $1)=no
_LT_TAGVAR(module_cmds, $1)=
_LT_TAGVAR(module_expsym_cmds, $1)=
_LT_TAGVAR(link_all_deplibs, $1)=unknown
_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
_LT_TAGVAR(reload_flag, $1)=$reload_flag
_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
_LT_TAGVAR(no_undefined_flag, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
# Source file extension for f77 test sources.
ac_ext=f
# Object file extension for compiled f77 test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# No sense in running all these tests if we already determined that
# the F77 compiler isn't working. Some variables (like enable_shared)
# are currently assumed to apply to all compilers on this platform,
# and will be corrupted by setting them based on a non-working compiler.
if test "$_lt_disable_F77" != yes; then
# Code to be used in simple compile tests
lt_simple_compile_test_code="\
subroutine t
return
end
"
# Code to be used in simple link tests
lt_simple_link_test_code="\
program t
end
"
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
_LT_TAG_COMPILER
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
# Allow CC to be a program name with arguments.
lt_save_CC="$CC"
lt_save_GCC=$GCC
lt_save_CFLAGS=$CFLAGS
CC=${F77-"f77"}
CFLAGS=$FFLAGS
compiler=$CC
_LT_TAGVAR(compiler, $1)=$CC
_LT_CC_BASENAME([$compiler])
GCC=$G77
if test -n "$compiler"; then
AC_MSG_CHECKING([if libtool supports shared libraries])
AC_MSG_RESULT([$can_build_shared])
AC_MSG_CHECKING([whether to build shared libraries])
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[[4-9]]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
AC_MSG_RESULT([$enable_shared])
AC_MSG_CHECKING([whether to build static libraries])
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
AC_MSG_RESULT([$enable_static])
_LT_TAGVAR(GCC, $1)="$G77"
_LT_TAGVAR(LD, $1)="$LD"
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
_LT_COMPILER_PIC($1)
_LT_COMPILER_C_O($1)
_LT_COMPILER_FILE_LOCKS($1)
_LT_LINKER_SHLIBS($1)
_LT_SYS_DYNAMIC_LINKER($1)
_LT_LINKER_HARDCODE_LIBPATH($1)
_LT_CONFIG($1)
fi # test -n "$compiler"
GCC=$lt_save_GCC
CC="$lt_save_CC"
CFLAGS="$lt_save_CFLAGS"
fi # test "$_lt_disable_F77" != yes
AC_LANG_POP
])# _LT_LANG_F77_CONFIG
# _LT_LANG_FC_CONFIG([TAG])
# -------------------------
# Ensure that the configuration variables for a Fortran compiler are
# suitably defined. These variables are subsequently used by _LT_CONFIG
# to write the compiler configuration to `libtool'.
m4_defun([_LT_LANG_FC_CONFIG],
[AC_LANG_PUSH(Fortran)
if test -z "$FC" || test "X$FC" = "Xno"; then
_lt_disable_FC=yes
fi
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(allow_undefined_flag, $1)=
_LT_TAGVAR(always_export_symbols, $1)=no
_LT_TAGVAR(archive_expsym_cmds, $1)=
_LT_TAGVAR(export_dynamic_flag_spec, $1)=
_LT_TAGVAR(hardcode_direct, $1)=no
_LT_TAGVAR(hardcode_direct_absolute, $1)=no
_LT_TAGVAR(hardcode_libdir_flag_spec, $1)=
-_LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)=
_LT_TAGVAR(hardcode_libdir_separator, $1)=
_LT_TAGVAR(hardcode_minus_L, $1)=no
_LT_TAGVAR(hardcode_automatic, $1)=no
_LT_TAGVAR(inherit_rpath, $1)=no
_LT_TAGVAR(module_cmds, $1)=
_LT_TAGVAR(module_expsym_cmds, $1)=
_LT_TAGVAR(link_all_deplibs, $1)=unknown
_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
_LT_TAGVAR(reload_flag, $1)=$reload_flag
_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
_LT_TAGVAR(no_undefined_flag, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no
# Source file extension for fc test sources.
ac_ext=${ac_fc_srcext-f}
# Object file extension for compiled fc test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# No sense in running all these tests if we already determined that
# the FC compiler isn't working. Some variables (like enable_shared)
# are currently assumed to apply to all compilers on this platform,
# and will be corrupted by setting them based on a non-working compiler.
if test "$_lt_disable_FC" != yes; then
# Code to be used in simple compile tests
lt_simple_compile_test_code="\
subroutine t
return
end
"
# Code to be used in simple link tests
lt_simple_link_test_code="\
program t
end
"
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
_LT_TAG_COMPILER
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
# Allow CC to be a program name with arguments.
lt_save_CC="$CC"
lt_save_GCC=$GCC
lt_save_CFLAGS=$CFLAGS
CC=${FC-"f95"}
CFLAGS=$FCFLAGS
compiler=$CC
GCC=$ac_cv_fc_compiler_gnu
_LT_TAGVAR(compiler, $1)=$CC
_LT_CC_BASENAME([$compiler])
if test -n "$compiler"; then
AC_MSG_CHECKING([if libtool supports shared libraries])
AC_MSG_RESULT([$can_build_shared])
AC_MSG_CHECKING([whether to build shared libraries])
test "$can_build_shared" = "no" && enable_shared=no
# On AIX, shared libraries and static libraries use the same namespace, and
# are all built from PIC.
case $host_os in
aix3*)
test "$enable_shared" = yes && enable_static=no
if test -n "$RANLIB"; then
archive_cmds="$archive_cmds~\$RANLIB \$lib"
postinstall_cmds='$RANLIB $lib'
fi
;;
aix[[4-9]]*)
if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
test "$enable_shared" = yes && enable_static=no
fi
;;
esac
AC_MSG_RESULT([$enable_shared])
AC_MSG_CHECKING([whether to build static libraries])
# Make sure either enable_shared or enable_static is yes.
test "$enable_shared" = yes || enable_static=yes
AC_MSG_RESULT([$enable_static])
_LT_TAGVAR(GCC, $1)="$ac_cv_fc_compiler_gnu"
_LT_TAGVAR(LD, $1)="$LD"
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
_LT_SYS_HIDDEN_LIBDEPS($1)
_LT_COMPILER_PIC($1)
_LT_COMPILER_C_O($1)
_LT_COMPILER_FILE_LOCKS($1)
_LT_LINKER_SHLIBS($1)
_LT_SYS_DYNAMIC_LINKER($1)
_LT_LINKER_HARDCODE_LIBPATH($1)
_LT_CONFIG($1)
fi # test -n "$compiler"
GCC=$lt_save_GCC
CC=$lt_save_CC
CFLAGS=$lt_save_CFLAGS
fi # test "$_lt_disable_FC" != yes
AC_LANG_POP
])# _LT_LANG_FC_CONFIG
# _LT_LANG_GCJ_CONFIG([TAG])
# --------------------------
# Ensure that the configuration variables for the GNU Java Compiler compiler
# are suitably defined. These variables are subsequently used by _LT_CONFIG
# to write the compiler configuration to `libtool'.
m4_defun([_LT_LANG_GCJ_CONFIG],
[AC_REQUIRE([LT_PROG_GCJ])dnl
AC_LANG_SAVE
# Source file extension for Java test sources.
ac_ext=java
# Object file extension for compiled Java test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# Code to be used in simple compile tests
lt_simple_compile_test_code="class foo {}"
# Code to be used in simple link tests
lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }'
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
_LT_TAG_COMPILER
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
# Allow CC to be a program name with arguments.
lt_save_CC=$CC
lt_save_CFLAGS=$CFLAGS
lt_save_GCC=$GCC
GCC=yes
CC=${GCJ-"gcj"}
CFLAGS=$GCJFLAGS
compiler=$CC
_LT_TAGVAR(compiler, $1)=$CC
_LT_TAGVAR(LD, $1)="$LD"
_LT_CC_BASENAME([$compiler])
# GCJ did not exist at the time GCC didn't implicitly link libc in.
_LT_TAGVAR(archive_cmds_need_lc, $1)=no
_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
_LT_TAGVAR(reload_flag, $1)=$reload_flag
_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
## CAVEAT EMPTOR:
## There is no encapsulation within the following macros, do not change
## the running order or otherwise move them around unless you know exactly
## what you are doing...
if test -n "$compiler"; then
_LT_COMPILER_NO_RTTI($1)
_LT_COMPILER_PIC($1)
_LT_COMPILER_C_O($1)
_LT_COMPILER_FILE_LOCKS($1)
_LT_LINKER_SHLIBS($1)
_LT_LINKER_HARDCODE_LIBPATH($1)
_LT_CONFIG($1)
fi
AC_LANG_RESTORE
GCC=$lt_save_GCC
CC=$lt_save_CC
CFLAGS=$lt_save_CFLAGS
])# _LT_LANG_GCJ_CONFIG
+# _LT_LANG_GO_CONFIG([TAG])
+# --------------------------
+# Ensure that the configuration variables for the GNU Go compiler
+# are suitably defined. These variables are subsequently used by _LT_CONFIG
+# to write the compiler configuration to `libtool'.
+m4_defun([_LT_LANG_GO_CONFIG],
+[AC_REQUIRE([LT_PROG_GO])dnl
+AC_LANG_SAVE
+
+# Source file extension for Go test sources.
+ac_ext=go
+
+# Object file extension for compiled Go test sources.
+objext=o
+_LT_TAGVAR(objext, $1)=$objext
+
+# Code to be used in simple compile tests
+lt_simple_compile_test_code="package main; func main() { }"
+
+# Code to be used in simple link tests
+lt_simple_link_test_code='package main; func main() { }'
+
+# ltmain only uses $CC for tagged configurations so make sure $CC is set.
+_LT_TAG_COMPILER
+
+# save warnings/boilerplate of simple test code
+_LT_COMPILER_BOILERPLATE
+_LT_LINKER_BOILERPLATE
+
+# Allow CC to be a program name with arguments.
+lt_save_CC=$CC
+lt_save_CFLAGS=$CFLAGS
+lt_save_GCC=$GCC
+GCC=yes
+CC=${GOC-"gccgo"}
+CFLAGS=$GOFLAGS
+compiler=$CC
+_LT_TAGVAR(compiler, $1)=$CC
+_LT_TAGVAR(LD, $1)="$LD"
+_LT_CC_BASENAME([$compiler])
+
+# Go did not exist at the time GCC didn't implicitly link libc in.
+_LT_TAGVAR(archive_cmds_need_lc, $1)=no
+
+_LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds
+_LT_TAGVAR(reload_flag, $1)=$reload_flag
+_LT_TAGVAR(reload_cmds, $1)=$reload_cmds
+
+## CAVEAT EMPTOR:
+## There is no encapsulation within the following macros, do not change
+## the running order or otherwise move them around unless you know exactly
+## what you are doing...
+if test -n "$compiler"; then
+ _LT_COMPILER_NO_RTTI($1)
+ _LT_COMPILER_PIC($1)
+ _LT_COMPILER_C_O($1)
+ _LT_COMPILER_FILE_LOCKS($1)
+ _LT_LINKER_SHLIBS($1)
+ _LT_LINKER_HARDCODE_LIBPATH($1)
+
+ _LT_CONFIG($1)
+fi
+
+AC_LANG_RESTORE
+
+GCC=$lt_save_GCC
+CC=$lt_save_CC
+CFLAGS=$lt_save_CFLAGS
+])# _LT_LANG_GO_CONFIG
+
+
# _LT_LANG_RC_CONFIG([TAG])
# -------------------------
# Ensure that the configuration variables for the Windows resource compiler
# are suitably defined. These variables are subsequently used by _LT_CONFIG
# to write the compiler configuration to `libtool'.
m4_defun([_LT_LANG_RC_CONFIG],
[AC_REQUIRE([LT_PROG_RC])dnl
AC_LANG_SAVE
# Source file extension for RC test sources.
ac_ext=rc
# Object file extension for compiled RC test sources.
objext=o
_LT_TAGVAR(objext, $1)=$objext
# Code to be used in simple compile tests
lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }'
# Code to be used in simple link tests
lt_simple_link_test_code="$lt_simple_compile_test_code"
# ltmain only uses $CC for tagged configurations so make sure $CC is set.
_LT_TAG_COMPILER
# save warnings/boilerplate of simple test code
_LT_COMPILER_BOILERPLATE
_LT_LINKER_BOILERPLATE
# Allow CC to be a program name with arguments.
lt_save_CC="$CC"
lt_save_CFLAGS=$CFLAGS
lt_save_GCC=$GCC
GCC=
CC=${RC-"windres"}
CFLAGS=
compiler=$CC
_LT_TAGVAR(compiler, $1)=$CC
_LT_CC_BASENAME([$compiler])
_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes
if test -n "$compiler"; then
:
_LT_CONFIG($1)
fi
GCC=$lt_save_GCC
AC_LANG_RESTORE
CC=$lt_save_CC
CFLAGS=$lt_save_CFLAGS
])# _LT_LANG_RC_CONFIG
# LT_PROG_GCJ
# -----------
AC_DEFUN([LT_PROG_GCJ],
[m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ],
[m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ],
[AC_CHECK_TOOL(GCJ, gcj,)
test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2"
AC_SUBST(GCJFLAGS)])])[]dnl
])
# Old name:
AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([LT_AC_PROG_GCJ], [])
+# LT_PROG_GO
+# ----------
+AC_DEFUN([LT_PROG_GO],
+[AC_CHECK_TOOL(GOC, gccgo,)
+])
+
+
# LT_PROG_RC
# ----------
AC_DEFUN([LT_PROG_RC],
[AC_CHECK_TOOL(RC, windres,)
])
# Old name:
AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([LT_AC_PROG_RC], [])
# _LT_DECL_EGREP
# --------------
# If we don't have a new enough Autoconf to choose the best grep
# available, choose the one first in the user's PATH.
m4_defun([_LT_DECL_EGREP],
[AC_REQUIRE([AC_PROG_EGREP])dnl
AC_REQUIRE([AC_PROG_FGREP])dnl
test -z "$GREP" && GREP=grep
_LT_DECL([], [GREP], [1], [A grep program that handles long lines])
_LT_DECL([], [EGREP], [1], [An ERE matcher])
_LT_DECL([], [FGREP], [1], [A literal string matcher])
dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too
AC_SUBST([GREP])
])
# _LT_DECL_OBJDUMP
# --------------
# If we don't have a new enough Autoconf to choose the best objdump
# available, choose the one first in the user's PATH.
m4_defun([_LT_DECL_OBJDUMP],
[AC_CHECK_TOOL(OBJDUMP, objdump, false)
test -z "$OBJDUMP" && OBJDUMP=objdump
_LT_DECL([], [OBJDUMP], [1], [An object symbol dumper])
AC_SUBST([OBJDUMP])
])
# _LT_DECL_DLLTOOL
# ----------------
# Ensure DLLTOOL variable is set.
m4_defun([_LT_DECL_DLLTOOL],
[AC_CHECK_TOOL(DLLTOOL, dlltool, false)
test -z "$DLLTOOL" && DLLTOOL=dlltool
_LT_DECL([], [DLLTOOL], [1], [DLL creation program])
AC_SUBST([DLLTOOL])
])
# _LT_DECL_SED
# ------------
# Check for a fully-functional sed program, that truncates
# as few characters as possible. Prefer GNU sed if found.
m4_defun([_LT_DECL_SED],
[AC_PROG_SED
test -z "$SED" && SED=sed
Xsed="$SED -e 1s/^X//"
_LT_DECL([], [SED], [1], [A sed program that does not truncate output])
_LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"],
[Sed that helps us avoid accidentally triggering echo(1) options like -n])
])# _LT_DECL_SED
m4_ifndef([AC_PROG_SED], [
############################################################
# NOTE: This macro has been submitted for inclusion into #
# GNU Autoconf as AC_PROG_SED. When it is available in #
# a released version of Autoconf we should remove this #
# macro and use it instead. #
############################################################
m4_defun([AC_PROG_SED],
[AC_MSG_CHECKING([for a sed that does not truncate output])
AC_CACHE_VAL(lt_cv_path_SED,
[# Loop through the user's path and test for sed and gsed.
# Then use that list of sed's as ones to test for truncation.
as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
for as_dir in $PATH
do
IFS=$as_save_IFS
test -z "$as_dir" && as_dir=.
for lt_ac_prog in sed gsed; do
for ac_exec_ext in '' $ac_executable_extensions; do
if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then
lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext"
fi
done
done
done
IFS=$as_save_IFS
lt_ac_max=0
lt_ac_count=0
# Add /usr/xpg4/bin/sed as it is typically found on Solaris
# along with /bin/sed that truncates output.
for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do
test ! -f $lt_ac_sed && continue
cat /dev/null > conftest.in
lt_ac_count=0
echo $ECHO_N "0123456789$ECHO_C" >conftest.in
# Check for GNU sed and select it if it is found.
if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then
lt_cv_path_SED=$lt_ac_sed
break
fi
while true; do
cat conftest.in conftest.in >conftest.tmp
mv conftest.tmp conftest.in
cp conftest.in conftest.nl
echo >>conftest.nl
$lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break
cmp -s conftest.out conftest.nl || break
# 10000 chars as input seems more than enough
test $lt_ac_count -gt 10 && break
lt_ac_count=`expr $lt_ac_count + 1`
if test $lt_ac_count -gt $lt_ac_max; then
lt_ac_max=$lt_ac_count
lt_cv_path_SED=$lt_ac_sed
fi
done
done
])
SED=$lt_cv_path_SED
AC_SUBST([SED])
AC_MSG_RESULT([$SED])
])#AC_PROG_SED
])#m4_ifndef
# Old name:
AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([LT_AC_PROG_SED], [])
# _LT_CHECK_SHELL_FEATURES
# ------------------------
# Find out whether the shell is Bourne or XSI compatible,
# or has some other useful features.
m4_defun([_LT_CHECK_SHELL_FEATURES],
[AC_MSG_CHECKING([whether the shell understands some XSI constructs])
# Try some XSI features
xsi_shell=no
( _lt_dummy="a/b/c"
test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \
= c,a/b,b/c, \
&& eval 'test $(( 1 + 1 )) -eq 2 \
&& test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \
&& xsi_shell=yes
AC_MSG_RESULT([$xsi_shell])
_LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell'])
AC_MSG_CHECKING([whether the shell understands "+="])
lt_shell_append=no
( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \
>/dev/null 2>&1 \
&& lt_shell_append=yes
AC_MSG_RESULT([$lt_shell_append])
_LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append'])
if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
lt_unset=unset
else
lt_unset=false
fi
_LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl
# test EBCDIC or ASCII
case `echo X|tr X '\101'` in
A) # ASCII based system
# \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
lt_SP2NL='tr \040 \012'
lt_NL2SP='tr \015\012 \040\040'
;;
*) # EBCDIC based system
lt_SP2NL='tr \100 \n'
lt_NL2SP='tr \r\n \100\100'
;;
esac
_LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl
_LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl
])# _LT_CHECK_SHELL_FEATURES
# _LT_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY)
# ------------------------------------------------------
# In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and
# '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY.
m4_defun([_LT_PROG_FUNCTION_REPLACE],
[dnl {
sed -e '/^$1 ()$/,/^} # $1 /c\
$1 ()\
{\
m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1])
} # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
])
# _LT_PROG_REPLACE_SHELLFNS
# -------------------------
# Replace existing portable implementations of several shell functions with
# equivalent extended shell implementations where those features are available..
m4_defun([_LT_PROG_REPLACE_SHELLFNS],
[if test x"$xsi_shell" = xyes; then
_LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl
case ${1} in
*/*) func_dirname_result="${1%/*}${2}" ;;
* ) func_dirname_result="${3}" ;;
esac])
_LT_PROG_FUNCTION_REPLACE([func_basename], [dnl
func_basename_result="${1##*/}"])
_LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl
case ${1} in
*/*) func_dirname_result="${1%/*}${2}" ;;
* ) func_dirname_result="${3}" ;;
esac
func_basename_result="${1##*/}"])
_LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl
# pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are
# positional parameters, so assign one to ordinary parameter first.
func_stripname_result=${3}
func_stripname_result=${func_stripname_result#"${1}"}
func_stripname_result=${func_stripname_result%"${2}"}])
_LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl
func_split_long_opt_name=${1%%=*}
func_split_long_opt_arg=${1#*=}])
_LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl
func_split_short_opt_arg=${1#??}
func_split_short_opt_name=${1%"$func_split_short_opt_arg"}])
_LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl
case ${1} in
*.lo) func_lo2o_result=${1%.lo}.${objext} ;;
*) func_lo2o_result=${1} ;;
esac])
_LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo])
_LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))])
_LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}])
fi
if test x"$lt_shell_append" = xyes; then
_LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"])
_LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl
func_quote_for_eval "${2}"
dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \
eval "${1}+=\\\\ \\$func_quote_for_eval_result"])
# Save a `func_append' function call where possible by direct use of '+='
sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
else
# Save a `func_append' function call even when '+=' is not available
sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \
&& mv -f "$cfgfile.tmp" "$cfgfile" \
|| (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp")
test 0 -eq $? || _lt_function_replace_fail=:
fi
if test x"$_lt_function_replace_fail" = x":"; then
AC_MSG_WARN([Unable to substitute extended shell functions in $ofile])
fi
])
# _LT_PATH_CONVERSION_FUNCTIONS
# -----------------------------
# Determine which file name conversion functions should be used by
# func_to_host_file (and, implicitly, by func_to_host_path). These are needed
# for certain cross-compile configurations and native mingw.
m4_defun([_LT_PATH_CONVERSION_FUNCTIONS],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_CANONICAL_BUILD])dnl
AC_MSG_CHECKING([how to convert $build file names to $host format])
AC_CACHE_VAL(lt_cv_to_host_file_cmd,
[case $host in
*-*-mingw* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32
;;
*-*-cygwin* )
lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32
;;
* ) # otherwise, assume *nix
lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32
;;
esac
;;
*-*-cygwin* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin
;;
*-*-cygwin* )
lt_cv_to_host_file_cmd=func_convert_file_noop
;;
* ) # otherwise, assume *nix
lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin
;;
esac
;;
* ) # unhandled hosts (and "normal" native builds)
lt_cv_to_host_file_cmd=func_convert_file_noop
;;
esac
])
to_host_file_cmd=$lt_cv_to_host_file_cmd
AC_MSG_RESULT([$lt_cv_to_host_file_cmd])
_LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd],
[0], [convert $build file names to $host format])dnl
AC_MSG_CHECKING([how to convert $build file names to toolchain format])
AC_CACHE_VAL(lt_cv_to_tool_file_cmd,
[#assume ordinary cross tools, or native build.
lt_cv_to_tool_file_cmd=func_convert_file_noop
case $host in
*-*-mingw* )
case $build in
*-*-mingw* ) # actually msys
lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32
;;
esac
;;
esac
])
to_tool_file_cmd=$lt_cv_to_tool_file_cmd
AC_MSG_RESULT([$lt_cv_to_tool_file_cmd])
_LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd],
[0], [convert $build files to toolchain format])dnl
])# _LT_PATH_CONVERSION_FUNCTIONS
diff --git a/m4/ltoptions.m4 b/m4/ltoptions.m4
index 17cfd51..5d9acd8 100644
--- a/m4/ltoptions.m4
+++ b/m4/ltoptions.m4
@@ -1,369 +1,384 @@
# Helper functions for option handling. -*- Autoconf -*-
#
# Copyright (C) 2004, 2005, 2007, 2008, 2009 Free Software Foundation,
# Inc.
# Written by Gary V. Vaughan, 2004
#
# This file is free software; the Free Software Foundation gives
# unlimited permission to copy and/or distribute it, with or without
# modifications, as long as this notice is preserved.
# serial 7 ltoptions.m4
# This is to help aclocal find these macros, as it can't see m4_define.
AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])])
# _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME)
# ------------------------------------------
m4_define([_LT_MANGLE_OPTION],
[[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])])
# _LT_SET_OPTION(MACRO-NAME, OPTION-NAME)
# ---------------------------------------
# Set option OPTION-NAME for macro MACRO-NAME, and if there is a
# matching handler defined, dispatch to it. Other OPTION-NAMEs are
# saved as a flag.
m4_define([_LT_SET_OPTION],
[m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl
m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]),
_LT_MANGLE_DEFUN([$1], [$2]),
[m4_warning([Unknown $1 option `$2'])])[]dnl
])
# _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET])
# ------------------------------------------------------------
# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
m4_define([_LT_IF_OPTION],
[m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])])
# _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET)
# -------------------------------------------------------
# Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME
# are set.
m4_define([_LT_UNLESS_OPTIONS],
[m4_foreach([_LT_Option], m4_split(m4_normalize([$2])),
[m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option),
[m4_define([$0_found])])])[]dnl
m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3
])[]dnl
])
# _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST)
# ----------------------------------------
# OPTION-LIST is a space-separated list of Libtool options associated
# with MACRO-NAME. If any OPTION has a matching handler declared with
# LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about
# the unknown option and exit.
m4_defun([_LT_SET_OPTIONS],
[# Set options
m4_foreach([_LT_Option], m4_split(m4_normalize([$2])),
[_LT_SET_OPTION([$1], _LT_Option)])
m4_if([$1],[LT_INIT],[
dnl
dnl Simply set some default values (i.e off) if boolean options were not
dnl specified:
_LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no
])
_LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no
])
dnl
dnl If no reference was made to various pairs of opposing options, then
dnl we run the default mode handler for the pair. For example, if neither
dnl `shared' nor `disable-shared' was passed, we enable building of shared
dnl archives by default:
_LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED])
_LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC])
_LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC])
_LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install],
[_LT_ENABLE_FAST_INSTALL])
])
])# _LT_SET_OPTIONS
## --------------------------------- ##
## Macros to handle LT_INIT options. ##
## --------------------------------- ##
# _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME)
# -----------------------------------------
m4_define([_LT_MANGLE_DEFUN],
[[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])])
# LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE)
# -----------------------------------------------
m4_define([LT_OPTION_DEFINE],
[m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl
])# LT_OPTION_DEFINE
# dlopen
# ------
LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes
])
AU_DEFUN([AC_LIBTOOL_DLOPEN],
[_LT_SET_OPTION([LT_INIT], [dlopen])
AC_DIAGNOSE([obsolete],
[$0: Remove this warning and the call to _LT_SET_OPTION when you
put the `dlopen' option into LT_INIT's first parameter.])
])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], [])
# win32-dll
# ---------
# Declare package support for building win32 dll's.
LT_OPTION_DEFINE([LT_INIT], [win32-dll],
[enable_win32_dll=yes
case $host in
*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*)
AC_CHECK_TOOL(AS, as, false)
AC_CHECK_TOOL(DLLTOOL, dlltool, false)
AC_CHECK_TOOL(OBJDUMP, objdump, false)
;;
esac
test -z "$AS" && AS=as
_LT_DECL([], [AS], [1], [Assembler program])dnl
test -z "$DLLTOOL" && DLLTOOL=dlltool
_LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl
test -z "$OBJDUMP" && OBJDUMP=objdump
_LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl
])# win32-dll
AU_DEFUN([AC_LIBTOOL_WIN32_DLL],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
_LT_SET_OPTION([LT_INIT], [win32-dll])
AC_DIAGNOSE([obsolete],
[$0: Remove this warning and the call to _LT_SET_OPTION when you
put the `win32-dll' option into LT_INIT's first parameter.])
])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], [])
# _LT_ENABLE_SHARED([DEFAULT])
# ----------------------------
# implement the --enable-shared flag, and supports the `shared' and
# `disable-shared' LT_INIT options.
# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
m4_define([_LT_ENABLE_SHARED],
[m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl
AC_ARG_ENABLE([shared],
[AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@],
[build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])],
[p=${PACKAGE-default}
case $enableval in
yes) enable_shared=yes ;;
no) enable_shared=no ;;
*)
enable_shared=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_shared=yes
fi
done
IFS="$lt_save_ifs"
;;
esac],
[enable_shared=]_LT_ENABLE_SHARED_DEFAULT)
_LT_DECL([build_libtool_libs], [enable_shared], [0],
[Whether or not to build shared libraries])
])# _LT_ENABLE_SHARED
LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])])
LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])])
# Old names:
AC_DEFUN([AC_ENABLE_SHARED],
[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared])
])
AC_DEFUN([AC_DISABLE_SHARED],
[_LT_SET_OPTION([LT_INIT], [disable-shared])
])
AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)])
AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AM_ENABLE_SHARED], [])
dnl AC_DEFUN([AM_DISABLE_SHARED], [])
# _LT_ENABLE_STATIC([DEFAULT])
# ----------------------------
# implement the --enable-static flag, and support the `static' and
# `disable-static' LT_INIT options.
# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
m4_define([_LT_ENABLE_STATIC],
[m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl
AC_ARG_ENABLE([static],
[AS_HELP_STRING([--enable-static@<:@=PKGS@:>@],
[build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])],
[p=${PACKAGE-default}
case $enableval in
yes) enable_static=yes ;;
no) enable_static=no ;;
*)
enable_static=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_static=yes
fi
done
IFS="$lt_save_ifs"
;;
esac],
[enable_static=]_LT_ENABLE_STATIC_DEFAULT)
_LT_DECL([build_old_libs], [enable_static], [0],
[Whether or not to build static libraries])
])# _LT_ENABLE_STATIC
LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])])
LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])])
# Old names:
AC_DEFUN([AC_ENABLE_STATIC],
[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static])
])
AC_DEFUN([AC_DISABLE_STATIC],
[_LT_SET_OPTION([LT_INIT], [disable-static])
])
AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)])
AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AM_ENABLE_STATIC], [])
dnl AC_DEFUN([AM_DISABLE_STATIC], [])
# _LT_ENABLE_FAST_INSTALL([DEFAULT])
# ----------------------------------
# implement the --enable-fast-install flag, and support the `fast-install'
# and `disable-fast-install' LT_INIT options.
# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'.
m4_define([_LT_ENABLE_FAST_INSTALL],
[m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl
AC_ARG_ENABLE([fast-install],
[AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@],
[optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])],
[p=${PACKAGE-default}
case $enableval in
yes) enable_fast_install=yes ;;
no) enable_fast_install=no ;;
*)
enable_fast_install=no
# Look at the argument we got. We use all the common list separators.
lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
for pkg in $enableval; do
IFS="$lt_save_ifs"
if test "X$pkg" = "X$p"; then
enable_fast_install=yes
fi
done
IFS="$lt_save_ifs"
;;
esac],
[enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT)
_LT_DECL([fast_install], [enable_fast_install], [0],
[Whether or not to optimize for fast installation])dnl
])# _LT_ENABLE_FAST_INSTALL
LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])])
LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])])
# Old names:
AU_DEFUN([AC_ENABLE_FAST_INSTALL],
[_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install])
AC_DIAGNOSE([obsolete],
[$0: Remove this warning and the call to _LT_SET_OPTION when you put
the `fast-install' option into LT_INIT's first parameter.])
])
AU_DEFUN([AC_DISABLE_FAST_INSTALL],
[_LT_SET_OPTION([LT_INIT], [disable-fast-install])
AC_DIAGNOSE([obsolete],
[$0: Remove this warning and the call to _LT_SET_OPTION when you put
the `disable-fast-install' option into LT_INIT's first parameter.])
])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], [])
dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], [])
# _LT_WITH_PIC([MODE])
# --------------------
# implement the --with-pic flag, and support the `pic-only' and `no-pic'
# LT_INIT options.
# MODE is either `yes' or `no'. If omitted, it defaults to `both'.
m4_define([_LT_WITH_PIC],
[AC_ARG_WITH([pic],
- [AS_HELP_STRING([--with-pic],
+ [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@],
[try to use only PIC/non-PIC objects @<:@default=use both@:>@])],
- [pic_mode="$withval"],
+ [lt_p=${PACKAGE-default}
+ case $withval in
+ yes|no) pic_mode=$withval ;;
+ *)
+ pic_mode=default
+ # Look at the argument we got. We use all the common list separators.
+ lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
+ for lt_pkg in $withval; do
+ IFS="$lt_save_ifs"
+ if test "X$lt_pkg" = "X$lt_p"; then
+ pic_mode=yes
+ fi
+ done
+ IFS="$lt_save_ifs"
+ ;;
+ esac],
[pic_mode=default])
test -z "$pic_mode" && pic_mode=m4_default([$1], [default])
_LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl
])# _LT_WITH_PIC
LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])])
LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])])
# Old name:
AU_DEFUN([AC_LIBTOOL_PICMODE],
[_LT_SET_OPTION([LT_INIT], [pic-only])
AC_DIAGNOSE([obsolete],
[$0: Remove this warning and the call to _LT_SET_OPTION when you
put the `pic-only' option into LT_INIT's first parameter.])
])
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([AC_LIBTOOL_PICMODE], [])
## ----------------- ##
## LTDL_INIT Options ##
## ----------------- ##
m4_define([_LTDL_MODE], [])
LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive],
[m4_define([_LTDL_MODE], [nonrecursive])])
LT_OPTION_DEFINE([LTDL_INIT], [recursive],
[m4_define([_LTDL_MODE], [recursive])])
LT_OPTION_DEFINE([LTDL_INIT], [subproject],
[m4_define([_LTDL_MODE], [subproject])])
m4_define([_LTDL_TYPE], [])
LT_OPTION_DEFINE([LTDL_INIT], [installable],
[m4_define([_LTDL_TYPE], [installable])])
LT_OPTION_DEFINE([LTDL_INIT], [convenience],
[m4_define([_LTDL_TYPE], [convenience])])
diff --git a/m4/ltversion.m4 b/m4/ltversion.m4
index 9c7b5d4..07a8602 100644
--- a/m4/ltversion.m4
+++ b/m4/ltversion.m4
@@ -1,23 +1,23 @@
# ltversion.m4 -- version numbers -*- Autoconf -*-
#
# Copyright (C) 2004 Free Software Foundation, Inc.
# Written by Scott James Remnant, 2004
#
# This file is free software; the Free Software Foundation gives
# unlimited permission to copy and/or distribute it, with or without
# modifications, as long as this notice is preserved.
# @configure_input@
-# serial 3293 ltversion.m4
+# serial 3337 ltversion.m4
# This file is part of GNU Libtool
-m4_define([LT_PACKAGE_VERSION], [2.4])
-m4_define([LT_PACKAGE_REVISION], [1.3293])
+m4_define([LT_PACKAGE_VERSION], [2.4.2])
+m4_define([LT_PACKAGE_REVISION], [1.3337])
AC_DEFUN([LTVERSION_VERSION],
-[macro_version='2.4'
-macro_revision='1.3293'
+[macro_version='2.4.2'
+macro_revision='1.3337'
_LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?])
_LT_DECL(, macro_revision, 0)
])
diff --git a/qcdloop-1.9/Makefile.in b/qcdloop-1.9/Makefile.in
index 32b4873..18b8541 100644
--- a/qcdloop-1.9/Makefile.in
+++ b/qcdloop-1.9/Makefile.in
@@ -1,563 +1,613 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \
$(srcdir)/Makefile.dep $(srcdir)/Makefile.in ChangeLog
subdir = qcdloop-1.9
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(libdir)"
LTLIBRARIES = $(lib_LTLIBRARIES)
libqcdloop_la_DEPENDENCIES =
am_libqcdloop_la_OBJECTS = qlinit.lo qlI4.lo qlI3.lo qlI2.lo qlI1.lo \
qlI4array.lo qlzero.lo qlI4fin.lo qlI4DNS41.lo qlI4sub0m.lo \
qlI4sub1m.lo qlI4sub2m.lo qlI4sub2ma.lo qlI4sub2mo.lo \
qlI4sub3m.lo qlI3fin.lo qlI3sub.lo qlI2fin.lo qlfndd.lo \
qlLi2omprod.lo qlLi2omrat.lo qllnomrat4.lo qlLi2omx.lo \
qlLi2omx2.lo qltrisort.lo qlsnglsort.lo qltri1.lo qltri2.lo \
qltri3.lo qltri4.lo qltri5.lo qltri6.lo qlbox1.lo qlbox2.lo \
qlbox3.lo qlbox4.lo qlbox5.lo qlbox6.lo qlbox7.lo qlbox8.lo \
qlbox9.lo qlbox10.lo qlbox11.lo qlbox12.lo qlbox13.lo \
qlbox14.lo qlbox15.lo qlbox16.lo qlcLi2omx2.lo qlcLi2omx3.lo \
auxCD.lo qlspencer.lo qlratreal.lo qlratgam.lo ddilog.lo \
qllnrat.lo qlfunctions.lo qlYcalc.lo qlkfn.lo qlxpicheck.lo
libqcdloop_la_OBJECTS = $(am_libqcdloop_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS)
LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS)
F77LD = $(F77)
F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libqcdloop_la_SOURCES)
DIST_SOURCES = $(libqcdloop_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
HEADERS = $(noinst_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
lib_LTLIBRARIES = libqcdloop.la
noinst_HEADERS = qlconstants.f qlonshellcutoff.f
libqcdloop_la_SOURCES = \
qlinit.f qlI4.f qlI3.f qlI2.f qlI1.f qlI4array.f qlzero.f qlI4fin.f \
qlI4DNS41.f qlI4sub0m.f qlI4sub1m.f qlI4sub2m.f qlI4sub2ma.f qlI4sub2mo.f \
qlI4sub3m.f qlI3fin.f qlI3sub.f qlI2fin.f qlfndd.f qlLi2omprod.f \
qlLi2omrat.f qllnomrat4.f qlLi2omx.f qlLi2omx2.f qltrisort.f qlsnglsort.f \
qltri1.f qltri2.f qltri3.f qltri4.f qltri5.f qltri6.f qlbox1.f qlbox2.f \
qlbox3.f qlbox4.f qlbox5.f qlbox6.f qlbox7.f qlbox8.f qlbox9.f qlbox10.f \
qlbox11.f qlbox12.f qlbox13.f qlbox14.f qlbox15.f qlbox16.f qlcLi2omx2.f \
qlcLi2omx3.f auxCD.f qlspencer.f qlratreal.f qlratgam.f ddilog.f qllnrat.f \
qlfunctions.f qlYcalc.f qlkfn.f qlxpicheck.f
libqcdloop_la_LIBADD = -L$(builddir)/../ff-2.0 -lff
AM_FFLAGS = -I$(srcdir) -I$(srcdir)/../ff-2.0
all: all-am
.SUFFIXES:
.SUFFIXES: .f .lo .o .obj
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu qcdloop-1.9/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu qcdloop-1.9/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
@$(NORMAL_INSTALL)
- test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
list2=; for p in $$list; do \
if test -f $$p; then \
list2="$$list2 $$p"; \
else :; fi; \
done; \
test -z "$$list2" || { \
+ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
}
uninstall-libLTLIBRARIES:
@$(NORMAL_UNINSTALL)
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
for p in $$list; do \
$(am__strip_dir) \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
done
clean-libLTLIBRARIES:
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libqcdloop.la: $(libqcdloop_la_OBJECTS) $(libqcdloop_la_DEPENDENCIES)
+ @list='$(lib_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libqcdloop.la: $(libqcdloop_la_OBJECTS) $(libqcdloop_la_DEPENDENCIES) $(EXTRA_libqcdloop_la_DEPENDENCIES)
$(F77LINK) -rpath $(libdir) $(libqcdloop_la_OBJECTS) $(libqcdloop_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f.o:
$(F77COMPILE) -c -o $@ $<
.f.obj:
$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
.f.lo:
$(LTF77COMPILE) -c -o $@ $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(libdir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am:
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am: install-libLTLIBRARIES
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-libLTLIBRARIES
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libLTLIBRARIES clean-libtool ctags distclean \
+ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \
distclean-compile distclean-generic distclean-libtool \
distclean-tags distdir dvi dvi-am html html-am info info-am \
install install-am install-data install-data-am install-dvi \
install-dvi-am install-exec install-exec-am install-html \
install-html-am install-info install-info-am \
install-libLTLIBRARIES install-man install-pdf install-pdf-am \
install-ps install-ps-am install-strip installcheck \
installcheck-am installdirs maintainer-clean \
maintainer-clean-generic mostlyclean mostlyclean-compile \
mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
tags uninstall uninstall-am uninstall-libLTLIBRARIES
# No dependencies
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/samurai-2.1.1/Makefile.am b/samurai-2.1.1/Makefile.am
index 1ae3abe..36f2828 100644
--- a/samurai-2.1.1/Makefile.am
+++ b/samurai-2.1.1/Makefile.am
@@ -1,42 +1,45 @@
lib_LTLIBRARIES=libsamurai.la
libsamurai_la_SOURCES=\
constants.f90 kinematic.f90 ltest.f90 madds.f90 mcgs.f90 mfunctions.f90 \
mgetbase.f90 mgetc1.f90 mgetc2.f90 mgetc3.f90 mgetc4.f90 mgetc5.f90 \
mgetqs.f90 mglobal.f90 mrestore.f90 msamurai.f90 mtens.f90 mtests.f90 \
ncuts.f90 notfirst.f90 options.f90 precision.f90 save.f90 maccu.f90
nodist_pkginclude_HEADERS=\
constants.mod kinematic.mod ltest.mod madds.mod mcgs.mod mfunctions.mod \
mgetbase.mod mgetc1.mod mgetc2.mod mgetc3.mod mgetc4.mod mgetc5.mod \
mgetqs.mod mglobal.mod mrestore.mod msamurai.mod mtens.mod mtests.mod \
ncuts.mod notfirst.mod options.mod precision.mod save.mod maccu.mod
AM_FCFLAGS= \
-I. \
-I$(top_builddir)/avh_olo-2.2.1 \
-I$(top_builddir)/golem95c-1.2.1/module
libsamurai_la_LIBADD=\
$(LIBLOOPTOOLS)
if COMPILE_QL
libsamurai_la_LIBADD+=-L$(top_builddir)/qcdloop-1.9 -lqcdloop \
-L$(top_builddir)/ff-2.0 -lff
else
# nop
endif
if COMPILE_GOLEM95C
libsamurai_la_LIBADD+=-L$(top_builddir)/golem95c-1.2.1 -lgolem
else
# nop
endif
libsamurai_la_LIBADD+=-L$(top_builddir)/avh_olo-2.2.1 -lavh_olo
CLEANFILES=\
constants.mod kinematic.mod ltest.mod madds.mod mcgs.mod mfunctions.mod \
mgetbase.mod mgetc1.mod mgetc2.mod mgetc3.mod mgetc4.mod mgetc5.mod \
mgetqs.mod mglobal.mod mrestore.mod msamurai.mod mtens.mod mtests.mod \
ncuts.mod notfirst.mod options.mod precision.mod save.mod maccu.mod
include Makefile.dep
+
+%.mod: %.o %.f90
+ @true
diff --git a/samurai-2.1.1/Makefile.in b/samurai-2.1.1/Makefile.in
index f096f80..2935772 100644
--- a/samurai-2.1.1/Makefile.in
+++ b/samurai-2.1.1/Makefile.in
@@ -1,686 +1,740 @@
-# Makefile.in generated by automake 1.11.1 from Makefile.am.
+# Makefile.in generated by automake 1.12.1 from Makefile.am.
# @configure_input@
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# Copyright (C) 1994-2012 Free Software Foundation, Inc.
+
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
+am__make_dryrun = \
+ { \
+ am__dry=no; \
+ case $$MAKEFLAGS in \
+ *\\[\ \ ]*) \
+ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
+ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
+ *) \
+ for am__flg in $$MAKEFLAGS; do \
+ case $$am__flg in \
+ *=*|--*) ;; \
+ *n*) am__dry=yes; break;; \
+ esac; \
+ done;; \
+ esac; \
+ test $$am__dry = yes; \
+ }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
@COMPILE_QL_TRUE@am__append_1 = -L$(top_builddir)/qcdloop-1.9 -lqcdloop \
@COMPILE_QL_TRUE@ -L$(top_builddir)/ff-2.0 -lff
# nop
@COMPILE_GOLEM95C_TRUE@am__append_2 = -L$(top_builddir)/golem95c-1.2.1 -lgolem
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.dep \
$(srcdir)/Makefile.in $(srcdir)/madds.f90.in \
$(srcdir)/msamurai.f90.in $(srcdir)/precision.f90.in
subdir = samurai-2.1.1
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \
$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
$(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_CLEAN_FILES = madds.f90 msamurai.f90 precision.f90
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
$(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
*) f=$$p;; \
esac;
am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
am__install_max = 40
am__nobase_strip_setup = \
srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
am__nobase_strip = \
for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
am__nobase_list = $(am__nobase_strip_setup); \
for p in $$list; do echo "$$p $$p"; done | \
sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
$(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
if (++n[$$2] == $(am__install_max)) \
{ print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
END { for (dir in files) print dir, files[dir] }'
am__base_list = \
sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
+am__uninstall_files_from_dir = { \
+ test -z "$$files" \
+ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
+ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
+ $(am__cd) "$$dir" && rm -f $$files; }; \
+ }
am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"
LTLIBRARIES = $(lib_LTLIBRARIES)
am__DEPENDENCIES_1 =
libsamurai_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
am_libsamurai_la_OBJECTS = constants.lo kinematic.lo ltest.lo madds.lo \
mcgs.lo mfunctions.lo mgetbase.lo mgetc1.lo mgetc2.lo \
mgetc3.lo mgetc4.lo mgetc5.lo mgetqs.lo mglobal.lo mrestore.lo \
msamurai.lo mtens.lo mtests.lo ncuts.lo notfirst.lo options.lo \
precision.lo save.lo maccu.lo
libsamurai_la_OBJECTS = $(am_libsamurai_la_OBJECTS)
DEFAULT_INCLUDES = -I.@am__isrc@
FCCOMPILE = $(FC) $(AM_FCFLAGS) $(FCFLAGS)
LTFCCOMPILE = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=compile $(FC) $(AM_FCFLAGS) $(FCFLAGS)
FCLD = $(FC)
FCLINK = $(LIBTOOL) --tag=FC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
--mode=link $(FCLD) $(AM_FCFLAGS) $(FCFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
SOURCES = $(libsamurai_la_SOURCES)
DIST_SOURCES = $(libsamurai_la_SOURCES)
+am__can_run_installinfo = \
+ case $$AM_UPDATE_INFO_DIR in \
+ n|no|NO) false;; \
+ *) (install-info --version) >/dev/null 2>&1;; \
+ esac
HEADERS = $(nodist_pkginclude_HEADERS)
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DATADIR = @DATADIR@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
DLLTOOL = @DLLTOOL@
DSYMUTIL = @DSYMUTIL@
DUMPBIN = @DUMPBIN@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FC = @FC@
FCFLAGS = @FCFLAGS@
FCFLAGS_f90 = @FCFLAGS_f90@
FCLIBS = @FCLIBS@
FFLAGS = @FFLAGS@
FGREP = @FGREP@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LD = @LD@
LDFLAGS = @LDFLAGS@
LIBLOOPTOOLS = @LIBLOOPTOOLS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LIPO = @LIPO@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MANIFEST_TOOL = @MANIFEST_TOOL@
MKDIR_P = @MKDIR_P@
NM = @NM@
NMEDIT = @NMEDIT@
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTOOL = @OTOOL@
OTOOL64 = @OTOOL64@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SAMURAIVERSION = @SAMURAIVERSION@
SED = @SED@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_AR = @ac_ct_AR@
ac_ct_CC = @ac_ct_CC@
ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
ac_ct_F77 = @ac_ct_F77@
ac_ct_FC = @ac_ct_FC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
avh_olo_real_kind = @avh_olo_real_kind@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
case_with_avh = @case_with_avh@
case_with_ff = @case_with_ff@
case_with_golem = @case_with_golem@
case_with_lt = @case_with_lt@
case_with_olo = @case_with_olo@
case_with_ql = @case_with_ql@
case_with_samurai = @case_with_samurai@
case_wout_avh = @case_wout_avh@
case_wout_ff = @case_wout_ff@
case_wout_golem = @case_wout_golem@
case_wout_lt = @case_wout_lt@
case_wout_olo = @case_wout_olo@
case_wout_ql = @case_wout_ql@
case_wout_samurai = @case_wout_samurai@
conf_with_ff = @conf_with_ff@
conf_with_golem95 = @conf_with_golem95@
conf_with_lt = @conf_with_lt@
conf_with_olo = @conf_with_olo@
conf_with_ql = @conf_with_ql@
conf_with_samurai = @conf_with_samurai@
conf_wout_ff = @conf_wout_ff@
conf_wout_golem95 = @conf_wout_golem95@
conf_wout_lt = @conf_wout_lt@
conf_wout_olo = @conf_wout_olo@
conf_wout_ql = @conf_wout_ql@
conf_wout_samurai = @conf_wout_samurai@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
fortran_real_kind = @fortran_real_kind@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
lt_real_kind = @lt_real_kind@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
lib_LTLIBRARIES = libsamurai.la
libsamurai_la_SOURCES = \
constants.f90 kinematic.f90 ltest.f90 madds.f90 mcgs.f90 mfunctions.f90 \
mgetbase.f90 mgetc1.f90 mgetc2.f90 mgetc3.f90 mgetc4.f90 mgetc5.f90 \
mgetqs.f90 mglobal.f90 mrestore.f90 msamurai.f90 mtens.f90 mtests.f90 \
ncuts.f90 notfirst.f90 options.f90 precision.f90 save.f90 maccu.f90
nodist_pkginclude_HEADERS = \
constants.mod kinematic.mod ltest.mod madds.mod mcgs.mod mfunctions.mod \
mgetbase.mod mgetc1.mod mgetc2.mod mgetc3.mod mgetc4.mod mgetc5.mod \
mgetqs.mod mglobal.mod mrestore.mod msamurai.mod mtens.mod mtests.mod \
ncuts.mod notfirst.mod options.mod precision.mod save.mod maccu.mod
AM_FCFLAGS = \
-I. \
-I$(top_builddir)/avh_olo-2.2.1 \
-I$(top_builddir)/golem95c-1.2.1/module
# nop
libsamurai_la_LIBADD = $(LIBLOOPTOOLS) $(am__append_1) $(am__append_2) \
-L$(top_builddir)/avh_olo-2.2.1 -lavh_olo
CLEANFILES = \
constants.mod kinematic.mod ltest.mod madds.mod mcgs.mod mfunctions.mod \
mgetbase.mod mgetc1.mod mgetc2.mod mgetc3.mod mgetc4.mod mgetc5.mod \
mgetqs.mod mglobal.mod mrestore.mod msamurai.mod mtens.mod mtests.mod \
ncuts.mod notfirst.mod options.mod precision.mod save.mod maccu.mod
all: all-am
.SUFFIXES:
.SUFFIXES: .f90 .lo .o .obj
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(srcdir)/Makefile.dep $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu samurai-2.1.1/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu samurai-2.1.1/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
+$(srcdir)/Makefile.dep:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
madds.f90: $(top_builddir)/config.status $(srcdir)/madds.f90.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
msamurai.f90: $(top_builddir)/config.status $(srcdir)/msamurai.f90.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
precision.f90: $(top_builddir)/config.status $(srcdir)/precision.f90.in
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
@$(NORMAL_INSTALL)
- test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
list2=; for p in $$list; do \
if test -f $$p; then \
list2="$$list2 $$p"; \
else :; fi; \
done; \
test -z "$$list2" || { \
+ echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
}
uninstall-libLTLIBRARIES:
@$(NORMAL_UNINSTALL)
@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
for p in $$list; do \
$(am__strip_dir) \
echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
$(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
done
clean-libLTLIBRARIES:
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
- @list='$(lib_LTLIBRARIES)'; for p in $$list; do \
- dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
- test "$$dir" != "$$p" || dir=.; \
- echo "rm -f \"$${dir}/so_locations\""; \
- rm -f "$${dir}/so_locations"; \
- done
-libsamurai.la: $(libsamurai_la_OBJECTS) $(libsamurai_la_DEPENDENCIES)
+ @list='$(lib_LTLIBRARIES)'; \
+ locs=`for p in $$list; do echo $$p; done | \
+ sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \
+ sort -u`; \
+ test -z "$$locs" || { \
+ echo rm -f $${locs}; \
+ rm -f $${locs}; \
+ }
+libsamurai.la: $(libsamurai_la_OBJECTS) $(libsamurai_la_DEPENDENCIES) $(EXTRA_libsamurai_la_DEPENDENCIES)
$(FCLINK) -rpath $(libdir) $(libsamurai_la_OBJECTS) $(libsamurai_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
.f90.o:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
.f90.obj:
$(FCCOMPILE) -c -o $@ $(FCFLAGS_f90) `$(CYGPATH_W) '$<'`
.f90.lo:
$(LTFCCOMPILE) -c -o $@ $(FCFLAGS_f90) $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
install-nodist_pkgincludeHEADERS: $(nodist_pkginclude_HEADERS)
@$(NORMAL_INSTALL)
- test -z "$(pkgincludedir)" || $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)"
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
+ if test -n "$$list"; then \
+ echo " $(MKDIR_P) '$(DESTDIR)$(pkgincludedir)'"; \
+ $(MKDIR_P) "$(DESTDIR)$(pkgincludedir)" || exit 1; \
+ fi; \
for p in $$list; do \
if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
echo "$$d$$p"; \
done | $(am__base_list) | \
while read files; do \
echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(pkgincludedir)'"; \
$(INSTALL_HEADER) $$files "$(DESTDIR)$(pkgincludedir)" || exit $$?; \
done
uninstall-nodist_pkgincludeHEADERS:
@$(NORMAL_UNINSTALL)
@list='$(nodist_pkginclude_HEADERS)'; test -n "$(pkgincludedir)" || list=; \
files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
- test -n "$$files" || exit 0; \
- echo " ( cd '$(DESTDIR)$(pkgincludedir)' && rm -f" $$files ")"; \
- cd "$(DESTDIR)$(pkgincludedir)" && rm -f $$files
+ dir='$(DESTDIR)$(pkgincludedir)'; $(am__uninstall_files_from_dir)
ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
mkid -fID $$unique
tags: TAGS
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
set x; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: CTAGS
CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \
$(TAGS_FILES) $(LISP)
list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | \
$(AWK) '{ files[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in files) print i; }; }'`; \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
+cscopelist: $(HEADERS) $(SOURCES) $(LISP)
+ list='$(SOURCES) $(HEADERS) $(LISP)'; \
+ case "$(srcdir)" in \
+ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
+ *) sdir=$(subdir)/$(srcdir) ;; \
+ esac; \
+ for i in $$list; do \
+ if test -f "$$i"; then \
+ echo "$(subdir)/$$i"; \
+ else \
+ echo "$$sdir/$$i"; \
+ fi; \
+ done >> $(top_builddir)/cscope.files
+
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(LTLIBRARIES) $(HEADERS)
installdirs:
for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgincludedir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
install-strip:
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- `test -z '$(STRIP)' || \
- echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
+ if test -z '$(STRIP)'; then \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ install; \
+ else \
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
+ fi
mostlyclean-generic:
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
mostlyclean-am
distclean: distclean-am
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am: install-nodist_pkgincludeHEADERS
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am: install-libLTLIBRARIES
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic \
mostlyclean-libtool
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-libLTLIBRARIES \
uninstall-nodist_pkgincludeHEADERS
.MAKE: install-am install-strip
.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
- clean-libLTLIBRARIES clean-libtool ctags distclean \
+ clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \
distclean-compile distclean-generic distclean-libtool \
distclean-tags distdir dvi dvi-am html html-am info info-am \
install install-am install-data install-data-am install-dvi \
install-dvi-am install-exec install-exec-am install-html \
install-html-am install-info install-info-am \
install-libLTLIBRARIES install-man \
install-nodist_pkgincludeHEADERS install-pdf install-pdf-am \
install-ps install-ps-am install-strip installcheck \
installcheck-am installdirs maintainer-clean \
maintainer-clean-generic mostlyclean mostlyclean-compile \
mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
tags uninstall uninstall-am uninstall-libLTLIBRARIES \
uninstall-nodist_pkgincludeHEADERS
# Module dependencies
options.o: precision.o
options.lo: precision.lo
options.obj: precision.obj
constants.o: precision.o
constants.lo: precision.lo
constants.obj: precision.obj
kinematic.o: precision.o
kinematic.lo: precision.lo
kinematic.obj: precision.obj
ltest.o: precision.o
ltest.lo: precision.lo
ltest.obj: precision.obj
maccu.o: precision.o
maccu.lo: precision.lo
maccu.obj: precision.obj
madds.o: constants.o mfunctions.o notfirst.o options.o precision.o
madds.lo: constants.lo mfunctions.lo notfirst.lo options.lo precision.lo
madds.obj: constants.obj mfunctions.obj notfirst.obj options.obj precision.obj
mcgs.o: precision.o
mcgs.lo: precision.lo
mcgs.obj: precision.obj
mfunctions.o: constants.o precision.o
mfunctions.lo: constants.lo precision.lo
mfunctions.obj: constants.obj precision.obj
mgetbase.o: constants.o mfunctions.o precision.o
mgetbase.lo: constants.lo mfunctions.lo precision.lo
mgetbase.obj: constants.obj mfunctions.obj precision.obj
mgetc1.o: constants.o mfunctions.o mglobal.o mrestore.o options.o precision.o
mgetc1.lo: constants.lo mfunctions.lo mglobal.lo mrestore.lo options.lo \
precision.lo
mgetc1.obj: constants.obj mfunctions.obj mglobal.obj mrestore.obj options.obj \
precision.obj
mgetc2.o: constants.o mfunctions.o mglobal.o mrestore.o options.o precision.o
mgetc2.lo: constants.lo mfunctions.lo mglobal.lo mrestore.lo options.lo \
precision.lo
mgetc2.obj: constants.obj mfunctions.obj mglobal.obj mrestore.obj options.obj \
precision.obj
mgetc3.o: constants.o mfunctions.o mglobal.o mrestore.o options.o precision.o
mgetc3.lo: constants.lo mfunctions.lo mglobal.lo mrestore.lo options.lo \
precision.lo
mgetc3.obj: constants.obj mfunctions.obj mglobal.obj mrestore.obj options.obj \
precision.obj
mgetc4.o: constants.o mfunctions.o mglobal.o mrestore.o options.o precision.o
mgetc4.lo: constants.lo mfunctions.lo mglobal.lo mrestore.lo options.lo \
precision.lo
mgetc4.obj: constants.obj mfunctions.obj mglobal.obj mrestore.obj options.obj \
precision.obj
mgetc5.o: constants.o mfunctions.o options.o precision.o
mgetc5.lo: constants.lo mfunctions.lo options.lo precision.lo
mgetc5.obj: constants.obj mfunctions.obj options.obj precision.obj
mgetqs.o: options.o constants.o mfunctions.o mglobal.o precision.o
mgetqs.lo: options.lo constants.lo mfunctions.lo mglobal.lo precision.lo
mgetqs.obj: options.obj constants.obj mfunctions.obj mglobal.obj precision.obj
mglobal.o: precision.o
mglobal.lo: precision.lo
mglobal.obj: precision.obj
mrestore.o: constants.o mfunctions.o precision.o save.o
mrestore.lo: constants.lo mfunctions.lo precision.lo save.lo
mrestore.obj: constants.obj mfunctions.obj precision.obj save.obj
msamurai.o: constants.o ltest.o maccu.o madds.o mgetbase.o mgetc1.o mgetc2.o \
mgetc3.o mgetc4.o mgetc5.o mgetqs.o mrestore.o mtens.o mtests.o \
ncuts.o notfirst.o options.o precision.o
msamurai.lo: constants.lo ltest.lo maccu.lo madds.lo mgetbase.lo mgetc1.lo \
mgetc2.lo mgetc3.lo mgetc4.lo mgetc5.lo mgetqs.lo mrestore.lo \
mtens.lo mtests.lo ncuts.lo notfirst.lo options.lo precision.lo
msamurai.obj: constants.obj ltest.obj maccu.obj madds.obj mgetbase.obj mgetc1.obj \
mgetc2.obj mgetc3.obj mgetc4.obj mgetc5.obj mgetqs.obj mrestore.obj \
mtens.obj mtests.obj ncuts.obj notfirst.obj options.obj precision.obj
mtens.o: constants.o mcgs.o mfunctions.o options.o precision.o
mtens.lo: constants.lo mcgs.lo mfunctions.lo options.lo precision.lo
mtens.obj: constants.obj mcgs.obj mfunctions.obj options.obj precision.obj
mtests.o: constants.o ltest.o mfunctions.o mglobal.o mrestore.o options.o \
precision.o save.o
mtests.lo: constants.lo ltest.lo mfunctions.lo mglobal.lo mrestore.lo options.lo \
precision.lo save.lo
mtests.obj: constants.obj ltest.obj mfunctions.obj mglobal.obj mrestore.obj \
options.obj precision.obj save.obj
save.o: constants.o precision.o
save.lo: constants.lo precision.lo
save.obj: constants.obj precision.obj
+%.mod: %.o %.f90
+ @true
+
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
diff --git a/samurai-2.1.1/constants.f90 b/samurai-2.1.1/constants.f90
index 5620a78..fde03b5 100644
--- a/samurai-2.1.1/constants.f90
+++ b/samurai-2.1.1/constants.f90
@@ -1,56 +1,61 @@
module constants
use precision
implicit none
private :: ki
real(ki), parameter :: pi = 3.14159265358979323846&
&2643383279502884197169399375105820974944592307816&
&4062862089986280348253421170679821480865132823066&
&47093844609550582231725359408128_ki
real(ki),parameter :: twopi = 2.0_ki*pi
!-----------------------------------------------------
real(ki),parameter :: zip=0.0_ki
real(ki),parameter :: half=0.5_ki
real(ki),parameter :: one=1.0_ki
real(ki),parameter :: two=2.0_ki
real(ki),parameter :: three=3.0_ki
real(ki),parameter :: four=4.0_ki
+ real(ki),parameter :: five=5.0_ki
real(ki),parameter :: six=6.0_ki
real(ki),parameter :: seven=7.0_ki
real(ki),parameter :: eight=8.0_ki
+ real(ki),parameter :: nine=9.0_ki
real(ki),parameter :: rt2 = 1.414213562373095048801&
&688724209698078569671875376948073176679737990732478&
&4621070388503875343276415727350138462309122970249248361_ki
real(ki),parameter :: rt3 = 1.732050807568877293527&
&446341505872366942805253810380628055806979451933016&
&9088000370811461867572485756756261414154067030299699451_ki
+ real(ki),parameter :: onethird = one/three
+ real(ki),parameter :: onesixth = one/six
+
!-----------------------------------------------------
complex(ki),parameter :: chaf=(0.5_ki,0.0_ki)
complex(ki),parameter :: im=(0.0_ki,1.0_ki)
complex(ki),parameter :: impi =(0.0_ki,pi)
complex(ki),parameter :: czip=(0.0_ki,0.0_ki)
complex(ki),parameter :: cone=(1.0_ki,0.0_ki)
complex(ki),parameter :: ctwo=(2.0_ki,0.0_ki)
!-----------------------------------------------------
! for nleg max = ! 8! 7! 6! 5! 4!
! !--------------!
integer,parameter :: max5= 56 !56!21! 6! 1! 0!
integer,parameter :: max4= 70 !70!35!15! 5! 1!
integer,parameter :: max3= 56 !56!35!20!10! 4!
integer,parameter :: max2= 28 !28!21!15!10! 6!
integer,parameter :: max1= 8 ! 8! 7! 6! 5! 4!
integer,parameter :: maxleg= 8 ! 8! 7! 6! 5! 4!
! !--------------!
integer,parameter :: nq5=1
integer,parameter :: nq4=5
integer,parameter :: nq3=10
integer,parameter :: nq2=10
integer,parameter :: nq1=5
!-----------------------------------------------------
real(ki),parameter :: zip1 = 1.0e-14_ki
end module constants
diff --git a/samurai-2.1.1/madds.f90.in b/samurai-2.1.1/madds.f90.in
index efdd722..e41c85b 100644
--- a/samurai-2.1.1/madds.f90.in
+++ b/samurai-2.1.1/madds.f90.in
@@ -1,2137 +1,2401 @@
module madds
use precision, only: ki, ki_ql, ki_lt
@case_with_golem@use precision_golem, only: ki_gol => ki
@case_with_avh@use avh_olo_kinds, only: ki_avh => kindr2
use constants
use options
use mfunctions
use notfirst
implicit none
private
interface add4
module procedure add4_rm
module procedure add4_cm
end interface add4
interface add3
module procedure add3_rm
module procedure add3_cm
end interface add3
interface add2
module procedure add2_rm
module procedure add2_cm
end interface add2
interface add1
module procedure add1_rm
module procedure add1_cm
end interface add1
! If s_mat is allocated the addX routines will read their invariants
! from the matrix rather than to recompute them.
!
! The matrix should be initialized as follows:
!
! s_mat(i, j) = Vi(i-1).Vi(j-1) - msq(i) - msq(j)
!
!
! Example:
!
! box diagram in gg>tt~
!
! g(k1) ~~~~~~*~~~~~*====== t~(k4)
! S I
! S I
! g(k2) ~~~~~~*~~~~~*====== t(k3)
!
! allocate(s_mat(4,4))
! s_mat(:,:) = 0.0_ki
! s_mat(1,3) = s - 0.0_ki - 0.0_ki ! = s
! s_mat(1,4) = mT**2 - 0.0_ki - mT**2 ! = 0.0_ki
! s_mat(2,4) = t - 0.0_ki - mT**2 ! = t - mT**2
! s_mat(3,4) = mT**2 - 0.0_ki - mT**2 ! = 0.0_ki
! s_mat(4,4) = 0.0_ki - mT**2 - mT**2 ! = - 2.0_ki * mT**2
! call samurai( .... )
! deallocate(s_mat)
complex(ki), dimension(:,:), allocatable, public :: s_mat
@case_with_ql@ interface
@case_with_ql@ function qlI4(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep)
@case_with_ql@ use precision, only: ki_ql
@case_with_ql@ implicit none
@case_with_ql@ real(ki_ql), intent(in) :: p1,p2,p3,p4,s12,s23
@case_with_ql@ real(ki_ql), intent(in) :: m1,m2,m3,m4,mu2
@case_with_ql@ integer, intent(in) :: ep
@case_with_ql@ complex(ki_ql) :: qlI4
@case_with_ql@ end function qlI4
@case_with_ql@ end interface
@case_with_ql@ interface
@case_with_ql@ function qlI3(p1,p2,p3,m1,m2,m3,mu2,ep)
@case_with_ql@ use precision, only: ki_ql
@case_with_ql@ implicit none
@case_with_ql@ real(ki_ql), intent(in) :: p1,p2,p3
@case_with_ql@ real(ki_ql), intent(in) :: m1,m2,m3,mu2
@case_with_ql@ integer, intent(in) :: ep
@case_with_ql@ complex(ki_ql) :: qlI3
@case_with_ql@ end function qlI3
@case_with_ql@ end interface
@case_with_ql@ interface
@case_with_ql@ function qlI2(p1,m1,m2,mu2,ep)
@case_with_ql@ use precision, only: ki_ql
@case_with_ql@ implicit none
@case_with_ql@ real(ki_ql), intent(in) :: p1
@case_with_ql@ real(ki_ql), intent(in) :: m1,m2,mu2
@case_with_ql@ integer, intent(in) :: ep
@case_with_ql@ complex(ki_ql) :: qlI2
@case_with_ql@ end function qlI2
@case_with_ql@ end interface
@case_with_ql@ interface
@case_with_ql@ function qlI1(m1,mu2,ep)
@case_with_ql@ use precision, only: ki_ql
@case_with_ql@ implicit none
@case_with_ql@ real(ki_ql), intent(in) :: m1,mu2
@case_with_ql@ integer, intent(in) :: ep
@case_with_ql@ complex(ki_ql) :: qlI1
@case_with_ql@ end function qlI1
@case_with_ql@ end interface
@case_with_golem@ interface
@case_with_golem@ function gD0(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ real(ki), intent(in) :: p1,p2,p3,p4,s12,s23
@case_with_golem@ real(ki), intent(in) :: m1,m2,m3,m4
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gD0
@case_with_golem@ end function gD0
@case_with_golem@ end interface
@case_with_golem@ interface
@case_with_golem@ function gC0(p1,p2,p3,m1,m2,m3,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ real(ki), intent(in) :: p1,p2,p3
@case_with_golem@ real(ki), intent(in) :: m1,m2,m3
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gC0
@case_with_golem@ end function gC0
@case_with_golem@ end interface
@case_with_golem@ interface
@case_with_golem@ function gB0(p1,m1,m2,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ real(ki), intent(in) :: p1
@case_with_golem@ real(ki), intent(in) :: m1,m2
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gB0
@case_with_golem@ end function gB0
@case_with_golem@ end interface
@case_with_golem@ interface
@case_with_golem@ function gD0C(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ complex(ki), intent(in) :: p1,p2,p3,p4,s12,s23
@case_with_golem@ complex(ki), intent(in) :: m1,m2,m3,m4
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gD0C
@case_with_golem@ end function gD0C
@case_with_golem@ end interface
@case_with_golem@ interface
@case_with_golem@ function gC0C(p1,p2,p3,m1,m2,m3,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ complex(ki), intent(in) :: p1,p2,p3
@case_with_golem@ complex(ki), intent(in) :: m1,m2,m3
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gC0C
@case_with_golem@ end function gC0C
@case_with_golem@ end interface
@case_with_golem@ interface
+@case_with_golem@ function gC0i(idt,p1,p2,p3,m1,m2,m3,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ real(ki), intent(in) :: p1,p2,p3
+@case_with_golem@ real(ki), intent(in) :: m1,m2,m3
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gC0i
+@case_with_golem@ end function gC0i
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gC0iC(idt,p1,p2,p3,m1,m2,m3,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ complex(ki), intent(in) :: p1,p2,p3
+@case_with_golem@ complex(ki), intent(in) :: m1,m2,m3
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gC0iC
+@case_with_golem@ end function gC0iC
+@case_with_golem@ end interface
+@case_with_golem@ interface
@case_with_golem@ function gB0C(p1,m1,m2,mu2,ep)
@case_with_golem@ use precision_golem, only: ki
@case_with_golem@ implicit none
@case_with_golem@ complex(ki), intent(in) :: p1
@case_with_golem@ complex(ki), intent(in) :: m1,m2
@case_with_golem@ real(ki), intent(in) :: mu2
@case_with_golem@ integer, intent(in) :: ep
@case_with_golem@ complex(ki) :: gB0C
@case_with_golem@ end function gB0C
@case_with_golem@ end interface
-
+@case_with_golem@ interface
+@case_with_golem@ function gB0i(idt,p1,m1,m2,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ real(ki), intent(in) :: p1
+@case_with_golem@ real(ki), intent(in) :: m1,m2
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gB0i
+@case_with_golem@ end function gB0i
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gB0iC(idt,p1,m1,m2,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ complex(ki), intent(in) :: p1
+@case_with_golem@ complex(ki), intent(in) :: m1,m2
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gB0iC
+@case_with_golem@ end function gB0iC
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gA0(m1,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ real(ki), intent(in) :: m1
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gA0
+@case_with_golem@ end function gA0
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gA0C(m1,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ complex(ki), intent(in) :: m1
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gA0C
+@case_with_golem@ end function gA0C
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gA0i(idt,m1,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ real(ki), intent(in) :: m1
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gA0i
+@case_with_golem@ end function gA0i
+@case_with_golem@ end interface
+@case_with_golem@ interface
+@case_with_golem@ function gA0iC(idt,m1,mu2,ep)
+@case_with_golem@ use precision_golem, only: ki
+@case_with_golem@ implicit none
+@case_with_golem@ character (len=*), intent (in) :: idt
+@case_with_golem@ complex(ki), intent(in) :: m1
+@case_with_golem@ real(ki), intent(in) :: mu2
+@case_with_golem@ integer, intent(in) :: ep
+@case_with_golem@ complex(ki) :: gA0iC
+@case_with_golem@ end function gA0iC
+@case_with_golem@ end interface
@case_with_lt@ interface
@case_with_lt@ function D0(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1,p2,p3,p4,s12,s23
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2,m3,m4
@case_with_lt@ complex(ki_lt) :: D0
@case_with_lt@ end function D0
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function C0(p1,p2,p3,m1,m2,m3)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1,p2,p3
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2,m3
@case_with_lt@ complex(ki_lt) :: C0
@case_with_lt@ end function C0
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B0(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B0
@case_with_lt@ end function B0
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B1(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B1
@case_with_lt@ end function B1
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B00(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B00
@case_with_lt@ end function B00
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B11(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: p1
@case_with_lt@ real(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B11
@case_with_lt@ end function B11
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function A0(m1)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt), intent(in) :: m1
@case_with_lt@ complex(ki_lt) :: A0
@case_with_lt@ end function A0
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function D0C(p1,p2,p3,p4,s12,s23,m1,m2,m3,m4)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1,p2,p3,p4,s12,s23
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2,m3,m4
@case_with_lt@ complex(ki_lt) :: D0C
@case_with_lt@ end function D0C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function C0C(p1,p2,p3,m1,m2,m3)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1,p2,p3
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2,m3
@case_with_lt@ complex(ki_lt) :: C0C
@case_with_lt@ end function C0C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B0C(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B0C
@case_with_lt@ end function B0C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B1C(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B1C
@case_with_lt@ end function B1C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B00C(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B00C
@case_with_lt@ end function B00C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function B11C(p1,m1,m2)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: p1
@case_with_lt@ complex(ki_lt), intent(in) :: m1,m2
@case_with_lt@ complex(ki_lt) :: B11C
@case_with_lt@ end function B11C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function A0C(m1)
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ complex(ki_lt), intent(in) :: m1
@case_with_lt@ complex(ki_lt) :: A0C
@case_with_lt@ end function A0C
@case_with_lt@ end interface
@case_with_lt@ interface
@case_with_lt@ function getlambda()
@case_with_lt@ use precision, only: ki_lt
@case_with_lt@ implicit none
@case_with_lt@ real(ki_lt) :: getlambda
@case_with_lt@ end function getlambda
@case_with_lt@ end interface
! cache sizes depending on nleg and istop: cachedim<nleg>(<istop>)
! These numbers are exactly the same as returned in calls
! to cachedim
integer, dimension(1:1), parameter, public :: cachedim1 = (/1/)
integer, dimension(1:2), parameter, public :: cachedim2 = (/7,5/)
integer, dimension(1:3), parameter, public :: cachedim3 = (/19,16,1/)
integer, dimension(1:4), parameter, public :: cachedim4 = (/39,35,5,1/)
integer, dimension(1:4), parameter, public :: cachedim5 = (/70,65,15,5/)
integer, dimension(1:4), parameter, public :: cachedim6 = (/116,110,35,15/)
integer, dimension(1:4), parameter, public :: cachedim7 = (/182,175,70,35/)
integer, dimension(1:4), parameter, public :: cachedim8 = (/274,266,126,70/)
integer, dimension(1:4), parameter, public :: cachedim9 = &
& (/399,390,210,126/)
integer, dimension(1:4), parameter, public :: cachedim10 = &
& (/565,555,330,210/)
integer, dimension(1:4), parameter, public :: cachedim11 = &
& (/781,770,495,330/)
integer, dimension(1:4), parameter, public :: cachedim12 = &
& (/1057,1045,715,495/)
public :: add4, add3, add2, add1
public :: add4_rm, add3_rm, add2_rm, add1_rm
public :: add4_cm, add3_cm, add2_cm, add1_cm
public :: cachedim
contains
pure subroutine cachedim(dim,nleg,istop)
implicit none
integer, intent(in) :: nleg,istop
integer, intent(out) :: dim
integer :: n4, n3, n2, n1, j1, j2, j3, j4, icut1, icut2, icut3, icut4
n1 = 0
n2 = 0
n3 = 0
n4 = 0
if (nleg.ge.4) then
goto 20
elseif (nleg.eq.3) then
goto 30
elseif (nleg.eq.2) then
goto 40
elseif ((nleg.eq.1).or.(nleg.le.0)) then
goto 50
endif
20 continue
if (istop.ge.5) goto 99
n4 = nleg*(nleg-1)*(nleg-2)*(nleg-3)/24
if (istop.ge.4) goto 99
30 continue
n3 = nleg*(nleg-1)*(nleg-2)/6
if (istop.ge.3) goto 99
40 continue
n2 = nleg*(nleg-1)/2
if (istop.ge.2) goto 99
50 continue
n1 = nleg
99 continue
dim=n4+n3+5*n2+n1
end subroutine cachedim
subroutine add4_rm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_d0
implicit none
integer, intent(in) :: cut4,nleg
- complex(ki), dimension(0:4), intent(in) :: c4
+ complex(ki), dimension(0:5), intent(in) :: c4
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
real(ki), dimension(0:nleg-1), intent(in) :: msq
real(ki), intent(in) :: scale2
complex(ki), dimension(-2:0), intent(out) :: tot4
complex(ki), intent(out) :: tot4r
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
real(ki), dimension(4):: Vi1, Vi2, Vi3, Vi21, Vi31, Vi32
real(ki) :: m0, m1, m2, m3, V1, V2, V3, V21, V31, V32
integer :: i,j1,j2,j3,j4
complex(ki) :: c40
@case_with_avh@ complex(ki_avh), dimension(0:2) :: vald0
complex(ki) :: ctmp
@case_with_golem@ complex(ki), dimension(-2:0) :: d0t
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
j4=cut4/1000
j3=(cut4-j4*1000)/100
j2=(cut4-j4*1000-j3*100)/10
j1=cut4-j4*1000-j3*100-j2*10
m0=msq(j1)
m1=msq(j2)
m2=msq(j3)
m3=msq(j4)
if (allocated(s_mat)) then
! s_mat(i+1, j+1) = (Vi(i,:) - Vi(j,:))**2 - msq(i) - msq(j)
V1 = s_mat(j2+1, j1+1) + msq(j2) + msq(j1)
V2 = s_mat(j3+1, j1+1) + msq(j3) + msq(j1)
V3 = s_mat(j4+1, j1+1) + msq(j4) + msq(j1)
V21 = s_mat(j3+1, j2+1) + msq(j3) + msq(j2)
V31 = s_mat(j4+1, j2+1) + msq(j4) + msq(j2)
V32 = s_mat(j4+1, j3+1) + msq(j4) + msq(j3)
else
Vi1(:)=Vi(j2,:)-Vi(j1,:)
Vi2(:)=Vi(j3,:)-Vi(j1,:)
Vi3(:)=Vi(j1,:)-Vi(j4,:)
Vi21(:)=Vi(j3,:)-Vi(j2,:)
Vi31(:)=Vi(j4,:)-Vi(j2,:)
Vi32(:)=Vi(j4,:)-Vi(j3,:)
V1=sdot(Vi1,Vi1)
V2=sdot(Vi2,Vi2)
V3=sdot(Vi3,Vi3)
V21=sdot(Vi21,Vi21)
V31=sdot(Vi31,Vi31)
V32=sdot(Vi32,Vi32)
end if
c40=c4(0)
tot4r=-c4(4)/six
1 Format(A3,I4,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ do ep=-2,0
@case_with_ql@ if (present(cache_flag)) then
@case_with_ql@ if (cache_flag) then
@case_with_ql@ ctmp = scalar_cache(ep,cache_index)
@case_with_ql@ else
@case_with_ql@ ctmp=qlI4(&
@case_with_ql@ & real(V1,ki_ql),real(V21,ki_ql),real(V32,ki_ql),&
@case_with_ql@ & real(V3,ki_ql),real(V2,ki_ql),real(V31,ki_ql),&
@case_with_ql@ & real(m0,ki_ql),real(m1,ki_ql),real(m2,ki_ql),&
@case_with_ql@ & real(m3,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ scalar_cache(ep,cache_index) = ctmp
@case_with_ql@ end if
@case_with_ql@ else
@case_with_ql@ ctmp=qlI4(&
@case_with_ql@ & real(V1,ki_ql),real(V21,ki_ql),real(V32,ki_ql),&
@case_with_ql@ & real(V3,ki_ql),real(V2,ki_ql),real(V31,ki_ql),&
@case_with_ql@ & real(m0,ki_ql),real(m1,ki_ql),real(m2,ki_ql),&
@case_with_ql@ & real(m3,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ end if
@case_with_ql@ tot4(ep)=c40*ctmp
@case_with_ql@ if (verbosity.ge.2) write(iout,1) &
@case_with_ql@ & 'I4(',cut4,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_with_ql@ enddo
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
@case_wout_ql@ stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ vald0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ vald0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ vald0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_d0(vald0,&
@case_with_avh@ & real(V1,ki_avh),real(V21,ki_avh),real(V32,ki_avh),&
@case_with_avh@ & real(V3,ki_avh),real(V2,ki_avh),real(V31,ki_avh),&
@case_with_avh@ & real(m0,ki_avh),real(m1,ki_avh),real(m2,ki_avh),&
@case_with_avh@ & real(m3,ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = vald0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = vald0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = vald0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_d0(vald0,&
@case_with_avh@ & real(V1,ki_avh),real(V21,ki_avh),real(V32,ki_avh),&
@case_with_avh@ & real(V3,ki_avh),real(V2,ki_avh),real(V31,ki_avh),&
@case_with_avh@ & real(m0,ki_avh),real(m1,ki_avh),real(m2,ki_avh),&
@case_with_avh@ & real(m3,ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot4(ep)= c40*vald0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ & 'I4(',cut4,',',ep,') = (',real(vald0(-ep)),',',aimag(vald0(-ep)),' )'
@case_with_avh@ enddo
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ call gtrunc_rm(abs(V32)+abs(V31), &
@case_with_golem@ & V1,V2,V3,V21,V32,V31,m0,m1,m2,m3)
@case_with_golem@ do ep=-2,0
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ d0t(ep) = scalar_cache(ep,cache_index)
@case_with_golem@ else
@case_with_golem@ d0t(ep)=gD0(real(V1,ki_gol),real(V21,ki_gol),&
@case_with_golem@ & real(V32,ki_gol),real(V3,ki_gol),&
@case_with_golem@ & real(V2,ki_gol),real(V31,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(m2,ki_gol),real(m3,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = d0t(ep)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ d0t(ep)=gD0(real(V1,ki_gol),real(V21,ki_gol),&
@case_with_golem@ & real(V32,ki_gol),real(V3,ki_gol),&
@case_with_golem@ & real(V2,ki_gol),real(V31,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(m2,ki_gol),real(m3,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end if
@case_with_golem@ end do
@case_with_golem@ !d0t( 0) = d0t(0) + log(scale2) * (d0t(-1) &
@case_with_golem@ ! & + 0.5_ki * log(scale2) * d0t(-2))
@case_with_golem@ !d0t(-1) = d0t(-1) + log(scale2) * d0t(-2)
@case_with_golem@ if (verbosity.ge.2) then
@case_with_golem@ do ep=-2,0
@case_with_golem@ write(iout,1) 'I4(',cut4,',',ep,&
@case_with_golem@ & ') = (',real(d0t(ep)),',',aimag(d0t(ep)),' )'
@case_with_golem@ end do
@case_with_golem@ end if
@case_with_golem@ tot4(:) = d0t(:) * c40
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot4(-2) = 0
@case_with_lt@ tot4(-1) = 0
@case_with_lt@ tot4(0) = 0
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(V32)+abs(V31), &
@case_with_lt@ & V1,V2,V3,V21,V32,V31,m0,m1,m2,m3)
@case_with_lt@ ctmp=D0(&
@case_with_lt@ & real(V1,ki_lt),real(V21,ki_lt),real(V32,ki_lt),&
@case_with_lt@ & real(V3,ki_lt),real(V2,ki_lt),real(V31,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt),real(m2,ki_lt),&
@case_with_lt@ & real(m3,ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(V32)+abs(V31), &
@case_with_lt@ & V1,V2,V3,V21,V32,V31,m0,m1,m2,m3)
@case_with_lt@ ctmp=D0(&
@case_with_lt@ & real(V1,ki_lt),real(V21,ki_lt),real(V32,ki_lt),&
@case_with_lt@ & real(V3,ki_lt),real(V2,ki_lt),real(V31,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt),real(m2,ki_lt),&
@case_with_lt@ & real(m3,ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot4(ep)=c40*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ & 'I4(',cut4,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add4'
stop
endif
if (present(cache_flag)) cache_offset = cache_offset + 1
tot4(0)=tot4(0) + tot4r
end subroutine add4_rm
subroutine add3_rm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_c0
implicit none
integer, intent(in) :: nleg, cut3
- complex(ki), dimension(0:9), intent(in) :: c3
+ complex(ki), dimension(0:14), intent(in) :: c3
real(ki), dimension(0:nleg-1,4) ::Vi
real(ki), dimension(0:nleg-1):: msq
complex(ki), dimension(-2:0), intent(out) :: tot3
complex(ki), intent(out) :: tot3r
real(ki), intent(in) :: scale2
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer :: j1,j2,j3
real(ki) :: m0, m1, m2, V1, V2, V3
real(ki), dimension(4):: Vi1, Vi2, Vi3
- complex(ki) :: c30
+ complex(ki) :: c30, c314
+ logical :: highrank
@case_with_avh@ complex(ki_avh), dimension(0:2) :: valc0
complex(ki) :: ctmp
-@case_with_golem@ complex(ki), dimension(-2:0) :: c0t
+@case_with_golem@ complex(ki), dimension(-2:0) :: c0t, c0000t
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
j3=cut3/100
j2=(cut3-j3*100)/10
j1=cut3-j3*100-j2*10
m0=msq(j1)
m1=msq(j2)
m2=msq(j3)
if (allocated(s_mat)) then
! s_mat(i+1, j+1) = (Vi(i,:) - Vi(j,:))**2 - msq(i) - msq(j)
V1 = s_mat(j2+1, j1+1) + msq(j2) + msq(j1)
V2 = s_mat(j3+1, j2+1) + msq(j3) + msq(j2)
V3 = s_mat(j3+1, j1+1) + msq(j3) + msq(j1)
else
Vi1(:)=Vi(j2,:)-Vi(j1,:)
Vi2(:)=Vi(j3,:)-Vi(j2,:)
Vi3(:)=Vi(j1,:)-Vi(j3,:)
V1=sdot(Vi1,Vi1)
V2=sdot(Vi2,Vi2)
V3=sdot(Vi3,Vi3)
end if
c30=c3(0)
+ c314=c3(14)
+ highrank=(c314 /= 0._ki)
tot3r=+c3(7)/two
1 Format(A3,I3,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ do ep=-2,0
@case_with_ql@ if (present(cache_flag)) then
@case_with_ql@ if (cache_flag) then
@case_with_ql@ ctmp = scalar_cache(ep,cache_index)
@case_with_ql@ else
@case_with_ql@ ctmp=qlI3(&
@case_with_ql@ real(V1,ki_ql),real(V2,ki_ql),real(V3,ki_ql),&
@case_with_ql@ & real(m0,ki_ql),real(m1,ki_ql),real(m2,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ scalar_cache(ep,cache_index) = ctmp
@case_with_ql@ end if
@case_with_ql@ else
@case_with_ql@ ctmp=qlI3(&
@case_with_ql@ real(V1,ki_ql),real(V2,ki_ql),real(V3,ki_ql),&
@case_with_ql@ & real(m0,ki_ql),real(m1,ki_ql),real(m2,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ end if
@case_with_ql@ tot3(ep)=c30*ctmp
@case_with_ql@ if (verbosity.ge.2) write(iout,1) &
@case_with_ql@ &'I3(',cut3,',',ep,') = (',real(ctmp),&
@case_with_ql@ &',',aimag(ctmp),' )'
@case_with_ql@ enddo
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
@case_wout_ql@ stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ valc0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ valc0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ valc0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_c0(valc0,&
@case_with_avh@ & real(V1,ki_avh),real(V2,ki_avh),real(V3,ki_avh),&
@case_with_avh@ & real(m0,ki_avh),real(m1,ki_avh),real(m2,ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = valc0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = valc0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = valc0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_c0(valc0,&
@case_with_avh@ & real(V1,ki_avh),real(V2,ki_avh),real(V3,ki_avh),&
@case_with_avh@ & real(m0,ki_avh),real(m1,ki_avh),real(m2,ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot3(ep)= c30*valc0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ &'I3(',cut3,',',ep,') = (',real(valc0(-ep)),',',aimag(valc0(-ep)),' )'
@case_with_avh@ enddo
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ call gtrunc_rm(abs(V1)+abs(V2)+abs(V3), &
@case_with_golem@ & V1,V2,V3,m0,m1,m2)
+@case_with_golem@ c0000t(:)=0
@case_with_golem@ do ep=-2,0
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ c0t(ep) = scalar_cache(ep,cache_index)
@case_with_golem@ else
@case_with_golem@ c0t(ep)=gC0(real(V1,ki_gol),real(V2,ki_gol),&
@case_with_golem@ & real(V3,ki_gol),real(m0,ki_gol),&
@case_with_golem@ & real(m1,ki_gol),real(m2,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = c0t(ep)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ c0t(ep)=gC0(real(V1,ki_gol),real(V2,ki_gol),&
@case_with_golem@ & real(V3,ki_gol),real(m0,ki_gol),&
@case_with_golem@ & real(m1,ki_gol),real(m2,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end if
-@case_with_golem@ end do
+@case_with_golem@ end do
+@case_with_golem@ !if (highrank) then
+@case_with_golem@ !do ep=-2,-1
+@case_with_golem@ ! c0000t(ep)=gC0i("0000",real(V1,ki_gol),real(V2,ki_gol),&
+@case_with_golem@ ! & real(V3,ki_gol),real(m0,ki_gol),&
+@case_with_golem@ ! & real(m1,ki_gol),real(m2,ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),ep)
+@case_with_golem@ !end do
+@case_with_golem@ !end if
@case_with_golem@ !c0t( 0) = c0t(0) + log(scale2) * (c0t(-1) &
@case_with_golem@ ! & + 0.5_ki * log(scale2) * c0t(-2))
@case_with_golem@ !c0t(-1) = c0t(-1) + log(scale2) * c0t(-2)
@case_with_golem@ if (verbosity.ge.2) then
@case_with_golem@ do ep=-2,0
@case_with_golem@ write(iout,1) 'I3(',cut3,',',ep,&
@case_with_golem@ & ') = (',real(c0t(ep)),',',aimag(c0t(ep)),' )'
@case_with_golem@ end do
@case_with_golem@ end if
@case_with_golem@ tot3(:) = c0t(:) * c30
+@case_with_golem@ if (highrank) then
+@case_with_golem@ tot3(0) = tot3(0) + c314 * ((V1+V2+V3)/four-m0-m1-m2)/six
+@case_with_golem@ !tot3(0) = tot3(0) + c314 * four * (c0000t(-2) - c0000t(-1))
+@case_with_golem@ !tot3(-1) = tot3(-1) + c314 * four * c0000t(-2)
+@case_with_golem@ !write (*, *) "C3(14) Golem:", (c0000t(-2) - c0000t(-1))*four
+@case_with_golem@ !write (*, *) "C3(14) Formula:", &
+@case_with_golem@ ! one/6.*(0.25*(V1+V2+V3)-m0-m1-m2)
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot3(-2) = 0
@case_with_lt@ tot3(-1) = 0
@case_with_lt@ tot3( 0) = 0
@case_with_lt@ call gtrunc_rm(abs(V1)+abs(V2)+abs(V3), &
@case_with_lt@ & V1,V2,V3,m0,m1,m2)
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ ctmp=C0(&
@case_with_lt@ & real(V1,ki_lt),real(V2,ki_lt),real(V3,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt),real(m2,ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ ctmp=C0(&
@case_with_lt@ & real(V1,ki_lt),real(V2,ki_lt),real(V3,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt),real(m2,ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot3(ep)=c30*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ &'I3(',cut3,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add3'
stop
endif
tot3(0)=tot3(0) + tot3r
if (present(cache_flag)) cache_offset = cache_offset + 1
end subroutine add3_rm
subroutine add2_rm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2, &
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_b11
implicit none
integer, intent(in) :: nleg, cut2
- complex(ki), dimension(0:9), intent(in) :: c2
+ complex(ki), dimension(0:19), intent(in) :: c2
real(ki), dimension(4), intent(in) :: k1, k2
real(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(-2:0), intent(out) :: tot2
complex(ki), intent(out) :: tot2r
real(ki), intent(in) :: scale2
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
real(ki) :: m0, m1, K11, K12, B06
integer :: ep, cache_index
integer :: i1,i2
- complex(ki), dimension(-2:0) :: J0, J1, J00, J01, J11
+ complex(ki), dimension(-2:0) :: J0, J1, J00, J01, J11, J111, J001
+ logical :: highrank
@case_with_avh@ complex(ki_avh), dimension(0:2) :: scf2, scf1, scf0, scf
@case_with_avh@ complex(ki) :: xbb, xb0, xb00
@case_with_avh@ real(ki) :: bkv
@case_with_avh@ integer :: i
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
i2=cut2/10
i1=cut2-i2*10
m0=msq(i1)
m1=msq(i2)
+ highrank = ((c2(13) /= 0._ki) .or. (c2(10) /= 0._ki))
+
if (allocated(s_mat)) then
K11 = s_mat(i2+1, i1+1) + msq(i1) + msq(i2)
else
K11 = sdot(K1,K1)
end if
K12=sdot(K1,K2)
B06=-(K11-three*(m0+m1))/six
tot2r= + B06*c2(9)
+ J001(:)=0
+ J111(:)=0
+
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ if (present(cache_flag)) then
@case_with_ql@ if (cache_flag) then
@case_with_ql@ J0(:) = scalar_cache(:,cache_index+0)
@case_with_ql@ J1(:) = scalar_cache(:,cache_index+1)
@case_with_ql@ J01(:) = scalar_cache(:,cache_index+2)
@case_with_ql@ J11(:) = scalar_cache(:,cache_index+3)
@case_with_ql@ J00(:) = scalar_cache(:,cache_index+4)
@case_with_ql@ else
@case_with_ql@ do ep=-2,0
@case_with_ql@ J00(ep) = qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m0,ki_ql),real(m0,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J11(ep) = qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m1,ki_ql),real(m1,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J01(ep)=qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m0,ki_ql),real(m1,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J0(ep) = qlI1(real(m0,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ J1(ep) = qlI1(real(m1,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ end do
@case_with_ql@ scalar_cache(:,cache_index+0) = J0(:)
@case_with_ql@ scalar_cache(:,cache_index+1) = J1(:)
@case_with_ql@ scalar_cache(:,cache_index+2) = J01(:)
@case_with_ql@ scalar_cache(:,cache_index+3) = J11(:)
@case_with_ql@ scalar_cache(:,cache_index+4) = J00(:)
@case_with_ql@ end if
@case_with_ql@ else
@case_with_ql@ do ep=-2,0
@case_with_ql@ J00(ep) = qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m0,ki_ql),real(m0,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J11(ep) = qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m1,ki_ql),real(m1,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J01(ep)=qlI2(&
@case_with_ql@ & real(K11,ki_ql),real(m0,ki_ql),real(m1,ki_ql),&
@case_with_ql@ & real(scale2,ki_ql),ep)
@case_with_ql@ J0(ep) = qlI1(real(m0,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ J1(ep) = qlI1(real(m1,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ end do
@case_with_ql@ end if
+@case_with_ql@ if (highrank) then
+@case_with_ql@ print*, "Rank N+1 not yet implemented for isca=1."
+@case_with_ql@ stop
+@case_with_ql@ end if
@case_with_ql@ ! The remaining steps come in another if-statement
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
@case_wout_ql@ stop
elseif (isca.eq.2) then
@case_with_avh@ xbb=c2(0)
@case_with_avh@ xb0=c2(1)
@case_with_avh@ xb00=c2(2)
@case_with_avh@ bkv=K12
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ scf(:) = scalar_cache(:,cache_index+0)
@case_with_avh@ scf0(:) = scalar_cache(:,cache_index+1)
@case_with_avh@ scf1(:) = scalar_cache(:,cache_index+2)
@case_with_avh@ scf2(:) = scalar_cache(:,cache_index+3)
@case_with_avh@ else
@case_with_avh@ call olo_b11(scf2,scf0,scf1,scf,&
@case_with_avh@ & real(K11,ki_avh),real(m0,ki_avh),real(m1,ki_avh))
@case_with_avh@ scalar_cache(:,cache_index+0) = scf(:)
@case_with_avh@ scalar_cache(:,cache_index+1) = scf0(:)
@case_with_avh@ scalar_cache(:,cache_index+2) = scf1(:)
@case_with_avh@ scalar_cache(:,cache_index+3) = scf2(:)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_b11(scf2,scf0,scf1,scf,&
@case_with_avh@ & real(K11,ki_avh),real(m0,ki_avh),real(m1,ki_avh))
@case_with_avh@ end if
@case_with_avh@ tot2(0)=xbb*scf(0)+xb0*bkv*scf1(0)+xb00*bkv*bkv*scf2(0)
@case_with_avh@ tot2(0)=tot2(0)+ B06*c2(9)
@case_with_avh@ tot2(-1)=xbb*scf(1)+xb0*bkv*scf1(1)+xb00*bkv*bkv*scf2(1)
@case_with_avh@ tot2(-2)=xbb*scf(2)+xb0*bkv*scf1(2)+xb00*bkv*bkv*scf2(2)
@case_with_avh@ if (verbosity.ge.2) then
@case_with_avh@ do i=0,2
@case_with_avh@ write(iout,903) 'B_0 (',cut2,',',-i,') = ',scf(i)
@case_with_avh@ write(iout,903) 'B_1 (',cut2,',',-i,') =',scf1(i)
@case_with_avh@ write(iout,903) 'B_11(',cut2,',',-i,') =',scf2(i)
@case_with_avh@ enddo
@case_with_avh@ endif
+@case_with_avh@ if (highrank) then
+@case_with_avh@ print*, "Rank N+1 not yet implemented for isca=2."
+@case_with_avh@ stop
+@case_with_avh@ end if
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ J0(:) = scalar_cache(:,cache_index+0)
@case_with_golem@ J1(:) = scalar_cache(:,cache_index+1)
@case_with_golem@ J01(:) = scalar_cache(:,cache_index+2)
@case_with_golem@ J11(:) = scalar_cache(:,cache_index+3)
@case_with_golem@ J00(:) = scalar_cache(:,cache_index+4)
@case_with_golem@ else
@case_with_golem@ call gtrunc_rm(abs(K11)+1.0_ki, K11,m0,m1)
@case_with_golem@ do ep=-2,0
@case_with_golem@ J00(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J11(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m1,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J01(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J0(ep) = gA0(real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J1(ep) = gA0(real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end do
@case_with_golem@ scalar_cache(:,cache_index+0) = J0(:)
@case_with_golem@ scalar_cache(:,cache_index+1) = J1(:)
@case_with_golem@ scalar_cache(:,cache_index+2) = J01(:)
@case_with_golem@ scalar_cache(:,cache_index+3) = J11(:)
@case_with_golem@ scalar_cache(:,cache_index+4) = J00(:)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ call gtrunc_rm(abs(K11)+1.0_ki, K11,m0,m1)
@case_with_golem@ do ep=-2,0
@case_with_golem@ J00(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J11(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m1,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J01(ep)= gB0(real(K11,ki_gol),&
@case_with_golem@ & real(m0,ki_gol),real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J0(ep) = gA0(real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J1(ep) = gA0(real(m1,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end do
@case_with_golem@ end if
+@case_with_golem@ if (highrank) then
+@case_with_golem@ do ep=-2,0
+@case_with_golem@ J001(ep) = gB0i("001",real(K11,ki_gol),&
+@case_with_golem@ & real(m0,ki_gol),real(m0,ki_gol),&
+@case_with_golem@ & real(scale2,ki_gol),ep)
+@case_with_golem@ J111(ep) = gB0i("111",real(K11,ki_gol),&
+@case_with_golem@ & real(m0,ki_gol),real(m0,ki_gol),&
+@case_with_golem@ & real(scale2,ki_gol),ep)
+@case_with_golem@ end do
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ J00(:) = 0.0_ki_lt
@case_with_lt@ J11(:) = 0.0_ki_lt
@case_with_lt@ J0(:) = 0.0_ki_lt
@case_with_lt@ J1(:) = 0.0_ki_lt
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ J0(:) = scalar_cache(:,cache_index+0)
@case_with_lt@ J1(:) = scalar_cache(:,cache_index+1)
@case_with_lt@ J01(:) = scalar_cache(:,cache_index+2)
@case_with_lt@ J11(:) = scalar_cache(:,cache_index+3)
@case_with_lt@ J00(:) = scalar_cache(:,cache_index+4)
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(K11)+1.0_ki, K11,m0,m1)
@case_with_lt@ J00(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m0,ki_lt))
@case_with_lt@ J11(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m1,ki_lt),real(m1,ki_lt))
@case_with_lt@ J01(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt))
@case_with_lt@ J0(ep) = A0(real(m0,ki_lt))
@case_with_lt@ J1(ep) = A0(real(m1,ki_lt))
@case_with_lt@ scalar_cache(:,cache_index+0) = J0(:)
@case_with_lt@ scalar_cache(:,cache_index+1) = J1(:)
@case_with_lt@ scalar_cache(:,cache_index+2) = J01(:)
@case_with_lt@ scalar_cache(:,cache_index+3) = J11(:)
@case_with_lt@ scalar_cache(:,cache_index+4) = J00(:)
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(K11)+1.0_ki, K11,m0,m1)
@case_with_lt@ J00(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m0,ki_lt))
@case_with_lt@ J11(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m1,ki_lt),real(m1,ki_lt))
@case_with_lt@ J01(ep) = B0(real(K11,ki_lt),&
@case_with_lt@ & real(m0,ki_lt),real(m1,ki_lt))
@case_with_lt@ J0(ep) = A0(real(m0,ki_lt))
@case_with_lt@ J1(ep) = A0(real(m1,ki_lt))
@case_with_lt@ end if
+@case_with_lt@ if (highrank) then
+@case_with_lt@ print*, "Rank N+1 not yet implemented for isca=4."
+@case_with_lt@ stop
+@case_with_lt@ end if
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add2'
stop
endif
if (isca.eq.1 .or. isca.eq.3 .or. isca.eq.4) then
if (abs(K11).gt.zip1) then
do ep=-2,0
tot2(ep)=-(K12*(two*K12*(m0 - m1)*c2(2) + &
& K11*(-three*c2(1) + two*K12*c2(2)))*J0(ep))/(six*K11**2) &
& + ((two*K12**2*(m0 - m1)**2*c2(2) + &
& K11*K12*(-three*m0*c2(1) + three*m1*c2(1) + &
& two*K12*m0*c2(2) - four*K12*m1*c2(2)) + &
& K11**2*(6*c2(0) + K12*(-three*c2(1) + two*K12*c2(2))))* &
& J01(ep))/(six*K11**2) + &
& (K12*(two*K12*(m0 - m1)*c2(2) + &
& K11*(-three*c2(1) + four*K12*c2(2)))*J1(ep))/(six*K11**2)
enddo
tot2(0)=tot2(0)+(K12**2*c2(2))/18.0_ki &
& - (K12**2*m0*c2(2))/(six*K11) - &
& (K12**2*m1*c2(2))/(six*K11) + B06*c2(9)
else
if (m1.eq.m0) then
do ep=-2,0
tot2(ep)=(c2(0) + (K12*(-three*c2(1) &
& + two*K12*c2(2)))/six)*J00(ep)
enddo
tot2(0)=tot2(0)+B06*c2(9)
else
do ep=-2,0
tot2(ep)=(K12*m0**2*(-three*m0*c2(1) + three*m1*c2(1) &
& + two*K12*m0*c2(2))* &
& J00(ep))/(six*(m0 - m1)**3) + c2(0)*J01(ep) - &
& (K12*m1*(m0*m1*(9*c2(1) - 6*K12*c2(2)) - &
& 6*m0**2*(c2(1) - K12*c2(2)) + &
& m1**2*(-three*c2(1) + two*K12*c2(2)))*J11(ep))/ &
& (six*(m0 - m1)**3)
enddo
tot2(0)=tot2(0) + (-three*K12*m0*c2(1))/(four*(m0 - m1)) + &
& (K12*m1*c2(1))/(four*m0 - four*m1) + &
& (11.0_ki*K12**2*m0**2*c2(2))/(18.0_ki*(m0 - m1)**2) - &
& (7.0_ki*K12**2*m0*m1*c2(2))/(18.0_ki*(m0 - m1)**2) + &
& (K12**2*m1**2*c2(2))/(9.0_ki*(m0 - m1)**2) + B06*c2(9)
endif
endif
+ if (highrank) then
+ !tot2(0) = tot2(0) + c2(13)*(K11**3)*J111(0) + c2(10)*K12*two*J001(-1)
+ tot2(0) = tot2(0) + c2(13)*(K12**3)*J111(0) + c2(10)*one/12.0_ki* K12 * &
+ & (K11 - two*m0-four*m1)
+ tot2(-1) = tot2(-1) + c2(13)*(K12**3)*J111(-1)
+ tot2(-2) = tot2(-2) + c2(13)*(K12**3)*J111(-2)
+ !write (*, *) "c2(10): Golem:", K12*two*J001(-1)
+ !write (*, *) "c2(10): Formula:", one/12._ki* K12 * &
+ ! & (K11 - two*m0-four*m1)
+ end if
if (verbosity.ge.2) then
do ep=0,2
write(iout,903) 'B0 (',cut2,',',-ep,') = ',J0(-ep)
write(iout,903) 'B1 (',cut2,',',-ep,') =',J1(-ep)
write(iout,903) 'B00(',cut2,',',-ep,') =',J00(-ep)
write(iout,903) 'B11(',cut2,',',-ep,') =',J11(-ep)
+ if (highrank) then
+ write(iout,903) 'B111(',cut2,',',-ep,') =',J111(-ep)
+ end if
end do
+ if (highrank) then
+ write(iout,903) 'B001(',cut2,',',-1,') =',one/24._ki* (K11 - two*m0-four*m1)
+ end if
endif
end if
if (present(cache_flag)) cache_offset = cache_offset + 5
903 format(a5,I2,a1,I2,a4,2(D24.15))
end subroutine add2_rm
- subroutine add1_rm(nleg,c1,cut1,msq,tot1,scale2, &
+ subroutine add1_rm(nleg,c1,cut1,msq,tot1,scale2,e3,e4, &
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_a0
implicit none
integer, intent(in) :: nleg, cut1
- complex(ki), dimension(0:4), intent(in) :: c1
+ complex(ki), dimension(0:15), intent(in) :: c1
real(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(-2:0), intent(out) :: tot1
real(ki), intent(in) :: scale2
+ complex(ki), dimension(4), intent(in) :: e3,e4
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer ::j1
real(ki) :: m0
@case_with_avh@ complex(ki_avh), dimension(0:2) :: vala0
complex(ki) :: ctmp
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
j1=cut1
m0=msq(j1)
1 Format(A3,I2,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ do ep=-2,0
@case_with_ql@ if (present(cache_flag)) then
@case_with_ql@ if (cache_flag) then
@case_with_ql@ ctmp = scalar_cache(ep,cache_index)
@case_with_ql@ else
@case_with_ql@ ctmp = qlI1(real(m0,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ scalar_cache(ep,cache_index) = ctmp
@case_with_ql@ end if
@case_with_ql@ else
@case_with_ql@ ctmp = qlI1(real(m0,ki_ql),real(scale2,ki_ql),ep)
@case_with_ql@ end if
@case_with_ql@ tot1(ep)=c1(0)*ctmp
@case_with_ql@ if (verbosity.ge.2) write(iout,1) &
@case_with_ql@ & 'I1(',cut1,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_with_ql@ enddo
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
@case_wout_ql@ stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ vala0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ vala0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ vala0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_a0(vala0,real(m0,ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = vala0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = vala0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = vala0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_a0(vala0,real(m0,ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot1(ep)= c1(0)*vala0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ & 'I1(',cut1,',',ep,') = (',&
@case_with_avh@ & real(vala0(-ep)),',',aimag(vala0(-ep)),' )'
@case_with_avh@ enddo
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',-2,') = (',0.0_ki,',',0.0_ki,' )'
@case_with_golem@ tot1(-2) = (0.0_ki,0.0_ki)
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = scalar_cache(ep,cache_index)
@case_with_golem@ tot1(ep) = c1(0)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ else
@case_with_golem@ scalar_cache(-2,cache_index) = czip
@case_with_golem@ call gtrunc_rm(1.0_ki, m0)
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = gA0(real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = ctmp
@case_with_golem@ tot1(ep) = c1(0)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ call gtrunc_rm(1.0_ki, m0)
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = gA0(real(m0,ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
-@case_with_golem@ tot1(ep) = c1(0)*ctmp
+@case_with_golem@ !TODO replace number in next line with sdot(e3,e4)
+@case_with_golem@ tot1(ep) = (c1(0) + sdot(e3,e4) * c1(15)*m0/four)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ end if
+@case_with_golem@ if ((c1(14) /= 0) .or. (c1(15) /= 0) ) then
+@case_with_golem@ tot1(0) = tot1(0) + (c1(14) + sdot(e3,e4) * c1(15)/four)*m0*m0/two
+@case_with_golem@ !tot1(0) = tot1(0) + c1(14)*two*gA0i("00",real(m0,ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),-1)
+@case_with_golem@ !do ep=-1,0
+@case_with_golem@ ! ctmp = gA0i("00",real(m0,ki_gol),real(scale2,ki_gol),ep)
+@case_with_golem@ ! tot1(ep) = tot1(ep) - c1(15)*ctmp
+@case_with_golem@ ! if (verbosity.ge.2) write(iout,1) &
+@case_with_golem@ ! & 'A00(',cut1,',',ep,') = (',&
+@case_with_golem@ ! & real(ctmp),',',aimag(ctmp),' )'
+@case_with_golem@ !end do
+@case_with_golem@ !write (*, *) "Golem->", two*c1(14)*gA0i("00",real(m0,ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),-1)
+@case_with_golem@ !write (*, *) "Formula:", one*real(m0,ki_gol)/2.
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot1(-2) = 0
@case_with_lt@ tot1(-1) = 0
@case_with_lt@ tot1( 0) = 0
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ ctmp = A0(real(m0,ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ ctmp = A0(real(m0,ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot1(ep)=c1(0)*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ & 'I1(',cut1,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add1'
stop
endif
if (present(cache_flag)) cache_offset = cache_offset + 1
end subroutine add1_rm
subroutine add4_cm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_d0
implicit none
integer, intent(in) :: cut4,nleg
- complex(ki), dimension(0:4), intent(in) :: c4
+ complex(ki), dimension(0:5), intent(in) :: c4
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
complex(ki), dimension(0:nleg-1), intent(in) :: msq
real(ki), intent(in) :: scale2
complex(ki), dimension(-2:0), intent(out) :: tot4
complex(ki), intent(out) :: tot4r
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer :: i,j1,j2,j3,j4
real(ki) :: V1, V2, V3, V21, V31, V32
complex(ki) :: m0, m1, m2, m3
real(ki), dimension(4):: Vi1, Vi2, Vi3, Vi21, Vi31, Vi32
complex(ki) :: c40
@case_with_avh@ complex(ki_avh), dimension(0:2) :: vald0
complex(ki) :: ctmp
@case_with_golem@ complex(ki), dimension(-2:0) :: d0t
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
j4=cut4/1000
j3=(cut4-j4*1000)/100
j2=(cut4-j4*1000-j3*100)/10
j1=cut4-j4*1000-j3*100-j2*10
m0=msq(j1)
m1=msq(j2)
m2=msq(j3)
m3=msq(j4)
if (allocated(s_mat)) then
! s_mat(i+1, j+1) = (Vi(i,:) - Vi(j,:))**2 - msq(i) - msq(j)
V1 = s_mat(j2+1, j1+1) + msq(j2) + msq(j1)
V2 = s_mat(j3+1, j1+1) + msq(j3) + msq(j1)
V3 = s_mat(j4+1, j1+1) + msq(j4) + msq(j1)
V21 = s_mat(j3+1, j2+1) + msq(j3) + msq(j2)
V31 = s_mat(j4+1, j2+1) + msq(j4) + msq(j2)
V32 = s_mat(j4+1, j3+1) + msq(j4) + msq(j3)
else
Vi1(:)=Vi(j2,:)-Vi(j1,:)
Vi2(:)=Vi(j3,:)-Vi(j1,:)
Vi3(:)=Vi(j1,:)-Vi(j4,:)
Vi21(:)=Vi(j3,:)-Vi(j2,:)
Vi31(:)=Vi(j4,:)-Vi(j2,:)
Vi32(:)=Vi(j4,:)-Vi(j3,:)
V1=sdot(Vi1,Vi1)
V2=sdot(Vi2,Vi2)
V3=sdot(Vi3,Vi3)
V21=sdot(Vi21,Vi21)
V31=sdot(Vi31,Vi31)
V32=sdot(Vi32,Vi32)
end if
c40=c4(0)
tot4r=-c4(4)/six
1 Format(A3,I4,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ print*, "isca=1: QCDLoop does not support complex masses."
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ vald0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ vald0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ vald0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_d0(vald0,&
@case_with_avh@ & cmplx(V1,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V21,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V32,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V3,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V2,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V31,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh),&
@case_with_avh@ & cmplx(real(m2,ki_avh),aimag(m2),ki_avh),&
@case_with_avh@ & cmplx(real(m3,ki_avh),aimag(m3),ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = vald0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = vald0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = vald0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_d0(vald0,&
@case_with_avh@ & cmplx(V1,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V21,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V32,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V3,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V2,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V31,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh),&
@case_with_avh@ & cmplx(real(m2,ki_avh),aimag(m2),ki_avh),&
@case_with_avh@ & cmplx(real(m3,ki_avh),aimag(m3),ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot4(ep)= c40*vald0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ & 'I4(',cut4,',',ep,') = (',real(vald0(-ep)),',',&
@case_with_avh@ & aimag(vald0(-ep)),' )'
@case_with_avh@ enddo
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ call gtrunc_rm(abs(V32)+abs(V31), V1,V2,V3,V21,V32,V31)
@case_with_golem@ call gtrunc_cm(abs(V32)+abs(V31), m0,m1,m2,m3)
@case_with_golem@ do ep=-2,0
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ d0t(ep) = scalar_cache(ep,cache_index)
@case_with_golem@ else
@case_with_golem@ d0t(ep)=gD0C(&
@case_with_golem@ & cmplx(V1,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V21,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V32,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V3,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V2,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V31,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m2,ki_gol),aimag(m2),ki_gol),&
@case_with_golem@ & cmplx(real(m3,ki_gol),aimag(m3),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = d0t(ep)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ d0t(ep)=gD0C(&
@case_with_golem@ & cmplx(V1,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V21,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V32,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V3,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V2,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V31,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m2,ki_gol),aimag(m2),ki_gol),&
@case_with_golem@ & cmplx(real(m3,ki_gol),aimag(m3),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end if
@case_with_golem@ end do
@case_with_golem@ !d0t( 0) = d0t(0) + log(scale2) * (d0t(-1) &
@case_with_golem@ ! & + 0.5_ki * log(scale2) * d0t(-2))
@case_with_golem@ !d0t(-1) = d0t(-1) + log(scale2) * d0t(-2)
@case_with_golem@ if (verbosity.ge.2) then
@case_with_golem@ do ep=-2,0
@case_with_golem@ write(iout,1) 'I4(',cut4,',',ep,&
@case_with_golem@ & ') = (',real(d0t(ep)),',',aimag(d0t(ep)),' )'
@case_with_golem@ end do
@case_with_golem@ end if
@case_with_golem@ tot4(:) = d0t(:) * c40
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot4(-2) = 0
@case_with_lt@ tot4(-1) = 0
@case_with_lt@ tot4(0) = 0
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(V32)+abs(V31), V1,V2,V3,V21,V32,V31)
@case_with_lt@ call gtrunc_cm(abs(V32)+abs(V31), m0,m1,m2,m3)
@case_with_lt@ ctmp=D0C(&
@case_with_lt@ & cmplx(V1,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V21,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V32,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V3,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V2,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V31,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m2,ki_lt),aimag(m2),ki_lt),&
@case_with_lt@ & cmplx(real(m3,ki_lt),aimag(m3),ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(V32)+abs(V31), V1,V2,V3,V21,V32,V31)
@case_with_lt@ call gtrunc_cm(abs(V32)+abs(V31), m0,m1,m2,m3)
@case_with_lt@ ctmp=D0C(&
@case_with_lt@ & cmplx(V1,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V21,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V32,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V3,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V2,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V31,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m2,ki_lt),aimag(m2),ki_lt),&
@case_with_lt@ & cmplx(real(m3,ki_lt),aimag(m3),ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot4(ep)=c40*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ & 'I4(',cut4,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add4'
stop
endif
if (present(cache_flag)) cache_offset = cache_offset + 1
tot4(0)=tot4(0) + tot4r
end subroutine add4_cm
subroutine add3_cm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_c0
implicit none
integer, intent(in) :: nleg, cut3
- complex(ki), dimension(0:9), intent(in) :: c3
+ complex(ki), dimension(0:14), intent(in) :: c3
real(ki), dimension(0:nleg-1,4) ::Vi
complex(ki), dimension(0:nleg-1):: msq
complex(ki), dimension(-2:0), intent(out) :: tot3
complex(ki), intent(out) :: tot3r
real(ki), intent(in) :: scale2
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer :: i,j1,j2,j3
real(ki) :: V1, V2, V3
complex(ki) :: m0, m1, m2
real(ki), dimension(4):: Vi1, Vi2, Vi3
- complex(ki) :: c30
+ complex(ki) :: c30, c314
+ logical :: highrank
@case_with_avh@ complex(ki_avh), dimension(0:2) :: valc0
complex(ki) :: ctmp
-@case_with_golem@ complex(ki), dimension(-2:0) :: c0t
+@case_with_golem@ complex(ki), dimension(-2:0) :: c0t, c0000t
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
- notfirsti=.true.
endif
j3=cut3/100
j2=(cut3-j3*100)/10
j1=cut3-j3*100-j2*10
m0=msq(j1)
m1=msq(j2)
m2=msq(j3)
if (allocated(s_mat)) then
! s_mat(i+1, j+1) = (Vi(i,:) - Vi(j,:))**2 - msq(i) - msq(j)
V1 = s_mat(j2+1, j1+1) + msq(j2) + msq(j1)
V2 = s_mat(j3+1, j2+1) + msq(j3) + msq(j2)
V3 = s_mat(j3+1, j1+1) + msq(j3) + msq(j1)
else
Vi1(:)=Vi(j2,:)-Vi(j1,:)
Vi2(:)=Vi(j3,:)-Vi(j2,:)
Vi3(:)=Vi(j1,:)-Vi(j3,:)
V1=sdot(Vi1,Vi1)
V2=sdot(Vi2,Vi2)
V3=sdot(Vi3,Vi3)
end if
c30=c3(0)
+ c314=c3(14)
+ highrank=(c314 /= 0._ki)
tot3r=+c3(7)/two
1 Format(A3,I3,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ print*, "isca=1: QCDLoop does not support complex masses."
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ valc0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ valc0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ valc0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_c0(valc0,&
@case_with_avh@ & cmplx(V1,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V2,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V3,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh),&
@case_with_avh@ & cmplx(real(m2,ki_avh),aimag(m2),ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = valc0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = valc0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = valc0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_c0(valc0,&
@case_with_avh@ & cmplx(V1,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V2,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(V3,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh),&
@case_with_avh@ & cmplx(real(m2,ki_avh),aimag(m2),ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot3(ep)= c30*valc0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ &'I3(',cut3,',',ep,') = (',real(valc0(-ep)),',',aimag(valc0(-ep)),' )'
@case_with_avh@ enddo
+@case_with_avh@ if (highrank) then
+@case_with_avh@ print*, "Rank N+1 not yet implemented for isca=2."
+@case_with_avh@ stop
+@case_with_avh@ end if
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ call gtrunc_rm(abs(V1)+abs(V2)+abs(V3), V1,V2,V3)
@case_with_golem@ call gtrunc_cm(abs(V1)+abs(V2)+abs(V3), m0,m1,m2)
+@case_with_golem@ c0000t(:)=0
@case_with_golem@ do ep=-2,0
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ c0t(ep) = scalar_cache(ep,cache_index)
@case_with_golem@ else
@case_with_golem@ c0t(ep)=gC0C(&
@case_with_golem@ & cmplx(V1,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V2,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V3,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m2,ki_gol),aimag(m2),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = c0t(ep)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ c0t(ep)=gC0C(&
@case_with_golem@ & cmplx(V1,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V2,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(V3,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m2,ki_gol),aimag(m2),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end if
@case_with_golem@ end do
+@case_with_golem@ !if (highrank) then
+@case_with_golem@ ! do ep=-2,-1
+@case_with_golem@ ! c0000t(ep)=gC0iC("0000",&
+@case_with_golem@ ! & cmplx(V1,0.0_ki_gol,ki_gol), &
+@case_with_golem@ ! & cmplx(V2,0.0_ki_gol,ki_gol), &
+@case_with_golem@ ! & cmplx(V3,0.0_ki_gol,ki_gol), &
+@case_with_golem@ ! & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ ! & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
+@case_with_golem@ ! & cmplx(real(m2,ki_gol),aimag(m2),ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),ep)
+@case_with_golem@ ! end do
+@case_with_golem@ !end if
@case_with_golem@ !c0t( 0) = c0t(0) + log(scale2) * (c0t(-1) &
@case_with_golem@ ! & + 0.5_ki * log(scale2) * c0t(-2))
@case_with_golem@ !c0t(-1) = c0t(-1) + log(scale2) * c0t(-2)
@case_with_golem@ do ep=-2,0
@case_with_golem@ if (verbosity.ge.2) write(iout,1) 'I3(',cut3,',',ep,&
@case_with_golem@ & ') = (',real(c0t(ep)),',',aimag(c0t(ep)),' )'
@case_with_golem@ end do
@case_with_golem@ tot3(:) = c0t(:) * c30
+@case_with_golem@ if (highrank) then
+@case_with_golem@ tot3(0) = tot3(0) + c314/six*((V1+V2+V3)/four-m0-m1-m2)
+@case_with_golem@ !tot3(0) = tot3(0) + c314 * four * (c0000t(-2) - c0000t(-1))
+@case_with_golem@ !tot3(-1) = tot3(-1) + c314 * four * c0000t(-2)
+@case_with_golem@ !write (*, *) "C3(14) Golem:", (c0000t(-2) - c0000t(-1)) * four
+@case_with_golem@ !write (*, *) "C3(14) Formula:", &
+@case_with_golem@ ! one/6.*(0.25*(V1+V2+V3)-m0-m1-m2)
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot3(-2) = 0
@case_with_lt@ tot3(-1) = 0
@case_with_lt@ tot3(0) = 0
@case_with_lt@ call gtrunc_rm(abs(V1)+abs(V2)+abs(V3), V1,V2,V3)
@case_with_lt@ call gtrunc_cm(abs(V1)+abs(V2)+abs(V3), m0,m1,m2)
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ ctmp=C0C(&
@case_with_lt@ & cmplx(V1,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V2,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V3,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m2,ki_lt),aimag(m2),ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ ctmp=C0C(&
@case_with_lt@ & cmplx(V1,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V2,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(V3,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m2,ki_lt),aimag(m2),ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot3(ep)=c30*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ &'I3(',cut3,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
+@case_with_lt@ if (highrank) then
+@case_with_lt@ print*, "Rank N+1 not yet implemented for isca=4."
+@case_with_lt@ stop
+@case_with_lt@ end if
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add3'
stop
endif
tot3(0)=tot3(0) + tot3r
if (present(cache_flag)) cache_offset = cache_offset + 1
end subroutine add3_cm
subroutine add2_cm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_b11
implicit none
integer, intent(in) :: nleg, cut2
- complex(ki), dimension(0:9), intent(in) :: c2
+ complex(ki), dimension(0:19), intent(in) :: c2
real(ki), dimension(4), intent(in) :: k1, k2
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(-2:0), intent(out) :: tot2
complex(ki), intent(out) :: tot2r
real(ki), intent(in) :: scale2
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer :: i1,i2
real(ki) :: K11, K12
complex(ki) :: B06
complex(ki) :: m0, m1
integer :: ep, cache_index
- complex(ki), dimension(-2:0) :: J0, J1, J00, J01, J11
+ complex(ki), dimension(-2:0) :: J0, J1, J00, J01, J11, J111, J001
+ logical :: highrank
@case_with_avh@ complex(ki_avh), dimension(0:2) :: scf2, scf1, scf0, scf
@case_with_avh@ complex(ki) :: xbb, xb0, xb00
@case_with_avh@ real(ki) :: bkv
@case_with_avh@ integer :: i
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
i2=cut2/10
i1=cut2-i2*10
m0=msq(i1)
m1=msq(i2)
if (allocated(s_mat)) then
K11 = s_mat(i2+1, i1+1) + msq(i1) + msq(i2)
else
K11 = sdot(K1,K1)
end if
K12=sdot(K1,K2)
B06=-(K11-three*(m0+m1))/six
tot2r= + B06*c2(9)
+ J001(:)=0
+ J111(:)=0
+ highrank = ((c2(10) /= 0._ki) .or. (c2(13)/=0._ki))
+
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ print*, "isca=1: QCDLoop does not support complex masses."
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
stop
elseif (isca.eq.2) then
@case_with_avh@ xbb=c2(0)
@case_with_avh@ xb0=c2(1)
@case_with_avh@ xb00=c2(2)
@case_with_avh@ bkv=K12
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ scf(:) = scalar_cache(:,cache_index+0)
@case_with_avh@ scf0(:) = scalar_cache(:,cache_index+1)
@case_with_avh@ scf1(:) = scalar_cache(:,cache_index+2)
@case_with_avh@ scf2(:) = scalar_cache(:,cache_index+3)
@case_with_avh@ else
@case_with_avh@ call olo_b11(scf2,scf0,scf1,scf,&
@case_with_avh@ & cmplx(K11,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh))
@case_with_avh@ scalar_cache(:,cache_index+0) = scf(:)
@case_with_avh@ scalar_cache(:,cache_index+1) = scf0(:)
@case_with_avh@ scalar_cache(:,cache_index+2) = scf1(:)
@case_with_avh@ scalar_cache(:,cache_index+3) = scf2(:)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_b11(scf2,scf0,scf1,scf,&
@case_with_avh@ & cmplx(K11,0.0_ki_avh,ki_avh), &
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh),&
@case_with_avh@ & cmplx(real(m1,ki_avh),aimag(m1),ki_avh))
@case_with_avh@ end if
@case_with_avh@ tot2(0)=xbb*scf(0)+xb0*bkv*scf1(0)+xb00*bkv*bkv*scf2(0)
@case_with_avh@ tot2(0)=tot2(0)+ B06*c2(9)
@case_with_avh@ tot2(-1)=xbb*scf(1)+xb0*bkv*scf1(1)+xb00*bkv*bkv*scf2(1)
@case_with_avh@ tot2(-2)=xbb*scf(2)+xb0*bkv*scf1(2)+xb00*bkv*bkv*scf2(2)
@case_with_avh@ if (verbosity.ge.2) then
@case_with_avh@ do i=0,2
@case_with_avh@ write(iout,903) 'B_0 (',cut2,',',-i,') = ',scf(i)
@case_with_avh@ write(iout,903) 'B_1 (',cut2,',',-i,') =',scf1(i)
@case_with_avh@ write(iout,903) 'B_11(',cut2,',',-i,') =',scf2(i)
@case_with_avh@ enddo
@case_with_avh@ endif
+@case_with_avh@ if (highrank) then
+@case_with_avh@ print*, "Rank N+1 not yet implemented for isca=2."
+@case_with_avh@ stop
+@case_with_avh@ end if
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ J0(:) = scalar_cache(:,cache_index+0)
@case_with_golem@ J1(:) = scalar_cache(:,cache_index+1)
@case_with_golem@ J01(:) = scalar_cache(:,cache_index+2)
@case_with_golem@ J11(:) = scalar_cache(:,cache_index+3)
@case_with_golem@ J00(:) = scalar_cache(:,cache_index+4)
@case_with_golem@ else
@case_with_golem@ call gtrunc_rm(abs(K11)+1.0_ki, K11)
@case_with_golem@ call gtrunc_cm(abs(K11)+1.0_ki, m0,m1)
@case_with_golem@ do ep=-2,0
@case_with_golem@ J00(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J11(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J01(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J0(ep) = gA0C(&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J1(ep) = gA0C(&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end do
@case_with_golem@ scalar_cache(:,cache_index+0) = J0(:)
@case_with_golem@ scalar_cache(:,cache_index+1) = J1(:)
@case_with_golem@ scalar_cache(:,cache_index+2) = J01(:)
@case_with_golem@ scalar_cache(:,cache_index+3) = J11(:)
@case_with_golem@ scalar_cache(:,cache_index+4) = J00(:)
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ call gtrunc_rm(abs(K11)+1.0_ki, K11)
@case_with_golem@ call gtrunc_cm(abs(K11)+1.0_ki, m0,m1)
@case_with_golem@ do ep=-2,0
@case_with_golem@ J00(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J11(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J01(ep)= gB0C(&
@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J0(ep) = gA0C(&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ J1(ep) = gA0C(&
@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ end do
@case_with_golem@ end if
+@case_with_golem@ if (highrank) then
+@case_with_golem@ do ep=-2,0
+@case_with_golem@ J001(ep) = gB0iC("001",&
+@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
+@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
+@case_with_golem@ & real(scale2,ki_gol),ep)
+@case_with_golem@ J111(ep) = gB0iC("111",&
+@case_with_golem@ & cmplx(K11,0.0_ki_gol,ki_gol), &
+@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ & cmplx(real(m1,ki_gol),aimag(m1),ki_gol),&
+@case_with_golem@ & real(scale2,ki_gol),ep)
+@case_with_golem@ end do
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ J00(:) = 0.0_ki_lt
@case_with_lt@ J11(:) = 0.0_ki_lt
@case_with_lt@ J0(:) = 0.0_ki_lt
@case_with_lt@ J1(:) = 0.0_ki_lt
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ J0(:) = scalar_cache(:,cache_index+0)
@case_with_lt@ J1(:) = scalar_cache(:,cache_index+1)
@case_with_lt@ J01(:) = scalar_cache(:,cache_index+2)
@case_with_lt@ J11(:) = scalar_cache(:,cache_index+3)
@case_with_lt@ J00(:) = scalar_cache(:,cache_index+4)
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(K11)+1.0_ki, K11)
@case_with_lt@ call gtrunc_cm(abs(K11)+1.0_ki, m0,m1)
@case_with_lt@ J00(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ J11(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ J01(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ J0(ep) = A0C(&
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ J1(ep) = A0C(&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ scalar_cache(:,cache_index+0) = J0(:)
@case_with_lt@ scalar_cache(:,cache_index+1) = J1(:)
@case_with_lt@ scalar_cache(:,cache_index+2) = J01(:)
@case_with_lt@ scalar_cache(:,cache_index+3) = J11(:)
@case_with_lt@ scalar_cache(:,cache_index+4) = J00(:)
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ call gtrunc_rm(abs(K11)+1.0_ki, K11)
@case_with_lt@ call gtrunc_cm(abs(K11)+1.0_ki, m0,m1)
@case_with_lt@ J00(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ J11(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ J01(ep) = B0C(&
@case_with_lt@ & cmplx(K11,0.0_ki_lt,ki_lt), &
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt),&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ J0(ep) = A0C(&
@case_with_lt@ & cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ J1(ep) = A0C(&
@case_with_lt@ & cmplx(real(m1,ki_lt),aimag(m1),ki_lt))
@case_with_lt@ end if
+@case_with_lt@ if (highrank) then
+@case_with_lt@ print*, "Rank N+1 not yet implemented for isca=4."
+@case_with_lt@ stop
+@case_with_lt@ end if
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add2'
stop
endif
if (isca.eq.1 .or. isca.eq.3 .or. isca.eq.4) then
if (abs(K11).gt.zip1) then
do ep=-2,0
tot2(ep)=-(K12*(two*K12*(m0 - m1)*c2(2) + &
& K11*(-three*c2(1) + two*K12*c2(2)))*J0(ep))/(six*K11**2) &
& + ((two*K12**2*(m0 - m1)**2*c2(2) + &
& K11*K12*(-three*m0*c2(1) + three*m1*c2(1) + &
& two*K12*m0*c2(2) - four*K12*m1*c2(2)) + &
& K11**2*(6*c2(0) + K12*(-three*c2(1) + two*K12*c2(2))))* &
& J01(ep))/(six*K11**2) + &
& (K12*(two*K12*(m0 - m1)*c2(2) + &
& K11*(-three*c2(1) + four*K12*c2(2)))*J1(ep))/(six*K11**2)
enddo
tot2(0)=tot2(0)+(K12**2*c2(2))/18.0_ki &
& - (K12**2*m0*c2(2))/(six*K11) - &
& (K12**2*m1*c2(2))/(six*K11) + B06*c2(9)
else
if (m1.eq.m0) then
do ep=-2,0
tot2(ep)=(c2(0) + (K12*(-three*c2(1) &
& + two*K12*c2(2)))/six)*J00(ep)
enddo
tot2(0)=tot2(0)+B06*c2(9)
else
do ep=-2,0
tot2(ep)=(K12*m0**2*(-three*m0*c2(1) + three*m1*c2(1) &
& + two*K12*m0*c2(2))* &
& J00(ep))/(six*(m0 - m1)**3) + c2(0)*J01(ep) - &
& (K12*m1*(m0*m1*(9*c2(1) - 6*K12*c2(2)) - &
& 6*m0**2*(c2(1) - K12*c2(2)) + &
& m1**2*(-three*c2(1) + two*K12*c2(2)))*J11(ep))/ &
& (six*(m0 - m1)**3)
enddo
tot2(0)=tot2(0) + (-three*K12*m0*c2(1))/(four*(m0 - m1)) + &
& (K12*m1*c2(1))/(four*m0 - four*m1) + &
& (11.0_ki*K12**2*m0**2*c2(2))/(18.0_ki*(m0 - m1)**2) - &
& (7.0_ki*K12**2*m0*m1*c2(2))/(18.0_ki*(m0 - m1)**2) + &
& (K12**2*m1**2*c2(2))/(9.0_ki*(m0 - m1)**2) + B06*c2(9)
endif
endif
+ if (highrank) then
+ !tot2(0) = tot2(0) + c2(13)*(K12**3)*J111(0) + c2(10)*two*K12*J001(-1)
+ tot2(0) = tot2(0) + c2(13)*(K12**3)*J111(0) + c2(10)/12.0_ki* K12 * &
+ & (K11 - two*m0-four*m1)
+ tot2(-1) = tot2(-1) + c2(13)*(K12**3)*J111(-1)
+ tot2(-2) = tot2(-2) + c2(13)*(K12**3)*J111(-2)
+ end if
if (verbosity.ge.2) then
do ep=0,2
write(iout,903) 'B0 (',cut2,',',-ep,') = ',J0(-ep)
write(iout,903) 'B1 (',cut2,',',-ep,') =',J1(-ep)
write(iout,903) 'B00(',cut2,',',-ep,') =',J00(-ep)
write(iout,903) 'B11(',cut2,',',-ep,') =',J11(-ep)
+ write(iout,903) 'B111(',cut2,',',-ep,') =',J111(-ep)
end do
+ write(iout,903) 'B001(',cut2,',',-1,') =',J001(-1)
+ write(iout,903) 'B001(',cut2,',',-1,') =',one/24._ki* (K11 - two*m0-four*m1)
endif
end if
if (present(cache_flag)) cache_offset = cache_offset + 5
903 format(a5,I2,a1,I2,a4,2(D24.15))
end subroutine add2_cm
- subroutine add1_cm(nleg,c1,cut1,msq,tot1,scale2,&
+ subroutine add1_cm(nleg,c1,cut1,msq,tot1,scale2,e3,e4,&
cache_flag, cache_offset, scalar_cache)
@case_with_avh@ use avh_olo, only: olo_a0
implicit none
integer, intent(in) :: nleg, cut1
- complex(ki), dimension(0:4), intent(in) :: c1
+ complex(ki), dimension(0:15), intent(in) :: c1
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(-2:0), intent(out) :: tot1
real(ki), intent(in) :: scale2
+ complex(ki), dimension(4), intent(in) :: e3,e4
logical, intent(in), optional :: cache_flag
integer, intent(inout), optional :: cache_offset
complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
integer ::j1
complex(ki) :: m0
@case_with_avh@ complex(ki_avh), dimension(0:2) :: vala0
complex(ki) :: ctmp
integer :: ep, cache_index
if (notfirsti.eqv.(.false.)) then
if (isca .eq. 2) then
@case_with_avh@ call avh_olo_mu_set(real(sqrt(scale2),ki_avh))
elseif (isca .eq. 4) then
@case_with_lt@ call setmudim(real(scale2, ki_lt))
endif
notfirsti=.true.
endif
j1=cut1
m0=msq(j1)
1 Format(A3,I2,A1,I2,A5,D24.15,A1,D24.15,A3)
if (present(cache_flag)) cache_index = lbound(scalar_cache,2)+cache_offset
if (isca.eq.1) then
@case_with_ql@ print*, "isca=1: QCDLoop does not support complex masses."
@case_wout_ql@ print*, "isca=1: QCDLoop not available"
stop
elseif (isca.eq.2) then
@case_with_avh@ if (present(cache_flag)) then
@case_with_avh@ if (cache_flag) then
@case_with_avh@ vala0(0) = scalar_cache( 0,cache_index)
@case_with_avh@ vala0(1) = scalar_cache(-1,cache_index)
@case_with_avh@ vala0(2) = scalar_cache(-2,cache_index)
@case_with_avh@ else
@case_with_avh@ call olo_a0(vala0,&
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh))
@case_with_avh@ scalar_cache( 0,cache_index) = vala0(0)
@case_with_avh@ scalar_cache(-1,cache_index) = vala0(1)
@case_with_avh@ scalar_cache(-2,cache_index) = vala0(2)
@case_with_avh@ end if
@case_with_avh@ else
@case_with_avh@ call olo_a0(vala0,&
@case_with_avh@ & cmplx(real(m0,ki_avh),aimag(m0),ki_avh))
@case_with_avh@ end if
@case_with_avh@ do ep=-2,0
@case_with_avh@ tot1(ep)= c1(0)*vala0(-ep)
@case_with_avh@ if (verbosity.ge.2) write(iout,1) &
@case_with_avh@ & 'I1(',cut1,',',ep,') = (',real(vala0(-ep)),',',&
@case_with_avh@ & aimag(vala0(-ep)),' )'
@case_with_avh@ enddo
+@case_with_avh@ if (c1(14) /= 0) then
+@case_with_avh@ print*, "Rank N+1 not yet implemented for isca=1."
+@case_with_avh@ stop
+@case_with_avh@ end if
@case_wout_avh@ print*, "isca=2: OneLOop not available"
@case_wout_avh@ stop
elseif (isca.eq.3) then
@case_with_golem@ tot1(-2) = (0.0_ki,0.0_ki)
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',-2,') = (',0.0_ki,',',0.0_ki,' )'
@case_with_golem@ if (present(cache_flag)) then
@case_with_golem@ if (cache_flag) then
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = scalar_cache(ep,cache_index)
@case_with_golem@ tot1(ep) = c1(0)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ else
@case_with_golem@ scalar_cache(-2,cache_index) = czip
@case_with_golem@ call gtrunc_cm(1.0_ki, m0)
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = gA0C(&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
@case_with_golem@ scalar_cache(ep,cache_index) = ctmp
@case_with_golem@ tot1(ep) = c1(0)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ end if
@case_with_golem@ else
@case_with_golem@ call gtrunc_cm(1.0_ki, m0)
@case_with_golem@ do ep=-1,0
@case_with_golem@ ctmp = gA0C(&
@case_with_golem@ & cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
@case_with_golem@ & real(scale2,ki_gol),ep)
-@case_with_golem@ tot1(ep) = c1(0)*ctmp
+@case_with_golem@ !TODO replace number in next line with sdot(e3,e4)
+@case_with_golem@ tot1(ep) = (c1(0) + sdot(e3,e4)* c1(15)*m0/four)*ctmp
@case_with_golem@ if (verbosity.ge.2) write(iout,1) &
@case_with_golem@ & 'I1(',cut1,',',ep,') = (',&
@case_with_golem@ & real(ctmp),',',aimag(ctmp),' )'
@case_with_golem@ enddo
@case_with_golem@ end if
+@case_with_golem@ if ((c1(14) /= 0) .or. (c1(15) /= 0) ) then
+@case_with_golem@ tot1(0) = tot1(0) + (c1(14) + sdot(e3,e4) * c1(15)/four)*m0*m0/two
+@case_with_golem@ !tot1(0) = tot1(0) + c1(14)*two*gA0iC("00",cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),-1)
+@case_with_golem@ ! do ep=-1,0
+@case_with_golem@ ! ctmp = gA0iC("00",cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),ep)
+@case_with_golem@ ! tot1(ep) = tot1(ep) - c1(15)*ctmp
+@case_with_golem@ ! if (verbosity.ge.2) write(iout,1) &
+@case_with_golem@ ! & 'A00(',cut1,',',ep,') = (',&
+@case_with_golem@ ! & real(ctmp),',',aimag(ctmp),' )'
+@case_with_golem@ ! end do
+@case_with_golem@ ! write (*, *) "Golem->", two*gA0iC("00",cmplx(real(m0,ki_gol),aimag(m0),ki_gol),&
+@case_with_golem@ ! & real(scale2,ki_gol),-1)
+@case_with_golem@ ! write (*, *) "Formula:", one*cmplx(real(m0,ki_gol),aimag(m0),ki_gol)**2/two
+@case_with_golem@ end if
@case_wout_golem@ print*, "isca=3: Golem95 not available"
@case_wout_golem@ stop
elseif (isca.eq.4) then
@case_with_lt@ tot1(-2) = 0
@case_with_lt@ tot1(-1) = 0
@case_with_lt@ tot1(0) = 0
@case_with_lt@ ep = -dim(0, int(getlambda()))
@case_with_lt@ if (present(cache_flag)) then
@case_with_lt@ if (cache_flag) then
@case_with_lt@ ctmp = scalar_cache(ep,cache_index)
@case_with_lt@ else
@case_with_lt@ ctmp = A0C(cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ scalar_cache(ep,cache_index) = ctmp
@case_with_lt@ end if
@case_with_lt@ else
@case_with_lt@ ctmp = A0C(cmplx(real(m0,ki_lt),aimag(m0),ki_lt))
@case_with_lt@ end if
@case_with_lt@ tot1(ep)=c1(0)*ctmp
@case_with_lt@ if (verbosity.ge.2) write(iout,1) &
@case_with_lt@ & 'I1(',cut1,',',ep,') = (',real(ctmp),',',aimag(ctmp),' )'
+@case_with_lt@ if (c(14)/= 0.0_ki) then
+@case_with_lt@ print*, "Rank N+1 not yet implemented for isca=4."
+@case_with_lt@ stop
+@case_with_lt@ end if
@case_wout_lt@ print*, "isca=4: LoopTools not available"
@case_wout_lt@ stop
else
print*, 'error in add1'
stop
endif
if (present(cache_flag)) cache_offset = cache_offset + 1
end subroutine add1_cm
-@case_with_golem@function gA0(m0,mu2,ep)
-@case_with_golem@ implicit none
-@case_with_golem@ real(ki_gol), intent(in) :: m0, mu2
-@case_with_golem@ integer, intent(in) :: ep
-@case_with_golem@ complex(ki_gol) :: gA0
-@case_with_golem@ if(ep.eq.(-2) .or. m0.eq.0.0_ki_gol) then
-@case_with_golem@ gA0 = (0.0_ki_gol, 0.0_ki_gol)
-@case_with_golem@ elseif(ep.eq.(-1)) then
-@case_with_golem@ gA0 = m0 * gB0(0.0_ki_gol,m0,m0,mu2,-1)
-@case_with_golem@ else
-@case_with_golem@ gA0 = m0 * (gB0(0.0_ki_gol,m0,m0,mu2,0) &
-@case_with_golem@ & + gB0(0.0_ki_gol,m0,m0,mu2,-1))
-@case_with_golem@ end if
-@case_with_golem@end function gA0
-@case_with_golem@function gA0C(m0,mu2,ep)
-@case_with_golem@ implicit none
-@case_with_golem@ complex(ki_gol), intent(in) :: m0
-@case_with_golem@ real(ki_gol), intent(in) :: mu2
-@case_with_golem@ integer, intent(in) :: ep
-@case_with_golem@ complex(ki_gol) :: gA0C
-@case_with_golem@ if(ep.eq.(-2) .or. m0.eq.(0.0_ki_gol,0.0_ki_gol)) then
-@case_with_golem@ gA0C = (0.0_ki_gol, 0.0_ki_gol)
-@case_with_golem@ elseif(ep.eq.(-1)) then
-@case_with_golem@ gA0C = m0 * gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,-1)
-@case_with_golem@ else
-@case_with_golem@ gA0C = m0 * (gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,0) &
-@case_with_golem@ & + gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,-1))
-@case_with_golem@ end if
-@case_with_golem@end function gA0C
+@case_with_golem@!function gA0(m0,mu2,ep)
+@case_with_golem@! implicit none
+@case_with_golem@! real(ki_gol), intent(in) :: m0, mu2
+@case_with_golem@! integer, intent(in) :: ep
+@case_with_golem@! complex(ki_gol) :: gA0
+@case_with_golem@! if(ep.eq.(-2) .or. m0.eq.0.0_ki_gol) then
+@case_with_golem@! gA0 = (0.0_ki_gol, 0.0_ki_gol)
+@case_with_golem@! elseif(ep.eq.(-1)) then
+@case_with_golem@! gA0 = m0 * gB0(0.0_ki_gol,m0,m0,mu2,-1)
+@case_with_golem@! else
+@case_with_golem@! gA0 = m0 * (gB0(0.0_ki_gol,m0,m0,mu2,0) &
+@case_with_golem@! & + gB0(0.0_ki_gol,m0,m0,mu2,-1))
+@case_with_golem@! end if
+@case_with_golem@!end function gA0
+@case_with_golem@!function gA0C(m0,mu2,ep)
+@case_with_golem@! implicit none
+@case_with_golem@! complex(ki_gol), intent(in) :: m0
+@case_with_golem@! real(ki_gol), intent(in) :: mu2
+@case_with_golem@! integer, intent(in) :: ep
+@case_with_golem@! complex(ki_gol) :: gA0C
+@case_with_golem@! if(ep.eq.(-2) .or. m0.eq.(0.0_ki_gol,0.0_ki_gol)) then
+@case_with_golem@! gA0C = (0.0_ki_gol, 0.0_ki_gol)
+@case_with_golem@! elseif(ep.eq.(-1)) then
+@case_with_golem@! gA0C = m0 * gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,-1)
+@case_with_golem@! else
+@case_with_golem@! gA0C = m0 * (gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,0) &
+@case_with_golem@! & + gB0C((0.0_ki_gol,0.0_ki_gol),m0,m0,mu2,-1))
+@case_with_golem@! end if
+@case_with_golem@!end function gA0C
@case_with_golem@pure subroutine gtrunc_rm(ref,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10)
@case_with_golem@ implicit none
@case_with_golem@ real(ki), intent(in) :: ref
@case_with_golem@ real(ki), intent(inout), optional :: s1,s2,s3,s4,s5,s6,s7,s8,s9,s10
@case_with_golem@ real(ki), parameter :: small = 1.0E-08_ki
@case_with_golem@ if(present(s1)) then
@case_with_golem@ if(abs(s1/ref) .lt. small) s1 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s2)) then
@case_with_golem@ if(abs(s2/ref) .lt. small) s2 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s3)) then
@case_with_golem@ if(abs(s3/ref) .lt. small) s3 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s4)) then
@case_with_golem@ if(abs(s4/ref) .lt. small) s4 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s5)) then
@case_with_golem@ if(abs(s5/ref) .lt. small) s5 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s6)) then
@case_with_golem@ if(abs(s6/ref) .lt. small) s6 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s7)) then
@case_with_golem@ if(abs(s7/ref) .lt. small) s7 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s8)) then
@case_with_golem@ if(abs(s8/ref) .lt. small) s8 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s9)) then
@case_with_golem@ if(abs(s9/ref) .lt. small) s9 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@ if(present(s10)) then
@case_with_golem@ if(abs(s10/ref) .lt. small) s10 = 0.0_ki
@case_with_golem@ end if
@case_with_golem@end subroutine gtrunc_rm
@case_with_golem@pure subroutine gtrunc_cm(ref,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10)
@case_with_golem@ implicit none
@case_with_golem@ real(ki), intent(in) :: ref
@case_with_golem@ complex(ki), intent(inout), optional :: s1,s2,s3,s4,s5,s6,s7,s8,s9,s10
@case_with_golem@ real(ki), parameter :: small = 1.0E-08_ki
@case_with_golem@ if(present(s1)) then
@case_with_golem@ if(abs(s1/ref) .lt. small) s1 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s2)) then
@case_with_golem@ if(abs(s2/ref) .lt. small) s2 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s3)) then
@case_with_golem@ if(abs(s3/ref) .lt. small) s3 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s4)) then
@case_with_golem@ if(abs(s4/ref) .lt. small) s4 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s5)) then
@case_with_golem@ if(abs(s5/ref) .lt. small) s5 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s6)) then
@case_with_golem@ if(abs(s6/ref) .lt. small) s6 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s7)) then
@case_with_golem@ if(abs(s7/ref) .lt. small) s7 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s8)) then
@case_with_golem@ if(abs(s8/ref) .lt. small) s8 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s9)) then
@case_with_golem@ if(abs(s9/ref) .lt. small) s9 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@ if(present(s10)) then
@case_with_golem@ if(abs(s10/ref) .lt. small) s10 = (0.0_ki, 0.0_ki)
@case_with_golem@ end if
@case_with_golem@end subroutine gtrunc_cm
end module madds
diff --git a/samurai-2.1.1/mfunctions.f90 b/samurai-2.1.1/mfunctions.f90
index 9ef2b78..d258572 100644
--- a/samurai-2.1.1/mfunctions.f90
+++ b/samurai-2.1.1/mfunctions.f90
@@ -1,209 +1,257 @@
module mfunctions
use precision
use constants
implicit none
private
interface sdot
module procedure sdot_rr
module procedure sdot_rc
module procedure sdot_cr
module procedure sdot_cc
end interface sdot
interface denevalmu2
module procedure denevalmu2_rr
module procedure denevalmu2_cr
module procedure denevalmu2_rm
module procedure denevalmu2_cm
end interface denevalmu2
- public :: sdot, denevalmu2, effe, poly1, poly2, poly3, poly4
+ public :: sdot, denevalmu2, effe,effe2, poly1, poly2, poly3, poly4
contains
pure function sdot_rr(p, q)
implicit none
real(ki), dimension(4), intent(in) :: p, q
real(ki) :: sdot_rr
sdot_rr = p(4)*q(4) - p(1)*q(1) - p(2)*q(2) - p(3)*q(3)
end function sdot_rr
pure function sdot_cc(p, q)
implicit none
complex(ki), dimension(4), intent(in) :: p, q
complex(ki) :: sdot_cc
sdot_cc = p(4)*q(4) - p(1)*q(1) - p(2)*q(2) - p(3)*q(3)
end function sdot_cc
pure function sdot_rc(p, q)
implicit none
real(ki), dimension(4), intent(in) :: p
complex(ki), dimension(4), intent(in) :: q
complex(ki) :: sdot_rc
sdot_rc = p(4)*q(4) - p(1)*q(1) - p(2)*q(2) - p(3)*q(3)
end function sdot_rc
pure function sdot_cr(p, q)
implicit none
complex(ki), dimension(4), intent(in) :: p
real(ki), dimension(4), intent(in) :: q
complex(ki) :: sdot_cr
sdot_cr = p(4)*q(4) - p(1)*q(1) - p(2)*q(2) - p(3)*q(3)
end function sdot_cr
pure function denevalmu2_cm(nleg,j,q,Vi,msq,mu2)
implicit none
integer, intent(in) :: nleg, j
integer :: i
complex(ki), intent(in) :: q(4)
complex(ki) :: L(4), denevalmu2_cm
complex(ki), intent(in) :: mu2
complex(ki), intent(in) :: msq(0:nleg-1)
real(ki), intent(in) :: Vi(0:nleg-1,4)
do i=1,4
L(i)=q(i)+Vi(j,i)*cone
enddo
denevalmu2_cm=sdot(L,L)-msq(j)-mu2
end function denevalmu2_cm
pure function denevalmu2_rm(nleg,j,q,Vi,msq,mu2)
implicit none
integer, intent(in) :: nleg, j
integer :: i
complex(ki), intent(in) :: q(4)
complex(ki) :: L(4), denevalmu2_rm
complex(ki), intent(in) :: mu2
real(ki), intent(in) :: msq(0:nleg-1)
real(ki), intent(in) :: Vi(0:nleg-1,4)
do i=1,4
L(i)=q(i)+Vi(j,i)*cone
enddo
denevalmu2_rm=sdot(L,L)-msq(j)-mu2*cone
end function denevalmu2_rm
pure function denevalmu2_cr(nleg,j,q,Vi,msq,mu2)
implicit none
integer, intent(in) :: nleg, j
integer :: i
complex(ki), intent(in) :: q(4)
complex(ki) :: L(4), denevalmu2_cr
real(ki), intent(in) :: mu2
complex(ki), intent(in) :: msq(0:nleg-1)
real(ki), intent(in) :: Vi(0:nleg-1,4)
do i=1,4
L(i)=q(i)+Vi(j,i)*cone
enddo
denevalmu2_cr=sdot(L,L)-msq(j)-mu2
end function denevalmu2_cr
pure function denevalmu2_rr(nleg,j,q,Vi,msq,mu2)
implicit none
integer, intent(in) :: nleg, j
integer :: i
complex(ki), intent(in) :: q(4)
complex(ki) :: L(4), denevalmu2_rr
real(ki), intent(in) :: mu2
real(ki), intent(in) :: msq(0:nleg-1)
real(ki), intent(in) :: Vi(0:nleg-1,4)
do i=1,4
L(i)=q(i)+Vi(j,i)*cone
enddo
denevalmu2_rr=sdot(L,L)-msq(j)-mu2*cone
end function denevalmu2_rr
pure function effe(known,nk,ns,m)
implicit none
- complex(ki),intent(in) :: known(10)
+ complex(ki),intent(in) :: known(15)
complex(ki) :: temp, effe
real(ki) :: teta
integer, intent(in) :: nk,ns,m
integer :: k
teta=twopi/ns
temp=czip
do k=0,ns-1
temp=temp+known(k+nk)*&
& (cos(teta*real(m*k, ki))+im*sin(teta*real(m*k, ki)))
enddo
effe=temp/ns
end function effe
+ pure function effe2(known,nk,ns,m)
+ implicit none
+ complex(ki),intent(in) :: known(20)
+ complex(ki) :: temp, effe2
+ real(ki) :: teta
+ integer, intent(in) :: nk,ns,m
+ integer :: k
+ teta=twopi/ns
+ temp=czip
+ do k=0,ns-1
+ temp=temp+known(k+nk)*&
+ & (cos(teta*real(m*k, ki))+im*sin(teta*real(m*k, ki)))
+ enddo
+ effe2=temp/ns
+ end function effe2
+
pure function poly4(c4,pm,mu2,L3,e3,e4)
implicit none
- complex(ki), dimension(0:4), intent(in) :: c4
+ complex(ki), dimension(0:5), intent(in) :: c4
complex(ki), dimension(4), intent(in) :: pm, e3, e4
real(ki), dimension(4), intent(in) :: L3
complex(ki), intent(in) :: mu2
complex(ki) :: poly4
poly4=c4(0) &
& +mu2*(c4(2)+c4(4)*mu2) &
- & +(c4(1)+c4(3)*mu2) &
+ & +(c4(1)+c4(3)*mu2+c4(5)*mu2**2) &
& *(+sdot(pm,e3)*sdot(L3,e4) &
& -sdot(pm,e4)*sdot(L3,e3))
end function poly4
pure function poly3(c3,pm,mu2,e3,e4)
implicit none
- complex(ki), dimension(0:9), intent(in) :: c3
+ complex(ki), dimension(0:14), intent(in) :: c3
complex(ki), dimension(4), intent(in) :: pm, e3, e4
complex(ki), intent(in) :: mu2
complex(ki) :: poly3
complex(ki) :: pme3, pme4
pme3=sdot(pm,e3)
pme4=sdot(pm,e4)
+! poly3=+c3(0) &
+! & +pme3*(c3(1)+pme3*(c3(2)+c3(3)*pme3)) &
+! & +pme4*(c3(4)+pme4*(c3(5)+c3(6)*pme4)) &
+! & +mu2*(c3(7)+c3(8)*pme3+c3(9)*pme4)
+
poly3=+c3(0) &
& +pme3*(c3(1)+pme3*(c3(2)+c3(3)*pme3)) &
& +pme4*(c3(4)+pme4*(c3(5)+c3(6)*pme4)) &
- & +mu2*(c3(7)+c3(8)*pme3+c3(9)*pme4)
+ & +mu2*( c3(7)+c3(8)*pme3+c3(9)*pme4 &
+ & +c3(10)*pme3**2+c3(11)*pme4**2) &
+ & +c3(12)*pme3**4+c3(13)*pme4**4 &
+ & +c3(14)*mu2**2
end function poly3
pure function poly2(c2,pm,mu2,e2,e3,e4)
implicit none
- complex(ki), dimension(0:9), intent(in) :: c2
+ complex(ki), dimension(0:19), intent(in) :: c2
real(ki), dimension(4), intent(in) :: e2
complex(ki), dimension(4), intent(in) :: e3,e4,pm
complex(ki), intent(in) :: mu2
complex(ki) :: poly2
complex(ki) :: pme2, pme3, pme4
pme2=sdot(e2,pm)
pme3=sdot(pm,e3)
pme4=sdot(pm,e4)
+! poly2=+c2(0) &
+! & +pme2*(c2(1)+c2(2)*pme2+c2(7)*pme3+c2(8)*pme4) &
+! & +pme3*(c2(3)+c2(4)*pme3) &
+! & +pme4*(c2(5)+c2(6)*pme4) &
+! & +c2(9)*mu2
+
poly2=+c2(0) &
& +pme2*(c2(1)+c2(2)*pme2+c2(7)*pme3+c2(8)*pme4) &
& +pme3*(c2(3)+c2(4)*pme3) &
& +pme4*(c2(5)+c2(6)*pme4) &
- & +c2(9)*mu2
+ & +c2(9)*mu2 &
+ & +mu2*(c2(10)*pme2+c2(11)*pme3+c2(12)*pme4) &
+ & +c2(13)*pme2**3+c2(14)*pme3**3+c2(15)*pme4**3 &
+ & +pme2**2*(c2(16)*pme3+c2(17)*pme4) &
+ & +pme2*(c2(18)*pme3**2+c2(19)*pme4**2)
+
+
end function poly2
- pure function poly1(c1,pm,e1,e2,e3,e4)
+ pure function poly1(c1,pm,mu2,e1,e2,e3,e4)
implicit none
- complex(ki), dimension(0:4), intent(in) :: c1
+ complex(ki), dimension(0:15), intent(in) :: c1
real(ki), dimension(4), intent(in) :: e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4, pm
+ complex(ki), intent(in) :: mu2
complex(ki) :: poly1
complex(ki) :: pme1,pme2,pme3,pme4
pme1=sdot(e1,pm)
pme2=sdot(e2,pm)
pme3=sdot(pm,e3)
pme4=sdot(pm,e4)
poly1=+c1(0) &
& +c1(1)*pme1 &
& +c1(2)*pme2 &
& +c1(3)*pme3 &
- & +c1(4)*pme4
+ & +c1(4)*pme4 &
+ !Added by HvD
+ & + c1(5)*pme1**2 &
+ & + c1(6)*pme2**2 &
+ & + c1(7)*pme3**2 &
+ & + c1(8)*pme4**2 &
+ & + c1(10)*pme1*pme3 &
+ & + c1(11)*pme1*pme4 &
+ & + c1(12)*pme2*pme3 &
+ & + c1(13)*pme2*pme4 &
+ & + c1(14)*mu2 &
+ & + c1(15)*pme3*pme4
end function poly1
end module mfunctions
diff --git a/samurai-2.1.1/mgetc1.f90 b/samurai-2.1.1/mgetc1.f90
index 6eb9813..2202f37 100644
--- a/samurai-2.1.1/mgetc1.f90
+++ b/samurai-2.1.1/mgetc1.f90
@@ -1,983 +1,1137 @@
module mgetc1
use precision, only: ki
use constants
use options
use mfunctions
use mrestore
implicit none
private
interface getc1
module procedure getc1_rm
module procedure getc1_cm
end interface getc1
public :: getc1
contains
+
+!CM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
subroutine getc1_cm(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
use mglobal, only: G0c, mu2g, MP12, mu2t, resit, denst, mu2test
implicit none
integer, intent(in) :: nleg, rank, cut1
- complex(ki), dimension(0:4), intent(out) :: c1
- complex(ki), dimension(5,4), intent(in) :: q1
+ complex(ki), dimension(0:15), intent(out) :: c1
+ complex(ki), dimension(15,4), intent(in) :: q1
complex(ki), dimension(4), intent(in) :: qt
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
complex(ki), dimension(0:nleg-1), intent(in) :: msq
integer :: i,m,n,j1,i1,i2,i3,i4,i5
integer :: dicut5,dicut4,dicut3,dicut2,diff
- complex(ki), dimension(5) :: dens1,dens2,dens3,dens4,dens5,xneval
- complex(ki), dimension(0:4) :: f1
- complex(ki), dimension(5) :: resi5, resi4, resi3, resi2, known
+ complex(ki), dimension(15) :: dens1,dens2,dens3,dens4,dens5,xneval
+ complex(ki), dimension(0:14) :: f1
+ complex(ki), dimension(15) :: resi5, resi4, resi3, resi2, known
complex(ki) :: dens2t,dens3t,dens4t,dens5t
logical evalres
+ complex(ki), dimension(15) :: mu2vec
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
mu2test(1)=mu2t(1)
-
j1=cut1
resi2(:)=czip
resi3(:)=czip
resi4(:)=czip
resi5(:)=czip
known(:)=czip
xneval(:)=czip
dens1(:)=cone
!--- for lnntest
resit(1)=czip
denst(1)=cone
!--- for simplified sampling
diff = nleg-rank
if (diff.eq.1) then
c1(1)=czip
c1(2)=czip
c1(3)=czip
c1(4)=czip
if (nleg.eq.5) then
resi5(1)=res5(1,mu2g(1))
resit(1)=res5(1,mu2t(1))
goto 11
elseif (nleg.eq.4) then
resi4(1)=Res4(1,q1(1,:),mu2g(1))
resit(1)=Res4(1,qt,mu2t(1))
goto 21
elseif (nleg.eq.3) then
resi3(1)=Res3(1,q1(1,:),mu2g(1))
resit(1)=Res3(1,qt,mu2t(1))
goto 31
elseif (nleg.eq.2) then
resi2(1)=Res2(1,q1(1,:),mu2g(1))
resit(1)=Res2(1,qt,mu2t(1))
goto 41
else
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5(1)=cone
dens5t=cone
evalres=.false.
loop_10: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
&.and.(i.ne.i4).and.(i.ne.i5)) then
if ((i).eq.(j1)) then
dens5(1)=czip
dens5t=czip
evalres=.false.
exit loop_10
else
dens5(1)=dens5(1)*denevalmu2(nleg,i,&
&q1(1,:),Vi,msq,mu2g(1))
dens5t=dens5t*denevalmu2(nleg,i,qt,Vi,msq,&
&mu2t(1))
evalres=.true.
endif
endif
enddo loop_10
if (evalres) then
resi5(1)=resi5(1)+dens5(1)*res5(dicut5,mu2g(1))
resit(1)=resit(1)+dens5(1)*res5(dicut5,mu2t(1))
endif
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
endif
11 continue
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4(1)=cone
dens4t=cone
evalres=.false.
loop_20: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)) then
if (i.eq.j1) then
dens4(1)=czip
dens4t=czip
evalres=.false.
exit loop_20
else
dens4(1)=dens4(1)*denevalmu2(nleg,i,q1(1,:),&
&Vi,msq,mu2g(1))
dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,&
&mu2t(1))
evalres=.true.
endif
endif
enddo loop_20
if (evalres) then
resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q1(1,:),mu2g(1))
resit(1)=resit(1)+dens4t*Res4(dicut4,qt,mu2t(1))
endif
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
21 continue
!---#[ Contributo dei Triple cuts:
dicut3=1
do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3(1)=cone
dens3t=cone
evalres=.false.
loop_30: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
if (i.eq.j1) then
dens3(1)=czip
dens3t=czip
evalres=.false.
exit loop_30
else
dens3(1)=dens3(1)*denevalmu2(nleg,i,q1(1,:),&
&Vi,msq,mu2g(1))
dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_30
if (evalres) then
resi3(1)=resi3(1)+dens3(1)*Res3(dicut3,q1(1,:),mu2g(1))
resit(1)=resit(1)+dens3t*Res3(dicut3,qt,mu2t(1))
endif
dicut3=dicut3+1
enddo
enddo
enddo
!---#] Contributo dei Triple cuts:
31 continue
!---#[ Contributo dei Double cuts:
dicut2=1
do i2=1,nleg-1
do i1=0,i2-1
dens2(1)=cone
dens2t=cone
evalres=.false.
loop_40: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2)) then
if (i.eq.j1) then
dens2(1)=czip
dens2t=czip
evalres=.false.
exit loop_40
else
dens2(1)=dens2(1)*denevalmu2(nleg,i,q1(1,:),&
&Vi,msq,mu2g(1))
dens2t=dens2t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_40
if (evalres) then
resi2(1)=resi2(1)+dens2(1)*Res2(dicut2,q1(1,:),mu2g(1))
resit(1)=resit(1)+dens2t*Res2(dicut2,qt,mu2t(1))
endif
dicut2=dicut2+1
enddo
enddo
!---#] Contributo dei Double cuts:
41 continue
!---
do i=0,nleg-1
if (i.ne.j1) then
dens1(1)=dens1(1)*denevalmu2(nleg,i,q1(1,:),Vi,msq,mu2g(1))
denst(1)=denst(1)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
endif
enddo
xneval(1)=numeval(cut1,q1(1,:),mu2g(1))
if (imeth.eq.'diag') then
known(1)=(xneval(1)-resi5(1)-resi4(1)-resi3(1)-resi2(1))/dens1(1)
elseif (imeth.eq.'tree') then
known(1)=xneval(1)-(resi5(1)+resi4(1)+resi3(1)+resi2(1))/dens1(1)
endif
c1(0) = known(1)
else
!--- Decomposizione standard
if (nleg.eq.5) then
resi5(:)=res5(1,mu2g(1))
resit(1)=res5(1,mu2t(1))
goto 111
elseif (nleg.eq.4) then
- do n=1,5
+ do n=1,15
resi4(n)=Res4(1,q1(n,:),mu2g(1))
enddo
resit(1)=Res4(1,qt,mu2t(1))
goto 121
elseif (nleg.eq.3) then
- do n=1,5
+ do n=1,15
resi3(n)=Res3(1,q1(n,:),mu2g(1))
enddo
resit(1)=Res3(1,qt,mu2t(1))
goto 131
elseif (nleg.eq.2) then
- do n=1,5
+ do n=1,15
resi2(n)=Res2(1,q1(n,:),mu2g(1))
enddo
resit(1)=Res2(1,qt,mu2t(1))
goto 141
else
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5(:)=cone
dens5t=cone
evalres=.false.
loop_110: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
&.and.(i.ne.i4).and.(i.ne.i5)) then
if (i.eq.j1) then
dens5(:)=czip
dens5t=czip
evalres=.false.
exit loop_110
else
- do n=1,5
+ do n=1,15
dens5(n)=dens5(n)*denevalmu2(nleg,i,&
&q1(n,:),Vi,msq,mu2g(1))
enddo
dens5t=dens5t*denevalmu2(nleg,&
&i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_110
if (evalres) then
resi5(:)=resi5(:)+dens5(:)*res5(dicut5,mu2g(1))
resit(1)=resit(1)+dens5t*res5(dicut5,mu2t(1))
endif
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
endif
111 continue
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4(:)=cone
dens4t=cone
evalres=.false.
loop_120: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)) then
if (i.eq.j1) then
dens4(:)=czip
dens4t=czip
evalres=.false.
exit loop_120
else
- do n=1,5
+ do n=1,15
dens4(n)=dens4(n)*denevalmu2(nleg,i,&
&q1(n,:),Vi,msq,mu2g(1))
enddo
dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_120
if (evalres) then
- do n=1,5
+ do n=1,15
resi4(n)=resi4(n)+dens4(n)*&
&Res4(dicut4,q1(n,:),mu2g(1))
enddo
resit(1)=resit(1)+dens4t*Res4(dicut4,qt,mu2t(1))
endif
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
121 continue
!---#[ Contributo dei Triple cuts:
dicut3=1
do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3(:)=cone
dens3t=cone
evalres=.false.
loop_130: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
if (i.eq.j1) then
dens3(:)=czip
dens3t=czip
evalres=.false.
exit loop_130
else
- do n=1,5
+ do n=1,15
dens3(n)=dens3(n)*denevalmu2(nleg,i,q1(n,:),&
&Vi,msq,mu2g(1))
enddo
dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_130
if (evalres) then
- do n=1,5
+ do n=1,15
resi3(n)=resi3(n)+dens3(n)*Res3(dicut3,q1(n,:),mu2g(1))
enddo
resit(1)=resit(1)+dens3t*Res3(dicut3,qt,mu2t(1))
endif
dicut3=dicut3+1
enddo
enddo
enddo
!---#] Contributo dei Triple cuts:
131 continue
!---#[ Contributo dei Double cuts:
dicut2=1
do i2=1,nleg-1
do i1=0,i2-1
dens2(:)=cone
dens2t=cone
evalres=.false.
loop_140: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2)) then
if (i.eq.j1) then
dens2(:)=czip
dens2t=czip
evalres=.false.
exit loop_140
else
- do n=1,5
+ do n=1,15
dens2(n)=dens2(n)*denevalmu2(nleg,i,q1(n,:),&
&Vi,msq,mu2g(1))
enddo
dens2t=dens2t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
evalres=.true.
endif
endif
enddo loop_140
if (evalres) then
- do n=1,5
+ do n=1,15
resi2(n)=resi2(n)+dens2(n)*Res2(dicut2,q1(n,:),mu2g(1))
enddo
resit(1)=resit(1)+dens2t*Res2(dicut2,qt,mu2t(1))
endif
dicut2=dicut2+1
enddo
enddo
!---#] Contributo dei Double cuts:
141 continue
!---
do i=0,nleg-1
if (i.ne.j1) then
- do n=1,5
- dens1(n)=dens1(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2g(1))
+ do n=1,15
+ dens1(n)=dens1(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
enddo
denst(1)=denst(1)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
endif
enddo
- do n=1,5
- xneval(n)=numeval(cut1,q1(n,:),mu2g(1))
+ do n=1,15
+ xneval(n)=numeval(cut1,q1(n,:),mu2vec(n))
enddo
if (imeth.eq.'diag') then
known(:)=(xneval(:)-resi5(:)-resi4(:)-resi3(:)-resi2(:))/dens1(:)
elseif (imeth.eq.'tree') then
known(:)=xneval(:)-(resi5(:)+resi4(:)+resi3(:)+resi2(:))/dens1(:)
endif
do m=0,4
f1(m)=known(m+1)
enddo
!--- Coefficienti
c1(0) = (f1(0)+f1(1))/2.0_ki
c1(1) = (-f1(0)-f1(1)+f1(3)+f1(4))/(2.0_ki*MP12(1))
c1(2) = -(-2.0_ki*f1(0) + f1(3) + f1(4))/(2.0_ki*G0c*MP12(1))
c1(3) = (2.0_ki*f1(0)-2.0_ki*f1(2)-f1(3)+f1(4))/(2.0_ki*G0c*MP12(1))
c1(4) = (f1(0)-f1(2))/MP12(1)
endif
end subroutine getc1_cm
+!------------------CM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!]
- subroutine getc1_rm(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
- use mglobal, only: G0, mu2g, MP12, mu2t, resit, denst, mu2test
- implicit none
- integer, intent(in) :: nleg, rank, cut1
- complex(ki), dimension(0:4), intent(out) :: c1
- complex(ki), dimension(5,4), intent(in) :: q1
- complex(ki), dimension(4), intent(in) :: qt
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- integer :: i,m,n,j1,i1,i2,i3,i4,i5
- integer :: dicut5,dicut4,dicut3,dicut2,diff
- complex(ki), dimension(5) :: dens1,dens2,dens3,dens4,dens5,xneval
- complex(ki), dimension(0:4) :: f1
- complex(ki), dimension(5) :: resi5, resi4, resi3, resi2, known
- complex(ki) :: dens2t,dens3t,dens4t,dens5t
- logical evalres
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
- mu2test(1)=mu2t(1)
- j1=cut1
- resi2(:)=czip
- resi3(:)=czip
- resi4(:)=czip
- resi5(:)=czip
- known(:)=czip
- xneval(:)=czip
- dens1(:)=cone
- !--- for lnntest
- resit(1)=czip
- denst(1)=cone
- !--- for simplified sampling
- diff = nleg-rank
- if (diff.eq.1) then
- c1(1)=czip
- c1(2)=czip
- c1(3)=czip
- c1(4)=czip
-
- if (nleg.eq.5) then
- resi5(1)=res5(1,mu2g(1))
- resit(1)=res5(1,mu2t(1))
- goto 11
- elseif (nleg.eq.4) then
- resi4(1)=Res4(1,q1(1,:),mu2g(1))
- resit(1)=Res4(1,qt,mu2t(1))
- goto 21
- elseif (nleg.eq.3) then
- resi3(1)=Res3(1,q1(1,:),mu2g(1))
- resit(1)=Res3(1,qt,mu2t(1))
- goto 31
- elseif (nleg.eq.2) then
- resi2(1)=Res2(1,q1(1,:),mu2g(1))
- resit(1)=Res2(1,qt,mu2t(1))
- goto 41
- else
- !---#[ Contributo dei pentuple cuts:
- dicut5=1
- do i5=4,nleg-1
- do i4=3,i5-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens5(1)=cone
- dens5t=cone
- evalres=.false.
-
- loop_10: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
- &.and.(i.ne.i4).and.(i.ne.i5)) then
- if ((i).eq.(j1)) then
- dens5(1)=czip
- dens5t=czip
- evalres=.false.
- exit loop_10
- else
- dens5(1)=dens5(1)*denevalmu2(nleg,i,&
- &q1(1,:),Vi,msq,mu2g(1))
- dens5t=dens5t*denevalmu2(nleg,i,qt,Vi,msq,&
- &mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_10
- if (evalres) then
- resi5(1)=resi5(1)+dens5(1)*res5(dicut5,mu2g(1))
- resit(1)=resit(1)+dens5(1)*res5(dicut5,mu2t(1))
- endif
-
- dicut5=dicut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei pentuple cuts:
- endif
- 11 continue
- !---#[ Contributo dei quadruple cuts:
- dicut4=1
- do i4=3,nleg-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens4(1)=cone
- dens4t=cone
- evalres=.false.
-
- loop_20: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.(i.ne.i4)) then
- if (i.eq.j1) then
- dens4(1)=czip
- dens4t=czip
- evalres=.false.
- exit loop_20
- else
- dens4(1)=dens4(1)*denevalmu2(nleg,i,q1(1,:),&
- &Vi,msq,mu2g(1))
- dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,&
- &mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_20
- if (evalres) then
- resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q1(1,:),mu2g(1))
- resit(1)=resit(1)+dens4t*Res4(dicut4,qt,mu2t(1))
- endif
- dicut4=dicut4+1
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei quadruple cuts:
- 21 continue
- !---#[ Contributo dei Triple cuts:
- dicut3=1
- do i3=2,nleg-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens3(1)=cone
- dens3t=cone
- evalres=.false.
-
- loop_30: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
- if (i.eq.j1) then
- dens3(1)=czip
- dens3t=czip
- evalres=.false.
- exit loop_30
- else
- dens3(1)=dens3(1)*denevalmu2(nleg,i,q1(1,:),&
- &Vi,msq,mu2g(1))
- dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_30
- if (evalres) then
- resi3(1)=resi3(1)+dens3(1)*Res3(dicut3,q1(1,:),mu2g(1))
- resit(1)=resit(1)+dens3t*Res3(dicut3,qt,mu2t(1))
- endif
- dicut3=dicut3+1
- enddo
- enddo
- enddo
- !---#] Contributo dei Triple cuts:
- 31 continue
- !---#[ Contributo dei Double cuts:
- dicut2=1
- do i2=1,nleg-1
- do i1=0,i2-1
- dens2(1)=cone
- dens2t=cone
- evalres=.false.
-
- loop_40: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2)) then
- if (i.eq.j1) then
- dens2(1)=czip
- dens2t=czip
- evalres=.false.
- exit loop_40
- else
- dens2(1)=dens2(1)*denevalmu2(nleg,i,q1(1,:),&
- &Vi,msq,mu2g(1))
- dens2t=dens2t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_40
- if (evalres) then
- resi2(1)=resi2(1)+dens2(1)*Res2(dicut2,q1(1,:),mu2g(1))
- resit(1)=resit(1)+dens2t*Res2(dicut2,qt,mu2t(1))
- endif
- dicut2=dicut2+1
- enddo
- enddo
- !---#] Contributo dei Double cuts:
- 41 continue
- !---
- do i=0,nleg-1
- if (i.ne.j1) then
- dens1(1)=dens1(1)*denevalmu2(nleg,i,q1(1,:),Vi,msq,mu2g(1))
- denst(1)=denst(1)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- endif
- enddo
- xneval(1)=numeval(cut1,q1(1,:),mu2g(1))
- if (imeth.eq.'diag') then
- known(1)=(xneval(1)-resi5(1)-resi4(1)-resi3(1)-resi2(1))/dens1(1)
- elseif (imeth.eq.'tree') then
- known(1)=xneval(1)-(resi5(1)+resi4(1)+resi3(1)+resi2(1))/dens1(1)
- endif
- c1(0) = known(1)
- else
- !--- Decomposizione standard
- if (nleg.eq.5) then
- resi5(:)=res5(1,mu2g(1))
- resit(1)=res5(1,mu2t(1))
- goto 111
- elseif (nleg.eq.4) then
- do n=1,5
- resi4(n)=Res4(1,q1(n,:),mu2g(1))
- enddo
- resit(1)=Res4(1,qt,mu2t(1))
- goto 121
- elseif (nleg.eq.3) then
- do n=1,5
- resi3(n)=Res3(1,q1(n,:),mu2g(1))
- enddo
- resit(1)=Res3(1,qt,mu2t(1))
- goto 131
- elseif (nleg.eq.2) then
- do n=1,5
- resi2(n)=Res2(1,q1(n,:),mu2g(1))
- enddo
- resit(1)=Res2(1,qt,mu2t(1))
- goto 141
- else
- !---#[ Contributo dei pentuple cuts:
- dicut5=1
- do i5=4,nleg-1
- do i4=3,i5-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens5(:)=cone
- dens5t=cone
- evalres=.false.
-
- loop_110: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
- &.and.(i.ne.i4).and.(i.ne.i5)) then
- if (i.eq.j1) then
- dens5(:)=czip
- dens5t=czip
- evalres=.false.
- exit loop_110
- else
- do n=1,5
- dens5(n)=dens5(n)*denevalmu2(nleg,i,&
- &q1(n,:),Vi,msq,mu2g(1))
- enddo
- dens5t=dens5t*denevalmu2(nleg,&
- &i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_110
- if (evalres) then
- resi5(:)=resi5(:)+dens5(:)*res5(dicut5,mu2g(1))
- resit(1)=resit(1)+dens5t*res5(dicut5,mu2t(1))
- endif
- dicut5=dicut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei pentuple cuts:
- endif
- 111 continue
- !---#[ Contributo dei quadruple cuts:
- dicut4=1
- do i4=3,nleg-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens4(:)=cone
- dens4t=cone
- evalres=.false.
-
- loop_120: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.(i.ne.i4)) then
- if (i.eq.j1) then
- dens4(:)=czip
- dens4t=czip
- evalres=.false.
- exit loop_120
- else
- do n=1,5
- dens4(n)=dens4(n)*denevalmu2(nleg,i,&
- &q1(n,:),Vi,msq,mu2g(1))
- enddo
- dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_120
- if (evalres) then
- do n=1,5
- resi4(n)=resi4(n)+dens4(n)*&
- &Res4(dicut4,q1(n,:),mu2g(1))
- enddo
- resit(1)=resit(1)+dens4t*Res4(dicut4,qt,mu2t(1))
- endif
- dicut4=dicut4+1
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei quadruple cuts:
- 121 continue
- !---#[ Contributo dei Triple cuts:
- dicut3=1
- do i3=2,nleg-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens3(:)=cone
- dens3t=cone
- evalres=.false.
-
- loop_130: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
- if (i.eq.j1) then
- dens3(:)=czip
- dens3t=czip
- evalres=.false.
- exit loop_130
- else
- do n=1,5
- dens3(n)=dens3(n)*denevalmu2(nleg,i,q1(n,:),&
- &Vi,msq,mu2g(1))
- enddo
- dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_130
- if (evalres) then
- do n=1,5
- resi3(n)=resi3(n)+dens3(n)*Res3(dicut3,q1(n,:),mu2g(1))
- enddo
- resit(1)=resit(1)+dens3t*Res3(dicut3,qt,mu2t(1))
- endif
- dicut3=dicut3+1
- enddo
- enddo
- enddo
- !---#] Contributo dei Triple cuts:
- 131 continue
- !---#[ Contributo dei Double cuts:
- dicut2=1
- do i2=1,nleg-1
- do i1=0,i2-1
- dens2(:)=cone
- dens2t=cone
- evalres=.false.
-
- loop_140: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2)) then
- if (i.eq.j1) then
- dens2(:)=czip
- dens2t=czip
- evalres=.false.
- exit loop_140
- else
- do n=1,5
- dens2(n)=dens2(n)*denevalmu2(nleg,i,q1(n,:),&
- &Vi,msq,mu2g(1))
- enddo
- dens2t=dens2t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- evalres=.true.
- endif
- endif
- enddo loop_140
- if (evalres) then
- do n=1,5
- resi2(n)=resi2(n)+dens2(n)*Res2(dicut2,q1(n,:),mu2g(1))
- enddo
- resit(1)=resit(1)+dens2t*Res2(dicut2,qt,mu2t(1))
- endif
- dicut2=dicut2+1
- enddo
- enddo
- !---#] Contributo dei Double cuts:
- 141 continue
- !---
- do i=0,nleg-1
- if (i.ne.j1) then
- do n=1,5
- dens1(n)=dens1(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2g(1))
- enddo
- denst(1)=denst(1)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
- endif
- enddo
- do n=1,5
- xneval(n)=numeval(cut1,q1(n,:),mu2g(1))
- enddo
- if (imeth.eq.'diag') then
- known(:)=(xneval(:)-resi5(:)-resi4(:)-resi3(:)-resi2(:))/dens1(:)
- elseif (imeth.eq.'tree') then
- known(:)=xneval(:)-(resi5(:)+resi4(:)+resi3(:)+resi2(:))/dens1(:)
- endif
- do m=0,4
- f1(m)=known(m+1)
- enddo
- !--- Coefficienti
- c1(0) = (f1(0)+f1(1))/2.0_ki
- c1(1) = (-f1(0)-f1(1)+f1(3)+f1(4))/(2.0_ki*MP12(1))
- c1(2) = -(-2.0_ki*f1(0) + f1(3) + f1(4))/(2.0_ki*G0*MP12(1))
- c1(3) = (2.0_ki*f1(0)-2.0_ki*f1(2)-f1(3)+f1(4))/(2.0_ki*G0*MP12(1))
- c1(4) = (f1(0)-f1(2))/MP12(1)
- endif
- end subroutine getc1_rm
+
+
+
+
+
+
+
+
+subroutine getc1_rm(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
+ use mglobal, only: G0, mu2g, MP12, mu2t, resit, denst, mu2test, G0mu
+ implicit none
+! PARAMETERS===========================================================================================!
+ ! external
+ integer, intent(in ) :: nleg, rank, cut1
+ complex(ki), dimension(15,4), intent(in ) :: q1
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ complex(ki), dimension(0:15), intent(out) :: c1
+ !c1(9) does not exist, hence 15 instead of 14
+ ! internal
+ integer :: i, m, n, j1, i1, i2, i3, i4, i5, nold, nsol,nloops
+ integer :: dicut5, dicut4, dicut3, dicut2, diff
+ complex(ki), dimension(15) :: dens1, dens2, dens3, dens4, dens5, xneval
+ complex(ki), dimension(0:14) :: f1
+ complex(ki), dimension(15) :: resi5, resi4, resi3, resi2, known, mu2vec
+ complex(ki) :: dens2t, dens3t, dens4t, dens5t
+ logical evalres
+! INTERFACE============================================================================================!
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+! INITIALIZATION=======================================================================================!
+ do n=1,14
+ mu2vec(n)=czip
+ enddo
+ mu2vec(15) = mu2g(1)
+ mu2test(1) = mu2t(1)
+ j1 = cut1
+ resi2(:) = czip
+ resi3(:) = czip
+ resi4(:) = czip
+ resi5(:) = czip
+ known(:) = czip
+ xneval(:) = czip
+ dens1(:) = cone
+ !--- for lnntest
+ resit(1)=czip
+ denst(1)=cone
+ diff = nleg-rank
+ !--
+ if(diff .ge. 0) then
+ do n=1,5
+ mu2vec(n)=mu2g(1)
+ enddo
+ endif
+ !--
+ if (diff .ge. 1) then ! rank0: 1 coefficients
+ nsol = 1
+ elseif (diff .eq. 0) then ! rank1: 5 coefficients
+ nsol = 5
+ elseif (diff .eq.-1) then ! rank2: 15 coefficients
+ nsol = 15
+ else
+ print *, 'error in mgetc1.f90'
+ endif
+! SIMPLIFIED SAMPLING==================================================================================!
+! STANDARD DECOMPOSITION===============================================================================!
+ if (nleg.eq.5) then
+ do n=1,nsol
+ resi5(n)=Res5(1,mu2vec(n))
+ enddo
+ resit(1)=res5(1,mu2t(1))
+ elseif (nleg.eq.4) then
+ do n=1,nsol
+ resi4(n)=Res4(1,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=Res4(1,qt,mu2t(1))
+ elseif (nleg.eq.3) then
+ do n=1,nsol
+ resi3(n)=Res3(1,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=Res3(1,qt,mu2t(1))
+ elseif (nleg.eq.2) then
+ do n=1,nsol
+ resi2(n)=Res2(1,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=Res2(1,qt,mu2t(1))
+ else
+! Pentuple cuts contribution---------------------------------------------------------------------------!
+ nloops = 5
+ call HResL1(resi5, nsol,nloops,nleg,cut1,q1,qt,Vi,msq,mu2vec)
+ endif
+! Quadrupole cuts contribution-------------------------------------------------------------------------!
+ if((nleg .ne. 4) .and. (nleg .ne. 3) .and. (nleg .ne. 2)) then
+ nloops = 4
+ call HResL1(resi4, nsol,nloops,nleg,cut1,q1,qt,Vi,msq,mu2vec)
+ endif
+! Triple cuts contribution-----------------------------------------------------------------------------!
+ if((nleg .ne. 3) .and. (nleg .ne. 2)) then
+ nloops = 3
+ call HResL1(resi3, nsol,nloops,nleg,cut1,q1,qt,Vi,msq,mu2vec)
+ endif
+! Double cuts contribution ----------------------------------------------------------------------------!
+ if(nleg .ne. 2) then
+ nloops = 2
+ call HResL1(resi2, nsol,nloops,nleg,cut1,q1,qt,Vi,msq,mu2vec)
+ endif
+! Single cut-------------------------------------------------------------------------------------------!
+ do i=0,nleg-1
+ if (i.ne.j1) then
+ do n=1,nsol
+ dens1(n)=dens1(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
+ enddo
+ denst(1)=denst(1)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
+ endif
+ enddo
+! CALCULATING THE POLYNOMIALS==========================================================================!
+ do n=1,nsol
+ xneval(n)=numeval(cut1,q1(n,:),mu2vec(n))
+ enddo
+ if (imeth.eq.'diag') then
+ do n=1,nsol
+ known(n)=(xneval(n)-resi5(n)-resi4(n)-resi3(n)-resi2(n))/dens1(n)
+ enddo
+ elseif (imeth.eq.'tree') then
+ do n=1,nsol
+ known(n)=xneval(n)-(resi5(n)+resi4(n)+resi3(n)+resi2(n))/dens1(n)
+ enddo
+ endif
+! SELECT BY RANK=======================================================================================!
+ select case(diff)
+! RANK 0===============================================================================================!
+ case(1)
+ c1(0) = known(1)
+! RANK 1===============================================================================================!
+ case(0)
+ do m=0,4
+ f1(m)=known(m+1)
+ enddo
+ c1(0) = (f1(0)+f1(1))/2.0_ki
+ c1(1) = (-f1(0)-f1(1)+f1(3)+f1(4))/(2.0_ki*MP12(1))
+ c1(2) = -(-2.0_ki*f1(0) + f1(3) + f1(4))/(2.0_ki*G0*MP12(1))
+ c1(3) = (2.0_ki*f1(0)-2.0_ki*f1(2)-f1(3)+f1(4))/(2.0_ki*G0*MP12(1))
+ c1(4) = (f1(0)-f1(2))/MP12(1)
+! RANK 2===============================================================================================!
+ case(-1)
+ nold = 0
+ if(abs(G0) .lt. 1.0e-10_ki) then
+ ! defining fs with G0=0'
+ call DFT1(3, nold,known,f1)
+ call DFT1(2, nold,known,f1)
+ call DFT1(2, nold,known,f1)
+ call DFT1(2, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ !~~~
+ elseif(abs(G0) .lt. 1.0e-1_ki) then
+ call DFT1(3, nold,known,f1)
+ call DFT1(2, nold,known,f1)
+ call DFT1(3, nold,known,f1)
+ call DFT1(2, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ !~~~
+ else
+ ! defining fs with G0 nonzero'
+ call DFT1(5, nold,known,f1)
+ call DFT1(5, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ call DFT1(1, nold,known,f1)
+ endif
+! Coefficients~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+if(abs(G0) .lt. 1.0e-10_ki) then
+ c1(0) = &
+ &f1(0)
+ c1(2) = &
+ &f1(1)/MP12(1)
+ c1(6) = &
+ &f1(2)/MP12(1)**2
+ c1(1) = &
+ &f1(4)/MP12(1)
+ c1(5) = &
+ &(-c1(0) + f1(3))/MP12(1)**2
+ c1(4) = &
+ &-(f1(6)/MP12(1))
+ c1(8) = &
+ &(-c1(0) + f1(5))/MP12(1)**2
+ c1(3) = &
+ &-(f1(8)/MP12(1))
+ c1(7) = &
+ &(-c1(0) + f1(7))/MP12(1)**2
+ c1(10) = &
+ & (c1(0) - f1(9) + c1(1)*MP12(1) - c1(3)*MP12(1) + &
+ & c1(5)*MP12(1)**2 + c1(7)*MP12(1)**2)/MP12(1)**2
+ c1(11) = &
+ & (c1(0) - f1(10) + c1(1)*MP12(1) - c1(4)*MP12(1) + &
+ & c1(5)*MP12(1)**2 + c1(8)*MP12(1)**2)/MP12(1)**2
+ c1(12) = &
+ & (c1(0) - f1(11) + c1(2)*MP12(1) - c1(3)*MP12(1) + &
+ & c1(6)*MP12(1)**2 + c1(7)*MP12(1)**2)/MP12(1)**2
+ c1(13) = &
+ & (c1(0) - f1(12) + c1(2)*MP12(1) - c1(4)*MP12(1) + &
+ & c1(6)*MP12(1)**2 + c1(8)*MP12(1)**2)/MP12(1)**2
+ c1(14) = &
+ & (-c1(0) + f1(14) - G0mu*c1(1)*MP12(1) - c1(2)*MP12(1) - &
+ & G0mu**2*c1(5)*MP12(1)**2 - c1(6)*MP12(1)**2)/mu2g(1)
+ c1(15) = &
+ & (-c1(0) + f1(13) - c1(1)*MP12(1) - c1(2)*MP12(1) + &
+ & c1(3)*MP12(1) + c1(4)*MP12(1) - c1(5)*MP12(1)**2 - &
+ & c1(6)*MP12(1)**2 - c1(7)*MP12(1)**2 - &
+ & c1(8)*MP12(1)**2 + c1(10)*MP12(1)**2 + &
+ & c1(11)*MP12(1)**2 + c1(12)*MP12(1)**2 + &
+ & c1(13)*MP12(1)**2)/MP12(1)**2
+!~~~~
+elseif(abs(G0) .lt. 1.0e-1_ki) then
+! print *, 'mgetc1: using the new version with G0 < 0.1'
+ c1(0) = &
+ &f1(0)
+ c1(1) = &
+ & (G0*f1(1) + G0**5*f1(2) + G0**3*(f1(0) - f1(3)) - f1(4))/ &
+ & ((-one + G0**6)*MP12(1))
+ c1(2) = &
+ & -((f1(1) + G0**2*(f1(0) - f1(3) + &
+ & G0**2*(f1(2) - G0*f1(4))))/((-one + G0**6)*MP12(1)))
+ c1(5) = &
+ & (f1(0) - f1(3) + G0**2*(G0**2*f1(1) + f1(2) - G0*f1(4)))/ &
+ & ((-one + G0**6)*MP12(1)**2)
+ c1(6) = &
+ & (-f1(2) + G0*(-(G0*f1(1)) + G0**3*(-f1(0) + f1(3)) + &
+ & f1(4)))/((-one + G0**6)*MP12(1)**2)
+ c1(3) = &
+ & (G0*f1(6) + G0**5*f1(7) + G0**3*(f1(5) - f1(8)) + f1(9))/ &
+ & ((-one + G0**6)*MP12(1))
+ c1(4) = &
+ & (f1(6) + G0**2*(f1(5) - f1(8) + &
+ & G0**2*(f1(7) + G0*f1(9))))/((-one + G0**6)*MP12(1))
+ c1(7) = &
+ & (f1(5) - f1(8) + G0**2*(f1(7) + G0*(G0*f1(6) + f1(9))))/ &
+ & ((-one + G0**6)*MP12(1)**2)
+ c1(8) = &
+ & -((f1(7) + G0*(G0*f1(6) + G0**3*(f1(5) - f1(8)) + f1(9)))/ &
+ & ((-one + G0**6)*MP12(1)**2))
+ c1(15) = &
+ &(c1(0) - f1(5))/(G0*MP12(1)**2)
+ c1(10) = &
+ & ((-one + G0)*c1(0) - G0*f1(12) + f1(13) + &
+ & (-one + G0)*((one + G0)*c1(1) - c1(3))*MP12(1) + &
+ & (-one + G0)*((one + G0 + G0**2)*c1(5) - G0*c1(6) + c1(7))* &
+ & MP12(1)**2)/((-one + G0**2)*MP12(1)**2)
+ c1(11) = &
+ & ((-one + G0)*c1(0) - G0*f1(10) + f1(11) + &
+ & (-one + G0)*((one + G0)*c1(1) - c1(4))*MP12(1) + &
+ & (-one + G0)*((one + G0 + G0**2)*c1(5) - G0*c1(6) + c1(8))* &
+ & MP12(1)**2)/((-one + G0**2)*MP12(1)**2)
+ c1(12) = &
+ & ((-one + G0)*c1(0) + f1(12) - G0*f1(13) + &
+ & (-one + G0)*(c1(2) + G0*c1(2) - c1(3))*MP12(1) + &
+ & (-one + G0)*(c1(6) + G0*(-c1(5) + c1(6) + G0*c1(6)) + &
+ & c1(7))*MP12(1)**2)/((-one + G0**2)*MP12(1)**2)
+ c1(13) = &
+ & ((-one + G0)*c1(0) + f1(10) - G0*f1(11) + &
+ & (-one + G0)*(c1(2) + G0*c1(2) - c1(4))*MP12(1) + &
+ & (-one + G0)*(c1(6) + G0*(-c1(5) + c1(6) + G0*c1(6)) + &
+ & c1(8))*MP12(1)**2)/((-one + G0**2)*MP12(1)**2)
+ c1(14) = &
+ & (-c1(0) + f1(14) - G0mu*c1(1)*MP12(1) - c1(2)*MP12(1) - &
+ & G0mu**2*c1(5)*MP12(1)**2 - c1(6)*MP12(1)**2)/mu2g(1)
+!~~~~
+else
+!print *, 'mgetc1.f90, coefficients G0 not 0'
+ c1(0) = &
+ &f1(0)
+ c1(1) = &
+ &f1(4)/(G0*MP12(1))
+ c1(2) = &
+ &f1(1)/MP12(1)
+ c1(5) = &
+ &f1(3)/(G0**2*MP12(1)**2)
+ c1(6) = &
+ &f1(2)/MP12(1)**2
+ c1(3) = &
+ &f1(9)/(G0*MP12(1))
+ c1(4) = &
+ &-(f1(6)/MP12(1))
+ c1(7) = &
+ &f1(8)/(G0**2*MP12(1)**2)
+ c1(8) = &
+ &f1(7)/MP12(1)**2
+ c1(15) = &
+ &(c1(0) - f1(5))/(G0*MP12(1)**2)
+ c1(10) = &
+ & (four*c1(0) - eight*f1(12) + four*f1(13) + &
+ & MP12(1)*(six*G0*c1(1) - four*c1(3) + &
+ & (seven*G0**2*c1(5) - eight*c1(6) + four*c1(7))*MP12(1)))/ &
+ & (six*G0*MP12(1)**2)
+ c1(11) = &
+ & (four*c1(0) - eight*f1(10) + four*f1(11) + &
+ & MP12(1)*(six*G0*c1(1) - four*c1(4) + &
+ & (seven*G0**2*c1(5) - eight*c1(6) + four*c1(8))*MP12(1)))/&
+ & (six*G0*MP12(1)**2)
+ c1(12) = &
+ & (two*c1(0) + two*f1(12) - four*f1(13) + &
+ & MP12(1)*(six*c1(2) - two*c1(3) + &
+ & (-(G0**2*c1(5)) + 14.0_ki*c1(6) + two*c1(7))*MP12(1)))/&
+ & (six*MP12(1)**2)
+ c1(13) = &
+ & (two*c1(0) + two*f1(10) - four*f1(11) + &
+ & MP12(1)*(six*c1(2) - two*c1(4) + &
+ & (-(G0**2*c1(5)) + 14.0_ki*c1(6) + two*c1(8))*MP12(1)))/&
+ & (six*MP12(1)**2)
+ c1(14) = &
+ & (-c1(0) + f1(14) - G0mu*c1(1)*MP12(1) - c1(2)*MP12(1) - &
+ & G0mu**2*c1(5)*MP12(1)**2 - c1(6)*MP12(1)**2)/mu2g(1)
+endif
+! DEFAULT==========================================================================!
+ case default
+ print *, 'error in mgetc1.f90'
+ end select
+ c1(9)=czip ! There is no c1(9)
+ if (diff.ge.0) then
+ do i=5,15
+ c1(i)=czip
+ enddo
+ if (diff.ge.1) then
+ do i=1,4
+ c1(i)=czip
+ enddo
+ endif
+ endif
+end subroutine getc1_rm
+
+subroutine DFT1(n,nold,known,f1)
+! PARAMETERS=======================================================================!
+ ! external paramters
+ complex(ki),intent(in ) :: known(15)
+ integer, intent(in ) :: n
+ integer, intent(inout) :: nold
+ complex(ki),intent(inout) :: f1(0:14)
+ ! internal parameters
+ complex(ki) :: summation
+ real(ki) :: theta
+ integer :: k,i
+! DOING THE DFT N TIMES AND FILLING F2==============================================!
+ theta=twopi/n
+ !loop over number of number of f1's to fill
+ do i=1,n
+ summation=czip
+ ! DFT summation
+ do k=0,n-1
+ summation = summation + known(k+nold+1)*&
+ &(cos(theta*real((i-1)*k,ki))+im*sin(theta*real((i-1)*k,ki)))
+ enddo
+ f1(i+nold-1) = summation/n
+ enddo
+ nold=nold+n
+end subroutine DFT1
+
+subroutine HResL1(resin,nsol,nloops,nleg,cut1,q1,qt,Vi,msq,mu2vec)
+ use mfunctions
+ use precision
+ use mglobal, only: denst,resit,mu2t
+! PARAMETERS============================================================================!
+ ! external parameters
+ complex(ki), dimension(15), intent(inout) :: resin
+
+
+ integer, intent(in ) :: nsol, nloops, nleg, cut1
+ complex(ki), dimension(15,4), intent(in ) :: q1
+ complex(ki), dimension(15), intent(in ) :: mu2vec
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ ! internal parameters
+ integer :: i, j1, n
+ integer :: i1, i2, i3, i4, i5
+ logical :: evalres
+ complex(ki), dimension(15) :: densn
+ complex(ki) :: densnt
+ logical :: notcut
+ integer, dimension(5) :: iarr
+ integer :: dicutn
+! INITIALIZATION========================================================================!
+ ! cuts
+ j1 = cut1
+ dicutn = 1
+! LOOP==================================================================================!
+ select case(nloops)
+ case(5)
+ do i5=4,nleg-1
+ do i4=3,i5-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(5)=i5
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l5: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if (i.ne.j1) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l5
+ endif
+ endif
+ enddo l5
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*res5(dicutn,mu2vec(n))
+ enddo
+ resit(1)=resit(1)+densnt*Res5(dicutn,mu2t(1))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(4)
+ do i4=3,nleg-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l4: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if (i.ne.j1) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l4
+ endif
+ endif
+ enddo l4
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res4(dicutn,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=resit(1)+densnt*Res4(dicutn,qt,mu2t(1))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(3)
+ do i3=2,nleg-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l3: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if (i.ne.j1) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l3
+ endif
+ endif
+ enddo l3
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res3(dicutn,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=resit(1)+densnt*Res3(dicutn,qt,mu2t(1))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(2)
+ do i2=1,nleg-1
+ do i1=0,i2-1
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l2: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if (i.ne.j1) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q1(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(1))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l2
+ endif
+ endif
+ enddo l2
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res2(dicutn,q1(n,:),mu2vec(n))
+ enddo
+ resit(1)=resit(1)+densnt*Res2(dicutn,qt,mu2t(1))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ end select
+!========================================
+end subroutine HResL1
+
end module mgetc1
diff --git a/samurai-2.1.1/mgetc2.f90 b/samurai-2.1.1/mgetc2.f90
index 5936967..b37445b 100644
--- a/samurai-2.1.1/mgetc2.f90
+++ b/samurai-2.1.1/mgetc2.f90
@@ -1,1361 +1,2160 @@
module mgetc2
use precision, only: ki
use constants
use options
use mfunctions
use mrestore
implicit none
private
interface getc2
module procedure getc2_rm
module procedure getc2_cm
end interface getc2
public :: getc2
contains
- subroutine getc2_rm(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
- use mglobal, only: Fp,Fz,Fm,F1z,KB,mu2g,KK,MP12,mu2t,&
- & resit,denst,mu2test
- implicit none
- integer, intent(in) :: nleg,rank,cut2
- complex(ki), dimension(0:9), intent(out) :: c2
- complex(ki), dimension(10,4), intent(in) :: q2
- complex(ki), dimension(4), intent(in) :: qt
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
+subroutine getc2_rm(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
+ use mglobal, only: Fp,Fz,Fm,F1z,KB,KK, &
+ & mu2g,MP12,mu2t,resit,denst,mu2test,mu2vec2,FL2,x1s1,x1s2,y1,y2,y3
+ implicit none
+! PARAMETERS=======================================================================!
+ ! external parameters
+ integer, intent(in ) :: nleg,rank,cut2
+ complex(ki), dimension(20,4), intent(in ) :: q2
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ complex(ki), dimension(0:19), intent(out) :: c2
+ ! internal parameters
+ integer :: i,m,n,j1,j2,i1,i2,i3,i4,i5,nold
+ integer :: dicut5,dicut4,dicut3,mx,diff,nsol,nloops
+ complex(ki), dimension(20) :: dens2,dens3,dens4,dens5,xneval
+ complex(ki), dimension(20) :: resi5,resi4,resi3,known
+ complex(ki), dimension(20) :: mu2vec
+ complex(ki), dimension(0:19) :: f2
+ complex(ki) :: dens3t,dens4t,dens5t
+ logical :: evalres
+ ! haggies
+ complex(ki) :: t1
+ complex(ki) :: t2
+ complex(ki) :: t3
+ complex(ki) :: t4
+ complex(ki) :: t5
+ complex(ki) :: t6
+ complex(ki) :: t7
+ complex(ki) :: t8
+ complex(ki) :: t9
+ complex(ki) :: t10
+ complex(ki) :: t11
+ complex(ki) :: t12
+ complex(ki) :: t13
+ complex(ki) :: t14
+ complex(ki) :: t15
+ complex(ki) :: t16
+ complex(ki) :: t17
+ complex(ki) :: t18
+ complex(ki) :: t19
+ complex(ki) :: t20
+ complex(ki) :: t21
+ complex(ki) :: t22
+ complex(ki) :: t23
+ complex(ki) :: t24
+ complex(ki) :: t25
+ complex(ki) :: t26
+ complex(ki) :: t27
+ complex(ki) :: t28
+ complex(ki) :: t29
+ complex(ki) :: t30
+ complex(ki) :: t31
+ complex(ki) :: t32
+ complex(ki) :: t33
+ complex(ki) :: t34
+ complex(ki) :: t35
+ complex(ki) :: t36
+ complex(ki) :: t37
+ complex(ki) :: t38
+ complex(ki) :: t39
+ complex(ki) :: t40
+ complex(ki) :: t41
+ complex(ki) :: t42
+ complex(ki) :: t43
+ complex(ki) :: t44
+ complex(ki) :: t45
+! INTERFACE========================================================================!
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+! INITIALIZATION===================================================================!
+ ! mu2
+ mu2test(2) = mu2t(2)
+ ! cuts
+ j2 = cut2/10
+ j1 = cut2-j2*10
+ ! ---
+ resi3(:) = czip
+ resi4(:) = czip
+ resi5(:) = czip
+ known(:) = czip
+ xneval(:) = czip
+ dens2(:) = cone
+ ! for lnntest
+ resit(2) = czip
+ denst(2) = cone
+ ! for simplified sampling
+ diff = nleg-rank
+! CALCULATING THE MU2 VECTOR AND NSOL==============================================!
+ ! initialize to czip
+ do n=1,20
+ mu2vec(n)=czip
+ enddo
+ if (diff .ge. 2) then ! rank0: 1 coefficients
+ nsol=1
+ elseif (diff .eq. 1) then ! rank1: 4 coefficients
+ nsol=4
+ elseif (diff .eq. 0) then ! rank2: 10 coefficients
+ nsol=10
+ mu2vec(10) = mu2g(2)
+ elseif (diff .eq.-1) then ! rank3: 20 coefficients
+ nsol=20
+ do n=1,16
+ mu2vec(n)=czip
+ enddo
+ do n=17,20
+ mu2vec(n)=mu2g(2)
+ enddo
+ else
+ print *, 'error in mgetc2.f90'
+ endif
+! SIMPLIFIED SAMPLING==============================================================!
+! STANDARD DECOMPOSITION===========================================================!
+ if (nleg.eq.5) then
+ do n=1,nsol
+ resi5(n)=Res5(1,mu2vec(n))
+ enddo
+ resit(2)=Res5(1,mu2t(2))
+ elseif (nleg.eq.4) then
+ do n=1,nsol
+ resi4(n)=Res4(1,q2(n,:),mu2vec(n))
+ enddo
+ resit(2)=Res4(1,qt,mu2t(2))
+ elseif (nleg.eq.3) then
+ do n=1,nsol
+ resi3(n)=Res3(1,q2(n,:),mu2vec(n))
+ enddo
+ resit(2)=Res3(1,qt,mu2t(2))
+ elseif (nleg.eq.2) then
+ continue
+ else
+ ! 5plecut contribution-----------------------------------------------------!
+ nloops = 5
+ call HResL2(resi5, nsol,nloops,nleg,cut2,q2,qt,Vi,msq,mu2vec)
+ endif
+ ! 4plecut contribution-----------------------------------------------------!
+ if((nleg .ne. 4) .and. (nleg .ne. 3) .and. (nleg .ne. 2)) then
+ nloops = 4
+ call HResL2(resi4, nsol,nloops,nleg,cut2,q2,qt,Vi,msq,mu2vec)
+ endif
+ ! 3plecut contribution-----------------------------------------------------!
+ if((nleg .ne. 3) .and. (nleg .ne. 2)) then
+ nloops = 3
+ call HResL2(resi3, nsol,nloops,nleg,cut2,q2,qt,Vi,msq,mu2vec)
+ endif
+ !--------------------------------------------------------------------------!
+ if(nleg .ne. 2) then
+ do i=0,nleg-1
+ if ((i.ne.j1).and.(i.ne.j2)) then
+ do n=1,nsol
+ dens2(n)=dens2(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
+ enddo
+ denst(2)=denst(2)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
+ endif
+
+ enddo
+ endif
+! CALCULATING THE POLYNOMIALS======================================================!
+ do n=1,nsol
+ xneval(n)=numeval(cut2,q2(n,:),mu2vec(n))
+ enddo
+
+ if (imeth.eq.'diag') then
+ do n=1,nsol
+ known(n)=(xneval(n)-resi5(n)-resi4(n)-resi3(n))/dens2(n)
+ enddo
+ elseif (imeth.eq.'tree') then
+ do n=1,nsol
+ known(n)=xneval(n)-(resi5(n)+resi4(n)+resi3(n))/dens2(n)
+ enddo
+ endif
+ select case(diff)
+! RANK 0===========================================================================!
+ case(2)
+ c2(0)=known(1)
+! RANK 1===========================================================================!
+ case(1)
+ do m=0,1
+ f2(m)=effe(known,1,2,m)
+ enddo
+
+ do m=2,3
+ mx=m-2
+ f2(m)=effe(known,3,2,mx)
+ enddo
+ t1 = f2(0)
+ c2(0) = t1
+ c2(1) = ((f2(2)-t1)/(KB*MP12(2)))
+ t1 = f2(3)
+ c2(3) = ((f2(1)-t1*Fz)/((Fp*Fz-one)*MP12(2))*KK(2))
+ c2(5) = ((-(Fp*MP12(2)*c2(3)+t1*KK(2)))/(KK(2)*KK(2)*MP12(2)))
+! RANK 2===========================================================================!
+ case(0)
+ do m=0,2
+ f2(m)=effe(known,1,3,m)
+ enddo
+ do m=3,4
+ mx=m-3
+ f2(m)=effe(known,4,2,mx)
+ enddo
+ do m=5,6
+ mx=m-5
+ f2(m)=effe(known,6,2,mx)
+ enddo
+ f2(7)=known(8)
+ f2(8)=known(9)
+ f2(9)=known(10)
+ t1 = (1.0_ki)+Fp
+ t2 = Fz*Fz
+ t3 = t2*Fz
+ t4 = t3-(1.0_ki)
+ t5 = (1.0_ki)+t3
+ t6 = f2(2)
+ t7 = t2*t2
+ t8 = -(t7+(1.0_ki))
+ t9 = f2(1)
+ t10 = t3*t3
+ t11 = f2(0)
+ t12 = f2(4)
+ t13 = t6*Fz
+ t14 = f2(3)
+ t15 = t14*Fz
+ t16 = t15*t2
+ t17 = f2(5)
+ t18 = f2(6)
+ t19 = f2(8)
+ t20 = t9-t14
+ t21 = (1.0_ki)+t7
+ t22 = t11*t21
+ t23 = (1.0_ki)+t2
+ t24 = t23*t6
+ t25 = Fp*Fp
+ t26 = t14-t11
+ t27 = t12*Fz
+ t28 = t2*t27
+ t29 = ((1.0_ki)-Fp)*t1
+ t30 = t14*t29
+ t31 = t29*t6
+ t32 = t12*t29
+ t33 = f2(7)
+ t34 = t6+t9
+ t35 = t27*t7
+ t36 = t6-t14
+ t37 = t17-t33
+ t38 = t18*Fp
+ t39 = (t37+t38)*t10
+ t40 = t7*Fz
+ t41 = (2.0_ki)*t40
+ t42 = (2.0_ki)*t3
+ t43 = t2*t31
+ t44 = MP12(2)*MP12(2)
+ t45 = t29*t4*t44*t5
+ c2(2) = (-1.0_ki)*((2.0_ki)*((t10-(t7+t2+(1.0_ki)))*t11+(t12+t15+t&
+ &16+t12*t7-t13)*Fz+t8*t9-t6)+t17+t18+t19+(-(t19+t18+t17))*t10+(t26&
+ &+t28-(t6*t7+t2*t9))*t25*t25+(t11*t29+t31*t7+t2*t29*t9-(t2*t32*Fz+&
+ &t30))*Fm*Fm+(t14+t17+(t12+((t12+t15+(t33-t17)*t2*Fz)*Fz-(t9+t24))&
+ &*Fz)*Fz+t11*t8-(t9+t33))*Fp+((2.0_ki)*(t34-(t35+t27))+((3.0_ki)+(&
+ &2.0_ki)*((1.0_ki)+t2-t7)*t2)*t11+(t17+t19)*t10+((2.0_ki)*t20+t6)*&
+ &t7+((2.0_ki)*t36+t9)*t2-(t28+t19+t17+t14))*t25+((2.0_ki)*(t12*t25&
+ &-t12)+t33+t39+t43+(t31-t30)*t7+((2.0_ki)*t31-t32)*Fz+((1.0_ki)+t2&
+ &+t41+(-(t41+t2+(1.0_ki)))*t25)*t9+((1.0_ki)+t42+t7+(-(t7+t42+(1.0&
+ &_ki)))*t25)*t11-((t12+(2.0_ki)*t14)*t2*t29*Fz+t38+t30+t17))*Fm+(t&
+ &20+t22+((t24+t9+(-(t15+t12))*Fz)*Fz-t12)*Fz)*t25*Fp)/t45*0.5_ki
+ t8 = t11-t14
+ t10 = t2*t6
+ c2(7) = (-1.0_ki)*(t6+(t8+(t9+(t18*Fz-t12)*Fz)*t2)*t2+(t35+t2*t26-&
+ &(t7*t9+t6))*t25+(t20+t22+t33+(t34*Fz+t2*t36*Fz+t37*t7*Fz-(t12*t2+&
+ &t12))*Fz-t17)*Fp+((t3+Fz)*t12+t14*t21-((t10+t9)*t23+t22))*t25*Fp-&
+ &t18)/t45*KK(2)
+ t14 = t12+t14
+ c2(8) = ((t14+t17+(t18-t14*Fp)*Fp+t14*t2*t29*Fz-(t29*t36*t7+((1.0_&
+ &ki)+t3+t7)*t11*t29+((1.0_ki)+t2+t40)*t29*t9+(t6-t12)*t29*Fz+t43+t&
+ &39+t33))/((Fp-(1.0_ki))*t1*t4*t44*t5*KK(2)))
+ t1 = KK(2)*KK(2)
+ t3 = t4*t5
+ c2(4) = (-1.0_ki)*(t10+t9+t7*t8-t27)/(t3*t44)*t1
+ c2(5) = (-1.0_ki)*(t13+t11*t2*Fz+t7*t9*Fz-(t16+t12))/(t3*KK(2)*MP1&
+ &2(2))
+ c2(3) = ((t6+(t8+(t9-t27)*t2)*t2)/(t3*MP12(2))*KK(2))
+ t4 = KK(2)*MP12(2)
+ c2(6) = ((t8+(t9+(t13-t12)*Fz)*t2)/(t3*t4*t4))
+ c2(0) = t11
+ t2 = t1*F1z*MP12(2)
+ c2(9) = (((f2(9)-c2(0))*t1+t4*c2(3)+t1*F1z*KK(2)*MP12(2)*c2(5)-(t4&
+ &4*c2(4)+t2*t2*c2(6)))/(t1*mu2g(2)))
+ t2 = Fm*KK(2)
+ c2(1) = ((c2(0)-t19)/MP12(2)+(c2(4)+(c2(7)+(c2(2)+(c2(8)+t2*c2(6))&
+ &*Fm*KK(2))*KK(2))*KK(2))/t1*MP12(2)-(c2(3)/KK(2)+t2*c2(5)))
+! RANK 3===========================================================================!
+ case(-1)
+
+ nold = 0
+ !Fstep=1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(0,0)=0 !
+ if(abs(FL2(1)).lt. 1.0e-1_ki) then ! if(F(Fstep=1)==0) !
+ call DFT2(4, nold,known,f2) !
+ call DFT2(3, nold,known,f2) !
+ !------------------------------------------------------!
+ !F(0,0)/=0 !
+ else !
+ call DFT2(7, nold,known,f2) !
+ endif !
+ !Fstep=2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(0,x1s1) !
+ if(abs(FL2(2)).lt. 1.0e-10_ki) then ! if(F(Fstep=2)==0) !
+ call DFT2(3, nold,known,f2) !
+ call DFT2(2, nold,known,f2) !
+ !------------------------------------------------------!
+ !F(0,y1) !
+ else !
+ call DFT2(5, nold,known,f2) !
+ endif !
+ !Fstep=3~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(0,x1s2) !
+ if(abs(FL2(3)).lt. 1.0e-10_ki) then ! if(F(Fstep=3)==0) !
+ call DFT2(2, nold,known,f2) !
+ call DFT2(1, nold,known,f2) !
+ !------------------------------------------------------!
+ !F(0,y2) !
+ else !
+ call DFT2(3, nold,known,f2) !
+ endif !
+ !Fstep=4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(0,y3) !
+ call DFT2(1, nold,known,f2) !
+ !Fstep=5~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(mu2,0)=0 !
+ if(abs(FL2(5)).lt. 1.0e-10_ki) then ! if(F(Fstep=5)==0) !
+ call DFT2(2, nold,known,f2) !
+ call DFT2(1, nold,known,f2) !
+ !------------------------------------------------------!
+ !F(mu2,0)=nonzero !
+ else !
+ call DFT2(3, nold,known,f2) !
+ endif !
+ !Fstep=6~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ !F(mu2,1) !
+ call DFT2(1, nold,known,f2) !
+ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+! COEFFICIENTS=====================================================================!
+! New Fstep 1~~~~~~~~~~~~~~~`
+if(abs(FL2(1)).lt. 1.0e-10_ki) then
+! print *, 'using the very zero version of Fstep=1'
+ c2(0) = &
+ &f2(0)
+ c2(3) = &
+ &-(f2(6)/MP12(2))
+ c2(4) = &
+ &f2(5)/MP12(2)**2
+ c2(5) = &
+ &-(f2(1)/MP12(2))
+ c2(6) = &
+ &f2(2)/MP12(2)**2
+ c2(14) = &
+ &-((-f2(0) + f2(4))/MP12(2)**3)
+ c2(15) = &
+ &-(f2(3)/MP12(2)**3)
+elseif(abs(FL2(1)).lt. 0.1_ki) then
+! print *, 'using the new version of Fstep=1'
+ c2(0) = &
+ &f2(0)
+ c2(3) = &
+ & -((-f2(6) + f2(2)*FL2(1)**2 - f2(5)*FL2(1)**4 + &
+ & f2(1)*FL2(1)**5 + f2(0)*FL2(1)**8 - f2(4)*FL2(1)**8 + &
+ & f2(3)*FL2(1)**11)/((-one+ FL2(1)**12)*MP12(2)))
+ c2(4) = &
+ & -((f2(5) - f2(1)*FL2(1) - f2(0)*FL2(1)**4 + &
+ & f2(4)*FL2(1)**4 - f2(3)*FL2(1)**7 + f2(6)*FL2(1)**8 - &
+ & f2(2)*FL2(1)**10)/((-one+ FL2(1)**12)*MP12(2)**2))
+ c2(5) = &
+ & -((-f2(1) - f2(0)*FL2(1)**3 + f2(4)*FL2(1)**3 - &
+ & f2(3)*FL2(1)**6 + f2(6)*FL2(1)**7 - f2(2)*FL2(1)**9 + &
+ & f2(5)*FL2(1)**11)/((-one+ FL2(1)**12)*MP12(2)))
+ c2(6) = &
+ & -((f2(2) - f2(5)*FL2(1)**2 + f2(1)*FL2(1)**3 + &
+ & f2(0)*FL2(1)**6 - f2(4)*FL2(1)**6 + f2(3)*FL2(1)**9 - &
+ & f2(6)*FL2(1)**10)/((-one+ FL2(1)**12)*MP12(2)**2))
+ c2(14) = &
+ & -((f2(0) - f2(4) + f2(3)*FL2(1)**3 - f2(6)*FL2(1)**4 + &
+ & f2(2)*FL2(1)**6 - f2(5)*FL2(1)**8 + f2(1)*FL2(1)**9)/ &
+ & ((-one+ FL2(1)**12)*MP12(2)**3))
+ c2(15) = &
+ & -((-f2(3) + f2(6)*FL2(1) - f2(2)*FL2(1)**3 + &
+ & f2(5)*FL2(1)**5 - f2(1)*FL2(1)**6 - f2(0)*FL2(1)**9 + &
+ & f2(4)*FL2(1)**9)/((-one+ FL2(1)**12)*MP12(2)**3))
+else
+ c2(0) = &
+ &f2(0)
+ c2(3) = &
+ &-(f2(6)/(FL2(1)*MP12(2)))
+ c2(4) = &
+ &f2(5)/(FL2(1)**2*MP12(2)**2)
+ c2(5) = &
+ &-(f2(1)/MP12(2))
+ c2(6) = &
+ &f2(2)/MP12(2)**2
+ c2(14) = &
+ &-(f2(4)/(FL2(1)**3*MP12(2)**3))
+ c2(15) = &
+ &-(f2(3)/MP12(2)**3)
+endif
+! Fstep=1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+!if(abs(FL2(1)).lt. 1.0e-10_ki) then
+! c2(0) = &
+! &f2(0)
+! c2(3) = &
+! &-(f2(6)/MP12(2))
+! c2(4) = &
+! &f2(5)/MP12(2)**2
+! c2(5) = &
+! &-(f2(1)/MP12(2))
+! c2(6) = &
+! &f2(2)/MP12(2)**2
+! c2(14) = &
+! &-((-f2(0) + f2(4))/MP12(2)**3)
+! c2(15) = &
+! &-(f2(3)/MP12(2)**3)
+!----------------------------------------------------------------------------------!
+!else
+! print *, 'f2(0)',f2(0)
+! c2(0) = &
+! &f2(0)
+! c2(3) = &
+! &-(f2(6)/(FL2(1)*MP12(2)))
+! c2(4) = &
+! &f2(5)/(FL2(1)**2*MP12(2)**2)
+! c2(5) = &
+! &-(f2(1)/MP12(2))
+! c2(6) = &
+! &f2(2)/MP12(2)**2
+! c2(14) = &
+! &-(f2(4)/(FL2(1)**3*MP12(2)**3))
+! c2(15) = &
+! &-(f2(3)/MP12(2)**3)
+!endif
+! Fstep=2&3&4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+if(abs(x1s1).gt. 1.0e-10_ki) then
+if(abs(x1s2).gt. 1.0e-10_ki) then
+! print *, 'mgetc2.f90: two or infinite solutions -> dividing by x1s1,x1s2,y3'
+ c2(1) = &
+ & (x1s2**2*(x1s2 - y3)*y3**2* &
+ & (-c2(0) + f2(7) + c2(15)*MP12(2)**3) + &
+ & x1s1**2*(-(y3**3*(c2(0) - f2(12) + c2(6)*MP12(2)**2)) + &
+ & x1s2**2*y3*((f2(7) - f2(10))*(-one + FL2(4))*FL2(4) - &
+ & f2(9)*(one + FL2(4)) + &
+ & (c2(4)*(-one + FL2(4))*FL2(4) + c2(6)*(one + FL2(4)))* &
+ & MP12(2)**2 + &
+ & c2(15)*(-one + FL2(4))*FL2(4)*MP12(2)**3) + &
+ & x1s2**3*(c2(0) - f2(15) - &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**3) + &
+ & x1s2*y3**2*(f2(9) + f2(13) - f2(12)*FL2(4) + &
+ & f2(14)*FL2(4) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) + &
+ & MP12(2)* &
+ & (c2(6)*(-one + FL2(4)) - c2(4)*FL2(4) + &
+ & (c2(15) + c2(14)*FL2(4))*MP12(2))))) + &
+ & x1s1**3*(y3**2*(c2(0) - f2(12) + c2(6)*MP12(2)**2) + &
+ & x1s2**2*(-c2(0) + f2(15) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2)) - &
+ & x1s2*y3*(f2(13) - f2(12)*FL2(4) + f2(14)*FL2(4) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) + &
+ & MP12(2)* &
+ & (c2(15)*MP12(2) + &
+ & FL2(4)*(-c2(4) + c2(6) + c2(14)*MP12(2)))))) &
+ & + x1s1*x1s2*y3* &
+ & (y3**2*(-f2(9) + c2(6)*MP12(2)**2) + &
+ & x1s2**2*(f2(8) + f2(9) + &
+ & FL2(4)*(f2(11) + (-f2(7) + f2(10))*FL2(4)) + &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & FL2(4)*(c2(14) - c2(15)*FL2(4))*MP12(2)**3) - &
+ & x1s2*y3*(f2(8) + c2(5)*MP12(2) + &
+ & FL2(4)*(-f2(7) - f2(9) + f2(10) + f2(11) + &
+ & MP12(2)* &
+ & (c2(3) + &
+ & MP12(2)* &
+ & (-c2(4) + c2(6) + &
+ & (c2(14) - c2(15))*MP12(2)))))))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*(x1s1 - y3)*(x1s2 - y3)*y3* &
+ & MP12(2))
+ c2(2) = &
+ & (x1s1**3*(x1s2*c2(0) - y3*c2(0) + y3*f2(12) + y3*f2(13) - &
+ & x1s2*f2(15) - y3*f2(12)*FL2(4) + y3*f2(14)*FL2(4) - &
+ & (x1s2 - y3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & ((x1s2 - y3)*c2(6) + y3*(-c2(4) + c2(6))*FL2(4) + &
+ & x1s2*c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & (y3*(c2(15) + c2(14)*FL2(4)) - &
+ & x1s2*(c2(15) + c2(14)*FL2(4)**3))*MP12(2)**3) + &
+ & x1s1**2*y3*(y3*(-f2(13) + (f2(12) - f2(14))*FL2(4) - &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(4) - c2(6))*FL2(4)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4))*MP12(2)**3) + &
+ & x1s2*(f2(13) + &
+ & (f2(9) - f2(12) + f2(14) - f2(7)*(-one + FL2(4)) + &
+ & f2(10)*(-one + FL2(4)))*FL2(4) + &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & c2(4)*FL2(4)**2*MP12(2)**2 + &
+ & (c2(14)*FL2(4) + c2(15)*(one + FL2(4) - FL2(4)**2))* &
+ & MP12(2)**3)) + &
+ & x1s2*y3*(y3**2*(-c2(0) + f2(7) + f2(9) - &
+ & c2(6)*MP12(2)**2 + c2(15)*MP12(2)**3) + &
+ & x1s2**2*(c2(0) - f2(8) - f2(9) - &
+ & FL2(4)*(f2(11) + f2(10)*FL2(4)) + &
+ & f2(7)*(-one + FL2(4)**2) - &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & (-(c2(14)*FL2(4)) + c2(15)*(-one + FL2(4)**2))* &
+ & MP12(2)**3) + &
+ & x1s2*y3*(f2(8) + c2(5)*MP12(2) + &
+ & FL2(4)*(-f2(7) - f2(9) + f2(10) + f2(11) + &
+ & MP12(2)* &
+ & (c2(3) + &
+ & MP12(2)* &
+ & (-c2(4) + c2(6) + &
+ & (c2(14) - c2(15))*MP12(2)))))) + &
+ & x1s1*(y3**3*(c2(0) - f2(12) + c2(6)*MP12(2)**2) + &
+ & x1s2*y3**2*(f2(8) - f2(13) + &
+ & (-f2(7) - f2(9) + f2(10) + f2(11) + f2(12) - &
+ & f2(14))*FL2(4) - c2(15)*(one + FL2(4))*MP12(2)**3 &
+ & ) + x1s2**3* &
+ & (-c2(0) + f2(15) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2)) - &
+ & x1s2**2*y3*(f2(8) + c2(5)*MP12(2) + &
+ & FL2(4)*(-f2(7) - f2(9) + f2(10) + f2(11) + &
+ & MP12(2)* &
+ & (c2(3) + &
+ & MP12(2)* &
+ & (-c2(4) + c2(6) + &
+ & (c2(14) - c2(15))*MP12(2)))))))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*(x1s1 - y3)*(x1s2 - y3)*y3* &
+ & MP12(2)**2)
+ c2(7) = &
+ & (x1s2**2*(f2(11) + c2(3)*MP12(2) + c2(14)*MP12(2)**3) - &
+ & x1s1*x1s2*(f2(7) + f2(9) - f2(10) + &
+ & MP12(2)**2*(c2(4) - c2(6) + c2(15)*MP12(2))) + &
+ & x1s1**2*(f2(12) - f2(14) - &
+ & MP12(2)*(c2(3) + &
+ & MP12(2)*(-c2(4) + c2(6) + c2(14)*MP12(2)))))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*MP12(2)**2)
+ c2(8) = &
+ & (x1s2**2*(f2(8) + c2(5)*MP12(2)) - &
+ & x1s1**2*(f2(13) + c2(5)*MP12(2) + c2(15)*MP12(2)**3))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*MP12(2)**2)
+ c2(13) = &
+ & (-(x1s1**2*x1s2*c2(0)) + x1s1*x1s2**2*c2(0) + &
+ & x1s1**2*y3*c2(0) - x1s2**2*y3*c2(0) - &
+ & x1s1*y3**2*c2(0) + x1s2*y3**2*c2(0) + &
+ & x1s2**2*y3*f2(7) - x1s2*y3**2*f2(7) + &
+ & x1s2**2*y3*f2(8) - x1s2*y3**2*f2(8) + &
+ & x1s2**2*y3*f2(9) - x1s2*y3**2*f2(9) - &
+ & x1s1**2*y3*f2(12) + x1s1*y3**2*f2(12) - &
+ & x1s1**2*y3*f2(13) + x1s1*y3**2*f2(13) + &
+ & x1s1**2*x1s2*f2(15) - x1s1*x1s2**2*f2(15) - &
+ & x1s1*x1s2*y3*f2(7)*FL2(4) + x1s2*y3**2*f2(7)*FL2(4) - &
+ & x1s1*x1s2*y3*f2(9)*FL2(4) + x1s2*y3**2*f2(9)*FL2(4) + &
+ & x1s1*x1s2*y3*f2(10)*FL2(4) - x1s2*y3**2*f2(10)*FL2(4) + &
+ & x1s2**2*y3*f2(11)*FL2(4) - x1s2*y3**2*f2(11)*FL2(4) + &
+ & x1s1**2*y3*f2(12)*FL2(4) - x1s1*y3**2*f2(12)*FL2(4) - &
+ & x1s1**2*y3*f2(14)*FL2(4) + x1s1*y3**2*f2(14)*FL2(4) + &
+ & x1s1*x1s2*y3*f2(7)*FL2(4)**2 - &
+ & x1s2**2*y3*f2(7)*FL2(4)**2 - &
+ & x1s1*x1s2*y3*f2(10)*FL2(4)**2 + &
+ & x1s2**2*y3*f2(10)*FL2(4)**2 + &
+ & (x1s1 - x1s2)*(x1s1 - y3)*(x1s2 - y3)* &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (x1s1 - x1s2)*(x1s1 - y3)* &
+ & ((x1s2 - y3)*c2(6) + y3*(-c2(4) + c2(6))*FL2(4) + &
+ & x1s2*c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & ((x1s1 - x1s2)*(x1s1 - y3)*(x1s2 - y3)*c2(15) + &
+ & y3*(-((x1s1 - x1s2)*(x1s1 + x1s2 - y3)*c2(14)) + &
+ & x1s2*(-x1s1 + y3)*c2(15))*FL2(4) + &
+ & (x1s1 - x1s2)*x1s2*y3*c2(15)*FL2(4)**2 + &
+ & x1s1*(x1s1 - x1s2)*x1s2*c2(14)*FL2(4)**3)*MP12(2)**3) &
+ & /(x1s1*(x1s1 - x1s2)*x1s2*(x1s1 - y3)*(x1s2 - y3)*y3* &
+ & MP12(2)**3)
+ c2(16) = &
+ & (x1s2*(f2(7) + f2(9) - f2(10) - f2(11)) - &
+ & x1s2*c2(3)*MP12(2) + &
+ & (-x1s1 + x1s2)*(c2(4) - c2(6))*MP12(2)**2 + &
+ & ((x1s1 - x1s2)*c2(14) + x1s2*c2(15))*MP12(2)**3 + &
+ & x1s1*(-f2(12) + f2(14) + c2(3)*MP12(2)))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*MP12(2)**3)
+ c2(17) = &
+ & (-(x1s2*(f2(8) + c2(5)*MP12(2))) + &
+ & x1s1*(f2(13) + c2(5)*MP12(2) + c2(15)*MP12(2)**3))/ &
+ & (x1s1*(x1s1 - x1s2)*x1s2*MP12(2)**3)
+ c2(18) = &
+ & (-f2(7) + f2(10) - MP12(2)**2*(c2(4) + c2(15)*MP12(2)))/ &
+ & (x1s1*MP12(2)**3)
+ c2(19) = &
+ &(f2(9) - c2(6)*MP12(2)**2)/(x1s1*MP12(2)**3)
+!----------------------------------------------------------------------------------!
+else
+!print *, 'mgetc2.f90: one solution -> dividing by x1s1, y2,y3, FL(3)'
+ c2(1) = &
+ & (y2**2*(y2 - y3)*y3**2*FL2(3)* &
+ & (-c2(0) + f2(7) + c2(15)*MP12(2)**3) + &
+ & x1s1*y2**2*y3*(y3* &
+ & (-(f2(9)*FL2(4)) - &
+ & FL2(3)*(f2(8) + (-f2(7) + f2(10))*FL2(3)**2 + &
+ & f2(11)*FL2(4)) - &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2 + &
+ & FL2(3)*(c2(15)*FL2(3)**2 - c2(14)*FL2(4))* &
+ & MP12(2)**3) + &
+ & y2*FL2(3)*(f2(8) + f2(9) + &
+ & FL2(4)*(f2(11) + (-f2(7) + f2(10))*FL2(4)) + &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & FL2(4)*(c2(14) - c2(15)*FL2(4))*MP12(2)**3)) + &
+ & x1s1**3*(y2*y3*(-(f2(13)*FL2(3)) - f2(14)*FL2(4) - &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2) - &
+ & y3**2*FL2(3)*(-c2(0) + f2(12) + &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**2*FL2(3)*(-c2(0) + f2(15) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2))) + &
+ & x1s1**2*(y2*y3**2* &
+ & (f2(13)*FL2(3) + f2(14)*FL2(4) + &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2) + &
+ & y3**3*FL2(3)*(-c2(0) + f2(12) + &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**3*FL2(3)*(c2(0) - f2(15) - &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**3) - &
+ & y2**2*y3*(FL2(3) - FL2(4))* &
+ & (f2(9) - c2(6)*MP12(2)**2 + &
+ & FL2(3)*(FL2(3) + FL2(4))* &
+ & (f2(7) - f2(10) + &
+ & MP12(2)**2*(c2(4) + c2(15)*MP12(2))))))/ &
+ & (x1s1*(x1s1 - y2)*y2*(x1s1 - y3)*(y2 - y3)*y3*FL2(3)* &
+ & MP12(2))
+ c2(2) = &
+ & (x1s1**3*y2*c2(0)*FL2(3) - x1s1*y2**3*c2(0)*FL2(3) - &
+ & x1s1**3*y3*c2(0)*FL2(3) + y2**3*y3*c2(0)*FL2(3) + &
+ & x1s1*y3**3*c2(0)*FL2(3) - y2*y3**3*c2(0)*FL2(3) - &
+ & y2**3*y3*f2(7)*FL2(3) + y2*y3**3*f2(7)*FL2(3) - &
+ & x1s1*y2**2*y3*f2(8)*FL2(3) - y2**3*y3*f2(8)*FL2(3) + &
+ & x1s1*y2*y3**2*f2(8)*FL2(3) + y2**2*y3**2*f2(8)*FL2(3) + &
+ & x1s1**2*y2*y3*f2(9)*FL2(3) - y2**3*y3*f2(9)*FL2(3) + &
+ & x1s1**3*y3*f2(12)*FL2(3) - x1s1*y3**3*f2(12)*FL2(3) + &
+ & x1s1**3*y3*f2(13)*FL2(3) + &
+ & x1s1**2*y2*y3*f2(13)*FL2(3) - &
+ & x1s1**2*y3**2*f2(13)*FL2(3) - &
+ & x1s1*y2*y3**2*f2(13)*FL2(3) - &
+ & x1s1**3*y2*f2(15)*FL2(3) + x1s1*y2**3*f2(15)*FL2(3) + &
+ & x1s1**2*y2*y3*f2(7)*FL2(3)**3 + &
+ & x1s1*y2**2*y3*f2(7)*FL2(3)**3 - &
+ & x1s1*y2*y3**2*f2(7)*FL2(3)**3 - &
+ & y2**2*y3**2*f2(7)*FL2(3)**3 - &
+ & x1s1**2*y2*y3*f2(10)*FL2(3)**3 - &
+ & x1s1*y2**2*y3*f2(10)*FL2(3)**3 + &
+ & x1s1*y2*y3**2*f2(10)*FL2(3)**3 + &
+ & y2**2*y3**2*f2(10)*FL2(3)**3 - &
+ & x1s1**2*y2*y3*f2(9)*FL2(4) - &
+ & x1s1*y2**2*y3*f2(9)*FL2(4) + &
+ & x1s1*y2*y3**2*f2(9)*FL2(4) + y2**2*y3**2*f2(9)*FL2(4) + &
+ & x1s1**3*y3*f2(14)*FL2(4) + &
+ & x1s1**2*y2*y3*f2(14)*FL2(4) - &
+ & x1s1**2*y3**2*f2(14)*FL2(4) - &
+ & x1s1*y2*y3**2*f2(14)*FL2(4) - &
+ & x1s1*y2**2*y3*f2(11)*FL2(3)*FL2(4) - &
+ & y2**3*y3*f2(11)*FL2(3)*FL2(4) + &
+ & x1s1*y2*y3**2*f2(11)*FL2(3)*FL2(4) + &
+ & y2**2*y3**2*f2(11)*FL2(3)*FL2(4) - &
+ & x1s1**2*y2*y3*f2(7)*FL2(3)*FL2(4)**2 + &
+ & y2**3*y3*f2(7)*FL2(3)*FL2(4)**2 + &
+ & x1s1**2*y2*y3*f2(10)*FL2(3)*FL2(4)**2 - &
+ & y2**3*y3*f2(10)*FL2(3)*FL2(4)**2 - &
+ & (x1s1 - y2)*(x1s1 + y2)*(x1s1 - y3)*(y2 - y3)*FL2(3)* &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (x1s1 - y2)*(x1s1 + y2)*(x1s1 - y3)* &
+ & (-(y3*(c2(4)*FL2(3)**3 + c2(6)*FL2(4))) + &
+ & y2*FL2(3)*(c2(6) + c2(4)*FL2(4)**2))*MP12(2)**2 + &
+ & FL2(3)*((x1s1 - y3)* &
+ & ((-x1s1 + y2)*(y2 - y3)*(x1s1 + y2 + y3)*c2(15) + &
+ & y2*(x1s1 + y2)*y3*c2(15)*FL2(3)**2 + &
+ & x1s1*y3*(x1s1 + y3)*c2(14)*FL2(3)**3) - &
+ & y2*(x1s1 + y2)*(y2 - y3)*y3*c2(14)*FL2(4) + &
+ & y2*(-x1s1**2 + y2**2)*y3*c2(15)*FL2(4)**2 + &
+ & x1s1*y2*(-x1s1**2 + y2**2)*c2(14)*FL2(4)**3)* &
+ & MP12(2)**3)/ &
+ & (x1s1*(x1s1 - y2)*y2*(x1s1 - y3)*(y2 - y3)*y3*FL2(3)* &
+ & MP12(2)**2)
+ c2(7) = &
+ & (x1s1*y2*(f2(9) - c2(6)*MP12(2)**2) + &
+ & y2**2*FL2(3)*(f2(11) + c2(3)*MP12(2) + &
+ & c2(14)*MP12(2)**3) - &
+ & x1s1**2*(f2(14) + &
+ & MP12(2)*(c2(3)*FL2(3) - c2(6)*MP12(2))))/ &
+ & (x1s1*(x1s1 - y2)*y2*FL2(3)*MP12(2)**2)
+ c2(8) = &
+ & (y2**2*(f2(8) + c2(5)*MP12(2)) - &
+ & x1s1*y2*FL2(3)**2* &
+ & (f2(7) - f2(10) + MP12(2)**2*(c2(4) + c2(15)*MP12(2))) &
+ & - x1s1**2*(f2(13) + &
+ & MP12(2)*(c2(5) - c2(4)*FL2(3)**2*MP12(2))))/ &
+ & (x1s1*(x1s1 - y2)*y2*MP12(2)**2)
+ c2(13) = &
+ & (-(x1s1**2*y2*c2(0)*FL2(3)) + x1s1*y2**2*c2(0)*FL2(3) + &
+ & x1s1**2*y3*c2(0)*FL2(3) - y2**2*y3*c2(0)*FL2(3) - &
+ & x1s1*y3**2*c2(0)*FL2(3) + y2*y3**2*c2(0)*FL2(3) + &
+ & y2**2*y3*f2(7)*FL2(3) - y2*y3**2*f2(7)*FL2(3) + &
+ & y2**2*y3*f2(8)*FL2(3) - y2*y3**2*f2(8)*FL2(3) - &
+ & x1s1*y2*y3*f2(9)*FL2(3) + y2**2*y3*f2(9)*FL2(3) - &
+ & x1s1**2*y3*f2(12)*FL2(3) + x1s1*y3**2*f2(12)*FL2(3) - &
+ & x1s1**2*y3*f2(13)*FL2(3) + x1s1*y3**2*f2(13)*FL2(3) + &
+ & x1s1**2*y2*f2(15)*FL2(3) - x1s1*y2**2*f2(15)*FL2(3) - &
+ & x1s1*y2*y3*f2(7)*FL2(3)**3 + y2*y3**2*f2(7)*FL2(3)**3 + &
+ & x1s1*y2*y3*f2(10)*FL2(3)**3 - &
+ & y2*y3**2*f2(10)*FL2(3)**3 + x1s1*y2*y3*f2(9)*FL2(4) - &
+ & y2*y3**2*f2(9)*FL2(4) - x1s1**2*y3*f2(14)*FL2(4) + &
+ & x1s1*y3**2*f2(14)*FL2(4) + &
+ & y2**2*y3*f2(11)*FL2(3)*FL2(4) - &
+ & y2*y3**2*f2(11)*FL2(3)*FL2(4) + &
+ & x1s1*y2*y3*f2(7)*FL2(3)*FL2(4)**2 - &
+ & y2**2*y3*f2(7)*FL2(3)*FL2(4)**2 - &
+ & x1s1*y2*y3*f2(10)*FL2(3)*FL2(4)**2 + &
+ & y2**2*y3*f2(10)*FL2(3)*FL2(4)**2 + &
+ & (x1s1 - y2)*(x1s1 - y3)*(y2 - y3)*FL2(3)* &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (x1s1 - y2)*(x1s1 - y3)* &
+ & (-(y3*(c2(4)*FL2(3)**3 + c2(6)*FL2(4))) + &
+ & y2*FL2(3)*(c2(6) + c2(4)*FL2(4)**2))*MP12(2)**2 + &
+ & FL2(3)*(-((x1s1 - y3)* &
+ & (-((x1s1 - y2)*(y2 - y3)*c2(15)) + &
+ & y2*y3*c2(15)*FL2(3)**2 + &
+ & x1s1*y3*c2(14)*FL2(3)**3)) + &
+ & y2*(y2 - y3)*y3*c2(14)*FL2(4) + &
+ & (x1s1 - y2)*y2*y3*c2(15)*FL2(4)**2 + &
+ & x1s1*(x1s1 - y2)*y2*c2(14)*FL2(4)**3)*MP12(2)**3)/ &
+ & (x1s1*(x1s1 - y2)*y2*(x1s1 - y3)*(y2 - y3)*y3*FL2(3)* &
+ & MP12(2)**3)
+ c2(16) = &
+ & (x1s1*f2(14) - y2*(f2(9) + f2(11)*FL2(3)) + &
+ & (x1s1 - y2)*c2(3)*FL2(3)*MP12(2) + &
+ & (-x1s1 + y2)*c2(6)*MP12(2)**2 - &
+ & y2*c2(14)*FL2(3)*MP12(2)**3)/ &
+ & (x1s1*(x1s1 - y2)*y2*FL2(3)*MP12(2)**3)
+ c2(17) = &
+ & (x1s1*(f2(13) + MP12(2)* &
+ & (c2(5) - c2(4)*FL2(3)**2*MP12(2))) + &
+ & y2*(-f2(8) - c2(5)*MP12(2) + &
+ & FL2(3)**2*(f2(7) - f2(10) + &
+ & MP12(2)**2*(c2(4) + c2(15)*MP12(2)))))/ &
+ & (x1s1*(x1s1 - y2)*y2*MP12(2)**3)
+ c2(18) = &
+ & (-f2(7) + f2(10) - MP12(2)**2*(c2(4) + c2(15)*MP12(2)))/ &
+ & (x1s1*MP12(2)**3)
+ c2(19) = &
+ &(f2(9) - c2(6)*MP12(2)**2)/(x1s1*MP12(2)**3)
+endif
+!----------------------------------------------------------------------------------!
+else
+! print *,'mgetc2.f90: no solutions -> dividing by FL(3),y1,y2,y3'
+ c2(1) = &
+ & (-(y2**2*(y2 - y3)*y3**2*(c2(0) - f2(7))*FL2(2)**2* &
+ & FL2(3)) + y1*y2**2*y3* &
+ & (-(y3*(f2(8)*FL2(2)**2*FL2(3) + f2(10)*FL2(3)**3 + &
+ & FL2(2)*(f2(9)*FL2(2) + f2(11)*FL2(3))*FL2(4))) &
+ & - y3*FL2(2)**2*FL2(3)*(c2(5) + c2(3)*FL2(4))* &
+ & MP12(2) + y3*FL2(2)**2* &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2 - &
+ & y3*(c2(15)*FL2(3)**3 + c2(14)*FL2(2)**5*FL2(4))* &
+ & MP12(2)**3 + &
+ & y2*FL2(3)*(f2(8)*FL2(2)**2 + f2(9)*FL2(2)**2 + &
+ & f2(11)*FL2(2)*FL2(4) + f2(10)*FL2(4)**2 + &
+ & FL2(2)**2*(c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & FL2(2)**2*(c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & (c2(14)*FL2(2)**5 + c2(15)*FL2(4)**2)*MP12(2)**3)) &
+ & + y1**2*(y2*y3**2*FL2(2)**2* &
+ & (f2(13)*FL2(3) + f2(14)*FL2(4) + &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2) + &
+ & y3**3*FL2(2)**2*FL2(3)* &
+ & (-c2(0) + f2(12) + &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**3*FL2(2)**2*FL2(3)* &
+ & (c2(0) - f2(15) - (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**3) - &
+ & y2**2*y3*(FL2(3) - FL2(4))* &
+ & (f2(9)*FL2(2)**2 - &
+ & f2(10)*FL2(3)*(FL2(3) + FL2(4)) + &
+ & FL2(2)**2*(-c2(6) + &
+ & c2(4)*FL2(3)*(FL2(3) + FL2(4)))*MP12(2)**2 + &
+ & (c2(14)*FL2(2)**5 - &
+ & c2(15)*FL2(3)*(FL2(3) + FL2(4)))*MP12(2)**3)) &
+ & + y1**3*FL2(2)**2* &
+ & (y2*y3*(-(f2(13)*FL2(3)) - f2(14)*FL2(4) - &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2) - &
+ & y3**2*FL2(3)*(-c2(0) + f2(12) + &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**2*FL2(3)*(-c2(0) + f2(15) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2))))/ &
+ & (y1*(y1 - y2)*y2*(y1 - y3)*(y2 - y3)*y3*FL2(2)**2*FL2(3)* &
+ & MP12(2))
+ c2(2) = &
+ & (-(((y1 + y2)*y3*(f2(8) + c2(5)*MP12(2)))/ &
+ & ((y1 - y3)*(-y2 + y3))) - &
+ & ((y1 + y2)*y3*FL2(4)*(f2(11) + c2(3)*FL2(2)*MP12(2)))/ &
+ & ((y1 - y3)*(-y2 + y3)*FL2(2)) - &
+ & (y1*(y1 + y2)*FL2(4)**2* &
+ & (f2(10) + MP12(2)**2* &
+ & (-(c2(4)*FL2(2)**2) + c2(15)*MP12(2))))/ &
+ & ((y1 - y3)*(-y2 + y3)*FL2(2)**2) - &
+ & (y1*(y1 + y2)*(f2(9) + &
+ & MP12(2)**2*(-c2(6) + c2(14)*FL2(2)**3*MP12(2))))/ &
+ & ((y1 - y3)*(-y2 + y3)) + &
+ & ((y1 + y2)*FL2(4)* &
+ & (-(y2**2*FL2(3)*(f2(11) + c2(3)*FL2(2)*MP12(2))) + &
+ & y1**2*FL2(2)* &
+ & (f2(14) + MP12(2)*(c2(3)*FL2(3) - c2(6)*MP12(2))) &
+ & - y1*y2*FL2(2)* &
+ & (f2(9) + MP12(2)**2* &
+ & (-c2(6) + c2(14)*FL2(2)**3*MP12(2)))))/ &
+ & ((y1 - y2)*y2*(y2 - y3)*FL2(2)*FL2(3)) + &
+ & ((y1 + y2)*(-(y2**2*FL2(2)**2* &
+ & (f2(8) + c2(5)*MP12(2))) - &
+ & y1*y2*FL2(3)**2* &
+ & (f2(10) + MP12(2)**2* &
+ & (-(c2(4)*FL2(2)**2) + c2(15)*MP12(2))) + &
+ & y1**2*FL2(2)**2* &
+ & (f2(13) + MP12(2)* &
+ & (c2(5) - c2(4)*FL2(3)**2*MP12(2)))))/ &
+ & ((y1 - y2)*y2*(y2 - y3)*FL2(2)**2) + &
+ & (y1*(y2*(y2 - y3)*y3*(y2 + y3)*(c2(0) - f2(7)) + &
+ & y1**3*(y3*(-c2(0) + f2(12) + &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2*(c2(0) - f2(15) - &
+ & (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**3)) + &
+ & y1*(y3**3*(c2(0) - f2(12) - &
+ & (c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**3*(-c2(0) + f2(15) + &
+ & MP12(2)* &
+ & (c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2)))) &
+ & )/((y1 - y2)*y2*(y1 - y3)*(y2 - y3)*y3))/ &
+ & (y1**2*MP12(2)**2)
+ c2(7) = &
+ & (y2**2*FL2(3)*(f2(11) + c2(3)*FL2(2)*MP12(2)) - &
+ & y1**2*FL2(2)*(f2(14) + &
+ & MP12(2)*(c2(3)*FL2(3) - c2(6)*MP12(2))) + &
+ & y1*y2*FL2(2)*(f2(9) + &
+ & MP12(2)**2*(-c2(6) + c2(14)*FL2(2)**3*MP12(2))))/ &
+ & (y1*(y1 - y2)*y2*FL2(2)*FL2(3)*MP12(2)**2)
+ c2(8) = &
+ & (y2**2*FL2(2)**2*(f2(8) + c2(5)*MP12(2)) + &
+ & y1*y2*FL2(3)**2*(f2(10) + &
+ & MP12(2)**2*(-(c2(4)*FL2(2)**2) + c2(15)*MP12(2))) - &
+ & y1**2*FL2(2)**2*(f2(13) + &
+ & MP12(2)*(c2(5) - c2(4)*FL2(3)**2*MP12(2))))/ &
+ & (y1*(y1 - y2)*y2*FL2(2)**2*MP12(2)**2)
+ c2(13) = &
+ & (y2*y3*(y3*(c2(0)*FL2(2)**2*FL2(3) - &
+ & f2(7)*FL2(2)**2*FL2(3) - f2(8)*FL2(2)**2*FL2(3) - &
+ & f2(10)*FL2(3)**3 - f2(9)*FL2(2)**2*FL2(4) - &
+ & f2(11)*FL2(2)*FL2(3)*FL2(4) - &
+ & FL2(2)**2*FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & FL2(2)**2*(c2(4)*FL2(3)**3 + c2(6)*FL2(4))* &
+ & MP12(2)**2 - &
+ & (c2(15)*FL2(3)**3 + c2(14)*FL2(2)**5*FL2(4))* &
+ & MP12(2)**3) + &
+ & y2*FL2(3)*(-(c2(0)*FL2(2)**2) + f2(7)*FL2(2)**2 + &
+ & f2(8)*FL2(2)**2 + f2(9)*FL2(2)**2 + &
+ & f2(11)*FL2(2)*FL2(4) + f2(10)*FL2(4)**2 + &
+ & FL2(2)**2*(c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & FL2(2)**2*(c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 + &
+ & (c2(14)*FL2(2)**5 + c2(15)*FL2(4)**2)*MP12(2)**3)) &
+ & + y1*(y3**2*FL2(2)**2* &
+ & ((-c2(0) + f2(12) + f2(13))*FL2(3) + &
+ & f2(14)*FL2(4) + &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) - &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2 + &
+ & FL2(3)*(c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2**2*FL2(2)**2*FL2(3)* &
+ & (c2(0) - f2(15) - (c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2)**2 - &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**3) + &
+ & y2*y3*(FL2(3) - FL2(4))* &
+ & (-(f2(9)*FL2(2)**2) + &
+ & f2(10)*FL2(3)*(FL2(3) + FL2(4)) + &
+ & FL2(2)**2*(c2(6) - &
+ & c2(4)*FL2(3)*(FL2(3) + FL2(4)))*MP12(2)**2 + &
+ & (-(c2(14)*FL2(2)**5) + &
+ & c2(15)*FL2(3)*(FL2(3) + FL2(4)))*MP12(2)**3)) &
+ & + y1**2*FL2(2)**2* &
+ & (y3*(c2(0)*FL2(3) - (f2(12) + f2(13))*FL2(3) - &
+ & f2(14)*FL2(4) - &
+ & FL2(3)*(c2(5) + c2(3)*FL2(4))*MP12(2) + &
+ & (c2(4)*FL2(3)**3 + c2(6)*FL2(4))*MP12(2)**2 - &
+ & FL2(3)*(c2(15) + c2(14)*FL2(3)**3)*MP12(2)**3) + &
+ & y2*FL2(3)*(-c2(0) + f2(15) + &
+ & MP12(2)*(c2(5) + c2(3)*FL2(4) - &
+ & (c2(6) + c2(4)*FL2(4)**2)*MP12(2) + &
+ & (c2(15) + c2(14)*FL2(4)**3)*MP12(2)**2))))/ &
+ & (y1*(y1 - y2)*y2*(y1 - y3)*(y2 - y3)*y3*FL2(2)**2*FL2(3)* &
+ & MP12(2)**3)
+ c2(16) = &
+ & (y1*FL2(2)*(f2(14) + &
+ & MP12(2)*(c2(3)*FL2(3) - c2(6)*MP12(2))) - &
+ & y2*(f2(11)*FL2(3) + &
+ & FL2(2)*(f2(9) + &
+ & MP12(2)*(c2(3)*FL2(3) - c2(6)*MP12(2) + &
+ & c2(14)*FL2(2)**3*MP12(2)**2))))/ &
+ & (y1*(y1 - y2)*y2*FL2(2)*FL2(3)*MP12(2)**3)
+ c2(17) = &
+ & (y1*FL2(2)**2*(f2(13) + &
+ & MP12(2)*(c2(5) - c2(4)*FL2(3)**2*MP12(2))) - &
+ & y2*(f2(8)*FL2(2)**2 + c2(5)*FL2(2)**2*MP12(2) + &
+ & FL2(3)**2*(f2(10) - c2(4)*FL2(2)**2*MP12(2)**2 + &
+ & c2(15)*MP12(2)**3)))/ &
+ & (y1*(y1 - y2)*y2*FL2(2)**2*MP12(2)**3)
+ c2(18) = &
+ & (f2(10) - c2(4)*FL2(2)**2*MP12(2)**2 + c2(15)*MP12(2)**3)/ &
+ & (y1*FL2(2)**2*MP12(2)**3)
+ c2(19) = &
+ & (f2(9) - c2(6)*MP12(2)**2 + c2(14)*FL2(2)**3*MP12(2)**3)/ &
+ & (y1*MP12(2)**3)
+endif
+! Fstep=5~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+if(abs(FL2(5)).lt. 1.0e-10_ki) then
+! print *,'mgetc2.f90: FL2(5)=0 -> dividing by mu2g(2)'
+ c2(9) = &
+ &-((c2(0) - f2(16) + c2(6)*MP12(2)**2)/mu2g(2))
+ c2(11) = &
+ & (f2(16) - f2(18) - &
+ & MP12(2)*(c2(3) + &
+ & MP12(2)*(-c2(4) + c2(6) + c2(14)*MP12(2))))/ &
+ & (mu2g(2)*MP12(2))
+ c2(12) = &
+ &-((f2(17) + c2(5)*MP12(2) + c2(15)*MP12(2)**3)/(mu2g(2)*MP12(2)))
+!----------------------------------------------------------------------------------!
+else
+! print *, 'mgetc2.f90: FL2(5) nonzero -> dividing by FL2(5),mu2g(2)'
+ c2(9) = &
+ &(-c2(0) + f2(16) + (c2(15) + c2(14)*FL2(5)**3)*MP12(2)**3)/mu2g(2)
+ c2(11) = &
+ & -((f2(18) + c2(3)*FL2(5)*MP12(2) - c2(6)*MP12(2)**2)/ &
+ & (mu2g(2)*FL2(5)*MP12(2)))
+ c2(12) = &
+ & -((f2(17) + MP12(2)*(c2(5) - c2(4)*FL2(5)**2*MP12(2)))/ &
+ & (mu2g(2)*MP12(2)))
+endif
+! Fstep=6~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ c2(10) = &
+ & (-c2(0) - mu2g(2)*c2(9) + f2(19) + &
+ & mu2g(2)*(c2(12) + c2(11)*FL2(6))*MP12(2) + &
+ & MP12(2)*(-c2(1) + c2(5) + c2(3)*FL2(6) + &
+ & MP12(2)*(-c2(2) - c2(6) + c2(8) + &
+ & FL2(6)*(c2(7) - c2(4)*FL2(6)) + &
+ & (-c2(13) + c2(15) + c2(17) - c2(19) + &
+ & FL2(6)*(c2(16) - c2(18)*FL2(6) + &
+ & c2(14)*FL2(6)**2))*MP12(2))))/(mu2g(2)*MP12(2))
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case default
+ print *, 'error in mgetc2.f90'
+ end select
+
+ if (diff.ge.0) then
+ do i=10,19
+ c2(i)=czip
+ enddo
+ if (diff.ge.1) then
+ c2(2)=czip
+ c2(4)=czip
+ c2(6)=czip
+ c2(7)=czip
+ c2(8)=czip
+ c2(9)=czip
+ if (diff.ge.2) then
+ c2(1)=czip
+ c2(3)=czip
+ c2(5)=czip
+ endif
+ endif
+ endif
+end subroutine getc2_rm
+
+subroutine DFT2(n,nold,known,f2)
+! PARAMETERS=======================================================================!
+ ! external paramters
+ complex(ki),intent(in ) :: known(20)
+ integer, intent(in ) :: n
+ integer, intent(inout) :: nold
+ complex(ki),intent(inout) :: f2(0:19)
+ ! internal parameters
+ complex(ki) :: summation
+ real(ki) :: theta
+ integer :: k,i
+! DOING THE DFT N TIMES AND FILLING F2==============================================!
+ theta=twopi/n
+ !loop over number of number of f2's to fill
+ do i=1,n
+ summation=czip
+ ! DFT summation
+ do k=0,n-1
+ summation = summation + known(k+nold+1)*&
+ &(cos(theta*real((i-1)*k,ki))+im*sin(theta*real((i-1)*k,ki)))
+ enddo
+ f2(i+nold-1) = summation/n
+ enddo
+ nold=nold+n
+end subroutine DFT2
+
+
+
+subroutine HResL2(resin,nsol,nloops,nleg,cut2,q2,qt,Vi,msq,mu2vec)
+ use mfunctions
+ use precision
+ use mglobal, only: denst,resit,mu2t
+! PARAMETERS============================================================================!
+ ! external parameters
+ complex(ki), dimension(20), intent(inout) :: resin
+
+
+ integer, intent(in ) :: nsol, nloops, nleg, cut2
+ complex(ki), dimension(20,4), intent(in ) :: q2
+ complex(ki), dimension(20), intent(in ) :: mu2vec
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ ! internal parameters
+ integer :: i, j1, j2, n
+ integer :: i1, i2, i3, i4, i5
+ logical :: evalres
+ complex(ki), dimension(20) :: densn
+ complex(ki) :: densnt
+ logical :: notcut
+ integer, dimension(5) :: iarr
+ integer :: dicutn
+! INITIALIZATION========================================================================!
+ ! cuts
+ j2 = cut2/10
+ j1 = cut2-j2*10
+ dicutn = 1
+! LOOP==================================================================================!
+ select case(nloops)
+ case(5)
+ do i5=4,nleg-1
+ do i4=3,i5-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(5)=i5
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l5: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if ((i.ne.j1).and.(i.ne.j2)) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l5
+ endif
+ endif
+ enddo l5
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*res5(dicutn,mu2vec(n))
+ enddo
+ resit(2)=resit(2)+densnt*Res5(dicutn,mu2t(2))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(4)
+ do i4=3,nleg-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l4: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if ((i.ne.j1).and.(i.ne.j2)) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l4
+ endif
+ endif
+ enddo l4
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res4(dicutn,q2(n,:),mu2vec(n))
+ enddo
+ resit(2)=resit(2)+densnt*Res4(dicutn,qt,mu2t(2))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(3)
+ do i3=2,nleg-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l3: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if ((i.ne.j1).and.(i.ne.j2)) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l3
+ endif
+ endif
+ enddo l3
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res3(dicutn,q2(n,:),mu2vec(n))
+ enddo
+ resit(2)=resit(2)+densnt*Res3(dicutn,qt,mu2t(2))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ end select
+!========================================
+end subroutine HResL2
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- integer :: i,m,n,j1,j2,i1,i2,i3,i4,i5
- integer :: dicut5,dicut4,dicut3,mx,diff,nsol
- complex(ki), dimension(10) :: dens2,dens3,dens4,dens5,xneval
- complex(ki), dimension(10) :: resi5,resi4,resi3,known
- complex(ki), dimension(0:9) :: f2
- complex(ki) :: dens3t,dens4t,dens5t
- logical evalres
- !real(ki) :: Fppow2, Fppow3, Fppow4
- !real(ki) :: Fzpow2, Fzpow3, Fzpow4, Fzpow5, Fzpow6, tmp1
- !---#[ HAGGIES:
- complex(ki) :: t1
- complex(ki) :: t2
- complex(ki) :: t3
- complex(ki) :: t4
- complex(ki) :: t5
- complex(ki) :: t6
- complex(ki) :: t7
- complex(ki) :: t8
- complex(ki) :: t9
- complex(ki) :: t10
- complex(ki) :: t11
- complex(ki) :: t12
- complex(ki) :: t13
- complex(ki) :: t14
- complex(ki) :: t15
- complex(ki) :: t16
- complex(ki) :: t17
- complex(ki) :: t18
- complex(ki) :: t19
- complex(ki) :: t20
- complex(ki) :: t21
- complex(ki) :: t22
- complex(ki) :: t23
- complex(ki) :: t24
- complex(ki) :: t25
- complex(ki) :: t26
- complex(ki) :: t27
- complex(ki) :: t28
- complex(ki) :: t29
- complex(ki) :: t30
- complex(ki) :: t31
- complex(ki) :: t32
- complex(ki) :: t33
- complex(ki) :: t34
- complex(ki) :: t35
- complex(ki) :: t36
- complex(ki) :: t37
- complex(ki) :: t38
- complex(ki) :: t39
- complex(ki) :: t40
- complex(ki) :: t41
- complex(ki) :: t42
- complex(ki) :: t43
- complex(ki) :: t44
- complex(ki) :: t45
- !---#] HAGGIES:
- complex(ki), dimension(10) :: mu2vec
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
- mu2test(2) = mu2t(2)
-
- j2=cut2/10
- j1=cut2-j2*10
- resi3(:)=czip
- resi4(:)=czip
- resi5(:)=czip
- known(:)=czip
- xneval(:)=czip
- dens2(:)=cone
-!--- for lnntest
- resit(2)=czip
- denst(2)=cone
-!--- for simplified sampling
- diff = nleg-rank
-
- if (diff.eq.2) then
- !---#[ simplified sampling -- only c2(0):
- if (nleg.eq.5) then
- resi5(1)=res5(1,czip)
- resit(2)=res5(1,mu2t(2))
- goto 11
- elseif (nleg.eq.4) then
- resi4(1)=Res4(1,q2(1,:),czip)
- resit(2) =res4(1,qt,mu2t(2))
- goto 21
- elseif (nleg.eq.3) then
- resi3(1)=Res3(1,q2(1,:),czip)
- resit(2)=Res3(1,qt,mu2t(2))
- goto 31
- elseif (nleg.eq.2) then
- goto 36
- else
- !---#[ Contributo dei pentuple cuts:
- dicut5=1
- do i5=4,nleg-1
- do i4=3,i5-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens5(1)=cone
- dens5t=cone
- evalres=.false.
- loop_10: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
- & .and.(i.ne.i4).and.(i.ne.i5)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens5(1)=czip
- dens5t=czip
- evalres=.false.
- exit loop_10
- else
- dens5(1)=dens5(1)&
- &*denevalmu2(nleg,i,q2(1,:),Vi,msq,czip)
- dens5t=dens5t&
- &*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_10
- if (evalres) then
- resi5(1)=resi5(1)+dens5(1)*res5(dicut5,czip)
- resit(2)=resit(2)+dens5t*res5(dicut5,mu2t(2))
- endif
- dicut5=dicut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei pentuple cuts:
- endif
- 11 continue
- !---#[ Contributo dei quadruple cuts:
- dicut4=1
- do i4=3,nleg-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens4(1)=cone
- dens4t=cone
-
- evalres=.false.
-
- loop_20: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.&
- &(i.ne.i3).and.(i.ne.i4)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens4(1)=czip
- dens4t=czip
- evalres=.false.
- exit loop_20
- else
- dens4(1)=dens4(1)*denevalmu2(nleg,i,q2(1,:),&
- &Vi,msq,czip)
- dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_20
-
-
- if (evalres) then
- resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q2(1,:),czip)
- resit(2)=resit(2)+dens4t*Res4(dicut4,qt,mu2t(2))
- endif
-
- dicut4=dicut4+1
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei quadruple cuts:
- 21 continue
- !---#[ Contributo dei Triple cuts:
- dicut3=1
- do i3=2,nleg-1
- do i2=1,i3-1
- do i1=0,i2-1
-
- dens3(1)=cone
- dens3t=cone
- evalres=.false.
-
- loop_30: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens3(1)=czip
- dens3t=czip
- evalres=.false.
- exit loop_30
- else
- dens3(1)=dens3(1)*denevalmu2(nleg,i,q2(1,:),&
- &Vi,msq,czip)
- dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_30
-
- if (evalres) then
- resi3(1)=resi3(1)+dens3(1)*Res3(dicut3,q2(1,:),czip)
- resit(2)=resit(2)+dens3t*Res3(dicut3,qt,mu2t(2))
- endif
-
- dicut3=dicut3+1
- enddo
- enddo
- enddo
- !---#] Contributo dei Triple cuts:
- 31 continue
- do i=0,nleg-1
- if ((i.ne.j1).and.(i.ne.j2)) then
- dens2(1)=dens2(1)*denevalmu2(nleg,i,q2(1,:),Vi,msq,czip)
- denst(2)=denst(2)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- endif
- enddo
- 36 continue
-
- xneval(1)=numeval(cut2,q2(1,:),czip)
-
- if (imeth.eq.'diag') then
- known(1)=(xneval(1)-resi5(1)-resi4(1)-resi3(1))/dens2(1)
- elseif (imeth.eq.'tree') then
- known(1)=xneval(1)-(resi5(1)+resi4(1)+resi3(1))/dens2(1)
- endif
-
- c2(0)=known(1)
- do m=1,9
- c2(m)=czip
- enddo
-
- !---#] simplified sampling -- only c2(0):
- else
- !---#[ Decomposizione standard:
- if (diff.eq.1) then
- ! rank1 c-system: 4 coefficients
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,czip/)
- nsol=4
-
- else
- ! traditional system
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,mu2g(2)/)
- nsol=10
- endif
-
- if (nleg.eq.5) then
- do n=1,nsol
- resi5(n)=Res5(1,mu2vec(n))
- enddo
- resit(2)=Res5(1,mu2t(2))
- goto 111
- elseif (nleg.eq.4) then
- do n=1,nsol
- resi4(n)=Res4(1,q2(n,:),mu2vec(n))
- enddo
- resit(2)=Res4(1,qt,mu2t(2))
- goto 121
- elseif (nleg.eq.3) then
- do n=1,nsol
- resi3(n)=Res3(1,q2(n,:),mu2vec(n))
- enddo
- resit(2)=Res3(1,qt,mu2t(2))
- goto 131
- elseif (nleg.eq.2) then
- goto 136
- else
- !---#[ Contributo dei pentuple cuts:
- dicut5=1
- do i5=4,nleg-1
- do i4=3,i5-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens5(:)=cone
- dens5t=cone
- evalres=.false.
-
- loop_110: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.(i.ne.i4).and.(i.ne.i5)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens5(:)=czip
- dens5t=czip
- evalres=.false.
- exit loop_110
- else
- do n=1,nsol
- dens5(n)=dens5(n)*denevalmu2(nleg,i,&
- &q2(n,:),Vi,msq,mu2vec(n))
- enddo
- dens5t=dens5t*denevalmu2(nleg,i,qt,Vi,msq,&
- &mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_110
-
- if (evalres) then
- do n=1,nsol
- resi5(n)=resi5(n)+dens5(n)*res5(dicut5,mu2vec(n))
- enddo
- resit(2)=resit(2)+dens5t*res5(dicut5,mu2t(2))
- endif
-
- dicut5=dicut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei pentuple cuts:
- endif
- 111 continue
- !---#[ Contributo dei quadruple cuts:
- dicut4=1
- do i4=3,nleg-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens4(:)=cone
- dens4t=cone
- evalres=.false.
-
- loop_120: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3).and.&
- &(i.ne.i4)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens4(:)=czip
- dens4t=czip
- evalres=.false.
- exit loop_120
- else
- do n=1,nsol
- dens4(n)=dens4(n)*denevalmu2(nleg,i,&
- &q2(n,:),Vi,msq,mu2vec(n))
- enddo
- dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,&
- &mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_120
-
- if (evalres) then
- do n=1,nsol
- resi4(n)=resi4(n)+dens4(n)*Res4(dicut4,q2(n,:),&
- &mu2vec(n))
- enddo
- resit(2)=resit(2)+dens4t*Res4(dicut4,qt,mu2t(2))
- endif
-
- dicut4=dicut4+1
- enddo
- enddo
- enddo
- enddo
- !---#] Contributo dei quadruple cuts:
- 121 continue
- !---#[ Contributo dei Triple cuts:
- dicut3=1
- loop_dicut3: do i3=2,nleg-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens3(:)=cone
- dens3t=cone
- evalres=.false.
- loop_130: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
- if ((i.eq.j1).or.(i.eq.j2)) then
- dens3(:)=czip
- dens3t=czip
- evalres=.false.
- exit loop_130
- else
- do n=1,nsol
- dens3(n)=dens3(n)&
- & *denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
- enddo
- dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- evalres=.true.
- endif
- endif
- enddo loop_130
-
- if (evalres) then
- do n=1,nsol
- resi3(n)=resi3(n)+dens3(n)*Res3(dicut3,q2(n,:),&
- &mu2vec(n))
- enddo
- resit(2)=resit(2)+dens3t*Res3(dicut3,qt,mu2t(2))
- endif
-
- dicut3=dicut3+1
- enddo
- enddo
- enddo loop_dicut3
- !---#] Contributo dei Triple cuts:
- 131 continue
-
- do i=0,nleg-1
- if ((i.ne.j1).and.(i.ne.j2)) then
- do n=1,nsol
- dens2(n)=dens2(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
- enddo
- denst(2)=denst(2)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
- endif
- enddo
- 136 continue
- do n=1,nsol
- xneval(n)=numeval(cut2,q2(n,:),mu2vec(n))
- enddo
- if (imeth.eq.'diag') then
- known(:)=(xneval(:)-resi5(:)-resi4(:)-resi3(:))/dens2(:)
- elseif (imeth.eq.'tree') then
- known(:)=xneval(:)-(resi5(:)+resi4(:)+resi3(:))/dens2(:)
- endif
- if (diff.eq.1) then
- ! rank1 c-system: 4 coefficients
-
- do m=0,1
- f2(m)=effe(known,1,2,m)
- enddo
-
- do m=2,3
- mx=m-2
- f2(m)=effe(known,3,2,mx)
- enddo
-
- !---#[ getc2_S1:
- !----#[ original code:
-! c2(0) = f2(0)
-! c2(1) = (-f2(0) + f2(2))/(KB*MP12(2))
-! c2(3) = (KK(2)*(f2(1) - Fz*f2(3)))/((-one + Fp*Fz)*MP12(2))
-! c2(5) = (-(Fp*MP12(2)*c2(3)) - KK(2)*f2(3))/(KK(2)**2*MP12(2))
- !----#] original code:
- !----#[ HAGGIES:
- t1 = f2(0)
- c2(0) = t1
- c2(1) = ((f2(2)-t1)/(KB*MP12(2)))
- t1 = f2(3)
- c2(3) = ((f2(1)-t1*Fz)/((Fp*Fz-one)*MP12(2))*KK(2))
- c2(5) = ((-(Fp*MP12(2)*c2(3)+t1*KK(2)))/(KK(2)*KK(2)*MP12(2)))
- !----#] HAGGIES:
- !---#] getc2_S1:
- else
- ! traditional system
- do m=0,2
- f2(m)=effe(known,1,3,m)
- enddo
- do m=3,4
- mx=m-3
- f2(m)=effe(known,4,2,mx)
- enddo
- do m=5,6
- mx=m-5
- f2(m)=effe(known,6,2,mx)
- enddo
- f2(7)=known(8)
- f2(8)=known(9)
- f2(9)=known(10)
-
- !---#[ getc2_S2:
- !----#[ original code:
-! !--- coefficienti
-! Fppow2 = Fp*Fp
-! Fppow3 = Fppow2*Fp
-! Fppow4 = Fppow3*Fp
-! Fzpow2 = Fz*Fz
-! Fzpow3 = Fzpow2*Fz
-! Fzpow4 = Fzpow3*Fz
-! Fzpow5 = Fzpow4*Fz
-! Fzpow6 = Fzpow5*Fz
-! tmp1 = one - Fppow2
-! c2(2) = (0.5_ki*(Fppow3*((one + Fzpow4)*f2(0) + f2(1) - f2(3) + Fz*&
-! &(Fz*(f2(1) + (one + Fzpow2)*f2(2) + Fz*(-Fz*f2(3) - f2(4))) - f2(4)))&
-! &+ Fppow4*(-f2(0) - Fzpow2*f2(1) - Fzpow4*f2(2) + f2(3) + Fzpow3*f2(4))&
-! &+ Fm**2*(tmp1*f2(0) + tmp1*Fzpow2*f2(1) + tmp1*Fzpow4*f2(2) + (-tmp1)&
-! &*f2(3) + (-tmp1)*Fzpow3*f2(4)) + two*((-one - Fzpow2 - Fzpow4 + Fzpow6)&
-! &*f2(0) + (-one - Fzpow4)*f2(1) - f2(2) + Fz*(-Fz*f2(2) + Fz*f2(3)&
-! &+ Fzpow3*f2(3) + f2(4) + Fzpow4*f2(4))) + f2(5) + f2(6) + Fm*((one&
-! &+ Fzpow4 + Fzpow3*two + Fppow2*(-one - Fzpow4 - Fzpow3*two))*f2(0)&
-! &+ (one + Fzpow2 + Fzpow5*two + Fppow2*(-one - Fzpow2 - Fzpow5*two))*f2(1)&
-! &+ tmp1*Fzpow2*f2(2) + (-tmp1)*f2(3) + Fzpow4*(tmp1*f2(2) + (-tmp1)*f2(3))&
-! &- two*f2(4) + Fppow2*two*f2(4) - tmp1*Fzpow3*(two*f2(3) + f2(4)) + Fz&
-! &*(tmp1*two*f2(2) - tmp1*f2(4)) - f2(5) - Fp*f2(6) + Fzpow6*(f2(5) + Fp&
-! &*f2(6) - f2(7)) + f2(7)) + Fp*((-one - Fzpow4)*f2(0) - f2(1) + f2(3)&
-! &+ f2(5) - f2(7) + Fz*(f2(4) + Fz*(-f2(1) - (one + Fzpow2)*f2(2) + Fz&
-! &*(Fz*f2(3) + f2(4) + Fzpow3*(-f2(5) + f2(7)))))) + Fzpow6*(-f2(5) - f2(6)&
-! &- f2(8)) + f2(8) + Fppow2*((three + Fzpow2*(one + Fzpow2 - Fzpow4)*two)&
-! &*f2(0) + two*f2(1) + two*f2(2) - f2(3) + Fzpow4*(two*f2(1) + f2(2) - two&
-! &*f2(3)) + Fzpow2*(f2(1) + two*f2(2) - two*f2(3)) - Fzpow3*f2(4) - Fz*two&
-! &*f2(4) - Fzpow5*two*f2(4) - f2(5) - f2(8) + Fzpow6*(f2(5) + f2(8)))))/&
-! &((-tmp1)*(-one + Fzpow6)*MP12(2)**2)
-! c2(7) = (KK(2)*(f2(2) + Fppow2*(-(Fzpow4*f2(1)) - f2(2) + Fzpow2*(-f2(0)&
-! &+ f2(3)) + Fzpow5*f2(4)) + Fppow3*(-((one + Fzpow4)*f2(0))&
-! &- (one + Fzpow2)*(f2(1) + Fzpow2*f2(2)) + (one + Fzpow4)*f2(3) &
-! &+ (Fz + Fzpow3)*f2(4)) - f2(6) + Fzpow2*(f2(0) - f2(3) +&
-! &Fzpow2*(f2(1) + Fz*(-f2(4) + Fz*f2(6)))) +&
-! &Fp*((one + Fzpow4)*f2(0) + f2(1) - f2(3) - f2(5) +&
-! &Fz*(Fz*(f2(1) + f2(2)) + Fzpow3*(f2(2) - f2(3)) -&
-! &f2(4) - Fzpow2*f2(4) + Fzpow5*(f2(5) - f2(7))) +&
-! &f2(7))))/((-tmp1)*(-one + Fzpow6)*MP12(2)**2)
-! c2(8) = ((-tmp1)*(one + Fzpow3 + Fzpow4)*f2(0) +&
-! &(-tmp1)*(one + Fzpow2 + Fzpow5)*f2(1) + (-tmp1)*Fzpow2*f2(2) +&
-! &(-tmp1)*Fzpow4*(f2(2) - f2(3)) + f2(3) + (-tmp1)*Fz*(f2(2) - f2(4))&
-! &+ f2(4) - (-tmp1)*Fzpow3*(f2(3) + f2(4)) + f2(5) +&
-! &Fp*(-(Fp*(f2(3) + f2(4))) + f2(6)) - Fzpow6*(f2(5) + Fp*f2(6) - f2(7))&
-! &- f2(7))/ ((-tmp1)*(-one + Fzpow6)*KK(2)*MP12(2)**2)
-! c2(4) = -((KK(2)**2*(f2(1) + Fzpow2*f2(2) + Fzpow4*(f2(0) - f2(3)) -&
-! &Fz*f2(4)))/((-one + Fzpow6)*MP12(2)**2))
-! c2(5) = (Fzpow3*f2(0) + Fzpow5*f2(1) + Fz*f2(2) - Fzpow3*f2(3) -&
-! &f2(4))/(KK(2)*MP12(2) - Fzpow6*KK(2)*MP12(2))
-! c2(3) = (KK(2)*(f2(2) + Fzpow2*(f2(0) - f2(3) + Fzpow2*(f2(1)&
-! - Fz*f2(4)))))/((-one + Fzpow6)*MP12(2))
-! c2(6) = (f2(0) - f2(3) + Fzpow2*(f2(1) + Fz*(Fz*f2(2) - f2(4))))/&
-! &((-one + Fzpow6)*KK(2)**2*MP12(2)**2)
-! c2(0) = f2(0)
-! c2(9) = (KK(2)*MP12(2)*c2(3) - MP12(2)**2*c2(4)&
-! &+ F1z*KK(2)**3*MP12(2)*c2(5) - F1z**2*KK(2)**4*MP12(2)**2*c2(6) &
-! &+ KK(2)**2*(-c2(0) + f2(9)))/(KK(2)**2*mu2g(2))
-! c2(1) = -(c2(3)/KK(2)) - Fm*KK(2)*c2(5) + (MP12(2)*(c2(4) + KK(2)*(c2(7)&
-! &+ KK(2)*(c2(2) + Fm*KK(2)*(Fm*KK(2)*c2(6) + c2(8))))))/KK(2)**2&
-! &+ (c2(0) - f2(8))/MP12(2)
- !----#] original code:
- !----#[ HAGGIES:
- t1 = (1.0_ki)+Fp
- t2 = Fz*Fz
- t3 = t2*Fz
- t4 = t3-(1.0_ki)
- t5 = (1.0_ki)+t3
- t6 = f2(2)
- t7 = t2*t2
- t8 = -(t7+(1.0_ki))
- t9 = f2(1)
- t10 = t3*t3
- t11 = f2(0)
- t12 = f2(4)
- t13 = t6*Fz
- t14 = f2(3)
- t15 = t14*Fz
- t16 = t15*t2
- t17 = f2(5)
- t18 = f2(6)
- t19 = f2(8)
- t20 = t9-t14
- t21 = (1.0_ki)+t7
- t22 = t11*t21
- t23 = (1.0_ki)+t2
- t24 = t23*t6
- t25 = Fp*Fp
- t26 = t14-t11
- t27 = t12*Fz
- t28 = t2*t27
- t29 = ((1.0_ki)-Fp)*t1
- t30 = t14*t29
- t31 = t29*t6
- t32 = t12*t29
- t33 = f2(7)
- t34 = t6+t9
- t35 = t27*t7
- t36 = t6-t14
- t37 = t17-t33
- t38 = t18*Fp
- t39 = (t37+t38)*t10
- t40 = t7*Fz
- t41 = (2.0_ki)*t40
- t42 = (2.0_ki)*t3
- t43 = t2*t31
- t44 = MP12(2)*MP12(2)
- t45 = t29*t4*t44*t5
- c2(2) = (-1.0_ki)*((2.0_ki)*((t10-(t7+t2+(1.0_ki)))*t11+(t12+t15+t&
- &16+t12*t7-t13)*Fz+t8*t9-t6)+t17+t18+t19+(-(t19+t18+t17))*t10+(t26&
- &+t28-(t6*t7+t2*t9))*t25*t25+(t11*t29+t31*t7+t2*t29*t9-(t2*t32*Fz+&
- &t30))*Fm*Fm+(t14+t17+(t12+((t12+t15+(t33-t17)*t2*Fz)*Fz-(t9+t24))&
- &*Fz)*Fz+t11*t8-(t9+t33))*Fp+((2.0_ki)*(t34-(t35+t27))+((3.0_ki)+(&
- &2.0_ki)*((1.0_ki)+t2-t7)*t2)*t11+(t17+t19)*t10+((2.0_ki)*t20+t6)*&
- &t7+((2.0_ki)*t36+t9)*t2-(t28+t19+t17+t14))*t25+((2.0_ki)*(t12*t25&
- &-t12)+t33+t39+t43+(t31-t30)*t7+((2.0_ki)*t31-t32)*Fz+((1.0_ki)+t2&
- &+t41+(-(t41+t2+(1.0_ki)))*t25)*t9+((1.0_ki)+t42+t7+(-(t7+t42+(1.0&
- &_ki)))*t25)*t11-((t12+(2.0_ki)*t14)*t2*t29*Fz+t38+t30+t17))*Fm+(t&
- &20+t22+((t24+t9+(-(t15+t12))*Fz)*Fz-t12)*Fz)*t25*Fp)/t45*0.5_ki
- t8 = t11-t14
- t10 = t2*t6
- c2(7) = (-1.0_ki)*(t6+(t8+(t9+(t18*Fz-t12)*Fz)*t2)*t2+(t35+t2*t26-&
- &(t7*t9+t6))*t25+(t20+t22+t33+(t34*Fz+t2*t36*Fz+t37*t7*Fz-(t12*t2+&
- &t12))*Fz-t17)*Fp+((t3+Fz)*t12+t14*t21-((t10+t9)*t23+t22))*t25*Fp-&
- &t18)/t45*KK(2)
- t14 = t12+t14
- c2(8) = ((t14+t17+(t18-t14*Fp)*Fp+t14*t2*t29*Fz-(t29*t36*t7+((1.0_&
- &ki)+t3+t7)*t11*t29+((1.0_ki)+t2+t40)*t29*t9+(t6-t12)*t29*Fz+t43+t&
- &39+t33))/((Fp-(1.0_ki))*t1*t4*t44*t5*KK(2)))
- t1 = KK(2)*KK(2)
- t3 = t4*t5
- c2(4) = (-1.0_ki)*(t10+t9+t7*t8-t27)/(t3*t44)*t1
- c2(5) = (-1.0_ki)*(t13+t11*t2*Fz+t7*t9*Fz-(t16+t12))/(t3*KK(2)*MP1&
- &2(2))
- c2(3) = ((t6+(t8+(t9-t27)*t2)*t2)/(t3*MP12(2))*KK(2))
- t4 = KK(2)*MP12(2)
- c2(6) = ((t8+(t9+(t13-t12)*Fz)*t2)/(t3*t4*t4))
- c2(0) = t11
- t2 = t1*F1z*MP12(2)
- c2(9) = (((f2(9)-c2(0))*t1+t4*c2(3)+t1*F1z*KK(2)*MP12(2)*c2(5)-(t4&
- &4*c2(4)+t2*t2*c2(6)))/(t1*mu2g(2)))
- t2 = Fm*KK(2)
- c2(1) = ((c2(0)-t19)/MP12(2)+(c2(4)+(c2(7)+(c2(2)+(c2(8)+t2*c2(6))&
- &*Fm*KK(2))*KK(2))*KK(2))/t1*MP12(2)-(c2(3)/KK(2)+t2*c2(5)))
- !----#] HAGGIES:
- !---#] getc2_S2:
- endif
- !---#] Decomposizione standard:
- endif
+!CM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- if (diff.ge.1) then
- c2(2)=czip
- c2(4)=czip
- c2(6)=czip
- c2(7)=czip
- c2(8)=czip
- c2(9)=czip
- if (diff.ge.2) then
- c2(1)=czip
- c2(3)=czip
- c2(5)=czip
- endif
- endif
- end subroutine getc2_rm
subroutine getc2_cm(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
use mglobal, only: Fpc,Fzc,Fmc,F1zc,KB,mu2g,KK,MP12,mu2t,&
& resit,denst,mu2test
implicit none
integer, intent(in) :: nleg,rank,cut2
complex(ki), dimension(0:9), intent(out) :: c2
- complex(ki), dimension(10,4), intent(in) :: q2
+ complex(ki), dimension(20,4), intent(in) :: q2
complex(ki), dimension(4), intent(in) :: qt
complex(ki), dimension(0:nleg-1), intent(in) :: msq
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
integer :: i,m,n,j1,j2,i1,i2,i3,i4,i5
integer :: dicut5,dicut4,dicut3,mx,diff,nsol
complex(ki), dimension(10) :: dens2,dens3,dens4,dens5,xneval
complex(ki), dimension(10) :: resi5,resi4,resi3,known
complex(ki), dimension(0:9) :: f2
complex(ki) :: dens3t,dens4t,dens5t
logical evalres
!real(ki) :: Fpcpow2, Fpcpow3, Fpcpow4
!real(ki) :: Fzcpow2, Fzcpow3, Fzcpow4, Fzcpow5, Fzcpow6, tmp1
!---#[ HAGGIES:
complex(ki) :: t1
complex(ki) :: t2
complex(ki) :: t3
complex(ki) :: t4
complex(ki) :: t5
complex(ki) :: t6
complex(ki) :: t7
complex(ki) :: t8
complex(ki) :: t9
complex(ki) :: t10
complex(ki) :: t11
complex(ki) :: t12
complex(ki) :: t13
complex(ki) :: t14
complex(ki) :: t15
complex(ki) :: t16
complex(ki) :: t17
complex(ki) :: t18
complex(ki) :: t19
complex(ki) :: t20
complex(ki) :: t21
complex(ki) :: t22
complex(ki) :: t23
complex(ki) :: t24
complex(ki) :: t25
complex(ki) :: t26
complex(ki) :: t27
complex(ki) :: t28
complex(ki) :: t29
complex(ki) :: t30
complex(ki) :: t31
complex(ki) :: t32
complex(ki) :: t33
complex(ki) :: t34
complex(ki) :: t35
complex(ki) :: t36
complex(ki) :: t37
complex(ki) :: t38
complex(ki) :: t39
complex(ki) :: t40
complex(ki) :: t41
complex(ki) :: t42
complex(ki) :: t43
complex(ki) :: t44
complex(ki) :: t45
!---#] HAGGIES:
complex(ki), dimension(10) :: mu2vec
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
mu2test(2) = mu2t(2)
j2=cut2/10
j1=cut2-j2*10
resi3(:)=czip
resi4(:)=czip
resi5(:)=czip
known(:)=czip
xneval(:)=czip
dens2(:)=cone
!--- for lnntest
resit(2)=czip
denst(2)=cone
!--- for simplified sampling
diff = nleg-rank
-
if (diff.eq.2) then
!---#[ simplified sampling -- only c2(0):
if (nleg.eq.5) then
resi5(1)=res5(1,czip)
resit(2)=res5(1,mu2t(2))
goto 11
elseif (nleg.eq.4) then
resi4(1)=Res4(1,q2(1,:),czip)
resit(2) =res4(1,qt,mu2t(2))
goto 21
elseif (nleg.eq.3) then
resi3(1)=Res3(1,q2(1,:),czip)
resit(2)=Res3(1,qt,mu2t(2))
goto 31
elseif (nleg.eq.2) then
goto 36
else
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5(1)=cone
dens5t=cone
evalres=.false.
loop_10: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
& .and.(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens5(1)=czip
dens5t=czip
evalres=.false.
exit loop_10
else
dens5(1)=dens5(1)&
&*denevalmu2(nleg,i,q2(1,:),Vi,msq,czip)
dens5t=dens5t&
&*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
evalres=.true.
endif
endif
enddo loop_10
if (evalres) then
resi5(1)=resi5(1)+dens5(1)*res5(dicut5,czip)
resit(2)=resit(2)+dens5t*res5(dicut5,mu2t(2))
endif
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
endif
11 continue
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4(1)=cone
dens4t=cone
evalres=.false.
loop_20: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.&
&(i.ne.i3).and.(i.ne.i4)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens4(1)=czip
dens4t=czip
evalres=.false.
exit loop_20
else
dens4(1)=dens4(1)*denevalmu2(nleg,i,q2(1,:),&
&Vi,msq,czip)
dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
evalres=.true.
endif
endif
enddo loop_20
if (evalres) then
resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q2(1,:),czip)
resit(2)=resit(2)+dens4t*Res4(dicut4,qt,mu2t(2))
endif
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
21 continue
!---#[ Contributo dei Triple cuts:
dicut3=1
do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3(1)=cone
dens3t=cone
evalres=.false.
loop_30: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens3(1)=czip
dens3t=czip
evalres=.false.
exit loop_30
else
dens3(1)=dens3(1)*denevalmu2(nleg,i,q2(1,:),&
&Vi,msq,czip)
dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
evalres=.true.
endif
endif
enddo loop_30
if (evalres) then
resi3(1)=resi3(1)+dens3(1)*Res3(dicut3,q2(1,:),czip)
resit(2)=resit(2)+dens3t*Res3(dicut3,qt,mu2t(2))
endif
dicut3=dicut3+1
enddo
enddo
enddo
!---#] Contributo dei Triple cuts:
31 continue
do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2)) then
dens2(1)=dens2(1)*denevalmu2(nleg,i,q2(1,:),Vi,msq,czip)
denst(2)=denst(2)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
endif
enddo
36 continue
xneval(1)=numeval(cut2,q2(1,:),czip)
if (imeth.eq.'diag') then
known(1)=(xneval(1)-resi5(1)-resi4(1)-resi3(1))/dens2(1)
elseif (imeth.eq.'tree') then
known(1)=xneval(1)-(resi5(1)+resi4(1)+resi3(1))/dens2(1)
endif
c2(0)=known(1)
do m=1,9
c2(m)=czip
enddo
!---#] simplified sampling -- only c2(0):
else
!---#[ Decomposizione standard:
if (diff.eq.1) then
! rank1 c-system: 4 coefficients
mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,czip/)
nsol=4
else
! traditional system
mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,mu2g(2)/)
nsol=10
endif
if (nleg.eq.5) then
do n=1,nsol
resi5(n)=Res5(1,mu2vec(n))
enddo
resit(2)=Res5(1,mu2t(2))
goto 111
elseif (nleg.eq.4) then
do n=1,nsol
resi4(n)=Res4(1,q2(n,:),mu2vec(n))
enddo
resit(2)=Res4(1,qt,mu2t(2))
goto 121
elseif (nleg.eq.3) then
do n=1,nsol
resi3(n)=Res3(1,q2(n,:),mu2vec(n))
enddo
resit(2)=Res3(1,qt,mu2t(2))
goto 131
elseif (nleg.eq.2) then
goto 136
else
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5(:)=cone
dens5t=cone
evalres=.false.
loop_110: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens5(:)=czip
dens5t=czip
evalres=.false.
exit loop_110
else
do n=1,nsol
dens5(n)=dens5(n)*denevalmu2(nleg,i,&
&q2(n,:),Vi,msq,mu2vec(n))
enddo
dens5t=dens5t*denevalmu2(nleg,i,qt,Vi,msq,&
&mu2t(2))
evalres=.true.
endif
endif
enddo loop_110
if (evalres) then
do n=1,nsol
resi5(n)=resi5(n)+dens5(n)*res5(dicut5,mu2vec(n))
enddo
resit(2)=resit(2)+dens5t*res5(dicut5,mu2t(2))
endif
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
endif
111 continue
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4(:)=cone
dens4t=cone
evalres=.false.
loop_120: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3).and.&
&(i.ne.i4)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens4(:)=czip
dens4t=czip
evalres=.false.
exit loop_120
else
do n=1,nsol
dens4(n)=dens4(n)*denevalmu2(nleg,i,&
&q2(n,:),Vi,msq,mu2vec(n))
enddo
dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,&
&mu2t(2))
evalres=.true.
endif
endif
enddo loop_120
if (evalres) then
do n=1,nsol
resi4(n)=resi4(n)+dens4(n)*Res4(dicut4,q2(n,:),&
&mu2vec(n))
enddo
resit(2)=resit(2)+dens4t*Res4(dicut4,qt,mu2t(2))
endif
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
121 continue
!---#[ Contributo dei Triple cuts:
dicut3=1
loop_dicut3: do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3(:)=cone
dens3t=cone
evalres=.false.
loop_130: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
if ((i.eq.j1).or.(i.eq.j2)) then
dens3(:)=czip
dens3t=czip
evalres=.false.
exit loop_130
else
do n=1,nsol
dens3(n)=dens3(n)&
& *denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
enddo
dens3t=dens3t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
evalres=.true.
endif
endif
enddo loop_130
if (evalres) then
do n=1,nsol
resi3(n)=resi3(n)+dens3(n)*Res3(dicut3,q2(n,:),&
&mu2vec(n))
enddo
resit(2)=resit(2)+dens3t*Res3(dicut3,qt,mu2t(2))
endif
dicut3=dicut3+1
enddo
enddo
enddo loop_dicut3
!---#] Contributo dei Triple cuts:
131 continue
do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2)) then
do n=1,nsol
dens2(n)=dens2(n)*denevalmu2(nleg,i,q2(n,:),Vi,msq,mu2vec(n))
enddo
denst(2)=denst(2)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(2))
endif
enddo
136 continue
do n=1,nsol
xneval(n)=numeval(cut2,q2(n,:),mu2vec(n))
enddo
if (imeth.eq.'diag') then
known(:)=(xneval(:)-resi5(:)-resi4(:)-resi3(:))/dens2(:)
elseif (imeth.eq.'tree') then
known(:)=xneval(:)-(resi5(:)+resi4(:)+resi3(:))/dens2(:)
endif
if (diff.eq.1) then
! rank1 c-system: 4 coefficients
do m=0,1
f2(m)=effe(known,1,2,m)
enddo
do m=2,3
mx=m-2
f2(m)=effe(known,3,2,mx)
enddo
!---#[ getc2_S1:
!----#[ original code:
! c2(0) = f2(0)
! c2(1) = (-f2(0) + f2(2))/(KB*MP12(2))
! c2(3) = (KK(2)*(f2(1) - Fzc*f2(3)))/((-one + Fpc*Fzc)*MP12(2))
! c2(5) = (-(Fpc*MP12(2)*c2(3)) - KK(2)*f2(3))/(KK(2)**2*MP12(2))
!----#] original code:
!----#[ HAGGIES:
t1 = f2(0)
c2(0) = t1
c2(1) = ((f2(2)-t1)/(KB*MP12(2)))
t1 = f2(3)
c2(3) = ((f2(1)-t1*Fzc)/((Fpc*Fzc-one)*MP12(2))*KK(2))
c2(5) = ((-(Fpc*MP12(2)*c2(3)+t1*KK(2)))/(KK(2)*KK(2)*MP12(2)))
!----#] HAGGIES:
!---#] getc2_S1:
else
! traditional system
do m=0,2
f2(m)=effe(known,1,3,m)
enddo
do m=3,4
mx=m-3
f2(m)=effe(known,4,2,mx)
enddo
do m=5,6
mx=m-5
f2(m)=effe(known,6,2,mx)
enddo
f2(7)=known(8)
f2(8)=known(9)
f2(9)=known(10)
!---#[ getc2_S2:
!----#[ original code:
! !--- coefficienti
! Fpcpow2 = Fpc*Fpc
! Fpcpow3 = Fpcpow2*Fpc
! Fpcpow4 = Fpcpow3*Fpc
! Fzcpow2 = Fzc*Fzc
! Fzcpow3 = Fzcpow2*Fzc
! Fzcpow4 = Fzcpow3*Fzc
! Fzcpow5 = Fzcpow4*Fzc
! Fzcpow6 = Fzcpow5*Fzc
! tmp1 = one - Fpcpow2
! c2(2) = (0.5_ki*(Fpcpow3*((one + Fzcpow4)*f2(0) + f2(1) - f2(3) + Fzc*&
! &(Fzc*(f2(1) + (one + Fzcpow2)*f2(2) + Fzc*(-Fzc*f2(3) - f2(4))) - f2(4)))&
! &+ Fpcpow4*(-f2(0) - Fzcpow2*f2(1) - Fzcpow4*f2(2) + f2(3) + Fzcpow3*f2(4))&
! &+ Fmc**2*(tmp1*f2(0) + tmp1*Fzcpow2*f2(1) + tmp1*Fzcpow4*f2(2) + (-tmp1)&
! &*f2(3) + (-tmp1)*Fzcpow3*f2(4)) + two*((-one - Fzcpow2 - Fzcpow4 + Fzcpow6)&
! &*f2(0) + (-one - Fzcpow4)*f2(1) - f2(2) + Fzc*(-Fzc*f2(2) + Fzc*f2(3)&
! &+ Fzcpow3*f2(3) + f2(4) + Fzcpow4*f2(4))) + f2(5) + f2(6) + Fmc*((one&
! &+ Fzcpow4 + Fzcpow3*two + Fpcpow2*(-one - Fzcpow4 - Fzcpow3*two))*f2(0)&
! &+ (one + Fzcpow2 + Fzcpow5*two + Fpcpow2*(-one - Fzcpow2 - Fzcpow5*two))*f2(1)&
! &+ tmp1*Fzcpow2*f2(2) + (-tmp1)*f2(3) + Fzcpow4*(tmp1*f2(2) + (-tmp1)*f2(3))&
! &- two*f2(4) + Fpcpow2*two*f2(4) - tmp1*Fzcpow3*(two*f2(3) + f2(4)) + Fzc&
! &*(tmp1*two*f2(2) - tmp1*f2(4)) - f2(5) - Fpc*f2(6) + Fzcpow6*(f2(5) + Fpc&
! &*f2(6) - f2(7)) + f2(7)) + Fpc*((-one - Fzcpow4)*f2(0) - f2(1) + f2(3)&
! &+ f2(5) - f2(7) + Fzc*(f2(4) + Fzc*(-f2(1) - (one + Fzcpow2)*f2(2) + Fzc&
! &*(Fzc*f2(3) + f2(4) + Fzcpow3*(-f2(5) + f2(7)))))) + Fzcpow6*(-f2(5) - f2(6)&
! &- f2(8)) + f2(8) + Fpcpow2*((three + Fzcpow2*(one + Fzcpow2 - Fzcpow4)*two)&
! &*f2(0) + two*f2(1) + two*f2(2) - f2(3) + Fzcpow4*(two*f2(1) + f2(2) - two&
! &*f2(3)) + Fzcpow2*(f2(1) + two*f2(2) - two*f2(3)) - Fzcpow3*f2(4) - Fzc*two&
! &*f2(4) - Fzcpow5*two*f2(4) - f2(5) - f2(8) + Fzcpow6*(f2(5) + f2(8)))))/&
! &((-tmp1)*(-one + Fzcpow6)*MP12(2)**2)
! c2(7) = (KK(2)*(f2(2) + Fpcpow2*(-(Fzcpow4*f2(1)) - f2(2) + Fzcpow2*(-f2(0)&
! &+ f2(3)) + Fzcpow5*f2(4)) + Fpcpow3*(-((one + Fzcpow4)*f2(0))&
! &- (one + Fzcpow2)*(f2(1) + Fzcpow2*f2(2)) + (one + Fzcpow4)*f2(3) &
! &+ (Fzc + Fzcpow3)*f2(4)) - f2(6) + Fzcpow2*(f2(0) - f2(3) +&
! &Fzcpow2*(f2(1) + Fzc*(-f2(4) + Fzc*f2(6)))) +&
! &Fpc*((one + Fzcpow4)*f2(0) + f2(1) - f2(3) - f2(5) +&
! &Fzc*(Fzc*(f2(1) + f2(2)) + Fzcpow3*(f2(2) - f2(3)) -&
! &f2(4) - Fzcpow2*f2(4) + Fzcpow5*(f2(5) - f2(7))) +&
! &f2(7))))/((-tmp1)*(-one + Fzcpow6)*MP12(2)**2)
! c2(8) = ((-tmp1)*(one + Fzcpow3 + Fzcpow4)*f2(0) +&
! &(-tmp1)*(one + Fzcpow2 + Fzcpow5)*f2(1) + (-tmp1)*Fzcpow2*f2(2) +&
! &(-tmp1)*Fzcpow4*(f2(2) - f2(3)) + f2(3) + (-tmp1)*Fzc*(f2(2) - f2(4))&
! &+ f2(4) - (-tmp1)*Fzcpow3*(f2(3) + f2(4)) + f2(5) +&
! &Fpc*(-(Fpc*(f2(3) + f2(4))) + f2(6)) - Fzcpow6*(f2(5) + Fpc*f2(6) - f2(7))&
! &- f2(7))/ ((-tmp1)*(-one + Fzcpow6)*KK(2)*MP12(2)**2)
! c2(4) = -((KK(2)**2*(f2(1) + Fzcpow2*f2(2) + Fzcpow4*(f2(0) - f2(3)) -&
! &Fzc*f2(4)))/((-one + Fzcpow6)*MP12(2)**2))
! c2(5) = (Fzcpow3*f2(0) + Fzcpow5*f2(1) + Fzc*f2(2) - Fzcpow3*f2(3) -&
! &f2(4))/(KK(2)*MP12(2) - Fzcpow6*KK(2)*MP12(2))
! c2(3) = (KK(2)*(f2(2) + Fzcpow2*(f2(0) - f2(3) + Fzcpow2*(f2(1)&
! - Fzc*f2(4)))))/((-one + Fzcpow6)*MP12(2))
! c2(6) = (f2(0) - f2(3) + Fzcpow2*(f2(1) + Fzc*(Fzc*f2(2) - f2(4))))/&
! &((-one + Fzcpow6)*KK(2)**2*MP12(2)**2)
! c2(0) = f2(0)
! c2(9) = (KK(2)*MP12(2)*c2(3) - MP12(2)**2*c2(4)&
! &+ F1zc*KK(2)**3*MP12(2)*c2(5) - F1zc**2*KK(2)**4*MP12(2)**2*c2(6) &
! &+ KK(2)**2*(-c2(0) + f2(9)))/(KK(2)**2*mu2g(2))
! c2(1) = -(c2(3)/KK(2)) - Fmc*KK(2)*c2(5) + (MP12(2)*(c2(4) + KK(2)*(c2(7)&
! &+ KK(2)*(c2(2) + Fmc*KK(2)*(Fmc*KK(2)*c2(6) + c2(8))))))/KK(2)**2&
! &+ (c2(0) - f2(8))/MP12(2)
!----#] original code:
!----#[ HAGGIES:
t1 = (1.0_ki)+Fpc
t2 = Fzc*Fzc
t3 = t2*Fzc
t4 = t3-(1.0_ki)
t5 = (1.0_ki)+t3
t6 = f2(2)
t7 = t2*t2
t8 = -(t7+(1.0_ki))
t9 = f2(1)
t10 = t3*t3
t11 = f2(0)
t12 = f2(4)
t13 = t6*Fzc
t14 = f2(3)
t15 = t14*Fzc
t16 = t15*t2
t17 = f2(5)
t18 = f2(6)
t19 = f2(8)
t20 = t9-t14
t21 = (1.0_ki)+t7
t22 = t11*t21
t23 = (1.0_ki)+t2
t24 = t23*t6
t25 = Fpc*Fpc
t26 = t14-t11
t27 = t12*Fzc
t28 = t2*t27
t29 = ((1.0_ki)-Fpc)*t1
t30 = t14*t29
t31 = t29*t6
t32 = t12*t29
t33 = f2(7)
t34 = t6+t9
t35 = t27*t7
t36 = t6-t14
t37 = t17-t33
t38 = t18*Fpc
t39 = (t37+t38)*t10
t40 = t7*Fzc
t41 = (2.0_ki)*t40
t42 = (2.0_ki)*t3
t43 = t2*t31
t44 = MP12(2)*MP12(2)
t45 = t29*t4*t44*t5
c2(2) = (-1.0_ki)*((2.0_ki)*((t10-(t7+t2+(1.0_ki)))*t11+(t12+t15+t&
&16+t12*t7-t13)*Fzc+t8*t9-t6)+t17+t18+t19+(-(t19+t18+t17))*t10+(t26&
&+t28-(t6*t7+t2*t9))*t25*t25+(t11*t29+t31*t7+t2*t29*t9-(t2*t32*Fzc+&
&t30))*Fmc*Fmc+(t14+t17+(t12+((t12+t15+(t33-t17)*t2*Fzc)*Fzc-(t9+t24))&
&*Fzc)*Fzc+t11*t8-(t9+t33))*Fpc+((2.0_ki)*(t34-(t35+t27))+((3.0_ki)+(&
&2.0_ki)*((1.0_ki)+t2-t7)*t2)*t11+(t17+t19)*t10+((2.0_ki)*t20+t6)*&
&t7+((2.0_ki)*t36+t9)*t2-(t28+t19+t17+t14))*t25+((2.0_ki)*(t12*t25&
&-t12)+t33+t39+t43+(t31-t30)*t7+((2.0_ki)*t31-t32)*Fzc+((1.0_ki)+t2&
&+t41+(-(t41+t2+(1.0_ki)))*t25)*t9+((1.0_ki)+t42+t7+(-(t7+t42+(1.0&
&_ki)))*t25)*t11-((t12+(2.0_ki)*t14)*t2*t29*Fzc+t38+t30+t17))*Fmc+(t&
&20+t22+((t24+t9+(-(t15+t12))*Fzc)*Fzc-t12)*Fzc)*t25*Fpc)/t45*0.5_ki
t8 = t11-t14
t10 = t2*t6
c2(7) = (-1.0_ki)*(t6+(t8+(t9+(t18*Fzc-t12)*Fzc)*t2)*t2+(t35+t2*t26-&
&(t7*t9+t6))*t25+(t20+t22+t33+(t34*Fzc+t2*t36*Fzc+t37*t7*Fzc-(t12*t2+&
&t12))*Fzc-t17)*Fpc+((t3+Fzc)*t12+t14*t21-((t10+t9)*t23+t22))*t25*Fpc-&
&t18)/t45*KK(2)
t14 = t12+t14
c2(8) = ((t14+t17+(t18-t14*Fpc)*Fpc+t14*t2*t29*Fzc-(t29*t36*t7+((1.0_&
&ki)+t3+t7)*t11*t29+((1.0_ki)+t2+t40)*t29*t9+(t6-t12)*t29*Fzc+t43+t&
&39+t33))/((Fpc-(1.0_ki))*t1*t4*t44*t5*KK(2)))
t1 = KK(2)*KK(2)
t3 = t4*t5
c2(4) = (-1.0_ki)*(t10+t9+t7*t8-t27)/(t3*t44)*t1
c2(5) = (-1.0_ki)*(t13+t11*t2*Fzc+t7*t9*Fzc-(t16+t12))/(t3*KK(2)*MP1&
&2(2))
c2(3) = ((t6+(t8+(t9-t27)*t2)*t2)/(t3*MP12(2))*KK(2))
t4 = KK(2)*MP12(2)
c2(6) = ((t8+(t9+(t13-t12)*Fzc)*t2)/(t3*t4*t4))
c2(0) = t11
t2 = t1*F1zc*MP12(2)
c2(9) = (((f2(9)-c2(0))*t1+t4*c2(3)+t1*F1zc*KK(2)*MP12(2)*c2(5)-(t4&
&4*c2(4)+t2*t2*c2(6)))/(t1*mu2g(2)))
t2 = Fmc*KK(2)
c2(1) = ((c2(0)-t19)/MP12(2)+(c2(4)+(c2(7)+(c2(2)+(c2(8)+t2*c2(6))&
&*Fmc*KK(2))*KK(2))*KK(2))/t1*MP12(2)-(c2(3)/KK(2)+t2*c2(5)))
!----#] HAGGIES:
!---#] getc2_S2:
endif
!---#] Decomposizione standard:
endif
if (diff.ge.1) then
c2(2)=czip
c2(4)=czip
c2(6)=czip
c2(7)=czip
c2(8)=czip
c2(9)=czip
if (diff.ge.2) then
c2(1)=czip
c2(3)=czip
c2(5)=czip
endif
endif
end subroutine getc2_cm
end module mgetc2
diff --git a/samurai-2.1.1/mgetc3.f90 b/samurai-2.1.1/mgetc3.f90
index 58b5c53..3810a8c 100644
--- a/samurai-2.1.1/mgetc3.f90
+++ b/samurai-2.1.1/mgetc3.f90
@@ -1,1286 +1,1508 @@
module mgetc3
use precision, only: ki
use constants
use options
use mfunctions
use mrestore
implicit none
private
interface getc3
module procedure getc3_rm
module procedure getc3_cm
end interface getc3
public :: getc3
contains
subroutine getc3_cm(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
use mglobal, only: C0c,C1c,mu2g,MP12,KK,mu2t,resit,denst,mu2test
implicit none
integer, intent(in) :: nleg, rank, cut3
complex(ki), dimension(0:9), intent(out) :: c3
complex(ki), dimension(10,4), intent(in) :: q3
complex(ki), dimension(4), intent(in) :: qt
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(10) :: mu2vec
integer :: i,m,n,i1,i2,i3,i4,i5,dicut5,dicut4,mx,j1,j2,j3,diff
integer :: nsol, acc
- complex(ki), dimension(10) :: dens3,dens4,dens5,xneval
- complex(ki), dimension(10) :: resi5,resi4,known
+ complex(ki), dimension(15) :: dens3,dens4,dens5,xneval
+ complex(ki), dimension(15) :: resi5,resi4,known
complex(ki), dimension(0:9) :: f3
complex(ki) :: dens4t,dens5t
logical evalres
!!! TR: I have used haggies to rewrite the systems.
!---#[ HAGGIES:
complex(ki) :: t1
complex(ki) :: t2
complex(ki) :: t3
complex(ki) :: t4
complex(ki) :: t5
complex(ki) :: t6
complex(ki) :: t7
complex(ki) :: t8
complex(ki) :: t9
complex(ki) :: t10
complex(ki) :: t11
complex(ki) :: t12
complex(ki) :: t13
complex(ki) :: t14
complex(ki) :: t15
complex(ki) :: t16
complex(ki) :: t17
complex(ki) :: t18
complex(ki) :: t19
complex(ki) :: t20
complex(ki) :: t21
complex(ki) :: t22
complex(ki) :: t23
complex(ki) :: t24
complex(ki) :: t25
complex(ki) :: t26
complex(ki) :: t27
!---#] HAGGIES:
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
mu2test(3) = mu2t(3)
j3=cut3/100
acc = j3*100
j2=(cut3-acc)/10
j1=cut3-acc-j2*10
resi5(:)=czip
resi4(:)=czip
known(:)=czip
xneval(:)=czip
dens3(:)=cone
!--- for lnntest
resit(3)=czip
denst(3)=cone
!--- for simplified sampling
diff = nleg-rank
if_diff: if (diff.ge.3) then
! simplified sampling -- only c3(0)
+
+
select case(nleg)
case(5)
resi5(1)=res5(1,czip)
resit(3)=res5(1,mu2t(3))
goto 11
case(4)
resi4(1)=Res4(1,q3(1,:),czip)
resit(3) =res4(1,qt,mu2t(3))
goto 21
case(3)
goto 26
case default
dicut5=1
loop_i5: do i5=4,nleg-1
loop_i4: do i4=3,i5-1
loop_i3: do i3=2,i4-1
loop_i2: do i2=1,i3-1
loop_i1: do i1=0,i2-1
dens5(1)=cone
dens5t=cone
evalres=.false.
loop_10: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3)&
& .and.(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
dens5(1)=czip
dens5t=czip
evalres=.false.
exit loop_10
else
dens5(1)=dens5(1)&
&*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
dens5t=dens5t&
&*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
evalres=.true.
endif
endif
enddo loop_10
if (evalres) then
resi5(1)=resi5(1)+dens5(1)*res5(dicut5,czip)
resit(3)=resit(3)+dens5t*Res5(dicut5,mu2t(3))
endif
dicut5=dicut5+1
enddo loop_i1
enddo loop_i2
enddo loop_i3
enddo loop_i4
enddo loop_i5
end select
11 continue
dicut4=1
loop_21: do i4=3,nleg-1
loop_21_i3: do i3=2,i4-1
loop_21_i2: do i2=1,i3-1
loop_21_i1: do i1=0,i2-1
dens4(1)=cone
dens4t=cone
evalres=.false.
loop_20: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)) then
if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
dens4(1)=dens4(1)&
&*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
evalres=.true.
else
dens4(1)=czip
dens4t=czip
evalres=.false.
exit loop_20
endif
endif
enddo loop_20
if (evalres) then
resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q3(1,:),czip)
resit(3)=resit(3)+dens4t*Res4(dicut4,qt,mu2t(3))
endif
dicut4=dicut4+1
enddo loop_21_i1
enddo loop_21_i2
enddo loop_21_i3
enddo loop_21
21 continue
loop_26: do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
dens3(1)=dens3(1)*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
denst(3)=denst(3)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
endif
enddo loop_26
26 continue
xneval(1)=numeval(cut3,q3(1,:),czip)
if (imeth.eq.'diag') then
known(1)=(xneval(1)-resi5(1)-resi4(1))/dens3(1)
elseif (imeth.eq.'tree') then
known(1)=xneval(1)-(resi5(1)+resi4(1))/dens3(1)
endif
c3(0)=known(1)
do m=1,9
c3(m)=czip
enddo
else
if (abs(C0c-1.0_ki) .lt. C0_thrs) then
!---#[ New Sampling:
! The new sampling is the one that is safe around C0=1
! but not around C0=0
! traditional system
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
+!HvD mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
nsol=10
!---#] New Sampling:
else
!---#[ Old Sampling:
! The old sampling is the one that is safe around C0=0
! but not around C0=1
if (diff.eq.2) then
! rank1 c-system: 3 coefficients
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,czip/)
+!HvD mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,czip/)
nsol=3
elseif (diff.eq.1) then
! rank1 c-system: 3 coefficients
- mu2vec=(/czip,czip,czip,czip,czip,mu2g(3),czip,czip,czip,czip/)
+!HvD mu2vec=(/czip,czip,czip,czip,czip,mu2g(3),czip,czip,czip,czip/)
nsol=6
else
! traditional system
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
+!HvD mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
nsol=10
endif
!---#] Old Sampling:
endif
if_nleg: if (nleg.eq.5) then
do n=1,nsol
resi5(n)=Res5(1,mu2vec(n))
enddo
resit(3)=Res5(1,mu2t(3))
goto 111
elseif (nleg.eq.4) then
do n=1,nsol
resi4(n)=Res4(1,q3(n,:),mu2vec(n))
enddo
resit(3)=Res4(1,qt,mu2t(3))
goto 121
elseif (nleg.eq.3) then
goto 126
else
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5(:)=cone
dens5t=cone
evalres=.false.
loop_110: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.&
&(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
dens5(:)=czip
dens5t=czip
evalres=.false.
exit loop_110
else
do n=1,nsol
dens5(n)=dens5(n)*denevalmu2(nleg,i,&
&q3(n,:),Vi,msq,mu2vec(n))
enddo
dens5t=dens5t&
&*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
evalres=.true.
endif
endif
enddo loop_110
if (evalres) then
do n=1,nsol
resi5(n)=resi5(n)&
&+dens5(n)*res5(dicut5,mu2vec(n))
enddo
resit(3)=resit(3)+dens5t*res5(dicut5,mu2t(3))
endif
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
endif if_nleg
111 continue
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4(:)=cone
dens4t=cone
evalres=.false.
loop_120: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)) then
if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
dens4(:)=czip
dens4t=czip
evalres=.false.
exit loop_120
else
do n=1,nsol
dens4(n)=dens4(n)&
&*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
enddo
dens4t=dens4t&
&*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
evalres=.true.
endif
endif
enddo loop_120
if (evalres) then
do n=1,nsol
resi4(n)=resi4(n)&
& +dens4(n)*Res4(dicut4,q3(n,:),mu2vec(n))
enddo
resit(3)=resit(3)+dens4t*Res4(dicut4,qt,mu2t(3))
endif
dicut4=dicut4+1
enddo
enddo
enddo
enddo
121 continue
do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
do n=1,nsol
dens3(n)=dens3(n)*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
enddo
denst(3)=denst(3)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
endif
enddo
126 continue
do n=1,nsol
xneval(n)=numeval(cut3,q3(n,:),mu2vec(n))
enddo
if (imeth.eq.'diag') then
known(:)=(xneval(:)-resi5(:)-resi4(:))/dens3(:)
elseif (imeth.eq.'tree') then
known(:)=xneval(:)-(resi5(:)+resi4(:))/dens3(:)
endif
if (abs(C0c-1.0_ki) .lt. C0_thrs) then
!---#[ New Sampling:
! The new sampling is the one that is safe around C0=1
! but not around C0=0
! traditional system
do m=0,6
f3(m)=effe(known,1,7,m)
enddo
do m=7,9
mx=m-7
f3(m)=effe(known,8,3,mx)
enddo
!---#[ getc3_S3:
c3(0) = f3(0)
c3(1) = -(f3(6)/(C0c*MP12(3)))
c3(2) = f3(5)/(C0c**2*MP12(3)**2)
c3(3) = -(f3(4)/(C0c**3*MP12(3)**3))
c3(4) = -(f3(1)/MP12(3))
c3(5) = f3(2)/MP12(3)**2
c3(6) = -(f3(3)/MP12(3)**3)
c3(7) = (-f3(0) + MP12(3)**3*(-((C1c**3*f3(3))/MP12(3)**3) -&
&f3(4)/(C0c**3*MP12(3)**3)) + f3(7))/mu2g(3)
c3(8) = (C1c**2*f3(2) + f3(6)/C0c - f3(9))/(MP12(3)*mu2g(3))
c3(9) = (C1c*f3(1) + f3(5)/C0c**2 - f3(8))/(C1c*MP12(3)*mu2g(3))
!---#] getc3_S3:
!---#] New Sampling:
else
!---#[ Old Sampling:
! The old sampling is the one that is safe around C0=0
! but not around C0=1
select case(diff)
case(2)
! rank1 c-system: 3 coefficients
f3(0:2)=known(1:3)
!---#[ getc3_S1:
!----#[ original code:
! c3(0) = (f3(0) + f3(1))/two
! c3(1) = -(KK(3)*((one + C0c)*f3(0) + f3(1) - C0c*f3(1) - two*f3(2)))/ &
! (two*(-one + C0c**2)*MP12(3))
! c3(4) = &
! -((KK(3)*c3(0) + C0c*MP12(3)*c3(1) - KK(3)*f3(1))/(KK(3)**2*MP12(3)))
!----#] original code:
!----#[ HAGGIES:
t1 = f3(0)
t2 = f3(1)
c3(0) = ((t1+t2)*0.5_ki)
t3 = KK(3)
t4 = MP12(3)
c3(1) = (-1.0_ki)*(t2+((1.0_ki)+C0c)*t1-(t2*C0c+(2.0_ki)*f3(2)))/((C&
&0c*C0c-(1.0_ki))*t4)*t3*0.5_ki
c3(4) = (-1.0_ki)*(t3*c3(0)+t4*C0c*c3(1)-t2*t3)/(t3*t3*t4)
!----#] HAGGIES:
!---#] getc3_S1:
case(1)
! rank1 c-system: 3 coefficients
do m=0,2
f3(m)=effe(known,1,3,m)
enddo
do m=3,4
mx=m-3
f3(m)=effe(known,4,2,mx)
enddo
do m=5,5
mx=m-5
f3(m)=effe(known,6,1,mx)
enddo
!---#[ getc3_S2:
!----#[ original code:
!!$ c3(0) = f3(0)
!!$ c3(2) = &
!!$ & (KK(3)**2*(f3(0) - f3(3) + &
!!$ & C0c**2*(C0c**2*f3(1) + f3(2) - C0c*f3(4))))/&
!!$ & ((-one + C0c**6)*MP12(3)**2)
!!$ c3(4) = (C0c**2*MP12(3)*c3(2))/KK(3)**3 - f3(1)/(KK(3)*MP12(3))
!!$ c3(1) = -((KK(3)*(C0c*KK(3)*MP12(3)*c3(4) + f3(4)))/MP12(3))
!!$ c3(5) = (C0c*MP12(3)*c3(1) + KK(3)*f3(2))/(KK(3)**3*MP12(3)**2)
!!$ c3(7) = &
!!$ & (MP12(3)*c3(1) - MP12(3)**2*c3(2) + C1c*MP12(3)*c3(4)-&
!!$ & C1c**2*MP12(3)**2*c3(5) + (-c3(0) + f3(5)))/mu2g(3)
! c3(0) = f3(0)
! c3(2) = &
! & (f3(0) - f3(3) + &
! & C0c**2*(C0c**2*f3(1) + f3(2) - C0c*f3(4)))/&
! & ((-one + C0c**6)*MP12(3)**2)
! c3(4) = C0c**2*MP12(3)*c3(2) - f3(1)/MP12(3)
! c3(1) = -(C0c*MP12(3)*c3(4) + f3(4))/MP12(3)
! c3(5) = (C0c*MP12(3)*c3(1) + f3(2))/MP12(3)**2
! c3(7) = &
! & (MP12(3)*c3(1) - MP12(3)**2*c3(2) + C1c*MP12(3)*c3(4)-&
! & C1c**2*MP12(3)**2*c3(5) + (-c3(0) + f3(5)))/mu2g(3)
!----#] original code:
!----#[ HAGGIES:
t1 = f3(0)
c3(0) = t1
t2 = C0c*C0c
t3 = t2*C0c
t4 = f3(2)
t5 = f3(1)
t6 = f3(4)
t7 = MP12(3)
t8 = t7*t7
c3(2) = ((t1+(t4+t2*t5-t6*C0c)*t2-f3(3))/((t3*t3-one)*t8))
c3(4) = (t2*t7*c3(2)-t5/t7)
t1 = t7*C0c
c3(1) = (-1.0_ki)*(t6+t1*c3(4))/t7
c3(5) = ((t4+t1*c3(1))/t8)
t1 = t7*C1c
c3(7) = ((f3(5)+t1*c3(4)+t7*c3(1)-(t8*c3(2)+t1*t1*c3(5)+c3(0)))/(m&
&u2g(3)))
!----#] HAGGIES:
!---#] getc3_S2:
case default
! traditional system
do m=0,3
f3(m)=effe(known,1,4,m)
enddo
do m=4,6
mx=m-4
f3(m)=effe(known,5,3,mx)
enddo
do m=7,9
mx=m-7
f3(m)=effe(known,8,3,mx)
enddo
!---#[ getc3_S3:
!----#[ original code:
! c3(0) = &
! &f3(0)
! c3(1) = &
! & -((KK(3)*(C0c**5*f3(1) + C0c**2*f3(2) + C0c**11*f3(3) + &
! & C0c**8*(f3(0) - f3(4)) - C0c**4*f3(5) - f3(6)))/ &
! & ((-one + C0c**12)*MP12(3)))
! c3(2) = &
! & (KK(3)**2*(C0c*f3(1) + C0c**10*f3(2) + C0c**7*f3(3) + &
! & C0c**4*(f3(0) - f3(4)) - f3(5) - C0c**8*f3(6)))/ &
! & ((-one + C0c**12)*MP12(3)**2)
! c3(3) = &
! & -((KK(3)**3*(f3(0) + C0c**9*f3(1) + C0c**6*f3(2) + &
! & C0c**3*f3(3) - f3(4) - C0c**8*f3(5) - C0c**4*f3(6)))/ &
! & ((-one + C0c**12)*MP12(3)**3))
! c3(4) = &
! & (f3(1) + C0c**9*f3(2) + C0c**6*f3(3) + &
! & C0c**3*(f3(0) - f3(4)) - C0c**11*f3(5) - C0c**7*f3(6))/ &
! & ((-one + C0c**12)*KK(3)*MP12(3))
! c3(5) = &
! & (-(C0c**3*f3(1)) - f3(2) - C0c**9*f3(3) + &
! & C0c**6*(-f3(0) + f3(4)) + C0c**2*f3(5) + C0c**10*f3(6))/ &
! & ((-one + C0c**12)*KK(3)**2*MP12(3)**2)
! c3(6) = &
! & (C0c**6*f3(1) + C0c**3*f3(2) + f3(3) + &
! & C0c**9*(f3(0) - f3(4)) - C0c**5*f3(5) - C0c*f3(6))/ &
! & ((-one + C0c**12)*KK(3)**3*MP12(3)**3)
! c3(7) = &
! & ((C1c**3*KK(3)**3*(C0c**6*f3(1) + C0c**3*f3(2) + f3(3) + &
! & C0c**9*(f3(0) - f3(4)) - C0c**5*f3(5) - C0c*f3(6)))/ &
! & (-one + C0c**12) - &
! & (KK(3)**3*(f3(0) + C0c**9*f3(1) + C0c**6*f3(2) + &
! & C0c**3*f3(3) - f3(4) - C0c**8*f3(5) - C0c**4*f3(6)))/ &
! & (-one + C0c**12) + KK(3)**3*(-f3(0) + f3(7)))/(KK(3)**3*mu2g(3))
! c3(8) = &
! & -((-((KK(3)*(C0c**5*f3(1) + C0c**2*f3(2) + C0c**11*f3(3) + &
! & C0c**8*(f3(0) - f3(4)) - C0c**4*f3(5) - f3(6)))/ &
! & (-one + C0c**12)) - &
! & (C1c**2*KK(3)*(-(C0c**3*f3(1)) - f3(2) - C0c**9*f3(3) + &
! & C0c**6*(-f3(0) + f3(4)) + C0c**2*f3(5) + &
! & C0c**10*f3(6)))/(-one + C0c**12) + KK(3)*f3(9))/ &
! & (MP12(3)*mu2g(3)))
! c3(9) = &
! & (-((C1c*KK(3)**2*(f3(1) + C0c**9*f3(2) + C0c**6*f3(3) + &
! & C0c**3*(f3(0) - f3(4)) - C0c**11*f3(5) - &
! & C0c**7*f3(6)))/(-one + C0c**12)) + &
! & (KK(3)**2*(C0c*f3(1) + C0c**10*f3(2) + C0c**7*f3(3) + &
! & C0c**4*(f3(0) - f3(4)) - f3(5) - C0c**8*f3(6)))/ &
! & (-one + C0c**12) - KK(3)**2*f3(8))/(C1c*KK(3)**3*MP12(3)*mu2g(3))
!----#] original code:
!----#[ HAGGIES:
t1 = f3(0)
c3(0) = t1
t2 = C0c*C0c
t3 = t2*C0c
t4 = t3*t3
t5 = f3(6)
t6 = f3(4)
t7 = t1-t6
t8 = t2*t2
t9 = t8*t8
t10 = f3(1)
t11 = t10*C0c
t12 = f3(2)
t13 = f3(3)
t14 = t13*C0c
t15 = t8*C0c
t15 = t15*t15
t16 = f3(5)
t17 = KK(3)
t18 = MP12(3)
t19 = (t11*t8+t12*t2+t14*t15+t7*t9-(t16*t8+t5))*t17
t3 = (t3-(1.0_ki))*((1.0_ki)+t3)*((1.0_ki)+t4)
t20 = t18*t3
c3(1) = (-1.0_ki)*t19/t20
t21 = t17*t17
t22 = (t11+t12*t15+t14*t4+t7*t8-(t5*t9+t16))*t21
t23 = t18*t18
c3(2) = (t22/(t23*t3))
t24 = (t7+t11*t9+t12*t4+t14*t2-(t5*t8+t16*t9))*t17*t21
c3(3) = (-1.0_ki)*t24/(t20*t23)
t7 = t7*C0c
t20 = t12*C0c
t23 = t16*C0c
t25 = t5*C0c
t26 = t10+t13*t4+t2*t7+t20*t9-(t25*t4+t15*t23)
t27 = t17*t18*t3
c3(4) = (t26/t27)
t5 = (t6-t1)*t4+t15*t5+t16*t2-(t14*t9+t11*t2+t12)
t6 = t17*t18
t11 = t6*t6
c3(5) = (t5/(t11*t3))
t2 = t13+t10*t4+t2*t20+t7*t9-(t23*t8+t25)
c3(6) = (t2/(t11*t27))
t4 = t17*C1c
t7 = mu2g(3)
c3(7) = (((f3(7)-t1)*t17*t21+t17*t2/t3*t4*t4*C1c-t24/t3)/(t17*t21*t&
&7))
c3(8) = (-1.0_ki)*(f3(9)*t17-(t17/t3*t5*C1c*C1c+t19/t3))/(t18*t7)
c3(9) = ((t22/t3-(t21*t26/t3*C1c+f3(8)*t21))/(t21*t6*t7*C1c))
!----#] HAGGIES:
!---#] getc3_S3:
end select
!---#] Old Sampling:
endif
end if if_diff
if (diff.ge.1) then
c3(3)=czip
c3(6)=czip
c3(8)=czip
c3(9)=czip
if (diff.ge.2) then
c3(2)=czip
c3(5)=czip
c3(7)=czip
if (diff.ge.3) then
c3(1)=czip
c3(4)=czip
endif
endif
endif
end subroutine getc3_cm
- subroutine getc3_rm(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
- use mglobal, only: C0,C1,mu2g,MP12,KK,mu2t,resit,denst,mu2test
- use options, only: C0_thrs
- implicit none
- integer, intent(in) :: nleg, rank, cut3
- complex(ki), dimension(0:9), intent(out) :: c3
- complex(ki), dimension(10,4), intent(in) :: q3
- complex(ki), dimension(4), intent(in) :: qt
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki), dimension(10) :: mu2vec
- integer :: i,m,n,i1,i2,i3,i4,i5,dicut5,dicut4,mx,j1,j2,j3,diff
- integer :: nsol, acc
- complex(ki), dimension(10) :: dens3,dens4,dens5,xneval
- complex(ki), dimension(10) :: resi5,resi4,known
- complex(ki), dimension(0:9) :: f3
- complex(ki) :: dens4t,dens5t
- logical evalres
- !!! TR: I have used haggies to rewrite the systems.
- !---#[ HAGGIES:
- complex(ki) :: t1
- complex(ki) :: t2
- complex(ki) :: t3
- complex(ki) :: t4
- complex(ki) :: t5
- complex(ki) :: t6
- complex(ki) :: t7
- complex(ki) :: t8
- complex(ki) :: t9
- complex(ki) :: t10
- complex(ki) :: t11
- complex(ki) :: t12
- complex(ki) :: t13
- complex(ki) :: t14
- complex(ki) :: t15
- complex(ki) :: t16
- complex(ki) :: t17
- complex(ki) :: t18
- complex(ki) :: t19
- complex(ki) :: t20
- complex(ki) :: t21
- complex(ki) :: t22
- complex(ki) :: t23
- complex(ki) :: t24
- complex(ki) :: t25
- complex(ki) :: t26
- complex(ki) :: t27
- !---#] HAGGIES:
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
- mu2test(3) = mu2t(3)
- j3=cut3/100
- acc = j3*100
- j2=(cut3-acc)/10
- j1=cut3-acc-j2*10
- resi5(:)=czip
- resi4(:)=czip
- known(:)=czip
- xneval(:)=czip
- dens3(:)=cone
- !--- for lnntest
- resit(3)=czip
- denst(3)=cone
- !--- for simplified sampling
- diff = nleg-rank
- if_diff: if (diff.ge.3) then
- ! simplified sampling -- only c3(0)
- select case(nleg)
- case(5)
- resi5(1)=res5(1,czip)
- resit(3)=res5(1,mu2t(3))
- goto 11
- case(4)
- resi4(1)=Res4(1,q3(1,:),czip)
- resit(3) =res4(1,qt,mu2t(3))
- goto 21
- case(3)
- goto 26
- case default
- dicut5=1
- loop_i5: do i5=4,nleg-1
- loop_i4: do i4=3,i5-1
- loop_i3: do i3=2,i4-1
- loop_i2: do i2=1,i3-1
- loop_i1: do i1=0,i2-1
- dens5(1)=cone
- dens5t=cone
-
- evalres=.false.
-
- loop_10: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3)&
- & .and.(i.ne.i4).and.(i.ne.i5)) then
- if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
- dens5(1)=czip
- dens5t=czip
- evalres=.false.
- exit loop_10
- else
- dens5(1)=dens5(1)&
- &*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
- dens5t=dens5t&
- &*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- evalres=.true.
- endif
- endif
- enddo loop_10
- if (evalres) then
- resi5(1)=resi5(1)+dens5(1)*res5(dicut5,czip)
- resit(3)=resit(3)+dens5t*Res5(dicut5,mu2t(3))
- endif
- dicut5=dicut5+1
- enddo loop_i1
- enddo loop_i2
- enddo loop_i3
- enddo loop_i4
- enddo loop_i5
- end select
- 11 continue
- dicut4=1
- loop_21: do i4=3,nleg-1
- loop_21_i3: do i3=2,i4-1
- loop_21_i2: do i2=1,i3-1
- loop_21_i1: do i1=0,i2-1
- dens4(1)=cone
- dens4t=cone
- evalres=.false.
-
- loop_20: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.(i.ne.i4)) then
- if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
- dens4(1)=dens4(1)&
- &*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
- dens4t=dens4t*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- evalres=.true.
- else
- dens4(1)=czip
- dens4t=czip
- evalres=.false.
- exit loop_20
- endif
- endif
- enddo loop_20
- if (evalres) then
- resi4(1)=resi4(1)+dens4(1)*Res4(dicut4,q3(1,:),czip)
- resit(3)=resit(3)+dens4t*Res4(dicut4,qt,mu2t(3))
- endif
- dicut4=dicut4+1
- enddo loop_21_i1
- enddo loop_21_i2
- enddo loop_21_i3
- enddo loop_21
- 21 continue
- loop_26: do i=0,nleg-1
- if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
- dens3(1)=dens3(1)*denevalmu2(nleg,i,q3(1,:),Vi,msq,czip)
- denst(3)=denst(3)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- endif
- enddo loop_26
- 26 continue
- xneval(1)=numeval(cut3,q3(1,:),czip)
- if (imeth.eq.'diag') then
- known(1)=(xneval(1)-resi5(1)-resi4(1))/dens3(1)
- elseif (imeth.eq.'tree') then
- known(1)=xneval(1)-(resi5(1)+resi4(1))/dens3(1)
- endif
-
- c3(0)=known(1)
- do m=1,9
- c3(m)=czip
- enddo
- else
- if (abs(C0-1.0_ki) .lt. C0_thrs) then
- !---#[ New Sampling:
- ! The new sampling is the one that is safe around C0=1
- ! but not around C0=0
- ! traditional system
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
- nsol=10
- !---#] New Sampling:
- else
- !---#[ Old Sampling:
- ! The old sampling is the one that is safe around C0=0
- ! but not around C0=1
- if (diff.eq.2) then
- ! rank1 c-system: 3 coefficients
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,czip,czip,czip/)
- nsol=3
- elseif (diff.eq.1) then
- ! rank1 c-system: 3 coefficients
- mu2vec=(/czip,czip,czip,czip,czip,mu2g(3),czip,czip,czip,czip/)
- nsol=6
- else
- ! traditional system
- mu2vec=(/czip,czip,czip,czip,czip,czip,czip,mu2g(3),mu2g(3),mu2g(3)/)
- nsol=10
- endif
- !---#] Old Sampling:
- endif
-
- if_nleg: if (nleg.eq.5) then
- do n=1,nsol
- resi5(n)=Res5(1,mu2vec(n))
- enddo
- resit(3)=Res5(1,mu2t(3))
- goto 111
- elseif (nleg.eq.4) then
- do n=1,nsol
- resi4(n)=Res4(1,q3(n,:),mu2vec(n))
- enddo
- resit(3)=Res4(1,qt,mu2t(3))
- goto 121
- elseif (nleg.eq.3) then
- goto 126
- else
- dicut5=1
- do i5=4,nleg-1
- do i4=3,i5-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens5(:)=cone
- dens5t=cone
- evalres=.false.
-
- loop_110: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.&
- &(i.ne.i4).and.(i.ne.i5)) then
- if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
- dens5(:)=czip
- dens5t=czip
- evalres=.false.
- exit loop_110
- else
- do n=1,nsol
- dens5(n)=dens5(n)*denevalmu2(nleg,i,&
- &q3(n,:),Vi,msq,mu2vec(n))
- enddo
- dens5t=dens5t&
- &*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- evalres=.true.
- endif
- endif
- enddo loop_110
- if (evalres) then
- do n=1,nsol
- resi5(n)=resi5(n)&
- &+dens5(n)*res5(dicut5,mu2vec(n))
- enddo
- resit(3)=resit(3)+dens5t*res5(dicut5,mu2t(3))
- endif
- dicut5=dicut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- endif if_nleg
- 111 continue
- dicut4=1
- do i4=3,nleg-1
- do i3=2,i4-1
- do i2=1,i3-1
- do i1=0,i2-1
- dens4(:)=cone
- dens4t=cone
- evalres=.false.
-
- loop_120: do i=0,nleg-1
- if ((i.ne.i1).and.(i.ne.i2) &
- & .and.(i.ne.i3).and.(i.ne.i4)) then
- if ((i.eq.j1).or.(i.eq.j2).or.(i.eq.j3)) then
- dens4(:)=czip
- dens4t=czip
-
- evalres=.false.
- exit loop_120
- else
- do n=1,nsol
- dens4(n)=dens4(n)&
- &*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
- enddo
- dens4t=dens4t&
- &*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- evalres=.true.
- endif
- endif
- enddo loop_120
- if (evalres) then
- do n=1,nsol
- resi4(n)=resi4(n)&
- & +dens4(n)*Res4(dicut4,q3(n,:),mu2vec(n))
- enddo
- resit(3)=resit(3)+dens4t*Res4(dicut4,qt,mu2t(3))
- endif
- dicut4=dicut4+1
- enddo
- enddo
- enddo
- enddo
- 121 continue
- do i=0,nleg-1
- if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
- do n=1,nsol
- dens3(n)=dens3(n)*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
- enddo
- denst(3)=denst(3)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
- endif
- enddo
- 126 continue
- do n=1,nsol
- xneval(n)=numeval(cut3,q3(n,:),mu2vec(n))
- enddo
- if (imeth.eq.'diag') then
- known(:)=(xneval(:)-resi5(:)-resi4(:))/dens3(:)
- elseif (imeth.eq.'tree') then
- known(:)=xneval(:)-(resi5(:)+resi4(:))/dens3(:)
- endif
- if (abs(C0-1.0_ki) .lt. C0_thrs) then
- !---#[ New Sampling:
- ! The new sampling is the one that is safe around C0=1
- ! but not around C0=0
- ! traditional system
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+subroutine getc3_rm(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
+ use mglobal, only: C0,C1,Cm1,mu2g,MP12,KK,mu2t,resit,denst,mu2test
+ use options, only: C0_thrs
+ implicit none
+! PARAMETERS=======================================================================!
+ ! external
+ integer, intent(in ) :: nleg, rank, cut3
+ complex(ki), dimension(0:14), intent(out) :: c3
+ complex(ki), dimension(15,4), intent(in ) :: q3
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ complex(ki), dimension(15) :: mu2vec
+ ! internal
+ integer :: i,m,n,i1,i2,i3,i4,i5,dicut5,dicut4,mx,j1,j2,j3,diff
+ integer :: nsol, acc, nloops
+ complex(ki), dimension(15) :: dens3,dens4,dens5,xneval
+ complex(ki), dimension(15) :: resi5,resi4,known
+ complex(ki), dimension(0:14) :: f3
+ complex(ki) :: dens4t,dens5t
+ logical :: evalres
+ integer, dimension(5) :: iarr
+ ! haggies !!! TR: I have used haggies to rewrite the systems.
+ complex(ki) :: t1
+ complex(ki) :: t2
+ complex(ki) :: t3
+ complex(ki) :: t4
+ complex(ki) :: t5
+ complex(ki) :: t6
+ complex(ki) :: t7
+ complex(ki) :: t8
+ complex(ki) :: t9
+ complex(ki) :: t10
+ complex(ki) :: t11
+ complex(ki) :: t12
+ complex(ki) :: t13
+ complex(ki) :: t14
+ complex(ki) :: t15
+ complex(ki) :: t16
+ complex(ki) :: t17
+ complex(ki) :: t18
+ complex(ki) :: t19
+ complex(ki) :: t20
+ complex(ki) :: t21
+ complex(ki) :: t22
+ complex(ki) :: t23
+ complex(ki) :: t24
+ complex(ki) :: t25
+ complex(ki) :: t26
+ complex(ki) :: t27
+! INTERFACE========================================================================!
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+! INITIALIZATION===================================================================!
+ ! mu2
+ mu2test(3) = mu2t(3)
+ ! cuts
+ j3 = cut3/100
+ acc = j3*100
+ j2 = (cut3-acc)/10
+ j1 = cut3-acc-j2*10
+ ! ---
+ resi5(:) = czip
+ resi4(:) = czip
+ known(:) = czip
+ xneval(:) = czip
+ dens3(:) = cone
+ ! for lnntest
+ resit(3) = czip
+ denst(3) = cone
+ ! for simplified sampling
+ diff = nleg-rank
+! CALCULATING THE MU2 VECTOR=======================================================!
+ do n=1,15
+ mu2vec(n)=czip
+ enddo
+ if (diff .ge. 3) then ! rank0: 1 coefficients
+ nsol=1
+ elseif (diff .eq. 2) then ! rank1: 3 coefficients
+ nsol=3
+ elseif (diff .eq. 1) then ! rank2: 6 coefficients
+ nsol=6
+ mu2vec(6) = mu2g(3)
+ elseif (diff .eq. 0) then ! rank3: 10 coefficients
+ nsol=10
+ mu2vec(8) = mu2g(3)
+ mu2vec(9) = mu2g(3)
+ mu2vec(10) = mu2g(3)
+ elseif (diff .eq.-1) then ! rank4: 15 coefficients
+ nsol=15
+ do n=10,14
+ mu2vec(n) = mu2g(3)
+ enddo
+ mu2vec(15) = -mu2g(3)
+ else
+ print *, 'error in mgetc3.f90'
+ endif
+! CALCULATING THE RESIDUES=========================================================!
+! DIFF >= 3: only c3(0)
+! DIFF < 3=========================================================================!
+ if(nleg.eq.5) then
+ do n=1,nsol
+ resi5(n)=Res5(1,mu2vec(n))
+ enddo
+ resit(3)=Res5(1,mu2t(3))
+ elseif(nleg.eq.4) then
+ do n=1,nsol
+ resi4(n)=Res4(1,q3(n,:),mu2vec(n))
+ enddo
+ resit(3)=Res4(1,qt,mu2t(3))
+ elseif(nleg.eq.3) then
+ continue
+ else
+ !-------------------
+ nloops = 5
+ call HResL3(resi5, nsol,nloops,nleg,cut3,q3,qt,Vi,msq,mu2vec)
+ !------------------
+ endif
+
+ if((nleg .ne. 4) .and. (nleg .ne. 3)) then
+ !------------------
+ nloops=4
+ call HResL3(resi4, nsol,nloops,nleg,cut3,q3,qt,Vi,msq,mu2vec)
+ !------------------
+ endif
+ if(nleg .ne. 3) then
+ do i=0,nleg-1
+ if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
+ do n=1,nsol
+ dens3(n)=dens3(n)*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
+ enddo
+ denst(3)=denst(3)*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
+ endif
+ enddo
+ endif
+! CALCULATING THE POLYNOMIALS======================================================!
+ do n=1,nsol
+ xneval(n)=numeval(cut3,q3(n,:),mu2vec(n))
+ enddo
+ if (imeth.eq.'diag') then
+ do n=1,nsol
+ known(n)=(xneval(n)-resi5(n)-resi4(n))/dens3(n)
+ enddo
+ elseif (imeth.eq.'tree') then
+ do n=1,nsol
+ known(n)=xneval(n)-(resi5(n)+resi4(n))/dens3(n)
+ enddo
+ endif
+! C0=1=============================================================================!
+! This sampling is the one that is safe around C0=1 , but not around C0=0
+ if (abs(C0-1.0_ki) .lt. C0_thrs) then
+ select case(diff)
+ case(-1)
+ do m=0,8
+ f3(m)=effe(known,1,9,m)
+ enddo
+ do m=9,13
+ mx=m-9
+ f3(m)=effe(known,10,5,mx)
+ enddo
+ f3(14)=effe(known,15,1,0)
+! CACULATING C3~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ c3(0) = &
+ &f3(0)
+ c3(1) = &
+ &-(f3(8)/(C0*MP12(3)))
+ c3(2) = &
+ &f3(7)/(C0**2*MP12(3)**2)
+ c3(3) = &
+ &-(f3(6)/(C0**3*MP12(3)**3))
+ c3(4) = &
+ &-(f3(1)/MP12(3))
+ c3(5) = &
+ &f3(2)/MP12(3)**2
+ c3(6) = &
+ &-(f3(3)/MP12(3)**3)
+ c3(12) = &
+ &f3(5)/(C0**4*MP12(3)**4)
+ c3(13) = &
+ &f3(4)/MP12(3)**4
+ c3(7) = &
+ & (Cm1*f3(8))/(C0*mu2g(3)) + &
+ & (half*(C0**4*C1**2*two*f3(1)*mu2g(3)**4 + &
+ & C0**4*C1**2*two*f3(2)*mu2g(3)**4 + &
+ & C0**4*C1**2*f3(3)*mu2g(3)**4 + &
+ & C0**4*C1**5*Cm1**2*f3(3)*mu2g(3)**4 + &
+ & C0**4*C1**2*f3(4)*mu2g(3)**4 + &
+ & C0**4*C1**6*Cm1*f3(4)*mu2g(3)**4 + &
+ & C1*f3(5)*mu2g(3)**4 + &
+ & C1**2*Cm1**4*f3(5)*mu2g(3)**4 + &
+ & C0*f3(6)*mu2g(3)**4 + &
+ & C0*C1**2*Cm1**3*f3(6)*mu2g(3)**4 + &
+ & C0**2*C1**2*Cm1**2*two*f3(7)*mu2g(3)**4 + &
+ & C0**4*C1**2*f3(9)*mu2g(3)**4 - &
+ & C0**4*C1*f3(10)*mu2g(3)**4 - &
+ & C0**4*f3(11)*mu2g(3)**4 - &
+ & C0**4*C1**2*Cm1**2*f3(12)*mu2g(3)**4 - &
+ & C0**4*C1**2*Cm1*f3(13)*mu2g(3)**4 - &
+ & C0**4*C1**2*f3(14)*mu2g(3)**4))/ &
+ & (C0**4*C1**2*mu2g(3)**5)
+ c3(8) = &
+ &-((-(C0*C1**4*f3(4)) - f3(8) + C0*f3(13))/(C0*MP12(3)*mu2g(3)))
+ c3(9) = &
+ & -((-(C0**4*C1*f3(1)) - f3(5) + C0**4*f3(10))/ &
+ & (C0**4*C1*MP12(3)*mu2g(3)))
+ c3(10) = &
+ & -((C0**2*C1**3*f3(3) + f3(7) - C0**2*f3(12))/ &
+ & (C0**2*MP12(3)**2*mu2g(3)))
+ c3(11) = &
+ & -((C0**3*C1**2*f3(2) + f3(6) - C0**3*f3(11))/ &
+ & (C0**3*C1**2*MP12(3)**2*mu2g(3)))
+ c3(14) = &
+ & -(f3(0)/mu2g(3)**2) - (Cm1*f3(8))/(C0*mu2g(3)**2) + &
+ & (half*(-(C0**4*C1**2*two*f3(1)) - C0**4*C1**2*two*f3(2) - &
+ & C0**4*C1**2*f3(3) - C0**4*C1**5*Cm1**2*f3(3) - &
+ & C0**4*C1**2*f3(4) - C0**4*C1**6*Cm1*f3(4) - &
+ & C1*f3(5) - C1**2*Cm1**4*f3(5) - C0*f3(6) - &
+ & C0*C1**2*Cm1**3*f3(6) - &
+ & C0**2*C1**2*Cm1**2*two*f3(7) + C0**4*C1**2*f3(9) + &
+ & C0**4*C1*f3(10) + C0**4*f3(11) + &
+ & C0**4*C1**2*Cm1**2*f3(12) + C0**4*C1**2*Cm1*f3(13) + &
+ & C0**4*C1**2*f3(14)))/(C0**4*C1**2*mu2g(3)**2)
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case default
do m=0,6
f3(m)=effe(known,1,7,m)
enddo
do m=7,9
mx=m-7
f3(m)=effe(known,8,3,mx)
enddo
-
- !---#[ getc3_S3:
c3(0) = f3(0)
c3(1) = -(f3(6)/(C0*MP12(3)))
c3(2) = f3(5)/(C0**2*MP12(3)**2)
c3(3) = -(f3(4)/(C0**3*MP12(3)**3))
c3(4) = -(f3(1)/MP12(3))
c3(5) = f3(2)/MP12(3)**2
c3(6) = -(f3(3)/MP12(3)**3)
c3(7) = (-f3(0) + MP12(3)**3*(-((C1**3*f3(3))/MP12(3)**3) -&
&f3(4)/(C0**3*MP12(3)**3)) + f3(7))/mu2g(3)
c3(8) = (C1**2*f3(2) + f3(6)/C0 - f3(9))/(MP12(3)*mu2g(3))
c3(9) = (C1*f3(1) + f3(5)/C0**2 - f3(8))/(C1*MP12(3)*mu2g(3))
- !---#] getc3_S3:
-
- !---#] New Sampling:
- else
- !---#[ Old Sampling:
- ! The old sampling is the one that is safe around C0=0
- ! but not around C0=1
- select case(diff)
- case(2)
- ! rank1 c-system: 3 coefficients
+ end select
+! C0 IS NOT 1======================================================================!
+! The old sampling is the one that is safe around C0=0
+! but not around C0=1
+ else
+ select case(diff)
+! CALCULATING THE POLYNOMIALS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case(3)
+ c3(0)=known(1)
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case(2)
f3(0:2)=known(1:3)
- !---#[ getc3_S1:
- !----#[ original code:
- ! c3(0) = (f3(0) + f3(1))/two
- ! c3(1) = -(KK(3)*((one + C0)*f3(0) + f3(1) - C0*f3(1) - two*f3(2)))/ &
- ! (two*(-one + C0**2)*MP12(3))
- ! c3(4) = &
- ! -((KK(3)*c3(0) + C0*MP12(3)*c3(1) - KK(3)*f3(1))/(KK(3)**2*MP12(3)))
- !----#] original code:
- !----#[ HAGGIES:
t1 = f3(0)
t2 = f3(1)
c3(0) = ((t1+t2)*0.5_ki)
t3 = KK(3)
t4 = MP12(3)
c3(1) = (-1.0_ki)*(t2+((1.0_ki)+C0)*t1-(t2*C0+(2.0_ki)*f3(2)))/((C&
&0*C0-(1.0_ki))*t4)*t3*0.5_ki
c3(4) = (-1.0_ki)*(t3*c3(0)+t4*C0*c3(1)-t2*t3)/(t3*t3*t4)
- !----#] HAGGIES:
- !---#] getc3_S1:
- case(1)
- ! rank1 c-system: 3 coefficients
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case(1)
do m=0,2
f3(m)=effe(known,1,3,m)
enddo
do m=3,4
mx=m-3
f3(m)=effe(known,4,2,mx)
enddo
do m=5,5
mx=m-5
f3(m)=effe(known,6,1,mx)
enddo
- !---#[ getc3_S2:
- !----#[ original code:
- !!$ c3(0) = f3(0)
- !!$ c3(2) = &
- !!$ & (KK(3)**2*(f3(0) - f3(3) + &
- !!$ & C0**2*(C0**2*f3(1) + f3(2) - C0*f3(4))))/&
- !!$ & ((-one + C0**6)*MP12(3)**2)
- !!$ c3(4) = (C0**2*MP12(3)*c3(2))/KK(3)**3 - f3(1)/(KK(3)*MP12(3))
- !!$ c3(1) = -((KK(3)*(C0*KK(3)*MP12(3)*c3(4) + f3(4)))/MP12(3))
- !!$ c3(5) = (C0*MP12(3)*c3(1) + KK(3)*f3(2))/(KK(3)**3*MP12(3)**2)
- !!$ c3(7) = &
- !!$ & (MP12(3)*c3(1) - MP12(3)**2*c3(2) + C1*MP12(3)*c3(4)-&
- !!$ & C1**2*MP12(3)**2*c3(5) + (-c3(0) + f3(5)))/mu2g(3)
-
- ! c3(0) = f3(0)
- ! c3(2) = &
- ! & (f3(0) - f3(3) + &
- ! & C0**2*(C0**2*f3(1) + f3(2) - C0*f3(4)))/&
- ! & ((-one + C0**6)*MP12(3)**2)
- ! c3(4) = C0**2*MP12(3)*c3(2) - f3(1)/MP12(3)
- ! c3(1) = -(C0*MP12(3)*c3(4) + f3(4))/MP12(3)
- ! c3(5) = (C0*MP12(3)*c3(1) + f3(2))/MP12(3)**2
- ! c3(7) = &
- ! & (MP12(3)*c3(1) - MP12(3)**2*c3(2) + C1*MP12(3)*c3(4)-&
- ! & C1**2*MP12(3)**2*c3(5) + (-c3(0) + f3(5)))/mu2g(3)
- !----#] original code:
- !----#[ HAGGIES:
t1 = f3(0)
c3(0) = t1
t2 = C0*C0
t3 = t2*C0
t4 = f3(2)
t5 = f3(1)
t6 = f3(4)
t7 = MP12(3)
t8 = t7*t7
c3(2) = ((t1+(t4+t2*t5-t6*C0)*t2-f3(3))/((t3*t3-one)*t8))
c3(4) = (t2*t7*c3(2)-t5/t7)
t1 = t7*C0
c3(1) = (-1.0_ki)*(t6+t1*c3(4))/t7
c3(5) = ((t4+t1*c3(1))/t8)
t1 = t7*C1
c3(7) = ((f3(5)+t1*c3(4)+t7*c3(1)-(t8*c3(2)+t1*t1*c3(5)+c3(0)))/(m&
&u2g(3)))
- !----#] HAGGIES:
- !---#] getc3_S2:
- case default
- ! traditional system
-
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case(0)
do m=0,3
f3(m)=effe(known,1,4,m)
enddo
do m=4,6
mx=m-4
f3(m)=effe(known,5,3,mx)
enddo
do m=7,9
mx=m-7
f3(m)=effe(known,8,3,mx)
enddo
-
- !---#[ getc3_S3:
- !----#[ original code:
- ! c3(0) = &
- ! &f3(0)
- ! c3(1) = &
- ! & -((KK(3)*(C0**5*f3(1) + C0**2*f3(2) + C0**11*f3(3) + &
- ! & C0**8*(f3(0) - f3(4)) - C0**4*f3(5) - f3(6)))/ &
- ! & ((-one + C0**12)*MP12(3)))
- ! c3(2) = &
- ! & (KK(3)**2*(C0*f3(1) + C0**10*f3(2) + C0**7*f3(3) + &
- ! & C0**4*(f3(0) - f3(4)) - f3(5) - C0**8*f3(6)))/ &
- ! & ((-one + C0**12)*MP12(3)**2)
- ! c3(3) = &
- ! & -((KK(3)**3*(f3(0) + C0**9*f3(1) + C0**6*f3(2) + &
- ! & C0**3*f3(3) - f3(4) - C0**8*f3(5) - C0**4*f3(6)))/ &
- ! & ((-one + C0**12)*MP12(3)**3))
- ! c3(4) = &
- ! & (f3(1) + C0**9*f3(2) + C0**6*f3(3) + &
- ! & C0**3*(f3(0) - f3(4)) - C0**11*f3(5) - C0**7*f3(6))/ &
- ! & ((-one + C0**12)*KK(3)*MP12(3))
- ! c3(5) = &
- ! & (-(C0**3*f3(1)) - f3(2) - C0**9*f3(3) + &
- ! & C0**6*(-f3(0) + f3(4)) + C0**2*f3(5) + C0**10*f3(6))/ &
- ! & ((-one + C0**12)*KK(3)**2*MP12(3)**2)
- ! c3(6) = &
- ! & (C0**6*f3(1) + C0**3*f3(2) + f3(3) + &
- ! & C0**9*(f3(0) - f3(4)) - C0**5*f3(5) - C0*f3(6))/ &
- ! & ((-one + C0**12)*KK(3)**3*MP12(3)**3)
- ! c3(7) = &
- ! & ((C1**3*KK(3)**3*(C0**6*f3(1) + C0**3*f3(2) + f3(3) + &
- ! & C0**9*(f3(0) - f3(4)) - C0**5*f3(5) - C0*f3(6)))/ &
- ! & (-one + C0**12) - &
- ! & (KK(3)**3*(f3(0) + C0**9*f3(1) + C0**6*f3(2) + &
- ! & C0**3*f3(3) - f3(4) - C0**8*f3(5) - C0**4*f3(6)))/ &
- ! & (-one + C0**12) + KK(3)**3*(-f3(0) + f3(7)))/(KK(3)**3*mu2g(3))
- ! c3(8) = &
- ! & -((-((KK(3)*(C0**5*f3(1) + C0**2*f3(2) + C0**11*f3(3) + &
- ! & C0**8*(f3(0) - f3(4)) - C0**4*f3(5) - f3(6)))/ &
- ! & (-one + C0**12)) - &
- ! & (C1**2*KK(3)*(-(C0**3*f3(1)) - f3(2) - C0**9*f3(3) + &
- ! & C0**6*(-f3(0) + f3(4)) + C0**2*f3(5) + &
- ! & C0**10*f3(6)))/(-one + C0**12) + KK(3)*f3(9))/ &
- ! & (MP12(3)*mu2g(3)))
- ! c3(9) = &
- ! & (-((C1*KK(3)**2*(f3(1) + C0**9*f3(2) + C0**6*f3(3) + &
- ! & C0**3*(f3(0) - f3(4)) - C0**11*f3(5) - &
- ! & C0**7*f3(6)))/(-one + C0**12)) + &
- ! & (KK(3)**2*(C0*f3(1) + C0**10*f3(2) + C0**7*f3(3) + &
- ! & C0**4*(f3(0) - f3(4)) - f3(5) - C0**8*f3(6)))/ &
- ! & (-one + C0**12) - KK(3)**2*f3(8))/(C1*KK(3)**3*MP12(3)*mu2g(3))
- !----#] original code:
- !----#[ HAGGIES:
t1 = f3(0)
c3(0) = t1
t2 = C0*C0
t3 = t2*C0
t4 = t3*t3
t5 = f3(6)
t6 = f3(4)
t7 = t1-t6
t8 = t2*t2
t9 = t8*t8
t10 = f3(1)
t11 = t10*C0
t12 = f3(2)
t13 = f3(3)
t14 = t13*C0
t15 = t8*C0
t15 = t15*t15
t16 = f3(5)
t17 = KK(3)
t18 = MP12(3)
t19 = (t11*t8+t12*t2+t14*t15+t7*t9-(t16*t8+t5))*t17
t3 = (t3-(1.0_ki))*((1.0_ki)+t3)*((1.0_ki)+t4)
t20 = t18*t3
c3(1) = (-1.0_ki)*t19/t20
t21 = t17*t17
t22 = (t11+t12*t15+t14*t4+t7*t8-(t5*t9+t16))*t21
t23 = t18*t18
c3(2) = (t22/(t23*t3))
t24 = (t7+t11*t9+t12*t4+t14*t2-(t5*t8+t16*t9))*t17*t21
c3(3) = (-1.0_ki)*t24/(t20*t23)
t7 = t7*C0
t20 = t12*C0
t23 = t16*C0
t25 = t5*C0
t26 = t10+t13*t4+t2*t7+t20*t9-(t25*t4+t15*t23)
t27 = t17*t18*t3
c3(4) = (t26/t27)
t5 = (t6-t1)*t4+t15*t5+t16*t2-(t14*t9+t11*t2+t12)
t6 = t17*t18
t11 = t6*t6
c3(5) = (t5/(t11*t3))
t2 = t13+t10*t4+t2*t20+t7*t9-(t23*t8+t25)
c3(6) = (t2/(t11*t27))
t4 = t17*C1
t7 = mu2g(3)
c3(7) = (((f3(7)-t1)*t17*t21+t17*t2/t3*t4*t4*C1-t24/t3)/(t17*t21*t&
&7))
c3(8) = (-1.0_ki)*(f3(9)*t17-(t17/t3*t5*C1*C1+t19/t3))/(t18*t7)
c3(9) = ((t22/t3-(t21*t26/t3*C1+f3(8)*t21))/(t21*t6*t7*C1))
- !----#] HAGGIES:
- !---#] getc3_S3:
- end select
- !---#] Old Sampling:
- endif
- end if if_diff
-
- if (diff.ge.1) then
- c3(3)=czip
- c3(6)=czip
- c3(8)=czip
- c3(9)=czip
- if (diff.ge.2) then
- c3(2)=czip
- c3(5)=czip
- c3(7)=czip
- if (diff.ge.3) then
- c3(1)=czip
- c3(4)=czip
- endif
- endif
- endif
- end subroutine getc3_rm
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ case(-1)
+ do m=0,4
+ f3(m)=effe(known,1,5,m)
+ enddo
+ do m=5,8
+ mx=m-5
+ f3(m)=effe(known,6,4,mx)
+ enddo
+ do m=9,13
+ mx=m-9
+ f3(m)=effe(known,10,5,mx)
+ enddo
+ f3(14)=effe(known,15,1,0)
+! CALCULATING C3-------------------------------------------------------------------!
+ c3(0) = &
+ &f3(0)
+ c3(1) = &
+ & (C0**11*f3(1) + C0**7*f3(2) + C0**3*f3(3) + &
+ & C0**19*f3(4) + C0**15*(f3(0) - f3(5)) - C0**10*f3(6) - &
+ & C0**5*f3(7) - f3(8))/((1 - C0**20)*MP12(3))
+ c3(2) = &
+ & (-(C0**6*f3(1)) - C0**2*f3(2) - C0**18*f3(3) - &
+ & C0**14*f3(4) + C0**10*(-f3(0) + f3(5)) + C0**5*f3(6) + &
+ & f3(7) + C0**15*f3(8))/((1 - C0**20)*MP12(3)**2)
+ c3(3) = &
+ & (-f3(6) + C0*(f3(1) + &
+ & C0**4*(f3(0) - f3(5) + &
+ & C0**4*(C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8)))))/ &
+ & ((1 - C0**20)*MP12(3)**3)
+ c3(4) = &
+ & (-f3(1) + C0**4*(-f3(0) + f3(5) + &
+ & C0**4*(-(C0**8*f3(2)) - C0**4*f3(3) - f3(4) + &
+ & C0**11*f3(6) + C0**6*f3(7) + C0*f3(8))))/ &
+ & ((1 - C0**20)*MP12(3))
+ c3(5) = &
+ & (f3(2) + C0**3*(-f3(6) + &
+ & C0*(f3(1) + C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4*(C0**4*f3(3) + f3(4) - C0**6*f3(7) - &
+ & C0*f3(8))))))/((1 - C0**20)*MP12(3)**2)
+ c3(6) = &
+ & (-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - C0**16*f3(4) + &
+ & C0**12*(-f3(0) + f3(5)) + C0**7*f3(6) + C0**2*f3(7) + &
+ & C0**17*f3(8))/((1 - C0**20)*MP12(3)**3)
+ c3(7) = &
+ & ((C1**6*half*(C0**12*f3(1) + C0**8*f3(2) + C0**4*f3(3) + &
+ & f3(4) + C0**16*(f3(0) - f3(5)) - C0**11*f3(6) - &
+ & C0**6*f3(7) - C0*f3(8)))/(1 - C0**20) - &
+ & (C1**5*half*(-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - &
+ & C0**16*f3(4) + C0**12*(-f3(0) + f3(5)) + &
+ & C0**7*f3(6) + C0**2*f3(7) + C0**17*f3(8)))/ &
+ & (1 - C0**20) + C1*Cm1* &
+ & ((half*(-f3(0) + f3(5) + &
+ & C0**4*(-(C0**12*f3(1)) - C0**8*f3(2) - &
+ & C0**4*f3(3) - f3(4) + C0**11*f3(6) + &
+ & C0**6*f3(7) + C0*f3(8))))/(1 - C0**20) - &
+ & half*f3(10)) + &
+ & Cm1**2*(-((half*(-f3(6) + &
+ & C0*(f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8))))))/ &
+ & (1 - C0**20)) - half*f3(11)) + &
+ & C1**2*(half*f3(9) - half*f3(12) - half*f3(13) - &
+ & half*f3(14) + &
+ & MP12(3)*(-((C0**11*f3(1) + C0**7*f3(2) + &
+ & C0**3*f3(3) + C0**19*f3(4) + &
+ & C0**15*(f3(0) - f3(5)) - C0**10*f3(6) - &
+ & C0**5*f3(7) - f3(8))/((1 - C0**20)*MP12(3))) &
+ & - (Cm1*(-f3(1) + &
+ & C0**4* &
+ & (-f3(0) + f3(5) + &
+ & C0**4* &
+ & (-(C0**8*f3(2)) - C0**4*f3(3) - f3(4) + &
+ & C0**11*f3(6) + C0**6*f3(7) + C0*f3(8))) &
+ & ))/((1 - C0**20)*MP12(3)) + &
+ & ((-(C0**6*f3(1)) - C0**2*f3(2) - C0**18*f3(3) - &
+ & C0**14*f3(4) + C0**10*(-f3(0) + f3(5)) + &
+ & C0**5*f3(6) + f3(7) + C0**15*f3(8))/ &
+ & ((1 - C0**20)*MP12(3)**2) + &
+ & (Cm1**2* &
+ & (f3(2) + &
+ & C0**3* &
+ & (-f3(6) + &
+ & C0* &
+ & (f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**4*f3(3) + f3(4) - C0**6*f3(7) - &
+ & C0*f3(8)))))))/ &
+ & ((1 - C0**20)*MP12(3)**2))*MP12(3) + &
+ & (-((Cm1**3*half* &
+ & (-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - &
+ & C0**16*f3(4) + &
+ & C0**12*(-f3(0) + f3(5)) + C0**7*f3(6) + &
+ & C0**2*f3(7) + C0**17*f3(8)))/ &
+ & ((1 - C0**20)*MP12(3)**3)) - &
+ & (half*(-f3(6) + &
+ & C0* &
+ & (f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8))))))/ &
+ & ((1 - C0**20)*MP12(3)**3))*MP12(3)**2 + &
+ & ((Cm1**4*half* &
+ & (C0**12*f3(1) + C0**8*f3(2) + C0**4*f3(3) + &
+ & f3(4) + C0**16*(f3(0) - f3(5)) - &
+ & C0**11*f3(6) - C0**6*f3(7) - C0*f3(8)))/ &
+ & ((1 - C0**20)*MP12(3)**4) + &
+ & (half*(-f3(0) + f3(5) + &
+ & C0**4* &
+ & (-(C0**12*f3(1)) - C0**8*f3(2) - &
+ & C0**4*f3(3) - f3(4) + C0**11*f3(6) + &
+ & C0**6*f3(7) + C0*f3(8))))/ &
+ & ((1 - C0**20)*MP12(3)**4))*MP12(3)**3)))/ &
+ & (C1**2*mu2g(3))
+ c3(8) = &
+ & -(((C0**11*f3(1) + C0**7*f3(2) + C0**3*f3(3) + &
+ & C0**19*f3(4) + C0**15*(f3(0) - f3(5)) - &
+ & C0**10*f3(6) - C0**5*f3(7) - f3(8))/ &
+ & ((1 - C0**20)*MP12(3)) - &
+ & (C1**4*(C0**12*f3(1) + C0**8*f3(2) + C0**4*f3(3) + &
+ & f3(4) + C0**16*(f3(0) - f3(5)) - C0**11*f3(6) - &
+ & C0**6*f3(7) - C0*f3(8)))/((1 - C0**20)*MP12(3)) &
+ & + f3(13)/MP12(3))/mu2g(3))
+ c3(9) = &
+ & ((-f3(0) + f3(5) + &
+ & C0**4*(-(C0**12*f3(1)) - C0**8*f3(2) - C0**4*f3(3) - &
+ & f3(4) + C0**11*f3(6) + C0**6*f3(7) + C0*f3(8)))/ &
+ & (1 - C0**20) - (C1* &
+ & (-f3(1) + C0**4* &
+ & (-f3(0) + f3(5) + &
+ & C0**4*(-(C0**8*f3(2)) - C0**4*f3(3) - f3(4) + &
+ & C0**11*f3(6) + C0**6*f3(7) + C0*f3(8)))))/ &
+ & (1 - C0**20) - f3(10))/(C1*MP12(3)*mu2g(3))
+ c3(10) = &
+ & (-((-(C0**6*f3(1)) - C0**2*f3(2) - C0**18*f3(3) - &
+ & C0**14*f3(4) + C0**10*(-f3(0) + f3(5)) + &
+ & C0**5*f3(6) + f3(7) + C0**15*f3(8))/ &
+ & ((1 - C0**20)*MP12(3)**2)) + &
+ & (C1**3*(-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - &
+ & C0**16*f3(4) + C0**12*(-f3(0) + f3(5)) + &
+ & C0**7*f3(6) + C0**2*f3(7) + C0**17*f3(8)))/ &
+ & ((1 - C0**20)*MP12(3)**2) + f3(12)/MP12(3)**2)/mu2g(3)
+ c3(11) = &
+ & (-((f3(2) + C0**3*(-f3(6) + &
+ & C0*(f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**4*f3(3) + f3(4) - C0**6*f3(7) - &
+ & C0*f3(8))))))/((1 - C0**20)*MP12(3)**2) &
+ & ) + ((-f3(6) + &
+ & C0*(f3(1) + &
+ & C0**4*(f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8)))))/(1 - C0**20) &
+ & + f3(11))/(C1**2*MP12(3)**2))/mu2g(3)
+ c3(12) = &
+ & (-f3(0) + f3(5) + C0**4* &
+ & (-(C0**12*f3(1)) - C0**8*f3(2) - C0**4*f3(3) - f3(4) + &
+ & C0**11*f3(6) + C0**6*f3(7) + C0*f3(8)))/ &
+ & ((1 - C0**20)*MP12(3)**4)
+ c3(13) = &
+ & (C0**12*f3(1) + C0**8*f3(2) + C0**4*f3(3) + f3(4) + &
+ & C0**16*(f3(0) - f3(5)) - C0**11*f3(6) - C0**6*f3(7) - &
+ & C0*f3(8))/((1 - C0**20)*MP12(3)**4)
+ c3(14) = &
+ & (-((C1**6*half*(C0**12*f3(1) + C0**8*f3(2) + &
+ & C0**4*f3(3) + f3(4) + C0**16*(f3(0) - f3(5)) - &
+ & C0**11*f3(6) - C0**6*f3(7) - C0*f3(8)))/ &
+ & (1 - C0**20)) + &
+ & (C1**5*half*(-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - &
+ & C0**16*f3(4) + C0**12*(-f3(0) + f3(5)) + &
+ & C0**7*f3(6) + C0**2*f3(7) + C0**17*f3(8)))/ &
+ & (1 - C0**20) + C1*Cm1* &
+ & (-((half*(-f3(0) + f3(5) + &
+ & C0**4*(-(C0**12*f3(1)) - C0**8*f3(2) - &
+ & C0**4*f3(3) - f3(4) + C0**11*f3(6) + &
+ & C0**6*f3(7) + C0*f3(8))))/(1 - C0**20)) + &
+ & half*f3(10)) + &
+ & Cm1**2*((half*(-f3(6) + &
+ & C0*(f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8))))))/ &
+ & (1 - C0**20) + half*f3(11)) + &
+ & C1**2*(-f3(0) + half*f3(9) + half*f3(12) + &
+ & half*f3(13) + half*f3(14) + &
+ & MP12(3)*((C0**11*f3(1) + C0**7*f3(2) + C0**3*f3(3) + &
+ & C0**19*f3(4) + C0**15*(f3(0) - f3(5)) - &
+ & C0**10*f3(6) - C0**5*f3(7) - f3(8))/ &
+ & ((1 - C0**20)*MP12(3)) + &
+ & (Cm1*(-f3(1) + &
+ & C0**4* &
+ & (-f3(0) + f3(5) + &
+ & C0**4* &
+ & (-(C0**8*f3(2)) - C0**4*f3(3) - f3(4) + &
+ & C0**11*f3(6) + C0**6*f3(7) + C0*f3(8))) &
+ & ))/((1 - C0**20)*MP12(3)) + &
+ & (-((-(C0**6*f3(1)) - C0**2*f3(2) - C0**18*f3(3) - &
+ & C0**14*f3(4) + C0**10*(-f3(0) + f3(5)) + &
+ & C0**5*f3(6) + f3(7) + C0**15*f3(8))/ &
+ & ((1 - C0**20)*MP12(3)**2)) - &
+ & (Cm1**2* &
+ & (f3(2) + &
+ & C0**3* &
+ & (-f3(6) + &
+ & C0* &
+ & (f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**4*f3(3) + f3(4) - C0**6*f3(7) - &
+ & C0*f3(8)))))))/ &
+ & ((1 - C0**20)*MP12(3)**2))*MP12(3) + &
+ & ((Cm1**3*half* &
+ & (-(C0**8*f3(1)) - C0**4*f3(2) - f3(3) - &
+ & C0**16*f3(4) + C0**12*(-f3(0) + f3(5)) + &
+ & C0**7*f3(6) + C0**2*f3(7) + C0**17*f3(8))) &
+ & /((1 - C0**20)*MP12(3)**3) + &
+ & (half*(-f3(6) + &
+ & C0* &
+ & (f3(1) + &
+ & C0**4* &
+ & (f3(0) - f3(5) + &
+ & C0**4* &
+ & (C0**8*f3(2) + C0**4*f3(3) + f3(4) - &
+ & C0**6*f3(7) - C0*f3(8))))))/ &
+ & ((1 - C0**20)*MP12(3)**3))*MP12(3)**2 + &
+ & (-((Cm1**4*half* &
+ & (C0**12*f3(1) + C0**8*f3(2) + &
+ & C0**4*f3(3) + f3(4) + &
+ & C0**16*(f3(0) - f3(5)) - C0**11*f3(6) - &
+ & C0**6*f3(7) - C0*f3(8)))/ &
+ & ((1 - C0**20)*MP12(3)**4)) - &
+ & (half*(-f3(0) + f3(5) + &
+ & C0**4* &
+ & (-(C0**12*f3(1)) - C0**8*f3(2) - &
+ & C0**4*f3(3) - f3(4) + C0**11*f3(6) + &
+ & C0**6*f3(7) + C0*f3(8))))/ &
+ & ((1 - C0**20)*MP12(3)**4))*MP12(3)**3)))/ &
+ & (C1**2*mu2g(3)**2)
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ end select
+ endif
+! LOWER RANK CS====================================================================!
+ if (diff.ge.0) then
+ c3(10)=czip
+ c3(11)=czip
+ c3(12)=czip
+ c3(13)=czip
+ c3(14)=czip
+ if (diff.ge.1) then
+ c3(3)=czip
+ c3(6)=czip
+ c3(8)=czip
+ c3(9)=czip
+ if (diff.ge.2) then
+ c3(2)=czip
+ c3(5)=czip
+ c3(7)=czip
+ if (diff.ge.3) then
+ c3(1)=czip
+ c3(4)=czip
+ endif
+ endif
+ endif
+ endif
+end subroutine getc3_rm
+
+subroutine HResL3(resin,nsol,nloops,nleg,cut3,q3,qt,Vi,msq,mu2vec)
+ use mfunctions
+ use precision
+ use mglobal, only: denst,resit,mu2t
+! PARAMETERS============================================================================!
+ ! external parameters
+ complex(ki), dimension(15), intent(inout) :: resin
+
+
+ integer, intent(in ) :: nsol, nloops, nleg, cut3
+ complex(ki), dimension(15,4), intent(in ) :: q3
+ complex(ki), dimension(15), intent(in ) :: mu2vec
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ ! internal parameters
+ integer :: i, j1, j2, j3, acc, n
+ integer :: i1, i2, i3, i4, i5
+ logical :: evalres
+ complex(ki), dimension(15) :: densn
+ complex(ki) :: densnt
+ logical :: notcut
+ integer, dimension(5) :: iarr
+ integer :: dicutn
+! INITIALIZATION========================================================================!
+ ! cuts
+ j3 = cut3/100
+ acc = j3*100
+ j2 = (cut3-acc)/10
+ j1 = cut3-acc-j2*10
+ dicutn = 1
+! LOOP==================================================================================!
+ select case(nloops)
+ case(5)
+ do i5=4,nleg-1
+ do i4=3,i5-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(5)=i5
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l5: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l5
+ endif
+ endif
+ enddo l5
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*res5(dicutn,mu2vec(n))
+ enddo
+ resit(3)=resit(3)+densnt*Res5(dicutn,mu2t(3))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+ enddo
+!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ case(4)
+ do i4=3,nleg-1
+ do i3=2,i4-1
+ do i2=1,i3-1
+ do i1=0,i2-1
+ iarr(4)=i4
+ iarr(3)=i3
+ iarr(2)=i2
+ iarr(1)=i1
+ ! init
+ densn(:) = cone
+ densnt = cone
+ evalres = .false.
+
+ l4: do i=0, nleg-1
+ notcut = .true.
+ do n=1,nloops
+ if(i.eq.iarr(n)) notcut = .false.
+ enddo
+ if(notcut) then
+ if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)) then
+ do n=1,nsol
+ densn(n) = densn(n)*denevalmu2(nleg,i,q3(n,:),Vi,msq,mu2vec(n))
+ enddo
+ densnt = densnt*denevalmu2(nleg,i,qt,Vi,msq,mu2t(3))
+ evalres = .true.
+ else
+ densn(:) = czip
+ densnt = czip
+ evalres = .false.
+ exit l4
+ endif
+ endif
+ enddo l4
+ if (evalres) then
+ do n=1,nsol
+ resin(n)=resin(n)+densn(n)*Res4(dicutn,q3(n,:),mu2vec(n))
+ enddo
+ resit(3)=resit(3)+densnt*Res4(dicutn,qt,mu2t(3))
+ endif
+ dicutn = dicutn+1
+ enddo
+ enddo
+ enddo
+ enddo
+ end select
+!========================================
+end subroutine HResL3
end module mgetc3
diff --git a/samurai-2.1.1/mgetc4.f90 b/samurai-2.1.1/mgetc4.f90
index 8c2216e..d21d068 100644
--- a/samurai-2.1.1/mgetc4.f90
+++ b/samurai-2.1.1/mgetc4.f90
@@ -1,320 +1,460 @@
module mgetc4
use precision, only: ki
use constants
use options
use mfunctions
use mrestore
implicit none
private
interface getc4
module procedure getc4_rm
module procedure getc4_cm
end interface getc4
public :: getc4
contains
subroutine getc4_cm(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
use mglobal, only: MP12,mu2g,mu2t,resit,denst,mu2test,dx
implicit none
integer, intent(in) :: nleg, rank, cut4
- complex(ki), dimension(0:4), intent(out) :: c4
- complex(ki), dimension(5,4), intent(in) :: q4
+ complex(ki), dimension(0:5), intent(out) :: c4
+ complex(ki), dimension(6,4), intent(in) :: q4
complex(ki), dimension(4), intent(in) :: qt
real(ki), dimension(4), intent(in) :: p0
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki) :: dens5t
integer :: i,m,i1,i2,i3,i4,i5,j1,j2,j3,j4
integer :: dicut5,diff, acc
- complex(ki), dimension(5) :: dens5, dens4, xneval, resi5, f4
- complex(ki), dimension(5) :: mu2vec
+ complex(ki), dimension(6) :: dens5, dens4, xneval, resi5, f4
+ complex(ki), dimension(6) :: mu2vec
logical evalres
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
+
+
mu2test(4)=mu2t(4)
- mu2vec = (/ czip, czip, mu2g(4), mu2g(4),-mu2g(4) /)
+ mu2vec = (/ czip, czip, mu2g(4), mu2g(4),-mu2g(4),-mu2g(4) /)
dens4(:)=cone
resi5(:)=czip
xneval(:)=czip
!--- for lnntest
resit(4)=czip
denst(4)=cone
!--- for simplified sampling
diff = nleg-rank
j4= cut4/1000
acc = j4*1000
j3=(cut4-acc)/100
acc = acc + j3*100
j2=(cut4-acc)/10
j1= cut4-acc-j2*10
nleg_ne_4: if (nleg.ne.4) then
nleg_eq_5: if (nleg.eq.5) then
- do m=1,5
+ do m=1,6
resi5(m)=Res5(1,mu2vec(m))
enddo
resit(4)=Res5(1,mu2t(4))
else
dicut5=1
loop_i5: do i5=4,nleg-1
loop_i4: do i4=3,i5-1
loop_i3: do i3=2,i4-1
loop_i2: do i2=1,i3-1
loop_i1: do i1=0,i2-1
dens5(:)=cone
dens5t=cone
evalres=.false.
loop110: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
& .and.(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2)&
& .or.(i.eq.j3).or.(i.eq.j4)) then
dens5(:)=czip
dens5t=czip
evalres=.false.
exit loop110
else
- do m=1,5
+ do m=1,6
dens5(m)=dens5(m)*denevalmu2(&
&nleg,i,q4(m,:),Vi,msq,mu2vec(m))
enddo
dens5t=dens5t*denevalmu2(&
&nleg,i,qt,Vi,msq,mu2t(4))
evalres=.true.
endif
endif
enddo loop110
if (evalres) then
- do m=1,5
+ do m=1,6
resi5(m)=resi5(m)+dens5(m)*&
& Res5(dicut5,mu2vec(m))
enddo
resit=resit+dens5t*Res5(dicut5,mu2t(4))
endif
dicut5=dicut5+1
enddo loop_i1
enddo loop_i2
enddo loop_i3
enddo loop_i4
enddo loop_i5
end if nleg_eq_5
! 111 continue
do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2) &
& .and.(i.ne.j3).and.(i.ne.j4)) then
- do m=1,5
+ do m=1,6
dens4(m)=dens4(m)*denevalmu2(nleg,i,q4(m,:),Vi,msq,mu2vec(m))
enddo
denst=denst*denevalmu2(nleg,i,qt,Vi,msq,mu2t(4))
endif
enddo
end if nleg_ne_4
! 116 continue
- do m=1,5
+ do m=1,6
xneval(m)=numeval(cut4,q4(m,:),mu2vec(m))
enddo
if (imeth.eq.'diag') then
f4(:)=(xneval(:)-resi5(:))/dens4(:)
elseif (imeth.eq.'tree') then
f4(:)=xneval(:)-resi5(:)/dens4(:)
endif
+
+
+
+
c4(0)= (f4(1)+f4(2))/two
c4(1)= (f4(1)-f4(2))/(two*dx(1)*MP12(4))
c4(3)= -(two*dx(3)*MP12(4)*c4(1)-f4(3)+f4(4))/(two*dx(3)*MP12(4)*mu2g(4))
c4(2)= ((-dx(3)+dx(5))*MP12(4)*c4(1)-(dx(3)+dx(5))*MP12(4)*mu2g(4)*c4(3) &
& +f4(3)-f4(5))/(two*mu2g(4))
c4(4)= -((c4(0)+mu2g(4)*c4(2)+dx(3)*MP12(4)*(c4(1)+mu2g(4)*c4(3)) &
& -f4(3))/mu2g(4)**2)
if (diff.ge.1) then
c4(4)=czip
if (diff.ge.2) then
c4(3)=czip
if (diff.ge.3) then
c4(2)=czip
endif
endif
endif
end subroutine getc4_cm
- subroutine getc4_rm(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
- use mglobal, only: MP12,mu2g,mu2t,resit,denst,mu2test,dx
- implicit none
- integer, intent(in) :: nleg, rank, cut4
- complex(ki), dimension(0:4), intent(out) :: c4
- complex(ki), dimension(5,4), intent(in) :: q4
- complex(ki), dimension(4), intent(in) :: qt
- real(ki), dimension(4), intent(in) :: p0
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki) :: dens5t
- integer :: i,m,i1,i2,i3,i4,i5,j1,j2,j3,j4
- integer :: dicut5,diff, acc
- complex(ki), dimension(5) :: dens5, dens4, xneval, resi5, f4
- complex(ki), dimension(5) :: mu2vec
- logical evalres
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
- mu2test(4)=mu2t(4)
- mu2vec = (/ czip, czip, mu2g(4), mu2g(4),-mu2g(4) /)
- dens4(:)=cone
- resi5(:)=czip
- xneval(:)=czip
-!--- for lnntest
- resit(4)=czip
- denst(4)=cone
-!--- for simplified sampling
- diff = nleg-rank
- j4= cut4/1000
- acc = j4*1000
- j3=(cut4-acc)/100
- acc = acc + j3*100
- j2=(cut4-acc)/10
- j1= cut4-acc-j2*10
- nleg_ne_4: if (nleg.ne.4) then
- nleg_eq_5: if (nleg.eq.5) then
- do m=1,5
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+subroutine getc4_rm(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
+ use mglobal, only: MP12,mu2g,mu2t,resit,denst,mu2test,dx
+ implicit none
+! PARAMETERS=======================================================================!
+ ! external
+ integer, intent(in ) :: nleg, rank, cut4
+ complex(ki), dimension(0:5), intent(out) :: c4
+ complex(ki), dimension(6,4), intent(in ) :: q4
+ complex(ki), dimension(4), intent(in ) :: qt
+ real(ki), dimension(4), intent(in ) :: p0
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ ! internal
+ complex(ki) :: dens5t
+ integer :: i,m,i1,i2,i3,i4,i5,j1,j2,j3,j4
+ integer :: dicut5,diff, acc
+ complex(ki), dimension(6) :: dens5, dens4, xneval, resi5, f4
+ complex(ki), dimension(6) :: mu2vec
+ logical evalres
+! INTERFACE========================================================================!
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+! INITIALIZATION===================================================================!
+ dens4(:) = cone
+ resi5(:) = czip
+ xneval(:) = czip
+ ! mu2
+ mu2test(4) = mu2t(4)
+ mu2vec = (/ czip, czip, mu2g(4), mu2g(4),-mu2g(4),-mu2g(4) /)
+ ! for lnntest
+ resit(4) = czip
+ denst(4) = cone
+ ! for simplified sampling
+ diff = nleg-rank
+ ! cuts
+ j4 = cut4/1000
+ acc = j4*1000
+ j3 = (cut4-acc)/100
+ acc = acc + j3*100
+ j2 = (cut4-acc)/10
+ j1 = cut4-acc-j2*10
+! CALCULATING THE RESIDUES=========================================================!
+ nleg_ne_4: if (nleg.ne.4) then
+ nleg_eq_5: if (nleg.eq.5) then
+ do m=1,6
resi5(m)=Res5(1,mu2vec(m))
enddo
resit(4)=Res5(1,mu2t(4))
- else
+ else
dicut5=1
loop_i5: do i5=4,nleg-1
loop_i4: do i4=3,i5-1
loop_i3: do i3=2,i4-1
loop_i2: do i2=1,i3-1
loop_i1: do i1=0,i2-1
dens5(:)=cone
dens5t=cone
evalres=.false.
-
loop110: do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)&
& .and.(i.ne.i4).and.(i.ne.i5)) then
if ((i.eq.j1).or.(i.eq.j2)&
& .or.(i.eq.j3).or.(i.eq.j4)) then
dens5(:)=czip
dens5t=czip
evalres=.false.
exit loop110
else
- do m=1,5
+ do m=1,6
dens5(m)=dens5(m)*denevalmu2(&
&nleg,i,q4(m,:),Vi,msq,mu2vec(m))
enddo
dens5t=dens5t*denevalmu2(&
&nleg,i,qt,Vi,msq,mu2t(4))
evalres=.true.
endif
endif
enddo loop110
-
if (evalres) then
- do m=1,5
+ do m=1,6
resi5(m)=resi5(m)+dens5(m)*&
& Res5(dicut5,mu2vec(m))
enddo
resit=resit+dens5t*Res5(dicut5,mu2t(4))
endif
-
dicut5=dicut5+1
enddo loop_i1
enddo loop_i2
enddo loop_i3
enddo loop_i4
enddo loop_i5
-
- end if nleg_eq_5
-
- ! 111 continue
-
- do i=0,nleg-1
+ end if nleg_eq_5
+ ! 111 continue
+ do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2) &
& .and.(i.ne.j3).and.(i.ne.j4)) then
- do m=1,5
+ do m=1,6
dens4(m)=dens4(m)*denevalmu2(nleg,i,q4(m,:),Vi,msq,mu2vec(m))
enddo
denst=denst*denevalmu2(nleg,i,qt,Vi,msq,mu2t(4))
endif
- enddo
- end if nleg_ne_4
-
- ! 116 continue
-
- do m=1,5
+ enddo
+ end if nleg_ne_4
+ ! 116 continue
+! CALCULATING THE POLYNOMIALS======================================================!
+ do m=1,6
xneval(m)=numeval(cut4,q4(m,:),mu2vec(m))
- enddo
-
- if (imeth.eq.'diag') then
- f4(:)=(xneval(:)-resi5(:))/dens4(:)
- elseif (imeth.eq.'tree') then
- f4(:)=xneval(:)-resi5(:)/dens4(:)
- endif
-
+ enddo
+ if (imeth.eq.'diag') then
+ f4(:) = (xneval(:)-resi5(:))/dens4(:)
+ elseif (imeth.eq.'tree') then
+ f4(:) = xneval(:)-resi5(:)/dens4(:)
+ endif
+! CALCULATING THE C4===============================================================!
+ select case(diff)
+ case(-1)
+ c4(0) = &
+ &half*(f4(1) + f4(2))
+ c4(1) = &
+ &(half*(f4(1) - one*f4(2)))/(dx(1)*MP12(4))
+ c4(2) = &
+ &(one*(f4(3) + f4(4) - one*f4(5) - one*f4(6)))/(four*mu2g(4))
+ c4(3) = &
+ & (one*(dx(5)*(f4(3) - one*f4(4)) + &
+ & dx(3)*(-(one*f4(5)) + f4(6))))/&
+ & (four*dx(3)*dx(5)*MP12(4)*mu2g(4))
+ c4(4) = &
+ & (one*(-(two*f4(1)) - two*f4(2) + f4(3) + f4(4) + f4(5) + &
+ & f4(6)))/(four*mu2g(4)**2)
+ c4(5) = &
+ & (one*(dx(1)*dx(5)*(f4(3) - one*f4(4)) + &
+ & dx(3)*(two*dx(5)*(-(one*f4(1)) + f4(2)) + &
+ & dx(1)*(f4(5) - one*f4(6)))))/&
+ & (four*dx(1)*dx(3)*dx(5)*MP12(4)*mu2g(4)**2)
+! RANK 0 ==========================================================================!
+ case default
c4(0)= (f4(1)+f4(2))/two
c4(1)= (f4(1)-f4(2))/(two*dx(1)*MP12(4))
c4(3)= -(two*dx(3)*MP12(4)*c4(1)-f4(3)+f4(4))/(two*dx(3)*MP12(4)*mu2g(4))
c4(2)= ((-dx(3)+dx(5))*MP12(4)*c4(1)-(dx(3)+dx(5))*MP12(4)*mu2g(4)*c4(3) &
& +f4(3)-f4(5))/(two*mu2g(4))
c4(4)= -((c4(0)+mu2g(4)*c4(2)+dx(3)*MP12(4)*(c4(1)+mu2g(4)*c4(3)) &
& -f4(3))/mu2g(4)**2)
-
- if (diff.ge.1) then
- c4(4)=czip
- if (diff.ge.2) then
- c4(3)=czip
- if (diff.ge.3) then
- c4(2)=czip
- endif
- endif
- endif
- end subroutine getc4_rm
+ end select
+! LOWER RANK CS====================================================================!
+ if (diff.ge.0) then
+ c4(5)=czip
+ if (diff.ge.1) then
+ c4(4)=czip
+ if (diff.ge.2) then
+ c4(3)=czip
+ if (diff.ge.3) then
+ c4(2)=czip
+ endif
+ endif
+ endif
+ endif
+end subroutine getc4_rm
end module mgetc4
diff --git a/samurai-2.1.1/mgetc5.f90 b/samurai-2.1.1/mgetc5.f90
index f2e9cb1..81efa16 100644
--- a/samurai-2.1.1/mgetc5.f90
+++ b/samurai-2.1.1/mgetc5.f90
@@ -1,130 +1,129 @@
module mgetc5
use precision, only: ki
use constants
use options
use mfunctions
implicit none
private
interface getc5
module procedure getc5_rm
module procedure getc5_cm
end interface getc5
public :: getc5
contains
subroutine getc5_cm(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
implicit none
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer, intent(in) :: nleg
complex(ki), intent(out) :: c5
integer, intent(in) :: cut5
real(ki), dimension(0:nleg-1, 4), intent(in) :: Vi
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(4) :: q5
complex(ki), intent(in) :: mu2
integer i,j1,j2,j3,j4,j5,acc
complex(ki) :: denoms
if (meth_is_diag) then
j5=cut5/10000
acc = j5*10000
j4=(cut5-acc)/1000
acc = acc + j4*1000
j3=(cut5-acc)/100
acc = acc + j3*100
j2=(cut5-acc)/10
j1= cut5-acc-j2*10
denoms=cone
do i=0,nleg-1
if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)&
& .and.(i.ne.j4).and.(i.ne.j5)) then
denoms=denoms*denevalmu2(nleg,i,q5,Vi,msq,mu2)
endif
enddo
c5=numeval(cut5,q5,mu2)/denoms/mu2
! c5=numeval(cut5,q5,mu2)/denoms/mu2**2
elseif (meth_is_tree) then
c5=numeval(cut5,q5,mu2)/mu2
! c5=numeval(cut5,q5,mu2)/mu2**2
else
print*, "imeth must be 'tree' or 'diag'"
stop
endif
end subroutine getc5_cm
- subroutine getc5_rm(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
+subroutine getc5_rm(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
implicit none
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
-
- integer, intent(in) :: nleg
- complex(ki), intent(out) :: c5
- integer, intent(in) :: cut5
- real(ki), dimension(0:nleg-1, 4), intent(in) :: Vi
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki), dimension(4) :: q5
- complex(ki), intent(in) :: mu2
-
- integer i,j1,j2,j3,j4,j5,acc
- complex(ki) :: denoms
-
- if (meth_is_diag) then
- j5=cut5/10000
- acc = j5*10000
- j4=(cut5-acc)/1000
- acc = acc + j4*1000
- j3=(cut5-acc)/100
- acc = acc + j3*100
- j2=(cut5-acc)/10
- j1= cut5-acc-j2*10
-
- denoms=cone
- do i=0,nleg-1
- if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)&
- & .and.(i.ne.j4).and.(i.ne.j5)) then
- denoms=denoms*denevalmu2(nleg,i,q5,Vi,msq,mu2)
- endif
- enddo
-
- c5=numeval(cut5,q5,mu2)/denoms/mu2
- ! c5=numeval(cut5,q5,mu2)/denoms/mu2**2
- elseif (meth_is_tree) then
- c5=numeval(cut5,q5,mu2)/mu2
- ! c5=numeval(cut5,q5,mu2)/mu2**2
- else
- print*, "imeth must be 'tree' or 'diag'"
- stop
- endif
- end subroutine getc5_rm
+! PARAMETERS========================================================!
+ ! external
+ integer, intent(in ) :: nleg
+ complex(ki), intent( out) :: c5
+ integer, intent(in ) :: cut5
+ real(ki), dimension(0:nleg-1, 4), intent(in ) :: Vi
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ complex(ki), dimension(4), intent(inout) :: q5
+ complex(ki), intent(in ) :: mu2
+ ! internal
+ integer :: i,j1,j2,j3,j4,j5,acc
+ complex(ki) :: denoms
+! INITIALIZATION====================================================!
+ ! cuts
+ if(meth_is_diag) then
+ j5 = cut5/10000
+ acc = j5*10000
+ j4 = (cut5-acc)/1000
+ acc = acc + j4*1000
+ j3 = (cut5-acc)/100
+ acc = acc + j3*100
+ j2 = (cut5-acc)/10
+ j1 = cut5-acc-j2*10
+! CALCULATING C5====================================================!
+ denoms=cone
+ do i=0,nleg-1
+ if ((i.ne.j1).and.(i.ne.j2).and.(i.ne.j3)&
+ & .and.(i.ne.j4).and.(i.ne.j5)) then
+ denoms = denoms*denevalmu2(nleg,i,q5,Vi,msq,mu2)
+ endif
+ enddo
+ c5 = numeval(cut5,q5,mu2)/denoms/mu2
+ elseif (meth_is_tree) then
+ c5=numeval(cut5,q5,mu2)/mu2
+ else
+ print*, "imeth must be 'tree' or 'diag'"
+ stop
+ endif
+end subroutine getc5_rm
end module mgetc5
diff --git a/samurai-2.1.1/mgetqs.f90 b/samurai-2.1.1/mgetqs.f90
index dfa9c11..4235e90 100644
--- a/samurai-2.1.1/mgetqs.f90
+++ b/samurai-2.1.1/mgetqs.f90
@@ -1,1200 +1,1648 @@
module mgetqs
- use precision
- use constants
- use mfunctions
- implicit none
+ use precision
+ use constants
+ use mfunctions
+ implicit none
- private
+ private
- interface getq5
- module procedure getq5_rm
- module procedure getq5_cm
- end interface getq5
+ interface getq5
+ module procedure getq5_rm
+ module procedure getq5_cm
+ end interface getq5
- interface getq4
- module procedure getq4_rm
- module procedure getq4_cm
- end interface getq4
+ interface getq4
+ module procedure getq4_rm
+ module procedure getq4_cm
+ end interface getq4
- interface getq3
- module procedure getq3_rm
- module procedure getq3_cm
- end interface getq3
+ interface getq3
+ module procedure getq3_rm
+ module procedure getq3_cm
+ end interface getq3
- interface getq2
- module procedure getq2_rm
- module procedure getq2_cm
- end interface getq2
+ interface getq2
+ module procedure getq2_rm
+ module procedure getq2_cm
+ end interface getq2
- interface getq1
- module procedure getq1_rm
- module procedure getq1_cm
- end interface getq1
+ interface getq1
+ module procedure getq1_rm
+ module procedure getq1_cm
+ end interface getq1
- public :: getq1, getq2, getq3, getq4, getq5
+ public :: getq1, getq2, getq3, getq4, getq5
contains
- subroutine getq5_cm(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
- implicit none
- integer, intent(in) :: nleg, cut5
- real(ki), dimension(4), intent(in) :: e1, e2, p0
- complex(ki), dimension(4), intent(in) :: e3, e4
- real(ki), intent(in) :: r1, r2
- complex(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- complex(ki), dimension(4), intent(out) :: q5
- complex(ki), intent(out) :: mu2
+subroutine getq5_rm(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
+ implicit none
+!PARAMETERS========================================================================!
+ ! external
+ integer, intent(in ) :: nleg, cut5
+ real(ki), dimension(4), intent(in ) :: e1, e2, p0
+ complex(ki), dimension(4), intent(in ) :: e3, e4
+ real(ki), intent(in ) :: r1, r2
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ real(ki), dimension(0:nleg-1,4), intent(in ) :: Vi
+ complex(ki), dimension(4), intent(out) :: q5
+ complex(ki), intent(out) :: mu2
+ ! internal
+ integer :: j1, j2, j3, j4, j5
+ real(ki) :: x1, x2, var2, var3
+ real(ki) :: MP12, MP1v2, MP1v3, MP2v2, MP2v3, MPv22, MPv33
+ real(ki), dimension(4) :: v2, v3
+ complex(ki) :: MP3v2, MP3v3, MP4v2, MP4v3, x3, x4, tmu2, den
+! INITIALIZATION===================================================================!
+ ! cuts
+ j5 = cut5/10000
+ j4 = (cut5-j5*10000)/1000
+ j3 = (cut5-j5*10000-j4*1000)/100
+ j2 = (cut5-j5*10000-j4*1000-j3*100)/10
+ j1 = cut5-j5*10000-j4*1000-j3*100-j2*10
+ ! internal momenta
+ v2(:) = Vi(j3,:) - p0(:)
+ v3(:) = Vi(j4,:) - p0(:)
+ ! dotproducts
+ MP12 = sdot(e1,e2)
+ MP1v2 = sdot(v2,e1)
+ MP1v3 = sdot(v3,e1)
+ MP2v2 = sdot(v2,e2)
+ MP2v3 = sdot(v3,e2)
+ MP3v2 = sdot(v2,e3)
+ MP3v3 = sdot(v3,e3)
+ MP4v2 = sdot(v2,e4)
+ MP4v3 = sdot(v3,e4)
+ MPv22 = sdot(v2,v2)
+ MPv33 = sdot(v3,v3)
+! CALCULATING XS===================================================================!
+ den = -(MP3v3*MP4v2*two) + MP3v2*MP4v3*two
+ x1 = (0.5_ki*( -(MP12*(1.0_ki+r1)*r2*two)-(1.0_ki+r2)*msq(j1) &
+ & +r2*msq(j2) + msq(j5)))/(MP12*(-1.0_ki + r1*r2))
+ x2 = -((0.5_ki*(-(MP12*r1*(1.0_ki+r2)*two)-(1.0_ki+r1)*msq(j1) &
+ & +msq(j2) + r1*msq(j5)))/(MP12*(-1.0_ki + r1*r2)))
+ var2 = MPv22 + MP1v2*two*x1 + MP2v2*two*x2+msq(j1)-msq(j3)
+ var3 = MPv33 + MP1v3*two*x1 + MP2v3*two*x2+msq(j1)-msq(j4)
+ x3 = (-MP4v3*var2+MP4v2*var3)/den
+ x4 = ( MP3v3*var2-MP3v2*var3)/den
+ ! test values
+ tmu2 = two*MP12*(x1*x2-x3*x4)-msq(j1)
+ mu2 = real(tmu2, ki)
+! SETTING OUTPUT===================================================================!
+ q5(:) = -p0(:)+x1*e1(:)+x2*e2(:)+x3*e3(:)+x4*e4(:)
+end subroutine getq5_rm
+
+
+subroutine getq4_rm(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
+ use mglobal, only: MP12, mu2g, mu2t, dx
+ implicit none
+! PARAMETERS=======================================================================!
+ ! external
+ integer, intent(in ) :: nleg, cut4
+ real(ki), dimension(4), intent(in ) :: k1, k2, k3, L3, e1, e2, p0
+ complex(ki), dimension(4), intent(in ) :: e3, e4
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ real(ki), intent(in ) :: r1,r2
+ complex(ki), dimension(6,4), intent(out) :: q4
+ complex(ki), dimension(4), intent(out) :: qt
+ ! internal
+ complex(ki), dimension(6) :: x3,x4
+ complex(ki) :: x3t, x4t
+ complex(ki) :: ME33, ME34, ML33, ML34
+ complex(ki) :: B0, B1, B2, rtdel, A3, A4
+ real(ki) :: beta, x1, x2, A1, A2
+ real(ki) :: ME31, ME32, MK11, MK22, MK33
+ integer :: j1, j2, j3, j4, j
+! INITIALIZATION===================================================================!
+ ! cuts
+ j4 = cut4/1000
+ j3 = (cut4-j4*1000)/100
+ j2 = (cut4-j4*1000-j3*100)/10
+ j1 = cut4-j4*1000-j3*100-j2*10
+ ! dotproducts
+ MP12(4) = sdot(e1,e2)
+ ML33 = sdot(L3,e3)
+ ML34 = sdot(L3,e4)
+ ME31 = sdot(k3,e1)
+ ME32 = sdot(k3,e2)
+ ME33 = sdot(k3,e3)
+ ME34 = sdot(k3,e4)
+ MK11 = sdot(k1,k1)
+ MK22 = sdot(k2,k2)
+ MK33 = sdot(k3,k3)
+! SELECTING MU2====================================================================!
+ mu2g(4) = max(msq(j1),msq(j2),msq(j3),msq(j4),&
+ & abs(MK11),abs(MK22),abs(MK33),&
+ & abs(two*sdot(k1,k2)),abs(two*sdot(k2,k3)),abs(two*sdot(k1,k3)),&
+ & abs(two*MP12(4)))
+ if (abs(mu2g(4)).lt.1.0e-10_ki) mu2g(4)=one
+! CALCULATING XS===================================================================!
+ ! all x1 and x2 are the same
+ beta = one/(one-r1*r2)
+ A1 = (msq(j2)-msq(j1)-MK11)/two/MP12(4)
+ A2 = (msq(j1)-msq(j4)+MK22)/two/MP12(4)
+ x1 = beta*(A2-r2*A1)
+ x2 = beta*(A1-r1*A2)
+ A3 = (msq(j3)-msq(j1)-MK33-two*x1*ME31-two*x2*ME32)/two/ME33
+ A4 = -ME34/ME33
+ B1 = -two*MP12(4)*A3
+ B2 = -two*MP12(4)*A4
+ ! x(1) and x(2), mu2=0
+ B0 = (two*x1*x2*MP12(4)-msq(j1))*cone
+ rtdel = sqrt(B1**2-four*B0*B2)
+ x4(1) = (-B1+rtdel)/two/B2
+ x4(2) = (-B1-rtdel)/two/B2
+ x3(1) = x4(1)*A4+A3
+ x3(2) = x4(2)*A4+A3
+ ! x(3) and x(4), mu2=mu2
+ B0 = (two*x1*x2*MP12(4)-msq(j1)-mu2g(4))*cone
+ rtdel = sqrt(B1**2-four*B0*B2)
+ x4(3) = (-B1+rtdel)/two/B2
+ x4(4) = (-B1-rtdel)/two/B2
+ x3(3) = x4(3)*A4+A3
+ x3(4) = x4(4)*A4+A3
+ ! x(5) and x(6), mu2=-mu2
+ B0 = (two*x1*x2*MP12(4)-msq(j1)+mu2g(4))*cone
+ rtdel = sqrt(B1**2-four*B0*B2)
+ x4(5) = (-B1+rtdel)/two/B2
+ x4(6) = (-B1-rtdel)/two/B2
+ x3(5) = x4(5)*A4+A3
+ x3(6) = x4(6)*A4+A3
+ ! xt
+ mu2t(4) = half
+ B0 = (two*x1*x2*MP12(4)-msq(j1)-mu2t(4))*cone
+ rtdel = sqrt(B1**2-four*B0*B2)
+ x4t = (-B1-rtdel)/two/B2
+ x3t = x4t*A4+A3
+! SETTING OUTPUT===================================================================!
+ do j=1,6
+ q4(j,:) = -p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ qt(:) = -p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
+ ! dx's (mglobal)
+ dx(1) = ML33*x3(1)-ML34*x4(1)
+ dx(2) = ML33*x3(2)-ML34*x4(2)
+ dx(3) = ML33*x3(3)-ML34*x4(3)
+ dx(4) = ML33*x3(4)-ML34*x4(4)
+ dx(5) = ML33*x3(5)-ML34*x4(5)
+end subroutine getq4_rm
+
+
+
+subroutine getq3_rm(nleg,irank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
+ use mglobal, only: C0,C1,Cm1,mu2g,MP12,KK,Kmu,mu2t
+ use options, only: C0_thrs
+ implicit none
+! PARAMETERS=======================================================================!
+ ! external
+ integer, intent(in ) :: nleg, cut3, irank
+ real(ki), dimension(4), intent(in ) :: p0, k1, k2, e1, e2
+ complex(ki), dimension(4), intent(in ) :: e3, e4
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ complex(ki), dimension(15,4), intent(out) :: q3
+ complex(ki), dimension(4), intent(out) :: qt
+ ! internal
+ integer :: j1,j2,j3,j,ndiff
+ real(ki) :: r1,r2,beta,teta,x1,x2,A1,A2,C1t
+ real(ki) :: MK11,MK12,MK22
+ complex(ki) :: x3t, x4t
+ complex(ki), dimension(15) :: x3, x4
+! INITIALIZATION===================================================================!
+ ndiff = nleg-irank
+ KK(3) = one
+ Kmu(3) = one
+ ! cuts
+ j3 = cut3/100
+ j2 = (cut3-j3*100)/10
+ j1 = cut3-j3*100-j2*10
+ ! dotproducts
+ MP12(3) = sdot(e1,e2)
+ MK11 = sdot(k1,k1)
+ MK12 = sdot(k1,k2)
+ MK22 = sdot(k2,k2)
+ ! mu2
+ mu2g(3) = max(msq(j1),msq(j2),msq(j3),abs(MK11),abs(MK22),abs(two*MK12))
+ if (abs(mu2g(3)).lt.1d-10) mu2g(3)=one
+
+! CALCULATING XS===================================================================!
+ ! x1 and x2
+ beta = 1d0/(1d0-r1*r2)
+ A1 = (msq(j2)-msq(j1)-MK11)/two/MP12(3)
+ A2 = (msq(j1)-msq(j3)+MK22)/two/MP12(3)
+ x1 = beta*(A2-r2*A1)
+ x2 = beta*(A1-r1*A2)
+ ! C0 and C1
+ C0 = x1*x2-msq(j1)/two/MP12(3)
+ C1 = x1*x2-(msq(j1)+mu2g(3))/two/MP12(3)
+! C0=1 (safe around C0=1)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ if (abs(C0-1.0_ki) .lt. C0_thrs) then
+ select case(ndiff)
+ case(-1)
+ teta = twopi/nine
+ do j=1,9
+ x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
+ x4(j)=C0*cone/x3(j)
+ enddo
+ teta = twopi/five
+ do j=10,14
+ x4(j)=cos(teta*real(j-10,ki))+im*sin(teta*real(j-10,ki))
+ x3(j)=C1*cone/x4(j)
+ enddo
+ Cm1 = x1*x2-(msq(j1)-mu2g(3))/two/MP12(3) !-mu2 instead of +mu2
+ x3(15) = cone
+ x4(15) = Cm1*cone
+ do j=1,15
+ q3(j,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ case default
+ teta=twopi/seven
+ do j=1,7
+ x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
+ x4(j)=C0*cone/x3(j)
+ enddo
+ teta=twopi/three
+ do j=8,10
+ x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
+ x3(j)=C1*cone/x4(j)
+ enddo
+ do j=1,10
+ q3(j,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ end select
+! C0 unequal 1 (safe around C0=0)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ else
+ ! Branching according to rank
+ select case(ndiff)
+ case(3)
+ ! rank1: 1 coefficient, c3(0)--------------------------------------!
+ x3(1) = cone
+ x4(1) = C0
+ q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
+ x3(2:15) = czip
+ case(1) !------------------------------------------------------------------!
+ ! rank2 c-system: 6 coefficients
+ teta = twopi/three
+ do j=1,3
+ x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
+ x4(j)=C0*cone/x3(j)
+ enddo
+ teta = twopi/two
+ do j=4,5
+ x3(j)=cos(teta*real(j-4,ki))+im*sin(teta*real(j-4,ki))
+ x4(j)=cone/x3(j)
+ enddo
+ teta = twopi
+ do j=6,6
+ x3(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
+ x4(j)=cone/x3(j)
+ enddo
+ x3(7:15) = czip
+ x4(7:15) = czip
+ ! here are the qs for rank 2
+ q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
+ q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
+ q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
+ q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0*x3(4)*e3(:)+x4(4)*e4(:)
+ q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0*x3(5)*e3(:)+x4(5)*e4(:)
+ q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C1*x3(6)*e3(:)+x4(6)*e4(:)
+ case(2) !------------------------------------------------------------------!
+ ! rank1 c-system: 3 coefficients
+ x3(1) = cone
+ x4(1) = C0*cone
+ x3(2) = -cone
+ x4(2) = -C0*cone
+ x3(3) = C0*cone
+ x4(3) = cone
+ x3(4:15) = czip
+ x4(4:15) = czip
+ do j=1,3
+ q3(j,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ case(0) !------------------------------------------------------------------!
+ ! 10 coefficients
+ teta=twopi/four
+ do j=1,4
+ x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
+ x4(j)=C0*cone/x3(j)
+ enddo
+ teta=twopi/three
+ do j=5,7
+ x4(j)=cos(teta*real(j-5,ki))+im*sin(teta*real(j-5,ki))
+ x3(j)=C0*cone/x4(j)
+ enddo
+ teta=twopi/three
+ do j=8,10
+ x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
+ x3(j)=C1*cone/x4(j)
+ enddo
+ do j=1,10
+ q3(j,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ case(-1) !-----------------------------------------------------------------!
+ ! complete c-system: 15 coefficients
+ teta=twopi/five
+ do j=1,5
+ x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
+ x4(j)=C0*cone/x3(j)
+ enddo
+ teta=twopi/four
+ do j=6,9
+ x4(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
+ x3(j)=C0*cone/x4(j)
+ enddo
+ teta=twopi/five
+ do j=10,14
+ x4(j)=cos(teta*real(j-10,ki))+im*sin(teta*real(j-10,ki))
+ x3(j)=C1*cone/x4(j)
+ enddo
+ Cm1=x1*x2-(msq(j1)-mu2g(3))/two/MP12(3) !-mu2 instead of +mu2
+ x4(15) = one
+ x3(15) = Cm1/x4(15)
+ do j=1,15
+ q3(j,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+ case default !-------------------------------------------------------------!
+ print *, 'error in mgetqs.f90, getq3_rm'
+ end select !---------------------------------------------------------------!
+ end if
+ ! test values
+ mu2t(3)=half
+ C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
+ x3t=32.4_ki
+ x4t=C1t*cone/x3t
+ qt(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
+end subroutine getq3_rm
+
+
+
+subroutine getq2_rm(nleg,irank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
+ use mglobal, only: mu2g,MP12,mu2t, y1,y2,y3,x1s1,x1s2, Fz,Fp,Fm,F1z,KK,KB,Kmu, FL2
+ implicit none
+! PARAMETERS===================================================================================!
+ !external parameters
+ integer, intent( in) :: nleg, cut2, irank
+ real(ki), dimension(4), intent( in) :: p0, k1, e1, e2
+ complex(ki), dimension(4), intent( in) :: e3, e4
+ real(ki), dimension(0:nleg-1), intent( in) :: msq
+ complex(ki), dimension(20,4), intent(out) :: q2
+ complex(ki), dimension(4), intent(out) :: qt
+ !internal parameters
+ real(ki) :: K1SQ,x1t,x2t,Ft
+ complex(ki) :: x3t,x4t
+ real(ki), dimension(20) :: x1,x2
+ complex(ki), dimension(20) :: x3,x4
+ integer :: j1,j2,j, ndiff
+ real(ki) :: A2,B2,D2,Ar,Br,Dr
+ complex(ki) :: C2,C2mu,Cr
+ integer :: Fstep, nold
+ logical :: mu2zero,mu2nonzero,samplex3,samplex4
+ real(ki) :: X2z,X2p,X2m,teta
+! INITIALIZATION===============================================================================!
+ j2 = cut2/10
+ j1 = cut2-j2*10
+ ndiff = nleg - irank
+ K1SQ = sdot(k1,k1)
+ MP12(2) = sdot(e1,e2)
+ ! Selecting mu2 dynamically
+ mu2g(2) = max(msq(j1),msq(j2),K1SQ)
+ if (abs(mu2g(2)) .lt. 1.0e-10_ki) mu2g(2)=one
+ ! Defining some boolians to increase readibility:
+ mu2zero = .false.
+ mu2nonzero = .true.
+ samplex3 = .true.
+ samplex4 = .false.
+ ! Initialize to zero
+ x1s1 = zip
+ x1s2 = zip
+ ! For rank 1 and 2
+ KK(2) = one
+ KB = one
+ Kmu(2) = one
+ X2z = (msq(j2)-msq(j1)-K1SQ)/two/MP12(2)
+ Fz = -msq(j1)/two/MP12(2)
+ X2p = X2z-one*K1SQ/two/MP12(2)
+ Fp = one*X2p-msq(j1)/two/MP12(2)
+ X2m = X2z+one*K1SQ/two/MP12(2)
+ Fm = -one*X2m-msq(j1)/two/MP12(2)
+ F1z = -(msq(j1)+mu2g(2))/two/MP12(2)
+ select case(ndiff)
+! RANK 0=======================================================================================!
+ case(2)
+ x1(1)=zip
+ x2(1)=X2z
+ ! Changed this into x3<->x4 to compare with old version case(2) equivalent
+ x4(1)=cone
+ x3(1)=Fz
+ q2(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
+! RANK 1=======================================================================================!
+ case(1)
+ teta=twopi/two
+ do j=1,2
+ x1(j)=zip
+ x2(j)=X2z
+ x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
+ x3(j)=Fz/x4(j)
+ enddo
+ do j=3,4
+ x1(j)=one
+ x2(j)=X2p
+ x3(j)=cos(teta*real(j-3,ki))-im*sin(teta*real(j-3,ki))
+ x4(j)=Fp/x3(j)
+ enddo
+ do j=5,10
+ x3(j)=czip
+ x4(j)=czip
+ enddo
+ do j=1,4
+ q2(j,:)=-p0(:)+x1(j)*e1(:)+x2(j)*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+! RANK 2=======================================================================================!
+ case(0)
+ teta=twopi/three
+ do j=1,3
+ x1(j)=zip
+ x2(j)=X2z
+ x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
+ x3(j)=Fz/x4(j)
+ enddo
+ teta=twopi/two
+ do j=4,5
+ x1(j)=zip
+ x2(j)=X2z
+ x3(j)=cos(teta*real(j-4,ki))-im*sin(teta*real(j-4,ki))
+ x4(j)=Fz/x3(j)
+ enddo
+ teta=twopi/two
+ do j=6,7
+ x1(j)=one
+ x2(j)=X2p
+ x4(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
+ x3(j)=Fp/x4(j)
+ enddo
+ x1(8)=one
+ x2(8)=X2p
+ x3(8)=cone
+ x4(8)=Fp*cone
+
+ x1(9)=-one
+ x2(9)=X2m
+ x3(9)=Fm*cone
+ x4(9)=cone
+
+ x1(10)=zip
+ x2(10)=X2z
+ x3(10)=F1z*cone
+ x4(10)=cone
+ do j=1,10
+ q2(j,:)=-p0(:)+x1(j)*e1(:)+x2(j)*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+! RANK 3=======================================================================================!
+ case(-1)
+ ! Level 2 has in general a second degree polynomial in x1:
+ ! x3*x4 = F(x1) = A2*x1^2 + B2*x1 + C2 with:
+ A2 = -K1SQ/two/MP12(2)
+ B2 = (msq(j2)-msq(j1)-K1SQ)/two/MP12(2)
+ C2 = -msq(j1)/two/MP12(2) !-(msq(j1)+mu2)/(2*MP12) in general
+ C2mu = -(msq(j1)+mu2g(2))/two/MP12(2)
+ ! Round the values close to zero:
+ Ar = A2; Br = B2; Cr = C2
+ if(abs(A2).lt. 1.0e-10_ki) Ar=zip
+ if(abs(B2).lt. 1.0e-10_ki) Br=zip
+ if(abs(C2).lt. 1.0e-10_ki) Cr=zip
+ ! Calculate the (always rounded) discriminant:
+ D2 = B2**2 - 4*A2*C2
+ Dr = D2
+ if(abs(Dr).lt. 1.0e-10_ki) Dr=zip
+ ! Doing the DFT for level 2, defined as:
+ ! SampleL2(mu2 nonzero, x1, number of samplings, sampling x3 (vs. x4), standard io)
+ ! nold is an integer used to count how many times SampleL2 was called before
+ nold = 0
+ ! Three sampling values for x1: y1, y2, y3.
+ ! Notice that the following values are forbidden:
+ ! y1 = y2, y1^2=y2^2, y=0, y^2=0, F(0,y)=0, Same for y2->y3
+ y1 = one/sqrt(seven)
+ y2 = one/sqrt(five)
+ y3 = one/sqrt(three)
+ ! Sampling is in six steps, labeled by Fstep:
+ ! x1=0; x1=x1s1 or y1; x1=x1s2 or y2; x1=y3; mu2=mu2,x1=0; mu2=mu2,x1=1
+ !---------------------------------------------------------------------------------------!
+ Fstep = 1 !First 7 samplings: sampling at x1=0: F(0,0) !
+ call FillFL2(zip, A2,B2,C2,Fstep) !
+ if((Cr==0) .or. (abs(FL2(1)) .lt. 0.1_ki)) then !
+ ! F(0,0) zero or ~0 (x1=0 is a solution) !
+ call SampleL2(mu2zero,zip, 4,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2zero,zip, 3,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ else ! F(0,0) nonzero (x1=0 is not a solution) !
+ call SampleL2(mu2zero,zip, 7,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ endif !
+ !---------------------------------------------------------------------------------------!
+ Fstep = 2 !Next 5 samplings: sampling if possible at the 1st solution x1s1: F(0,x1s1)=0 !
+ if (Ar==0 .and. Br==0 .and. Cr==0) then !
+ !print *, 'mgetqs.f90: Ar=Br=Cr=0, x1s1=y1' !
+ x1s1 = y1 !
+ call FillFL2(y1, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,y1,3,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2zero,y1,2,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ elseif( (Ar==0 .and. Br==0).or.(Ar==0 .and. Cr==0) & !
+ & .or.(Br==0 .and. Cr==0) .or. (Dr .lt. 0)) then !
+ !F(0,x1)=0 has no non-zero solution: Use y1 !
+ call FillFL2(y1, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,y1, 5,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ else !
+ !F(0,x1)=0 has at least one non-zero solution: x1s1 !
+ if(Ar==0) then !
+ x1s1 = -C2/B2 !
+ elseif(Cr==0) then !
+ x1s1 = -B2/A2 !
+ else !
+ !print *, 'Fstep2 else,else (A,C nonzero)' !
+ x1s1 = (-B2-sign(1.0_ki,B2)*sqrt(D2))/two/A2 !
+ endif !
+ !print *, 'mgetqs.f90: using 3+2 x1s1=',x1s1 !
+ call FillFL2(x1s1, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,x1s1,3,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2zero,x1s1,2,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ endif !
+ !---------------------------------------------------------------------------------------!
+ Fstep = 3 !Next 3 samplings: sampling if possible at the 2nd solution x1s2: F(0,x1s2)=0 !
+ if (Ar==0 .and. Br==0 .and. Cr==0) then !
+ x1s2=y2 !
+ call FillFL2(x1s2, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,x1s2,2,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2zero,x1s2,1,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ elseif(Ar==0 .or. Cr==0 .or. (Dr .le. 0) .or. (abs(Cr)/abs(Ar) .lt. 1e-20)) then!
+ ! F(0,x1)=0 has no second solution: Use y2 !
+ !print *, 'mgetqs.f90: Using y2' !
+ call FillFL2(y2, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,y2, 3,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ else !
+ ! F(0,x1)=0 has a second solution: x1s2 !
+ x1s2 = (-B2+sign(1.0_ki,B2)*sqrt(D2))/two/A2 !
+ call FillFL2(x1s2, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,x1s2,2,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2zero,x1s2,1,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ endif !
+ !---------------------------------------------------------------------------------------!
+ Fstep = 4 !Next sampling: sampling at a value that is not a solution: F(0,y3)=nonzero !
+ call FillFL2(y3, A2,B2,C2,Fstep) !
+ call SampleL2(mu2zero,y3, 1,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ !---------------------------------------------------------------------------------------!
+ Fstep = 5 !Next 3 samplings: sampling at mu2 nonzero, x1=0! !
+ call FillFL2(zip, A2,B2,C2mu,Fstep) !
+ if(abs(C2mu) .lt. 1.0e-10_ki) then !
+ !F(mu2,0)=0 !
+ call SampleL2(mu2nonzero,zip,2,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ call SampleL2(mu2nonzero,zip,1,samplex4, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ else !
+ !F(mu2,0)=nonzero !
+ call SampleL2(mu2nonzero,zip,3,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ endif !
+ !---------------------------------------------------------------------------------------!
+ Fstep = 6 !Last sampling: sampling at mu2 and x1 nonzero !
+ call FillFL2(one, A2,B2,C2mu,Fstep) !
+ call SampleL2(mu2nonzero,one,1,samplex3, nold,x1,x2,x3,x4,Fstep,A2,B2) !
+ !---------------------------------------------------------------------------------------!
+! SETTING OUTPUT================================================================================!
+ !Defining q as Sum_i x_i*e_i
+ do j=1,20
+ q2(j,:) = -p0(:)+x1(j)*e1(:)+x2(j)*e2(:)+x3(j)*e3(:)+x4(j)*e4(:)
+ enddo
+! DEFAULT CASE==================================================================================!
+ case default
+ print *, 'error in mgetqs.f90, getq2_rm'
+ end select
+! TEST VARIABLE=================================================================================!
+ mu2t(2) = half
+ x1t = 2.3_ki
+ B2 = (msq(j2)-msq(j1)-K1SQ)/two/MP12(2)
+ x2t = B2-x1t*K1SQ/two/MP12(2)
+ Ft = x1t*x2t-(msq(j1)+mu2t(2))/two/MP12(2)
+ x3t = (2.5_ki,0.3_ki)
+ x4t = Ft/x3t
+ qt(:) = -p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
+end subroutine getq2_rm
+
+
+
+subroutine getq1_rm(nleg,irank,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
+ use mglobal, only: G0,KK,mu2g,MP12,mu2t,G0mu
+ implicit none
+! PARAMETERS===================================================================================!
+ ! external
+ integer, intent(in ) :: nleg, irank, cut1
+ real(ki), dimension(0:nleg-1), intent(in ) :: msq
+ real(ki), dimension(4), intent(in ) :: p0, e1, e2
+ complex(ki), dimension(4), intent(in ) :: e3, e4
+ complex(ki), dimension(15,4), intent(out) :: q1
+ complex(ki), dimension(4), intent(out) :: qt
+ ! internal
+ complex(ki), dimension(15) :: x1, x2 ! note: changed to complex to be able to sample
+ complex(ki), dimension(15) :: x3, x4
+ real(ki) :: varx,x1t,x2t,x3t,x4t,theta
+ integer :: j1, i,nold,n, ndiff
+! INITIALIZATION===============================================================================!
+ j1 = cut1
+ mu2g(1) = msq(j1)
+ if (abs(mu2g(1)).lt. 1.0e-10_ki) mu2g(1)=one
+ MP12(1) = sdot(e1,e2)
+ G0 = msq(j1)/two/MP12(1) !(msq(j1)+mu2g(1))/two/MP12(1)
+ nold = 0
+ ndiff = nleg - irank
+ select case(ndiff)
+! RANK 0=======================================================================================!
+ case(1)
+ !---
+ mu2g(1)=zip
+ if (msq(j1).eq.zip) then
+ mu2g(1)=one
+ endif
+ G0 = (msq(j1)+mu2g(1))/two/MP12(1)
+ !---
+
+ x1(1)=G0
+ x2(1)=one
+ x3(1) = zip
+ x4(1) = zip
+ q1(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
+! RANK 1=======================================================================================!
+ case(0)
+ !---
+ mu2g(1)=zip
+ if (msq(j1).eq.zip) then
+ mu2g(1)=one
+ endif
+ G0 = (msq(j1)+mu2g(1))/two/MP12(1)
+ !---
+
+ x1(1) = G0
+ x2(1) = one
+ x3(1) = zip
+ x4(1) = zip
+
+ x1(2) = -G0
+ x2(2) = -one
+ x3(2) = zip
+ x4(2) = zip
+
+ x1(3) = G0
+ x2(3) = one
+ x3(3) = one
+ x4(3) = zip
+
+ x1(4) = zip
+ x2(4) = one
+ x3(4) = -one
+ x4(4) = G0
+
+ x1(5) = zip
+ x2(5) = one
+ x3(5) = one
+ x4(5) = -G0
+ do i=1,5
+ q1(i,:)=-p0(:)+x1(i)*e1(:)+x2(i)*e2(:)+x3(i)*e3(:)+x4(i)*e4(:)
+ enddo
+! RANK 2=======================================================================================!
+ case(-1)
+ if(abs(G0) .lt. 1.0e-10_ki) then
+ n = 3 !
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x2(i+nold) = czip
+ x3(i+nold) = czip
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 2 !
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x3(i+nold) = czip
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 2
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = czip
+ x3(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 2
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = czip
+ x3(i+nold) = czip
+ x4(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ x1(10) = czip
+ x2(10) = cone
+ x3(10) = czip
+ x4(10) = cone
+
+ x1(11) = czip
+ x2(11) = cone
+ x3(11) = cone
+ x4(11) = czip
+
+ x1(12) = cone
+ x2(12) = czip
+ x3(12) = czip
+ x4(12) = cone
+
+ x1(13) = cone
+ x2(13) = czip
+ x3(13) = cone
+ x4(13) = czip
+
+ x1(14) = cone
+ x2(14) = cone
+ x3(14) = cone
+ x4(14) = cone
+ elseif(abs(G0) .lt. 1.0e-1_ki) then
+ n = 3 !
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x2(i+nold) = G0/x1(i+nold)
+ x3(i+nold) = czip
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 2 !
+ theta = twopi/n
+ do i=1,n
+ x2(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x1(i+nold) = G0/x2(i+nold)
+ x3(i+nold) = czip
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 3
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = czip
+ x3(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x4(i+nold) = -G0/x3(i+nold)
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 2
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = czip
+ x4(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x3(i+nold) = -G0/x4(i+nold)
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ x1(11) = cone
+ x2(11) = G0
+ x3(11) = cone
+ x4(11) = czip
+
+ x1(12) = G0
+ x2(12) = cone
+ x3(12) = cone
+ x4(12) = czip
+
+ x1(13) = cone
+ x2(13) = G0
+ x3(13) = czip
+ x4(13) = cone
+
+ x1(14) = G0
+ x2(14) = cone
+ x3(14) = czip
+ x4(14) = cone
+ else !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
+ n = 5 !
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x2(i+nold) = G0/x1(i+nold)
+ x3(i+nold) = czip
+ x4(i+nold) = czip
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ n = 5
+ theta = twopi/n
+ do i=1,n
+ x1(i+nold) = czip
+ x2(i+nold) = czip
+ x3(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x4(i+nold) = -G0/x3(i+nold)
+ enddo
+ nold = nold + n
+ !------------------------------------------------------------------------------!
+ x1(11) = cone
+ x2(11) = G0
+ x3(11) = cone
+ x4(11) = czip
+
+ x1(12) = two
+ x2(12) = G0/two
+ x3(12) = cone
+ x4(12) = czip
+
+ x1(13) = cone
+ x2(13) = G0
+ x3(13) = czip
+ x4(13) = cone
+
+ x1(14) = two
+ x2(14) = G0/two
+ x3(14) = czip
+ x4(14) = cone
+ endif
+ !------------------------------------------------------------------------------!
+ G0mu = (msq(j1)+mu2g(1))/two/MP12(1)
+ x1(15) = cone
+ x2(15) = G0mu
+ x3(15) = czip
+ x4(15) = czip
+ nold = nold + n
+ do i=1,15
+ q1(i,:)=-p0(:)+x1(i)*e1(:)+x2(i)*e2(:)+x3(i)*e3(:)+x4(i)*e4(:)
+ enddo
+! DEFAULT CASE=================================================================================!
+ case default
+ print *, 'error in mgetqs.f90, getq1s'
+ end select
+! TEST VARIABLE================================================================================!
+ !Defining the test variable qt
+ mu2t(1) = half
+ varx = -(msq(j1)+mu2t(1))/two/MP12(1)
+ x1t = 3.2_ki
+ x2t = 1.2_ki
+ x3t = 4.2_ki
+ x4t = (varx+x1t*x2t)/x3t
+ qt(:) = -p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
+!==============================================================================================!
+ end subroutine getq1_rm
+
- integer :: j1,j2,j3,j4,j5
- complex(ki) :: x1, x2,var2, var3
- real(ki) :: MP12, MP1v2, MP1v3, MP2v2, MP2v3, MPv22, MPv33
- real(ki), dimension(4) :: v2, v3
- complex(ki) :: MP3v2, MP3v3, MP4v2, MP4v3, x3, x4, tmu2, den
- j5=cut5/10000
- j4=(cut5-j5*10000)/1000
- j3=(cut5-j5*10000-j4*1000)/100
- j2=(cut5-j5*10000-j4*1000-j3*100)/10
- j1= cut5-j5*10000-j4*1000-j3*100-j2*10
- v2(:)=Vi(j3,:)-p0(:)
- v3(:)=Vi(j4,:)-p0(:)
- MP12 =sdot(e1,e2)
- MP1v2=sdot(v2,e1)
- MP1v3=sdot(v3,e1)
- MP2v2=sdot(v2,e2)
- MP2v3=sdot(v3,e2)
- MP3v2=sdot(v2,e3)
- MP3v3=sdot(v3,e3)
- MP4v2=sdot(v2,e4)
- MP4v3=sdot(v3,e4)
- MPv22=sdot(v2,v2)
- MPv33=sdot(v3,v3)
- den = -(MP3v3*MP4v2*two) + MP3v2*MP4v3*two
- x1 = (0.5_ki*( -(MP12*(1.0_ki+r1)*r2*two)-(1.0_ki+r2)*msq(j1) &
- & +r2*msq(j2) + msq(j5)))/(MP12*(-1.0_ki + r1*r2))
- x2 = -((0.5_ki*(-(MP12*r1*(1.0_ki+r2)*two)-(1.0_ki+r1)*msq(j1) &
- & +msq(j2) + r1*msq(j5)))/(MP12*(-1.0_ki + r1*r2)))
- var2 = MPv22 + MP1v2*two*x1 + MP2v2*two*x2+msq(j1)-msq(j3)
- var3 = MPv33 + MP1v3*two*x1 + MP2v3*two*x2+msq(j1)-msq(j4)
- x3 = (-MP4v3*var2+MP4v2*var3)/den
- x4 = ( MP3v3*var2-MP3v2*var3)/den
- tmu2=two*MP12*(x1*x2-x3*x4)-msq(j1)
-! CHANGED 9.8.2012 NG/GH
-! if (aimag(tmu2)/real(tmu2).lt.1e-10_ki) then
-! mu2=real(tmu2,ki)*cone
-! else
- mu2=tmu2
-! endif
- q5(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3*e3(:)+x4*e4(:)
- end subroutine getq5_cm
- subroutine getq5_rm(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+!CM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ subroutine getq5_cm(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
implicit none
integer, intent(in) :: nleg, cut5
real(ki), dimension(4), intent(in) :: e1, e2, p0
complex(ki), dimension(4), intent(in) :: e3, e4
real(ki), intent(in) :: r1, r2
- real(ki), dimension(0:nleg-1), intent(in) :: msq
+ complex(ki), dimension(0:nleg-1), intent(in) :: msq
real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
complex(ki), dimension(4), intent(out) :: q5
complex(ki), intent(out) :: mu2
integer :: j1,j2,j3,j4,j5
- real(ki) :: x1, x2,var2, var3
+ complex(ki) :: x1, x2,var2, var3
real(ki) :: MP12, MP1v2, MP1v3, MP2v2, MP2v3, MPv22, MPv33
real(ki), dimension(4) :: v2, v3
complex(ki) :: MP3v2, MP3v3, MP4v2, MP4v3, x3, x4, tmu2, den
j5=cut5/10000
j4=(cut5-j5*10000)/1000
j3=(cut5-j5*10000-j4*1000)/100
j2=(cut5-j5*10000-j4*1000-j3*100)/10
j1= cut5-j5*10000-j4*1000-j3*100-j2*10
v2(:)=Vi(j3,:)-p0(:)
v3(:)=Vi(j4,:)-p0(:)
MP12 =sdot(e1,e2)
MP1v2=sdot(v2,e1)
MP1v3=sdot(v3,e1)
MP2v2=sdot(v2,e2)
MP2v3=sdot(v3,e2)
MP3v2=sdot(v2,e3)
MP3v3=sdot(v3,e3)
MP4v2=sdot(v2,e4)
MP4v3=sdot(v3,e4)
MPv22=sdot(v2,v2)
MPv33=sdot(v3,v3)
den = -(MP3v3*MP4v2*two) + MP3v2*MP4v3*two
x1 = (0.5_ki*( -(MP12*(1.0_ki+r1)*r2*two)-(1.0_ki+r2)*msq(j1) &
& +r2*msq(j2) + msq(j5)))/(MP12*(-1.0_ki + r1*r2))
x2 = -((0.5_ki*(-(MP12*r1*(1.0_ki+r2)*two)-(1.0_ki+r1)*msq(j1) &
& +msq(j2) + r1*msq(j5)))/(MP12*(-1.0_ki + r1*r2)))
var2 = MPv22 + MP1v2*two*x1 + MP2v2*two*x2+msq(j1)-msq(j3)
var3 = MPv33 + MP1v3*two*x1 + MP2v3*two*x2+msq(j1)-msq(j4)
x3 = (-MP4v3*var2+MP4v2*var3)/den
x4 = ( MP3v3*var2-MP3v2*var3)/den
tmu2=two*MP12*(x1*x2-x3*x4)-msq(j1)
-
- mu2=real(tmu2, ki)
+ if (aimag(tmu2)/real(tmu2).lt.1e-10_ki) then
+ mu2=real(tmu2,ki)*cone
+ else
+ mu2=tmu2
+ endif
q5(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3*e3(:)+x4*e4(:)
- end subroutine getq5_rm
+ end subroutine getq5_cm
subroutine getq4_cm(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
use mglobal, only: MP12, mu2g, mu2t, dx
implicit none
integer, intent(in) :: nleg, cut4
real(ki), dimension(4) :: k1, k2, k3, L3, e1, e2, p0
complex(ki), dimension(4), intent(in) :: e3, e4
complex(ki), dimension(0:nleg-1), intent(in) :: msq
real(ki), intent(in) :: r1,r2
- complex(ki), dimension(5,4), intent(out) :: q4
+ complex(ki), dimension(6,4), intent(out) :: q4
complex(ki), dimension(4), intent(out) :: qt
real(ki) :: beta,mu2x
complex(ki) :: x1,x2,A1,A2
real(ki) :: ME31, ME32, MK11, MK22, MK33
- complex(ki) :: x31,x32,x33,x34,x35,x3t,x41,x42,x43,x44,x45,x4t
+ complex(ki) :: x31,x32,x33,x34,x35,x36,x3t,x41,x42,x43,x44,x45,x46,x4t
complex(ki) :: ME33,ME34,ML33,ML34
complex(ki) :: B0,B1,B2,rtdel,A3,A4
integer :: j1,j2,j3,j4
j4=cut4/1000
j3=(cut4-j4*1000)/100
j2=(cut4-j4*1000-j3*100)/10
j1= cut4-j4*1000-j3*100-j2*10
MP12(4)=sdot(e1,e2)
ML33=sdot(L3,e3)
ML34=sdot(L3,e4)
ME31=sdot(k3,e1)
ME32=sdot(k3,e2)
ME33=sdot(k3,e3)
ME34=sdot(k3,e4)
MK11=sdot(k1,k1)
MK22=sdot(k2,k2)
MK33=sdot(k3,k3)
beta=one/(one-r1*r2)
A1=(msq(j2)-msq(j1)-MK11)/two/MP12(4)
A2=(msq(j1)-msq(j4)+MK22)/two/MP12(4)
x1=beta*(A2-r2*A1)
x2=beta*(A1-r1*A2)
A3=(msq(j3)-msq(j1)-MK33-2d0*x1*ME31-2d0*x2*ME32)/2d0/ME33
A4=-ME34/ME33
B1=-two*MP12(4)*A3
B2=-two*MP12(4)*A4
mu2g(4)=zip
B0=(two*x1*x2*MP12(4)-msq(j1)-mu2g(4))*cone
rtdel=sqrt(B1**2-four*B0*B2)
x41=(-B1+rtdel)/two/B2
x42=(-B1-rtdel)/two/B2
x31=x41*A4+A3
x32=x42*A4+A3
q4(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x31*e3(:)+x41*e4(:)
q4(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x32*e3(:)+x42*e4(:)
!--- scelta dinamica
mu2g(4)=max(abs(msq(j1)),abs(msq(j2)),abs(msq(j3)),abs(msq(j4)),&
& abs(MK11),abs(MK22),abs(MK33),&
& abs(two*sdot(k1,k2)),abs(two*sdot(k2,k3)),abs(two*sdot(k1,k3)),&
& abs(two*MP12(4)))
if (abs(mu2g(4)).lt.1.0e-10_ki) mu2g(4)=one
!--- scelta statica
! mu2g(4)=one
B0=(two*x1*x2*MP12(4)-msq(j1)-mu2g(4))*cone
rtdel=sqrt(B1**2-four*B0*B2)
x43=(-B1+rtdel)/two/B2
x44=(-B1-rtdel)/two/B2
x33=x43*A4+A3
x34=x44*A4+A3
q4(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x33*e3(:)+x43*e4(:)
q4(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x34*e3(:)+x44*e4(:)
mu2x=-mu2g(4)
B0=(two*x1*x2*MP12(4)-msq(j1)-mu2x)*cone
rtdel=sqrt(B1**2-four*B0*B2)
x45=(-B1+rtdel)/two/B2
! x45=(-B1-rtdel)/two/B2
x35=x45*A4+A3
! x35=x4t*A4+A3
q4(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x35*e3(:)+x45*e4(:)
+!EDITED BY HvD
+ x46=(-B1-rtdel)/two/B2
+ x36=x46*A4+A3
+ q4(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x36*e3(:)+x46*e4(:)
mu2t(4)=half
B0=(two*x1*x2*MP12(4)-msq(j1)-mu2t(4))*cone
rtdel=sqrt(B1**2-four*B0*B2)
! x4t=(-B1+rtdel)/two/B2
x4t=(-B1-rtdel)/two/B2
! x3t=x45*A4+A3
x3t=x4t*A4+A3
qt(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
dx(1)=ML33*x31-ML34*x41
dx(2)=ML33*x32-ML34*x42
dx(3)=ML33*x33-ML34*x43
dx(4)=ML33*x34-ML34*x44
dx(5)=ML33*x35-ML34*x45
end subroutine getq4_cm
- subroutine getq4_rm(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
- use mglobal, only: MP12, mu2g, mu2t, dx
- implicit none
- integer, intent(in) :: nleg, cut4
- real(ki), dimension(4) :: k1, k2, k3, L3, e1, e2, p0
- complex(ki), dimension(4), intent(in) :: e3, e4
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), intent(in) :: r1,r2
- complex(ki), dimension(5,4), intent(out) :: q4
- complex(ki), dimension(4), intent(out) :: qt
-
- real(ki) :: beta,mu2x,x1,x2,A1,A2
- real(ki) :: ME31, ME32, MK11, MK22, MK33
- complex(ki) :: x31,x32,x33,x34,x35,x3t,x41,x42,x43,x44,x45,x4t
- complex(ki) :: ME33,ME34,ML33,ML34
- complex(ki) :: B0,B1,B2,rtdel,A3,A4
- integer :: j1,j2,j3,j4
-
- j4=cut4/1000
- j3=(cut4-j4*1000)/100
- j2=(cut4-j4*1000-j3*100)/10
- j1= cut4-j4*1000-j3*100-j2*10
-
- MP12(4)=sdot(e1,e2)
- ML33=sdot(L3,e3)
- ML34=sdot(L3,e4)
- ME31=sdot(k3,e1)
- ME32=sdot(k3,e2)
- ME33=sdot(k3,e3)
- ME34=sdot(k3,e4)
- MK11=sdot(k1,k1)
- MK22=sdot(k2,k2)
- MK33=sdot(k3,k3)
- beta=one/(one-r1*r2)
- A1=(msq(j2)-msq(j1)-MK11)/two/MP12(4)
- A2=(msq(j1)-msq(j4)+MK22)/two/MP12(4)
- x1=beta*(A2-r2*A1)
- x2=beta*(A1-r1*A2)
- A3=(msq(j3)-msq(j1)-MK33-2d0*x1*ME31-2d0*x2*ME32)/2d0/ME33
- A4=-ME34/ME33
- B1=-two*MP12(4)*A3
- B2=-two*MP12(4)*A4
-
- mu2g(4)=zip
- B0=(two*x1*x2*MP12(4)-msq(j1)-mu2g(4))*cone
- rtdel=sqrt(B1**2-four*B0*B2)
- x41=(-B1+rtdel)/two/B2
- x42=(-B1-rtdel)/two/B2
- x31=x41*A4+A3
- x32=x42*A4+A3
- q4(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x31*e3(:)+x41*e4(:)
- q4(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x32*e3(:)+x42*e4(:)
-
-!--- scelta dinamica
- mu2g(4)=max(msq(j1),msq(j2),msq(j3),msq(j4),&
- & abs(MK11),abs(MK22),abs(MK33),&
- & abs(two*sdot(k1,k2)),abs(two*sdot(k2,k3)),abs(two*sdot(k1,k3)),&
- & abs(two*MP12(4)))
-
- if (abs(mu2g(4)).lt.1.0e-10_ki) mu2g(4)=one
-
-!--- scelta statica
-! mu2g(4)=one
-
- B0=(two*x1*x2*MP12(4)-msq(j1)-mu2g(4))*cone
- rtdel=sqrt(B1**2-four*B0*B2)
- x43=(-B1+rtdel)/two/B2
- x44=(-B1-rtdel)/two/B2
- x33=x43*A4+A3
- x34=x44*A4+A3
- q4(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x33*e3(:)+x43*e4(:)
- q4(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x34*e3(:)+x44*e4(:)
-
- mu2x=-mu2g(4)
- B0=(two*x1*x2*MP12(4)-msq(j1)-mu2x)*cone
- rtdel=sqrt(B1**2-four*B0*B2)
- x45=(-B1+rtdel)/two/B2
-! x45=(-B1-rtdel)/two/B2
- x35=x45*A4+A3
-! x35=x4t*A4+A3
- q4(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x35*e3(:)+x45*e4(:)
-
- mu2t(4)=half
- B0=(two*x1*x2*MP12(4)-msq(j1)-mu2t(4))*cone
- rtdel=sqrt(B1**2-four*B0*B2)
-! x4t=(-B1+rtdel)/two/B2
- x4t=(-B1-rtdel)/two/B2
-! x3t=x45*A4+A3
- x3t=x4t*A4+A3
- qt(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
-
- dx(1)=ML33*x31-ML34*x41
- dx(2)=ML33*x32-ML34*x42
- dx(3)=ML33*x33-ML34*x43
- dx(4)=ML33*x34-ML34*x44
- dx(5)=ML33*x35-ML34*x45
- end subroutine getq4_rm
-
subroutine getq3_cm(nleg,irank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
use mglobal, only: C0c,C1c,mu2g,MP12,KK,Kmu,mu2t
use options, only: C0_thrs
implicit none
integer, intent(in) :: nleg, cut3, irank
real(ki), dimension(4), intent(in) :: p0, k1, k2, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(10,4), intent(out) :: q3
complex(ki), dimension(4), intent(out) :: qt
integer :: j1,j2,j3,j,ndiff
real(ki) :: r1,r2,beta,teta
complex(ki) :: x1,x2,A1,A2,C1t
real(ki) :: MK11,MK12,MK22
complex(ki) :: x3t, x4t
complex(ki), dimension(10) :: x3, x4
ndiff=nleg-irank
KK(3)=one
Kmu(3)=one
j3=cut3/100
j2=(cut3-j3*100)/10
j1=cut3-j3*100-j2*10
MP12(3)=sdot(e1,e2)
MK11=sdot(k1,k1)
MK12=sdot(k1,k2)
MK22=sdot(k2,k2)
beta=1d0/(1d0-r1*r2)
A1=(msq(j2)-msq(j1)-MK11)/two/MP12(3)
A2=(msq(j1)-msq(j3)+MK22)/two/MP12(3)
x1=beta*(A2-r2*A1)
x2=beta*(A1-r1*A2)
C0c=x1*x2-msq(j1)/two/MP12(3)
!---#[ scelta dinamica:
mu2g(3)=max(abs(msq(j1)),abs(msq(j2)),abs(msq(j3)),abs(MK11), &
& abs(MK22),abs(two*MK12))
if (abs(mu2g(3)).lt.1d-10) mu2g(3)=one
!---#] scelta dinamica:
!---#[ scelta statica:
! mu2g(3)=one
!---#] scelta statica:
C1c=x1*x2-(msq(j1)+mu2g(3))/two/MP12(3)
if (abs(C0c-1.0_ki) .lt. C0_thrs) then
!---#[ New Sampling:
! The new sampling is the one that is safe around C0=1
! but not around C0=0
! complete c-system: 10 coefficients
teta=twopi/seven
do j=1,7
x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
x4(j)=C0c/x3(j)
enddo
teta=twopi/three
do j=8,10
x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
x3(j)=C1c/x4(j)
enddo
mu2t(3)=half
C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
x3t=32.4_ki
x4t=C1t*cone/x3t
q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(4)*e3(:)+x4(4)*e4(:)
q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(5)*e3(:)+x4(5)*e4(:)
q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(6)*e3(:)+x4(6)*e4(:)
q3(7,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(7)*e3(:)+x4(7)*e4(:)
q3(8,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(8)*e3(:)+x4(8)*e4(:)
q3(9,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(9)*e3(:)+x4(9)*e4(:)
q3(10,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(10)*e3(:)+x4(10)*e4(:)
!---#] New Sampling:
else
!---#[ Old Sampling:
! The old sampling is the one that is safe around C0=0
! but not around C0=1
!!!! HERE WE BRANCH ACCORDING TO THE RANK
select case(ndiff)
case(1)
! rank2 c-system: 6 coefficients
teta=twopi/three
do j=1,3
x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
x4(j)=C0c/x3(j)
enddo
teta=twopi/two
do j=4,5
x3(j)=cos(teta*real(j-4,ki))+im*sin(teta*real(j-4,ki))
x4(j)=cone/x3(j)
enddo
teta=twopi
do j=6,6
x3(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
x4(j)=cone/x3(j)
enddo
x3(7:10)=czip
x4(7:10)=czip
! those numbers are for the test!!
mu2t(3)=half
C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
x3t=32.4_ki
x4t=C1t*cone/x3t
! here are the qs for system 3.2
q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0c*x3(4)*e3(:)+x4(4)*e4(:)
q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0c*x3(5)*e3(:)+x4(5)*e4(:)
q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C1c*x3(6)*e3(:)+x4(6)*e4(:)
case(2)
! rank1 c-system: 3 coefficients
x3(1)=cone
x4(1)=C0c
x3(2)=-cone
x4(2)=-C0c
x3(3)=C0c
x4(3)=cone
x3(4:10)=czip
x4(4:10)=czip
mu2t(3)=half
C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
x3t=32.4_ki
x4t=C1t*cone/x3t
q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(1)*e3(:)+x4(1)*e4(:)/KK(3)
q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(2)*e3(:)+x4(2)*e4(:)/KK(3)
q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(3)*e3(:)+x4(3)*e4(:)/KK(3)
case default
! complete c-system: 10 coefficients
teta=twopi/four
do j=1,4
x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
x4(j)=C0c/x3(j)
enddo
teta=twopi/three
do j=5,7
x4(j)=cos(teta*real(j-5,ki))+im*sin(teta*real(j-5,ki))
x3(j)=C0c/x4(j)
enddo
teta=twopi/three
do j=8,10
x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
x3(j)=C1c/x4(j)
enddo
mu2t(3)=half
C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
x3t=32.4_ki
x4t=C1t*cone/x3t
q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(1)*e3(:)+x4(1)*e4(:)/KK(3)
q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(2)*e3(:)+x4(2)*e4(:)/KK(3)
q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(3)*e3(:)+x4(3)*e4(:)/KK(3)
q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(4)*e3(:)+x4(4)*e4(:)/KK(3)
q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(5)*e3(:)+x4(5)*e4(:)/KK(3)
q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(6)*e3(:)+x4(6)*e4(:)/KK(3)
q3(7,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(7)*e3(:)+x4(7)*e4(:)/KK(3)
q3(8,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(8)*e3(:)+x4(8)*e4(:)/Kmu(3)
q3(9,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(9)*e3(:)+x4(9)*e4(:)/Kmu(3)
q3(10,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(10)*e3(:)+x4(10)*e4(:)/Kmu(3)
end select
!---#] Old Sampling:
end if
qt(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
end subroutine getq3_cm
- subroutine getq3_rm(nleg,irank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
- use mglobal, only: C0,C1,mu2g,MP12,KK,Kmu,mu2t
- use options, only: C0_thrs
- implicit none
- integer, intent(in) :: nleg, cut3, irank
- real(ki), dimension(4), intent(in) :: p0, k1, k2, e1, e2
- complex(ki), dimension(4), intent(in) :: e3, e4
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki), dimension(10,4), intent(out) :: q3
- complex(ki), dimension(4), intent(out) :: qt
-
- integer :: j1,j2,j3,j,ndiff
- real(ki) :: r1,r2,beta,teta,x1,x2,A1,A2,C1t
- real(ki) :: MK11,MK12,MK22
- complex(ki) :: x3t, x4t
- complex(ki), dimension(10) :: x3, x4
-
- ndiff=nleg-irank
- KK(3)=one
- Kmu(3)=one
-
- j3=cut3/100
- j2=(cut3-j3*100)/10
- j1=cut3-j3*100-j2*10
-
- MP12(3)=sdot(e1,e2)
- MK11=sdot(k1,k1)
- MK12=sdot(k1,k2)
- MK22=sdot(k2,k2)
- beta=1d0/(1d0-r1*r2)
- A1=(msq(j2)-msq(j1)-MK11)/two/MP12(3)
- A2=(msq(j1)-msq(j3)+MK22)/two/MP12(3)
- x1=beta*(A2-r2*A1)
- x2=beta*(A1-r1*A2)
-
- C0=x1*x2-msq(j1)/two/MP12(3)
-
- !---#[ scelta dinamica:
- mu2g(3)=max(msq(j1),msq(j2),msq(j3),abs(MK11),abs(MK22),abs(two*MK12))
- if (abs(mu2g(3)).lt.1d-10) mu2g(3)=one
- !---#] scelta dinamica:
- !---#[ scelta statica:
- ! mu2g(3)=one
- !---#] scelta statica:
-
- C1=x1*x2-(msq(j1)+mu2g(3))/two/MP12(3)
-
- if (abs(C0-1.0_ki) .lt. C0_thrs) then
- !---#[ New Sampling:
- ! The new sampling is the one that is safe around C0=1
- ! but not around C0=0
-
- ! complete c-system: 10 coefficients
-
- teta=twopi/seven
- do j=1,7
- x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
- x4(j)=C0*cone/x3(j)
- enddo
-
- teta=twopi/three
- do j=8,10
- x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
- x3(j)=C1*cone/x4(j)
- enddo
-
- mu2t(3)=half
- C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
- x3t=32.4_ki
- x4t=C1t*cone/x3t
-
- q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
- q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
- q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
- q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(4)*e3(:)+x4(4)*e4(:)
- q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(5)*e3(:)+x4(5)*e4(:)
- q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(6)*e3(:)+x4(6)*e4(:)
- q3(7,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(7)*e3(:)+x4(7)*e4(:)
- q3(8,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(8)*e3(:)+x4(8)*e4(:)
- q3(9,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(9)*e3(:)+x4(9)*e4(:)
- q3(10,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(10)*e3(:)+x4(10)*e4(:)
- !---#] New Sampling:
- else
- !---#[ Old Sampling:
- ! The old sampling is the one that is safe around C0=0
- ! but not around C0=1
-
- !!!! HERE WE BRANCH ACCORDING TO THE RANK
- select case(ndiff)
- case(1)
- ! rank2 c-system: 6 coefficients
- teta=twopi/three
- do j=1,3
- x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
- x4(j)=C0*cone/x3(j)
- enddo
-
- teta=twopi/two
- do j=4,5
- x3(j)=cos(teta*real(j-4,ki))+im*sin(teta*real(j-4,ki))
- x4(j)=cone/x3(j)
- enddo
-
- teta=twopi
- do j=6,6
- x3(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
- x4(j)=cone/x3(j)
- enddo
-
- x3(7:10)=czip
- x4(7:10)=czip
-
- ! those numbers are for the test!!
- mu2t(3)=half
- C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
- x3t=32.4_ki
- x4t=C1t*cone/x3t
-
- ! here are the qs for system 3.2
- q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
- q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
- q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
- q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0*x3(4)*e3(:)+x4(4)*e4(:)
- q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C0*x3(5)*e3(:)+x4(5)*e4(:)
- q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+C1*x3(6)*e3(:)+x4(6)*e4(:)
- case(2)
- ! rank1 c-system: 3 coefficients
-
- x3(1)=cone
- x4(1)=C0*cone
-
- x3(2)=-cone
- x4(2)=-C0*cone
-
- x3(3)=C0*cone
- x4(3)=cone
-
- x3(4:10)=czip
- x4(4:10)=czip
-
- mu2t(3)=half
- C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
- x3t=32.4_ki
- x4t=C1t*cone/x3t
-
- q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(1)*e3(:)+x4(1)*e4(:)/KK(3)
- q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(2)*e3(:)+x4(2)*e4(:)/KK(3)
- q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(3)*e3(:)+x4(3)*e4(:)/KK(3)
- case default
- ! complete c-system: 10 coefficients
-
- teta=twopi/four
- do j=1,4
- x3(j)=cos(teta*real(j-1,ki))-im*sin(teta*real(j-1,ki))
- x4(j)=C0*cone/x3(j)
- enddo
-
- teta=twopi/three
- do j=5,7
- x4(j)=cos(teta*real(j-5,ki))+im*sin(teta*real(j-5,ki))
- x3(j)=C0*cone/x4(j)
- enddo
-
- teta=twopi/three
- do j=8,10
- x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
- x3(j)=C1*cone/x4(j)
- enddo
-
- mu2t(3)=half
- C1t=x1*x2-(msq(j1)+mu2t(3))/two/MP12(3)
- x3t=32.4_ki
- x4t=C1t*cone/x3t
-
- q3(1,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(1)*e3(:)+x4(1)*e4(:)/KK(3)
- q3(2,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(2)*e3(:)+x4(2)*e4(:)/KK(3)
- q3(3,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(3)*e3(:)+x4(3)*e4(:)/KK(3)
- q3(4,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(4)*e3(:)+x4(4)*e4(:)/KK(3)
- q3(5,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(5)*e3(:)+x4(5)*e4(:)/KK(3)
- q3(6,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(6)*e3(:)+x4(6)*e4(:)/KK(3)
- q3(7,:)=-p0(:)+x1*e1(:)+x2*e2(:)+KK(3)*x3(7)*e3(:)+x4(7)*e4(:)/KK(3)
- q3(8,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(8)*e3(:)+x4(8)*e4(:)/Kmu(3)
- q3(9,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(9)*e3(:)+x4(9)*e4(:)/Kmu(3)
- q3(10,:)=-p0(:)+x1*e1(:)+x2*e2(:)+Kmu(3)*x3(10)*e3(:)+x4(10)*e4(:)/Kmu(3)
- end select
- !---#] Old Sampling:
- end if
- qt(:)=-p0(:)+x1*e1(:)+x2*e2(:)+x3t*e3(:)+x4t*e4(:)
- end subroutine getq3_rm
subroutine getq2_cm(nleg,irank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
- use mglobal, only: Fpc,Fzc,Fmc,F1zc,KB,mu2g,KK,Kmu,MP12,mu2t
+ use mglobal, only: Fpc,Fzc,Fmc,F1zc,KB,mu2g,KK,Kmu,MP12,mu2t,Fp2c,F11c
implicit none
integer, intent(in) :: nleg, cut2, irank
real(ki), dimension(4), intent(in) :: p0, k1, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
complex(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki), dimension(10,4), intent(out) :: q2
+ complex(ki), dimension(20,4), intent(out) :: q2
complex(ki), dimension(4), intent(out) :: qt
- complex(ki), dimension(10) :: x1, x2
+ complex(ki), dimension(20) :: x1, x2
real(ki) :: teta,K1SQ
complex(ki) :: A1,x1t,x2t,Ft
- complex(ki) :: X1p,X2p,X1z,X2z,X1m,X2m
+ complex(ki) :: X1p,X2p,X1z,X2z,X1m,X2m, X1p2,X2p2
complex(ki) :: x3t, x4t
- complex(ki), dimension(10) :: x3, x4
+ complex(ki), dimension(20) :: x3, x4
integer :: j1,j2,j,ndiff
ndiff=nleg-irank
KK(2)=one
KB=one
Kmu(2)=one
j2=cut2/10
j1=cut2-j2*10
K1SQ=sdot(k1,k1)
MP12(2)=sdot(e1,e2)
A1=(msq(j2)-msq(j1)-K1SQ)/two/MP12(2)
X1z=zip
X2z=A1
Fzc=-msq(j1)/two/MP12(2)
X1p=KB
X2p=A1-KB*K1SQ/two/MP12(2)
Fpc=KB*X2p-msq(j1)/two/MP12(2)
X1m=-KB
X2m=A1+KB*K1SQ/two/MP12(2)
Fmc=-KB*X2m-msq(j1)/two/MP12(2)
+!Added by HvD
+ X1p2=two
+ X2p2=A1-two*KB*K1SQ/two/MP12(2)
+ Fp2c=two*KB*X2p-msq(j1)/two/MP12(2)
+
+
!--- scelta dinamica
mu2g(2)=max(abs(msq(j1)),abs(msq(j2)),K1SQ)
if (abs(mu2g(2)).lt.1.0e-10_ki) mu2g(2)=one
!--- scelta statica
! mu2g(2)=one
F1zc=-(msq(j1)+mu2g(2))/two/MP12(2)
+!Added by HvD
+ F11c=KB*X2p-(msq(j1)+mu2g(2))/two/MP12(2)
!!!! HERE WE BRANCH ACCORDING TO THE RANK
if (ndiff.eq.1) then
! rank 1
teta=twopi/two
do j=1,2
x1(j)=X1z
x2(j)=X2z
x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
x3(j)=Fzc/x4(j)
enddo
do j=3,4
x1(j)=X1p
x2(j)=X2p
x3(j)=cos(teta*real(j-3,ki))-im*sin(teta*real(j-3,ki))
x4(j)=Fpc/x3(j)
enddo
mu2t(2)=half
x1t=2.3_ki
x2t=A1-x1t*K1SQ/two/MP12(2)
Ft=x1t*x2t-(msq(j1)+mu2t(2))/two/MP12(2)
x3t=(2.5_ki,0.3_ki)
x4t=Ft/x3t
do j=5,10
x3(j)=czip
x4(j)=czip
enddo
q2(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+KK(2)*x3(1)*e3(:)+x4(1)*e4(:)/KK(2)
q2(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+KK(2)*x3(2)*e3(:)+x4(2)*e4(:)/KK(2)
q2(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+KK(2)*x3(3)*e3(:)+x4(3)*e4(:)/KK(2)
q2(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+KK(2)*x3(4)*e3(:)+x4(4)*e4(:)/KK(2)
! q2(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+KK(2)*x3(5)*e3(:)+x4(5)*e4(:)/KK(2)
! q2(6,:)=-p0(:)+x1(6)*e1(:)+x2(6)*e2(:)+KK(2)*x3(6)*e3(:)+x4(6)*e4(:)/KK(2)
! q2(7,:)=-p0(:)+x1(7)*e1(:)+x2(7)*e2(:)+KK(2)*x3(7)*e3(:)+x4(7)*e4(:)/KK(2)
! q2(8,:)=-p0(:)+x1(8)*e1(:)+x2(8)*e2(:)+KK(2)*x3(8)*e3(:)+x4(8)*e4(:)/KK(2)
! q2(9,:)=-p0(:)+x1(9)*e1(:)+x2(9)*e2(:)+KK(2)*x3(9)*e3(:)+x4(9)*e4(:)/KK(2)
! q2(10,:)=-p0(:)+x1(10)*e1(:)+x2(10)*e2(:)+KK(2)*x3(10)*e3(:) &
! & +x4(10)*e4(:)/KK(2)
qt(:)=-p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
else
! standard (rank 2)
- teta=twopi/three
- do j=1,3
+ teta=twopi/four
+ do j=1,4
x1(j)=X1z
x2(j)=X2z
x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
x3(j)=Fzc/x4(j)
enddo
- teta=twopi/two
- do j=4,5
+ teta=twopi/three
+ do j=5,7
x1(j)=X1z
x2(j)=X2z
- x3(j)=cos(teta*real(j-4,ki))-im*sin(teta*real(j-4,ki))
+ x3(j)=cos(teta*real(j-5,ki))-im*sin(teta*real(j-5,ki))
x4(j)=Fzc/x3(j)
enddo
- teta=twopi/two
- do j=6,7
+ teta=twopi/five
+ do j=8,12
x1(j)=X1p
x2(j)=X2p
- x4(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
+ x4(j)=cos(teta*real(j-8,ki))+im*sin(teta*real(j-8,ki))
x3(j)=Fpc/x4(j)
enddo
- x1(8)=X1p
- x2(8)=X2p
- x3(8)=cone
- x4(8)=Fpc
-
- x1(9)=X1m
- x2(9)=X2m
- x3(9)=Fmc
- x4(9)=cone
-
- x1(10)=X1z
- x2(10)=X2z
- x3(10)=F1zc
- x4(10)=cone
-
- mu2t(2)=half
- x1t=2.3_ki
- x2t=A1-x1t*K1SQ/two/MP12(2)
- Ft=x1t*x2t-(msq(j1)+mu2t(2))/two/MP12(2)
- x3t=(2.5_ki,0.3_ki)
- x4t=Ft/x3t
-
- q2(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+KK(2)*x3(1)*e3(:)+x4(1)*e4(:)/KK(2)
- q2(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+KK(2)*x3(2)*e3(:)+x4(2)*e4(:)/KK(2)
- q2(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+KK(2)*x3(3)*e3(:)+x4(3)*e4(:)/KK(2)
- q2(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+KK(2)*x3(4)*e3(:)+x4(4)*e4(:)/KK(2)
- q2(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+KK(2)*x3(5)*e3(:)+x4(5)*e4(:)/KK(2)
- q2(6,:)=-p0(:)+x1(6)*e1(:)+x2(6)*e2(:)+KK(2)*x3(6)*e3(:)+x4(6)*e4(:)/KK(2)
- q2(7,:)=-p0(:)+x1(7)*e1(:)+x2(7)*e2(:)+KK(2)*x3(7)*e3(:)+x4(7)*e4(:)/KK(2)
- q2(8,:)=-p0(:)+x1(8)*e1(:)+x2(8)*e2(:)+KK(2)*x3(8)*e3(:)+x4(8)*e4(:)/KK(2)
- q2(9,:)=-p0(:)+x1(9)*e1(:)+x2(9)*e2(:)+KK(2)*x3(9)*e3(:)+x4(9)*e4(:)/KK(2)
- q2(10,:)=-p0(:)+x1(10)*e1(:)+x2(10)*e2(:)+KK(2)*x3(10)*e3(:) &
- & +x4(10)*e4(:)/KK(2)
- qt(:)=-p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
-
- endif
-
- end subroutine getq2_cm
-
- subroutine getq2_rm(nleg,irank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
- use mglobal, only: Fp,Fz,Fm,F1z,KB,mu2g,KK,Kmu,MP12,mu2t
- implicit none
- integer, intent(in) :: nleg, cut2, irank
- real(ki), dimension(4), intent(in) :: p0, k1, e1, e2
- complex(ki), dimension(4), intent(in) :: e3, e4
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- complex(ki), dimension(10,4), intent(out) :: q2
- complex(ki), dimension(4), intent(out) :: qt
-
- real(ki), dimension(10) :: x1, x2
- real(ki) :: teta,A1,K1SQ,x1t,x2t,Ft
- real(ki) :: X1p,X2p,X1z,X2z,X1m,X2m
- complex(ki) :: x3t, x4t
- complex(ki), dimension(10) :: x3, x4
- integer :: j1,j2,j,ndiff
-
- ndiff=nleg-irank
- KK(2)=one
- KB=one
- Kmu(2)=one
-
- j2=cut2/10
- j1=cut2-j2*10
-
- K1SQ=sdot(k1,k1)
- MP12(2)=sdot(e1,e2)
- A1=(msq(j2)-msq(j1)-K1SQ)/two/MP12(2)
- X1z=zip
- X2z=A1
- Fz=-msq(j1)/two/MP12(2)
-
- X1p=KB
- X2p=A1-KB*K1SQ/two/MP12(2)
- Fp=KB*X2p-msq(j1)/two/MP12(2)
-
- X1m=-KB
- X2m=A1+KB*K1SQ/two/MP12(2)
- Fm=-KB*X2m-msq(j1)/two/MP12(2)
-
-!--- scelta dinamica
- mu2g(2)=max(msq(j1),msq(j2),K1SQ)
- if (abs(mu2g(2)).lt.1.0e-10_ki) mu2g(2)=one
-
-!--- scelta statica
-! mu2g(2)=one
-
- F1z=-(msq(j1)+mu2g(2))/two/MP12(2)
-
-!!!! HERE WE BRANCH ACCORDING TO THE RANK
-
- if (ndiff.eq.1) then
-! rank 1
-
- teta=twopi/two
-
- do j=1,2
- x1(j)=X1z
- x2(j)=X2z
- x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
- x3(j)=Fz/x4(j)
- enddo
-
- do j=3,4
- x1(j)=X1p
- x2(j)=X2p
- x3(j)=cos(teta*real(j-3,ki))-im*sin(teta*real(j-3,ki))
- x4(j)=Fp/x3(j)
- enddo
-
-
- mu2t(2)=half
- x1t=2.3_ki
- x2t=A1-x1t*K1SQ/two/MP12(2)
- Ft=x1t*x2t-(msq(j1)+mu2t(2))/two/MP12(2)
- x3t=(2.5_ki,0.3_ki)
- x4t=Ft/x3t
-
- do j=5,10
- x3(j)=czip
- x4(j)=czip
+ teta=twopi/three
+ do j=13,15
+ x1(j)=X1m
+ x2(j)=X2m
+ x4(j)=cos(teta*real(j-13,ki))+im*sin(teta*real(j-13,ki))
+ x3(j)=Fmc/x4(j)
enddo
-
- q2(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+KK(2)*x3(1)*e3(:)+x4(1)*e4(:)/KK(2)
- q2(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+KK(2)*x3(2)*e3(:)+x4(2)*e4(:)/KK(2)
- q2(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+KK(2)*x3(3)*e3(:)+x4(3)*e4(:)/KK(2)
- q2(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+KK(2)*x3(4)*e3(:)+x4(4)*e4(:)/KK(2)
- ! q2(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+KK(2)*x3(5)*e3(:)+x4(5)*e4(:)/KK(2)
- ! q2(6,:)=-p0(:)+x1(6)*e1(:)+x2(6)*e2(:)+KK(2)*x3(6)*e3(:)+x4(6)*e4(:)/KK(2)
-! q2(7,:)=-p0(:)+x1(7)*e1(:)+x2(7)*e2(:)+KK(2)*x3(7)*e3(:)+x4(7)*e4(:)/KK(2)
-! q2(8,:)=-p0(:)+x1(8)*e1(:)+x2(8)*e2(:)+KK(2)*x3(8)*e3(:)+x4(8)*e4(:)/KK(2)
-! q2(9,:)=-p0(:)+x1(9)*e1(:)+x2(9)*e2(:)+KK(2)*x3(9)*e3(:)+x4(9)*e4(:)/KK(2)
-! q2(10,:)=-p0(:)+x1(10)*e1(:)+x2(10)*e2(:)+KK(2)*x3(10)*e3(:) &
-! & +x4(10)*e4(:)/KK(2)
- qt(:)=-p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
-
-
- else
-! standard (rank 2)
+
+ x1(16)=X1p2
+ x2(16)=X2p2
+ x3(16)=Fp2c
+ x4(16)=cone
teta=twopi/three
- do j=1,3
- x1(j)=X1z
- x2(j)=X2z
- x4(j)=cos(teta*real(j-1,ki))+im*sin(teta*real(j-1,ki))
- x3(j)=Fz/x4(j)
- enddo
- teta=twopi/two
- do j=4,5
+ do j=17,19
x1(j)=X1z
x2(j)=X2z
- x3(j)=cos(teta*real(j-4,ki))-im*sin(teta*real(j-4,ki))
- x4(j)=Fz/x3(j)
+ x4(j)=cos(teta*real(j-17,ki))+im*sin(teta*real(j-17,ki))
+ x3(j)=F1zc/x4(j)
enddo
- teta=twopi/two
- do j=6,7
- x1(j)=X1p
- x2(j)=X2p
- x4(j)=cos(teta*real(j-6,ki))+im*sin(teta*real(j-6,ki))
- x3(j)=Fp/x4(j)
- enddo
- x1(8)=X1p
- x2(8)=X2p
- x3(8)=cone
- x4(8)=Fp*cone
- x1(9)=X1m
- x2(9)=X2m
- x3(9)=Fm*cone
- x4(9)=cone
+ x1(20)=X1p
+ x2(20)=X2p
+ x4(20)=cone
+ x3(20)=F11c/x4(20)
+
+
+
+
- x1(10)=X1z
- x2(10)=X2z
- x3(10)=F1z*cone
- x4(10)=cone
mu2t(2)=half
x1t=2.3_ki
x2t=A1-x1t*K1SQ/two/MP12(2)
Ft=x1t*x2t-(msq(j1)+mu2t(2))/two/MP12(2)
x3t=(2.5_ki,0.3_ki)
x4t=Ft/x3t
q2(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+KK(2)*x3(1)*e3(:)+x4(1)*e4(:)/KK(2)
q2(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+KK(2)*x3(2)*e3(:)+x4(2)*e4(:)/KK(2)
q2(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+KK(2)*x3(3)*e3(:)+x4(3)*e4(:)/KK(2)
q2(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+KK(2)*x3(4)*e3(:)+x4(4)*e4(:)/KK(2)
q2(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+KK(2)*x3(5)*e3(:)+x4(5)*e4(:)/KK(2)
q2(6,:)=-p0(:)+x1(6)*e1(:)+x2(6)*e2(:)+KK(2)*x3(6)*e3(:)+x4(6)*e4(:)/KK(2)
q2(7,:)=-p0(:)+x1(7)*e1(:)+x2(7)*e2(:)+KK(2)*x3(7)*e3(:)+x4(7)*e4(:)/KK(2)
q2(8,:)=-p0(:)+x1(8)*e1(:)+x2(8)*e2(:)+KK(2)*x3(8)*e3(:)+x4(8)*e4(:)/KK(2)
q2(9,:)=-p0(:)+x1(9)*e1(:)+x2(9)*e2(:)+KK(2)*x3(9)*e3(:)+x4(9)*e4(:)/KK(2)
- q2(10,:)=-p0(:)+x1(10)*e1(:)+x2(10)*e2(:)+KK(2)*x3(10)*e3(:) &
- & +x4(10)*e4(:)/KK(2)
+ q2(10,:)=-p0(:)+x1(10)*e1(:)+x2(10)*e2(:)+KK(2)*x3(10)*e3(:)+x4(10)*e4(:)/KK(2)
+ q2(11,:)=-p0(:)+x1(11)*e1(:)+x2(11)*e2(:)+KK(2)*x3(11)*e3(:)+x4(11)*e4(:)/KK(2)
+ q2(12,:)=-p0(:)+x1(12)*e1(:)+x2(12)*e2(:)+KK(2)*x3(12)*e3(:)+x4(12)*e4(:)/KK(2)
+ q2(13,:)=-p0(:)+x1(13)*e1(:)+x2(13)*e2(:)+KK(2)*x3(13)*e3(:)+x4(13)*e4(:)/KK(2)
+ q2(14,:)=-p0(:)+x1(14)*e1(:)+x2(14)*e2(:)+KK(2)*x3(14)*e3(:)+x4(14)*e4(:)/KK(2)
+ q2(15,:)=-p0(:)+x1(15)*e1(:)+x2(15)*e2(:)+KK(2)*x3(15)*e3(:)+x4(15)*e4(:)/KK(2)
+ q2(16,:)=-p0(:)+x1(16)*e1(:)+x2(16)*e2(:)+KK(2)*x3(16)*e3(:)+x4(16)*e4(:)/KK(2)
+ q2(17,:)=-p0(:)+x1(17)*e1(:)+x2(17)*e2(:)+KK(2)*x3(17)*e3(:)+x4(17)*e4(:)/KK(2)
+ q2(18,:)=-p0(:)+x1(18)*e1(:)+x2(18)*e2(:)+KK(2)*x3(18)*e3(:)+x4(18)*e4(:)/KK(2)
+ q2(19,:)=-p0(:)+x1(19)*e1(:)+x2(19)*e2(:)+KK(2)*x3(19)*e3(:)+x4(19)*e4(:)/KK(2)
+ q2(20,:)=-p0(:)+x1(20)*e1(:)+x2(20)*e2(:)+KK(2)*x3(20)*e3(:)+x4(20)*e4(:)/KK(2)
qt(:)=-p0(:)+x1t*e1(:)+x2t*e2(:)+x3t*e3(:)+x4t*e4(:)
endif
- end subroutine getq2_rm
+ end subroutine getq2_cm
- subroutine getq1_cm(nleg,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
+ subroutine getq1_cm(nleg,rank,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
use mglobal, only: G0c,KK,mu2g,MP12,mu2t
implicit none
- integer, intent(in) :: nleg, cut1
+ integer, intent(in) :: nleg, rank, cut1
real(ki), dimension(4), intent(in) :: p0, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
complex(ki), dimension(5,4), intent(out) :: q1
complex(ki), dimension(4), intent(out) :: qt
complex(ki), dimension(0:nleg-1), intent(in) :: msq
complex(ki), dimension(5) :: x1, x2
complex(ki), dimension(5) :: x3, x4
complex(ki) :: varx,x1t,x2t,x3t,x4t
integer :: j1
KK(1)=one
j1=cut1
mu2g(1)=zip
if (abs(msq(j1)).eq.zip) then
mu2g(1)=one
endif
MP12(1)=sdot(e1,e2)
G0c=(msq(j1)+mu2g(1))/two/MP12(1)
x1(1)=G0c
x2(1)=cone
x3(1)=czip
x4(1)=czip
x1(2)=-G0c
x2(2)=-cone
x3(2)=czip
x4(2)=czip
x1(3)=G0c
x2(3)=cone
x3(3)=cone
x4(3)=czip
x1(4)=czip
x2(4)=cone
x3(4)=-cone
x4(4)=G0c
x1(5)=czip
x2(5)=cone
x3(5)=cone
x4(5)=-G0c
mu2t(1)=half
varx=-(msq(j1)+mu2t(1))/two/MP12(1)
x1t=3.2_ki
x2t=1.2_ki
x3t=4.2_ki
x4t=(varx+x1t*x2t)/x3t
q1(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
q1(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
q1(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
q1(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+x3(4)*e3(:)+x4(4)*e4(:)
q1(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+x3(5)*e3(:)+x4(5)*e4(:)
qt(:)=-p0(:)+x1t *e1(:)+x2t *e2(:)+x3t *e3(:)+x4t *e4(:)
end subroutine getq1_cm
- subroutine getq1_rm(nleg,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
- use mglobal, only: G0,KK,mu2g,MP12,mu2t
- implicit none
- integer, intent(in) :: nleg, cut1
- real(ki), dimension(4), intent(in) :: p0, e1, e2
- complex(ki), dimension(4), intent(in) :: e3, e4
- complex(ki), dimension(5,4), intent(out) :: q1
- complex(ki), dimension(4), intent(out) :: qt
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), dimension(5) :: x1, x2
- complex(ki), dimension(5) :: x3, x4
- real(ki) :: varx,x1t,x2t,x3t,x4t
- integer :: j1
- KK(1)=one
- j1=cut1
- mu2g(1)=zip
- if (msq(j1).eq.zip) then
- mu2g(1)=one
- endif
- MP12(1)=sdot(e1,e2)
- G0=(msq(j1)+mu2g(1))/two/MP12(1)
- x1(1)=G0
- x2(1)=one
- x3(1)=zip
- x4(1)=zip
- x1(2)=-G0
- x2(2)=-one
- x3(2)=zip
- x4(2)=zip
- x1(3)=G0
- x2(3)=one
- x3(3)=one
- x4(3)=zip
- x1(4)=zip
- x2(4)=one
- x3(4)=-one
- x4(4)=G0
- x1(5)=zip
- x2(5)=one
- x3(5)=one
- x4(5)=-G0
- mu2t(1)=half
- varx=-(msq(j1)+mu2t(1))/two/MP12(1)
- x1t=3.2_ki
- x2t=1.2_ki
- x3t=4.2_ki
- x4t=(varx+x1t*x2t)/x3t
- q1(1,:)=-p0(:)+x1(1)*e1(:)+x2(1)*e2(:)+x3(1)*e3(:)+x4(1)*e4(:)
- q1(2,:)=-p0(:)+x1(2)*e1(:)+x2(2)*e2(:)+x3(2)*e3(:)+x4(2)*e4(:)
- q1(3,:)=-p0(:)+x1(3)*e1(:)+x2(3)*e2(:)+x3(3)*e3(:)+x4(3)*e4(:)
- q1(4,:)=-p0(:)+x1(4)*e1(:)+x2(4)*e2(:)+x3(4)*e3(:)+x4(4)*e4(:)
- q1(5,:)=-p0(:)+x1(5)*e1(:)+x2(5)*e2(:)+x3(5)*e3(:)+x4(5)*e4(:)
- qt(:)=-p0(:)+x1t *e1(:)+x2t *e2(:)+x3t *e3(:)+x4t *e4(:)
- end subroutine getq1_rm
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+!Added by HvD
+subroutine SampleL2(mu2nonzero,x1samplevalue,n,samplex3,nold,x1,x2,x3,x4,Fstep,A2,B2)
+!---------------------------------------------------------------!
+!Author: Hans van Deurzen !
+!Date: 25-05-2012 !
+!Description: Sampling for level 2 !
+!---------------------------------------------------------------!
+ use mglobal, only: FL2,mu2g,mu2vec2
+ implicit none
+! PARAMETERS=====================================================================================!
+ !external parameters
+ logical, intent(in ) :: mu2nonzero !mu2=0 or mu2!=0
+ logical, intent(in ) :: samplex3 !sample x3 or x4
+ real(ki), intent(in ) :: x1samplevalue !
+ integer, intent(in ) :: n !number of samplings
+ integer, intent(in ) :: Fstep !
+ real(ki), intent(in ) :: A2,B2 !
+ integer, intent(inout) :: nold !number of samplings before these
+ real(ki), intent(inout) :: x1(:), x2(:) !
+ complex(ki), intent(inout) :: x3(:), x4(:) !
+! real(ki), dimension(20), intent(inout) :: x1,x2
+! complex(ki), dimension(20), intent(inout) :: x3,x4
+ !internal parameters
+ real(ki) :: Finternal, x1internal, x2internal, theta
+ complex(ki) :: mu2internal
+ integer :: i
+! INITIALIZATION=================================================================================!
+ x1internal = x1samplevalue
+ Finternal = FL2(Fstep)
+ !Determine mu2
+ if(mu2nonzero) then
+ mu2internal=mu2g(2)
+ else !mu2==0
+ mu2internal=czip
+ endif
+! SAMPLE X3 OR X4 AND ASSIGN ALL MU2, X1 AND X2 THE VALUES DETERMINED ABOVE======================!
+ theta=twopi/n
+ do i=1,n
+ x1(nold+i)=x1internal
+ x2(nold+i)=A2*x1internal+B2
+ if (samplex3) then
+ x3(i+nold) = cos(theta*real(i-1,ki))-im*sin(theta*real(i-1,ki))
+ x4(i+nold) = Finternal/x3(i+nold)
+ else !sample x4
+ x4(i+nold) = cos(theta*real(i-1,ki))+im*sin(theta*real(i-1,ki))
+ x3(i+nold) = Finternal/x4(i+nold)
+ mu2vec2(i+nold) = mu2internal
+ endif
+ enddo
+ nold = nold + n
+end subroutine SampleL2
+
+subroutine FillFL2(x1,A,B,C,Fstep)
+! Product x3*x4 F(mu2,x1) in level2
+ use mglobal, only: FL2
+ implicit none
+ !external parameters
+ real(ki), intent(in) :: x1
+ real(ki), intent(in) :: A,B
+ complex(ki), intent(in) :: C
+ integer, intent(in) :: Fstep
+ FL2(Fstep) = A*x1**2 + B*x1 + C
+end subroutine FillFL2
end module mgetqs
diff --git a/samurai-2.1.1/mglobal.f90 b/samurai-2.1.1/mglobal.f90
index 0477fe5..7c2d3e8 100644
--- a/samurai-2.1.1/mglobal.f90
+++ b/samurai-2.1.1/mglobal.f90
@@ -1,93 +1,96 @@
module mglobal
use precision, only: ki
implicit none
private :: ki
!mgetc1.f90: common/FGzip/G0,KK,mu2,MP12,mu2t
! G0 ---> G0
! KK KK(1)
! mu2 mu2g(1)
! MP12 MP12(1)
! mu2t mu2t(1)
!mgetc1.f90: common/t1/resit,dens1t,mu2test
! resit ----> resit(1)
! dens1t ---> denst(1)
! mu2test --> mu2test(1)
!mgetc2.f90: common/Fzip/Fp,Fz,Fm,F1z,mu2,KK,Kmu,KB,MP12,mu2t
! Fp,Fz,Fm,F1z --> Fp,Fz,Fm,F1z
! KB ---> KB
! mu2 ---> mu2g(2)
! KK ---> KK(2)
! Kmu --> Kmu(2)
! MP12 ---> MP12(2)
! mu2t ---> mu2t(2)
!mgetc2.f90: common/t2/resit,dens2t,mu2test
! resit --> resit(2)
! dens2t --> denst(2)
! mu2test --> mu2test(2)
!mgetc3.f90: common/C0C1/C0,C1,mu2,MP12,KK,Kmu,mu2t
! C0,C1 ---> C0,C1
! mu2 ----> mu2g(3)
! MP12 ---> MP12(3)
! KK ----> KK(3)
! Kmu ---> Kmu(3)
! mu2t ---> mu2t(3)
!mgetc3.f90: common/t3/resit,dens3t,mu2test
! resit ---> resit(3)
! dens3t --> denst(3)
! mu2test -> mu2test(3)
!mgetqs.f90: common/FGzip/G0,KK,mu2,MP12,mu2t
! G0 ---> G0
! KK KK(1)
! mu2 mu2g(1)
! MP12 MP12(1)
! mu2t mu2t(1)
!mgetqs.f90: common/Fzip/Fp,Fz,Fm,F1z,mu2,KK,Kmu,KB,MP12,mu2t
! Fp,Fz,Fm,F1z --> Fp,Fz,Fm,F1z
! KB ---> KB
! mu2 ---> mu2g(2)
! KK ---> KK(2)
! Kmu --> Kmu(2)
! MP12 ---> MP12(2)
! mu2t ---> mu2t(2)
!mgetqs.f90: common/ds/dx1,dx2,dx3,dx4,dx5
! dxi --> dx(i)
!mgetqs.f90: common/C0C1/C0,C1,mu2,MP12,KK,Kmu,mu2t
! C0,C1 ---> C0,C1
! mu2 ----> mu2g(3)
! MP12 ---> MP12(3)
! KK ----> KK(3)
! Kmu ---> Kmu(3)
! mu2t ---> mu2t(3)
!mgetqs.f90: common/mp12mu2/MP12,mu2,mu2t
! mp12 ---> MP12(4)
! mu2 ---> mu2g(4)
! mu2t ---> mu2t(4)
!mgetc4.f90: common/ds/dx1,dx2,dx3,dx4,dx5
! dxi --> dx(i)
!mgetc4.f90: common/mp12mu2/mp12,mu2,mu2t
! mp12 ---> MP12(4)
! mu2 ---> mu2g(4)
! mu2t ---> mu2t(4)
!mgetc4.f90: common/t4/resi5t,dens4t,mu2test
! resi5t ---> resit(4)
! dens4t ---> denst(4)
! mu2test --> mu2test(4)
- real(ki), dimension(1:4) :: MP12
- real(ki), dimension(1:3) :: KK
- complex(ki), dimension(1:4) :: mu2g, mu2t, mu2test
- complex(ki), dimension(1:4) :: resit, denst
- real(ki), dimension(2:3) :: Kmu
- complex(ki), dimension(1:5) :: dx
- real(ki) :: Fp,Fz,Fm,F1z,KB,C0,C1,G0
- complex(ki) :: Fpc,Fzc,Fmc,F1zc,C0c,C1c,G0c
+ real(ki), dimension(1:4) :: MP12
+ real(ki), dimension(1:3) :: KK
+ complex(ki), dimension(1:4) :: mu2g, mu2t, mu2test
+ complex(ki), dimension(1:4) :: resit, denst
+ real(ki), dimension(2:3) :: Kmu
+ complex(ki), dimension(1:5) :: dx
+ complex(ki), dimension(1:20) :: mu2vec2
+ complex(ki), dimension(1:6) :: FL2
+ real(ki) :: x1s1,x1s2,y1,y2,y3
+ real(ki) :: Fp,Fz,Fm,F1z,KB,C0,C1,Cm1,Fp2,F11,F10
+ complex(ki) :: Fpc,Fzc,Fmc,F1zc,C0c,C1c,G0c,Fp2c,F11c, G0, G0mu
end module mglobal
diff --git a/samurai-2.1.1/mrestore.f90 b/samurai-2.1.1/mrestore.f90
index 08a8f98..ccf44f4 100644
--- a/samurai-2.1.1/mrestore.f90
+++ b/samurai-2.1.1/mrestore.f90
@@ -1,178 +1,179 @@
module mrestore
use precision
use constants
use save
use mfunctions
implicit none
private
public :: store1, store2, store3, store4, store5
public :: res1, res2, res3, res4, res5
contains
subroutine store5(icut5,cut5,p0,e1,e2,e3,e4,c5)
implicit none
integer, intent(in) :: icut5,cut5
real(ki), dimension(4), intent(in) :: p0, e1, e2
complex(ki), intent(in) :: c5
complex(ki), dimension(4), intent(in) :: e3, e4
sav5p0(icut5,:)=p0(:)
sav5e1(icut5,:)=e1(:)
sav5e2(icut5,:)=e2(:)
sav5e3(icut5,:)=e3(:)
sav5e4(icut5,:)=e4(:)
savc5(icut5)=c5
savcut5(icut5)=cut5
end subroutine store5
subroutine store4(icut4,cut4,L3,p0,e1,e2,e3,e4,c4)
implicit none
real(ki), dimension(4), intent(in) :: L3, p0, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
- complex(ki), dimension(0:4), intent(in) :: c4
+ complex(ki), dimension(0:5), intent(in) :: c4
integer, intent(in) :: icut4,cut4
savL3(icut4,:)=L3(:)
sav4p0(icut4,:)=p0(:)
sav4e1(icut4,:)=e1(:)
sav4e2(icut4,:)=e2(:)
sav4e3(icut4,:)=e3(:)
sav4e4(icut4,:)=e4(:)
savc4(icut4,:)=c4(:)
savcut4(icut4)=cut4
end subroutine store4
subroutine store3(icut3,cut3,p0,e1,e2,e3,e4,c3)
implicit none
real(ki), dimension(4), intent(in) :: p0, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
- complex(ki), dimension(0:9), intent(in) :: c3
+ complex(ki), dimension(0:14), intent(in) :: c3
integer, intent(in) :: icut3,cut3
sav3p0(icut3,:)=p0(:)
sav3e1(icut3,:)=e1(:)
sav3e2(icut3,:)=e2(:)
sav3e3(icut3,:)=e3(:)
sav3e4(icut3,:)=e4(:)
savc3(icut3,:)=c3(:)
savcut3(icut3)=cut3
end subroutine store3
subroutine store2(icut2,cut2,p0,e1,e2,e3,e4,c2)
implicit none
real(ki), dimension(4), intent(in) :: p0, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
- complex(ki), dimension(0:9), intent(in) :: c2
+ complex(ki), dimension(0:19), intent(in) :: c2
integer, intent(in) :: icut2,cut2
sav2p0(icut2,:)=p0(:)
sav2e1(icut2,:)=e1(:)
sav2e2(icut2,:)=e2(:)
sav2e3(icut2,:)=e3(:)
sav2e4(icut2,:)=e4(:)
savc2(icut2,:)=c2(:)
savcut2(icut2)=cut2
end subroutine store2
subroutine store1(icut1,cut1,p0,e1,e2,e3,e4,c1)
implicit none
real(ki), dimension(4), intent(in) :: p0, e1, e2
complex(ki), dimension(4), intent(in) :: e3, e4
- complex(ki), dimension(0:4), intent(in) :: c1
+ complex(ki), dimension(0:15), intent(in) :: c1
integer, intent(in) :: icut1,cut1
sav1p0(icut1,:)=p0(:)
sav1e1(icut1,:)=e1(:)
sav1e2(icut1,:)=e2(:)
sav1e3(icut1,:)=e3(:)
sav1e4(icut1,:)=e4(:)
savc1(icut1,:)=c1(:)
savcut1(icut1)=cut1
end subroutine store1
pure function res5(icut5,mu2)
implicit none
integer, intent(in) :: icut5
complex(ki), intent(in) :: mu2
complex(ki) :: res5
res5=savc5(icut5)*mu2
! res5=savc5(icut5)*mu2**2
end function res5
pure function res4(icut4,q,mu2)
implicit none
integer, intent(in) :: icut4
complex(ki), intent(in) :: mu2
complex(ki), dimension(4), intent(in) :: q
complex(ki) :: res4
real(ki), dimension(4) :: L3
complex(ki), dimension(4) :: e3, e4, pm
- complex(ki), dimension(0:4) :: c4
+ complex(ki), dimension(0:5) :: c4
L3(:)=savL3(icut4,:)
pm(:)=sav4p0(icut4,:)+q(:)
e3(:)=sav4e3(icut4,:)
e4(:)=sav4e4(icut4,:)
c4(:)=savc4(icut4,:)
res4=poly4(c4,pm,mu2,L3,e3,e4)
end function res4
pure function res3(icut3,q,mu2)
implicit none
integer, intent(in) :: icut3
complex(ki), intent(in) :: mu2
complex(ki), dimension(4), intent(in) :: q
complex(ki) :: res3
complex(ki), dimension(4) :: e3, e4, pm
- complex(ki) :: c3(0:9)
+ complex(ki) :: c3(0:14)
pm(:)=sav3p0(icut3,:)+q(:)
e3(:)=sav3e3(icut3,:)
e4(:)=sav3e4(icut3,:)
c3(:)=savc3(icut3,:)
res3=poly3(c3,pm,mu2,e3,e4)
end function res3
pure function res2(icut2,q,mu2)
implicit none
integer, intent(in) :: icut2
complex(ki), dimension(4), intent(in) :: q
complex(ki), intent(in) :: mu2
complex(ki) :: res2
real(ki), dimension(4) :: e2
complex(ki), dimension(4) :: e3,e4,pm
- complex(ki), dimension(0:9) :: c2
+ complex(ki), dimension(0:19) :: c2
pm(:)=sav2p0(icut2,:)+q(:)
e2(:)=sav2e2(icut2,:)
e3(:)=sav2e3(icut2,:)
e4(:)=sav2e4(icut2,:)
c2(:)=savc2(icut2,:)
res2=poly2(c2,pm,mu2,e2,e3,e4)
end function res2
- pure function res1(icut1,q)
+ pure function res1(icut1,q,mu2)
implicit none
integer, intent(in) :: icut1
complex(ki), dimension(4), intent(in) :: q
complex(ki) :: res1
+ complex(ki), intent(in) :: mu2
real(ki), dimension(4) :: e1, e2
complex(ki), dimension(4) :: e3, e4, pm
- complex(ki), dimension(0:4) :: c1
+ complex(ki), dimension(0:15) :: c1
pm(:)=sav1p0(icut1,:)+q(:)
e1(:)=sav1e1(icut1,:)
e2(:)=sav1e2(icut1,:)
e3(:)=sav1e3(icut1,:)
e4(:)=sav1e4(icut1,:)
c1(:)=savc1(icut1,:)
- res1=poly1(c1,pm,e1,e2,e3,e4)
+ res1=poly1(c1,pm,mu2,e1,e2,e3,e4)
end function res1
end module mrestore
diff --git a/samurai-2.1.1/msamurai.f90.in b/samurai-2.1.1/msamurai.f90.in
index 6fe5acf..bdc797d 100644
--- a/samurai-2.1.1/msamurai.f90.in
+++ b/samurai-2.1.1/msamurai.f90.in
@@ -1,1547 +1,1579 @@
-module msamurai
- use precision
- use constants
- use options
- use ncuts
- use notfirst
- use ltest
- use madds
- use mgetqs
- use mgetbase
- use mrestore
- use mgetc5
- use mgetc4
- use mgetc3
- use mgetc2
- use mgetc1
- use mtests
- use mtens, only: tensor_reconstruction, numetens
- implicit none
-
- private
-
- interface samurai
- module procedure samurai_rm
- module procedure samurai_cm
- end interface samurai
-
- interface InitDenominators
- module procedure InitDenominators_rm
- module procedure InitDenominators_cm
- end interface InitDenominators
-
- public :: initsamurai, exitsamurai, InitDenominators, samurai
- public :: samurai_cm, samurai_rm
-
-contains
-
- !---#[ subroutine initsamurai:
- subroutine initsamurai(ameth, asca, averb, atest, aresc)
-@case_with_avh@ use avh_olo, only: olo_onshell
- implicit none
- integer, intent(in) :: asca, averb, atest
- character(len=4), intent(in) :: ameth
- integer, intent(in), optional :: aresc
-
- call banner
-
-
- if (ameth.eq.'diag') then
- imeth = ameth
- meth_is_tree = .false.
- meth_is_diag = .true.
- elseif (ameth.eq.'tree') then
- imeth = ameth
- meth_is_tree = .true.
- meth_is_diag = .false.
- else
- write(6,*) 'incompatible value for imeth'
- write(6,*) 'imeth =','ameth'
- stop
- endif
-
- if ((asca.ge.1).and.(asca.le.4)) then
- isca = asca
- else
- write(6,*) 'incompatible value for isca'
- write(6,*) 'isca =',asca
- stop
- endif
-
- if ((averb.ge.0).or.(averb.le.3)) then
- verbosity = averb
- else
- write(6,*) 'incompatible value for verbosity'
- write(6,*) 'verbosity =',averb
- stop
- endif
-
- if ((atest.ge.0).or.(atest.le.3)) then
- itest = atest
- else
- write(6,*) 'incompatible value for itest'
- write(6,*) 'itest =',atest
- stop
- endif
-
- if (present(aresc)) then
- if ((0.le.aresc).and.(aresc.le.3)) then
- iresc = aresc
- else
- write(6,*) 'incompatible value for iresc'
- write(6,*) 'iresc =',aresc
- stop
- endif
- else
- iresc=0
- endif
-
- if (imeth.eq.'tree') itest=2
-
- if (isca .eq. 1) then
-@case_with_ql@ call qlinit
- elseif (isca .eq. 2) then
-@case_with_avh@ call olo_onshell(1.d-8)
- elseif (isca .eq. 4) then
-@case_with_lt@ call ltini
- end if
-
- 901 format(a40,a4,a10,I1,a15,I1,a11,I1)
-
- if (verbosity.gt.0) then
- if (notfirstp.eqv.(.false.)) then
- open(unit=iout,file='output.dat',status='unknown')
- write(iout,*) '-------------------------------------------&
- &----------------------- ---------------'
- write(iout,901) ' SAMURAI called with arguments: imeth = ',imeth,&
- & ' ; isca = ',isca,' ; verbosity = ',verbosity,' ; itest = ',itest
- write(iout,*) '-------------------------------------------------&
- &----------------- ---------------'
- notfirstp = .TRUE.
- endif
- endif
- if (itest.gt.0 .and. verbosity.gt.0) then
- if (notfirstd.eqv.(.false.)) then
- if (ibad.gt.0) then
- open(unit=ibad,file='bad.points',status='unknown')
- write(ibad,*) '-------------------------------------------------&
- &-------------------'
- write(ibad,904) ' Points that have been discarded by &
- &SAMURAI because failing itest = ',itest
- write(ibad,*) '-------------------------------------------------&
- &-------------------'
- endif
- notfirstd = .true.
- endif
- endif
-
- 904 format(a68,I1)
-
- call rtlimit
-
- end subroutine initsamurai
- !---#] subroutine initsamurai:
- !---#[ subroutine rtlimit:
- subroutine rtlimit
- implicit none
- real :: tpwlimit,tnnlimit,tnnlimit4,tnnlimit3,tnnlimit2,tnnlimit1
- integer :: ierr
- open(unit=10,file='ltest.dat',status='old',iostat=ierr)
-
- if (ierr.eq.0) then
- read(10,*)
- read(10,*)
- read(10,*) tpwlimit
- pwlimit = real(tpwlimit, ki)
- read(10,*) tnnlimit
- nnlimit = real(tnnlimit, ki)
- read(10,*) tnnlimit4
- lnnlimit4 = real(tnnlimit4, ki)
- read(10,*) tnnlimit3
- lnnlimit3 = real(tnnlimit3, ki)
- read(10,*) tnnlimit2
- lnnlimit2 = real(tnnlimit2, ki)
- read(10,*) tnnlimit1
- lnnlimit1 = real(tnnlimit1, ki)
-
- close(10)
- else
- pwlimit = 1.0E-03_ki
- nnlimit = 1.0E-03_ki
- lnnlimit4 = 1.0E-02_ki
- lnnlimit3 = 1.0E-02_ki
- lnnlimit2 = 1.0E-02_ki
- lnnlimit1 = 1.0E+01_ki
- end if
- end subroutine rtlimit
- !---#] subroutine rtlimit:
- !---#[ subroutine exitsamurai:
- subroutine exitsamurai()
- implicit none
-
- if (verbosity.gt.0) then
- close(iout)
- endif
-
- if (itest.gt.0) then
- if (ibad.gt.0) then
- close(ibad)
- endif
- endif
-
- if (isca.eq.4) then
-@case_with_lt@ call ltexi
- endif
- end subroutine exitsamurai
- !---#] subroutine exitsamurai:
- !---#[ subroutine banner:
- subroutine banner
- implicit none
-
- print*
- print*, ' *******************************************************&
- &*************'
- print*, ' ********************** SAMURAI - version @VERSION@'
- print*, ' *******************************************************&
- &*************'
- print*, ' * &
- & *'
- print*, ' * &
- & *'
- print*, ' * Authors: P. Mastrolia, G. Ossola, T. Reiter and F. Tr&
- &amontano *'
- print*, ' * &
- & *'
- print*, ' * pierpaolo.mastrolia@cern.ch &
- & *'
- print*, ' * gossola@citytech.cuny.edu &
- & *'
- print*, ' * reiterth@mpp.mpg.de &
- & *'
- print*, ' * francesco.tramontano@cern.ch &
- & *'
- print*, ' * &
- & *'
- print*, ' * For details please see: arXiv:1006.0710 &
- & *'
- print*, ' * &
- & *'
- print*, ' * On the web: http://cern.ch/samurai &
- & *'
- print*, ' * &
- & *'
- print*, ' *******************************************************&
- &*************'
- print*, ' * &
- & *'
- print*, ' * output files: <output.log> [ for verbosity.gt.0 ] &
- & *'
- print*, ' * &
- & *'
- print*, ' * <bad.points> [ for itest.gt.0 ] &
- & *'
- print*, ' * &
- & *'
- print*, ' *******************************************************&
- &*************'
- end subroutine banner
- !---#] subroutine banner:
- !---#[ subroutine InitDenominators_cm:
- pure subroutine InitDenominators_cm(nleg,Vi,msq,&
- &Q0,m0,Q1,m1,Q2,m2,Q3,m3,Q4,m4,Q5,m5,Q6,m6,Q7,m7)
- implicit none
- integer, intent(in) :: nleg
- real(ki), dimension(0:nleg-1,4), intent(out) :: Vi
- complex(ki), dimension(0:nleg-1), intent(out) :: msq
-
- real(ki), dimension(4), intent(in), optional :: Q0
- complex(ki), intent(in), optional :: m0
- real(ki), dimension(4), intent(in), optional :: Q1
- complex(ki), intent(in), optional :: m1
- real(ki), dimension(4), intent(in), optional :: Q2
- complex(ki), intent(in), optional :: m2
- real(ki), dimension(4), intent(in), optional :: Q3
- complex(ki), intent(in), optional :: m3
- real(ki), dimension(4), intent(in), optional :: Q4
- complex(ki), intent(in), optional :: m4
- real(ki), dimension(4), intent(in), optional :: Q5
- complex(ki), intent(in), optional :: m5
- real(ki), dimension(4), intent(in), optional :: Q6
- complex(ki), intent(in), optional :: m6
- real(ki), dimension(4), intent(in), optional :: Q7
- complex(ki), intent(in), optional :: m7
-
- if(present(Q0) .and. present(m0)) then
- Vi(0,:) = Q0
- msq(0) = m0*m0
- end if
- if(present(Q1) .and. present(m1)) then
- Vi(1,:) = Q1
- msq(1) = m1*m1
- end if
- if(present(Q2) .and. present(m2)) then
- Vi(2,:) = Q2
- msq(2) = m2*m2
- end if
- if(present(Q3) .and. present(m3)) then
- Vi(3,:) = Q3
- msq(3) = m3*m3
- end if
- if(present(Q4) .and. present(m4)) then
- Vi(4,:) = Q4
- msq(4) = m4*m4
- end if
- if(present(Q5) .and. present(m5)) then
- Vi(5,:) = Q5
- msq(5) = m5*m5
- end if
- if(present(Q6) .and. present(m6)) then
- Vi(6,:) = Q6
- msq(6) = m6*m6
- end if
- if(present(Q7) .and. present(m7)) then
- Vi(7,:) = Q7
- msq(7) = m7*m7
- end if
-
- end subroutine InitDenominators_cm
- !---#] subroutine InitDenominators_cm:
- !---#[ subroutine InitDenominators_rm:
- pure subroutine InitDenominators_rm(nleg,Vi,msq,&
- &Q0,m0,Q1,m1,Q2,m2,Q3,m3,Q4,m4,Q5,m5,Q6,m6,Q7,m7)
- implicit none
- integer, intent(in) :: nleg
- real(ki), dimension(0:nleg-1,4), intent(out) :: Vi
- real(ki), dimension(0:nleg-1), intent(out) :: msq
-
- real(ki), dimension(4), intent(in), optional :: Q0
- real(ki), intent(in), optional :: m0
- real(ki), dimension(4), intent(in), optional :: Q1
- real(ki), intent(in), optional :: m1
- real(ki), dimension(4), intent(in), optional :: Q2
- real(ki), intent(in), optional :: m2
- real(ki), dimension(4), intent(in), optional :: Q3
- real(ki), intent(in), optional :: m3
- real(ki), dimension(4), intent(in), optional :: Q4
- real(ki), intent(in), optional :: m4
- real(ki), dimension(4), intent(in), optional :: Q5
- real(ki), intent(in), optional :: m5
- real(ki), dimension(4), intent(in), optional :: Q6
- real(ki), intent(in), optional :: m6
- real(ki), dimension(4), intent(in), optional :: Q7
- real(ki), intent(in), optional :: m7
-
- if(present(Q0) .and. present(m0)) then
- Vi(0,:) = Q0
- msq(0) = m0*m0
- end if
- if(present(Q1) .and. present(m1)) then
- Vi(1,:) = Q1
- msq(1) = m1*m1
- end if
- if(present(Q2) .and. present(m2)) then
- Vi(2,:) = Q2
- msq(2) = m2*m2
- end if
- if(present(Q3) .and. present(m3)) then
- Vi(3,:) = Q3
- msq(3) = m3*m3
- end if
- if(present(Q4) .and. present(m4)) then
- Vi(4,:) = Q4
- msq(4) = m4*m4
- end if
- if(present(Q5) .and. present(m5)) then
- Vi(5,:) = Q5
- msq(5) = m5*m5
- end if
- if(present(Q6) .and. present(m6)) then
- Vi(6,:) = Q6
- msq(6) = m6*m6
- end if
- if(present(Q7) .and. present(m7)) then
- Vi(7,:) = Q7
- msq(7) = m7*m7
- end if
-
- end subroutine InitDenominators_rm
- !---#] subroutine InitDenominators_rm:
- !---#[ subroutine samurai_cm:
- subroutine samurai_cm(numeval,tot,totr,Vi,msq,nleg,rank,istop,scale2,ok,&
- cache_flag, scalar_cache)
- use options, only: use_maccu
- use maccu
- implicit none
-
- integer, intent(in) :: nleg, rank, istop
- real(ki), intent(in) :: scale2
- complex(ki), intent(out) :: totr
- complex(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- complex(ki), dimension(-2:0), intent(out) :: tot
- logical, intent(out) :: ok
- logical, intent(inout), optional :: cache_flag
- complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
-
- type(accumulator_type), dimension(-2:0) :: acc_re, acc_im
- type(accumulator_type) :: accr_re, accr_im
-
- integer :: i,j,k,j1,j2,j3,j4,j5,icut5,icut4,icut3,icut2,icut1
- integer :: cut5,cut4,cut3,cut2,cut1,n1,ep
- integer :: diff
- integer :: cache_offset
-
- complex(ki) :: mu2, mu2test
- real(ki) :: r1, r2, factor
- real(ki), dimension(4):: k1, k2, k3, e1, e2, p0, L3
-
- complex(ki) :: c5,tot2r,tot3r,tot4r
- complex(ki), dimension(5,4) :: q4, q1
- complex(ki), dimension(10,4) :: q3, q2
- complex(ki), dimension(4):: q5, e3, e4, qt, qtest
- complex(ki), dimension(0:4) :: c4, c1
- complex(ki), dimension(0:9) :: c3, c2
- complex(ki), dimension(-2:0) :: tot4, tot3, tot2, tot1
-
- logical :: rescue
-
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
-
- if (nleg.gt.maxleg) then
- write(6,*) 'reduction called for nleg.gt.maxleg'
- write(6,*) 'maxleg, nleg ',maxleg,nleg
- write(6,*) 'please change the values max1,..,max5,maxleg &
- &in constants.f90'
- write(6,*) 'and compile again the library'
- stop
- endif
-
- cache_offset = 0
- diff = nleg-rank
-
- if(verbosity.gt.0)then
- write(iout,*)
- write(iout,*)
- write(iout,*) 'Denominators: '
- do k=0,nleg-1
- write(iout,902) ' Pi(',k,') = ', Vi(k,:)
- write(iout,903) 'msq(',k,') = ', msq(k)
- write(iout,*)
- enddo
- write(iout,*)' '
- endif
-
- totr=czip
- tot4r=czip
- tot3r=czip
- tot2r=czip
-
- tot(:)=czip
- tot4(:)=czip
- tot3(:)=czip
- tot2(:)=czip
- tot1(:)=czip
-
- rescue = .false.
-
- if (use_maccu) then
- do ep=-2,0
- acc_re(ep)%a(:) = 0.0_ki
- acc_im(ep)%a(:) = 0.0_ki
- end do
- accr_re%a(:) = 0.0_ki
- accr_im%a(:) = 0.0_ki
- end if
-
-! 5 continue
-
-!!$ if ( (iresc.eq.1).or.(iresc.eq.2).or.&
-!!$ ((iresc.eq.3).and.(rescue))) then
-!!$ call tensor_reconstruction(numeval,nleg,rank)
-!!$ if (iresc.eq.1) goto 6
-!!$ if ( (iresc.eq.2).or.&
-!!$ ((iresc.eq.3).and.(rescue)) ) then
-!!$
-!!$ ! Last parameter sets tot_or_rat in golem95
-!!$ ! false -- full reconstruction
-!!$ ! true -- rational part only
-!!$ tot = addtens(rank,nleg,Vi,msq,scale2,.false.)
-!!$ ok = .true.
-!!$ goto 100
-!!$ endif
-
- notfirsti = .false.
-
- if (iresc.eq.1) then
- call tensor_reconstruction(numeval,nleg,rank)
- endif
-
-! 6 continue
-
- if (nleg.ge.5) then
- goto 10
- elseif (nleg.eq.4) then
- goto 20
- elseif (nleg.eq.3) then
- goto 30
- elseif (nleg.eq.2) then
- goto 40
- elseif ((nleg.eq.1).or.(nleg.le.0)) then
- goto 50
- endif
-
- 10 continue
-
- if(verbosity.gt.0)then
- write(iout,*) 'Pentagon coefficients: '
- endif
-
-!--- Quintuple cuts
- icut5=1
- do j5=4,nleg-1
- do j4=3,j5-1
- do j3=2,j4-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut5=j5*10000+j4*1000+j3*100+j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- k2(n1)=Vi(j1,n1)-Vi(j5,n1)
- p0(n1)=Vi(j1,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq5(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
-
- if (iresc.eq.1) then
- call getc5(numetens,nleg,c5,cut5,Vi,msq,q5,mu2)
- else
- call getc5(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
- endif
-
- call store5(icut5,cut5,p0,e1,e2,e3,e4,c5)
-
- if(verbosity.gt.0)then
- write(iout,9005) 'c5(', cut5,') = (',real(c5),',',aimag(c5),' )'
- write(iout,*)
- endif
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut5=icut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- nc5=icut5-1
-
- if (istop.eq.5) goto 99
-
- 20 continue
-
- if(verbosity.gt.0)then
- write(iout,*) 'Box coefficients: '
- endif
-
-
-!--- Quadruple cuts
- icut4=1
- do j4=3,nleg-1
- do j3=2,j4-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut4=j4*1000+j3*100+j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- k2(n1)=Vi(j1,n1)-Vi(j4,n1)
- k3(n1)=Vi(j3,n1)-Vi(j1,n1)
- p0(n1)=Vi(j1,n1)
- L3(n1)=Vi(j4,n1)-Vi(j3,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq4(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
-
- if (iresc.eq.1) then
- call getc4(numetens,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
- else
- call getc4(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest4(numeval,cut4,c4,qt,p0,L3,e3,e4,ok)
- call store4(icut4,cut4,L3,p0,e1,e2,e3,e4,c4)
- if (present(cache_flag)) then
- call add4_cm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add4_cm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,4
- write(iout,9004) 'c4(', cut4,',',i,') = (',real(c4(i)),',',aimag(c4(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot4r)
- call add_accu(acc_re(:), acc_im(:), tot4(:))
- else
- tot(:)=tot(:)+tot4(:)
- totr=totr+tot4r
- end if
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- k3(:)=0.0_ki
- p0(:)=0.0_ki
- L3(:)=0.0_ki
-
- icut4=icut4+1
- enddo
- enddo
- enddo
- enddo
- nc4=icut4-1
-
-
- if (istop.eq.4) goto 99
-
- 30 continue
-
- if (diff.ge.4.and.itest.ne.1) goto 93
-
- if(verbosity.gt.0.and.diff.le.3)then
- write(iout,*) 'Triangle coefficients: '
- endif
-
-!--- Triple cuts
- icut3=1
- do j3=2,nleg-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut3=j3*100+j2*10+j1
-
- k1(:)=Vi(j2,:)-Vi(j1,:)
- k2(:)=Vi(j1,:)-Vi(j3,:)
- p0(:)=Vi(j1,:)
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
-
- call getq3(nleg,rank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
-
- if (iresc.eq.1) then
- call getc3(numetens,nleg,rank,c3,cut3,q3,qt,Vi,msq)
- else
- call getc3(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest3(numeval,cut3,c3,qt,p0,e3,e4,ok)
- call store3(icut3,cut3,p0,e1,e2,e3,e4,c3)
- if (present(cache_flag)) then
- call add3_cm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add3_cm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2)
- end if
-
- if(verbosity.gt.0.and.diff.le.3)then
- do i=0,9
- write(iout,9003) 'c3(',cut3,',',i,') = (',real(c3(i)),',',aimag(c3(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot3r)
- call add_accu(acc_re(:), acc_im(:), tot3(:))
- else
- tot(:)=tot(:)+tot3(:)
- totr=totr+tot3r
- end if
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut3=icut3+1
- enddo
- enddo
- enddo
- nc3=icut3-1
-
- if (istop.eq.3) goto 99
-
- 40 continue
-
- if (diff.ge.3) goto 95
-
- if(verbosity.gt.0)then
- write(iout,*) 'Bubble coefficients: '
- endif
-
-!--- Double cuts
- icut2=1
- do j2=1,nleg-1
- do j1=0,j2-1
-
- cut2=j2*10+j1
-
- k1(:)=Vi(j2,:)-Vi(j1,:)
- p0(:)=Vi(j1,:)
-
-
- if (abs(abs(k1(4))-1.0_ki) .lt. 0.1_ki) then
- factor = 0.345_ki
- else
- factor = one
- end if
- k2(1)=-sign(factor/rt3,k1(1))
- k2(2)=-sign(factor/rt3,k1(2))
- k2(3)=-sign(factor/rt3,k1(3))
- k2(4)= sign(factor,k1(4))
-
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
-
- call getq2(nleg,rank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
-
- if (iresc.eq.1) then
- call getc2(numetens,nleg,rank,c2,cut2,q2,qt,Vi,msq)
- else
- call getc2(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest2(numeval,cut2,c2,qt,p0,e2,e3,e4,ok)
- call store2(icut2,cut2,p0,e1,e2,e3,e4,c2)
- if (present(cache_flag)) then
- call add2_cm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2, &
- & cache_flag, cache_offset, scalar_cache)
- else
- call add2_cm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,9
- write(iout,9002) 'c2(',cut2,',',i,') = (', &
- & real(c2(i)),',',aimag(c2(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot2r)
- call add_accu(acc_re(:), acc_im(:), tot2(:))
- else
- tot(:)=tot(:)+tot2(:)
- totr=totr+tot2r
- end if
-
-!--- nullify k1,k2,p0
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut2=icut2+1
- enddo
- enddo
- nc2=icut2-1
-
- if (istop.eq.2) goto 99
-
- 50 continue
-
- if (diff.ge.2) goto 97
-
- if(verbosity.gt.0)then
- write(iout,*) 'Tadpole coefficients: '
- endif
-
-
-!--- Single cut
- icut1=1
- do j1=0,nleg-1
-
- cut1=j1
-
- k1(1)=+one/rt3
- k1(2)=-one/rt3
- k1(3)=+one/rt3
- k1(4)=+two
- k2(1)=+one/rt2
- k2(2)=-one/rt2
- k2(3)=+one/rt2
- k2(4)=+rt3
-
- p0(:)=Vi(j1,:)
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq1(nleg,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
-
- if (iresc.eq.1) then
- call getc1(numetens,nleg,rank,c1,cut1,q1,qt,Vi,msq)
- else
- call getc1(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest1(numeval,cut1,c1,qt,p0,e1,e2,e3,e4,ok)
- call store1(icut1,cut1,p0,e1,e2,e3,e4,c1)
-
- if (present(cache_flag)) then
- call add1_cm(nleg,c1,cut1,msq,tot1,scale2,&
- & cache_flag, cache_offset, scalar_cache)
- else
- call add1_cm(nleg,c1,cut1,msq,tot1,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,4
- write(iout,9002) 'c1(',cut1,',',i,') = (',real(c1(i)),',',aimag(c1(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(acc_re, acc_im, tot1)
- else
- tot(:)=tot(:)+tot1(:)
- end if
-
-!--- nullify k1,k2,p0
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- p0(:)=0.0_ki
-
- icut1=icut1+1
- enddo
- nc1=icut1-1
-
- 93 continue
-
- do j=0,9
- c3(j)=czip
- enddo
-
- 95 continue
-
- do j=0,9
- c2(j)=czip
- enddo
-
- 97 continue
-
- do j=0,4
- c1(j)=czip
- enddo
-
- 99 continue
-
- if (use_maccu) then
- tot = reduce_accu(acc_re, acc_im)
- totr = reduce_accu(accr_re, accr_im)
- end if
-
-
-! TEST N=N -------------------------------------------
- if (itest.eq.1) then
- qtest=10.3_ki*cone
- mu2test=13.0_ki
- call nntest(numeval,qtest,mu2test,nleg,Vi,msq,ok)
- endif
-!-----------------------------------------------------
-
-! POWER test ----------------------------------
- if (itest.eq.3) call pwtest(nleg,rank,ok)
-! ---------------------------------------------
-
-!!$ if ((itest.eq.3).and.(iresc.eq.3).and.(ok.eqv.(.false.))) then
-!!$ rescue = .true.
-!!$ print*, 'eccolo'
-!!$ goto 5
-!!$ endif
-
- ! 100 continue
-
- if (ok) then
-
- if(verbosity.gt.0)then
- write(iout,*)
- write(iout,*)' Result: '
- write(iout,*)' Double Pole = ', tot(-2)
- write(iout,*)' Single Pole = ', tot(-1)
- write(iout,*)' Finite Part = ', tot(0)
- write(iout,*)
- write(iout,*)'[Rational Part = ', totr,']'
- write(iout,*)
- write(iout,*)
- endif
-
- else
-
- if(ibad.gt.0.and.verbosity.gt.0)then
- write(ibad,*) 'Denominators: '
- do k=0,nleg-1
- write(ibad,902) ' Pi(',k,') = ', Vi(k,:)
- write(ibad,903) 'msq(',k,') = ', msq(k)
- write(ibad,*)
- enddo
- write(ibad,*)'---------------------------------------- '
- write(ibad,*)' '
- endif
- endif
-
- if(present(cache_flag)) cache_flag = .true.
-
- 902 format(a4,I1,a4,4(D24.15))
- 903 format(a4,I1,a4,2(D24.15))
-
- 9005 format(A3,I5,A6,D24.15,A1,D24.15,A3)
- 9004 format(A3,I4,A1,I1,A5,D24.15,A1,D24.15,A3)
- 9003 format(A3,I3,A1,I1,A6,D24.15,A1,D24.15,A3)
- 9002 format(A3,I2,A1,I1,A7,D24.15,A1,D24.15,A3)
-
- end subroutine samurai_cm
- !---#] subroutine samurai_cm:
- !---#[ subroutine samurai_rm:
- subroutine samurai_rm(numeval,tot,totr,Vi,msq,nleg,rank,istop,scale2,ok,&
- cache_flag, scalar_cache)
- use options, only: use_maccu
- use maccu
- implicit none
-
- integer, intent(in) :: nleg, rank, istop
- real(ki), intent(in) :: scale2
- complex(ki), intent(out) :: totr
- real(ki), dimension(0:nleg-1), intent(in) :: msq
- real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
- complex(ki), dimension(-2:0), intent(out) :: tot
- logical, intent(out) :: ok
- logical, intent(inout), optional :: cache_flag
- complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
-
- type(accumulator_type), dimension(-2:0) :: acc_re, acc_im
- type(accumulator_type) :: accr_re, accr_im
-
- integer :: i,j,k,j1,j2,j3,j4,j5,icut5,icut4,icut3,icut2,icut1
- integer :: cut5,cut4,cut3,cut2,cut1,n1,ep
- integer :: diff
- integer :: cache_offset
-
- complex(ki) :: mu2, mu2test
- real(ki) :: r1, r2, factor
- real(ki), dimension(4):: k1, k2, k3, e1, e2, p0, L3
-
- complex(ki) :: c5,tot2r,tot3r,tot4r
- complex(ki), dimension(5,4) :: q4, q1
- complex(ki), dimension(10,4) :: q3, q2
- complex(ki), dimension(4):: q5, e3, e4, qt, qtest
- complex(ki), dimension(0:4) :: c4, c1
- complex(ki), dimension(0:9) :: c3, c2
- complex(ki), dimension(-2:0) :: tot4, tot3, tot2, tot1
-
- logical :: rescue
-
- interface
- function numeval(ncut, Q, mu2)
- use precision
- implicit none
- integer, intent(in) :: ncut
- complex(ki), dimension(4), intent(in) :: Q
- complex(ki), intent(in) :: mu2
- complex(ki) :: numeval
- end function numeval
- end interface
-
- if (nleg.gt.maxleg) then
- write(6,*) 'reduction called for nleg.gt.maxleg'
- write(6,*) 'maxleg, nleg ',maxleg,nleg
- write(6,*) 'please change the values max1,..,max5,maxleg &
- &in constants.f90'
- write(6,*) 'and compile again the library'
- stop
- endif
-
- cache_offset = 0
- diff = nleg-rank
-
- if(verbosity.gt.0)then
- write(iout,*)
- write(iout,*)
- write(iout,*) 'Denominators: '
- do k=0,nleg-1
- write(iout,902) ' Pi(',k,') = ', Vi(k,:)
- write(iout,903) 'msq(',k,') = ', msq(k)
- write(iout,*)
- enddo
- write(iout,*)' '
- endif
-
- totr=czip
- tot4r=czip
- tot3r=czip
- tot2r=czip
-
- tot(:)=czip
- tot4(:)=czip
- tot3(:)=czip
- tot2(:)=czip
- tot1(:)=czip
-
- rescue = .false.
-
- if (use_maccu) then
- do ep=-2,0
- acc_re(ep)%a(:) = 0.0_ki
- acc_im(ep)%a(:) = 0.0_ki
- end do
- accr_re%a(:) = 0.0_ki
- accr_im%a(:) = 0.0_ki
- end if
-
-! 5 continue
-
-!!$ if ( (iresc.eq.1).or.(iresc.eq.2).or.&
-!!$ ((iresc.eq.3).and.(rescue))) then
-!!$ call tensor_reconstruction(numeval,nleg,rank)
-!!$ if (iresc.eq.1) goto 6
-!!$ if ( (iresc.eq.2).or.&
-!!$ ((iresc.eq.3).and.(rescue)) ) then
-!!$
-!!$ ! Last parameter sets tot_or_rat in golem95
-!!$ ! false -- full reconstruction
-!!$ ! true -- rational part only
-!!$ tot = addtens(rank,nleg,Vi,msq,scale2,.false.)
-!!$ ok = .true.
-!!$ goto 100
-!!$ endif
-
- notfirsti = .false.
-
- if (iresc.eq.1) then
- call tensor_reconstruction(numeval,nleg,rank)
- endif
-
-! 6 continue
-
- if (nleg.ge.5) then
- goto 10
- elseif (nleg.eq.4) then
- goto 20
- elseif (nleg.eq.3) then
- goto 30
- elseif (nleg.eq.2) then
- goto 40
- elseif ((nleg.eq.1).or.(nleg.le.0)) then
- goto 50
- endif
-
- 10 continue
-
- if(verbosity.gt.0)then
- write(iout,*) 'Pentagon coefficients: '
- endif
-
-!--- Quintuple cuts
- icut5=1
- do j5=4,nleg-1
- do j4=3,j5-1
- do j3=2,j4-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut5=j5*10000+j4*1000+j3*100+j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- k2(n1)=Vi(j1,n1)-Vi(j5,n1)
- p0(n1)=Vi(j1,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq5(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
-
- if (iresc.eq.1) then
- call getc5(numetens,nleg,c5,cut5,Vi,msq,q5,mu2)
- else
- call getc5(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
- endif
-
- call store5(icut5,cut5,p0,e1,e2,e3,e4,c5)
-
- if(verbosity.gt.0)then
- write(iout,9005) 'c5(', cut5,') = (',real(c5),',',aimag(c5),' )'
- write(iout,*)
- endif
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut5=icut5+1
- enddo
- enddo
- enddo
- enddo
- enddo
- nc5=icut5-1
-
- if (istop.eq.5) goto 99
-
- 20 continue
-
- if(verbosity.gt.0)then
- write(iout,*) 'Box coefficients: '
- endif
-
-
-!--- Quadruple cuts
- icut4=1
- do j4=3,nleg-1
- do j3=2,j4-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut4=j4*1000+j3*100+j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- k2(n1)=Vi(j1,n1)-Vi(j4,n1)
- k3(n1)=Vi(j3,n1)-Vi(j1,n1)
- p0(n1)=Vi(j1,n1)
- L3(n1)=Vi(j4,n1)-Vi(j3,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq4(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
-
- if (iresc.eq.1) then
- call getc4(numetens,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
- else
- call getc4(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest4(numeval,cut4,c4,qt,p0,L3,e3,e4,ok)
- call store4(icut4,cut4,L3,p0,e1,e2,e3,e4,c4)
-
- if (present(cache_flag)) then
- call add4_rm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add4_rm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,4
- write(iout,9004) 'c4(', cut4,',',i,') = (',real(c4(i)),',',aimag(c4(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot4r)
- call add_accu(acc_re(:), acc_im(:), tot4(:))
- else
- tot(:)=tot(:)+tot4(:)
- totr=totr+tot4r
- end if
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- k3(:)=0.0_ki
- p0(:)=0.0_ki
- L3(:)=0.0_ki
-
- icut4=icut4+1
- enddo
- enddo
- enddo
- enddo
- nc4=icut4-1
-
-
- if (istop.eq.4) goto 99
-
- 30 continue
-
- if (diff.ge.4.and.itest.ne.1) goto 93
-
- if(verbosity.gt.0.and.diff.le.3)then
- write(iout,*) 'Triangle coefficients: '
- endif
-
-!--- Triple cuts
- icut3=1
- do j3=2,nleg-1
- do j2=1,j3-1
- do j1=0,j2-1
-
- cut3=j3*100+j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- k2(n1)=Vi(j1,n1)-Vi(j3,n1)
- p0(n1)=Vi(j1,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq3(nleg,rank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
-
- if (iresc.eq.1) then
- call getc3(numetens,nleg,rank,c3,cut3,q3,qt,Vi,msq)
- else
- call getc3(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest3(numeval,cut3,c3,qt,p0,e3,e4,ok)
- call store3(icut3,cut3,p0,e1,e2,e3,e4,c3)
- if (present(cache_flag)) then
- call add3_rm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add3_rm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2)
- end if
-
- if(verbosity.gt.0.and.diff.le.3)then
- do i=0,9
- write(iout,9003) 'c3(',cut3,',',i,') = (',real(c3(i)),',',aimag(c3(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot3r)
- call add_accu(acc_re(:), acc_im(:), tot3(:))
- else
- tot(:)=tot(:)+tot3(:)
- totr=totr+tot3r
- end if
-
-!--- nullify all
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- k2(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut3=icut3+1
- enddo
- enddo
- enddo
- nc3=icut3-1
-
- if (istop.eq.3) goto 99
-
- 40 continue
-
- if (diff.ge.3) goto 95
-
- if(verbosity.gt.0)then
- write(iout,*) 'Bubble coefficients: '
- endif
-
-!--- Double cuts
- icut2=1
- do j2=1,nleg-1
- do j1=0,j2-1
-
- cut2=j2*10+j1
-
- do n1=1,4
- k1(n1)=Vi(j2,n1)-Vi(j1,n1)
- p0(n1)=Vi(j1,n1)
- enddo
-
-
- if (abs(abs(k1(4))-1.0_ki) .lt. 0.1_ki) then
- factor = 0.345_ki
- else
- factor = one
- end if
-
- k2(1)=-sign(factor/rt3,k1(1))
- k2(2)=-sign(factor/rt3,k1(2))
- k2(3)=-sign(factor/rt3,k1(3))
- k2(4)= sign(factor,k1(4))
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
-
- call getq2(nleg,rank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
-
- if (iresc.eq.1) then
- call getc2(numetens,nleg,rank,c2,cut2,q2,qt,Vi,msq)
- else
- call getc2(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest2(numeval,cut2,c2,qt,p0,e2,e3,e4,ok)
- call store2(icut2,cut2,p0,e1,e2,e3,e4,c2)
-
- if (present(cache_flag)) then
- call add2_rm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add2_rm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,9
- write(iout,9002) 'c2(',cut2,',',i,') = (',real(c2(i)),',',aimag(c2(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(accr_re, accr_im, tot2r)
- call add_accu(acc_re(:), acc_im(:), tot2(:))
- else
- tot(:)=tot(:)+tot2(:)
- totr=totr+tot2r
- end if
-
-!--- nullify k1,k2,p0
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- k1(:)=0.0_ki
- p0(:)=0.0_ki
-
- icut2=icut2+1
- enddo
- enddo
- nc2=icut2-1
-
- if (istop.eq.2) goto 99
-
- 50 continue
-
- if (diff.ge.2) goto 97
-
- if(verbosity.gt.0)then
- write(iout,*) 'Tadpole coefficients: '
- endif
-
-
-!--- Single cut
- icut1=1
- do j1=0,nleg-1
-
- cut1=j1
-
- k1(1)=+one/rt3
- k1(2)=-one/rt3
- k1(3)=+one/rt3
- k1(4)=+two
-
- k2(1)=+one/rt2
- k2(2)=-one/rt2
- k2(3)=+one/rt2
- k2(4)=+rt3
-
- do n1=1,4
- p0(n1)=Vi(j1,n1)
- enddo
-
- call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
- call getq1(nleg,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
-
- if (iresc.eq.1) then
- call getc1(numetens,nleg,rank,c1,cut1,q1,qt,Vi,msq)
- else
- call getc1(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
- endif
-
- if (itest.eq.2) call lnntest1(numeval,cut1,c1,qt,p0,e1,e2,e3,e4,ok)
- call store1(icut1,cut1,p0,e1,e2,e3,e4,c1)
-
- if (present(cache_flag)) then
- call add1_rm(nleg,c1,cut1,msq,tot1,scale2,&
- cache_flag, cache_offset, scalar_cache)
- else
- call add1_rm(nleg,c1,cut1,msq,tot1,scale2)
- end if
-
- if(verbosity.gt.0)then
- do i=0,4
- write(iout,9002) 'c1(',cut1,',',i,') = (',real(c1(i)),',',&
- & aimag(c1(i)),' )'
- enddo
- write(iout,*)
- endif
-
- if (use_maccu) then
- call add_accu(acc_re, acc_im, tot1)
- else
- tot(:)=tot(:)+tot1(:)
- end if
-
-
-!--- nullify k1,k2,p0
- r1=zip
- r2=zip
- e1(:)=0.0_ki
- e2(:)=0.0_ki
- e3(:)=czip
- e4(:)=czip
- p0(:)=0.0_ki
-
- icut1=icut1+1
- enddo
- nc1=icut1-1
-
- 93 continue
-
- do j=0,9
- c3(j)=czip
- enddo
-
- 95 continue
-
- do j=0,9
- c2(j)=czip
- enddo
-
- 97 continue
-
- do j=0,4
- c1(j)=czip
- enddo
-
- 99 continue
-
- if (use_maccu) then
- tot = reduce_accu(acc_re, acc_im)
- totr = reduce_accu(accr_re, accr_im)
- end if
-
-
-! TEST N=N -------------------------------------------
- if (itest.eq.1) then
- qtest=10.3_ki*cone
- mu2test=13.0_ki
- call nntest(numeval,qtest,mu2test,nleg,Vi,msq,ok)
- endif
-!-----------------------------------------------------
-
-! POWER test ----------------------------------
- if (itest.eq.3) call pwtest(nleg,rank,ok)
-! ---------------------------------------------
-
-!!$ if ((itest.eq.3).and.(iresc.eq.3).and.(ok.eqv.(.false.))) then
-!!$ rescue = .true.
-!!$ print*, 'eccolo'
-!!$ goto 5
-!!$ endif
-
- ! 100 continue
-
- if (ok) then
-
- if(verbosity.gt.0)then
- write(iout,*)
- write(iout,*)' Result: '
- write(iout,*)' Double Pole = ', tot(-2)
- write(iout,*)' Single Pole = ', tot(-1)
- write(iout,*)' Finite Part = ', tot(0)
- write(iout,*)
- write(iout,*)'[Rational Part = ', totr,']'
- write(iout,*)
- write(iout,*)
- endif
-
- else
-
- if(ibad.gt.0.and.verbosity.gt.0)then
- write(ibad,*) 'Denominators: '
- do k=0,nleg-1
- write(ibad,902) ' Pi(',k,') = ', Vi(k,:)
- write(ibad,903) 'msq(',k,') = ', msq(k)
- write(ibad,*)
- enddo
- write(ibad,*)'---------------------------------------- '
- write(ibad,*)' '
- endif
- endif
-
- if (present(cache_flag)) cache_flag = .true.
-
- 902 format(a4,I1,a4,4(D24.15))
- 903 format(a4,I1,a4,1(D24.15))
-
- 9005 format(A3,I5,A6,D24.15,A1,D24.15,A3)
- 9004 format(A3,I4,A1,I1,A5,D24.15,A1,D24.15,A3)
- 9003 format(A3,I3,A1,I1,A6,D24.15,A1,D24.15,A3)
- 9002 format(A3,I2,A1,I1,A7,D24.15,A1,D24.15,A3)
-
- end subroutine samurai_rm
- !---#] subroutine samurai_rm:
-end module msamurai
-
+module msamurai
+ use precision
+ use constants
+ use options
+ use ncuts
+ use notfirst
+ use ltest
+ use madds
+ use mgetqs
+ use mgetbase
+ use mrestore
+ use mgetc5
+ use mgetc4
+ use mgetc3
+ use mgetc2
+ use mgetc1
+ use mtests
+ use mtens, only: tensor_reconstruction, numetens
+ use mglobal, only: mu2g
+ implicit none
+
+ private
+
+ interface samurai
+ module procedure samurai_rm
+ module procedure samurai_cm
+ end interface samurai
+
+ interface InitDenominators
+ module procedure InitDenominators_rm
+ module procedure InitDenominators_cm
+ end interface InitDenominators
+
+ public :: initsamurai, exitsamurai, InitDenominators, samurai
+ public :: samurai_cm, samurai_rm
+
+contains
+
+ !---#[ subroutine initsamurai:
+ subroutine initsamurai(ameth, asca, averb, atest, aresc)
+@case_with_avh@ use avh_olo, only: olo_onshell
+ implicit none
+ integer, intent(in) :: asca, averb, atest
+ character(len=4), intent(in) :: ameth
+ integer, intent(in), optional :: aresc
+
+ call banner
+
+
+ if (ameth.eq.'diag') then
+ imeth = ameth
+ meth_is_tree = .false.
+ meth_is_diag = .true.
+ elseif (ameth.eq.'tree') then
+ imeth = ameth
+ meth_is_tree = .true.
+ meth_is_diag = .false.
+ else
+ write(6,*) 'incompatible value for imeth'
+ write(6,*) 'imeth =','ameth'
+ stop
+ endif
+
+ if ((asca.ge.1).and.(asca.le.4)) then
+ isca = asca
+ else
+ write(6,*) 'incompatible value for isca'
+ write(6,*) 'isca =',isca
+ stop
+ endif
+
+ if ((averb.ge.0).or.(averb.le.3)) then
+ verbosity = averb
+ else
+ write(6,*) 'incompatible value for verbosity'
+ write(6,*) 'verbosity =',averb
+ stop
+ endif
+
+ if ((atest.ge.0).or.(atest.le.3)) then
+ itest = atest
+ else
+ write(6,*) 'incompatible value for itest'
+ write(6,*) 'itest =',atest
+ stop
+ endif
+
+ if (present(aresc)) then
+ if ((0.le.aresc).and.(aresc.le.3)) then
+ iresc = aresc
+ else
+ write(6,*) 'incompatible value for iresc'
+ write(6,*) 'iresc =',aresc
+ stop
+ endif
+ else
+ iresc=0
+ endif
+
+ if (imeth.eq.'tree') itest=2
+
+ if (isca .eq. 1) then
+@case_with_ql@ call qlinit
+ elseif (isca .eq. 2) then
+@case_with_avh@ call olo_onshell(1.d-8)
+ elseif (isca .eq. 4) then
+@case_with_lt@ call ltini
+ end if
+
+ 901 format(a40,a4,a10,I1,a15,I1,a11,I1)
+
+ if (verbosity.gt.0) then
+ if (notfirstp.eqv.(.false.)) then
+ open(unit=iout,file='output.dat',status='unknown')
+ write(iout,*) '-------------------------------------------&
+ &----------------------- ---------------'
+ write(iout,901) ' SAMURAI called with arguments: imeth = ',imeth,&
+ & ' ; isca = ',isca,' ; verbosity = ',verbosity,' ; itest = ',itest
+ write(iout,*) '-------------------------------------------------&
+ &----------------- ---------------'
+ notfirstp = .TRUE.
+ endif
+ endif
+ if (itest.gt.0) then
+ if (notfirstd.eqv.(.false.)) then
+ if (ibad.gt.0) then
+ open(unit=ibad,file='bad.points',status='unknown')
+ write(ibad,*) '-------------------------------------------------&
+ &-------------------'
+ write(ibad,904) ' Points that have been discarded by &
+ &SAMURAI because failing itest = ',itest
+ write(ibad,*) '-------------------------------------------------&
+ &-------------------'
+ endif
+ notfirstd = .true.
+ endif
+ endif
+
+ 904 format(a68,I1)
+
+ call rtlimit
+
+ end subroutine initsamurai
+ !---#] subroutine initsamurai:
+ !---#[ subroutine rtlimit:
+ subroutine rtlimit
+ implicit none
+ real :: tpwlimit,tnnlimit,tnnlimit4,tnnlimit3,tnnlimit2,tnnlimit1
+ integer :: ierr
+ open(unit=10,file='ltest.dat',status='old',iostat=ierr)
+
+ if (ierr.eq.0) then
+ read(10,*)
+ read(10,*)
+ read(10,*) tpwlimit
+ pwlimit = real(tpwlimit, ki)
+ read(10,*) tnnlimit
+ nnlimit = real(tnnlimit, ki)
+ read(10,*) tnnlimit4
+ lnnlimit4 = real(tnnlimit4, ki)
+ read(10,*) tnnlimit3
+ lnnlimit3 = real(tnnlimit3, ki)
+ read(10,*) tnnlimit2
+ lnnlimit2 = real(tnnlimit2, ki)
+ read(10,*) tnnlimit1
+ lnnlimit1 = real(tnnlimit1, ki)
+
+ close(10)
+ else
+ pwlimit = 1.0E-03_ki
+ nnlimit = 1.0E-03_ki
+ lnnlimit4 = 1.0E-02_ki
+ lnnlimit3 = 1.0E-02_ki
+ lnnlimit2 = 1.0E-02_ki
+ lnnlimit1 = 1.0E+01_ki
+ end if
+ end subroutine rtlimit
+ !---#] subroutine rtlimit:
+ !---#[ subroutine exitsamurai:
+ subroutine exitsamurai()
+ implicit none
+
+ if (verbosity.gt.0) then
+ close(iout)
+ endif
+
+ if (itest.gt.0) then
+ if (ibad.gt.0) then
+ close(ibad)
+ endif
+ endif
+
+ if (isca.eq.4) then
+@case_with_lt@ call ltexi
+ endif
+ end subroutine exitsamurai
+ !---#] subroutine exitsamurai:
+ !---#[ subroutine banner:
+ subroutine banner
+ implicit none
+
+ print*
+ print*, ' *******************************************************&
+ &*************'
+ print*, ' ********************** SAMURAI - version @VERSION@'
+ print*, ' *******************************************************&
+ &*************'
+ print*, ' * &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' * Authors: P. Mastrolia, G. Ossola, T. Reiter and F. Tr&
+ &amontano *'
+ print*, ' * &
+ & *'
+ print*, ' * pierpaolo.mastrolia@cern.ch &
+ & *'
+ print*, ' * gossola@citytech.cuny.edu &
+ & *'
+ print*, ' * reiterth@mpp.mpg.de &
+ & *'
+ print*, ' * francesco.tramontano@cern.ch &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' * For details please see: arXiv:1006.0710 &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' * On the web: http://cern.ch/samurai &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' *******************************************************&
+ &*************'
+ print*, ' * &
+ & *'
+ print*, ' * output files: <output.log> [ for verbosity.gt.0 ] &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' * <bad.points> [ for itest.gt.0 ] &
+ & *'
+ print*, ' * &
+ & *'
+ print*, ' *******************************************************&
+ &*************'
+ print*, ' *******************************************************&
+ &*************'
+ print *, ' Extended rank beta version by Hans van Deurzen'
+ print*, ' *******************************************************&
+ &*************'
+ print *, ' Version hs212, archived as v121016, based on arXiv:1203.0291"'
+ print*, ' *******************************************************&
+ &*************'
+ print *,' PLEASE NOTE: THIS VERSION IS CURRENTLY ONLY WORKING FOR'
+ print *, ' REAL MASSES AND USES GOLEM95'
+ print*, ' *******************************************************&
+ &*************'
+ print*, ' *******************************************************&
+ &*************'
+
+ end subroutine banner
+ !---#] subroutine banner:
+ !---#[ subroutine InitDenominators_rm:
+ pure subroutine InitDenominators_rm(nleg,Vi,msq,&
+ &Q0,m0,Q1,m1,Q2,m2,Q3,m3,Q4,m4,Q5,m5,Q6,m6,Q7,m7)
+ implicit none
+ integer, intent(in) :: nleg
+ real(ki), dimension(0:nleg-1,4), intent(out) :: Vi
+ real(ki), dimension(0:nleg-1), intent(out) :: msq
+
+ real(ki), dimension(4), intent(in), optional :: Q0
+ real(ki), intent(in), optional :: m0
+ real(ki), dimension(4), intent(in), optional :: Q1
+ real(ki), intent(in), optional :: m1
+ real(ki), dimension(4), intent(in), optional :: Q2
+ real(ki), intent(in), optional :: m2
+ real(ki), dimension(4), intent(in), optional :: Q3
+ real(ki), intent(in), optional :: m3
+ real(ki), dimension(4), intent(in), optional :: Q4
+ real(ki), intent(in), optional :: m4
+ real(ki), dimension(4), intent(in), optional :: Q5
+ real(ki), intent(in), optional :: m5
+ real(ki), dimension(4), intent(in), optional :: Q6
+ real(ki), intent(in), optional :: m6
+ real(ki), dimension(4), intent(in), optional :: Q7
+ real(ki), intent(in), optional :: m7
+
+ if(present(Q0) .and. present(m0)) then
+ Vi(0,:) = Q0
+ msq(0) = m0*m0
+ end if
+ if(present(Q1) .and. present(m1)) then
+ Vi(1,:) = Q1
+ msq(1) = m1*m1
+ end if
+ if(present(Q2) .and. present(m2)) then
+ Vi(2,:) = Q2
+ msq(2) = m2*m2
+ end if
+ if(present(Q3) .and. present(m3)) then
+ Vi(3,:) = Q3
+ msq(3) = m3*m3
+ end if
+ if(present(Q4) .and. present(m4)) then
+ Vi(4,:) = Q4
+ msq(4) = m4*m4
+ end if
+ if(present(Q5) .and. present(m5)) then
+ Vi(5,:) = Q5
+ msq(5) = m5*m5
+ end if
+ if(present(Q6) .and. present(m6)) then
+ Vi(6,:) = Q6
+ msq(6) = m6*m6
+ end if
+ if(present(Q7) .and. present(m7)) then
+ Vi(7,:) = Q7
+ msq(7) = m7*m7
+ end if
+
+ end subroutine InitDenominators_rm
+ !---#] subroutine InitDenominators_rm:
+ !---#[ subroutine samurai_rm:
+ subroutine samurai_rm(numeval,tot,totr,Vi,msq,nleg,rank,istop,scale2,ok,&
+ cache_flag, scalar_cache)
+ use options, only: use_maccu
+ use maccu
+ use mfunctions
+ implicit none
+
+ integer, intent(in) :: nleg, rank, istop
+ real(ki), intent(in) :: scale2
+ complex(ki), intent(out) :: totr
+ real(ki), dimension(0:nleg-1), intent(in) :: msq
+ real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
+ complex(ki), dimension(-2:0), intent(out) :: tot
+ logical, intent(out) :: ok
+ logical, intent(inout), optional :: cache_flag
+ complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
+
+ type(accumulator_type), dimension(-2:0) :: acc_re, acc_im
+ type(accumulator_type) :: accr_re, accr_im
+
+ integer :: i,j,k,j1,j2,j3,j4,j5,icut5,icut4,icut3,icut2,icut1
+ integer :: cut5,cut4,cut3,cut2,cut1,n1,ep
+ integer :: diff
+ integer :: cache_offset
+
+ complex(ki) :: mu2, mu2test
+ real(ki) :: r1, r2, factor
+ real(ki), dimension(4):: k1, k2, k3, e1, e2, p0, L3
+
+ complex(ki) :: c5,tot2r,tot3r,tot4r
+ complex(ki), dimension(6,4) :: q4
+ complex(ki), dimension(15,4) :: q1
+ complex(ki), dimension(15,4) :: q3
+ complex(ki), dimension(20,4) :: q2
+ complex(ki), dimension(4):: q5, e3, e4, qt, qtest
+ complex(ki), dimension(0:5) :: c4
+ complex(ki), dimension(0:15) :: c1
+ complex(ki), dimension(0:14) :: c3
+ complex(ki), dimension(0:19) :: c2
+ complex(ki), dimension(-2:0) :: tot4, tot3, tot2, tot1
+
+ logical :: rescue
+
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+
+ if (nleg.gt.maxleg) then
+ write(6,*) 'reduction called for nleg.gt.maxleg'
+ write(6,*) 'maxleg, nleg ',maxleg,nleg
+ write(6,*) 'please change the values max1,..,max5,maxleg &
+ &in constants.f90'
+ write(6,*) 'and compile again the library'
+ stop
+ endif
+
+ cache_offset = 0
+ diff = nleg-rank
+
+ if(verbosity.gt.0)then
+ write(iout,*)
+ write(iout,*)
+ write(iout,*) 'Denominators: '
+ do k=0,nleg-1
+ write(iout,902) ' Pi(',k,') = ', Vi(k,:)
+ write(iout,903) 'msq(',k,') = ', msq(k)
+ write(iout,*)
+ enddo
+ write(iout,*)' '
+ endif
+
+ totr=czip
+ tot4r=czip
+ tot3r=czip
+ tot2r=czip
+
+ tot(:)=czip
+ tot4(:)=czip
+ tot3(:)=czip
+ tot2(:)=czip
+ tot1(:)=czip
+
+ rescue = .false.
+
+ if (use_maccu) then
+ do ep=-2,0
+ acc_re(ep)%a(:) = 0.0_ki
+ acc_im(ep)%a(:) = 0.0_ki
+ end do
+ accr_re%a(:) = 0.0_ki
+ accr_im%a(:) = 0.0_ki
+ end if
+
+! 5 continue
+
+!!$ if ( (iresc.eq.1).or.(iresc.eq.2).or.&
+!!$ ((iresc.eq.3).and.(rescue))) then
+!!$ call tensor_reconstruction(numeval,nleg,rank)
+!!$ if (iresc.eq.1) goto 6
+!!$ if ( (iresc.eq.2).or.&
+!!$ ((iresc.eq.3).and.(rescue)) ) then
+!!$
+!!$ ! Last parameter sets tot_or_rat in golem95
+!!$ ! false -- full reconstruction
+!!$ ! true -- rational part only
+!!$ tot = addtens(rank,nleg,Vi,msq,scale2,.false.)
+!!$ ok = .true.
+!!$ goto 100
+!!$ endif
+
+ notfirsti = .false.
+
+ if (iresc.eq.1) then
+ call tensor_reconstruction(numeval,nleg,rank)
+ endif
+
+! 6 continue
+
+ if (nleg.ge.5) then
+ goto 10
+ elseif (nleg.eq.4) then
+ goto 20
+ elseif (nleg.eq.3) then
+ goto 30
+ elseif (nleg.eq.2) then
+ goto 40
+ elseif ((nleg.eq.1).or.(nleg.le.0)) then
+ goto 50
+ endif
+
+ 10 continue
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Pentagon coefficients: '
+ endif
+
+!--- Quintuple cuts
+ icut5=1
+ do j5=4,nleg-1
+ do j4=3,j5-1
+ do j3=2,j4-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut5=j5*10000+j4*1000+j3*100+j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ k2(n1)=Vi(j1,n1)-Vi(j5,n1)
+ p0(n1)=Vi(j1,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq5(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
+
+ if (iresc.eq.1) then
+ call getc5(numetens,nleg,c5,cut5,Vi,msq,q5,mu2)
+ else
+ call getc5(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
+ endif
+
+ call store5(icut5,cut5,p0,e1,e2,e3,e4,c5)
+
+ if(verbosity.gt.0)then
+ write(iout,9005) 'c5(', cut5,') = (',real(c5),',',aimag(c5),' )'
+ write(iout,*)
+ endif
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut5=icut5+1
+ enddo
+ enddo
+ enddo
+ enddo
+ enddo
+ nc5=icut5-1
+
+ if (istop.eq.5) goto 99
+
+ 20 continue
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Box coefficients: '
+ endif
+
+
+!--- Quadruple cuts
+ icut4=1
+ do j4=3,nleg-1
+ do j3=2,j4-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut4=j4*1000+j3*100+j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ k2(n1)=Vi(j1,n1)-Vi(j4,n1)
+ k3(n1)=Vi(j3,n1)-Vi(j1,n1)
+ p0(n1)=Vi(j1,n1)
+ L3(n1)=Vi(j4,n1)-Vi(j3,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq4(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
+
+ if (iresc.eq.1) then
+ call getc4(numetens,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
+ else
+ call getc4(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest4(numeval,cut4,c4,qt,p0,L3,e3,e4,ok)
+ call store4(icut4,cut4,L3,p0,e1,e2,e3,e4,c4)
+
+ if (present(cache_flag)) then
+ call add4_rm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add4_rm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,5
+ write(iout,9004) 'c4(', cut4,',',i,') = (',real(c4(i)),',',aimag(c4(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot4r)
+ call add_accu(acc_re(:), acc_im(:), tot4(:))
+ else
+ tot(:)=tot(:)+tot4(:)
+ totr=totr+tot4r
+ end if
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ k3(:)=0.0_ki
+ p0(:)=0.0_ki
+ L3(:)=0.0_ki
+
+ icut4=icut4+1
+ enddo
+ enddo
+ enddo
+ enddo
+ nc4=icut4-1
+
+
+ if (istop.eq.4) goto 99
+
+ 30 continue
+
+ if (diff.ge.4.and.itest.ne.1) goto 93
+
+ if(verbosity.gt.0.and.diff.le.3)then
+ write(iout,*) 'Triangle coefficients: '
+ endif
+
+!--- Triple cuts
+ icut3=1
+ do j3=2,nleg-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut3=j3*100+j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ k2(n1)=Vi(j1,n1)-Vi(j3,n1)
+ p0(n1)=Vi(j1,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq3(nleg,rank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
+
+ if (iresc.eq.1) then
+ call getc3(numetens,nleg,rank,c3,cut3,q3,qt,Vi,msq)
+ else
+ call getc3(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest3(numeval,cut3,c3,qt,p0,e3,e4,ok)
+ call store3(icut3,cut3,p0,e1,e2,e3,e4,c3)
+ if (present(cache_flag)) then
+ call add3_rm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add3_rm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2)
+ end if
+
+ if(verbosity.gt.0.and.diff.le.3)then
+ do i=0,14
+ write(iout,9003) 'c3(',cut3,',',i,') = (',real(c3(i)),',',aimag(c3(i)),' )'!Edited by HvD
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot3r)
+ call add_accu(acc_re(:), acc_im(:), tot3(:))
+ else
+ tot(:)=tot(:)+tot3(:)
+ totr=totr+tot3r
+ end if
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut3=icut3+1
+ enddo
+ enddo
+ enddo
+ nc3=icut3-1
+
+ if (istop.eq.3) goto 99
+
+ 40 continue
+
+ if (diff.ge.3) goto 95
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Bubble coefficients: '
+ endif
+
+!--- Double cuts
+ icut2=1
+ do j2=1,nleg-1
+ do j1=0,j2-1
+
+ cut2=j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ p0(n1)=Vi(j1,n1)
+ enddo
+
+
+ if (abs(abs(k1(4))-1.0_ki) .lt. 0.1_ki) then
+ factor = 0.345_ki
+ else
+ factor = one
+ end if
+
+ k2(1)=-sign(factor/rt3,k1(1))
+ k2(2)=-sign(factor/rt3,k1(2))
+ k2(3)=-sign(factor/rt3,k1(3))
+ k2(4)= sign(factor,k1(4))
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+
+ call getq2(nleg,rank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
+
+ if (iresc.eq.1) then
+ call getc2(numetens,nleg,rank,c2,cut2,q2,qt,Vi,msq)
+ else
+ call getc2(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest2(numeval,cut2,c2,qt,p0,e2,e3,e4,ok)
+ call store2(icut2,cut2,p0,e1,e2,e3,e4,c2)
+
+ if (present(cache_flag)) then
+ call add2_rm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2,&
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add2_rm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,19
+ write(iout,9002) 'c2(',cut2,',',i,') = (',real(c2(i)),',',aimag(c2(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot2r)
+ call add_accu(acc_re(:), acc_im(:), tot2(:))
+ else
+ tot(:)=tot(:)+tot2(:)
+ totr=totr+tot2r
+ end if
+
+!--- nullify k1,k2,p0
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut2=icut2+1
+ enddo
+ enddo
+ nc2=icut2-1
+
+ if (istop.eq.2) goto 99
+
+ 50 continue
+
+ if (diff.ge.2) goto 97
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Tadpole coefficients: '
+ endif
+
+
+!--- Single cut
+ icut1=1
+ do j1=0,nleg-1
+
+ cut1=j1
+
+ k1(1)=+one/rt3
+ k1(2)=-one/rt3
+ k1(3)=+one/rt3
+ k1(4)=+two
+
+ k2(1)=+one/rt2
+ k2(2)=-one/rt2
+ k2(3)=+one/rt2
+ k2(4)=+rt3
+
+ do n1=1,4
+ p0(n1)=Vi(j1,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+
+ call getq1(nleg,rank,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
+
+ if (iresc.eq.1) then
+ call getc1(numetens,nleg,rank,c1,cut1,q1,qt,Vi,msq)
+ else
+ call getc1(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest1(numeval,cut1,c1,qt,p0,e1,e2,e3,e4,ok)
+ call store1(icut1,cut1,p0,e1,e2,e3,e4,c1)
+
+ if (present(cache_flag)) then
+ call add1_rm(nleg,c1,cut1,msq,tot1,scale2,e3,e4, &
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add1_rm(nleg,c1,cut1,msq,tot1,scale2,e3,e4)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,15
+ if(i .eq. 9) cycle
+ write(iout,9001) 'c1(',cut1,',',i,') = (',real(c1(i)),',',&
+ & aimag(c1(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(acc_re, acc_im, tot1)
+ else
+ tot(:)=tot(:)+tot1(:)
+ end if
+
+
+!--- nullify k1,k2,p0
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ p0(:)=0.0_ki
+
+ icut1=icut1+1
+ enddo
+ nc1=icut1-1
+
+ 93 continue
+
+ do j=0,14
+ c3(j)=czip
+ enddo
+
+ 95 continue
+
+ do j=0,19
+ c2(j)=czip
+ enddo
+
+ 97 continue
+
+ do j=0,15
+ c1(j)=czip
+ enddo
+
+ 99 continue
+
+ if (use_maccu) then
+ tot = reduce_accu(acc_re, acc_im)
+ totr = reduce_accu(accr_re, accr_im)
+ end if
+
+
+! TEST N=N -------------------------------------------
+ if (itest.eq.1) then
+ qtest=10.3_ki*cone
+ mu2test=13.0_ki
+ call nntest(numeval,qtest,mu2test,nleg,Vi,msq,ok)
+ endif
+!-----------------------------------------------------
+
+! POWER test ----------------------------------
+ if (itest.eq.3) call pwtest(nleg,rank,ok)
+! ---------------------------------------------
+
+!!$ if ((itest.eq.3).and.(iresc.eq.3).and.(ok.eqv.(.false.))) then
+!!$ rescue = .true.
+!!$ print*, 'eccolo'
+!!$ goto 5
+!!$ endif
+
+ ! 100 continue
+
+ if (ok) then
+
+ if(verbosity.gt.0)then
+ write(iout,*)
+ write(iout,*)' Result: '
+ write(iout,*)' Double Pole = ', tot(-2)
+ write(iout,*)' Single Pole = ', tot(-1)
+ write(iout,*)' Finite Part = ', tot(0)
+ write(iout,*)
+ write(iout,*)'[Rational Part = ', totr,']'
+ write(iout,*)
+ write(iout,*)
+ endif
+
+ else
+
+ if(ibad.gt.0.and.verbosity.gt.0)then
+ write(ibad,*) 'Denominators: '
+ do k=0,nleg-1
+ write(ibad,902) ' Pi(',k,') = ', Vi(k,:)
+ write(ibad,903) 'msq(',k,') = ', msq(k)
+ write(ibad,*)
+ enddo
+ write(ibad,*)'---------------------------------------- '
+ write(ibad,*)' '
+ endif
+ endif
+
+ if (present(cache_flag)) cache_flag = .true.
+
+ 902 format(a4,I1,a4,4(D24.15))
+ 903 format(a4,I1,a4,1(D24.15))
+
+ 9005 format(A3,I5,A6,D24.15,A1,D24.15,A3)
+ 9004 format(A3,I4,A1,I1,A5,D24.15,A1,D24.15,A3)
+ 9003 format(A3,I3,A1,I2,A6,D24.15,A1,D24.15,A3)
+ 9002 format(A3,I2,A1,I2,A7,D24.15,A1,D24.15,A3)
+ 9001 format(A3,I2,A1,I2,A7,D24.15,A1,D24.15,A3)
+
+ end subroutine samurai_rm
+ !---#] subroutine samurai_rm:
+!CM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!---#[ subroutine InitDenominators_cm:
+ pure subroutine InitDenominators_cm(nleg,Vi,msq,&
+ &Q0,m0,Q1,m1,Q2,m2,Q3,m3,Q4,m4,Q5,m5,Q6,m6,Q7,m7)
+ implicit none
+ integer, intent(in) :: nleg
+ real(ki), dimension(0:nleg-1,4), intent(out) :: Vi
+ complex(ki), dimension(0:nleg-1), intent(out) :: msq
+
+ real(ki), dimension(4), intent(in), optional :: Q0
+ complex(ki), intent(in), optional :: m0
+ real(ki), dimension(4), intent(in), optional :: Q1
+ complex(ki), intent(in), optional :: m1
+ real(ki), dimension(4), intent(in), optional :: Q2
+ complex(ki), intent(in), optional :: m2
+ real(ki), dimension(4), intent(in), optional :: Q3
+ complex(ki), intent(in), optional :: m3
+ real(ki), dimension(4), intent(in), optional :: Q4
+ complex(ki), intent(in), optional :: m4
+ real(ki), dimension(4), intent(in), optional :: Q5
+ complex(ki), intent(in), optional :: m5
+ real(ki), dimension(4), intent(in), optional :: Q6
+ complex(ki), intent(in), optional :: m6
+ real(ki), dimension(4), intent(in), optional :: Q7
+ complex(ki), intent(in), optional :: m7
+
+ if(present(Q0) .and. present(m0)) then
+ Vi(0,:) = Q0
+ msq(0) = m0*m0
+ end if
+ if(present(Q1) .and. present(m1)) then
+ Vi(1,:) = Q1
+ msq(1) = m1*m1
+ end if
+ if(present(Q2) .and. present(m2)) then
+ Vi(2,:) = Q2
+ msq(2) = m2*m2
+ end if
+ if(present(Q3) .and. present(m3)) then
+ Vi(3,:) = Q3
+ msq(3) = m3*m3
+ end if
+ if(present(Q4) .and. present(m4)) then
+ Vi(4,:) = Q4
+ msq(4) = m4*m4
+ end if
+ if(present(Q5) .and. present(m5)) then
+ Vi(5,:) = Q5
+ msq(5) = m5*m5
+ end if
+ if(present(Q6) .and. present(m6)) then
+ Vi(6,:) = Q6
+ msq(6) = m6*m6
+ end if
+ if(present(Q7) .and. present(m7)) then
+ Vi(7,:) = Q7
+ msq(7) = m7*m7
+ end if
+
+ end subroutine InitDenominators_cm
+ !---#] subroutine InitDenominators_cm:
+ !---#[ subroutine samurai_cm:
+ subroutine samurai_cm(numeval,tot,totr,Vi,msq,nleg,rank,istop,scale2,ok,&
+ cache_flag, scalar_cache)
+ use options, only: use_maccu
+ use maccu
+ implicit none
+
+ integer, intent(in) :: nleg, rank, istop
+ real(ki), intent(in) :: scale2
+ complex(ki), intent(out) :: totr
+ complex(ki), dimension(0:nleg-1), intent(in) :: msq
+ real(ki), dimension(0:nleg-1,4), intent(in) :: Vi
+ complex(ki), dimension(-2:0), intent(out) :: tot
+ logical, intent(out) :: ok
+ logical, intent(inout), optional :: cache_flag
+ complex(ki), intent(inout), optional, dimension(-2:0,*) :: scalar_cache
+
+ type(accumulator_type), dimension(-2:0) :: acc_re, acc_im
+ type(accumulator_type) :: accr_re, accr_im
+
+ integer :: i,j,k,j1,j2,j3,j4,j5,icut5,icut4,icut3,icut2,icut1
+ integer :: cut5,cut4,cut3,cut2,cut1,n1,ep
+ integer :: diff
+ integer :: cache_offset
+
+ complex(ki) :: mu2, mu2test
+ real(ki) :: r1, r2, factor
+ real(ki), dimension(4):: k1, k2, k3, e1, e2, p0, L3
+
+ complex(ki) :: c5,tot2r,tot3r,tot4r
+ complex(ki), dimension(6,4) :: q4
+ complex(ki), dimension(15,4) :: q1
+ complex(ki), dimension(15,4) :: q3
+ complex(ki), dimension(20,4) :: q2
+ complex(ki), dimension(4):: q5, e3, e4, qt, qtest
+ complex(ki), dimension(0:15) :: c4
+ complex(ki), dimension(0:15) :: c1
+ complex(ki), dimension(0:14) :: c3
+ complex(ki), dimension(0:19) :: c2
+ complex(ki), dimension(-2:0) :: tot4, tot3, tot2, tot1
+
+ logical :: rescue
+
+ interface
+ function numeval(ncut, Q, mu2)
+ use precision
+ implicit none
+ integer, intent(in) :: ncut
+ complex(ki), dimension(4), intent(in) :: Q
+ complex(ki), intent(in) :: mu2
+ complex(ki) :: numeval
+ end function numeval
+ end interface
+
+ if (nleg.gt.maxleg) then
+ write(6,*) 'reduction called for nleg.gt.maxleg'
+ write(6,*) 'maxleg, nleg ',maxleg,nleg
+ write(6,*) 'please change the values max1,..,max5,maxleg &
+ &in constants.f90'
+ write(6,*) 'and compile again the library'
+ stop
+ endif
+
+ cache_offset = 0
+ diff = nleg-rank
+
+ if(verbosity.gt.0)then
+ write(iout,*)
+ write(iout,*)
+ write(iout,*) 'Denominators: '
+ do k=0,nleg-1
+ write(iout,902) ' Pi(',k,') = ', Vi(k,:)
+ write(iout,903) 'msq(',k,') = ', msq(k)
+ write(iout,*)
+ enddo
+ write(iout,*)' '
+ endif
+
+ totr=czip
+ tot4r=czip
+ tot3r=czip
+ tot2r=czip
+
+ tot(:)=czip
+ tot4(:)=czip
+ tot3(:)=czip
+ tot2(:)=czip
+ tot1(:)=czip
+
+ rescue = .false.
+
+ if (use_maccu) then
+ do ep=-2,0
+ acc_re(ep)%a(:) = 0.0_ki
+ acc_im(ep)%a(:) = 0.0_ki
+ end do
+ accr_re%a(:) = 0.0_ki
+ accr_im%a(:) = 0.0_ki
+ end if
+
+! 5 continue
+
+!!$ if ( (iresc.eq.1).or.(iresc.eq.2).or.&
+!!$ ((iresc.eq.3).and.(rescue))) then
+!!$ call tensor_reconstruction(numeval,nleg,rank)
+!!$ if (iresc.eq.1) goto 6
+!!$ if ( (iresc.eq.2).or.&
+!!$ ((iresc.eq.3).and.(rescue)) ) then
+!!$
+!!$ ! Last parameter sets tot_or_rat in golem95
+!!$ ! false -- full reconstruction
+!!$ ! true -- rational part only
+!!$ tot = addtens(rank,nleg,Vi,msq,scale2,.false.)
+!!$ ok = .true.
+!!$ goto 100
+!!$ endif
+
+ notfirsti = .false.
+
+ if (iresc.eq.1) then
+ call tensor_reconstruction(numeval,nleg,rank)
+ endif
+
+! 6 continue
+
+ if (nleg.ge.5) then
+ goto 10
+ elseif (nleg.eq.4) then
+ goto 20
+ elseif (nleg.eq.3) then
+ goto 30
+ elseif (nleg.eq.2) then
+ goto 40
+ elseif ((nleg.eq.1).or.(nleg.le.0)) then
+ goto 50
+ endif
+
+ 10 continue
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Pentagon coefficients: '
+ endif
+
+!--- Quintuple cuts
+ icut5=1
+ do j5=4,nleg-1
+ do j4=3,j5-1
+ do j3=2,j4-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut5=j5*10000+j4*1000+j3*100+j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ k2(n1)=Vi(j1,n1)-Vi(j5,n1)
+ p0(n1)=Vi(j1,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq5(nleg,cut5,e1,e2,e3,e4,p0,Vi,msq,r1,r2,q5,mu2)
+
+ if (iresc.eq.1) then
+ call getc5(numetens,nleg,c5,cut5,Vi,msq,q5,mu2)
+ else
+ call getc5(numeval,nleg,c5,cut5,Vi,msq,q5,mu2)
+ endif
+
+ call store5(icut5,cut5,p0,e1,e2,e3,e4,c5)
+
+ if(verbosity.gt.0)then
+ write(iout,9005) 'c5(', cut5,') = (',real(c5),',',aimag(c5),' )'
+ write(iout,*)
+ endif
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut5=icut5+1
+ enddo
+ enddo
+ enddo
+ enddo
+ enddo
+ nc5=icut5-1
+
+ if (istop.eq.5) goto 99
+
+ 20 continue
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Box coefficients: '
+ endif
+
+
+!--- Quadruple cuts
+ icut4=1
+ do j4=3,nleg-1
+ do j3=2,j4-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut4=j4*1000+j3*100+j2*10+j1
+
+ do n1=1,4
+ k1(n1)=Vi(j2,n1)-Vi(j1,n1)
+ k2(n1)=Vi(j1,n1)-Vi(j4,n1)
+ k3(n1)=Vi(j3,n1)-Vi(j1,n1)
+ p0(n1)=Vi(j1,n1)
+ L3(n1)=Vi(j4,n1)-Vi(j3,n1)
+ enddo
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq4(nleg,cut4,e1,e2,e3,e4,p0,k1,k2,k3,L3,r1,r2,q4,qt,msq)
+
+ if (iresc.eq.1) then
+ call getc4(numetens,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
+ else
+ call getc4(numeval,nleg,rank,c4,cut4,q4,qt,p0,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest4(numeval,cut4,c4,qt,p0,L3,e3,e4,ok)
+ call store4(icut4,cut4,L3,p0,e1,e2,e3,e4,c4)
+ if (present(cache_flag)) then
+ call add4_cm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2,&
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add4_cm(nleg,c4,cut4,Vi,msq,tot4,tot4r,scale2)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,5
+ write(iout,9004) 'c4(', cut4,',',i,') = (',real(c4(i)),',',aimag(c4(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot4r)
+ call add_accu(acc_re(:), acc_im(:), tot4(:))
+ else
+ tot(:)=tot(:)+tot4(:)
+ totr=totr+tot4r
+ end if
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ k3(:)=0.0_ki
+ p0(:)=0.0_ki
+ L3(:)=0.0_ki
+
+ icut4=icut4+1
+ enddo
+ enddo
+ enddo
+ enddo
+ nc4=icut4-1
+
+
+ if (istop.eq.4) goto 99
+
+ 30 continue
+
+ if (diff.ge.4.and.itest.ne.1) goto 93
+
+ if(verbosity.gt.0.and.diff.le.3)then
+ write(iout,*) 'Triangle coefficients: '
+ endif
+
+!--- Triple cuts
+ icut3=1
+ do j3=2,nleg-1
+ do j2=1,j3-1
+ do j1=0,j2-1
+
+ cut3=j3*100+j2*10+j1
+
+ k1(:)=Vi(j2,:)-Vi(j1,:)
+ k2(:)=Vi(j1,:)-Vi(j3,:)
+ p0(:)=Vi(j1,:)
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+
+ call getq3(nleg,rank,cut3,e1,e2,e3,e4,p0,k1,k2,msq,r1,r2,q3,qt)
+
+ if (iresc.eq.1) then
+ call getc3(numetens,nleg,rank,c3,cut3,q3,qt,Vi,msq)
+ else
+ call getc3(numeval,nleg,rank,c3,cut3,q3,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest3(numeval,cut3,c3,qt,p0,e3,e4,ok)
+ call store3(icut3,cut3,p0,e1,e2,e3,e4,c3)
+ if (present(cache_flag)) then
+ call add3_cm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2,&
+ cache_flag, cache_offset, scalar_cache)
+ else
+ call add3_cm(nleg,c3,cut3,Vi,msq,tot3,tot3r,scale2)
+ end if
+
+ if(verbosity.gt.0.and.diff.le.3)then
+ do i=0,9
+ write(iout,9003) 'c3(',cut3,',',i,') = (',real(c3(i)),',',aimag(c3(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot3r)
+ call add_accu(acc_re(:), acc_im(:), tot3(:))
+ else
+ tot(:)=tot(:)+tot3(:)
+ totr=totr+tot3r
+ end if
+
+!--- nullify all
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ k2(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut3=icut3+1
+ enddo
+ enddo
+ enddo
+ nc3=icut3-1
+
+ if (istop.eq.3) goto 99
+
+ 40 continue
+
+ if (diff.ge.3) goto 95
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Bubble coefficients: '
+ endif
+
+!--- Double cuts
+ icut2=1
+ do j2=1,nleg-1
+ do j1=0,j2-1
+
+ cut2=j2*10+j1
+
+ k1(:)=Vi(j2,:)-Vi(j1,:)
+ p0(:)=Vi(j1,:)
+
+
+ if (abs(abs(k1(4))-1.0_ki) .lt. 0.1_ki) then
+ factor = 0.345_ki
+ else
+ factor = one
+ end if
+ k2(1)=-sign(factor/rt3,k1(1))
+ k2(2)=-sign(factor/rt3,k1(2))
+ k2(3)=-sign(factor/rt3,k1(3))
+ k2(4)= sign(factor,k1(4))
+
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+
+ call getq2(nleg,rank,cut2,e1,e2,e3,e4,p0,k1,msq,q2,qt)
+
+ if (iresc.eq.1) then
+ call getc2(numetens,nleg,rank,c2,cut2,q2,qt,Vi,msq)
+ else
+ call getc2(numeval,nleg,rank,c2,cut2,q2,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest2(numeval,cut2,c2,qt,p0,e2,e3,e4,ok)
+ call store2(icut2,cut2,p0,e1,e2,e3,e4,c2)
+ if (present(cache_flag)) then
+ call add2_cm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2, &
+ & cache_flag, cache_offset, scalar_cache)
+ else
+ call add2_cm(nleg,c2,cut2,k1,k2,msq,tot2,tot2r,scale2)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,19
+ write(iout,9002) 'c2(',cut2,',',i,') = (', &
+ & real(c2(i)),',',aimag(c2(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(accr_re, accr_im, tot2r)
+ call add_accu(acc_re(:), acc_im(:), tot2(:))
+ else
+ tot(:)=tot(:)+tot2(:)
+ totr=totr+tot2r
+ end if
+
+!--- nullify k1,k2,p0
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ k1(:)=0.0_ki
+ p0(:)=0.0_ki
+
+ icut2=icut2+1
+ enddo
+ enddo
+ nc2=icut2-1
+
+ if (istop.eq.2) goto 99
+
+ 50 continue
+
+ if (diff.ge.2) goto 97
+
+ if(verbosity.gt.0)then
+ write(iout,*) 'Tadpole coefficients: '
+ endif
+
+
+!--- Single cut
+ icut1=1
+ do j1=0,nleg-1
+
+ cut1=j1
+
+ k1(1)=+one/rt3
+ k1(2)=-one/rt3
+ k1(3)=+one/rt3
+ k1(4)=+two
+ k2(1)=+one/rt2
+ k2(2)=-one/rt2
+ k2(3)=+one/rt2
+ k2(4)=+rt3
+
+ p0(:)=Vi(j1,:)
+
+ call getbase(k1,k2,r1,r2,e1,e2,e3,e4)
+ call getq1(nleg,rank,cut1,e1,e2,e3,e4,p0,msq,q1,qt)
+
+ if (iresc.eq.1) then
+ call getc1(numetens,nleg,rank,c1,cut1,q1,qt,Vi,msq)
+ else
+ call getc1(numeval,nleg,rank,c1,cut1,q1,qt,Vi,msq)
+ endif
+
+ if (itest.eq.2) call lnntest1(numeval,cut1,c1,qt,p0,e1,e2,e3,e4,ok)
+ call store1(icut1,cut1,p0,e1,e2,e3,e4,c1)
+
+ if (present(cache_flag)) then
+ call add1_cm(nleg,c1,cut1,msq,tot1,scale2,e3,e4,&
+ & cache_flag, cache_offset, scalar_cache)
+ else
+ call add1_cm(nleg,c1,cut1,msq,tot1,scale2,e3,e4)
+ end if
+
+ if(verbosity.gt.0)then
+ do i=0,4
+ write(iout,9002) 'c1(',cut1,',',i,') = (',real(c1(i)),',',aimag(c1(i)),' )'
+ enddo
+ write(iout,*)
+ endif
+
+ if (use_maccu) then
+ call add_accu(acc_re, acc_im, tot1)
+ else
+ tot(:)=tot(:)+tot1(:)
+ end if
+
+!--- nullify k1,k2,p0
+ r1=zip
+ r2=zip
+ e1(:)=0.0_ki
+ e2(:)=0.0_ki
+ e3(:)=czip
+ e4(:)=czip
+ p0(:)=0.0_ki
+
+ icut1=icut1+1
+ enddo
+ nc1=icut1-1
+
+ 93 continue
+
+ do j=0,9
+ c3(j)=czip
+ enddo
+
+ 95 continue
+
+ do j=0,9
+ c2(j)=czip
+ enddo
+
+ 97 continue
+
+ do j=0,4
+ c1(j)=czip
+ enddo
+
+ 99 continue
+
+ if (use_maccu) then
+ tot = reduce_accu(acc_re, acc_im)
+ totr = reduce_accu(accr_re, accr_im)
+ end if
+
+
+! TEST N=N -------------------------------------------
+ if (itest.eq.1) then
+ qtest=10.3_ki*cone
+ mu2test=13.0_ki
+ call nntest(numeval,qtest,mu2test,nleg,Vi,msq,ok)
+ endif
+!-----------------------------------------------------
+
+! POWER test ----------------------------------
+ if (itest.eq.3) call pwtest(nleg,rank,ok)
+! ---------------------------------------------
+
+!!$ if ((itest.eq.3).and.(iresc.eq.3).and.(ok.eqv.(.false.))) then
+!!$ rescue = .true.
+!!$ print*, 'eccolo'
+!!$ goto 5
+!!$ endif
+
+ ! 100 continue
+
+ if (ok) then
+
+ if(verbosity.gt.0)then
+ write(iout,*)
+ write(iout,*)' Result: '
+ write(iout,*)' Double Pole = ', tot(-2)
+ write(iout,*)' Single Pole = ', tot(-1)
+ write(iout,*)' Finite Part = ', tot(0)
+ write(iout,*)
+ write(iout,*)'[Rational Part = ', totr,']'
+ write(iout,*)
+ write(iout,*)
+ endif
+
+ else
+
+ if(ibad.gt.0.and.verbosity.gt.0)then
+ write(ibad,*) 'Denominators: '
+ do k=0,nleg-1
+ write(ibad,902) ' Pi(',k,') = ', Vi(k,:)
+ write(ibad,903) 'msq(',k,') = ', msq(k)
+ write(ibad,*)
+ enddo
+ write(ibad,*)'---------------------------------------- '
+ write(ibad,*)' '
+ endif
+ endif
+
+ if(present(cache_flag)) cache_flag = .true.
+
+ 902 format(a4,I1,a4,4(D24.15))
+ 903 format(a4,I1,a4,2(D24.15))
+
+ 9005 format(A3,I5,A6,D24.15,A1,D24.15,A3)
+ 9004 format(A3,I4,A1,I1,A5,D24.15,A1,D24.15,A3)
+ 9003 format(A3,I3,A1,I1,A6,D24.15,A1,D24.15,A3)
+ 9002 format(A3,I2,A1,I1,A7,D24.15,A1,D24.15,A3)
+
+ end subroutine samurai_cm
+ !---#] subroutine samurai_cm:
+end module msamurai
+
diff --git a/samurai-2.1.1/mtests.f90 b/samurai-2.1.1/mtests.f90
index e50a337..fe1a0c6 100644
--- a/samurai-2.1.1/mtests.f90
+++ b/samurai-2.1.1/mtests.f90
@@ -1,693 +1,693 @@
module mtests
use precision, only: ki
use constants
use options
use mfunctions
use mrestore
use save
use ltest
use mglobal, only: resit, denst
implicit none
private
public :: pwtest, nntest, lnntest1, lnntest2, lnntest3, lnntest4
real(ki), parameter :: nprec = epsilon(1.0_ki) * 1.0E+03_ki
interface nntest
module procedure nntest_rm
module procedure nntest_cm
end interface nntest
contains
subroutine pwtest(nleg,rank,ok)
implicit none
integer, intent(in) :: nleg, rank
logical, intent(out) :: ok
integer :: i,j
integer :: diff
real(ki), dimension(4) :: e1, e2
real(ki) :: pwval
complex(ki), dimension(4) :: e3, e4
complex(ki) :: pwt
complex(ki), dimension(4) :: pwtv
diff = nleg-rank
pwt=czip
if(verbosity.ge.3)then
write(iout,*) '------------------------------------'
write(iout,*) 'PoWer test'
endif
if (diff.eq.0) then
!---#[ maximum rank :
pwtv=(/ czip, czip, czip, czip /)
do j =1,max1
do i=1,4
e1(i)=sav1e1(j,i)
e2(i)=sav1e2(j,i)
e3(i)=sav1e3(j,i)
e4(i)=sav1e4(j,i)
enddo
do i=1,4
pwtv(i)=pwtv(i)+savc1(j,1)*e1(i)+savc1(j,2)*e2(i) &
& +savc1(j,3)*e3(i)+savc1(j,4)*e4(i)
enddo
enddo
pwval = maxval(abs(pwtv))
!---#] maximum rank :
elseif (diff.eq.1) then
!---#[ nleg-rank = 1:
pwt=czip
do i =1,6
pwt=pwt+savc1(i,0)
enddo
pwval = abs(pwt)
!---#] nleg-rank = 1:
elseif (diff.eq.2) then
!---#[ nleg-rank = 2:
pwt=czip
do i =1,max2
pwt=pwt+savc2(i,0)
enddo
pwval = abs(pwt)
!---#] nleg-rank = 2:
else
!---#[ nleg-rank > 2:
pwt=czip
do i =1,max3
pwt=pwt+savc3(i,0)
enddo
pwval = abs(pwt)
!---#] nleg-rank > 2:
endif
if(verbosity.ge.3) write(iout,*) 'pwtest = ', pwval
if (pwval.ge.pwlimit) then
ok=.false.
if(verbosity.gt.0) then
write(iout,*) ' POWERTEST FAILED! '
write(iout,*) 'point above discarded'
endif
else
ok=.true.
if(verbosity.ge.3) write(iout,*) ' PowerTest passed! '
endif
if(verbosity.ge.3) write(iout,*) '------------------------------------'
end subroutine
subroutine nntest_rm(numeval,q1,mu2,nleg,Vi,msq,ok)
implicit none
complex(ki), dimension(4), intent(in) :: q1
complex(ki), intent(in) :: mu2
integer, intent(in) :: nleg
real(ki), dimension(0:nleg-1) :: msq
real(ki), dimension(0:nleg-1,4) :: Vi
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer :: i, i1, i2, i3, i4, i5, ncut
integer :: dicut5, dicut4, dicut3, dicut2, dicut1
complex(ki) :: dens1,dens2,dens3,dens4,dens5,xneval
complex(ki) :: resi5, resi4, resi3, resi2 ,resi1, resitot, ztest
resi1=czip
resi2=czip
resi3=czip
resi4=czip
resi5=czip
ztest=czip
xneval=czip
if (nleg.gt.5) then
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)&
& .and.(i.ne.i5)) then
dens5=dens5*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi5=resi5+dens5*res5(dicut5,mu2)
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
elseif (nleg.eq.5) then
resi5=res5(1,mu2)
end if
if (nleg.ge.5) then
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
&.and.(i.ne.i3).and.(i.ne.i4)) then
dens4=dens4*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi4=resi4+dens4*Res4(dicut4,q1,mu2)
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
elseif (nleg.eq.4) then
resi4=Res4(1,q1,mu2)
end if
if (nleg.ge.4) then
!---#[ Contributo dei Triple cuts:
dicut3=1
do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
dens3=dens3*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi3=resi3+dens3*Res3(dicut3,q1,mu2)
dicut3=dicut3+1
enddo
enddo
enddo
!---#] Contributo dei Triple cuts:
elseif (nleg.eq.3) then
resi3=Res3(1,q1,mu2)
end if
if (nleg.ge.3) then
!---#[ Contributo dei Double cuts:
dicut2=1
do i2=1,nleg-1
do i1=0,i2-1
dens2=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2)) then
dens2=dens2*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi2=resi2+dens2*Res2(dicut2,q1,mu2)
dicut2=dicut2+1
enddo
enddo
!---#] Contributo dei Double cuts:
elseif (nleg.eq.2) then
resi2=Res2(1,q1,mu2)
endif
!---#[ Contribution of the single cut:
dicut1=1
do i1=0,nleg-1
dens1=cone
! ---> I replaced this loop
!do i=0,nleg-1
! if (i.ne.i1) then
! dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
! endif
!enddo
! ---> because we can do this without an if statement inside:
do i=0,i1-1
dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
enddo
do i=i1+1,nleg-1
dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
enddo
- resi1=resi1+dens1*Res1(dicut1,q1)
+ resi1=resi1+dens1*Res1(dicut1,q1,mu2)
dicut1=dicut1+1
enddo
!---#] Contribution of the single cut:
xneval=numeval(ncut,q1,mu2)
resitot=resi5+resi4+resi3+resi2+resi1
ztest=xneval-resitot
if(verbosity.ge.3)then
write(iout,*) '--------------------------------------------'
write(iout,*) 'N=N test for'
write(iout,*) 'q(0) = ', q1(4)
write(iout,*) 'q(1) = ', q1(1)
write(iout,*) 'q(2) = ', q1(2)
write(iout,*) 'q(3) = ', q1(3)
write(iout,*) 'and mu2 = ', mu2
write(iout,*) 'N calculated', xneval
write(iout,*) 'N reconstructed', resitot
write(iout,*) ' '
write(iout,*) 'difference = ', ztest
write(iout,*) 'rel.diff. = ', ztest/xneval
write(iout,*) '--------------------------------------------'
endif
if (abs(ztest/xneval).gt.nnlimit) then
ok=.false.
if (verbosity.gt.0) write(iout,*) 'N=N test FAILED'
else
ok=.true.
endif
end subroutine nntest_rm
subroutine nntest_cm(numeval,q1,mu2,nleg,Vi,msq,ok)
implicit none
complex(ki), dimension(4), intent(in) :: q1
complex(ki), intent(in) :: mu2
integer, intent(in) :: nleg
complex(ki), dimension(0:nleg-1) :: msq
real(ki), dimension(0:nleg-1,4) :: Vi
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
integer :: i, i1, i2, i3, i4, i5, ncut
integer :: dicut5, dicut4, dicut3, dicut2, dicut1
complex(ki) :: dens1,dens2,dens3,dens4,dens5,xneval
complex(ki) :: resi5, resi4, resi3, resi2 ,resi1, resitot, ztest
resi1=czip
resi2=czip
resi3=czip
resi4=czip
resi5=czip
ztest=czip
xneval=czip
if (nleg.gt.5) then
!---#[ Contributo dei pentuple cuts:
dicut5=1
do i5=4,nleg-1
do i4=3,i5-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens5=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
& .and.(i.ne.i3).and.(i.ne.i4)&
& .and.(i.ne.i5)) then
dens5=dens5*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi5=resi5+dens5*res5(dicut5,mu2)
dicut5=dicut5+1
enddo
enddo
enddo
enddo
enddo
!---#] Contributo dei pentuple cuts:
elseif (nleg.eq.5) then
resi5=res5(1,mu2)
end if
if (nleg.ge.5) then
!---#[ Contributo dei quadruple cuts:
dicut4=1
do i4=3,nleg-1
do i3=2,i4-1
do i2=1,i3-1
do i1=0,i2-1
dens4=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2) &
&.and.(i.ne.i3).and.(i.ne.i4)) then
dens4=dens4*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi4=resi4+dens4*Res4(dicut4,q1,mu2)
dicut4=dicut4+1
enddo
enddo
enddo
enddo
!---#] Contributo dei quadruple cuts:
elseif (nleg.eq.4) then
resi4=Res4(1,q1,mu2)
end if
if (nleg.ge.4) then
!---#[ Contributo dei Triple cuts:
dicut3=1
do i3=2,nleg-1
do i2=1,i3-1
do i1=0,i2-1
dens3=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2).and.(i.ne.i3)) then
dens3=dens3*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi3=resi3+dens3*Res3(dicut3,q1,mu2)
dicut3=dicut3+1
enddo
enddo
enddo
!---#] Contributo dei Triple cuts:
elseif (nleg.eq.3) then
resi3=Res3(1,q1,mu2)
end if
if (nleg.ge.3) then
!---#[ Contributo dei Double cuts:
dicut2=1
do i2=1,nleg-1
do i1=0,i2-1
dens2=cone
do i=0,nleg-1
if ((i.ne.i1).and.(i.ne.i2)) then
dens2=dens2*denevalmu2(nleg,i,q1,Vi,msq,mu2)
endif
enddo
resi2=resi2+dens2*Res2(dicut2,q1,mu2)
dicut2=dicut2+1
enddo
enddo
!---#] Contributo dei Double cuts:
elseif (nleg.eq.2) then
resi2=Res2(1,q1,mu2)
endif
!---#[ Contribution of the single cut:
dicut1=1
do i1=0,nleg-1
dens1=cone
! ---> I replaced this loop
!do i=0,nleg-1
! if (i.ne.i1) then
! dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
! endif
!enddo
! ---> because we can do this without an if statement inside:
do i=0,i1-1
dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
enddo
do i=i1+1,nleg-1
dens1=dens1*denevalmu2(nleg,i,q1,Vi,msq,mu2)
enddo
- resi1=resi1+dens1*Res1(dicut1,q1)
+ resi1=resi1+dens1*Res1(dicut1,q1,mu2)
dicut1=dicut1+1
enddo
!---#] Contribution of the single cut:
xneval=numeval(ncut,q1,mu2)
resitot=resi5+resi4+resi3+resi2+resi1
ztest=xneval-resitot
if(verbosity.ge.3)then
write(iout,*) '--------------------------------------------'
write(iout,*) 'N=N test for'
write(iout,*) 'q(0) = ', q1(4)
write(iout,*) 'q(1) = ', q1(1)
write(iout,*) 'q(2) = ', q1(2)
write(iout,*) 'q(3) = ', q1(3)
write(iout,*) 'and mu2 = ', mu2
write(iout,*) 'N calculated', xneval
write(iout,*) 'N reconstructed', resitot
write(iout,*) ' '
write(iout,*) 'difference = ', ztest
write(iout,*) 'rel.diff. = ', ztest/xneval
write(iout,*) '--------------------------------------------'
endif
if (abs(ztest/xneval).gt.nnlimit) then
ok=.false.
if (verbosity.gt.0) write(iout,*) 'N=N test FAILED'
else
ok=.true.
endif
end subroutine nntest_cm
subroutine lnntest4(numeval,cut4,c4,qt,p0,k3,e3,e4,ok)
implicit none
integer, intent(in) :: cut4
- complex(ki), dimension(0:4), intent(in) :: c4
+ complex(ki), dimension(0:5), intent(in) :: c4
complex(ki), dimension(4), intent(in) :: qt, e3, e4
real(ki), dimension(4), intent(in) :: p0, k3
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
complex(ki), dimension(4) :: pm
complex(ki) :: test4, poli4, reldif
pm(:)=qt(:)+p0(:)
if (imeth.eq.'diag') then
test4=(numeval(cut4,qt,chaf)-resit(4))/denst(4)
elseif (imeth.eq.'tree') then
test4= numeval(cut4,qt,chaf)-resit(4) /denst(4)
endif
poli4=poly4(c4,pm,chaf,k3,e3,e4)
if (abs(poli4).lt.nprec .and. abs(test4).lt.nprec) then
reldif = nprec
else
reldif=(test4-poli4)/poli4
endif
if(verbosity.ge.3)then
write(iout,*) ' LOCAL N=N TEST - BOX'
write(iout,*) 'cut4 =',cut4
write(iout,*) 'test4 =',test4
write(iout,*) 'poli4 =',poli4
write(iout,*) 'diff4 =',test4-poli4
write(iout,*) 'rel.dif4=',abs(reldif)
endif
if (abs(reldif).gt.lnnlimit4) then
ok = .false.
if (verbosity.gt.0) &
& write(iout,*) 'LOCAL N=N test FAILED for the BOX',cut4
else
ok = .true.
endif
end subroutine lnntest4
subroutine lnntest3(numeval,cut3,c3,qt,p0,e3,e4,ok)
implicit none
integer, intent(in) :: cut3
- complex(ki), dimension(0:9), intent(in) :: c3
+ complex(ki), dimension(0:14), intent(in) :: c3
complex(ki), dimension(4), intent(in) :: qt, e3, e4
real(ki), dimension(4), intent(in) :: p0
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
complex(ki), dimension(4) :: pm
complex(ki) :: test3, poli3, reldif
pm(:)=qt(:)+p0(:)
if (imeth.eq.'diag') then
test3=(numeval(cut3,qt,chaf)-resit(3)) / denst(3)
elseif (imeth.eq.'tree') then
test3= numeval(cut3,qt,chaf)-resit(3) / denst(3)
endif
poli3=poly3(c3,pm,chaf,e3,e4)
if (abs(poli3).lt.nprec .and. abs(test3).lt.nprec) then
reldif = nprec
else
reldif=(test3-poli3)/poli3
endif
if(verbosity.ge.3)then
write(iout,*) ' LOCAL N=N TEST - triangle'
write(iout,*) " cut3 =",cut3
write(iout,*) "test3 =",test3
write(iout,*) "poli3 =",poli3
write(iout,*) "diff3 =",test3-poli3
write(iout,*) "rel.dif3=",abs(reldif)
endif
if (abs(reldif).gt.lnnlimit3) then
ok = .false.
if (verbosity.gt.0) write(iout,*) &
& 'LOCAL N=N test FAILED for the 3-cut',cut3
else
ok = .true.
endif
end subroutine lnntest3
subroutine lnntest2(numeval,cut2,c2,qt,p0,e2,e3,e4,ok)
implicit none
integer, intent(in) :: cut2
- complex(ki), dimension(0:9), intent(in) :: c2
+ complex(ki), dimension(0:19), intent(in) :: c2
complex(ki), dimension(4), intent(in) :: qt, e3, e4
real(ki), dimension(4), intent(in) :: p0, e2
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
complex(ki), dimension(4) :: pm
complex(ki) :: test2, poli2, reldif
pm(:)=qt(:)+p0(:)
if (imeth.eq.'diag') then
test2=(numeval(cut2,qt,chaf)-resit(2))/denst(2)
elseif (imeth.eq.'tree') then
test2= numeval(cut2,qt,chaf)-resit(2) /denst(2)
endif
poli2=poly2(c2,pm,chaf,e2,e3,e4)
if (abs(poli2).lt.nprec .and. abs(test2).lt.nprec) then
reldif = nprec
else
reldif=(test2-poli2)/poli2
endif
if(verbosity.ge.3)then
write(iout,*) ' LOCAL N=N TEST - Bubble'
write(iout,*) " cut2 =",cut2
write(iout,*) "test2 =",test2
write(iout,*) "poli2 =",poli2
write(iout,*) "diff2 =",test2-poli2
write(iout,*) "rel.dif2=",abs(reldif)
endif
if (abs(reldif).gt.lnnlimit2) then
ok = .false.
if (verbosity.gt.0) write(iout,*) &
&'LOCAL N=N test FAILED for the 2-cut',cut2
else
ok = .true.
endif
end subroutine lnntest2
subroutine lnntest1(numeval,cut1,c1,qt,p0,e1,e2,e3,e4,ok)
implicit none
integer, intent(in) :: cut1
- complex(ki), dimension(0:4), intent(in) :: c1
+ complex(ki), dimension(0:15), intent(in) :: c1
complex(ki), dimension(4), intent(in) :: qt, e3, e4
real(ki), dimension(4), intent(in) :: p0, e1, e2
logical, intent(out) :: ok
interface
function numeval(ncut, Q, mu2)
use precision
implicit none
integer, intent(in) :: ncut
complex(ki), dimension(4), intent(in) :: Q
complex(ki), intent(in) :: mu2
complex(ki) :: numeval
end function numeval
end interface
complex(ki), dimension(4) :: pm
complex(ki) :: test1, poli1, reldif
pm(:)=qt(:)+p0(:)
if (imeth.eq.'diag') then
test1=(numeval(cut1,qt,chaf)-resit(1)) / denst(1)
elseif (imeth.eq.'tree') then
test1= numeval(cut1,qt,chaf)-resit(1) /denst(1)
endif
- poli1=poly1(c1,pm,e1,e2,e3,e4)
+ poli1=poly1(c1,pm,chaf,e1,e2,e3,e4)
if (abs(poli1).lt.nprec .and. abs(test1).lt.nprec) then
reldif = nprec
else
reldif=(test1-poli1)/poli1
endif
if (verbosity.ge.3) then
write(iout,*) ' LOCAL N=N TEST - Tadpole'
write(iout,*) " cut1 =",cut1
write(iout,*) "test1 =",test1
write(iout,*) "poli1 =",poli1
write(iout,*) "diff1 =",test1-poli1
write(iout,*) "rel.dif1=",abs(reldif)
endif
if (abs(reldif).gt.lnnlimit1) then
ok = .false.
if (verbosity.gt.0) write(iout,*) &
&'LOCAL N=N test FAILED for the 1-cut',cut1
else
ok = .true.
endif
end subroutine lnntest1
end module mtests
diff --git a/samurai-2.1.1/save.f90 b/samurai-2.1.1/save.f90
index 2153205..e15259d 100644
--- a/samurai-2.1.1/save.f90
+++ b/samurai-2.1.1/save.f90
@@ -1,52 +1,52 @@
module save
use precision, only: ki
use constants, only: max1, max2, max3, max4, max5
implicit none
save
private :: max1, max2, max3, max4, max5, ki
real(ki) :: sav5p0(max5,4)
real(ki) :: sav5e1(max5,4)
real(ki) :: sav5e2(max5,4)
complex(ki) :: sav5e3(max5,4)
complex(ki) :: sav5e4(max5,4)
complex(ki) :: savc5(max5)
integer :: savcut5(max5)
real(ki) :: savL3(max4,4)
real(ki) :: sav4p0(max4,4)
real(ki) :: sav4e1(max4,4)
real(ki) :: sav4e2(max4,4)
complex(ki) :: sav4e3(max4,4)
complex(ki) :: sav4e4(max4,4)
- complex(ki) :: savc4(max4,0:4)
+ complex(ki) :: savc4(max4,0:5)
integer :: savcut4(max4)
real(ki) :: sav3p0(max3,4)
real(ki) :: sav3e1(max3,4)
real(ki) :: sav3e2(max3,4)
complex(ki) :: sav3e3(max3,4)
complex(ki) :: sav3e4(max3,4)
- complex(ki) :: savc3(max3,0:9)
+ complex(ki) :: savc3(max3,0:14)
integer :: savcut3(max3)
real(ki) :: sav2p0(max2,4)
real(ki) :: sav2e1(max2,4)
real(ki) :: sav2e2(max2,4)
complex(ki) :: sav2e3(max2,4)
complex(ki) :: sav2e4(max2,4)
- complex(ki) :: savc2(max2,0:9)
+ complex(ki) :: savc2(max2,0:19)
integer :: savcut2(max2)
real(ki) :: sav1p0(max1,4)
real(ki) :: sav1e1(max1,4)
real(ki) :: sav1e2(max1,4)
complex(ki) :: sav1e3(max1,4)
complex(ki) :: sav1e4(max1,4)
- complex(ki) :: savc1(max1,0:4)
+ complex(ki) :: savc1(max1,0:15)
integer :: savcut1(max1)
end module save

File Metadata

Mime Type
application/octet-stream
Expires
Sun, Oct 13, 1:23 PM (1 d, 21 h)
Storage Engine
chunks
Storage Format
Chunks
Storage Handle
b1p4KdZCsa5h
Default Alt Text
(4 MB)

Event Timeline