Computational routine
eng


z_gen

File content


/* 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;
 }
}