/*****************************************************************************
*                                                                            *
*   ISNUMERIC.SPL Copyright (C) 2002 DSP Development Corporation             *
*                               All Rights Reserved                          *
*                                                                            *
*   Author:      Randy Race                                                  *
*                                                                            *
*   Synopsis:    Returns 1 if input is a numeric value                       *
*                                                                            *
*   Revisions:    9 Aug 2002  RRR  Creation                                  *
*                                                                            *
*****************************************************************************/

#include 


#if @HELP_ISNUMERIC

    ISNUMERIC

    Purpose: Returns 1 if input is a numeric value

    Syntax:  ISNUMERIC(a)

              a - Any input

    Returns: An integer, 1 if the input is a scalar or series numeric,
             else 0.

    Example:
             a = {1};
             b = {};
             c = "yes";
             d = 3i;

             isnumeric(a) returns 1
             isnumeric(b) returns 1
             isnumeric(c) returns 0
             isnumeric(b) returns 1

    Remarks:

             ISNUMERIC always returns an integer. ISNUMERIC returns 1 if
             the input is a scalar or series.

    See Also:
             Finite
             Isempty
             Isinf
             Isnan
             Isscalar
             Isstring
#endif


/* is input a numeric value? */
isnumeric(a)
{
        if (argc < 1) a = refwindow(w0);

        return(IS_NUMERICTYPE(a));
}