This repository was archived by the owner on Aug 28, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge branch 'debug' of https://github.com/carlislewishard/swiftest
- Loading branch information
Showing
8 changed files
with
279 additions
and
188 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,24 @@ | ||
subroutine driver(integrator, param_file_name, display_style) | ||
|
||
!! author: David A. Minton | ||
!! | ||
!! Driver program for the Swiftest integrators. Unlike the earlier Swift and Swifter drivers, in Swiftest all integrators | ||
!! are run from this single program. | ||
!! | ||
!! Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90 | ||
!! Adapted from Hal Levison and Martin Duncan's Swift driver programs | ||
use swiftest, only : swiftest_driver | ||
implicit none | ||
|
||
! Arguments | ||
character(len=:), intent(in), allocatable :: integrator !! Symbolic code of the requested integrator | ||
character(len=:), intent(in), allocatable :: param_file_name !! Name of the input parameters file | ||
character(len=:), intent(in), allocatable :: display_style !! Style of the output display {"STANDARD", "COMPACT", "PROGRESS"}). Default is "STANDARD") | ||
!f2py intent(in) integrator | ||
!f2py intent(in) param_file_name | ||
!f2py intent(in) display_style | ||
|
||
call swiftest_driver(integrator, param_file_name, display_style) | ||
|
||
return | ||
end subroutine driver |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,28 @@ | ||
!! Copyright 2023 - David Minton | ||
!! This file is part of Swiftest. | ||
!! Swiftest is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License | ||
!! as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. | ||
!! Swiftest is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty | ||
!! of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. | ||
!! You should have received a copy of the GNU General Public License along with Swiftest. | ||
!! If not, see: https://www.gnu.org/licenses. | ||
|
||
program main | ||
!! author: David A. Minton | ||
!! | ||
!! This is used as a wrapper for the swiftest_driver subroutine so that the driver can be used as either | ||
!! a function call or a standalone executable program. | ||
use swiftest | ||
implicit none | ||
|
||
character(len=:), allocatable :: integrator !! Integrator type code (see globals for symbolic names) | ||
character(len=:), allocatable :: param_file_name !! Name of the file containing user-defined parameters | ||
character(len=:), allocatable :: display_style !! Style of the output display {"STANDARD", "COMPACT", "PROGRESS"}). Default is "STANDARD" | ||
|
||
! Read in command line arguments | ||
call swiftest_io_get_args(integrator, param_file_name, display_style) | ||
|
||
! Execute the driver | ||
call swiftest_driver(integrator, param_file_name, display_style) | ||
|
||
end program main |
Oops, something went wrong.