/* z_buf Scicos discret memory block * Type 4 simulation function ver 1.0 - scilab-3.0 * 17 janvier 2005 - IRCOM GROUP - Author : A.Layec */ /* REVISION HISTORY : * $Log$ */ #include "scicos_block.h" /* ipar[0] : taille du mot mémoire * z[0..ipar[0]-1] : mot mémoire * z[ipar[0]] : compteur */ void z_gen(scicos_block *block,int flag) { int i,j; if(flag==1) { j = (int)block->z[block->ipar[0]]; for(i=0;i<block->outsz[0];i++) { block->outptr[0][i]=block->z[j+i]; } j += block->outsz[0]; if(j>=block->ipar[0]) j=0; block->z[block->ipar[0]]=(double)j; } }