SUBROUTINE DB_DCD1  ( mszrpt, dburpt, ipt, iret )
C************************************************************************
C* DB_DCD1						                *
C*								        *
C* This subroutine gets the length of each of the sections 1-4 in the   *
C* WMO FM18 buoy report.  These data are used to determine whether      *
C* each of the sections contain groups to decode.  If a section has     *
C* groups, the appropriate routine is called to start the decoding of   *
C* the groups in that section.  Section 0 must be included in a report, *
C* or else the report is invalid.                                       *
C*								        *
C* DB_DCD2  ( MSZRPT, DBURPT, IPT, IRET )            		        *
C*								        *
C* Input parameters:						        *
C*      MSZRPT          INTEGER         Length of report in bytes       *
C*      DBURPT          CHAR* 	        Report array                    *
C*      IPT             INTEGER         Pointer to space before the     *
C*                                      i(R)i(x)hVV group               *
C* Output parameters:						        *
C*	IRET		INTEGER		Return code		        *
C*				   	  0 = normal return 	        *
C*                                        1 = problems                  *
C**								        *
C* Log:								        *
C* R. Hollern/NCEP      12/99                                           *
C* C. Caruso Magee/NCEP 03/06    Correct docblock and comments.         *
C************************************************************************
        INCLUDE 	'dbcmn.cmn'
C*
        CHARACTER*(*)   dburpt
C------------------------------------------------------------------------
        iret = 0
C
C*      Determine the length of sections 1-4 in report.
C
        CALL  DB_LSCD ( mszrpt, dburpt, ipt, iret )
C
        IF ( iret .eq. 1 ) RETURN
C
C*      Decode groups in section 1 of report.
C
        IF ( lsec1 .gt. 0 ) CALL  DB_SC1D ( dburpt, jret )
C
C*      Decode the groups in section 2 of report.
C
        IF ( lsec2 .gt. 0 ) CALL  DB_SC2D ( dburpt, jret )
C
C*      Decode the groups in section 3 of report.
C
        IF ( lsec3 .gt. 0 ) CALL  DB_SC3D ( dburpt, jret )
C
C*      Decode the groups in section 4 of report.
C
        IF ( lsec4 .gt. 0 ) CALL  DB_SC4D ( dburpt, jret )
C*
	RETURN
        END