C_ommp_set_default_matv Subroutine

public subroutine C_ommp_set_default_matv(s_prt, matv) bind(c, name="0")

Arguments

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

Calls

proc~~c_ommp_set_default_matv~~CallsGraph proc~c_ommp_set_default_matv C_ommp_set_default_matv proc~ommp_set_default_matv ommp_set_default_matv proc~c_ommp_set_default_matv->proc~ommp_set_default_matv proc~set_def_matv set_def_matv proc~ommp_set_default_matv->proc~set_def_matv proc~fatal_error fatal_error proc~set_def_matv->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

C_ommp_set_default_matv

Source Code

        subroutine C_ommp_set_default_matv(s_prt, matv) bind(c, name='ommp_set_default_matv')
            implicit none 

            integer(ommp_integer), intent(in), value :: matv
            type(c_ptr), value :: s_prt
            type(ommp_system), pointer :: s
           
            call c_f_pointer(s_prt, s)
            
            call ommp_set_default_matv(s, matv)
        end subroutine C_ommp_set_default_matv