*DECK QFORM SUBROUTINE QFORM (M, N, Q, LDQ, WA) C***BEGIN PROLOGUE QFORM C***SUBSIDIARY C***PURPOSE Subsidiary to SNSQ and SNSQE C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (QFORM-S, DQFORM-D) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C This subroutine proceeds from the computed QR factorization of C an M by N matrix A to accumulate the M by M orthogonal matrix C Q from its factored form. C C The subroutine statement is C C SUBROUTINE QFORM(M,N,Q,LDQ,WA) C C where C C M is a positive integer input variable set to the number C of rows of A and the order of Q. C C N is a positive integer input variable set to the number C of columns of A. C C Q is an M by M array. On input the full lower trapezoid in C the first min(M,N) columns of Q contains the factored form. C On output Q has been accumulated into a square matrix. C C LDQ is a positive integer input variable not less than M C which specifies the leading dimension of the array Q. C C WA is a work array of length M. C C***SEE ALSO SNSQ, SNSQE C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 800301 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 900326 Removed duplicate information from DESCRIPTION section. C (WRB) C 900328 Added TYPE section. (WRB) C***END PROLOGUE QFORM