Final changes to get parameters working from Fortran.

The config_parser creates a file #defining the c parameter structure names
as the appropriate Fortran ones - this header file is processed through the
c_file processor to translate the names.

Tom


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

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/sbin/c_file_processor.pl b/lib/sbin/c_file_processor.pl
index c94b0db3..93fd22f9 100644
--- a/lib/sbin/c_file_processor.pl
+++ b/lib/sbin/c_file_processor.pl
@@ -25,7 +25,7 @@ $*=1;
 while(<>)
 {
     $line = $_;
-    if($line =~ m:FORTRAN_NAME\s*\(([^\)]*)\):)
+    while($line =~ m:FORTRAN_NAME\s*\(([^\)]*)\):)
     {
         $arglist = $1;
         $arglist =~ s:[\s\n\t]+::g;
@@ -36,7 +36,7 @@ while(<>)
 
 	$line =~ s:FORTRAN_NAME\s*\(([^\)]*)\):$new:;
     }
-    if($line =~ m:FORTRAN_COMMON_NAME\s*\(([^\)]*)\):)
+    while($line =~ m:FORTRAN_COMMON_NAME\s*\(([^\)]*)\):)
     {
         $arglist = $1;
         $arglist =~ s:[\s\n\t]+::g;