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

void zcross2	(	int *	flag,
		int*	nevprt,
		*	t,
		xd	,
		x	,
		int*	nx,
		z	,
		int*	nz,
		tvec	,
		int*	ntvec,
		rpar	,
		int*	nrpar,
		ipar	,
		int*	nipar,
		u	,
		int*	nu,
		g	,
		int*	ng
	)

Definition at line 5 of file zcross2.c.

References i, and j.

00011 {
00012   
00013   int i,j;
00014   int surface_matched,exist_enabled_surface;
00015 
00016   exist_enabled_surface=0;
00017   if ((*flag==3) &&(*nevprt<0)){
00018     for(i=0;i<*ntvec;i++){
00019       surface_matched=1;
00020       exist_enabled_surface=0;
00021       
00022       for (j=0;j<*ng;j++){
00023         if (rpar[(*ng+1)*i+j]!=0){
00024           exist_enabled_surface=1;
00025           if((rpar[(*ng+1)*i+j]*g[j])<=0){
00026             surface_matched=0;
00027           }
00028         }
00029       }
00030       
00031       if(( surface_matched==1)&&(exist_enabled_surface ==1))
00032         tvec[i]=*t+rpar[(*ng+1)*i+*ng];
00033       else
00034         tvec[i]=-1;
00035       
00036     }
00037   }
00038   else{
00039     if(*flag==9){
00040       for(i=0;i<*ng;i++)
00041         g[i]=u[i];
00042     }
00043   }
00044 }

zcross2.c File Reference

Functions

Function Documentation


Functions
void	zcross2 (int flag, int nevprt,t, xd, x, int nx, z, int nz, tvec, int ntvec, rpar, int nrpar, ipar, int nipar, u, int nu, g, int ng)