C
        COMMON /BUFRBL/  iunbfo,   istyp,   r8ary
C
        REAL*8   r8ary(15,50)
C*---------------------------------------------------------------------------
C
C*	Set the BUFR CLD (cloud) parameters.
C*
C*	Define the CLD parameters that will be used.
C*
	CHARACTER*(*)	CCLDST
	PARAMETER	(  CCLDST =
     +		'VSSO  CLAM  CLTP  HOCB'  )
C*
C*	Set the total number of CLD parameters that will be used.
C*
	PARAMETER	( NCCLD = 4 )
C*
C*	List the relative location within CCLDST of each DTS parameter.
C*
	PARAMETER
     +	     (	LCVSSO  =  1,  LCCLAM  =  2,  LCCLTP  =  3,  
     +	      	LCHOCB  =  4  )  
C*---------------------------------------------------------------------------
C
C*	Set the BUFR RWY (runway) parameters.
C*
C*	Define the RWY parameters that will be used.
C*
	CHARACTER*(*)	CRWYST
	PARAMETER	(  CRWYST =
     +		'RWID  .REV1RI  V1RIM  .REV2RI  V2RIM  RWYT  '  )
C*
C*	Set the total number of RWY parameters that will be used.
C*
	PARAMETER	( NCRWY = 6 )
C*
C*	List the relative location within CRWYST of each RWY parameter.
C*
	PARAMETER
     +	     (	LRRWID  =  1,  LRREV1  =  2,  LRV1RI  =  3,  
     +	      	LRREV2  =  4,  LRV2RI  =  5,  LRRWYT  =  6  )
C*---------------------------------------------------------------------------
C*      Set the BUFR PKW (peak wind) parameters.
C*
C*      Define the PKW parameters that will be used.
C*
        CHARACTER*(*)   CPKWST
        PARAMETER       (  CPKWST =
     +          'YEAR  MNTH  DAYS  HOUR  MINU  PKWDDR  PKWDSP'  )
C*
C*      Set the total number of PKW parameters that will be used.
C*
        PARAMETER       ( NCPKW = 7 )
C*
C*      List the relative location within CPKWST of each PKW parameter.
C*
        PARAMETER
     +       (  LPYEAR  =  1,  LPMNTH  =  2,  LPDAYS  =  3,
     +          LPHOUR  =  4,  LPMINU  =  5,  LPPKWD  =  6,
     +          LPPKWS  =  7  )
C*---------------------------------------------------------------------------
C*      Set the BUFR MMT (max/min temperature) parameters.
C*
C*      Define the MMT parameters that will be used.
C*
        CHARACTER*(*)   CMMTST
        PARAMETER       (  CMMTST =
     +          '.DTHMXTM  MXTM  .DTHMITM  MITM'  )
C*
C*      Set the total number of MMT parameters that will be used.
C*
        PARAMETER       ( NCMMT = 4 )
C*
C*      List the relative location within CMMTST of each MMT parameter.
C*
        PARAMETER
     +       (  LTDTHX  =  1,  LTMXTM  =  2,  LTDTHI  =  3,
     +          LTMITM  =  4  )