Artifact de06b8124d54e17ae0b1a8eb6689ff09d989dff17580bccde11b6177ec854317:

• File mttroot/mtt/lib/comp/simple/Source_seqn.m — part of check-in [74b9225cb0] at 2003-03-13 14:56:45 on branch origin/master — Equation generatation for sorted equations (user: gawthrop@users.sourceforge.net, size: 379) [annotate] [blame] [check-ins using] [more...]

function RHS = Source_seqn (attribute,name)

  ## usage:  RHS = Source_seqn (attribute,name)
  ##
  ## Write the RHS of a source equation
  
  if strcmp(attribute,"external")
    RHS = sprintf("MTTu_%s",name);
   elseif strcmp(attribute,"internal")
     error(sprintf("attribute ""internal"" not appropriate for a \
 	source"));
  else
    RHS = attribute;
  endif
  
endfunction