From 5c84d93c09e66ffdadf34e8fc6623a89a6ca4b12 Mon Sep 17 00:00:00 2001 From: Valerio Bertone Date: Wed, 1 Feb 2017 13:18:44 +0100 Subject: [PATCH] fixing bug in src/Evolution/odeintsgUnified.f --- src/Evolution/odeintsgUnified.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Evolution/odeintsgUnified.f b/src/Evolution/odeintsgUnified.f index 71f84225..cea52b25 100644 --- a/src/Evolution/odeintsgUnified.f +++ b/src/Evolution/odeintsgUnified.f @@ -419,7 +419,7 @@ subroutine derivssgUnifiedS1(t,M,dMdt) do beta=alpha,nin(igrid) dMdt(i,j,alpha,beta) = 0d0 do l=1,5 - do delta=0,nin(igrid)-alpha + do delta=alpha,beta dMdt(i,j,alpha,beta) = dMdt(i,j,alpha,beta) 1 + integ2(alpha,delta,i,l) 2 * M(l,j,delta,beta) @@ -888,7 +888,7 @@ subroutine derivssgUnifiedS2(t,M,dMdt) do beta=alpha,nin(igrid) dMdt(i,j,alpha,beta) = 0d0 do l=1,2 - do delta=0,nin(igrid)-alpha + do delta=alpha,beta dMdt(i,j,alpha,beta) = dMdt(i,j,alpha,beta) 1 + integ2(alpha,delta,i,l) 2 * M(l,j,delta,beta)