NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
readmp.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Read BUFR file containing embedded DX BUFR tables,
3 C> and print each report one at a time
4 
5  program readmp
6  character*8 subset
7  character*1 go
8  call openbf(20,'IN',20)
9  do while(ireadmg(20,subset,idate).eq.0)
10  do while(ireadsb(20).eq.0)
11  print*,'message date=',i4dy(idate)
12  call ufdump(20,6)
13  read(5,'(a)') go
14  if(go.eq.'q') stop
15  enddo
16  enddo
17  stop
18  end
function ireadmg(LUNIT, SUBSET, IDATE)
This function calls BUFRLIB subroutine readmg() and passes back its return code as the function value...
Definition: ireadmg.f:43
function i4dy(IDATE)
THIS FUNCTION CONVERTS AN EIGHT DIGIT INTEGER DATE (YYMMDDHH) TO TEN DIGITS (YYYYMMDDHH) USING THE Y2...
Definition: i4dy.f:49
function ireadsb(LUNIT)
This function calls BUFRLIB subroutine readsb() and passes back its return code as the function value...
Definition: ireadsb.f:30
subroutine openbf(LUNIT, IO, LUNDX)
This subroutine connects a new file to the BUFRLIB software for input or output operations.
Definition: openbf.F:157
subroutine ufdump(LUNIT, LUPRT)
This subroutine prints a verbose listing of the contents of a data subset, including all data values ...
Definition: ufdump.f:71