Index: mttroot/mtt/bin/trans/mtt_m2p
==================================================================
--- mttroot/mtt/bin/trans/mtt_m2p
+++ mttroot/mtt/bin/trans/mtt_m2p
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.15  1998/08/15 13:46:01  peterg
+## Included new sparse update routines
+##
 ## Revision 1.14  1998/08/12 15:21:12  peterg
 ## Added type definition for the SVD procedures
 ##
 ## Revision 1.13  1998/08/11 09:32:07  peterg
 ## Added comments at procedure begin and end.
@@ -165,11 +168,11 @@
   space="[ \t]*"
   spaces="[ \t][ \t]*"
   non_space="[^ ]*"
 
 # Body	
-grep -v '^[ ]*function' < $Sys_rep.m  | sed "s/^$space%/#/" |\
+grep -v '^[ ]*function' < $Sys_rep.m  | sed "s/^$space%/#/" | sed "s/;$space%/#/" |\
 awk -F# '{printf("%s",$1) 
           if (NF>1) printf("{* %s *}", $2)
           printf("\n") 
          }' |\
 sed "s/$space\[\($non_space\)\]$spaces=$spaces\($fun_name\)(\([a-zA-Z0-9,]*\))/\2(\1,\3)/" |\