17 character(len=255) :: file
18 integer,
parameter :: lunit = 20
23 call get_command_argument(1,file); file=trim(adjustl(file))
25 print *,
'Usage: gettab <bufrfile> will print the internal BUFR table'
28 inquire(file=file,exist=exist)
30 print *,trim(file)//
' does not exist'
37 open(lunit,file=file,
status=
'old', form=
'unformatted')
38 call openbf(lunit,
'IN', lunit)
recursive subroutine dxdump(lunit, ldxot)
Print a copy of the DX BUFR table associated with a specified Fortran logical unit.
program gettab
Read BUFR file containing embedded DX BUFR tables, and print the tables to stdout.
recursive subroutine closbf(lunit)
Close the connection between logical unit lunit and the NCEPLIBS-bufr software.
recursive subroutine openbf(lunit, io, lundx)
Connect a new file to the NCEPLIBS-bufr software for input or output operations, or initialize the li...
recursive subroutine status(lunit, lun, il, im)
Check whether a specified Fortran logical unit number is currently connected to the NCEPLIBS-bufr sof...