Scilab [trunk]: scilab/modules/scicos/src/c/relay.c File Reference

void relay	(	integer *	flag,
		integer*	nevprt,
		*	t,
		xd	,
		x	,
		integer*	nx,
		z	,
		integer*	nz,
		tvec	,
		integer*	ntvec,
		rpar	,
		integer*	nrpar,
		ipar	,
		integer*	nipar,
		inptr	,
		insz	,
		integer*	nin,
		outptr	,
		outsz	,
		integer*	nout
	)

Definition at line 5 of file relay.c.

References ic, int, and y.

00011 {
00012 
00013     int k;
00014     double *y;
00015     double *u;
00016     int nev,ic;
00017     ic=(int)z[0];
00018     if ((*flag)<3) {
00019       if ((*nevprt)>0) {
00020         ic=-1;
00021         nev=*nevprt;
00022         while (nev>=1) {
00023           ic=ic+1;
00024           nev=nev/2;
00025         }
00026       }
00027       if ((*flag)==2) {z[0]=ic;return ;}
00028       if (*nin>1) {
00029         y=(double *)outptr[0];
00030         u=(double *)inptr[ic];
00031         for (k=0;k<outsz[0];k++)
00032           *(y++)=*(u++);  
00033       }
00034       else {
00035         y=(double *)outptr[ic];
00036         u=(double *)inptr[0];
00037         for (k=0;k<outsz[0];k++)
00038           *(y++)=*(u++);  
00039       }
00040     }
00041 }

relay.c File Reference

Functions

Function Documentation


Functions
void	relay (integer flag, integer nevprt,t, xd, x, integer nx, z, integer nz, tvec, integer ntvec, rpar, integer nrpar, ipar, integer nipar, inptr, insz, integer nin, outptr, outsz, integer nout)