var/external/bufr/getbmiss.f

   1       REAL*8 FUNCTION GETBMISS()
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM: GETBMISS
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 2012-09-15
   7 C
   8 C ABSTRACT: GETBMISS RETURNS THE CURRENT VALUE OF "BMISS" WHICH DENOTES
   9 C           MISSING VALUES BOTH FOR READING FROM BUFR FILES AND FOR
  10 C           WRITING TO BUFR FILES.  THIS MISSING VALUE IS SET TO A
  11 C           DEFAULT VALUE OF 10E10 IN SUBROUTINE BFRINI, BUT APPLICATION
  12 C           PROGRAMS MAY SET IT TO A DIFFERENT VALUE VIA A CALL TO
  13 C           SUBROUTINE SETBMISS.
  14 C
  15 C PROGRAM HISTORY LOG:
  16 C 2012-10-05  J. ATOR -- ORIGINAL AUTHOR
  17 C
  18 C USAGE:    GETBMISS()
  19 C
  20 C   INPUT ARGUMENTS:
  21 C
  22 C   OUTPUT ARGUMENTS:
  23 C     GETBMISS - REAL*8: CURRENT VALUE OF BUFR ARCHIVE LIBRARY MISSING
  24 C                VALUE "BMISS"
  25 C
  26 C REMARKS:
  27 C    THIS ROUTINE CALLS:        OPENBF
  28 C
  29 C    THIS ROUTINE IS CALLED BY: None
  30 C                               Normally called only by application
  31 C                               programs.
  32 C
  33 C ATTRIBUTES:
  34 C   LANGUAGE: FORTRAN 77
  35 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  36 C
  37 C$$$
  38
  39       INCLUDE 'bufrlib.prm'
  40
  41 c-----------------------------------------------------------------------
  42 c-----------------------------------------------------------------------
  43
  44       CALL OPENBF(0,'FIRST',0)
  45
  46       GETBMISS = BMISS
  47
  48       RETURN
  49       END