Scilab [trunk]: scilab/modules/scicos/src/c/gainblk.c Source File

00001 #include "scicos_block.h"
00002 #include "machine.h"
00003 
00004 extern int C2F(dmmul)();
00005 extern int C2F(dmmul1)();
00006 
00007 
00008 void gainblk(scicos_block *block,int flag)
00009 {
00010   int i,un=1;
00011 
00012   if (block->nrpar==1){
00013     for (i=0;i<block->insz[0];++i){
00014       block->outptr[0][i]=block->rpar[0]*block->inptr[0][i];
00015     }    
00016   }else{   
00017     C2F(dmmul)(block->rpar,&block->outsz[0],block->inptr[0],
00018           &block->insz[0],block->outptr[0],&block->outsz[0],
00019           &block->outsz[0],&block->insz[0],&un);
00020   }
00021 }