Function:     QCNVL1

Purpose:      Auxiliary routine for CONVOLVE.

Category:     MATH

File:         qcnvl1.src

Author:       K.G. Begeman

Use:          CALL QCNVL1( V1 ,           Input         REAL ARRAY
                           V2 ,       Input/Output      REAL ARRAY
                           CF ,           Input         REAL
                           N )            Input         INTEGER

              V1        Array contains data to be convolved.
              V2        Array to which CF * V1 is added.
              CF        Convolving factor.
              N         Size of V1 and V2.

Notes:        V1 and V2 may not contain BLANKS. If this is not the case,
              use QCNVL2.

Description:  The operation performed by CNVL1 is: V2 = V2 + CF * V1.

Updates:      Apr 10, 1991: KGB Document created.