CCHKPS
   Craig Lucas, University of Manchester / NAG Ltd.
Purpose
CCHKPS tests CPSTRF.
Arguments
| DOTYPE | 
 
(input) LOGICAL array, dimension (NTYPES)
 
The matrix types to be used for testing.  Matrices of type j 
(for 1 <= j <= NTYPES) are used for testing if DOTYPE(j) = .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used.  | 
| NN | 
 
(input) INTEGER
 
The number of values of N contained in the vector NVAL. 
 | 
| NVAL | 
 
(input) INTEGER array, dimension (NN)
 
The values of the matrix dimension N. 
 | 
| NNB | 
 
(input) INTEGER
 
The number of values of NB contained in the vector NBVAL. 
 | 
| NBVAL | 
 
(input) INTEGER array, dimension (NBVAL)
 
The values of the block size NB. 
 | 
| NRANK | 
 
(input) INTEGER
 
The number of values of RANK contained in the vector RANKVAL. 
 | 
| RANKVAL | 
 
(input) INTEGER array, dimension (NBVAL)
 
The values of the block size NB. 
 | 
| THRESH | 
 
(input) REAL
 
The threshold value for the test ratios.  A result is 
included in the output file if RESULT >= THRESH. To have every test ratio printed, use THRESH = 0.  | 
| TSTERR | 
 
(input) LOGICAL
 
Flag that indicates whether error exits are to be tested. 
 | 
| NMAX | 
 
(input) INTEGER
 
The maximum value permitted for N, used in dimensioning the 
work arrays.  | 
| A | 
 
(workspace) COMPLEX array, dimension (NMAX*NMAX)
 
 | 
| AFAC | 
 
(workspace) COMPLEX array, dimension (NMAX*NMAX)
 
 | 
| PERM | 
 
(workspace) COMPLEX array, dimension (NMAX*NMAX)
 
 | 
| PIV | 
 
(workspace) INTEGER array, dimension (NMAX)
 
 | 
| WORK | 
 
(workspace) COMPLEX array, dimension (NMAX*3)
 
 | 
| RWORK | 
 
(workspace) REAL array, dimension (NMAX)
 
 | 
| NOUT | 
 
(input) INTEGER
 
The unit number for output. 
 |