dckgsv.f3

!>
!> DCKGSV tests DGGSVD:
!>        the GSVD for M-by-N matrix A and P-by-N matrix B.
!> 

NM

!>          NM is INTEGER
!>          The number of values of M contained in the vector MVAL.
!> 

MVAL

!>          MVAL is INTEGER array, dimension (NM)
!>          The values of the matrix row dimension M.
!> 

PVAL

!>          PVAL is INTEGER array, dimension (NP)
!>          The values of the matrix row dimension P.
!> 

NVAL

!>          NVAL is INTEGER array, dimension (NN)
!>          The values of the matrix column dimension N.
!> 

NMATS

!>          NMATS is INTEGER
!>          The number of matrix types to be tested for each combination
!>          of matrix dimensions.  If NMATS >= NTYPES (the maximum
!>          number of matrix types), then all the different types are
!>          generated for testing.  If NMATS < NTYPES, another input line
!>          is read to get the numbers of the matrix types to be used.
!> 

ISEED

!>          ISEED is INTEGER array, dimension (4)
!>          On entry, the seed of the random number generator.  The array
!>          elements should be between 0 and 4095, otherwise they will be
!>          reduced mod 4096, and ISEED(4) must be odd.
!>          On exit, the next seed in the random number sequence after
!>          all the test matrices have been generated.
!> 

THRESH

!>          THRESH is DOUBLE PRECISION
!>          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.
!> 

NMAX

!>          NMAX is INTEGER
!>          The maximum value permitted for M or N, used in dimensioning
!>          the work arrays.
!> 

A

!>          A is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

AF

!>          AF is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

B

!>          B is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

BF

!>          BF is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

U

!>          U is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

V

!>          V is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

Q

!>          Q is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

ALPHA

!>          ALPHA is DOUBLE PRECISION array, dimension (NMAX)
!> 

BETA

!>          BETA is DOUBLE PRECISION array, dimension (NMAX)
!> 

R

!>          R is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

IWORK

!>          IWORK is INTEGER array, dimension (NMAX)
!> 

WORK

!>          WORK is DOUBLE PRECISION array, dimension (NMAX*NMAX)
!> 

RWORK

!>          RWORK is DOUBLE PRECISION array, dimension (NMAX)
!> 

NIN

!>          NIN is INTEGER
!>          The unit number for input.
!> 

NOUT

!>          NOUT is INTEGER
!>          The unit number for output.
!> 

INFO

!>          INFO is INTEGER
!>          = 0 :  successful exit
!>          > 0 :  If DLATMS returns an error code, the absolute value
!>                 of it is returned.
!> 

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.