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,13 @@
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% Version control history
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % %% $Id$
 % %% $Log$
+% %% Revision 1.2  2000/12/27 16:06:15  peterg
+% %% *** empty log message ***
+% %%
 % %% Revision 1.1  1996/08/27 08:08:44  peterg
 % %% Initial revision
 % %%
 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -23,6 +26,6 @@
 
 %bond_name = [name,'_bond'];
 %name =sprintf('%s%1.0f_%s', bond_name, index, cause2name(causality));
 
 bond_name = [name,'('];
-name =sprintf('%s(%1.0f,%1.0f)', name, index, cause2num(causality));
+name =sprintf('%s(%1.0f,%1.0f)', name, abs(index), cause2num(causality));