diff options
-rw-r--r-- | lib/sbin/c_file_processor.pl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/lib/sbin/c_file_processor.pl b/lib/sbin/c_file_processor.pl index c500eba1..da94fe1c 100644 --- a/lib/sbin/c_file_processor.pl +++ b/lib/sbin/c_file_processor.pl @@ -140,19 +140,6 @@ sub fixfnames { $fline =~ s:CCTK_FNAME\s*\(([^\)]*)\):$new:; } - # DEPRECATED IN BETA 9 - while($fline =~ m:FORTRAN_NAME\s*\(([^\)]*)\):) - { - $arglist = $1; - $arglist =~ s:[\s\n\t]+::g; - - @args = split(",", $arglist ); - - $new = &fortran_name($args[$#args]); - - $fline =~ s:FORTRAN_NAME\s*\(([^\)]*)\):$new:; - } - # END DEPRECATED IN BETA 9 while($fline =~ m:CCTK_FORTRAN_COMMON_NAME\s*\(([^\)]*)\):) { $arglist = $1; |