Fonction de calcul
fr


mat_catv

Contenu du fichier


# include "scicos_block4.h"
# include "../machine.h"
#include <stdio.h>

void mat_catv(scicos_block *block,int flag)
{
 double *u;
 double *y;
 int mu,nu;
 int i,j,ij,k,bk;
 
 nu =GetInPortCols(block,1);  
 y=GetRealOutPortPtrs(block,1);

if ((flag==1) || (flag==6))
{k=0;
 for(j=0;j<nu;j++)
    {for (bk=1;bk<GetNin(block)+1;bk++) 
   	  {u=GetRealInPortPtrs(block,bk);
	   mu=GetInPortRows(block,bk);
           for(i=0;i<mu;i++)
	       {ij=i+j*mu;
	        y[k]=u[ij];
 	        k++;
	       }
	  }
     }
}
}