SUBROUTINE CR_PNBF ( bufrtb, lunout, lundx ) C************************************************************************ C* CR_PNBF * C* * C* This subroutine uses a BUFR tables file to open a BUFR output stream.* C* * C* CR_PNBF ( BUFRTB, LUNOUT, LUNDX) * C* * C* Input parameters: * C* BUFRTB CHAR* BUFR tables file * C* LUNOUT INTEGER FORTRAN logical unit number to * C* assign to BUFR output file * C* LUNDX INTEGER FORTRAN logical unit number to * C* assign to BUFR tables file * C** * C* Log: * C* J. Ator/NCEP 02/11 * C* J. Ator/NCEP 12/13 Add call to UT_PRVS for version tracking* C* J. Ator/NCEP 02/19 Modify for Dell environment * C************************************************************************ CHARACTER*(*) bufrtb OPEN ( UNIT = lundx, FILE = bufrtb ) CALL PKVS01 ( 'BEN', 4 ) CALL OPENBF ( lunout, 'NUL', lundx ) CALL MAXOUT ( 20000 ) CLOSE ( lundx ) RETURN END