Skip to content
Snippets Groups Projects

[SPI-1659] Fix function duplication in cmrc and tauola

Merged Ivan Razumov requested to merge spi-1659-patch-epos into master
1 file
+ 29
0
Compare changes
  • Side-by-side
  • Inline
@@ -47,3 +47,32 @@
+#endif
+
#endif
--- src/epos/epos-sem.f.orig 2020-07-02 09:05:36.107997329 +0200
+++ src/epos/epos-sem.f 2020-07-02 09:07:00.605316804 +0200
@@ -109,7 +109,7 @@
end
c-----------------------------------------------------------------------
- function ffsig(t,qt,x1,x2) !former psjy
+ function ffsigepos(t,qt,x1,x2) !former psjy
c-----------------------------------------------------------------------
include 'epos.incsem'
include 'epos.inc'
@@ -125,7 +125,7 @@
dv2= pifpartone(x2,qt, 2,2,1)+pifpartone(x2,qt, 2,2,2)
sea2=pifpartone(x2,qt,-1,2,1)+pifpartone(x2,qt,-1,2,2)
- ffsig= ffborn(s,t, g1*g2 !gg
+ ffsigepos= ffborn(s,t, g1*g2 !gg
* ,(uv1+dv1+2.*naflav*sea1)*g2+g1*(uv2+dv2+2.*naflav*sea2) !gq
@@ -672,7 +672,7 @@
aa=1.-4.*qq/sh
aa=max(1e-10,aa)
t=sh/2.*(1.-sqrt(aa)) !formula in parton-parton cms
- ft=ffsig(t,qq,sngl(xx1),sngl(xx2))
+ ft=ffsigepos(t,qq,sngl(xx1),sngl(xx2))
fx=fx+wgss(ig1,i1)*ft/sh**2
enddo
enddo
Loading