Index: mttroot/mtt/bin/trans/m/varname.m
==================================================================
--- mttroot/mtt/bin/trans/m/varname.m
+++ mttroot/mtt/bin/trans/m/varname.m
@@ -13,10 +13,14 @@
 # ###############################################################
 # ## Version control history
 # ###############################################################
 # ## $Id$
 # ## $Log$
+# ## Revision 1.4  2003/03/24 09:09:52  gawthrop
+# ## Reformated to octave standard
+# ## Now writes variables in non-matrix form
+# ##
 # ## Revision 1.3  2003/03/13 14:22:34  gawthrop
 # ## No negative bond numbers
 # ##
 # ## Revision 1.2  2000/12/27 16:06:15  peterg
 # ## *** empty log message ***
@@ -31,6 +35,8 @@
 # # name =sprintf('%s%1.0f_%s', bond_name, index, cause2name(causality));
 
 # # bond_name = [name,'('];
 # # name =sprintf('%s(%1.0f,%1.0f)', name, abs(index), cause2num(causality));
 
-name =sprintf('%s_%i_%s', name, abs(index), cause2name(causality));
+  name =sprintf('%s_%i_%s', name, abs(index), cause2name(causality));
+
+endfunction