C_ommp_fatal Subroutine

public subroutine C_ommp_fatal(c_msg) bind(c, name="0")

Arguments

Type IntentOptional Attributes Name
character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)

Calls

proc~~c_ommp_fatal~~CallsGraph proc~c_ommp_fatal C_ommp_fatal proc~c2f_string c2f_string proc~c_ommp_fatal->proc~c2f_string proc~fatal_error fatal_error proc~c_ommp_fatal->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


Source Code

        subroutine C_ommp_fatal(c_msg) &
                bind(c, name='ommp_fatal')
            implicit none
            
            character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)
            character(len=OMMP_STR_CHAR_MAX) :: msg
            
            call c2f_string(c_msg, msg)
            call ommp_fatal(msg)

        end subroutine C_ommp_fatal