var/external/bufr/setbmiss.f

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