function res = isValidBlock(block)

% ISVALIDBLOCK checks a block is in the valid block list.
% 
% usage: res = isValidBlock(block)
% 
% M Hewitson 29-03-07
% 
% $Id: isValidBlock.m,v 1.1 2007/03/30 08:24:36 hewitson Exp $
% 

res = 0;
block_list = sltpda_valid_block_list();

disp(sprintf('     + checking %s against list', block));
for b = block_list
  if strcmp(b, block)
    res = 1;
  end
end

if res == 0
  disp(sprintf('### function name %s not in list of valid functions.', block));
end