19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
+
+
+
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.41 2001/04/15 21:15:41 geraint
## ## Added interface definition rep: _ICD.(txt|c|cc|m).
## ##
## ## Revision 1.40 2001/02/05 01:50:29 geraint
## ## No unit type comparison at ports if either is "none".
## ##
## ## Revision 1.40 2000/12/16 08:10:55 geraint
## ## No unit type comparison at ports if either is "none".
## ##
## ## Revision 1.39 2000/11/16 12:54:14 peterg
|
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
|
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
|
+
+
+
-
+
|
name_r = ["[" name_r];
endif;
## Save the current structure
old_structure = structure;
## Generate the simple component equations
## .. firstly replacing ; by , in argument list
subsystem_arg = strrep(subsystem.arg,";",",");
eval(["structure = ", ...
eqn_name, ...
"(name_r,bond_list,comp_bonds, ...
direction,subsystem.cr,subsystem.arg,structure,ese_file);" ]);
direction,subsystem.cr,subsystem_arg,structure,ese_file);" ]);
## If structure has changed, write info to structure file.
structure_change = structure-old_structure;
## The following line is to avoid probs with multiport C or I
## it needs changing to handle multi ports correctly
structure_changes = sum(structure_change);
|