SUBROUTINE HY_IFPQ  ( loglev, rimnem, cimnem,
     +			      ifv, ifvqd, ifvqa, ifvqr, iret )
C************************************************************************
C* HY_IFPQ								*
C*									*
C* This subroutine prints an interface value, along with its associated	*
C* QCD, QCA, and QCR values, to the decoder log if the verbosity level	*
C* is LOGLEV or higher.							*
C*									*
C* HY_IFPQ  ( LOGLEV, RIMNEM, CIMNEM, IRET )				*
C*									*
C* Input parameters:							*
C*	LOGLEV		INTEGER		Verbosity level			*
C*	RIMNEM (*)	CHAR*		Interface mnemonics for reals   *
C*	CIMNEM (*)	CHAR*		Interface mnemonics for chars   *
C*	IFV		INTEGER		Pointer (within RIMNEM) to	*
C*					interface value			*
C*	IFVQD		INTEGER		Pointer (within CIMNEM) to	*
C*					QCD value associated with IFV	*
C*	IFVQA		INTEGER		Pointer (within RIMNEM) to	*
C*					QCA value associated with IFV	*
C*	IFVQR		INTEGER		Pointer (within RIMNEM) to	*
C*					QCR value associated with IFV	*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code 			*
C*					  0 = normal return 		*
C*									*
C**									*
C* Log:									*
C* C. Caruso Magee/NCEP 11/04
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'hycmn.cmn'
C*
	CHARACTER*(*)	rimnem (*), cimnem (*)
C*
	INCLUDE		'ERMISS.FNC'
C-----------------------------------------------------------------------
	iret = 0
C
	IF  ( .not. ERMISS ( rivals ( ifv ) ) )  THEN
	    WRITE ( UNIT = logmsg, FMT = '( 20X, 4A10 )' )
     +		rimnem ( ifv ), cimnem ( ifvqd ),
     +		rimnem ( ifvqa ), rimnem ( ifvqr )
	    CALL DC_WLOG  ( loglev, 'DC', 2, logmsg, ierwlg )
	    WRITE ( UNIT = logmsg,
     +		    FMT = '( 20X, F10.3, 5X, A5, 2F10.3 )' )
     +		rivals ( ifv ), civals ( ifvqd ),
     +		rivals ( ifvqa ), rivals ( ifvqr )
	    CALL DC_WLOG  ( loglev, 'DC', 2, logmsg, ierwlg )
	END IF
C*
	RETURN
	END