Changed COMMON block names

CHANGED PERL CODE DEALING WITH PARAMETER LISTS CREATED BY THE
EXTENDS FLAG IN PARAM.CCL ... THE PARAMETER LISTS IT WAS GIVING
HAD VARIABLES WITH THE WRONG TYPES ... THIS ISN'T A FIX SINCE
I DON'T UNDERSTAND WHAT IS GOING ON BUT THIS SEEMS TO WORK FOR
WHAT I HAVE NOW.



Gab.


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

1 files changed, 7 insertions, 3 deletions

diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl
index a0e32a48..539f0ecd 100644
--- a/lib/sbin/create_fortran_stuff.pl
+++ b/lib/sbin/create_fortran_stuff.pl
@@ -46,7 +46,7 @@ sub CreateFortranThornParameterBindings
   {
     $implementation = $interface_database{"\U$thorn\E IMPLEMENTS"};
 
-    @data = &CreateFortranCommonDeclaration("cctk_params_$implementation"."_protected", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database);
+    @data = &CreateFortranCommonDeclaration("$implementation"."prot", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database);
 
     foreach $line (@data)
     {
@@ -90,6 +90,8 @@ sub CreateFortranThornParameterBindings
       }
     }
      
+    printf("friend_thorn = $friend_thorn\n");
+    printf("@alias_names = @alias_names\n");
     @data = &CreateFortranCommonDeclaration("$friend_thorn"."prot", 1, scalar(keys %these_parameters), %these_parameters, @alias_names, %parameter_database);
       
     foreach $line (@data)
@@ -147,7 +149,8 @@ sub CreateFortranCommonDeclaration
     }
     else
     {
-      $line = "$type_string $alias_names[$n]";
+      $line = "$type_string $parameter";
+     # $line = "$type_string $alias_names[$n]";
     }
 
     push(@data, $line);
@@ -158,7 +161,8 @@ sub CreateFortranCommonDeclaration
     }
     else
     {
-      $definition .= "$sepchar$alias_names[$n]";
+      #$definition .= "$sepchar$alias_names[$n]";
+      $definition .= "$sepchar$parameter";
     }