diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-15 09:03:57 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-15 09:03:57 +0000 |
commit | 8970cf2d062b5650cd2ae764ded94769d8d027a7 (patch) | |
tree | a73838e0935bca6e4799a561241e4dfc6ba12e29 /lib/sbin/GridFuncStuff.pl | |
parent | 73c042453a8491a59c1e44965ec2a62440db04b8 (diff) |
Double -> CCTK_REAL
REAL -> CCTK_REAL
POINTER -> CCTK_POINTER
VARIABLE_REAL -> CCTK_VARIABLE_REAL (etc)
GH->iteration is now an int (not an unsigned long int)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@551 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 86b52f0d..503358f9 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -316,7 +316,7 @@ sub CreateFortranArgumentDeclarations } elsif ($1 eq REAL) { - push(@declarations, "REAL $argument$suffix$2"); + push(@declarations, "CCTK_REAL $argument$suffix$2"); } elsif ($1 eq COMPLEX) { @@ -538,7 +538,7 @@ sub CreateCArgumentPrototype } elsif ($1 eq REAL) { - $prototype .="$sep". "Double *"; + $prototype .="$sep". "CCTK_REAL *"; $sep = ","; } elsif ($1 eq COMPLEX) @@ -621,7 +621,7 @@ sub CreateCArgumentList } elsif ($1 eq REAL) { - $arglist .= "$sep"."(Double *)((xGH)->data[CCTKARGNUM_$argument][$level-1])"; + $arglist .= "$sep"."(CCTK_REAL *)((xGH)->data[CCTKARGNUM_$argument][$level-1])"; $sep = ","; } elsif ($1 eq COMPLEX) |