Subroutine:   SETFBLANK

Purpose:      Subroutine to set a data value to the universal BLANK.

Category:     DATA

File:         floating.c

Author:       K.G. Begeman

Use:          CALL SETFBLANK( DATA )     Output    REAL

              DATA       Data will contain the value for BLANK on return.

Example:      REAL  BLANK
              CALL SETFBLANK( BLANK )
              FOR I = 1, N
                 IF (BLANK .EQ. DATA(I))
                 THEN
                    CALL SETFBLANK(RESULT(I))
                 ELSE
                    RESULT(I) = 2.0 * DATA(I) + 3.1456
                 CIF
              CFOR

Warning:      This routine is system dependent!

Updates:      Oct 24, 1988: KGB, Document created.
              Apr 23, 1991: KGB, Implemented for HP 9000.
              May 16, 1991: KGB, Incorprated in floating.c.