SUBROUTINE CG_GTCL ( string, iret )
C************************************************************************
C* CG_GTCL                                                              *
C*                                                                      *
C* This subroutine decodes the sky cover data in one report.            *
C*                                                                      *
C* CG_GTCL  ( STRING, IRET )                                            *
C*                                                                      *
C* Input parameters:                                                    *
C*      STRING          CHAR*           string containing sky cover data*
C*                                                                      *
C* Output parameters passed via common:                                 *
C*      RIVALS(IRCFRT)  REAL            fractional cloud coverage       *
C*      RIVALS(IRCLAM)  REAL            cloud amount                    *
C*                                                                      *
C* Output parameters:                                                   *
C*      IRET            INTEGER         Return code                     *
C*                                        0 = Normal return             *
C**                                                                     *
C* Log:                                                                 *
C* C. Caruso Magee/NCEP 4/00    Original Author                         *
C* C. Caruso Magee/NCEP 6/00    Remove irnclo.                          *
C* C. Caruso Magee/NCEP 7/00    Add CLDY to have same effect as CY.     *
C************************************************************************
      INCLUDE       'GEMPRM.PRM'
      INCLUDE       'cgcmn.cmn'
      character*(*) string
      integer       iret

      iret = 0
      IF ( index(string,'MCY') .ne. 0) THEN
          rivals(ircfrt) = FLOAT(6)
          rivals(irclam) = FLOAT(6)
      ELSEIF (( index(string,'CY') .ne. 0 ) .or.
     *        ( index(string,'CLDY') .ne. 0 )) THEN
          rivals(ircfrt) = FLOAT(8)
          rivals(irclam) = FLOAT(8)
      ELSEIF ( index(string,'PC') .ne.0) THEN
          rivals(ircfrt) = FLOAT(4)
          rivals(irclam) = FLOAT(4)
      ELSEIF ( index(string,'MC') .ne.0 ) THEN
          rivals(ircfrt) = FLOAT(1)
          rivals(irclam) = FLOAT(1)
      ELSEIF ( index(string,'C') .ne.0 ) THEN
          rivals(ircfrt) = FLOAT(0)
          rivals(irclam) = FLOAT(0)
      END IF
      RETURN
      END