File mtt/lib/comp/simple/Source_seqn.m artifact 7ea4860836 part of check-in 90a0ffa88f

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