LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ zerrac()

subroutine zerrac ( integer  NUNIT)

ZERRAC

Purpose:
 ZERRPX tests the error exits for ZCPOSV.
Parameters
[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 49 of file zerrac.f.

49 *
50 * -- LAPACK test routine (version 3.7.0) --
51 * -- LAPACK is a software package provided by Univ. of Tennessee, --
52 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
53 * December 2016
54 *
55 * .. Scalar Arguments ..
56  INTEGER nunit
57 * ..
58 *
59 * =====================================================================
60 *
61 * .. Parameters ..
62  INTEGER nmax
63  parameter( nmax = 4 )
64 * ..
65 * .. Local Scalars ..
66  INTEGER i, info, iter, j
67 * ..
68 * .. Local Arrays ..
69  COMPLEX*16 a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
70  $ c( nmax ), r( nmax ), r1( nmax ), r2( nmax ),
71  $ w( 2*nmax ), x( nmax )
72  DOUBLE PRECISION rwork( nmax )
73  COMPLEX*16 work(nmax*nmax)
74  COMPLEX swork(nmax*nmax)
75 * ..
76 * .. External Subroutines ..
77  EXTERNAL chkxer, zcposv
78 * ..
79 * .. Scalars in Common ..
80  LOGICAL lerr, ok
81  CHARACTER*32 srnamt
82  INTEGER infot, nout
83 * ..
84 * .. Common blocks ..
85  COMMON / infoc / infot, nout, ok, lerr
86  COMMON / srnamc / srnamt
87 * ..
88 * .. Intrinsic Functions ..
89  INTRINSIC dble
90 * ..
91 * .. Executable Statements ..
92 *
93  nout = nunit
94  WRITE( nout, fmt = * )
95 *
96 * Set the variables to innocuous values.
97 *
98  DO 20 j = 1, nmax
99  DO 10 i = 1, nmax
100  a( i, j ) = 1.d0 / dble( i+j )
101  af( i, j ) = 1.d0 / dble( i+j )
102  10 CONTINUE
103  b( j ) = 0.d0
104  r1( j ) = 0.d0
105  r2( j ) = 0.d0
106  w( j ) = 0.d0
107  x( j ) = 0.d0
108  c( j ) = 0.d0
109  r( j ) = 0.d0
110  20 CONTINUE
111  ok = .true.
112 *
113  srnamt = 'ZCPOSV'
114  infot = 1
115  CALL zcposv('/',0,0,a,1,b,1,x,1,work,swork,rwork,iter,info)
116  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
117  infot = 2
118  CALL zcposv('U',-1,0,a,1,b,1,x,1,work,swork,rwork,iter,info)
119  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
120  infot = 3
121  CALL zcposv('U',0,-1,a,1,b,1,x,1,work,swork,rwork,iter,info)
122  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
123  infot = 5
124  CALL zcposv('U',2,1,a,1,b,2,x,2,work,swork,rwork,iter,info)
125  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
126  infot = 7
127  CALL zcposv('U',2,1,a,2,b,1,x,2,work,swork,rwork,iter,info)
128  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
129  infot = 9
130  CALL zcposv('U',2,1,a,2,b,2,x,1,work,swork,rwork,iter,info)
131  CALL chkxer( 'ZCPOSV', infot, nout, lerr, ok )
132 *
133 * Print a summary line.
134 *
135  IF( ok ) THEN
136  WRITE( nout, fmt = 9999 )'ZCPOSV'
137  ELSE
138  WRITE( nout, fmt = 9998 )'ZCPOSV'
139  END IF
140 *
141  9999 FORMAT( 1x, a6, ' drivers passed the tests of the error exits' )
142  9998 FORMAT( ' *** ', a6, ' drivers failed the tests of the error ',
143  $ 'exits ***' )
144 *
145  RETURN
146 *
147 * End of ZERRAC
148 *
subroutine zcposv(UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, SWORK, RWORK, ITER, INFO)
ZCPOSV computes the solution to system of linear equations A * X = B for PO matrices ...
Definition: zcposv.f:211
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: