function  total=count_common_words(word_list,text)
   total=0;
   for k=1:length(word_list)
      total=total+length(strfind(text,word_list{k}));
      total=total+length(strfind(text,char(double(word_list{k})-32)));
   end
return