Scilab [trunk]: scilab/modules/intersci/src/lib/cdoublef.c Source File

00001 /* Copyright INRIA */
00002 #include "machine.h"
00003 
00004 /* ip is a pointer to a FORTRAN variable coming from SCILAB
00005 which is itself a pointer to an array of n doubles typically
00006 coming from a C function
00007    cdoublef converts this double array into a double array in op 
00008    moreover, pointer ip is freed */
00009 
00010 void C2F(cdoublef)(n,ip,op)
00011 int *n;
00012 double *ip[];
00013 double *op;
00014 {
00015   int i;
00016   if ( *n >0 ) {
00017       for (i = 0; i < *n; i++)
00018           op[i]=(*ip)[i];
00019       free((char *)(*ip));
00020   }
00021 }