bindings_c_driver Subroutine

  1. bindings_module.f90
  2. bindings_module
  3. bindings_c_driver

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

Arguments

TypeIntentOptionalAttributesName
character(kind=c_char), intent(in), dimension(*):: c_integrator
character(kind=c_char), intent(in), dimension(*):: c_param_file_name
character(kind=c_char), intent(in), dimension(*):: c_display_style

Calls

proc~~bindings_c_driver~~CallsGraph proc~bindings_c_driver bindings_c_driver proc~bindings_c2f_string bindings_c2f_string proc~bindings_c_driver->proc~bindings_c2f_string 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

Contents

Source Code

bindings_c_driver

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