stop_all Subroutine

public pure subroutine stop_all(sub_name, error_msg)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: sub_name
character(len=*), intent(in) :: error_msg

Contents

Source Code


Source Code

    pure subroutine stop_all(sub_name, error_msg)
        character(*), intent(in) :: sub_name, error_msg
        call hidden_stop_all(sub_name, error_msg)
    end subroutine stop_all