#!/usr/bin/perl 
  $SS=@ARGV[0];
  @FNAMES=<src/*.f src/ness/*.f src/exci/*.f exci/*.f include/*.inc src/*.inc src/ness/*.inc >;
  shift @ARGV;
  if (@ARGV < 1) {@ARGVAL=@FNAMES; } else { @ARGVAL=@ARGV};
  print  "search for $SS \n";
  foreach $infile (@ARGVAL) {
     open (INFILE,$infile) || die "could not open input file $infile";
    $lino = 0;  
    $linf=$lino;  
    while (<INFILE>) { 
       $lino = $lino + 1;
       $LINE=$_;
       if ( ! m/^[Cc*!](.*)/ ) {  # ignore comments
         $_=$LINE;
	 
# replace tabelators         
         if (! s/^\t/      / )        {
         if (! s/^(.{1})\t/$1     /) {
         if (! s/^(.{2})\t/$1    /) {
         if (! s/^(.{3})\t/$1   /) {
         if (! s/^(.{4})\t/$1  /) {
         if (! s/^(.{5})\t/$1 /) {}}}}}}
         s/\t/   /g; # in columns 7pp: TAB replaced by three blanks
         
	 $_ = substr $_,5;
	 s/./ /;
	 if ( m/()([ ,.()+\*\/\-='])$SS([ ,.()+\*\/\-='\n])/i ) {
#           print  "$infile  $lino  $1$SS$2 \n";
           print  "$infile  $lino  $LINE";
	   $linf=$lino;
         }
       } 
    }
    close INFILE;
    if ($linf != 0) {
       print " \n";
    }
  }
#  ( m/^([A-Za-z]\w*)(.*)/ ) {
 #}
 exit;
