( DARRAY                                create a double array )

( used in the form:  )
(    n DARRAY <name> )

: darray                          ( n --- )        ( compiling)
                                  ( n --- addr )   ( executing)
  <builds                         ( put <name> into dictionary)
    4 * allot                     ( and allocate 4*n bytes)
  does>                           ( at execution time)
    swap                          ( swap n and base-addr)
    4 *                           ( offset = 4*n)
    +                             ( addr = base-addr + offset)
;