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.4 1996/08/24 14:12:26 peter +# Global parameter passing. +# ## Revision 1.3 1996/08/19 18:38:43 peter ## Read in the numerical params etc ... ## ## Revision 1.2 1996/08/19 16:25:18 peter ## Fixed bug when Nx=0. @@ -62,11 +65,11 @@ BEGIN write "% Set the parameters"; write "global ...;;"; FOR i := 1:MTTNvar DO BEGIN - IF i