From b43eccd4cffed5bd1017c5821524fb6e49202f78 Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Sun, 18 Jun 2017 23:55:40 +0530
Subject: First commit

---
 .../unit_tests/double/test_OpPlus.sci.dia.ref      | 1258 ++++++++++++++++++++
 1 file changed, 1258 insertions(+)
 create mode 100644 2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref

(limited to '2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref')

diff --git a/2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref
new file mode 100644
index 00000000..f7447b83
--- /dev/null
+++ b/2.3-1/tests/unit_tests/double/test_OpPlus.sci.dia.ref
@@ -0,0 +1,1258 @@
+//
+// 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);
-- 
cgit