R devel - Jul 2003 - 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'...)

On Wed, 16 Jul 2003 17:16:02 +0200 (MET DST), ken@cbr.nrc.ca wrote :
>In src/modules/lapack/Lapack.c, there are small typos in an pair of error
>messages.
Fixed in R-patched.  Thanks!

Duncan Murdoch