SUBROUTINE AM_TRBX  ( iubfmn, r8inv, bstr, iret )
C************************************************************************
C* AM_TRBX								*
C*									*
C* This routine converts a TRBXST value into a TRBXxx value		*
C* (where xx = 10, 21, 32, or 43) and stores it into the BUFR		*
C* output stream.							*
C*									*
C* AM_TRBX ( IUBFMN, R8INV, BSTR, IRET )				*
C*									*
C* Input parameters:							*
C*	IUBFMN		INTEGER		Logical unit number of messages	*
C*					file for BUFR output stream	*
C*	R8INV		REAL*8		TRBXST value			*
C*	BSTR		CHAR*(*)	BUFR output mnemonic		*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code:			*
C*					  0 = normal return		*
C*									*
C**									*
C* Log:									*
C* J. Ator/NCEP		09/15						*
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'BRIDGE.PRM'
	INCLUDE		'amcmn.cmn'
C*
	REAL*8		r8inv
C*
	CHARACTER*(*)	bstr
C*-----------------------------------------------------------------------
	iret = 0
C
	IF ( ( IBFMS ( r8inv ) .eq. 0 ) .and. ( r8inv .lt. 28 ) ) THEN
	    IF ( r8inv .eq. 27 ) THEN
		rval = 20
	    ELSE IF ( ( r8inv .ge. 21 ) .and. ( r8inv .le. 26 ) ) THEN
		rval = r8inv - 6
	    ELSE
		rval = r8inv 
	    END IF
	    CALL UT_RIBF ( iubfmn, bstr, rval, ier )
	END IF
C*
	RETURN
	END