diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-25 08:58:45 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-25 08:58:45 +0000 |
commit | c9236da440f05cd7654a70d6ba5a337e0ebc263c (patch) | |
tree | d9ef17e19c30a848d6d5b6afe386c2a3a3301e3e /lib/sbin | |
parent | 32feb00c654ceff81a75872189ba0ab0da8ed507 (diff) |
Support for CCTK_BYTE
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2069 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 28 |
1 files changed, 25 insertions, 3 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 7e330f8f..d8f77cdd 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -345,8 +345,15 @@ sub CreateFortranArgumentDeclarations $suffix .= "_p"; } - if($1 eq CHAR) + if($1 eq BYTE) { + push(@declarations, "CCTK_BYTE $argument$suffix$2"); + } + elsif($1 eq CHAR) + { + # DEPRECATED IN BETA 10 + $message = "CCTK_CHAR is replaced by CCTK_BYTE, please change your coe"; + &CST_error(1,$message,__LINE__,__FILE__); push(@declarations, "CCTK_CHAR $argument$suffix$2"); } elsif ($1 eq REAL) @@ -454,8 +461,15 @@ sub CreateCArgumentDeclarations } $levelmone=$level-1; - if($1 eq "CHAR") + if($1 eq "BYTE") + { + push(@declarations, "CCTK_BYTE *$argument$suffix=(CCTK_BYTE *)(cctkGH->data[CCTK_VarIndex(\"$3::$argument\")][$levelmone]);"); + } + elsif($1 eq "CHAR") { + # DEPRECATED IN BETA 10 */ + $message = "CCTK_CHAR is replaced by CCTK_BYTE, please change your coe"; + &CST_error(1,$message,__LINE__,__FILE__); push(@declarations, "CCTK_CHAR *$argument$suffix=(CCTK_CHAR *)(cctkGH->data[CCTK_VarIndex(\"$3::$argument\")][$levelmone]);"); } elsif ($1 eq REAL) @@ -899,8 +913,16 @@ sub CreateCArgumentList for($level = $ntimelevels; $level > 0; $level--) { - if($1 eq "CHAR") + if($1 eq "BYTE") + { + $arglist .= "$sep"."(CCTK_BYTE *)(CCTKARGNUM_$argument<0 ? NULL : (xGH)->data[CCTKARGNUM_$argument][$level-1])"; + $sep = ","; + } + elsif($1 eq "CHAR") { + # DEPRECATED IN BETA 10 + $message = "CCTK_CHAR is replaced by CCTK_BYTE, please change your coe"; + &CST_error(1,$message,__LINE__,__FILE__); $arglist .= "$sep"."(CCTK_CHAR *)(CCTKARGNUM_$argument<0 ? NULL : (xGH)->data[CCTKARGNUM_$argument][$level-1])"; $sep = ","; } |