Computational routine
eng
product
#include "scicos_block.h"
#include <math.h>
void product(scicos_block *block,int flag)
{
int j,k;
if(flag==1){
if (block->nin==1){
block->outptr[0][0]=1.0;
for (j=0;j<block->insz[0];j++) {
block->outptr[0][0]=block->outptr[0][0]*block->inptr[0][j];
}
}
else {
for (j=0;j<block->insz[0];j++) {
block->outptr[0][j]=1.0;
for (k=0;k<block->nin;k++) {
if(block->ipar[k]>0){
block->outptr[0][j]=block->outptr[0][j]*block->inptr[k][j];
}else{
if(block->inptr[k][j]==0){
set_block_error(-2);
return;
}else{
block->outptr[0][j]=block->outptr[0][j]/block->inptr[k][j];
}
}
}
}
}
}
}