Subroutine:   PRESETR

Purpose:      Presets a single precision array to a constant value.

Category:     ARRAY

File:         preset.c

Author:       K.G. Begeman

Use:          CALL PRESETR( SOURCE,     Input      REAL
                            DESTIN,     Output     REAL ARRAY
                            NITEMS )    Input      INTEGER

              SOURCE    Value with which to fill DESTIN.
              DESTIN    Array which receives SOURCE.
              NITEMS    Number of items to fill in DESTIN.

Updates:      Jul 29, 1989: KGB, Document created.