path: root/2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref

//
// 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_OpPlus.sci", TMPDIR);
 
 -----------------------------------   
 
 --- Executing your SCILAB code. ---   
 
 -----------------------------------   
 
 ------------------------------------------   
 
 --- 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_OpPlus"   
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab.
 
          ==> Generate the AST.   
 
          ==> Generate C code in TMPDIR/main.c   
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   a = 1;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   b = 2;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   c = a + b; // d0d0OpPlusd0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   d = 1 + %i; // d0z0OpPlusz0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   e = %i + 3; // z0d0OpPlusz0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   f = d + e; // z0z0OpPlusz0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   g = [1 2 3; 4 5 6];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   h = 10;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   w = g + h; // d2d0OpPlusd2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   j = h + g; // d0d2OpPlusd2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   k = [9 8 7; 6 5 4; 3 2 1]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   l = [1 2 3; 4 5 6; 7 8 9]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   m = k + l // d2d2OpPlusd2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   n = k + 2 * %i; //d2z0OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   o = 3 * %i + l; //z0d2OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   p = n + o; // z2z2OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   q = [1 2 3 ; 4 5 6 ; 7 8 9]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   r = 3 * %i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   s = q + r; // d2z0OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   t = r + q; // z0d2OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   u = [1 2 3] + %i * [4 5 6]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   v = [7 8 9]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   x = u + v; // z2d2OpPlusz2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   y = v + u; // d2z2OpPlusz2   
 
      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_OpPlus()                                       !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!*/                                                                    !
