diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-05 15:24:32 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-05 15:24:32 +0000 |
commit | 95947ad5ac54ff3634ad12c6c3ba914f9f0bb5c6 (patch) | |
tree | 456a82e06a33adf2c744638dd895d8ef9b129546 /lib/sbin/create_fortran_stuff.pl | |
parent | a4009e04b0be3dbdcfc86630d01deb7570b98024 (diff) |
Fixed last bug in parameters!!
git-svn-id: http://svn.cactuscode.org/flesh/trunk@437 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_fortran_stuff.pl')
-rw-r--r-- | lib/sbin/create_fortran_stuff.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl index e5b7a0fe..f5a21e0a 100644 --- a/lib/sbin/create_fortran_stuff.pl +++ b/lib/sbin/create_fortran_stuff.pl @@ -46,7 +46,7 @@ sub CreateFortranThornParameterBindings if((keys %these_parameters > 0)) { $implementation = $interface_database{"\U$thorn\E IMPLEMENTS"}; - + @data = &CreateFortranCommonDeclaration("$implementation"."prot", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database); foreach $line (@data) @@ -71,6 +71,7 @@ sub CreateFortranThornParameterBindings # Parameters from friends foreach $friend (split(" ",$parameter_database{"\U$thorn\E FRIEND implementations"})) { + # Determine which thorn provides this friend implementation $interface_database{"IMPLEMENTATION \U$friend\E THORNS"} =~ m:([^ ]*):; @@ -93,8 +94,8 @@ sub CreateFortranThornParameterBindings $BindingAliasNum++; } } - - @data = &CreateFortranCommonDeclaration("$friend_thorn"."prot", 1, scalar(keys %these_parameters), %these_parameters, %alias_names, %parameter_database); + + @data = &CreateFortranCommonDeclaration("$friend"."prot", 1, scalar(keys %these_parameters), %these_parameters, %alias_names, %parameter_database); foreach $line (@data) { |