Function:     QCLN1

Purpose:      Fast subtract and search routine for CLEAN.

Category:     MISC

File:         qcln1.src

Author:       K.G. Begeman

Use:          CALL QCLN1( MAP ,      Input/Output     REAL ARRAY
                          APT,          Input         REAL ARRAY
                          NL ,          Input         INTEGER
                          NM ,          Input         INTEGER
                          NA ,          Input         INTEGER
                          IA ,          Input         INTEGER
                          SCOFF ,       Input         REAL
                          ACMP ,        Input         REAL
                          NCMP ,        Input         INTEGER
                          AMAX ,        Output        REAL
                          NMAX ,        Output        INTEGER
                          AMIN ,        Output        REAL
                          NMIN )        Output        INTEGER

              MAP        Array containing the 2D dirty data.
              APT        Array containing the antenna pattern.
              NL         Size in X of map.
              NM         Size in Y of map.
              NA         Size in X of antenna pattern.
              IA         Position of centre of antenna pattern.
              SCOFF      Offset so that all data > 0 are searched
                         for clean components.
              ACMP       Amplitude of component to subtract.
              NCMP       Position of component.
              AMAX       New maximum after subtraction of component.
              NMAX       Position new maximum.
              AMIN       New minimum after subtraction of component.
              NMIN       Position new minimum.

Updates:      Apr 17, 1991: KGB Document created.