Index: mttroot/mtt/bin/trans/rbg2abg_m
==================================================================
--- mttroot/mtt/bin/trans/rbg2abg_m
+++ mttroot/mtt/bin/trans/rbg2abg_m
@@ -9,10 +9,14 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.13  2000/03/16 12:53:26  peterg
+## Added copy of the %VAR declarations
+## Put in the endfunction statement
+##
 ## Revision 1.12  1998/07/28 19:07:48  peterg
 ## Writes out N_ports as well as n_ports
 ##
 ## Revision 1.11  1998/07/25 16:14:44  peterg
 ## *** empty log message ***
@@ -125,11 +129,12 @@
   for i=1:n_ports		# Count the true number of ports.
     [subport,n_sub] = split_port(port_list(i,:), ',');
     N_ports = N_ports+n_sub;
   end;
  
-
+ 
+  rbonds = rbonds(:,1:6);  # Strip  the directional information
   [bonds,components,n_vector_bonds] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name,\
                                infofile,errorfile);
 
   %Write the function m-file for the causal bond graph
   write_abg(name,bonds,components,n_vector_bonds);