SUBROUTINE  LS_SEC4 ( lsfrpt, ipt, iret )
C************************************************************************
C* LS_SEC4                                                              *
C*                                                                      *
C* This subroutine calls the routine to decode the section 4 cloud      *
C* data groups N'C'H'H'C(t) in the WMO FM12 report.                     *
C*                                                                      *
C* LS_SEC4  ( LSFRPT, IPT, IRET ) 	                                *
C*                                                                      *
C* Input parameters:                                                    *
C*	LSEC4           INTEGER         Length of section 4             *
C*      IPT             INTEGER         Pointer to start of section 4   *
C*                                                                      *
C* Output parameters:                                                   *
C*	IRET            INTEGER         Return code                     *
C*				   	  0 = normal return 	        *
C*                                        1 = problems                  *
C*                                                                      *
C**                                                                     *
C* Log:							                *
C* R. Hollern/NCEP      8/99                                            *
C* R. Hollern/NCEP      9/99   Added check to decode at most 2 cloud    *
C*                             layers.                                  *
C* R. Hollern/NCEP      1/00   Remove lvl argument in CALL to CLD4      *
C************************************************************************
        INCLUDE 	'GEMPRM.PRM'
        INCLUDE 	'lscmn.cmn'
C*
        CHARACTER*(*)   lsfrpt
C------------------------------------------------------------------------
        iret = 0
        lvl = 0
C
        iend = ipt + lsec4 - 1
C
        DO WHILE ( ipt .lt. iend )
C
           IF ( lsfrpt ( ipt:ipt ) .eq. ' ' ) THEN
C
C*             Decode the cloud data group.
C             
               lvl = lvl + 1
               IF ( lvl .gt. 2 ) RETURN
               ipt = ipt + 1
               CALL  LS_CLD4 ( lsfrpt, ipt, jret )
           END IF
C
           ipt = ipt + 1   
C
        END DO
C*
        RETURN
        END