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

00001 #include <math.h>
00002 #include "machine.h"
00003 
00004 void C2F(vceil)(int *n, double *x, int *ix, double *y,  int *iy);
00005 
00006 void C2F(vceil)(int *n, double *x, int *ix, double *y,  int *iy)
00007 {
00008   int ix1,iy1,i;
00009   ix1=0;
00010   iy1=0;
00011 
00012   if (*ix<0) ix1=-(*n-1)*(*ix);
00013   if (*iy<0) iy1=-(*n-1)*(*iy);
00014 
00015   for (i=0;i<*n;i++) {
00016     y[iy1]=ceil(x[ix1]);
00017     iy1 += *iy;
00018     ix1 += *ix;
00019   }
00020 }