Made a global variable $BindingsAliasNum to hold the number of the largest

alias used yet.  In principle we should find a way to store thsi at least with
each thorn (e.g. a hash table) so that in the extremely unlikely event the
alias stuff is called twice for the same thorn it gives the same results.
This compiles, but I haven't done soak testing on it 8-(

Also put & in front of some subroutine calls to be compatable with perl 4.

Tom


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

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl
index 5f78591e..cd44f9cb 100644
--- a/lib/sbin/create_fortran_stuff.pl
+++ b/lib/sbin/create_fortran_stuff.pl
@@ -8,6 +8,7 @@
 #  @enddesc 
 #@@*/
 
+$BindingsAliasNum = 0;
 
 sub CreateFortranThornParameterBindings
 {
@@ -88,7 +89,8 @@ sub CreateFortranThornParameterBindings
       }
       else
       {
-	$alias_names{$parameter} = "CCTKH".scalar(@alias_names);
+	$alias_names{$parameter} = "CCTKH".$BindingAliasNum;
+	$BindingAliasNum++;
       }
     }
      
@@ -136,7 +138,7 @@ sub CreateFortranCommonDeclaration
 
   $sepchar = "";
 
-  foreach $parameter (order_params(scalar(keys %parameters), %parameters,%parameter_database))
+  foreach $parameter (&order_params(scalar(keys %parameters), %parameters,%parameter_database))
   {
     $type = $parameter_database{"\U$parameters{$parameter} $parameter\E type"};