bindings_c_driver Subroutine

public subroutine bindings_c_driver(c_integrator, c_param_file_name, c_display_style) bind(c, name="bindings_c_driver")

Arguments

Type IntentOptional Attributes Name
character(kind=c_char, len=1), intent(in), dimension(*) :: c_integrator
character(kind=c_char, len=1), intent(in), dimension(*) :: c_param_file_name
character(kind=c_char, len=1), intent(in), dimension(*) :: c_display_style

Calls

proc~~bindings_c_driver~~CallsGraph proc~bindings_c_driver bindings_c_driver interface~swiftest_driver swiftest_driver proc~bindings_c_driver->interface~swiftest_driver interface~swiftest_io_get_args swiftest_io_get_args proc~bindings_c_driver->interface~swiftest_io_get_args proc~bindings_c2f_string bindings_c2f_string proc~bindings_c_driver->proc~bindings_c2f_string

Source Code

      subroutine bindings_c_driver(c_integrator, c_param_file_name, c_display_style) bind(c, name="bindings_c_driver")
         implicit none
         character(kind=c_char), dimension(*), intent(in) :: c_integrator, c_param_file_name, c_display_style
         character(len=:), allocatable :: integrator, param_file_name, display_style

         call bindings_c2f_string(c_integrator, integrator)
         call bindings_c2f_string(c_param_file_name, param_file_name)
         call bindings_c2f_string(c_display_style, display_style)

         call swiftest_io_get_args(integrator,param_file_name,display_style,from_cli=.false.)
         call swiftest_driver(integrator,param_file_name,display_style)
      end subroutine bindings_c_driver