Skip to content

Commit 8af4342

Browse files
committed
revert unwanted change
1 parent 09488c7 commit 8af4342

File tree

2 files changed

+2
-5
lines changed

2 files changed

+2
-5
lines changed

camb/cambdll.dll

0 Bytes
Binary file not shown.

fortran/equations.f90

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -707,11 +707,8 @@ subroutine CopyScalarVariableArray(y,yout, EV, EVout)
707707
do i=nq+1, EVOut%nq(nu_i)
708708
lmax = min(EVOut%lmaxnu_tau(nu_i), EV%lmaxnr)
709709
ind2=ix_off2+ (i-1)*(EVOut%lmaxnu_tau(nu_i)+1)
710-
if (EV%high_ktau_neutrino_approx) then !!!2019
711-
yout(ind2:ind2+2) = y(EV%r_ix:EV%r_ix+2)
712-
else
713-
yout(ind2:ind2+lmax) = y(EV%r_ix:EV%r_ix+lmax)
714-
end if
710+
yout(ind2:ind2+lmax) = y(EV%r_ix:EV%r_ix+lmax)
711+
715712
!Add leading correction for the mass
716713
q=State%NuPerturbations%nu_q(i)
717714
pert_scale=(State%nu_masses(nu_i)/q)**2/2

0 commit comments

Comments
 (0)