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.9  1998/02/26 15:12:26  peterg
+## Removed parameter stuff
+##
 # Revision 1.8  1996/08/30  14:54:36  peter
 # Took back lock.
 #
 ## Revision 1.7  1996/08/24  14:23:00  peter
 ## Global parameter passing.
@@ -62,19 +65,33 @@
 #  PARAMS=$2;
 #fi
 
 $MATRIX << EOF > dm2fr_m.log 2>mtt_error.txt
 
+# Data
   $1_numpar;
+
+# Simulation parameters
+  $1_simpar;
 
   [nx,ny,nu,nz,nyz] = $1_def
-%  $PARAMS
 
   %Defaults
-  if exist('W')==0
-    W = logspace(-1,2,100)';
+  
+  if exist('mttWMIN')==0
+    mttWMIN = -1;
+  end;
+
+  if exist('mttWMAX')==0
+    mttWMAX = 2;
+  end;
+
+  if exist('mttWSTEPS')==0
+    mttWSTEPS = 100;
   end;
+
+  W = logspace(mttWMIN,mttWMAX,mttWSTEPS)';
 
   if exist('u0')==0
     u0 = zeros(nu,1);
     u0(1) = 1;
   end;