_stornd()
 Assign a numeric value to a referenced variable using a double
------------------------------------------------------------------------------

 C Prototype

     #include "Extend.h"
     int _stornd(double n, int paramNum [, int arrayIndex])

 Arguments

     n is a numeric expression of type double.

     paramNum is the position in the parameter list of the parameter to
     be assigned.

     arrayIndex is an array index to specify a particular element if the
     indicated parameter is an array.

 Returns

     _stornd() returns one if the function is successful; otherwise, it
     returns zero.

 Description

     _stornd() stores a numeric value to a Clipper variable passed by
     reference as a parameter from Clipper.  If the parameter specified by
     paramNum is not a Clipper variable passed by reference, _stornd()
     ignores the call and returns a value of zero.

 Examples

     From C:

     _stornd( (double)3.14, 1 );

     From Assembly language:

     EXTRN   __stornd:FAR
       mov   ax, 1
       push  ax                   ; paramNum
       push  word ptr (MyPi+6)    ; push double number (not shown)
       push  word ptr (MyPi+2)
       push  word ptr (MyPi+4)
       push  word ptr MyPi
       call  __stornd
       add   sp, 10               ; reset stack pointer

 Files:  Library is CLIPPER.LIB, header file is Extend.h.