revert unwanted change

cmbant · Jun 19, 2019 · 8af4342 · 8af4342
1 parent 09488c7
commit 8af4342
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/camb/cambdll.dll b/camb/cambdll.dll
diff --git a/fortran/equations.f90 b/fortran/equations.f90
@@ -707,11 +707,8 @@ subroutine CopyScalarVariableArray(y,yout, EV, EVout)
                 do i=nq+1, EVOut%nq(nu_i)
                     lmax = min(EVOut%lmaxnu_tau(nu_i), EV%lmaxnr)
                     ind2=ix_off2+ (i-1)*(EVOut%lmaxnu_tau(nu_i)+1)
-                    if (EV%high_ktau_neutrino_approx) then !!!2019
-                        yout(ind2:ind2+2) = y(EV%r_ix:EV%r_ix+2)
-                    else
-                        yout(ind2:ind2+lmax) = y(EV%r_ix:EV%r_ix+lmax)
-                    end if
+                    yout(ind2:ind2+lmax) = y(EV%r_ix:EV%r_ix+lmax)
+
                     !Add leading correction for the mass
                     q=State%NuPerturbations%nu_q(i)
                     pert_scale=(State%nu_masses(nu_i)/q)**2/2