SUBROUTINE  DB_BTYP( lenb, bulltn, jpos, iret )
C**********************************************************************	*
C* DB_BTYP                                                             	*
C*                                                                     	*
C* This routine checks that the bulletin contains drifting buoy reports.*
C* The identification letters ZZYY precede each drifting buoy report.   *
C* If ZZYY is not found in the first 50 characters of the bulletin, the *
C* reports in the bulletin will not be decoded.                         *
C*                                                                     	*
C* DB_BTYP( LENB, BULLTN, JPOS, IRET )                                  *
C*                                                                     	*
C* Input parameters:                                                   	*
C*      LENB           INTEGER           Bulletin length	      	*
C*      BULLTN         CHAR*             Bulletin to decode            	*
C*					                               	*
C* Output variables:                                                   	*
C*      JPOS           INTEGER           Pointer to ID in report	*
C*	IRET	       INTEGER           Return code                   	*
C*				   	   0 = normal return           	*
C*				   	   1 = not a drifter bulletin  	*
C*					                               	*
C**					                               	*
C* Log:                                                                	*
C* R. Hollern/NCEP      12/99                                          	*
C************************************************************************
        INCLUDE		'dbcmn.cmn'
C*
        CHARACTER*(*)	bulltn
C-----------------------------------------------------------------------
        iret = 0
C
C*      Check if drifter bulletin.
C
        ipos = index( bulltn(1:50), 'ZZYY' )
        IF ( ipos .gt. 0 ) THEN
            jpos = ipos
          ELSE
            iret = 1
        END IF
C*
	RETURN
	END