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.32 1998/11/16 13:01:19 peterg
## ## Fixed problem with repetitions>1 due to new data structures -- now
## ## computes initial next_bond correctly
## ##
## ## Revision 1.31 1998/09/24 12:57:44 peterg
## ## Now ignores aliasing if no arguments given.
## ##
|
>
>
>
|
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.33 2000/09/01 08:05:32 peterg
## ## Reformatted with out changing function
## ##
## ## Revision 1.32 1998/11/16 13:01:19 peterg
## ## Fixed problem with repetitions>1 due to new data structures -- now
## ## computes initial next_bond correctly
## ##
## ## Revision 1.31 1998/09/24 12:57:44 peterg
## ## Now ignores aliasing if no arguments given.
## ##
|
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
|
fprintf(structure_file, ...
"%s\t%1.0f\t%s\t%s\t%1.0f\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name, repetition);
endfor;
endfor;
endif;
end;
end;
|
<
|
|
|
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
|
fprintf(structure_file, ...
"%s\t%1.0f\t%s\t%s\t%1.0f\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name, repetition);
endfor;
endfor;
endif;
endif
endfor
endfor # [subsystem,comp_name] = CBG_field
endif # struct_contains(CBG,field)
endfor # i=1:2
## Close the files
fclose(ese_file);
endfunction
|