!>
!> DTSQR01 tests DGEQR , DGELQ, DGEMLQ and DGEMQR.
!> 

TSSW

!>          TSSW is CHARACTER
!>          'TS' for testing tall skinny QR
!>               and anything else for testing short wide LQ
!> 

M

!>          M is INTEGER
!>          Number of rows in test matrix.
!> 

N

!>          N is INTEGER
!>          Number of columns in test matrix.
!> 

MB

!>          MB is INTEGER
!>          Number of row in row block in test matrix.
!> 

NB

!>          NB is INTEGER
!>          Number of columns in column block test matrix.
!> 

RESULT

!>          RESULT is REAL array, dimension (6)
!>          Results of each of the six tests below.
!>
!>          RESULT(1) = | A - Q R | or | A - L Q |
!>          RESULT(2) = | I - Q^H Q | or | I - Q Q^H |
!>          RESULT(3) = | Q C - Q C |
!>          RESULT(4) = | Q^H C - Q^H C |
!>          RESULT(5) = | C Q - C Q |
!>          RESULT(6) = | C Q^H - C Q^H |
!> 

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.