NAME

TESTING/LIN/dget03.f

SYNOPSIS

Functions/Subroutines

subroutine dget03 (n, a, lda, ainv, ldainv, work, ldwork, rwork, rcond, resid)
DGET03

Function/Subroutine Documentation

subroutine dget03 (integer n, double precision, dimension( lda, * ) a, integer lda, double precision, dimension( ldainv, * ) ainv, integer ldainv, double precision, dimension( ldwork, * ) work, integer ldwork, double precision, dimension( * ) rwork, double precision rcond, double precision resid)

DGET03

Purpose:

 DGET03 computes the residual for a general matrix times its inverse:
    norm( I - AINV*A ) / ( N * norm(A) * norm(AINV) * EPS ),
 where EPS is the machine epsilon.

Parameters

          N is INTEGER
          The number of rows and columns of the matrix A.  N >= 0.

          A is DOUBLE PRECISION array, dimension (LDA,N)
          The original N x N matrix A.

LDA

          LDA is INTEGER
          The leading dimension of the array A.  LDA >= max(1,N).

AINV

          AINV is DOUBLE PRECISION array, dimension (LDAINV,N)
          The inverse of the matrix A.

LDAINV

          LDAINV is INTEGER
          The leading dimension of the array AINV.  LDAINV >= max(1,N).

WORK

          WORK is DOUBLE PRECISION array, dimension (LDWORK,N)

LDWORK

          LDWORK is INTEGER
          The leading dimension of the array WORK.  LDWORK >= max(1,N).

RWORK

          RWORK is DOUBLE PRECISION array, dimension (N)

RCOND

          RCOND is DOUBLE PRECISION
          The reciprocal of the condition number of A, computed as
          ( 1/norm(A) ) / norm(AINV).

RESID

          RESID is DOUBLE PRECISION
          norm(I - AINV*A) / ( N * norm(A) * norm(AINV) * EPS )

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 107 of file dget03.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.

Version 3.12.0

LAPACK