diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-02 23:32:51 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-04-02 23:32:51 +0000 |
commit | 76434b7d126c7adfe43151a2cae8680f0433b29a (patch) | |
tree | 104e2e1135b4e5d8358e58fb3a4c861f81191db4 /lib/sbin/create_fortran_stuff.pl | |
parent | 8313c457087302df0eaeea8ab935f9535b8e68e1 (diff) |
Fix (hopefully) for problem with parameters having different orders
in common blocks and structures. Tom, have a check of this, I've
added a sort on the parameter keys before they are used but I might
have gone overboard.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@430 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 cd44f9cb..e5b7a0fe 100644 --- a/lib/sbin/create_fortran_stuff.pl +++ b/lib/sbin/create_fortran_stuff.pl @@ -80,7 +80,7 @@ sub CreateFortranThornParameterBindings %alias_names = (); - foreach $parameter (keys %these_parameters) + foreach $parameter (sort(keys %these_parameters)) { # Alias the parameter unless it is one we want. if(($parameter_database{"\U$thorn FRIEND $friend\E variables"} =~ m:( )*$parameter( )*:) && (length($1) > 0)||length($2)>0||$1 eq $parameter_database{"\U$thorn FRIEND $friend\E variables"}) |