cchkps.f3
Usage
Functions/Subroutines
CCHKPS
Function/Subroutine Documentation
subroutine cchkps (logical, dimension( * ) dotype, integer nn, integer, dimension( * ) nval, integer nnb, integer, dimension( * ) nbval, integer nrank, integer, dimension( * ) rankval, real thresh, logical tsterr, integer nmax, complex, dimension( * ) a, complex, dimension( * ) afac, complex, dimension( * ) perm, integer, dimension( * ) piv, complex, dimension( * ) work, real, dimension( * ) rwork, integer nout)
CCHKPS
Purpose:
!> !> CCHKPS tests CPSTRF. !>
Parameters
DOTYPE
!> DOTYPE is 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
!> NN is INTEGER !> The number of values of N contained in the vector NVAL. !>
NVAL
!> NVAL is INTEGER array, dimension (NN) !> The values of the matrix dimension N. !>
NNB
!> NNB is INTEGER !> The number of values of NB contained in the vector NBVAL. !>
NBVAL
!> NBVAL is INTEGER array, dimension (NNB) !> The values of the block size NB. !>
NRANK
!> NRANK is INTEGER !> The number of values of RANK contained in the vector RANKVAL. !>
RANKVAL
!> RANKVAL is INTEGER array, dimension (NBVAL) !> The values of the block size NB. !>
THRESH
!> THRESH is 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
!> TSTERR is LOGICAL !> Flag that indicates whether error exits are to be tested. !>
NMAX
!> NMAX is INTEGER !> The maximum value permitted for N, used in dimensioning the !> work arrays. !>
A
!> A is COMPLEX array, dimension (NMAX*NMAX) !>
AFAC
!> AFAC is COMPLEX array, dimension (NMAX*NMAX) !>
PERM
!> PERM is COMPLEX array, dimension (NMAX*NMAX) !>
PIV
!> PIV is INTEGER array, dimension (NMAX) !>
WORK
!> WORK is COMPLEX array, dimension (NMAX*3) !>
RWORK
!> RWORK is REAL array, dimension (NMAX) !>
NOUT
!> NOUT is INTEGER !> The unit number for output. !>
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Definition at line 151 of file cchkps.f.