C
        COMMON /BUFRBL/  iunbfo,   istyp,   r8ary
C
        REAL*8   R8ARY(15,50)
C*---------------------------------------------------------------------------
C
C*	Set the BUFR DTS (Depth/temperature/salinity and current) 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  )