File mttroot/mtt/bin/trans/mtt_units.sh artifact 40d4f9eae3 part of check-in d2afdadec0

#!/bin/sh

## MTT units script - wrapper for the units program.

# Copyright (C) 2000 by Peter J. Gawthrop

# Arguments
sys=$1
port=$2
domain=$3
effort=$4
flow=$5

case ${domain} in
    electrical)
	base_effort=volt
	base_flow=amp
	;;
    translational)
	base_effort='newton'
	base_flow='m/s'
	;;
    rotational)
	base_effort='newton*m'
	base_flow='radian/s'
	;;
    fluid)
	base_effort='Pa'
	base_flow='m^3/s'
	;;
    thermal)
	base_effort='degK'
	base_flow='watt/degK'

	;;
    *)
	echo ${sys} ${port} DOMAIN_ERROR invalid domain ${domain}
	exit 1
esac

get_unit()
{
  if [ "$2" == "none" ]; then
      echo 1
  else
      factor=`units $2 $3 | head -1 | sed 's/\*//'`
      if [ `echo $factor | wc -w` = "1" ]; then
	  echo $factor
      else
	  echo $1_UNIT_ERROR unit $2 not compatible with domain ${domain}
      fi
  fi
}
## Check effort and flow for comptability + find factor
effort_factor=`get_unit EFFORT $effort $base_effort`
flow_factor=`get_unit FLOW $flow $base_flow`

echo ${sys} ${port} ${effort_factor} ${flow_factor}