ccc     COMMON /BUFRBL/  iunbfo,   istyp,   r8ary
        COMMON /BUFRBL/  iunbfo
C
ccc     REAL*8   R8ARY(15,500)
C
C*-----------------------------------------------------------------------
C
C*	Set the BUFR DTS (Depth/temperature/salinity) parameters.
C*
C*	Define the DTS parameters that will be used.
C*
	CHARACTER*(*)	CDTSST
	PARAMETER	(  CDTSST =
     +		'DBSS  STMP  SALN  DROC  SPOC'  )
C*
C*	Set the total number of DTS parameters that will be used.
C*
	PARAMETER	( NCDTS = 5 )
C*
C*	List the relative location within CDTSST of each DTS parameter.
C*
	PARAMETER
     +	     (	LDDBSS  =  1,  LDSTMP  =  2,  LDSALN  =  3,
     +	      	LDDROC  =  4,  LDSPOC  =  5  )
C