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.
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character(len=:), | allocatable | :: | display_style | {“PROGRESS”, “CLASSIC”, “QUIET”, “COMPACT”}). Default is “PROGRESS” |
||
| 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 |
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
!! {"PROGRESS", "CLASSIC", "QUIET", "COMPACT"}).
!! Default is "PROGRESS"
call swiftest_io_get_args(integrator, param_file_name, display_style, from_cli=.true.)
call swiftest_driver(integrator, param_file_name, display_style)
call base_util_exit(SUCCESS)
end program main