absolute_value_routcos

Computational routine
eng

##
absolute_value

### File content

    #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;
    	}
          }
        }
      }
    }