C+++
	SUBROUTINE GET_PDS ( gbm, ipds, iret )
C************************************************************************
C* GET_PDS								*
C*									*
C* This subroutine extracts the PDS information from a GRIB message.	*
C*									*
C*									*
C* GET_PDS  ( GBM, IPDS, IRET )						*
C*									*
C* Input parameters:							*
C*	GBM 		CHAR*1		GRIB message			* 
C*									*
C* Output parameters:							*
C*	IPDS (28)	INTEGER		GRIB PDS information array	*
C*	IRET		INTEGER		Return code			*
C*					  0 = normal return		*
C*					 -1 = GBM is not a grib message *
C**									*
C* Log:									*
C* K. Brill/EMC		 6/97						*
C************************************************************************
	CHARACTER*1	gbm (*)
	INTEGER		ipds (*)
C------------------------------------------------------------------------
	iret = 0
	IF ( gbm (1) .ne. 'G' .and. gbm (2) .ne. 'R' ) THEN
	    iret = -1
	    RETURN
	END IF
C*
	DO i = 9, 36
	    ipds (i-8) = ICHAR ( gbm (i) )
	END DO
C*
	RETURN
	END