<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='IREADMM'><A href='../../html_code/bufr/ireadmm.f.html#IREADMM' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
FUNCTION IREADMM(IMSG,SUBSET,IDATE)
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: IREADMM
C PRGMMR: WOOLLEN ORG: NP20 DATE: 1999-11-18
C
<A NAME='READMM'><A href='../../html_code/bufr/ireadmm.f.html#READMM' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
C ABSTRACT: THIS FUNCTION CALLS BUFR ARCHIVE LIBRARY SUBROUTINE READMM
C AND PASSES BACK ITS RETURN CODE. SEE READMM FOR MORE DETAILS.
C
C PROGRAM HISTORY LOG:
C 1999-11-18 J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN IREADMG)
C 2002-05-14 J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
C PORTABILITY TO OTHER PLATFORMS
C 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
C INTERDEPENDENCIES
C 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED
C DOCUMENTATION (INCLUDING HISTORY)
C
C USAGE: IREADMM (IMSG, SUBSET, IDATE)
C INPUT ARGUMENT LIST:
C IMSG - INTEGER: POINTER TO BUFR MESSAGE NUMBER (RECORD) IN
C STORAGE
C
C OUTPUT ARGUMENT LIST:
C SUBSET - CHARACTER*8: TABLE A MNEMONIC FOR TYPE OF BUFR MESSAGE
C BEING READ
C IDATE - INTEGER: DATE-TIME STORED WITHIN SECTION 1 OF BUFR
C MESSAGE BEING READ, IN FORMAT OF EITHER YYMMDDHH OR
C YYYYMMDDHH, DEPENDING ON DATELEN() VALUE
C IREADMM - INTEGER: RETURN CODE:
C 0 = normal return
C -1 = IMSG is either 0 or greater than the
C number of messages in memory
C
C REMARKS:
C THIS ROUTINE CALLS: READMM
C THIS ROUTINE IS CALLED BY: UFBMNS
C Also called by application programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
CHARACTER*8 SUBSET
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
CALL READMM
(IMSG,SUBSET,IDATE,IRET)
IREADMM = IRET
RETURN
END