Subroutine:   SETDBLANK

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

Category:     DATA

File:         floating.c

Author:       K.G. Begeman

Use:          CALL SETDBLANK( DATA )     Output    DOUBLE PRECISION

              DATA       Data will contain the value for BLANK on return.

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

Warning:      This routine is system dependent!

Updates:      May 18, 1991: KGB, Document created.