getbmiss.f

Go to the documentation of this file.

C> @file
C> @brief Get the current placeholder value for "missing" data
C>
C> @author J. Woollen @date 2012-09-15
 
C> This function returns the current placeholder value which
C> represents "missing" data when reading from or writing to
C> BUFR files.
C>
C> @returns getbmiss -- real*8: current placeholder value for
C>                      "missing" data
C>
C> This subroutine can be called at any time from within an
C> application program, and the returned value can then be
C> used to represent "missing" data within the context of
C> future calls to any of the other BUFRLIB
C> [values-reading subroutines](@ref hierarchy) or
C> [values-writing subroutines](@ref hierarchy).
C> This placeholder value can also be changed at any
C> time via a separate call to subroutine setbmiss().
C>
C> @author J. Woollen @date 2012-09-15
      RECURSIVE FUNCTION getbmiss() RESULT(R8VAL)
 
      USE modv_im8b
      USE modv_bmiss
 
      real*8 r8val
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C     Check for I8 integers.
 
      IF(im8b) THEN
         im8b=.false.
 
         r8val=getbmiss()
 
         im8b=.true.
         RETURN
      ENDIF
 
      CALL openbf(0,'FIRST',0)
 
      r8val = bmiss
 
      RETURN
      END