!                                                                      !
!int main()                                                            !
!                                                                      !
!{                                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!** --- Variable Declaration. ---                                      !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double a = 1;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double b = 2;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double c;                                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex d;                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex e;                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex f;                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp1[1 * 2];                                             !
!                                                                      !
!   int ____temp1Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp2[1 * 3];                                             !
!                                                                      !
!   int ____temp2Size[2] = {1, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp3[1 * 2];                                             !
!                                                                      !
!   int ____temp3Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp4[1 * 3];                                             !
!                                                                      !
!   int ____temp4Size[2] = {1, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double g[2 * 3];                                                   !
!                                                                      !
!   int __gSize[2] = {2, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double h = 10;                                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   double w[2 * 3];                                                   !
!                                                                      !
!   int __wSize[2] = {2, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double j[2 * 3];                                                   !
!                                                                      !
!   int __jSize[2] = {2, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp5[1 * 2];                                             !
!                                                                      !
!   int ____temp5Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp6[1 * 3];                                             !
!                                                                      !
!   int ____temp6Size[2] = {1, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp7[1 * 2];                                             !
!                                                                      !
!   int ____temp7Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp8[1 * 3];                                             !
!                                                                      !
!   int ____temp8Size[2] = {1, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp9[2 * 3];                                             !
!                                                                      !
!   int ____temp9Size[2] = {2, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp10[1 * 2];                                            !
!                                                                      !
!   int ____temp10Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp11[1 * 3];                                            !
!                                                                      !
!   int ____temp11Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double k[3 * 3];                                                   !
!                                                                      !
!   int __kSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp12[1 * 2];                                            !
!                                                                      !
!   int ____temp12Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp13[1 * 3];                                            !
!                                                                      !
!   int ____temp13Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp14[1 * 2];                                            !
!                                                                      !
!   int ____temp14Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp15[1 * 3];                                            !
!                                                                      !
!   int ____temp15Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp16[2 * 3];                                            !
!                                                                      !
!   int ____temp16Size[2] = {2, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp17[1 * 2];                                            !
!                                                                      !
!   int ____temp17Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp18[1 * 3];                                            !
!                                                                      !
!   int ____temp18Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double l[3 * 3];                                                   !
!                                                                      !
!   int __lSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double m[3 * 3];                                                   !
!                                                                      !
!   int __mSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp19;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex n[3 * 3];                                            !
!                                                                      !
!   int __nSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp20;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex o[3 * 3];                                            !
!                                                                      !
!   int __oSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex p[3 * 3];                                            !
!                                                                      !
!   int __pSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp21[1 * 2];                                            !
!                                                                      !
!   int ____temp21Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp22[1 * 3];                                            !
!                                                                      !
!   int ____temp22Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp23[1 * 2];                                            !
!                                                                      !
!   int ____temp23Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp24[1 * 3];                                            !
!                                                                      !
!   int ____temp24Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp25[2 * 3];                                            !
!                                                                      !
!   int ____temp25Size[2] = {2, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp26[1 * 2];                                            !
!                                                                      !
!   int ____temp26Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp27[1 * 3];                                            !
!                                                                      !
!   int ____temp27Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double q[3 * 3];                                                   !
!                                                                      !
!   int __qSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex r;                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex s[3 * 3];                                            !
!                                                                      !
!   int __sSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex t[3 * 3];                                            !
!                                                                      !
!   int __tSize[2] = {3, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp28[1 * 2];                                            !
!                                                                      !
!   int ____temp28Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp29[1 * 3];                                            !
!                                                                      !
!   int ____temp29Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp30[1 * 2];                                            !
!                                                                      !
!   int ____temp30Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp31[1 * 3];                                            !
!                                                                      !
!   int ____temp31Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp32[1 * 3];                                     !
!                                                                      !
!   int ____temp32Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex u[1 * 3];                                            !
!                                                                      !
!   int __uSize[2] = {1, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp33[1 * 2];                                            !
!                                                                      !
!   int ____temp33Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double v[1 * 3];                                                   !
!                                                                      !
!   int __vSize[2] = {1, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex x[1 * 3];                                            !
!                                                                      !
!   int __xSize[2] = {1, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex y[1 * 3];                                            !
!                                                                      !
!   int __ySize[2] = {1, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!** --- End Variable Declaration. ---                                  !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!** --- C code. ---                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   a = 1;                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   a = d0OpEquald0(1);                                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   b = 2;                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   b = d0OpEquald0(2);                                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   c = a + b; // d0d0OpPlusd0                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   c = d0d0OpPlusd0(a,b);                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   d = 1 + %i; // d0z0OpPlusz0                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d = d0z0OpPlusz0(1,DoubleComplex(0,1));                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   e = %i + 3; // z0d0OpPlusz0                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   e = z0d0OpPlusz0(DoubleComplex(0,1),3);                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   f = d + e; // z0z0OpPlusz0                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   f = z0z0OpPlusz0(d,e);                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   g = [1 2 3; 4 5 6];                                     !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp1);                                           !
!                                                                      !
!   d2d0OpRcd2(__temp1,  ____temp1Size,3,__temp2);                     !
!                                                                      !
!   d0d0OpRcd2(4,5,__temp3);                                           !
!                                                                      !
!   d2d0OpRcd2(__temp3,  ____temp3Size,6,__temp4);                     !
!                                                                      !
!   d2d2OpCcd2(__temp2,  ____temp2Size,__temp4,  ____temp4Size,g);     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   h = 10;                                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   h = d0OpEquald0(10);                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   w = g + h; // d2d0OpPlusd2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0OpPlusd2(g,  __gSize,h,w);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   j = h + g; // d0d2OpPlusd2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d2OpPlusd2(h,g,  __gSize,j);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   k = [9 8 7; 6 5 4; 3 2 1]                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(9,8,__temp5);                                           !
!                                                                      !
!   d2d0OpRcd2(__temp5,  ____temp5Size,7,__temp6);                     !
!                                                                      !
!   d0d0OpRcd2(6,5,__temp7);                                           !
!                                                                      !
!   d2d0OpRcd2(__temp7,  ____temp7Size,4,__temp8);                     !
!                                                                      !
!   d2d2OpCcd2(__temp6,  ____temp6Size,__temp8,  ____temp8Size,__temp9)!
!     ;                                                                !
!                                                                      !
!   d0d0OpRcd2(3,2,__temp10);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp10,  ____temp10Size,1,__temp11);                  !
!                                                                      !
!   d2d2OpCcd2(__temp9,  ____temp9Size,__temp11,  ____temp11Size,k);   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   l = [1 2 3; 4 5 6; 7 8 9]                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp12);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp12,  ____temp12Size,3,__temp13);                  !
!                                                                      !
!   d0d0OpRcd2(4,5,__temp14);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp14,  ____temp14Size,6,__temp15);                  !
!                                                                      !
!   d2d2OpCcd2(__temp13,  ____temp13Size,__temp15,  ____temp15Size,__te!
!     mp16);                                                           !
!                                                                      !
!   d0d0OpRcd2(7,8,__temp17);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp17,  ____temp17Size,9,__temp18);                  !
!                                                                      !
!   d2d2OpCcd2(__temp16,  ____temp16Size,__temp18,  ____temp18Size,l); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   m = k + l // d2d2OpPlusd2                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d2OpPlusd2(k,  __kSize,l,  __lSize,m);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   n = k + 2 * %i; //d2z0OpPlusz2                          !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp19 = d0z0OpStarz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   d2z0OpPlusz2(k,  __kSize,__temp19,n);                              !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   o = 3 * %i + l; //z0d2OpPlusz2                          !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp20 = d0z0OpStarz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   z0d2OpPlusz2(__temp20,l,  __lSize,o);                              !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   p = n + o; // z2z2OpPlusz2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2z2OpPlusz2(n,  __nSize,o,  __oSize,p);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   q = [1 2 3 ; 4 5 6 ; 7 8 9]                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp21);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp21,  ____temp21Size,3,__temp22);                  !
!                                                                      !
!   d0d0OpRcd2(4,5,__temp23);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp23,  ____temp23Size,6,__temp24);                  !
!                                                                      !
!   d2d2OpCcd2(__temp22,  ____temp22Size,__temp24,  ____temp24Size,__te!
!     mp25);                                                           !
!                                                                      !
!   d0d0OpRcd2(7,8,__temp26);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp26,  ____temp26Size,9,__temp27);                  !
!                                                                      !
!   d2d2OpCcd2(__temp25,  ____temp25Size,__temp27,  ____temp27Size,q); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   r = 3 * %i;                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   r = d0z0OpStarz0(3,DoubleComplex(0,1));                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   s = q + r; // d2z0OpPlusz2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2z0OpPlusz2(q,  __qSize,r,s);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   t = r + q; // z0d2OpPlusz2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z0d2OpPlusz2(r,q,  __qSize,t);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   u = [1 2 3] + %i * [4 5 6]                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp28);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp28,  ____temp28Size,3,__temp29);                  !
!                                                                      !
!   d0d0OpRcd2(4,5,__temp30);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp30,  ____temp30Size,6,__temp31);                  !
!                                                                      !
!   z0d2OpStarz2(DoubleComplex(0,1),__temp31,  ____temp31Size,__temp32)!
!     ;                                                                !
!                                                                      !
!   d2z2OpPlusz2(__temp29,  ____temp29Size,__temp32,  ____temp32Size,u)!
!     ;                                                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   v = [7 8 9]                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(7,8,__temp33);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp33,  ____temp33Size,9,v);                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   x = u + v; // z2d2OpPlusz2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2d2OpPlusz2(u,  __uSize,v,  __vSize,x);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   y = v + u; // d2z2OpPlusz2                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2z2OpPlusz2(v,  __vSize,u,  __uSize,y);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: endfunction                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   ** --- Free Section. ---                                           !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   */                                                                 !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   ** --- End Free Section. ---                                       !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   */                                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!   return(0);                                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!}                                                                     !
!                                                                      !
!                                                                      !
mclose(fd);