SUBROUTINE BF_OPEN  ( filnam, curfil, ifn, iret )
C************************************************************************
C* BF_OPEN								*
C*									* 
C* This subroutine opens a BUFR data file.				*
C*									*
C* BF_OPEN  ( FILNAM, CURFIL, IFN, IRET )				*
C*									*
C* Input parameters:							*
C*	FILNAM		CHAR*		Name of BUFR data file		*
C*									*
C* Input and output parameter:						*
C*	CURFIL		CHAR*		Current file name		*
C*									*
C* Output parameters:							*
C*	IFN		INTEGER		File number			*
C*	IRET		INTEGER		Return code			*
C*				 	 0 = normal return 		*
C**									*
C* Log:									*
C* K. Brill/NMC		05/94						*
C************************************************************************
	CHARACTER*(*)	filnam, curfil
	CHARACTER*32	errstr
C*-----------------------------------------------------------------------
	iret = 0
	lunt = 0
C*
	IF ( filnam .ne. curfil ) THEN
	    CALL ST_LSTR ( filnam, lnfn, ier )
	    CALL DA_OPEN ( filnam, lnfn, ifn, iret )
	    IF ( iret .ne. 0 ) THEN
		errstr = 'CANNOT OPEN BUFR FILE'
		CALL ER_WMSG ( 'BF', iret, errstr, ier )
		RETURN
	    END IF
	    curfil = ' '   
	    curfil = filnam
	END IF
C*
	RETURN
	END