IsAScalar.c File Reference

#include <stdio.h>
#include <string.h>
#include "machine.h"
#include "stack-c.h"
#include "IsAScalar.h"

Include dependency graph for IsAScalar.c:

Go to the source code of this file.

Functions
int	IsAScalar (int RhsNumber)

---

Function Documentation

int IsAScalar

(

int

RhsNumber

)

Definition at line 11 of file IsAScalar.c.

References GetRhsVar, GetType, m1, n1, and sci_matrix.

{
        int bOK=0;

        if ( GetType(RhsNumber) == sci_matrix )
        {
                static int l1,n1,m1;
                GetRhsVar(RhsNumber,"d",&m1,&n1,&l1);
                if ( (m1 == 1) && (n1 == 1) )
                {
                        bOK=1;
                }
        }
        return bOK;
}

---