SUBROUTINE HY_IFPT  ( loglev, rimnem, cimnem, iret )
C************************************************************************
C* HY_IFPT								*
C*									*
C* This subroutine prints the interface values arrays to the decoder	*
C* log if the verbosity level is LOGLEV or higher.			*
C*									*
C* HY_IFPT  ( 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*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code 			*
C*					  0 = normal return 		*
C*									*
C**									*
C* Log:									*
C* C. Caruso Magee/NCEP 06/06
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'hycmn.cmn'
C*
	CHARACTER*(*)	rimnem (*), cimnem (*)
C-----------------------------------------------------------------------
	iret = 0
C
	ncsl = ( icpcp5qd - 1 )
	CALL DC_IFPC  ( loglev, cimnem, civals, ncsl, ierfpc )
C
	nrsl = ( irpcp5m - 1 )
	CALL DC_IFPR  ( loglev, rimnem, rivals, nrsl, ierfpr )
C
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp5m, icpcp5qd, irpcp5qa, irpcp5qr, ierfpq )
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp1h, icpcp1qd, irpcp1qa, irpcp1qr, ierfpq )
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp3h, icpcp3qd, irpcp3qa, irpcp3qr, ierfpq )
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp6h, icpcp1qd, irpcp6qa, irpcp6qr, ierfpq )
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp12h, icpcp12qd, irpcp12qa, irpcp12qr, ierfpq )
	CALL HY_IFPQ  ( loglev, rimnem, cimnem,
     +			irpcp24h, icpcp24qd, irpcp24qa, irpcp24qr, ierfpq )
C
C*
	RETURN
	END