SUBROUTINE CG_GTWS ( string, len, iret )
C************************************************************************
C* CG_GTWS                                                              *
C*                                                                      *
C* This subroutine decodes the wind speed data in one report.           *
C*                                                                      *
C* CG_GTWS  ( STRING, LEN, IRET )                                       *
C*                                                                      *
C* Input parameters:                                                    *
C*      STRING          CHAR*           string containing sky cover data*
C*      LEN             INTEGER         length of string                *
C*                                                                      *
C* Output parameters passed via common:                                 *
C*      RIVALS(IRSKNT)  REAL            wind speed (kts)                *
C*      RIVALS(IRISWS)  REAL            source units for wind speed     *
C*                                                                      *
C* Output parameters:                                                   *
C*      IRET            INTEGER         Return code                     *
C*                                        0 = Normal return             *
C*                                       -1 = invalid wind speed        *
C**                                                                     *
C* Log:                                                                 *
C* C. Caruso Magee/NCEP 4/00    Original Author                         *
C* C. Caruso Magee/NCEP 8/00    Set irsuws to 4 (kts, meas. by anemom.) *
C* C. Caruso Magee/NCEP 2/02    Rename suws to isws.                    *
C************************************************************************
      INCLUDE       'GEMPRM.PRM'
      INCLUDE       'cgcmn.cmn'
      character*(*) string
      integer       len
      integer       iwindspd
      integer       iret
      iret = 0

      CALL ST_INTG ( string(1:len), iwindspd, iret )
      rivals(irsknt) = FLOAT ( iwindspd )
      rivals(irisws) = 4.
      IF ( rivals(irsknt) .lt. 0.0 .or.
     *     rivals(irsknt) .gt. 300. ) THEN
        iret = -1
      END IF

      RETURN
      END