-die "Usage: ./spell_comments.pl `find ../ -name '*.[ch]' -name '*.hpp' -name '*.cpp'`\n"
- unless length(@ARGV)>1;
+die "Usage: ". ($DICTFILE eq "./spell_dict.txt"? "./":"tools/internal/")."spell_comments.pl "
+ ."`find ". ($DICTFILE eq "./spell_dict.txt"? "../../":".")." -name '*.[ch]' -o -name '*.hpp' -o -name '*.cpp' |grep -v umpire|grep -v smpi/mpich3-test|grep -v NAS`\n"
+ unless scalar(@ARGV)>1;
+
+my $total = 0;
foreach my $file (@ARGV) {
open (FI, $file) || die "Cannot open $file: $!\n";
my $content = join ("", <FI>);
foreach my $file (@ARGV) {
open (FI, $file) || die "Cannot open $file: $!\n";
my $content = join ("", <FI>);