15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
+
+
+
+
|
# [bonds,status] = abg2cbg(system_name, system_type, full_name, port_bonds, infofile)
# ###############################################################
# ## Version control history
# ###############################################################
# ## $Id$
# ## $Log$
# ## Revision 1.40 1998/09/02 11:47:09 peterg
# ## Now uses explicit ordered list of ports instead of port.index.
# ## Note that subsystems are still treated in arbitrary order.
# ##
# ## Revision 1.39 1998/08/25 20:06:16 peterg
# ## Writes flipped port info
# ##
# ## Revision 1.38 1998/08/25 09:15:28 peterg
# ## Fixed couple of problems with using two copies of the one data
# ## stucture:
# ##
|
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
|
-
+
+
+
+
|
# If not at top level, then copy the port bonds.
if !at_top_level # Find number of port bonds
for j=1:n_ports
jj = port_bond_index(j); # The index of the bond
for k = 1:2
if ABG.bonds(jj,k)==0 # only copy if not already set
# if ABG.bonds(jj,k)==0 # only copy if not already set
# ABG.bonds(jj,k) = port_bonds(j,k);
# endif
if port_bonds(j,k)!=0 # only copy if port bonds are set
ABG.bonds(jj,k) = port_bonds(j,k);
endif
endfor
endfor
else
n_port_bonds=0;
endif
|