177a178,182

>   elsif( $type eq "LOGICAL")
>   {
>     $line = "    retval = CCTK_SetLogical(\&($structure.$parameter), value);" ;
>
>   }


Added logical type


git-svn-id: http://svn.cactuscode.org/flesh/trunk@137 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 6 insertions, 1 deletions

diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl
index 36178f14..9256463a 100644
--- a/lib/sbin/create_c_stuff.pl
+++ b/lib/sbin/create_c_stuff.pl
@@ -175,6 +175,11 @@ sub set_parameter_code
   {
     $line = "    retval = CCTK_SetString(\&($structure.$parameter),value);" ;
   }
+  elsif( $type eq "LOGICAL")
+  {
+    $line = "    retval = CCTK_SetLogical(\&($structure.$parameter), value);" ;
+
+  }
   else
   {
     print "Unknown parameter type $type\n";
@@ -331,7 +336,7 @@ sub CreateCStructureParameterHeader
   foreach $parameter (keys %parameters)
   {
     $type = $parameter_database{"\U$parameters{$parameter} $parameter\E type"};
-      
+
     $type_string = &get_c_type_string($type);
 
     $line = "  ".$type_string ." " .$parameter . ";";