main Program

Uses

  • program~~main~~UsesGraph program~main main module~swiftest swiftest program~main->module~swiftest module~base base module~swiftest->module~base module~collision collision module~swiftest->module~collision module~encounter encounter module~swiftest->module~encounter module~globals globals module~swiftest->module~globals module~io_progress_bar io_progress_bar module~swiftest->module~io_progress_bar module~lambda_function lambda_function module~swiftest->module~lambda_function module~laplace_coefficients laplace_coefficients module~swiftest->module~laplace_coefficients module~netcdf_io netcdf_io module~swiftest->module~netcdf_io module~operators operators module~swiftest->module~operators module~solver solver module~swiftest->module~solver module~walltime walltime module~swiftest->module~walltime module~base->module~globals module~coarray coarray module~base->module~coarray module~collision->module~base module~collision->module~encounter module~collision->module~globals module~encounter->module~base module~encounter->module~globals module~encounter->module~netcdf_io iso_c_binding iso_c_binding module~globals->iso_c_binding iso_fortran_env iso_fortran_env module~globals->iso_fortran_env module~io_progress_bar->module~base module~io_progress_bar->module~globals module~lambda_function->module~globals module~laplace_coefficients->module~globals ieee_exceptions ieee_exceptions module~laplace_coefficients->ieee_exceptions module~netcdf_io->module~base module~netcdf_io->module~globals module~operators->module~globals module~solver->module~base module~solver->module~globals module~solver->module~lambda_function module~solver->ieee_exceptions module~walltime->module~base module~walltime->module~globals module~coarray->module~globals

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.


Calls

program~~main~~CallsGraph program~main main interface~swiftest_driver swiftest_driver program~main->interface~swiftest_driver interface~swiftest_io_get_args swiftest_io_get_args program~main->interface~swiftest_io_get_args proc~base_util_exit base_util_exit program~main->proc~base_util_exit

Variables

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

Source Code

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