//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
//
// <-- ENGLISH IMPOSED -->
// <-- JVM NOT MANDATORY -->
global SCI2CHOME;
scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogNot.sci", TMPDIR);
 
 -----------------------------------   
 
 --- Executing your SCILAB code. ---   
 
 -----------------------------------   
 
  F  
 
  T  
 
  F  
 
  T  
 
  T  
 
  T  
 
  F  
 
  F  
 
  F  
 
  F F F  
  T F F  
  F T F  
 
  T F F  
  T F F  
  T F F  
 
 ------------------------------------------   
 
 --- End Execution of your SCILAB code. ---   
 
 ------------------------------------------   
 
          ==> SCI2C hArtes/POLIBA Tool!!!   
 
 Removing directory: TMPDIR/SCI2CTmpResultsReports   
 
 Removing directory: TMPDIR   
 
          ==> Initialize SCI2C and USER2C Libraries.   
 
          ==> Load SCI2C and USER2C Libraries.   
 
          ==> Start translation of function "test_OpLogNot"   
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab.
 
          ==> Generate the AST.   
 
          ==> Generate C code in TMPDIR/main.c   
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: // test OpLogNot   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(-2))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(0))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(3))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(0-2*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(0+0*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(0+3*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(3-5*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(3+0*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(3+6*%i))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   a=[-1 2 3; 0 -1 4; 2 -0 5];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(a))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0 
      *%i]                                                              
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(~(b))   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: endfunction   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
          ==> Copying sources   
 
          ==> Copying headers   
 
          ==> Copying interfaces   
 
          ==> Generating Builder TMPDIR/Makefile   
 
          ==> Translation Successfully Completed!!!   
fd = mopen(TMPDIR+"/main.c");
mgetl(fd)
 ans  =
 
