19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.38 2000/11/16 10:00:57 peterg
## ## *** empty log message ***
## ##
## ## Revision 1.37 2000/11/12 16:45:57 peterg
## ## Close ese file before recursive call of cbg2ese -- reopen when
## ## finished.
## ## THis prevents a new file being opened for each subsystem which fails
|
>
>
>
>
>
>
|
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## 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
## ## Added checking of unit consistency at ports
## ##
## ## Revision 1.38 2000/11/16 10:00:57 peterg
## ## *** empty log message ***
## ##
## ## Revision 1.37 2000/11/12 16:45:57 peterg
## ## Close ese file before recursive call of cbg2ese -- reopen when
## ## finished.
## ## THis prevents a new file being opened for each subsystem which fails
|
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
|
## Efforts
if strcmp(this_bond_effort_unit,"null") # set
bond_effort_unit = \
[bond_effort_unit(1:port_bond_number-1,:)
effort_unit
bond_effort_unit(port_bond_number+1:n_bonds,:)
]
else # check
mtt_info(sprintf(unit_info,full_name, effort_unit, \
this_bond_effort_unit), infofilenum);
if !strcmp(this_bond_effort_unit,effort_unit)
error_string = sprintf(unit_error, full_name,\
effort_unit, \
this_bond_effort_unit);
mtt_error(error_string);
endif
endif
## Flows
if strcmp(this_bond_flow_unit,"null") # set
bond_flow_unit = \
[bond_flow_unit(1:port_bond_number-1,:)
flow_unit
bond_flow_unit(port_bond_number+1:n_bonds,:)
]
else # check
mtt_info(sprintf(unit_info,full_name, flow_unit, \
this_bond_flow_unit), infofilenum);
if !strcmp(this_bond_flow_unit,flow_unit)
error_string = sprintf(unit_error, full_name,\
flow_unit, \
this_bond_flow_unit);
mtt_error(error_string);
|
|
|
|
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
|
## Efforts
if strcmp(this_bond_effort_unit,"null") # set
bond_effort_unit = \
[bond_effort_unit(1:port_bond_number-1,:)
effort_unit
bond_effort_unit(port_bond_number+1:n_bonds,:)
]
elseif (!strcmp(this_bond_effort_unit,"none") && !strcmp(effort_unit,"none")) # check
mtt_info(sprintf(unit_info,full_name, effort_unit, \
this_bond_effort_unit), infofilenum);
if !strcmp(this_bond_effort_unit,effort_unit)
error_string = sprintf(unit_error, full_name,\
effort_unit, \
this_bond_effort_unit);
mtt_error(error_string);
endif
endif
## Flows
if strcmp(this_bond_flow_unit,"null") # set
bond_flow_unit = \
[bond_flow_unit(1:port_bond_number-1,:)
flow_unit
bond_flow_unit(port_bond_number+1:n_bonds,:)
]
elseif (!strcmp(this_bond_flow_unit,"none") && !strcmp(flow_unit,"none")) # check
mtt_info(sprintf(unit_info,full_name, flow_unit, \
this_bond_flow_unit), infofilenum);
if !strcmp(this_bond_flow_unit,flow_unit)
error_string = sprintf(unit_error, full_name,\
flow_unit, \
this_bond_flow_unit);
mtt_error(error_string);
|