LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ cerrps()

subroutine cerrps ( character*3  PATH,
integer  NUNIT 
)

CERRPS

Purpose:
 CERRPS tests the error exits for the COMPLEX routines
 for CPSTRF..
Parameters
[in]PATH
          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.
[in]NUNIT
          NUNIT is INTEGER
          The unit number for output.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 57 of file cerrps.f.

57 *
58 * -- LAPACK test routine (version 3.7.0) --
59 * -- LAPACK is a software package provided by Univ. of Tennessee, --
60 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61 * December 2016
62 *
63 * .. Scalar Arguments ..
64  INTEGER nunit
65  CHARACTER*3 path
66 * ..
67 *
68 * =====================================================================
69 *
70 * .. Parameters ..
71  INTEGER nmax
72  parameter( nmax = 4 )
73 * ..
74 * .. Local Scalars ..
75  INTEGER i, info, j, rank
76 * ..
77 * .. Local Arrays ..
78  COMPLEX a( nmax, nmax )
79  REAL rwork( 2*nmax )
80  INTEGER piv( nmax )
81 * ..
82 * .. External Subroutines ..
83  EXTERNAL alaesm, chkxer, cpstf2, cpstrf
84 * ..
85 * .. Scalars in Common ..
86  INTEGER infot, nout
87  LOGICAL lerr, ok
88  CHARACTER*32 srnamt
89 * ..
90 * .. Common blocks ..
91  COMMON / infoc / infot, nout, ok, lerr
92  COMMON / srnamc / srnamt
93 * ..
94 * .. Intrinsic Functions ..
95  INTRINSIC real
96 * ..
97 * .. Executable Statements ..
98 *
99  nout = nunit
100  WRITE( nout, fmt = * )
101 *
102 * Set the variables to innocuous values.
103 *
104  DO 110 j = 1, nmax
105  DO 100 i = 1, nmax
106  a( i, j ) = 1.0 / REAL( i+j )
107 *
108  100 CONTINUE
109  piv( j ) = j
110  rwork( j ) = 0.
111  rwork( nmax+j ) = 0.
112 *
113  110 CONTINUE
114  ok = .true.
115 *
116 *
117 * Test error exits of the routines that use the Cholesky
118 * decomposition of an Hermitian positive semidefinite matrix.
119 *
120 * CPSTRF
121 *
122  srnamt = 'CPSTRF'
123  infot = 1
124  CALL cpstrf( '/', 0, a, 1, piv, rank, -1.0, rwork, info )
125  CALL chkxer( 'CPSTRF', infot, nout, lerr, ok )
126  infot = 2
127  CALL cpstrf( 'U', -1, a, 1, piv, rank, -1.0, rwork, info )
128  CALL chkxer( 'CPSTRF', infot, nout, lerr, ok )
129  infot = 4
130  CALL cpstrf( 'U', 2, a, 1, piv, rank, -1.0, rwork, info )
131  CALL chkxer( 'CPSTRF', infot, nout, lerr, ok )
132 *
133 * CPSTF2
134 *
135  srnamt = 'CPSTF2'
136  infot = 1
137  CALL cpstf2( '/', 0, a, 1, piv, rank, -1.0, rwork, info )
138  CALL chkxer( 'CPSTF2', infot, nout, lerr, ok )
139  infot = 2
140  CALL cpstf2( 'U', -1, a, 1, piv, rank, -1.0, rwork, info )
141  CALL chkxer( 'CPSTF2', infot, nout, lerr, ok )
142  infot = 4
143  CALL cpstf2( 'U', 2, a, 1, piv, rank, -1.0, rwork, info )
144  CALL chkxer( 'CPSTF2', infot, nout, lerr, ok )
145 *
146 *
147 * Print a summary line.
148 *
149  CALL alaesm( path, ok, nout )
150 *
151  RETURN
152 *
153 * End of CERRPS
154 *
subroutine cpstf2(UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO)
CPSTF2 computes the Cholesky factorization with complete pivoting of complex Hermitian positive semid...
Definition: cpstf2.f:144
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65
subroutine cpstrf(UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO)
CPSTRF computes the Cholesky factorization with complete pivoting of complex Hermitian positive semid...
Definition: cpstrf.f:144
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
Here is the call graph for this function:
Here is the caller graph for this function: