From 010e22af44e39c49990fbaeba640ef06f241b1fc Mon Sep 17 00:00:00 2001 From: Shi Ye Date: Sat, 27 Apr 2024 21:35:14 -0500 Subject: [PATCH] Fixed a typo in line 2481 in evolv2.f, from eq.1 to eq.0. --- cosmic/src/evolv2.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cosmic/src/evolv2.f b/cosmic/src/evolv2.f index 5d257e2df..b57eb9705 100644 --- a/cosmic/src/evolv2.f +++ b/cosmic/src/evolv2.f @@ -2478,7 +2478,7 @@ SUBROUTINE evolv2(kstar,mass,tb,ecc,z,tphysf, * dm2 = MIN(dme*taum/tb,dm1) if(wd_mass_lim.eq.1)then dm2 = MIN(dme*taum/tb,dm1) - elseif(wd_mass_lim.eq.1)then + elseif(wd_mass_lim.eq.0)then dm2 = dm1 endif if(dm2.lt.dm1) supedd = .true.