handle_error Subroutine

subroutine handle_error(error_)

Arguments

Type IntentOptional Attributes Name
type(error_t), intent(in), optional :: error_

Source Code

    subroutine handle_error(error_)
        type(error_t), optional, intent(in) :: error_
        if (present(error_)) then
            write (error_unit, '("[Error]", 1x, a)') error_%message
            stop 1
        end if
    end subroutine handle_error