ADDED   mttroot/mtt/bin/trans/mtt_units.sh
Index: mttroot/mtt/bin/trans/mtt_units.sh
==================================================================
--- /dev/null
+++ mttroot/mtt/bin/trans/mtt_units.sh
@@ -0,0 +1,54 @@
+#!/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='rad/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()
+{
+  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
+}
+## 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}