fixing bug in ExternalSplittingFunctions.f

scarrazza · Feb 3, 2017 · 3702934 · 3702934
1 parent d1a6f1e
commit 3702934
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Evolution/ExternalSplittingFunctions.f b/src/Evolution/ExternalSplittingFunctions.f
@@ -111,7 +111,7 @@ subroutine ComputeExternalSplittingFunctions(Bs2Bs,pt,nf,x,beta)
 *
          sfEv2Ev(1,1)   = sfEv2Ev(1,1)   + SP(0,nf,4,pt,alpha,beta) * wg
          sfEv2Ev(1,2)   = sfEv2Ev(1,2)   + SP(0,nf,5,pt,alpha,beta) * wg
-         sfEv2Ev(2,1)   = sfEv2Ev(2,2)   + SP(0,nf,6,pt,alpha,beta) * wg
+         sfEv2Ev(2,1)   = sfEv2Ev(2,1)   + SP(0,nf,6,pt,alpha,beta) * wg
          sfEv2Ev(2,2)   = sfEv2Ev(2,2)   + SP(0,nf,7,pt,alpha,beta) * wg
          sfEv2Ev(3,3)   = sfEv2Ev(3,3)   + SP(0,nf,3,pt,alpha,beta) * wg
          sfEv2Ev(4,4)   = sfEv2Ev(4,4)   + SP(0,nf,2,pt,alpha,beta) * wg