SUBROUTINE LT_PNBF ( BFILE, LUNOUT, LUNDX )

C************************************************************************
C* LT_PNBF								*
C*									*
C* This subroutine opens a BUFR file for writing.			*
C*									*
C* LT_PNBF  ( BFILE, LUNOUT, LUNDX)					*
C*									*
C* Input parameters:							*
C*	BFILE		CHAR*		[Path/]filename of BUFR file	*
C*	LUNOUT		INTEGER		FORTRAN logical unit number to	*
C*					assign to BFILE 		*
C*	LUNDX		INTEGER		FORTRAN logical unit number	*
C*					containing DX tables for BFILE 	*
C**									*
C* Log:									*
C* J. Ator/NCEP		11/06						*
C* S. Guan/NCEP         09/08           Added LUNDX                     *
C* J. Ator/NCEP		07/09		Added call to PKVS01		*
C************************************************************************

	CHARACTER*(*)	BFILE

	OPEN ( UNIT = LUNDX, FILE = BFILE )

	CALL PKVS01 ( 'BEN', 4 )

	CALL OPENBF ( LUNOUT, 'NUL', LUNDX )

        CLOSE ( LUNDX )

	RETURN
	END