*/
/*
- * GiNaC Copyright (C) 1999-2007 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2010 Johannes Gutenberg University Mainz, Germany
*
* 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
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
-#include <utility>
-#include <vector>
-#include <set>
+#include "ginac.h"
+#include "timer.h"
+using namespace GiNaC;
+
#include <map>
-#include <typeinfo>
+#include <set>
#include <stdexcept>
-#include "timer.h"
-#include "ginac.h"
+#include <typeinfo>
+#include <utility>
+#include <vector>
using namespace std;
-using namespace GiNaC;
// whether to run this beast or not:
static const bool do_test = true;
/* F_ab(a, i, b, j, "x") is a common pattern in all vertex evaluators. */
static ex F_ab(int a, int i, int b, int j, const symbol &x)
{
+ using GiNaC::tgamma;
if ((i==0 && a<=0) || (j==0 && b<=0))
return 0;
else