Scilab [trunk]: scilab/modules/intersci/examples/ex13c.c Source File

00001 
00002 #include "../../routines/machine.h"
00003 
00004 /*******************************************
00005  * simple example 
00006  *******************************************/
00007 
00008 int F2C(ext13c)( ar, m,n)
00009      int *n,*m;
00010      double *ar;
00011 {   
00012   int k;
00013   for (k = 0; k < *n*(*m); ++k) 
00014       ar[k]= 2*ar[k];
00015   return(0);
00016 }
00017