C_ommp_message Subroutine

public subroutine C_ommp_message(c_msg, level, c_pre) bind(c, name="0")

Arguments

Type IntentOptional Attributes Name
character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)
integer(kind=ommp_integer), value :: level
character(kind=c_char), intent(in) :: c_pre(OMMP_STR_CHAR_MAX)

Calls

proc~~c_ommp_message~~CallsGraph proc~c_ommp_message C_ommp_message proc~c2f_string c2f_string proc~c_ommp_message->proc~c2f_string proc~ommp_message ommp_message proc~c_ommp_message->proc~ommp_message

Contents

Source Code


Source Code

        subroutine C_ommp_message(c_msg, level, c_pre) &
                bind(c, name='ommp_message')
            implicit none
            
            character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)
            integer(kind=ommp_integer), value :: level
            character(kind=c_char), intent(in) :: c_pre(OMMP_STR_CHAR_MAX)
            character(len=OMMP_STR_CHAR_MAX) :: msg
            character(len=OMMP_STR_CHAR_MAX) :: pre
            
            call c2f_string(c_msg, msg)
            call c2f_string(c_pre, pre)
            call ommp_message(msg, level, pre)

        end subroutine C_ommp_message