Scilab [trunk]: scilab/modules/core/src/c/IsAScalar.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA 2005 */
00003 /* Allan CORNET */
00004 /*-----------------------------------------------------------------------------------*/ 
00005 #include <stdio.h>
00006 #include <string.h>
00007 #include "machine.h"
00008 #include "stack-c.h"
00009 #include "IsAScalar.h"
00010 /*-----------------------------------------------------------------------------------*/ 
00011 int IsAScalar(int RhsNumber)
00012 {
00013         int bOK=0;
00014 
00015         if ( GetType(RhsNumber) == sci_matrix )
00016         {
00017                 static int l1,n1,m1;
00018                 GetRhsVar(RhsNumber,"d",&m1,&n1,&l1);
00019                 if ( (m1 == 1) && (n1 == 1) )
00020                 {
00021                         bOK=1;
00022                 }
00023         }
00024         return bOK;
00025 }
00026 /*-----------------------------------------------------------------------------------*/