Computational routine
eng


int_symb

File content


/* int_symb scicos Symbol Integrator
 * Type 4 simulation function ver 1.0 - scilab-3.0
 * 22 Décembre 2004 Author : - IRCOM GROUP - A.Layec
 */

/* REVISION HISTORY :
 * $Log$
 */

#include "modnum_lib.h"
#include "scicos_block.h"

/* Entrée régulière : u[0..nu] : vecteur à intégrer
 * Sortie régulière : y[0..nu]=integral(u[0..nu]) : vecteur intégré
 * Entrée évènementielle : (à la rigueur)
 * Sortie évènementielle : néant
 *
 * Paramètres entier : ipar[0] : Longueur en échantillons du symbole
 *                     ipar[1] : N° Echantillon initial d'integration
 *                     insz[0] : taille du vecteur d'entrée
 *
 * Paramètres réels :  rpar[0] : gain en sortie
 *
 * Etat discret : z[0] : mémoire valeur intégrée précedente (pour le bout du vecteur)
 *
 */

/*prototype*/
void int_symb(scicos_block *block,int flag)
{
  /*Déclaration des variables*/
  double *y;
  double *u;
  double step;
  int init_c,nu,nech;

  /*Récupération des adresses des ports réguliers*/
  y=(double *)block->outptr[0];
  u=(double *)block->inptr[0];

  /*Récupération du nombre d'échantillons*/
  nu=block->insz[0];
  nech=block->ipar[0];
  init_c=block->ipar[1];
  step=block->rpar[0];

  /*Le flag1*/
  if(flag==1)
  {
   /*Appel intsymb_c*/
   intsym_c(&nu,&nech,&init_c,&step,&u[0],&y[0],&block->z[0]);
  }
}