Index: mttroot/mtt/bin/trans/rbg2abg_m
==================================================================
--- mttroot/mtt/bin/trans/rbg2abg_m
+++ mttroot/mtt/bin/trans/rbg2abg_m
@@ -9,10 +9,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.6  1996/12/04 21:52:01  peterg
+## Uses filenum and fopen instead of filename.
+##
 ## Revision 1.5  1996/08/25 09:20:32  peter
 ## General error handling.
 ##
 ## Revision 1.4  1996/08/24 17:57:41  peter
 ## Removed `touch mtt_info.txt'
@@ -79,21 +82,24 @@
 #Inform user
 echo Creating $1_abg.m
 
 # Use matrix manipulation to accomplish the transformation
 $MATRIX > rbg2abg_m.log  2>mtt_error.txt << EOF
+  name = '$1'
   infofile = 'mtt_info.txt';
   %Convert from the fig version of the bonds to a structured version
-  [rbonds,rstrokes,rcomponents,rports,n_ports] = $1_rbg;
-  [bonds,components] = rbg2abg(rbonds,rstrokes,rcomponents,rports,infofile);
+  [rbonds,rstrokes,rcomponents,port_coord,port_name,port_list] = $1_rbg;
+  [n_ports, junk] = size(port_list);
+ 
+  [bonds,components] = rbg2abg(name,rbonds,rstrokes,rcomponents,port_coord,port_name,infofile);
 
   %Write the function m-file for the causal bond graph
   filename = '$1_abg.m';
   filenum = fopen(filename,'w');
   c = '%';
   fprintf(filenum, 'function [bonds,components,n_ports] = $1_abg\n');
-  fprintf(filenum, '%s [bonds,components] = $1_abg\n', c);
+  fprintf(filenum, '%s [bonds,components,n_ports] = $1_abg\n', c);
   fprintf(filenum, '%s Acausal bond graph created by MTT on %s\n\n', ...
                      c, date);
   mat2mfile(bonds, 'bonds', filenum);
   mat2mfile(components, 'components', filenum);
   fprintf(filenum, 'n_ports = %1.0f;\n', n_ports);