*DECK U11US SUBROUTINE U11US (A, MDA, M, N, UB, DB, MODE, NP, KRANK, KSURE, H, + W, EB, IR, IC) C***BEGIN PROLOGUE U11US C***SUBSIDIARY C***PURPOSE Subsidiary to ULSIA C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (U11US-S, DU11US-D) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C This routine performs an LQ factorization of the C matrix A using Householder transformations. Row C and column pivots are chosen to reduce the growth C of round-off and to help detect possible rank C deficiency. C C***SEE ALSO ULSIA C***ROUTINES CALLED ISAMAX, ISWAP, SAXPY, SDOT, SNRM2, SSCAL, SSWAP, C XERMSG C***REVISION HISTORY (YYMMDD) C 810801 DATE WRITTEN C 890531 Changed all specific intrinsics to generic. (WRB) C 890831 Modified array declarations. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ) C 900328 Added TYPE section. (WRB) C***END PROLOGUE U11US