C_ommp_set_default_solver Subroutine

public subroutine C_ommp_set_default_solver(s_prt, solver) bind(c, name="0")

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: s_prt
integer(kind=ommp_integer), intent(in), value :: solver

Calls

proc~~c_ommp_set_default_solver~~CallsGraph proc~c_ommp_set_default_solver C_ommp_set_default_solver proc~ommp_set_default_solver ommp_set_default_solver proc~c_ommp_set_default_solver->proc~ommp_set_default_solver proc~set_def_solver set_def_solver proc~ommp_set_default_solver->proc~set_def_solver proc~fatal_error fatal_error proc~set_def_solver->proc~fatal_error proc~ommp_message ommp_message proc~fatal_error->proc~ommp_message proc~close_output close_output proc~fatal_error->proc~close_output proc~close_output->proc~ommp_message

Contents


Source Code

        subroutine C_ommp_set_default_solver(s_prt, solver) bind(c, name='ommp_set_default_solver')
            implicit none 

            integer(ommp_integer), intent(in), value :: solver
            type(c_ptr), value :: s_prt
            type(ommp_system), pointer :: s
           
            call c_f_pointer(s_prt, s)
            
            call ommp_set_default_solver(s, solver)
        end subroutine C_ommp_set_default_solver