|
|
4b5a59b |
#! /bin/sh /usr/share/dpatch/dpatch-run
|
|
|
4b5a59b |
## 206-herwig-uses-DBLE-not-REAL.dpatch by <kmccarty@debian.org>
|
|
|
4b5a59b |
##
|
|
|
4b5a59b |
## All lines beginning with `## DP:' are a description of the patch.
|
|
|
4b5a59b |
## DP: Have libherwig use double precision consistently
|
|
|
4b5a59b |
|
|
|
4b5a59b |
@DPATCH@
|
|
|
24be4e6 |
diff -urNad mclibs-2006.dfsg~/src/mclibs/herwig/code/hwhiga.F mclibs-2006.dfsg/src/mclibs/herwig/code/hwhiga.F
|
|
|
24be4e6 |
--- mclibs-2006.dfsg~/src/mclibs/herwig/code/hwhiga.F 2006-09-04 08:32:57.000000000 -0400
|
|
|
24be4e6 |
+++ mclibs-2006.dfsg/src/mclibs/herwig/code/hwhiga.F 2007-01-19 17:39:10.154251922 -0500
|
|
|
c8a3a37 |
@@ -72,7 +72,7 @@
|
|
|
c8a3a37 |
TAMP(6)=HWHIG5(T,S,U,EMH2,EMQ2,2,0,5,0,0,0)
|
|
|
c8a3a37 |
TAMP(7)=HWHIG5(U,T,S,EMH2,EMQ2,3,0,6,0,0,0)
|
|
|
c8a3a37 |
DO 20 I=1,7
|
|
|
c8a3a37 |
- TAMPI(I)= REAL(TAMP(I))
|
|
|
c8a3a37 |
+ TAMPI(I)= DBLE(TAMP(I))
|
|
|
24be4e6 |
#if !defined(CERNLIB_GFORTRAN)
|
|
|
c8a3a37 |
20 TAMPR(I)=-IMAG(TAMP(I))
|
|
|
24be4e6 |
#else
|
|
|
24be4e6 |
diff -urNad mclibs-2006.dfsg~/src/mclibs/herwig/code/hwuli2.F mclibs-2006.dfsg/src/mclibs/herwig/code/hwuli2.F
|
|
|
24be4e6 |
--- mclibs-2006.dfsg~/src/mclibs/herwig/code/hwuli2.F 2006-09-04 08:32:57.000000000 -0400
|
|
|
24be4e6 |
+++ mclibs-2006.dfsg/src/mclibs/herwig/code/hwuli2.F 2007-01-19 17:39:27.722516271 -0500
|
|
|
c8a3a37 |
@@ -18,7 +18,7 @@
|
|
|
c8a3a37 |
& 1.644934066848226D0/
|
|
|
c8a3a37 |
PROD(Y,Y2)=Y*(ONE+A1*Y*(ONE+A2*Y*(ONE+A3*Y2*(ONE+A4*Y2*(ONE+A5*Y2*
|
|
|
c8a3a37 |
& (ONE+A6*Y2*(ONE+A7*Y2*(ONE+A8*Y2*(ONE+A9*Y2*(ONE+A10*Y2))))))))))
|
|
|
c8a3a37 |
- XR=REAL(X)
|
|
|
c8a3a37 |
+ XR=DBLE(X)
|
|
|
24be4e6 |
#if !defined(CERNLIB_GFORTRAN)
|
|
|
c8a3a37 |
XI=IMAG(X)
|
|
|
24be4e6 |
#else
|