Index: mttroot/mtt/bin/trans/sm_r2m
==================================================================
--- mttroot/mtt/bin/trans/sm_r2m
+++ mttroot/mtt/bin/trans/sm_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  1996/08/19 15:14:51  peter
+## Initial revision
+##
 ###############################################################
 
 
 # Inform user
 echo Creating $1_sm.m
@@ -70,39 +73,27 @@
 
 write "%Linearised state matrices for system $1";
 write "%File $1_sm.m";
 write "%Generated by MTT";
 
-
-ON NERO;	% Suppress zero elements.
-
 %Fortran switches - one line expressions
 OFF echo;
 ON fort$
 cardno!* := 1$
 fortwidth!* := 100$
 OFF period$
 
 write "MTTA = zeros(", MTTNx, ",", MTTNx, ");";
-MTTA := MTTA;
-
-write "MTTB = zeros(", MTTNx, ",", MTTNu, ");";
-MTTB := MTTB;
-
-write "MTTC = zeros(", MTTNy, ",", MTTNx, ");";
-MTTC := MTTC;
-
-write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
+write "MTTB = zeros(", MTTNx, ",", MTTNu, ");";
+write "MTTC = zeros(", MTTNy, ",", MTTNx, ");";
+write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
+
+ON NERO;	% Suppress zero elements.
+MTTA := MTTA;
+MTTB := MTTB;
+MTTC := MTTC;
 MTTD := MTTD;
 
 OFF FORT;
 write "";
 
 SHUT "$1_sm.m";
-
-
-
-
-
-
-
-