Sorted out a problem with the T3E f90 compiler.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@1171 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 13 insertions, 1 deletions

diff --git a/lib/sbin/f_file_processor.pl b/lib/sbin/f_file_processor.pl
index 253ed5a9..fc50abbf 100644
--- a/lib/sbin/f_file_processor.pl
+++ b/lib/sbin/f_file_processor.pl
@@ -181,15 +181,20 @@ sub free_format_splitline
   while ($LINE =~ s/,\s*,/,/) {};
   $LINE =~ s/,\s*\)/\)/;
 
+  # Some preprocessors put extraneous spaces in 8-(
+  $LINE =~ s:\. (eq|le|lt|ge|gt|ne) \.:\.$1\.:ig;
+
   # Strip out leading spaces in favor of 3 spaces
   # $LINE =~ s/^\s+/   /;
-  if ($LINE =~ /^(.{78,78})...*/) {
+  if ($LINE =~ /^(.{78,78})...*/) 
+  {
     $OUT = $1;
     print "$OUT";
     # Check if the line already has a continuation mark.
     print "&" if (! ($OUT =~ /\&[\s]*$/));
     print "\n";
     $LINE =~ s/.{78,78}//;
+
     while ($LINE =~ /^(.{74,74}).*/) 
     {
       $OUT = $1;
@@ -208,3 +213,10 @@ sub free_format_splitline
   }
   
 }
+
+
+
+
+
+
+