      SUBROUTINE RDWRDS(WRDUNT)
      IMPLICIT NONE
C
C**********************************************************************
C
C   NAME- RDWRDS
C
C   LANGUAGE- VS FORTRAN       TYPE- SUBROUTINE   COMPUTER- CEMSCS
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
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
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   ---DATA(R1TWRDS)           I  WRDUNT  STORES DSDR1T WORDS FOR EACH
C                                         PARAMETER AND EACH SPOT.
C
C   SUBPROGRAMS CALLED- NONE
C
C   COMMON AREAS- R1TDAT
C
C**********************************************************************
C
      INCLUDE 'R1TDAT'
      INTEGER   WRDUNT
C
    
C      OPEN(WRDUNT,ACCESS='SEQUENTIAL',FORM='FORMATTED',IOSTAT=ISTAT)
C      PRINT *, 'ERROR STATUS FOR WRDUNT: ',ISTAT
      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,*) SP1WRD
      READ(WRDUNT,*) SP2WRD
      READ(WRDUNT,*) SP3WRD
C
C100  FORMAT(4I5)
C
      RETURN
      END
