absolute_value
#include "scicos_block.h"
#include <math.h>
void absolute_value(scicos_block *block,int flag)
{
int i,j;
if (flag==1){
if( block->ng>0){
for(i=0;i<block->insz[0];++i){
if (get_phase_simulation()==1) {
if (block->inptr[0][i]<0){
j=2;
} else{
j=1;
}
}else {
j=block->mode[i];
}
if (j==1){
block->outptr[0][i]=block->inptr[0][i];
} else{
block->outptr[0][i]=-block->inptr[0][i];
}
}
}else{
for(i=0;i<block->insz[0];++i){
if (block->inptr[0][i]<0){
block->outptr[0][i]=-block->inptr[0][i];
}else{
block->outptr[0][i]=block->inptr[0][i];
}
}
}
}else if (flag==9){
for(i=0;i<block->insz[0];++i){
block->g[i]=block->inptr[0][i];
if (get_phase_simulation()==1) {
if(block->g[i]<0){
block->mode[i]=2;
}else{
block->mode[i]=1;
}
}
}
}
}