diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-13 16:07:04 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-13 16:07:04 +0000 |
commit | 574be623649e2ae454a15de81fd74534932f21c3 (patch) | |
tree | aa6d41aa1271ff004d7af26d6d200c298ccb96d3 /lib/sbin/create_fortran_stuff.pl | |
parent | 25aa5df5e3622aa7f577e17635a1d6b6e5787169 (diff) |
Changed names of common blocks since the dec compiler won't let them
be longer than 31 characters .... this gives a maximum length thorn name
of 27 characters at the moment.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@247 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_fortran_stuff.pl')
-rw-r--r-- | lib/sbin/create_fortran_stuff.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl index 40af7c78..d19c0e3a 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"."_prptected", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database); + @data = &CreateFortranCommonDeclaration("cctk_params_$implementation"."_protected", 0, scalar(keys %these_parameters), %these_parameters, %parameter_database); foreach $line (@data) { @@ -59,7 +59,7 @@ sub CreateFortranThornParameterBindings if((keys %these_parameters > 0)) { - @data = &CreateFortranCommonDeclaration("cctk_params_$thorn"."_private", 0,scalar(keys %these_parameters), %these_parameters, %parameter_database); + @data = &CreateFortranCommonDeclaration("$thorn"."priv", 0,scalar(keys %these_parameters), %these_parameters, %parameter_database); foreach $line (@data) { @@ -90,7 +90,7 @@ sub CreateFortranThornParameterBindings } } - @data = &CreateFortranCommonDeclaration("cctk_params_$friend_thorn"."_protected", 1, scalar(keys %these_parameters), %these_parameters, @alias_names, %parameter_database); + @data = &CreateFortranCommonDeclaration("$friend_thorn"."prot", 1, scalar(keys %these_parameters), %these_parameters, @alias_names, %parameter_database); foreach $line (@data) { |