Artifact 9dbc2e279500550aa73e74ccfde9e5f6f83b23d236ab0de4bf844f2cf5f8a0ab:

• File mtt/bin/trans/m/mtt_check_sigs.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 523) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/bin/trans/m/mtt_check_sigs.m — part of check-in [b336359438] at 2004-03-15 11:45:13 on branch origin/master — Changed obsolete <> to != (user: gawthrop@users.sourceforge.net, size: 523) [annotate] [blame] [check-ins using]

function N = mtt_check_sigs (outsig,insigs)

  ## usage:  N = mtt_check_sigs (outsig,insigs)
  ##
  ## 

  ##  A signal has the columns: bond number signal causality (+1 or -1)
  ##  and component port number

  M=3;

  ## Sanity check
  [N_out,M_out] = size(outsig);
  if N_out!=1
    error("There must be exactly one outbond");
  endif
  [N_in,M_in] = size(insigs);
  if (M_out!=M)||(M_in!=M)
    error(sprintf("There must be exactly %i elements to a bond (number, causality, port)",M));
  endif

  N = N_in;

endfunction