Computational routine
eng


noiseraylblk

File content


/* noiseraylblk Scicos Rayleigh random generator block
 * Type 4 simulation function ver 1.0 - scilab-4.1.2
 * 2 décembre 2007 - INRIA - Author : A.Layec
 */

/* REVISION HISTORY :
 * $Log$
 */

#include <stdlib.h>
#include "scicos_block4.h"

void noiseraylblk(scicos_block *block,int flag)
{
  /*Déclaration des variables*/
  double *y;
  int ny;
  int my;
  double sig;

  /*récupération de l'adresses des ports réguliers*/
  y=GetOutPortPtrs(block,1);

  /*récupère tailles de sortie*/
  ny=GetOutPortRows(block,1);
  my=GetOutPortCols(block,1);

  /*récupère le paramètre de générateur*/
  sig=block->rpar[0];

  if(flag==4) {
   /* initialise generateur de nombre aléatoire */
   srand((unsigned int)block->ipar[0]);

   /*Appel rnoise_c*/
   rnoise_c(&ny,&my,&sig,y);
  }

  else if(flag==1)  {
   /*Appel rnoise_c*/
   rnoise_c(&ny,&my,&sig,y);
  }

}