diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-26 12:50:06 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-26 12:50:06 +0000 |
commit | b0208925a5ff9e861d75df8acea210460be391e6 (patch) | |
tree | 528fffd82b5a2075bc474a6c7e9f7420aafe21f7 /lib/sbin/create_fortran_stuff.pl | |
parent | d67b0f2ce3f7313eeff7d56116ee4fb0d2912d67 (diff) |
Fixed a minor bug - too much cut-and-paste can be dangerous for your code 8-)
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@119 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_fortran_stuff.pl')
-rw-r--r-- | lib/sbin/create_fortran_stuff.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl index f4c28041..7bde5fff 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"."_public", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database); + @data = &CreateFortranCommonDeclaration("cctk_params_$implementation"."_prptected", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database); foreach $line (@data) { |