      SUBROUTINE ADJRAW(COUNTS)
      IMPLICIT NONE
C***********************************************************************
C
C   NAME- ADJRAW
C
C   LANGUAGE- FORTRAN     TYPE- SUBROUTINE      COMPUTER- IBM SP
C
C   VERSION- 1.0   DATE- 11/09/2004  PROGRAMMER- FRANK TILLEY (RAYTHEON)
C
C   FUNCTION- THIS ROUTINE MAKES ANY NECESSARY ADJUSTMENTS TO RAW
C             EARTH VIEW COUNTS TO CORRECT FOR RADIO FREQUENCY INTERFERENCE
C             IN AMSU-B DATA.
C
C   FILES- NONE
C
C   CALLING ARGUMENTS-
C   NAME     TYPE   I/0  DESCRIPTION
C   ----     ----   ---  -----------
C   COUNTS    INT   I/O  RAW EARTH VIEW COUNTS FOR 90 SPOTS, 5
C                        CHANNELS PER SPOT.  THESE COUNTS ARE
C                        ADJUSTED FOR RFI AND RETURNED TO THE
C                        CALLING ROUTINE.
C
C   COMMON AREA PARAMETERS-
C
      INCLUDE 'RFICOR'
      INCLUDE 'SPVAL'
C
C   LOCAL PARAMETERS-
C   NAME     TYPE    DESCRIPTION
C   ----     ----    -----------
C   CHAN      INT    LOOP AND ARRAY INDEX.
C   I, J      I*4    LOOP INDEX VARIABLES
C   SPOT      I*4    LOOP AND ARRAY INDEX.
C
C   SUBPROGRAMS CALLED- NONE
C
C   CALLED BY- AMBLIN
C
C   EXIT STATES- NONE
C
C***********************************************************************
C-- CALLING ARGUMENTS
C
      INTEGER   COUNTS(5,90)
C
C-- LOCAL VARIABLES
C
      INTEGER   CHAN, I, J, SPOT
C
C-- ADJUST THE EARTH VIEW RAW COUNTS FOR THE ORIGINAL RFI.
C
      DO SPOT = 1, 90
         DO CHAN = 1, 5
            COUNTS(CHAN,SPOT) = COUNTS(CHAN,SPOT) +
     +                          RFITOT(CHAN,SPOT)
         END DO
      END DO
C
C-- RETURN TO THE CALLING ROUTINE
C
      RETURN
C
      END
