Computational routine
eng

absolute_value

File content

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


void  absolute_value(scicos_block *block,int flag)
{
  int _ng=GetNg(block);
  double *_g=GetGPtrs(block);
  int *_mode=GetModePtrs(block);
  double *_u1=GetRealInPortPtrs(block,1);
  double *_y1=GetRealOutPortPtrs(block,1);
  int i,side;
  switch(flag) 
    {/*----------------------*/
    case 1:
      for(i=0;i<GetInPortRows(block,1);++i){
	if (!areModesFixed(block) || _ng==0) {
	  if (_u1[i]<0){
	    side=2; 
	  } else{
	    side=1;
	  }
	}else {
	  side=_mode[i];
	}
	if (side==1){
	  _y1[i]=_u1[i];
	} else{
	  _y1[i]=-_u1[i];
	}
      }
      break;
      /*----------------------*/
    case 9:
      for(i=0;i<GetInPortRows(block,1);++i){
	_g[i]=_u1[i];
	if (!areModesFixed(block)) {
	  if(_g[i]<0){
	    _mode[i]=2;
	  }else{
	    _mode[i]=1;
	  }
	}
      }
      break;
      /*----------------------*/
    default:
      break;
    }
}