Scilab [trunk]: scilab/modules/elementaries_functions/src/c/vfinite.c Source File

00001 #include "machine.h"
00002 
00003 /* checks if all entries of a vector are finite */
00004 
00005 extern int finite __PARAMS( (double v));
00006 
00007 int C2F(vfinite)(int *n, double *v);
00008 
00009 int C2F(vfinite)(int *n, double *v)
00010 {
00011   int i;
00012   for (i=0; i < *n; i++) 
00013     if (finite(v[i])==0) return 0;
00014   return 1;
00015 }