Index: mttroot/mtt/lib/comp/simple/SS_eqn.m ================================================================== --- mttroot/mtt/lib/comp/simple/SS_eqn.m +++ mttroot/mtt/lib/comp/simple/SS_eqn.m @@ -26,10 +26,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.18 1998/07/08 11:30:45 peterg +% %% Removed second (fileID) argument from mtt_info +% %% % %% Revision 1.17 1998/07/04 07:15:44 peterg % %% Back under RCS % %% % %% Revision 1.16 1998/04/11 19:07:16 peterg % %% Now do named ports as ordinary ports iff at top level. @@ -99,11 +102,11 @@ if (strcmp(cr,"SS")) # Then its the standard file a = split(args,","); [N,M]=size(a); if (N~=2) # Must have 2 arguments - mtt_info(sprintf("SS should have 2 args not %i", N)); + mtt_error(sprintf("SS should have 2 args not %i", N)); else effort_attribute = a(1,:); flow_attribute = a(2,:); end; else # Old style file @@ -200,11 +203,11 @@ if strcmp(effort_attribute, 'zero') %Zero output zero_outputs = zero_outputs + 1; fprintf(filenum, 'MTTyz%d := %s;\n', ... zero_outputs, varname(name, bond_number,1)); else - mtt_info([effort_attribute, ' not appropriate for an output ']); + mtt_error([effort_attribute, ' not appropriate for an output ']); end; end; end; % Flow @@ -231,14 +234,14 @@ if strcmp(flow_attribute, 'zero') %Zero output zero_outputs = zero_outputs + 1; fprintf(filenum, 'MTTyz%d := %s;\n', ... zero_outputs, varname(name, bond_number,-1)); else - mtt_info([flow_attribute, ' not appropriate for an output ']); + mtt_error([flow_attribute, ' not appropriate for an output ']); end; end; end; structure(3) = inputs; structure(4) = outputs; structure(5) = zero_outputs; structure(6) = unknown_inputs;