diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-13 18:07:49 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-13 18:07:49 +0000 |
| commit | 4a909d77bb17007cfdd69ad7b991cbbd85555d9f (patch) | |
| tree | 744767ab6d9fa891f33b8c78fa2e9c8df88321fe /lib/sbin/GridFuncStuff.pl | |
| parent | 456924d5fd062dcc075121903fa0edf604cfc73d (diff) | |
Introduce the new Cactus variable type CCTK_INT1.
Extend routines to handle the new type.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3431 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 6a1b387b..e83985ad 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -478,7 +478,7 @@ sub CreateFortranArgumentDeclarations $argument .= '_p'; } - if($type =~ /^(CHAR|BYTE|INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) + 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') @@ -533,7 +533,7 @@ sub CreateCArgumentDeclarations $varname .= '_p'; } - if($type =~ /^(CHAR|BYTE|INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) + 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') @@ -747,7 +747,7 @@ sub CreateCArgumentPrototype push(@prototype, "CCTK_$type *"); } - if($type !~ /^(CHAR|BYTE|INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) + if($type !~ /^(CHAR|BYTE|INT|INT1|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) { &CST_error(0,"Unknown argument type $type","",__LINE__,__FILE__); } @@ -804,7 +804,7 @@ sub CreateCArgumentList push(@arglist, "PASS_REFERENCE($argument, $level)"); } - if($type =~ /^(CHAR|BYTE|INT|INT2|INT4|INT8|REAL|REAL4|REAL8|REAL16|COMPLEX|COMPLEX8|COMPLEX16|COMPLEX32)$/) + 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') |