Skip to content

bhspinmag fix #795

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
katiebreivik merged 3 commits into from
Jun 2, 2026
Merged

bhspinmag fix #795

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
5294f3c
tiny fix to ran3 definition as real rather than real*8
katiebreivik Jun 2, 2026
6d048d9
remove egregious write debugging
katiebreivik Jun 2, 2026
d315d17
update changelog
katiebreivik Jun 2, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 3 additions & 1 deletion changelog.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,9 @@
- Function signature for kick() and evolv2() in the fortran changed to remove ``bkick`` entirely
- Also removed ``kick_info_out``. Both of these can be reconstructed from ``kick_info``

- Bug fixes: corrected mass sign in bjorklund wind routine in SSE_mlwind.f
- Bug fixes: c
- corrected mass sign in bjorklund wind routine in SSE_mlwind.f
- fixed bug in ``bhspinmag`` assignment in ``assign_remnant.f``

## 4.0.1

Expand Down
6 changes: 4 additions & 2 deletions src/cosmic/src/assign_remnant.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -712,9 +712,11 @@ SUBROUTINE assign_remnant_spin(mc, bhspin)
IMPLICIT NONE
INCLUDE 'const_bse.h'

real*8 ran3, mc, bhspin
real ran3
EXTERNAL ran3

real*8 mc, bhspin

* Set all BH spins equal to bhspinmag
if(bhspinflag.eq.0)then
bhspin = bhspinmag
Expand All @@ -731,7 +733,7 @@ SUBROUTINE assign_remnant_spin(mc, bhspin)
bhspin = 0.0d0
endif
endif

end

integer function first_mt_type_as_donor(star)
Expand Down
Loading