diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-01-29 18:30:03 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-01-29 18:30:03 +0000 |
commit | 322d1b68cf0cdfabffe91f4a8da07b5633805cb2 (patch) | |
tree | 4ded2ac7ec0c9045a83696119ce2f7f6d75b5567 /lib/sbin/GridFuncStuff.pl | |
parent | f334c541a830cae5833275613fab51f630bcd825 (diff) |
Remove support for grid variables of type CCTK_CHAR
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3973 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 538dc35f..44187ab8 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -503,15 +503,7 @@ sub CreateFortranArgumentDeclarations $argument .= '_p'; } - if($type =~ /^(CHAR|BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) - { - # DEPRECATED IN BETA 10 - if($type eq 'CHAR') - { - &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code","",__LINE__,__FILE__); - } - } - else + if(! $type =~ /^(BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) { &CST_error(0,"Unknown argument type \"$type\"","",__LINE__,__FILE__); } @@ -558,15 +550,7 @@ sub CreateCArgumentDeclarations $varname .= '_p'; } - if($type =~ /^(CHAR|BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) - { - # DEPRECATED IN BETA 10 */ - if($type eq 'CHAR') - { - &CST_error(1,"CCTK_CHAR is replaced by CCTK_BYTE, please change your code","",__LINE__,__FILE__); - } - } - else + if(! $type =~ /^(BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) { &CST_error(0,"Unknown argument type $type","",__LINE__,__FILE__); } |