Skip to content
Snippets Groups Projects
Commit 20261ad5 authored by Ivan Razumov's avatar Ivan Razumov
Browse files

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

parent 4e79804e
No related branches found
No related tags found
1 merge request!471[SPI-1659] Fix function duplication in cmrc and tauola
Pipeline #1765004 passed
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment