Index: mttroot/mtt/bin/trans/tf_r2m
==================================================================
--- mttroot/mtt/bin/trans/tf_r2m
+++ mttroot/mtt/bin/trans/tf_r2m
@@ -12,10 +12,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.1  2001/05/24 07:42:12  gawthrop
+## Included and updated the missing tf_r2m
+##
 ## Revision 1.1  1996/09/18 14:05:31  peter
 ## Initial revision
 ##
 ###############################################################
 
@@ -85,11 +88,11 @@
   FOR Row := 1:MTTNy DO
   BEGIN
     FOR Col := 1:MTTNu DO
     MTTnum(Row,Col) := num(MTTtf(Row,Col))*(MTTden/den(MTTtf(Row,Col)));
   END;
-MTTnum;
+MTTnum := MTTnum;
 
 %Put coefficients into matrices
 matrix MTTdenco(1,Nmax);
 MTTCoeff := Coeff(MTTden,s);
 FOR i := 1:Nmax DO
@@ -96,10 +99,11 @@
 BEGIN
   j := Nmax-i+1;
   IF j>length(MTTCoeff) THEN MTTdenco(1,i) := 0 
                         ELSE MTTdenco(1,i) := part(MTTCoeff,j);
 END; 
+MTTdenco := MTTdenco;
 
 matrix MTTnumco(MTTNy,MTTNu*Nmax);
 FOR MTTRow := 1:MTTNy DO
 BEGIN
   FOR MTTCol := 1:MTTNu DO
@@ -143,9 +147,6 @@
 
 #Body
 cat $1_tf.m1  >> $1_tf.m
 echo '## END Code' >> $1_tf.m
 rm -f $1_tf.m1
-
-
-