# 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++;
}
}
}
}
}