#!/usr/bin/perl

use strict;
use warnings;

my ($buf,$src);

foreach $src (split(/\n/,`grep -lri 'call intagm' src`))
{
   $buf = "";

   open(INP,"<$src");
   while ( <INP> )
   {
      $buf .= $_;
   }
   close(INP);

   $_ = $buf;

   if ( m/!fix for Fortran interfaces\n character\(len=30\) :: token\n/ )
   {
      s/!fix for Fortran interfaces\n character\(len=30\) :: token\n//m;
      print "Unfixing $src\n";
      open(OUT,">$src");
      print OUT $_;
      close(OUT);
   }
}
