Index: mttroot/mtt/bin/trans/dm2fr_m
==================================================================
--- mttroot/mtt/bin/trans/dm2fr_m
+++ mttroot/mtt/bin/trans/dm2fr_m
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.11  1998/08/11 13:32:42  peterg
+## Lowercase mttLAST etc
+##
 ## Revision 1.10  1998/07/27 20:27:25  peterg
 ## Now get parameters for simpar file.
 ##
 ## Revision 1.9  1998/02/26 15:12:26  peterg
 ## Removed parameter stuff
@@ -92,28 +95,29 @@
     mttwsteps = 100;
   end;
 
   W = logspace(mttwmin,mttwmax,mttwsteps)';
 
-  if exist('u0')==0
-    u0 = zeros(nu,1);
-    u0(1) = 1;
+  if exist('mttinput')==0
+    mttinput = 1;
   end;
+  mttu0 = zeros(nu,1);
+  mttu0(mttinput) = 1;
 
 
   [n,m]=size(W);
   if m>n
     W=W';
   end;
 
-  [n,m]=size(u0);
+  [n,m]=size(mttu0);
   if m>n
-    u0=u0';
+    mttu0=mttu0';
   end;
 
   [A,B,C,D,E] = $1_dm
-  fr = dm2fr(A,B,C,D,E,W,u0)
+  fr = dm2fr(A,B,C,D,E,W,mttu0);
   lw = log10(W);
   lmfr = log10(abs(fr));
   pfr = angle(fr)*180/pi;
 
 % Complex frequency response