TESTING/LIN/cspt03.f(3)    Library Functions Manual    TESTING/LIN/cspt03.f(3)

NAME
       TESTING/LIN/cspt03.f

SYNOPSIS
   Functions/Subroutines
       subroutine cspt03 (uplo, n, a, ainv, work, ldw, rwork, rcond, resid)
           CSPT03

Function/Subroutine Documentation
   subroutine cspt03 (character uplo, integer n, complex, dimension( * ) a,
       complex, dimension( * ) ainv, complex, dimension( ldw, * ) work,
       integer ldw, real, dimension( * ) rwork, real rcond, real resid)
       CSPT03

       Purpose:


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

       Parameters
           UPLO

                     UPLO is CHARACTER*1
                     Specifies whether the upper or lower triangular part of the
                     complex symmetric matrix A is stored:
                     = 'U':  Upper triangular
                     = 'L':  Lower triangular

           N

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

           A

                     A is COMPLEX array, dimension (N*(N+1)/2)
                     The original complex symmetric matrix A, stored as a packed
                     triangular matrix.

           AINV

                     AINV is COMPLEX array, dimension (N*(N+1)/2)
                     The (symmetric) inverse of the matrix A, stored as a packed
                     triangular matrix.

           WORK

                     WORK is COMPLEX array, dimension (LDW,N)

           LDW

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

           RWORK

                     RWORK is REAL array, dimension (N)

           RCOND

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

           RESID

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

       Author
           Univ. of Tennessee

           Univ. of California Berkeley

           Univ. of Colorado Denver

           NAG Ltd.

       Definition at line 108 of file cspt03.f.

Author
       Generated automatically by Doxygen for LAPACK from the source code.

LAPACK                          Version 3.12.0         TESTING/LIN/cspt03.f(3)