Subroutine:   PRESETD

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

Category:     ARRAY

File:         preset.c

Author:       K.G. Begeman

Use:          CALL PRESETD( SOURCE,     Input      DOUBLE PRECISION
                            DESTIN,     Output     DOUBLE 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.