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 | |
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')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 6 | ||||
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 2 | ||||
-rw-r--r-- | lib/sbin/create_fortran_stuff.pl | 4 |
3 files changed, 6 insertions, 6 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) diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 9f95205d..a2a7085d 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -337,7 +337,7 @@ sub get_c_type_string } elsif($type eq "REAL") { - $type_string = "Double "; + $type_string = "CCTK_REAL "; } else { diff --git a/lib/sbin/create_fortran_stuff.pl b/lib/sbin/create_fortran_stuff.pl index f5a21e0a..ea4d7742 100644 --- a/lib/sbin/create_fortran_stuff.pl +++ b/lib/sbin/create_fortran_stuff.pl @@ -186,7 +186,7 @@ sub get_fortran_type_string $type eq "SENTENCE") { $type_string = "CCTK_STRING "; - } + } elsif($type eq "LOGICAL" || $type eq "INTEGER") { @@ -194,7 +194,7 @@ sub get_fortran_type_string } elsif($type eq "REAL") { - $type_string = "REAL "; + $type_string = "CCTK_REAL "; } else { |