LOGICAL FUNCTION CJ_BMOK ( iubfma )
C************************************************************************
C* CJ_BMOK								*
C*									*
C* This function checks various values in the input BUFR report bitmap	*
C* to ensure that the subsequent first-order statistical values are OK	*
C* to store and use within the output BUFR report.			*
C*									*
C* CJ_BMOK ( IUBFMA )							*
C*									*
C* Input parameters:							*
C*	IUBFMA		INTEGER		Logical unit number for BUFR	*
C*					input stream			*
C*									*
C* Output parameters:							*
C*	CJ_BMOK		LOGICAL		Return value indicating whether	*
C*					the first-order statistical	*
C*					values are OK to store and use	*
C*					within the output BUFR report.	*
C*									*
C**									*
C* Log:									*
C* J. Ator/NCEP		04/17						*
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
C*
	REAL*8		GETVALNB
C*-----------------------------------------------------------------------
	CJ_BMOK = .false.
C
	IF ( ( IDNINT(GETVALNB(iubfma,'SOZA',1,'FOST',1)) .ne. 10 ) )
     +	  RETURN
C
     	IF ( ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',97)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',105)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',113)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',121)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',129)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',137)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',145)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',153)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',161)) .ne. 0 ) .or.
     +	    ( IDNINT(GETVALNB(iubfma,'SOZA',1,'DPRI',169)) .ne. 0 ) )
     +	  RETURN
C
	IF ( ( IBFMS(GETVALNB(iubfma,'SOZA',1,'DPRI',177)) .ne. 1 ) .or.
     +       ( IBFMS(GETVALNB(iubfma,'SOZA',1,'DPRI',185)) .ne. 1 ) )
     +	  RETURN
C
	CJ_BMOK = .true.
C*
	RETURN
	END