Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Switched a bunch of subroutines to the strict math compiler flag cate…
Browse files Browse the repository at this point in the history
…gory to tamp down on floating point nonsense.
  • Loading branch information
daminton committed May 16, 2023
1 parent 027a2f1 commit 45c298e
Show file tree
Hide file tree
Showing 2 changed files with 26 additions and 28 deletions.
50 changes: 25 additions & 25 deletions src/CMakeLists.txt
Original file line number Diff line number Diff line change
Expand Up @@ -13,17 +13,36 @@

# Add the source files
SET(STRICT_MATH_FILES
${SRC}/swiftest/swiftest_kick.f90
${SRC}/helio/helio_kick.f90
${SRC}/rmvs/rmvs_kick.f90
${SRC}/symba/symba_kick.f90
${SRC}/whm/whm_kick.f90
${SRC}/swiftest/swiftest_user.f90
${SRC}/fraggle/fraggle_generate.f90
${SRC}/fraggle/fraggle_util.f90
${SRC}/fraggle/fraggle_module.f90
${SRC}/helio/helio_drift.f90
${SRC}/helio/helio_gr.f90
${SRC}/helio/helio_kick.f90
${SRC}/helio/helio_step.f90
${SRC}/misc/lambda_function_module.f90
${SRC}/misc/solver_module.f90
${SRC}/operator/operator_module.f90
${SRC}/operator/operator_cross.f90
${SRC}/operator/operator_mag.f90
${SRC}/operator/operator_unit.f90
${SRC}/rmvs/rmvs_kick.f90
${SRC}/rmvs/rmvs_step.f90
${SRC}/swiftest/swiftest_drift.f90
${SRC}/swiftest/swiftest_gr.f90
${SRC}/swiftest/swiftest_kick.f90
${SRC}/swiftest/swiftest_user.f90
${SRC}/swiftest/swiftest_obl.f90
${SRC}/swiftest/swiftest_orbel.f90
${SRC}/symba/symba_drift.f90
${SRC}/symba/symba_gr.f90
${SRC}/symba/symba_kick.f90
${SRC}/symba/symba_step.f90
${SRC}/whm/whm_coord.f90
${SRC}/whm/whm_drift.f90
${SRC}/whm/whm_gr.f90
${SRC}/whm/whm_kick.f90
${SRC}/whm/whm_step.f90
)

SET(FAST_MATH_FILES
Expand All @@ -33,7 +52,6 @@ SET(FAST_MATH_FILES
${SRC}/misc/io_progress_bar_module.f90
${SRC}/encounter/encounter_module.f90
${SRC}/collision/collision_module.f90
${SRC}/operator/operator_module.f90
${SRC}/walltime/walltime_module.f90
${SRC}/swiftest/swiftest_module.f90
${SRC}/whm/whm_module.f90
Expand All @@ -49,36 +67,18 @@ SET(FAST_MATH_FILES
${SRC}/encounter/encounter_check.f90
${SRC}/encounter/encounter_io.f90
${SRC}/encounter/encounter_util.f90
${SRC}/helio/helio_drift.f90
${SRC}/helio/helio_gr.f90
${SRC}/helio/helio_step.f90
${SRC}/helio/helio_util.f90
${SRC}/netcdf_io/netcdf_io_implementations.f90
${SRC}/operator/operator_cross.f90
${SRC}/operator/operator_mag.f90
${SRC}/operator/operator_unit.f90
${SRC}/rmvs/rmvs_discard.f90
${SRC}/rmvs/rmvs_encounter_check.f90
${SRC}/rmvs/rmvs_step.f90
${SRC}/rmvs/rmvs_util.f90
${SRC}/swiftest/swiftest_discard.f90
${SRC}/swiftest/swiftest_drift.f90
${SRC}/swiftest/swiftest_gr.f90
${SRC}/swiftest/swiftest_io.f90
${SRC}/swiftest/swiftest_obl.f90
${SRC}/swiftest/swiftest_orbel.f90
${SRC}/swiftest/swiftest_util.f90
${SRC}/symba/symba_discard.f90
${SRC}/symba/symba_drift.f90
${SRC}/symba/symba_encounter_check.f90
${SRC}/symba/symba_gr.f90
${SRC}/symba/symba_step.f90
${SRC}/symba/symba_util.f90
${SRC}/walltime/walltime_implementations.f90
${SRC}/whm/whm_coord.f90
${SRC}/whm/whm_drift.f90
${SRC}/whm/whm_gr.f90
${SRC}/whm/whm_step.f90
${SRC}/whm/whm_util.f90
${SRC}/swiftest/swiftest_driver.f90
)
Expand Down
4 changes: 1 addition & 3 deletions src/swiftest/swiftest_util.f90
Original file line number Diff line number Diff line change
Expand Up @@ -110,7 +110,6 @@ module subroutine swiftest_util_append_arr_kin(arr, source, nold, lsource_mask)
end subroutine swiftest_util_append_arr_kin



module subroutine swiftest_util_append_body(self, source, lsource_mask)
!! author: David A. Minton
!!
Expand Down Expand Up @@ -829,7 +828,6 @@ module subroutine swiftest_util_dealloc_tp(self)
end subroutine swiftest_util_dealloc_tp



module subroutine swiftest_util_fill_arr_info(keeps, inserts, lfill_list)
!! author: David A. Minton
!!
Expand Down Expand Up @@ -2825,6 +2823,7 @@ module subroutine swiftest_util_sort_tp(self, sortby, ascending)
return
end subroutine swiftest_util_sort_tp


module subroutine swiftest_util_sort_rearrange_body(self, ind)
!! author: David A. Minton
!!
Expand Down Expand Up @@ -3200,7 +3199,6 @@ module subroutine swiftest_util_spill_tp(self, discards, lspill_list, ldestructi
end subroutine swiftest_util_spill_tp



module subroutine swiftest_util_valid_id_system(self, param)
!! author: David A. Minton
!!
Expand Down

0 comments on commit 45c298e

Please sign in to comment.