!/*                                                                    !
!                                                                      !
!** ************************************************                   !
!                                                                      !
!** This file has been generated using                                 !
!                                                                      !
!**      Scilab2C (Version 2.0)                                        !
!                                                                      !
!**                                                                    !
!                                                                      !
!** Please visit following links for more informations:                !
!                                                                      !
!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c           !
!                                                                      !
!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/      !
!                                                                      !
!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/         !
!                                                                      !
!** ************************************************                   !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------                                                  !
!                                                                      !
!** --- Includes. ---                                                  !
!                                                                      !
!** -----------------                                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!#include "main.h"                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------                                              !
!                                                                      !
!** --- End Includes. ---                                              !
!                                                                      !
!** ---------------------                                              !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -------------------------------------                              !
!                                                                      !
!** --- Global Variables Declaration. ---                              !
!                                                                      !
!** -------------------------------------                              !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------------------                          !
!                                                                      !
!** --- End Global Variables Declaration. ---                          !
!                                                                      !
!** -----------------------------------------                          !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!  SCI2C: function test_OpLogNot()                                     !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!*/                                                                    !
!                                                                      !
!int main()                                                            !
!                                                                      !
!{                                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!** --- Variable Declaration. ---                                      !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp1;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans1;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp2;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans2;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp3;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans3;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp4;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp5;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp6;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans4;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp7;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp8;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp9;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans5;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp10;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp11;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp12;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans6;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp13;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp14;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp15;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans7;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp16;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp17;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp18;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans8;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp19;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp20;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp21;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans9;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp22[1 * 2];                                            !
!                                                                      !
!   int ____temp22Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp23[1 * 3];                                            !
!                                                                      !
!   int ____temp23Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp24[1 * 2];                                            !
!                                                                      !
!   int ____temp24Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp25[1 * 3];                                            !
!                                                                      !
!   int ____temp25Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp26[2 * 3];                                            !
!                                                                      !
!   int ____temp26Size[2] = {2, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp27[1 * 2];                                            !
!                                                                      !
!   int ____temp27Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp28[1 * 3];                                            !
!                                                                      !
!   int ____temp28Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double a[3 * 3];                                                   !
!                                                                      !
!   int __aSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp29[3 * 3];                                            !
!                                                                      !
!   int ____temp29Size[2] = {3, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans10;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp30;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp31;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp32;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp33[1 * 2];                                     !
!                                                                      !
!   int ____temp33Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp34[1 * 3];                                     !
!                                                                      !
!   int ____temp34Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp35;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp36;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp37;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp38;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp39[1 * 2];                                     !
!                                                                      !
!   int ____temp39Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp40;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp41[1 * 3];                                     !
!                                                                      !
!   int ____temp41Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp42[2 * 3];                                     !
!                                                                      !
!   int ____temp42Size[2] = {2, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp43;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp44;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp45;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp46;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp47[1 * 2];                                     !
!                                                                      !
!   int ____temp47Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp48;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp49;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp50[1 * 3];                                     !
!                                                                      !
!   int ____temp50Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex b[3 * 3];                                            !
!                                                                      !
!   int __bSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp51[3 * 3];                                     !
!                                                                      !
!   int ____temp51Size[2] = {3, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans11;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!** --- End Variable Declaration. ---                                  !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!** --- C code. ---                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: // test OpLogNot                                          !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(-2))                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp1 = d0OpLogNotd0(-2);                                        !
!                                                                      !
!   ans1 = d0dispd0(__temp1);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(0))                                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp2 = d0OpLogNotd0(0);                                         !
!                                                                      !
!   ans2 = d0dispd0(__temp2);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(3))                                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp3 = d0OpLogNotd0(3);                                         !
!                                                                      !
!   ans3 = d0dispd0(__temp3);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(0-2*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1));                      !
!                                                                      !
!   __temp5 = d0z0OpMinusz0(0,__temp4);                                !
!                                                                      !
!   __temp6 = z0OpLogNotz0(__temp5);                                   !
!                                                                      !
!   ans4 = z0dispd0(__temp6);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(0+0*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp7 = d0z0OpStarz0(0,DoubleComplex(0,1));                      !
!                                                                      !
!   __temp8 = d0z0OpPlusz0(0,__temp7);                                 !
!                                                                      !
!   __temp9 = z0OpLogNotz0(__temp8);                                   !
!                                                                      !
!   ans5 = z0dispd0(__temp9);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(0+3*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp10 = d0z0OpStarz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp11 = d0z0OpPlusz0(0,__temp10);                               !
!                                                                      !
!   __temp12 = z0OpLogNotz0(__temp11);                                 !
!                                                                      !
!   ans6 = z0dispd0(__temp12);                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(3-5*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp13 = d0z0OpStarz0(5,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp14 = d0z0OpMinusz0(3,__temp13);                              !
!                                                                      !
!   __temp15 = z0OpLogNotz0(__temp14);                                 !
!                                                                      !
!   ans7 = z0dispd0(__temp15);                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(3+0*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp16 = d0z0OpStarz0(0,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp17 = d0z0OpPlusz0(3,__temp16);                               !
!                                                                      !
!   __temp18 = z0OpLogNotz0(__temp17);                                 !
!                                                                      !
!   ans8 = z0dispd0(__temp18);                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(3+6*%i))                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp19 = d0z0OpStarz0(6,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp20 = d0z0OpPlusz0(3,__temp19);                               !
!                                                                      !
!   __temp21 = z0OpLogNotz0(__temp20);                                 !
!                                                                      !
!   ans9 = z0dispd0(__temp21);                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   a=[-1 2 3; 0 -1 4; 2 -0 5];                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(-1,2,__temp22);                                         !
!                                                                      !
!   d2d0OpRcd2(__temp22,  ____temp22Size,3,__temp23);                  !
!                                                                      !
!   d0d0OpRcd2(0,-1,__temp24);                                         !
!                                                                      !
!   d2d0OpRcd2(__temp24,  ____temp24Size,4,__temp25);                  !
!                                                                      !
!   d2d2OpCcd2(__temp23,  ____temp23Size,__temp25,  ____temp25Size,__te!
!     mp26);                                                           !
!                                                                      !
!   d0d0OpRcd2(2,-0,__temp27);                                         !
!                                                                      !
!   d2d0OpRcd2(__temp27,  ____temp27Size,5,__temp28);                  !
!                                                                      !
!   d2d2OpCcd2(__temp26,  ____temp26Size,__temp28,  ____temp28Size,a); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(a))                                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2OpLogNotd2(a,  __aSize,__temp29);                                !
!                                                                      !
!   ans10 = d2dispd0(__temp29,  ____temp29Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0!
!     *%i]                                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp30 = d0z0OpStarz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp31 = d0z0OpPlusz0(0,__temp30);                               !
!                                                                      !
!   __temp32 = d0z0OpMinusz0(2,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpRcz2(__temp31,__temp32,__temp33);                            !
!                                                                      !
!   z2d0OpRcz2(__temp33,  ____temp33Size,1,__temp34);                  !
!                                                                      !
!   __temp35 = d0z0OpStarz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp36 = d0z0OpMinusz0(0,__temp35);                              !
!                                                                      !
!   __temp37 = d0z0OpStarz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp38 = d0z0OpPlusz0(2,__temp37);                               !
!                                                                      !
!   z0z0OpRcz2(__temp36,__temp38,__temp39);                            !
!                                                                      !
!   __temp40 = d0z0OpMinusz0(1,DoubleComplex(0,1));                    !
!                                                                      !
!   z2z0OpRcz2(__temp39,  ____temp39Size,__temp40,__temp41);           !
!                                                                      !
!   z2z2OpCcz2(__temp34,  ____temp34Size,__temp41,  ____temp41Size,__te!
!     mp42);                                                           !
!                                                                      !
!   __temp43 = d0z0OpStarz0(0,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp44 = d0z0OpPlusz0(0,__temp43);                               !
!                                                                      !
!   __temp45 = d0z0OpStarz0(0,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp46 = d0z0OpPlusz0(4,__temp45);                               !
!                                                                      !
!   z0z0OpRcz2(__temp44,__temp46,__temp47);                            !
!                                                                      !
!   __temp48 = d0z0OpStarz0(0,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp49 = d0z0OpMinusz0(5,__temp48);                              !
!                                                                      !
!   z2z0OpRcz2(__temp47,  ____temp47Size,__temp49,__temp50);           !
!                                                                      !
!   z2z2OpCcz2(__temp42,  ____temp42Size,__temp50,  ____temp50Size,b); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(~(b))                                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2OpLogNotz2(b,  __bSize,__temp51);                                !
!                                                                      !
!   ans11 = z2dispd0(__temp51,  ____temp51Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: endfunction                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   ** --- Free Section. ---                                           !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   */                                                                 !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   ** --- End Free Section. ---                                       !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   */                                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!   return(0);                                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!}                                                                     !
!                                                                      !
!                                                                      !
mclose(fd);