diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-05 18:56:20 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-05 18:56:20 +0000 |
commit | de131d94890e17f528f14869b62bc46329ed538f (patch) | |
tree | 3823a834586605811a3b0bf7c3b952e9341380e7 /lib/sbin/GridFuncStuff.pl | |
parent | 3d9aeef43457bf52db46b3eec1eeb5c1f63e4cfd (diff) |
Cast the Fortran CCTK_ARGUMENTS list elements from void* to the
correct type. This is necessary to call Fortran routines from C++.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3900 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index c21f7c3f..d1eedf65 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -765,7 +765,7 @@ sub CreateCArgumentList for($level = 0; $level < $ntimelevels; $level++) { - push(@arglist, "PASS_REFERENCE($argument, $level)"); + push(@arglist, "(CCTK_$type *)(PASS_REFERENCE($argument, $level))"); } if($type =~ /^(CHAR|BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) |