_stornd()
 Assign a numeric value to a referenced variable using a double-precision type
------------------------------------------------------------------------------
 C Prototype

     #include "extend.api"
     int _stornd(
                  double dNumber,
                  int iParamNum
                  [, int iArrayIndex]
                )

 Arguments

     dNumber is a numeric expression of type double.

     iParamNum is the one-based ordinal position in the parameter list of
     the parameter to be assigned.

     iArrayIndex is an array index that specifies a particular element if
     the iParamNum 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 variable passed by reference as a
     parameter from CA-Clipper.  If the parameter specified by iParamNum is
     not 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                   ; iParamNum
              push  word ptr (MyPi+6)    ; push double number
                                         ; (creation of MyPi 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.api.