      SUBROUTINE RDWRDS2800(WRDUNT)
      IMPLICIT NONE
C
C**********************************************************************
C
C   NAME- RDWRDS2800
C
C   LANGUAGE- FORTRAN          TYPE- SUBROUTINE   COMPUTER- IBM AIX
C
C   VERSION- 1.0   DATE- 10/8/93   PROGRAMMER- LEAH WILSON CASEY (HSTX)
C   VERSION- 3.0   DATE- 11/13/97  PROGRAMMER- BRIAN BARIL (HSTX)
C   VERSION- 3.1   DATE- 07/09/98  PROGRAMMER- BRIAN BARIL (RSTX)
C   VERSION- 4.0   DATE- 05/09/02  PROGRAMMER- A. ALLEGRINO (RAYTHEON)
C   VERSION- 4.1   DATE- 03/14/03  PROGRAMMER- FRANK TILLEY (RAYTHEON)
C   VERSION- 4.2   DATE- 06/08/04  PROGRAMMER- FRANK TILLEY (RAYTHEON)
C   VERSION- 4.3   DATE- 02/24/06  PROGRAMMER- FRANK TILLEY (ERT)
C   VERSION- 4.4   DATE- 03/04/08  PROGRAMMER- FRANK TILLEY (IMSG)
C   VERSION- 5.0   DATE- 07/10/13  PROGRAMMER- FRANK TILLEY (IMSG)
C
C   FUNCTION-*$LWILSO* READS THE DSDR1T WORDS FOR EACH SPOT.
C   FUNCTION- (VERSION 3.0) MODIFICATIONS FOR INCLUSION INTO ATOVS.
C   FUNCTION- ADDED ALL CHANNELS AND CLEANED UP THE FORMAT.
C   VERSION- 4.0   ADDED AMSU-B AND OTHER PARAMETERS IN REVAMPING OF
C                  THE ROTATING 1T.
C   VERSION- 4.1   REPLACED THE FIRST THREE SPARES WITH RADIANCE
C                  VALUES FOR PREDICTED CLEAR SURFACE TEMPERATURE,
C                  HIRS 8 SURFACE TEMPERATURE ESTIMATE, AND CLOUD
C                  TOP TEMPERATURE (WR #210).
C   VERSION- 4.2   REPLACED THE FIRST AVAILABLE SPARE WITH CAXWRD,
C                  EXPERIMENTAL CLOUD AMOUNT (WR #257).
C   VERSION- 4.3   ADDED WORDS FOR EXPANDED R1T RECORD UNDER WR #296.
C                  RENAMED FROM RDWRDS TO RDWRDS1248.
C   VERSION- 4.4   ADDED WORDS FOR EXPANDED R1T RECORD OF 2000 BYTES.
C                  RENAMED FROM RDWRDS1248 TO RDWRDS2000.
C   VERSION- 5.0   ADDED WORDS FOR EXPANDED R1T RECORD OF 2800 BYTES.
C                  RENAMED FROM RDWRDS2000 TO RDWRDS2800.
C
C   CALLING ARGUMENTS-
C   VARIABLE                 TYPE    I/O    DESCRIPTION
C   --------                 ----    ---    -----------
C   WRDUNT                    INT     I     UNIT NUMBER OF WORD # FILE.
C
C   FILES-
C   DSN OR DESCRIPTIVE TITLE  I/O  UNIT   FUNCTIONAL DESCRIPTION
C   ------------------------  --- -----   ----------------------
C   R1TWRDS2800                I  WRDUNT  STORES DSDR1T WORDS FOR EACH
C                                         PARAMETER AND EACH SPOT.
C
C   SUBPROGRAMS CALLED- NONE
C
C   COMMON AREAS- R1TDAT2800
C
C**********************************************************************
C
      INCLUDE 'R1TDAT2800'
      INTEGER   WRDUNT
C
    
      READ(WRDUNT,*) LATWRD
      READ(WRDUNT,*) LONWRD
      READ(WRDUNT,*) SZAWRD
      READ(WRDUNT,*) CLAWRD
      READ(WRDUNT,*) CTPWRD
      READ(WRDUNT,*) CTTWRD
      READ(WRDUNT,*) CH1WRD      
      READ(WRDUNT,*) CH2WRD
      READ(WRDUNT,*) CH3WRD
      READ(WRDUNT,*) CH4WRD
      READ(WRDUNT,*) CH5WRD
      READ(WRDUNT,*) CH6WRD
      READ(WRDUNT,*) CH7WRD
      READ(WRDUNT,*) CH8WRD
      READ(WRDUNT,*) CH9WRD
      READ(WRDUNT,*) C10WRD
      READ(WRDUNT,*) C11WRD
      READ(WRDUNT,*) C12WRD
      READ(WRDUNT,*) C13WRD
      READ(WRDUNT,*) C14WRD
      READ(WRDUNT,*) C15WRD
      READ(WRDUNT,*) C16WRD
      READ(WRDUNT,*) C17WRD
      READ(WRDUNT,*) C18WRD
      READ(WRDUNT,*) C19WRD
      READ(WRDUNT,*) M1WORD
      READ(WRDUNT,*) M2WORD
      READ(WRDUNT,*) M3WORD
      READ(WRDUNT,*) M4WORD
      READ(WRDUNT,*) M5WORD
      READ(WRDUNT,*) M6WORD
      READ(WRDUNT,*) M7WORD
      READ(WRDUNT,*) M8WORD
      READ(WRDUNT,*) M9WORD
      READ(WRDUNT,*) M10WRD
      READ(WRDUNT,*) M11WRD
      READ(WRDUNT,*) M12WRD
      READ(WRDUNT,*) M13WRD
      READ(WRDUNT,*) M14WRD
      READ(WRDUNT,*) M15WRD
      READ(WRDUNT,*) B1WORD
      READ(WRDUNT,*) B2WORD
      READ(WRDUNT,*) B3WORD
      READ(WRDUNT,*) B4WORD
      READ(WRDUNT,*) B5WORD
      READ(WRDUNT,*) NOLWRD
      READ(WRDUNT,*) CL1WRD
      READ(WRDUNT,*) CL2WRD
      READ(WRDUNT,*) CL3WRD
      READ(WRDUNT,*) CL4WRD
      READ(WRDUNT,*) CSOWRD
      READ(WRDUNT,*) CS1WRD
      READ(WRDUNT,*) CS2WRD
      READ(WRDUNT,*) CS3WRD
      READ(WRDUNT,*) CS4WRD
      READ(WRDUNT,*) PDTWRD
      READ(WRDUNT,*) ATNWRD
      READ(WRDUNT,*) E8TWRD
      READ(WRDUNT,*) SFPWRD
      READ(WRDUNT,*) SPTWRD
      READ(WRDUNT,*) FLGWRD
      READ(WRDUNT,*) CDFWRD
      READ(WRDUNT,*) CPHWRD
      READ(WRDUNT,*) TERWRD
      READ(WRDUNT,*) LINWRD
      READ(WRDUNT,*) R8CWRD
      READ(WRDUNT,*) R8MWRD
      READ(WRDUNT,*) RCDWRD
      READ(WRDUNT,*) CAXWRD
      READ(WRDUNT,*) AEROWRD
      READ(WRDUNT,*) H8RWRD
      READ(WRDUNT,*) H8OSTEWRD
      READ(WRDUNT,*) CCH1WRD
      READ(WRDUNT,*) CCH2WRD
      READ(WRDUNT,*) CCH3WRD
      READ(WRDUNT,*) CCH4WRD
      READ(WRDUNT,*) CCH5WRD
      READ(WRDUNT,*) CCH6WRD
      READ(WRDUNT,*) CCH7WRD
      READ(WRDUNT,*) CCH8WRD
      READ(WRDUNT,*) CCH9WRD
      READ(WRDUNT,*) CCH10WRD
      READ(WRDUNT,*) CCH11WRD
      READ(WRDUNT,*) CCH12WRD
      READ(WRDUNT,*) CCH13WRD
      READ(WRDUNT,*) CCH14WRD
      READ(WRDUNT,*) CCH15WRD
      READ(WRDUNT,*) CCH16WRD
      READ(WRDUNT,*) CCH17WRD
      READ(WRDUNT,*) CCH18WRD
      READ(WRDUNT,*) CCH19WRD
      READ(WRDUNT,*) CC8PCR
      READ(WRDUNT,*) CC8STER
      READ(WRDUNT,*) CCCTTR
      READ(WRDUNT,*) CPEWRD
      READ(WRDUNT,*) CCOLRWRD
      READ(WRDUNT,*) CCLC1WRD
      READ(WRDUNT,*) CCLC2WRD
      READ(WRDUNT,*) CCLC3WRD
      READ(WRDUNT,*) CCLC4WRD
      READ(WRDUNT,*) ECAWRD
      READ(WRDUNT,*) SP1WRD
      READ(WRDUNT,*) SP2WRD
      READ(WRDUNT,*) SP3WRD
      READ(WRDUNT,*) SP4WRD
      READ(WRDUNT,*) SP5WRD
      READ(WRDUNT,*) SP6WRD
      READ(WRDUNT,*) SP7WRD
      READ(WRDUNT,*) SP8WRD
      READ(WRDUNT,*) SP9WRD
      READ(WRDUNT,*) SP10WD
      READ(WRDUNT,*) SP11WD
      READ(WRDUNT,*) SP12WD
      READ(WRDUNT,*) SP13WD
      READ(WRDUNT,*) SP14WD
      READ(WRDUNT,*) SP15WD
      READ(WRDUNT,*) SP16WD
      READ(WRDUNT,*) SP17WD
      READ(WRDUNT,*) SP18WD
      READ(WRDUNT,*) SP19WD
      READ(WRDUNT,*) SP20WD
      READ(WRDUNT,*) SP21WD
      READ(WRDUNT,*) SP22WD
      READ(WRDUNT,*) SP23WD
      READ(WRDUNT,*) SP24WD
      READ(WRDUNT,*) SP25WD
      READ(WRDUNT,*) SP26WD
      READ(WRDUNT,*) SP27WD
      READ(WRDUNT,*) SP28WD
      READ(WRDUNT,*) SP29WD
      READ(WRDUNT,*) SP30WD
      READ(WRDUNT,*) SP31WD
      READ(WRDUNT,*) SP32WD
      READ(WRDUNT,*) SP33WD
      READ(WRDUNT,*) SP34WD
      READ(WRDUNT,*) SP35WD
      READ(WRDUNT,*) SP36WD
      READ(WRDUNT,*) SP37WD
      READ(WRDUNT,*) SP38WD
      READ(WRDUNT,*) SP39WD
      READ(WRDUNT,*) SP40WD
      READ(WRDUNT,*) SP41WD
      READ(WRDUNT,*) SP42WD
      READ(WRDUNT,*) SP43WD
      READ(WRDUNT,*) SP44WD
      READ(WRDUNT,*) SP45WD
      READ(WRDUNT,*) SP46WD
      READ(WRDUNT,*) SP47WD
      READ(WRDUNT,*) SP48WD
      READ(WRDUNT,*) SP49WD
      READ(WRDUNT,*) SP50WD
      READ(WRDUNT,*) SP51WD
      READ(WRDUNT,*) SP52WD
      READ(WRDUNT,*) SP53WD
      READ(WRDUNT,*) SP54WD
      READ(WRDUNT,*) SP55WD
      READ(WRDUNT,*) SP56WD
      READ(WRDUNT,*) SP57WD
      READ(WRDUNT,*) SP58WD
      READ(WRDUNT,*) SP59WD
      READ(WRDUNT,*) SP60WD
      READ(WRDUNT,*) SP61WD
      READ(WRDUNT,*) SP62WD
      READ(WRDUNT,*) SP63WD
      READ(WRDUNT,*) SP64WD
      READ(WRDUNT,*) SP65WD
      READ(WRDUNT,*) SP66WD
      READ(WRDUNT,*) SP67WD
      READ(WRDUNT,*) SP68WD
      READ(WRDUNT,*) SP69WD
      READ(WRDUNT,*) SP70WD
      READ(WRDUNT,*) SP71WD
      READ(WRDUNT,*) SP72WD
      READ(WRDUNT,*) SP73WD
      READ(WRDUNT,*) SP74WD
      READ(WRDUNT,*) SP75WD
      READ(WRDUNT,*) SP76WD
      READ(WRDUNT,*) SP77WD
      READ(WRDUNT,*) SP78WD
      READ(WRDUNT,*) SP79WD
      READ(WRDUNT,*) SP80WD
      READ(WRDUNT,*) SP81WD
      READ(WRDUNT,*) SP82WD
      READ(WRDUNT,*) SP83WD
      READ(WRDUNT,*) SP84WD
      READ(WRDUNT,*) SP85WD
      READ(WRDUNT,*) SP86WD
      READ(WRDUNT,*) SP87WD
      READ(WRDUNT,*) SP88WD
      READ(WRDUNT,*) SP89WD
      READ(WRDUNT,*) SP90WD
      READ(WRDUNT,*) SP91WD
      READ(WRDUNT,*) SP92WD
      READ(WRDUNT,*) SP93WD
      READ(WRDUNT,*) SP94WD
      READ(WRDUNT,*) SP95WD
      READ(WRDUNT,*) SP96WD
      READ(WRDUNT,*) SP97WD
      READ(WRDUNT,*) SP98WD
      READ(WRDUNT,*) SP99WD
      READ(WRDUNT,*) S100WD
      READ(WRDUNT,*) S101WD
      READ(WRDUNT,*) S102WD
      READ(WRDUNT,*) S103WD
      READ(WRDUNT,*) S104WD
      READ(WRDUNT,*) S105WD
      READ(WRDUNT,*) S106WD
      READ(WRDUNT,*) S107WD
      READ(WRDUNT,*) S108WD
      READ(WRDUNT,*) S109WD
      READ(WRDUNT,*) S110WD
      READ(WRDUNT,*) S111WD
      READ(WRDUNT,*) S112WD
      READ(WRDUNT,*) S113WD
      READ(WRDUNT,*) S114WD
      READ(WRDUNT,*) S115WD
      READ(WRDUNT,*) S116WD
      READ(WRDUNT,*) S117WD
      READ(WRDUNT,*) S118WD
      READ(WRDUNT,*) S119WD
      READ(WRDUNT,*) S120WD
      READ(WRDUNT,*) S121WD
      READ(WRDUNT,*) S122WD
      READ(WRDUNT,*) S123WD
      READ(WRDUNT,*) S124WD
      READ(WRDUNT,*) S125WD
      READ(WRDUNT,*) S126WD
      READ(WRDUNT,*) S127WD
      READ(WRDUNT,*) S128WD
      READ(WRDUNT,*) S129WD
      READ(WRDUNT,*) S130WD
      READ(WRDUNT,*) S131WD
      READ(WRDUNT,*) S132WD
      READ(WRDUNT,*) S133WD
      READ(WRDUNT,*) S134WD
      READ(WRDUNT,*) S135WD
      READ(WRDUNT,*) S136WD
      READ(WRDUNT,*) S137WD
      READ(WRDUNT,*) S138WD
      READ(WRDUNT,*) S139WD
      READ(WRDUNT,*) S140WD
      READ(WRDUNT,*) S141WD
      READ(WRDUNT,*) S142WD
      READ(WRDUNT,*) S143WD
      READ(WRDUNT,*) S144WD
      READ(WRDUNT,*) S145WD
      READ(WRDUNT,*) S146WD
      READ(WRDUNT,*) S147WD
      READ(WRDUNT,*) S148WD
      READ(WRDUNT,*) S149WD
      READ(WRDUNT,*) S150WD
      READ(WRDUNT,*) S151WD
      READ(WRDUNT,*) S152WD
      READ(WRDUNT,*) S153WD
      READ(WRDUNT,*) S154WD
      READ(WRDUNT,*) S155WD
      READ(WRDUNT,*) S156WD
      READ(WRDUNT,*) S157WD
      READ(WRDUNT,*) S158WD
      READ(WRDUNT,*) S159WD
      READ(WRDUNT,*) S160WD
      READ(WRDUNT,*) S161WD
      READ(WRDUNT,*) S162WD
      READ(WRDUNT,*) S163WD
      READ(WRDUNT,*) S164WD
      READ(WRDUNT,*) S165WD
      READ(WRDUNT,*) S166WD
      READ(WRDUNT,*) S167WD
      READ(WRDUNT,*) S168WD
      READ(WRDUNT,*) S169WD
      READ(WRDUNT,*) S170WD
      READ(WRDUNT,*) S171WD
      READ(WRDUNT,*) S172WD
      READ(WRDUNT,*) S173WD
      READ(WRDUNT,*) S174WD
      READ(WRDUNT,*) S175WD
      READ(WRDUNT,*) S176WD
      READ(WRDUNT,*) S177WD
      READ(WRDUNT,*) S178WD
      READ(WRDUNT,*) S179WD
      READ(WRDUNT,*) S180WD
      READ(WRDUNT,*) S181WD
      READ(WRDUNT,*) S182WD
      READ(WRDUNT,*) S183WD
      READ(WRDUNT,*) S184WD
      READ(WRDUNT,*) S185WD
      READ(WRDUNT,*) S186WD
      READ(WRDUNT,*) S187WD
      READ(WRDUNT,*) S188WD
      READ(WRDUNT,*) S189WD
      READ(WRDUNT,*) S190WD
      READ(WRDUNT,*) S191WD
      READ(WRDUNT,*) S192WD
      READ(WRDUNT,*) S193WD
      READ(WRDUNT,*) S194WD
      READ(WRDUNT,*) S195WD
      READ(WRDUNT,*) S196WD
      READ(WRDUNT,*) S197WD
      READ(WRDUNT,*) S198WD
      READ(WRDUNT,*) S199WD
      READ(WRDUNT,*) S200WD
C
      RETURN
      END
