Misleading error message in src/modules/lapack/Lapack.c (PR#3494)

Full_Name: Ken Crowell
Version: 1.7.1
OS: Solaris 2.8
Submission from: (NULL) (198.166.4.100)


In src/modules/lapack/Lapack.c, there are small typos in an pair of error
messages.

Starting at line 806:

    F77_CALL(dgeqp3)(&m, &n, REAL(A), &m, INTEGER(jpvt), REAL(tau),
                     &tmp, &lwork, rwork, &info);
    if (info < 0)     
        error("error code %d from Lapack routine dqeqp3", info);
    lwork = (int) tmp;
    work = (double *) R_alloc(lwork, sizeof(double));
    F77_CALL(dgeqp3)(&m, &n, REAL(A), &m, INTEGER(jpvt), REAL(tau),
                     work, &lwork, rwork, &info);
    if (info < 0)
        error("error code %d from Lapack routine dqeqp3", info);

The error messages refer to routine 'dqeqp3' instead of 'dgeqp3'.

(I'll keep trying to figure out why I'm getting the error message at all when
running 'make check'...)