NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
ibfms.f File Reference

Test whether a real*8 data value is "missing". More...

Go to the source code of this file.

Functions/Subroutines

INTEGER function ibfms (R8VAL)
 This function provides a handy way to check whether a real*8 data value returned from a previous call to any of the other BUFRLIB values-reading subroutines contains the current placeholder value for "missing" data. More...
 

Detailed Description

Test whether a real*8 data value is "missing".

Definition in file ibfms.f.

Function/Subroutine Documentation

INTEGER function ibfms ( real*8  R8VAL)

This function provides a handy way to check whether a real*8 data value returned from a previous call to any of the other BUFRLIB values-reading subroutines contains the current placeholder value for "missing" data.

Author
J. Ator
Date
2007-01-19
Parameters
[in]R8VAL– real*8: Data value to be tested
Returns
ibfms – integer:
  • 0 = R8VAL is not "missing"
  • 1 = R8VAL is "missing"

The current placeholder value for "missing" data is always equal to the value XMISS as specified during the most recent call to subroutine setbmiss(), or to a default value of 10E10 if setbmiss() was never called. In either case, a return value of 1 means that the corresponding value was encoded as "missing" (all bits set to 1) within the actual BUFR data subset.

Remarks
  • The use of an integer return code allows this function to be called in a logical context from application programs written in C as well as in Fortran.

Program history log:

Date Programmer Comments
2007-01-19 J. Ator Original author
2009-03-23 J. Ator Increased value of BDIFD for better test accuracy
2012-10-05 J. Ator Modified to reflect the fact that the "missing" value is now configurable by users (may be something other than 10E10)

Definition at line 38 of file ibfms.f.

Referenced by invmrg(), strbtm(), ufbdmp(), ufbrw(), ufdump(), and wrtree().