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.60  2004/06/21 16:05:58  gawthrop
+## Zapped comment that causes
+##
 ## Revision 1.59  2004/06/20 13:53:06  gawthrop
 ## Initialise for numpar as well
 ##
 ## Revision 1.58  2004/06/20 13:34:11  gawthrop
 ## Create vectors using zeros(N,1) - avoids new octave
@@ -621,19 +624,23 @@
 	    ;;
 	*)
 	    
     esac
 
-    if [ "${language}" = "oct" ]; then
-      if [ "$M" = "1" ]; then
-        echo "   mtt$name = zeros($N);"
-      else
-        echo "   mtt$name = zeros($N,$M);"
-      fi
-    else
-      echo "   mtt$name = zeros($N,$M);"
-    fi
+    case ${language} in
+	m)
+          echo "   mtt$name = zeros($N,$M);"	
+	;;
+	oct)
+	    if [ "$M" = "1" ]; then
+		echo "   mtt$name = zeros($N);"
+	    else
+		echo "   mtt$name = zeros($N,$M);"
+	    fi
+	    ;;
+        *)
+    esac
 done
 }
 
 declare_dummies()
 {
@@ -746,10 +753,11 @@
 fi
 
 if [ "$declareswitches" = "yes" ]; then
   declare_switches
 fi
+
 
 zero_matrices;
 
 }