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