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; endendif res == 0 disp(sprintf('### function name %s not in list of valid functions.', block));end