When calling C routines from Fortran, CCTK_POINTER* arguments should

be passed by value, without being dereferenced.  We will be interested
in the value of the pointer itself, not in the value of what it points
to.


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

1 files changed, 6 insertions, 2 deletions

diff --git a/lib/sbin/CreateFunctionBindings.pl b/lib/sbin/CreateFunctionBindings.pl
index 597f60cd..f1e4117e 100644
--- a/lib/sbin/CreateFunctionBindings.pl
+++ b/lib/sbin/CreateFunctionBindings.pl
@@ -2215,10 +2215,15 @@ sub printCallingSequence
       my $CallArgName=&printCallArg($providetype,$calltype,$Arg);
       push(@data,$CallArgName);
     }
+
+
+
+
     if ($i < $#ArgList)
     {
       push(@data,",");
     }
+
   }
 
   return @data;
@@ -2261,7 +2266,7 @@ sub printCallArg
   {
     $prefix = "";
   }
-  elsif ( ($calltype eq "Fortran")&&( !(($Arg{"Is Array"})||($Arg{"String"})||($Arg{"Intent"}=~/OUT/)) ) )
+  elsif ( ($calltype eq "Fortran")&&( !(($Arg{"Is Array"})||($Arg{"String"})||($Arg{"Intent"}=~/OUT/)||($Arg{"Type"} =~ /CCTK_POINTER/)) ) )
   {
     $prefix = "*";
   }
@@ -2269,7 +2274,6 @@ sub printCallArg
   {
     $prefix = "&";
   }
-
   $data=$prefix.$varname;
 
 #  print "$varname $providetype $calltype $Arg{\"Is Array\"} $data\n";