Index: mttroot/mtt/bin/trans/mtt_header
==================================================================
--- mttroot/mtt/bin/trans/mtt_header
+++ mttroot/mtt/bin/trans/mtt_header
@@ -10,10 +10,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.24  2000/12/05 10:04:52  peterg
+## Fixed dummy variable bug
+##
 ## Revision 1.23  2000/12/05 09:47:50  peterg
 ## Include crs as c files
 ##
 ## Revision 1.22  2000/12/04 12:19:12  peterg
 ## Changed $() to `` and $() to expr for sh compatibility -- geraint
@@ -285,11 +288,11 @@
 
 if [ "$rep" = "simpar" ]; then
    output=${output}${map}    # Output is simpar_map in this case
 fi
 
-function zero_matrices
+zero_matrices()
 {
 ## Set matrices to zero
 echo
  ## echo '## Set matrices to zero'
 for name in $zeromatrices; do
@@ -314,11 +317,11 @@
     esac
     echo "   mtt$name = zeros($N,$M);"
 done
 }
 
-function declare_dummies
+declare_dummies()
 {
 # Get the dummies
 dummies="mtt_tmp"
 rm -f mtt_dummies
 for dummy in $dummies; do
@@ -340,21 +343,21 @@
 for dummy in $dummy_list; do
     echo '  ' $var_declaration $dummy';'
 done
 } # declare_dummies
 
-function declare_switches 
+declare_switches ()
 {
 cat <<EOF
 
 $Lc  Declarations of switches $Rc
 EOF
  strip_comments <${system}_switch.txt |\
  awk '{printf("  double %s_logic = 0;\n", tolower($1))}' 
 } # declare_switches
 
-function declare_vars
+declare_vars()
 {
 # Grab the names
 names=`awk '{if ($1==var_type) print tolower($4)}' var_type=$1 ${system}_struc.txt`
 
 # Comments
@@ -367,11 +370,11 @@
     echo '  '$var_declaration $name';'
 done
 }
 
 
-function array2constant
+array2constant()
 {
 # Parameters
 if [ "$parameters" = "yes" ]; then
 cat <<EOF
 
@@ -425,11 +428,11 @@
 zero_matrices;
 
 }
 
 # Argument specific stuff
-function get_arg_specific_stuff 
+get_arg_specific_stuff ()
 {
     arg_name=${1:-""}
     case ${arg_name} in
 	mtta | mtte)
 	    arg_type="Matrix"
@@ -479,11 +482,11 @@
 	    echo "Argument ${arg} not supported - sorry"; exit 1
     esac
 }
 
 
-function get_field 
+get_field ()
 { # parse comma separated string
     s=${1:-""}					# comma separated string
     i=${2:-0}					# field number in string
 
     if [ 0 -eq ${i} ]; then			# return number of fields
@@ -494,11 +497,11 @@
 	awk -F\, -v i=${i} '{ print $i }'
     fi
 }
 
 
-function get_extra_fields 
+get_extra_fields ()
 { # return list of words in s2 and not in s1
     s1=${1:-""}					# comma separated list
     s2=${2:-""}					# comma separated list
 
     c1=`get_field ${s1} 0`			# count words in s1
@@ -529,11 +532,11 @@
     done
     echo ${ans}
 }
 
 
-function write_DLD_header
+write_DLD_header()
 {
     cat <<EOF
 
 #include <octave/oct.h>
 #include <octave/ov-struct.h>
@@ -556,11 +559,11 @@
 
 EOF
 }
 
 
-function map_DLD_inputs 
+map_DLD_inputs ()
 {
     s=${1:-""}					# comma separated input list
     if [ -z ${s:-""} ];then return; fi
     c=`get_field ${s} 0`			# count of inputs
     i=0
@@ -581,11 +584,11 @@
     done
     printf "\n"
 }	
 
 
-function declare_DLD_outputs 
+declare_DLD_outputs ()
 {
     s=${1:-""}					# comma separated output list
     c=`get_field ${s} 0`			# count of outputs
     i=0
     while [ ${i} -lt ${c} ]; do
@@ -595,11 +598,11 @@
 	printf "  ${arg_type}\t${w}\t${arg_size};\n"
     done
 }
 
 
-function return_DLD_outputs 
+return_DLD_outputs ()
 {
     s=${1:-""}					# comma separated output list
     c=`get_field ${s} 0`			# count of outputs
     i=0
     cat <<EOF