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.61  2004/06/21 16:30:41  gawthrop
+## Don't zero for cc code
+##
 ## 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
@@ -597,43 +600,46 @@
 	    ;;
 	e)
 	    N=$Nx; M=$Nx
 	    ;;
 	x)
-	    N=$Nx; M=1
+	    N=$Nx; M=0
 	    ;;
 	dx)
-	    N=$Nx; M=1
+	    N=$Nx; M=0
 	    ;;
 	edx)
-	    N=$Nx; M=1
+	    N=$Nx; M=0
 	    ;;
 	y)
-	    N=$Ny; M=1
+	    N=$Ny; M=0
 	    ;;
 	u)
-	    N=$Nu; M=1
+	    N=$Nu; M=0
 	    ;;
 	open)
-	    N=$Nx; M=1
+	    N=$Nx; M=0
 	    ;;
 	ax)
-	    N=$Nx; M=1
+	    N=$Nx; M=0
 	    ;;
 	par)
-	    N=$Npar; M=1
+	    N=$Npar; M=0
 	    ;;
 	*)
 	    
     esac
 
     case ${language} in
 	m)
+	  if [ "$M" = "0" ]; then
+	      M=1;
+	  fi
           echo "   mtt$name = zeros($N,$M);"	
 	;;
 	oct)
-	    if [ "$M" = "1" ]; then
+	    if [ "$M" = "0" ]; then
 		echo "   mtt$name = zeros($N);"
 	    else
 		echo "   mtt$name = zeros($N,$M);"
 	    fi
 	    ;;