*     G05QAF Example Program Text
*     Mark 20 Release. NAG Copyright 2001.
*     .. Parameters ..
      INTEGER          N, M, LDA
      PARAMETER        (N=4,M=4,LDA=10)
      INTEGER          NOUT
      PARAMETER        (NOUT=6)
*     .. Local Scalars ..
      INTEGER          I, IFAIL, IGEN, J
*     .. Local Arrays ..
      DOUBLE PRECISION A(LDA,N), WK(2*N)
      INTEGER          ISEED(4)
*     .. External Subroutines ..
      EXTERNAL         G05KBF, G05QAF
*     .. Executable Statements ..
      WRITE (NOUT,*) 'G05QAF Example Program Results'
      WRITE (NOUT,*)
*
*     IGEN identifies the stream.
      IGEN = 1
*     Initialise the seed to a repeatable sequence
      ISEED(1) = 1762543
      ISEED(2) = 9324783
      ISEED(3) = 423446
      ISEED(4) = 742355
      CALL G05KBF(IGEN,ISEED)
*
      IFAIL = 0
*
      CALL G05QAF('Right','Initialize',M,N,A,LDA,IGEN,ISEED,WK,IFAIL)
*
      DO 20 I = 1, M
         WRITE (NOUT,99999) (A(I,J),J=1,N)
   20 CONTINUE
      STOP
*
99999 FORMAT (1X,4F9.3)
      END