<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='SETBMISS'><A href='../../html_code/bufr/setbmiss.f.html#SETBMISS' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
SUBROUTINE SETBMISS(XMISS) 1,2
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: SETBMISS
C PRGMMR: WOOLLEN ORG: NP20 DATE: 2012-09-15
C
C ABSTRACT: SETBMISS WILL ALLOW AN APPLICATION TO DEFINE THE SPECIAL
C VALUE "BMISS" WHICH DENOTES MISSING VALUES BOTH FOR READING
C FROM BUFR FILES AND FOR WRITING TO BUFR FILES. THE DEFAULT
C BUFRLIB MISSING VALUE IS SET TO 10E10 IN SUBROUTINE BFRINI.
C
C PROGRAM HISTORY LOG:
C 2012-09-15 J. WOOLLEN -- ORIGINAL AUTHOR
C
C USAGE: CALL SETBMISS
(XMISS)
C
C INPUT ARGUMENTS:
C XMISS - REAL*8 MISSING VALUE TO BE USED
C
C OUTPUT ARGUMENTS:
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'
REAL*8 XMISS
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
CALL OPENBF(0,'FIRST',0)
BMISS = XMISS
RETURN
END