From ken at cbr.nrc.ca  Wed Jul 16 18:16:02 2003
From: ken at cbr.nrc.ca (ken@cbr.nrc.ca)
Date: Wed Jul 16 17:15:57 2003
Subject: [Rd] Misleading error message in src/modules/lapack/Lapack.c
	(PR#3494)
Message-ID: <200307161516.h6GFG2JH011051@pubhealth.ku.dk>

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'...)


[Rd] Misleading error message in src/modules/lapack/Lapack.c (PR#3494)
ken@cbr.nrc.ca