<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='GETBMISS'><A href='../../html_code/bufr/getbmiss.f.html#GETBMISS' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
REAL*8 FUNCTION GETBMISS() 1,1
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: GETBMISS
C PRGMMR: WOOLLEN ORG: NP20 DATE: 2012-09-15
C
C ABSTRACT: GETBMISS RETURNS THE CURRENT VALUE OF "BMISS" WHICH DENOTES
C MISSING VALUES BOTH FOR READING FROM BUFR FILES AND FOR
C WRITING TO BUFR FILES. THIS MISSING VALUE IS SET TO A
C DEFAULT VALUE OF 10E10 IN SUBROUTINE BFRINI, BUT APPLICATION
C PROGRAMS MAY SET IT TO A DIFFERENT VALUE VIA A CALL TO
C SUBROUTINE SETBMISS.
C
C PROGRAM HISTORY LOG:
C 2012-10-05 J. ATOR -- ORIGINAL AUTHOR
C
C USAGE: GETBMISS()
C
C INPUT ARGUMENTS:
C
C OUTPUT ARGUMENTS:
C GETBMISS - REAL*8: CURRENT VALUE OF BUFR ARCHIVE LIBRARY MISSING
C VALUE "BMISS"
C
C REMARKS:
C THIS ROUTINE CALLS: OPENBF
C
C THIS ROUTINE IS CALLED BY: None
C Normally called only by application
C programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
INCLUDE 'bufrlib.prm'
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
CALL OPENBF
(0,'FIRST',0)
GETBMISS = BMISS
RETURN
END