SUBROUTINE SN_IFPT  ( loglev, rimnem, cimnem, iret )
C************************************************************************
C* SN_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* SN_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		'sncmn.cmn'
C*
	CHARACTER*(*)	rimnem (*), cimnem (*)
C-----------------------------------------------------------------------
	iret = 0
C
        ncsl = ( ictosdqd - 1 )
	CALL DC_IFPC  ( loglev, cimnem, civals, ncsl, ierfpc )
C
        nrsl = ( irtosd - 1 )
        CALL DC_IFPR  ( loglev, rimnem, rivals, nrsl, ierfpr )
C
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irtosd, ictosdqd, irtosdqa, irtosdqr, ierfpq )
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irswem, icswemqd, irswemqa, irswemqr, ierfpq )
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irdofs6, icdofs6qd, irdofs6qa, 
     +                                      irdofs6qr, ierfpq )
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irswem6, icswem6qd, irswem6qa, 
     +                                      irswem6qr, ierfpq )
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irdofs24, icdofs24qd, irdofs24qa, 
     +                                        irdofs24qr, ierfpq )
	CALL SN_IFPQ  ( loglev, rimnem, cimnem,
     +			irswem24, icswem24qd, irswem24qa, 
     +                                        irswem24qr, ierfpq )
C
C*
	RETURN
	END