//
// 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_OpIns.sci", TMPDIR);
 
 -----------------------------------   
 
 --- Executing your SCILAB code. ---   
 
 -----------------------------------   
 
    1.  - 2.    3.  
    4.    5.    6.  
 
    1.  - 4. + i      3.  
    4.    5.          6.  
 
    1.  - 4. + i    - 12.  
    4.    5.          6.   
 
    1.  - 4. + i    - 5. + i    
    4.    5.          6.        
 
  - 12.  - 4. + i    - 5. + i    
  - 12.    5.          6.        
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i      5.          6.        
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i    - 12.       - 12.       
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i    - 5. + i    - 5. + i    
 
    4.    4.    4.  
    4.    4.    4.  
 
    3. + i      3. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    7.          7.          3. + i    
    3. + i      3. + i      3. + i    
 
    2. + i      2. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    1.          0           3. + i    
    3. + i      3. + i      3. + i    
 
    3. - i      1. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    3. - i      1. + i      3. + i    
  - 2.          3. + i    - 7.        
 
    3. - i      1. + i      3. + i    
  - 4. + i      3. + i    - 5. + i    
 
    3. - i      1. + i    - 9.  
  - 4. + i      3. + i    - 1.  
 
    3. - i      1. + i    - 4. + i    
  - 4. + i      3. + i    - 5. + i    
 
    3. - i    - 31.  - 45.  
  - 4. + i    - 29.  - 51.  
 
    3. - i    - 4. + i    - 5. + i    
  - 4. + i    - 4. + i    - 5. + i    
 
    1. - 3.i  - 2.          3. + 2.i  
    4.          5. + 4.i    6.        
 
    1. - 3.i  - 4. + i      3. + 2.i  
    4.          5. + 4.i    6.        
 
    1. - 3.i  - 4. + i    - 12.  
    4.          5. + 4.i    6.   
 
    1. - 3.i  - 4. + i    - 5. + i    
    4.          5. + 4.i    6.        
 
  - 12.  - 4. + i    - 5. + i    
  - 12.    5. + 4.i    6.        
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i      5. + 4.i    6.        
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i    - 12.       - 12.       
 
  - 5. + i    - 4. + i    - 5. + i    
  - 5. + i    - 5. + i    - 5. + i    
 
    4.    4.    4.  
    4.    4.    4.  
 
    3. + i      3. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    7.          7.          3. + i    
    3. + i      3. + i      3. + i    
 
    2. + i      2. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    1.          0           3. + i    
    3. + i      3. + i      3. + i    
 
    3. - i      1. + i      3. + i    
    3. + i      3. + i      3. + i    
 
    3. - i      1. + i      3. + i    
  - 2.          3. + i    - 7.        
 
    3. - i      1. + i      3. + i    
  - 4. + i      3. + i    - 5. + i    
 
    3. - i      1. + i    - 9.  
  - 4. + i      3. + i    - 1.  
 
    3. - i      1. + i    - 4. + i    
  - 4. + i      3. + i    - 5. + i    
 
    3. - i    - 31.  - 45.  
  - 4. + i    - 29.  - 51.  
 
    3. - i    - 4. + i    - 5. + i    
  - 4. + i    - 4. + i    - 5. + i    
 
 ------------------------------------------   
 
 --- 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_OpIns"   
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab.
 
          ==> Generate the AST.   
 
          ==> Generate C code in TMPDIR/main.c   
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   //reals   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a=[1 2 3; 4 5 6]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(3)=-2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(3)=-4+%i   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(1,3)=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(1,3)=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],1)=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],1)=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(2,[2,3])=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(2,[2,3])=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1 2],[1,2,3])=4;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1 2],[1,2,3])=3+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,3])=7;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,3])=2+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,3])=[1,0];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,3])=[3-%i,1+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(2,[1,3])=[-2,-7];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a(2,[1,3])=[-4+%i,-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],3)=[-9;-1];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],3)=[-4+%i;-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: //complexes   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6]   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(3)=-2   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(3)=-4+%i   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(1,3)=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(1,3)=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],1)=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],1)=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(2,[2,3])=-12;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(2,[2,3])=-5+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1 2],[1,2,3])=4;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1 2],[1,2,3])=3+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,3])=7;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,3])=2+%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,3])=[1,0];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,3])=[3-%i,1+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(2,[1,3])=[-2,-7];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b(2,[1,3])=[-4+%i,-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],3)=[-9;-1];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],3)=[-4+%i;-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: disp(b);   
 
      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_OpIns()                                        !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!*/                                                                    !
!                                                                      !
!int main()                                                            !
!                                                                      !
!{                                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!** --- Variable Declaration. ---                                      !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   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 a[2 * 3];                                                   !
!                                                                      !
!   int __aSize[2] = {2, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans1;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp5;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans2;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans3;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp6;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans4;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp7[1 * 2];                                             !
!                                                                      !
!   int ____temp7Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans5;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp8;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp9[1 * 2];                                             !
!                                                                      !
!   int ____temp9Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans6;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp10[1 * 2];                                            !
!                                                                      !
!   int ____temp10Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans7;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp11;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp12[1 * 2];                                            !
!                                                                      !
!   int ____temp12Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans8;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp13[1 * 2];                                            !
!                                                                      !
!   int ____temp13Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp14[1 * 2];                                            !
!                                                                      !
!   int ____temp14Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp15[1 * 3];                                            !
!                                                                      !
!   int ____temp15Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans9;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp16;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp17[1 * 2];                                            !
!                                                                      !
!   int ____temp17Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp18[1 * 2];                                            !
!                                                                      !
!   int ____temp18Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp19[1 * 3];                                            !
!                                                                      !
!   int ____temp19Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans10;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp20[1 * 2];                                            !
!                                                                      !
!   int ____temp20Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans11;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp21;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp22[1 * 2];                                            !
!                                                                      !
!   int ____temp22Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans12;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp23[1 * 2];                                            !
!                                                                      !
!   int ____temp23Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp24[1 * 2];                                            !
!                                                                      !
!   int ____temp24Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans13;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp25;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp26;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp27[1 * 2];                                     !
!                                                                      !
!   int ____temp27Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp28[1 * 2];                                            !
!                                                                      !
!   int ____temp28Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans14;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp29[1 * 2];                                            !
!                                                                      !
!   int ____temp29Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp30[1 * 2];                                            !
!                                                                      !
!   int ____temp30Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans15;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp31;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp32;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp33[1 * 2];                                     !
!                                                                      !
!   int ____temp33Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp34[1 * 2];                                            !
!                                                                      !
!   int ____temp34Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans16;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp35[2 * 1];                                            !
!                                                                      !
!   int ____temp35Size[2] = {2, 1};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp36[1 * 2];                                            !
!                                                                      !
!   int ____temp36Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans17;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp37;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp38;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp39[2 * 1];                                     !
!                                                                      !
!   int ____temp39Size[2] = {2, 1};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp40[1 * 2];                                            !
!                                                                      !
!   int ____temp40Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans18;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp41[1 * 2];                                            !
!                                                                      !
!   int ____temp41Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp42[1 * 2];                                            !
!                                                                      !
!   int ____temp42Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp43[2 * 2];                                            !
!                                                                      !
!   int ____temp43Size[2] = {2, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp44[1 * 2];                                            !
!                                                                      !
!   int ____temp44Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp45[1 * 2];                                            !
!                                                                      !
!   int ____temp45Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans19;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp46;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp47;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp48[1 * 2];                                     !
!                                                                      !
!   int ____temp48Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp49;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp50;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp51[1 * 2];                                     !
!                                                                      !
!   int ____temp51Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp52[2 * 2];                                     !
!                                                                      !
!   int ____temp52Size[2] = {2, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp53[1 * 2];                                            !
!                                                                      !
!   int ____temp53Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp54[1 * 2];                                            !
!                                                                      !
!   int ____temp54Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans20;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp55;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp56;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp57;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp58[1 * 2];                                     !
!                                                                      !
!   int ____temp58Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp59;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp60;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp61[1 * 3];                                     !
!                                                                      !
!   int ____temp61Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp62;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp63;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp64[1 * 2];                                     !
!                                                                      !
!   int ____temp64Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp65[1 * 3];                                     !
!                                                                      !
!   int ____temp65Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex b[2 * 3];                                            !
!                                                                      !
!   int __bSize[2] = {2, 3};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans21;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp66;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans22;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans23;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp67;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans24;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp68[1 * 2];                                            !
!                                                                      !
!   int ____temp68Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans25;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp69;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp70[1 * 2];                                            !
!                                                                      !
!   int ____temp70Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans26;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp71[1 * 2];                                            !
!                                                                      !
!   int ____temp71Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans27;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp72;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp73[1 * 2];                                            !
!                                                                      !
!   int ____temp73Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans28;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp74[1 * 2];                                            !
!                                                                      !
!   int ____temp74Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp75[1 * 2];                                            !
!                                                                      !
!   int ____temp75Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp76[1 * 3];                                            !
!                                                                      !
!   int ____temp76Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans29;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp77;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp78[1 * 2];                                            !
!                                                                      !
!   int ____temp78Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp79[1 * 2];                                            !
!                                                                      !
!   int ____temp79Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp80[1 * 3];                                            !
!                                                                      !
!   int ____temp80Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans30;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp81[1 * 2];                                            !
!                                                                      !
!   int ____temp81Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans31;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp82;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp83[1 * 2];                                            !
!                                                                      !
!   int ____temp83Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans32;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp84[1 * 2];                                            !
!                                                                      !
!   int ____temp84Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp85[1 * 2];                                            !
!                                                                      !
!   int ____temp85Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans33;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp86;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp87;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp88[1 * 2];                                     !
!                                                                      !
!   int ____temp88Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp89[1 * 2];                                            !
!                                                                      !
!   int ____temp89Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans34;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp90[1 * 2];                                            !
!                                                                      !
!   int ____temp90Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp91[1 * 2];                                            !
!                                                                      !
!   int ____temp91Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans35;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp92;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp93;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp94[1 * 2];                                     !
!                                                                      !
!   int ____temp94Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp95[1 * 2];                                            !
!                                                                      !
!   int ____temp95Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans36;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp96[2 * 1];                                            !
!                                                                      !
!   int ____temp96Size[2] = {2, 1};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp97[1 * 2];                                            !
!                                                                      !
!   int ____temp97Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans37;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp98;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp99;                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp100[2 * 1];                                    !
!                                                                      !
!   int ____temp100Size[2] = {2, 1};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp101[1 * 2];                                           !
!                                                                      !
!   int ____temp101Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans38;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp102[1 * 2];                                           !
!                                                                      !
!   int ____temp102Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp103[1 * 2];                                           !
!                                                                      !
!   int ____temp103Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp104[2 * 2];                                           !
!                                                                      !
!   int ____temp104Size[2] = {2, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp105[1 * 2];                                           !
!                                                                      !
!   int ____temp105Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp106[1 * 2];                                           !
!                                                                      !
!   int ____temp106Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans39;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp107;                                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp108;                                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp109[1 * 2];                                    !
!                                                                      !
!   int ____temp109Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp110;                                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp111;                                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp112[1 * 2];                                    !
!                                                                      !
!   int ____temp112Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp113[2 * 2];                                    !
!                                                                      !
!   int ____temp113Size[2] = {2, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp114[1 * 2];                                           !
!                                                                      !
!   int ____temp114Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp115[1 * 2];                                           !
!                                                                      !
!   int ____temp115Size[2] = {1, 2};;                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans40;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!** --- End Variable Declaration. ---                                  !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!** --- C code. ---                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   //reals                                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a=[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,a);     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(3)=-2                                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0d0OpIns(a,  __aSize,3,-2);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans1 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(3)=-4+%i                                                !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp5 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                     !
!                                                                      !
!   d2d0z0OpIns(a,  __aSize,3,__temp5);                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans2 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(1,3)=-12;                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0d0d0OpIns(a,  __aSize,1,3,-12);                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans3 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(1,3)=-5+%i;                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp6 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                     !
!                                                                      !
!   d2d0d0z0OpIns(a,  __aSize,1,3,__temp6);                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans4 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],1)=-12;                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp7);                                           !
!                                                                      !
!   d2d2d0d0OpIns(a,  __aSize,__temp7,  ____temp7Size,1,-12);          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans5 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],1)=-5+%i;                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp8 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                     !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp9);                                           !
!                                                                      !
!   d2d2d0z0OpIns(a,  __aSize,__temp9,  ____temp9Size,1,__temp8);      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans6 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(2,[2,3])=-12;                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp10);                                          !
!                                                                      !
!   d2d0d2d0OpIns(a,  __aSize,2,__temp10,  ____temp10Size,-12);        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans7 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(2,[2,3])=-5+%i;                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp11 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp12);                                          !
!                                                                      !
!   d2d0d2z0OpIns(a,  __aSize,2,__temp12,  ____temp12Size,__temp11);   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans8 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1 2],[1,2,3])=4;                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp13);                                          !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp14);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp14,  ____temp14Size,3,__temp15);                  !
!                                                                      !
!   d2d2d2d0OpIns(a,  __aSize,__temp13,  ____temp13Size,__temp15,  ____!
!     temp15Size,4);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans9 = d2dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1 2],[1,2,3])=3+%i;                                    !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp16 = d0z0OpPlusz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp17);                                          !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp18);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp18,  ____temp18Size,3,__temp19);                  !
!                                                                      !
!   d2d2d2z0OpIns(a,  __aSize,__temp17,  ____temp17Size,__temp19,  ____!
!     temp19Size,__temp16);                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans10 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,3])=7;                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp20);                                          !
!                                                                      !
!   d2d2d0OpIns(a,  __aSize,__temp20,  ____temp20Size,7);              !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans11 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,3])=2+%i;                                            !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp21 = d0z0OpPlusz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp22);                                          !
!                                                                      !
!   d2d2z0OpIns(a,  __aSize,__temp22,  ____temp22Size,__temp21);       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans12 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,3])=[1,0];                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,0,__temp23);                                          !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp24);                                          !
!                                                                      !
!   d2d2d2OpIns(a,  __aSize,__temp24,  ____temp24Size,__temp23,  ____te!
!     mp23Size);                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans13 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,3])=[3-%i,1+%i];                                     !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp25 = d0z0OpMinusz0(3,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp26 = d0z0OpPlusz0(1,DoubleComplex(0,1));                     !
!                                                                      !
!   z0z0OpRcz2(__temp25,__temp26,__temp27);                            !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp28);                                          !
!                                                                      !
!   d2d2z2OpIns(a,  __aSize,__temp28,  ____temp28Size,__temp27,  ____te!
!     mp27Size);                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans14 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(2,[1,3])=[-2,-7];                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(-2,-7,__temp29);                                        !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp30);                                          !
!                                                                      !
!   d2d0d2d2OpIns(a,  __aSize,2,__temp30,  ____temp30Size,__temp29,  __!
!     __temp29Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans15 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a(2,[1,3])=[-4+%i,-5+%i];                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp31 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp32 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpRcz2(__temp31,__temp32,__temp33);                            !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp34);                                          !
!                                                                      !
!   d2d0d2z2OpIns(a,  __aSize,2,__temp34,  ____temp34Size,__temp33,  __!
!     __temp33Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans16 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],3)=[-9;-1];                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpCcd2(-9,-1,__temp35);                                        !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp36);                                          !
!                                                                      !
!   d2d2d0d2OpIns(a,  __aSize,__temp36,  ____temp36Size,3,__temp35,  __!
!     __temp35Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans17 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],3)=[-4+%i;-5+%i];                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp37 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp38 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpCcz2(__temp37,__temp38,__temp39);                            !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp40);                                          !
!                                                                      !
!   d2d2d0z2OpIns(a,  __aSize,__temp40,  ____temp40Size,3,__temp39,  __!
!     __temp39Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans18 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51];                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(-31,-45,__temp41);                                      !
!                                                                      !
!   d0d0OpRcd2(-29,-51,__temp42);                                      !
!                                                                      !
!   d2d2OpCcd2(__temp41,  ____temp41Size,__temp42,  ____temp42Size,__te!
!     mp43);                                                           !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp44);                                          !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp45);                                          !
!                                                                      !
!   d2d2d2d2OpIns(a,  __aSize,__temp44,  ____temp44Size,__temp45,  ____!
!     temp45Size,__temp43,  ____temp43Size);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans19 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp46 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp47 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpRcz2(__temp46,__temp47,__temp48);                            !
!                                                                      !
!   __temp49 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp50 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpRcz2(__temp49,__temp50,__temp51);                            !
!                                                                      !
!   z2z2OpCcz2(__temp48,  ____temp48Size,__temp51,  ____temp51Size,__te!
!     mp52);                                                           !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp53);                                          !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp54);                                          !
!                                                                      !
!   d2d2d2z2OpIns(a,  __aSize,__temp53,  ____temp53Size,__temp54,  ____!
!     temp54Size,__temp52,  ____temp52Size);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(a);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans20 = d2dispd0(a,  __aSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: //complexes                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6]                        !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp55 = d0z0OpStarz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp56 = d0z0OpMinusz0(1,__temp55);                              !
!                                                                      !
!   __temp57 = d0z0OpPlusz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   z0z0OpRcz2(__temp56,__temp57,__temp58);                            !
!                                                                      !
!   __temp59 = d0z0OpStarz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp60 = d0z0OpPlusz0(3,__temp59);                               !
!                                                                      !
!   z2z0OpRcz2(__temp58,  ____temp58Size,__temp60,__temp61);           !
!                                                                      !
!   __temp62 = d0z0OpStarz0(4,DoubleComplex(0,1));                     !
!                                                                      !
!   __temp63 = d0z0OpPlusz0(5,__temp62);                               !
!                                                                      !
!   d0z0OpRcz2(4,__temp63,__temp64);                                   !
!                                                                      !
!   z2d0OpRcz2(__temp64,  ____temp64Size,6,__temp65);                  !
!                                                                      !
!   z2z2OpCcz2(__temp61,  ____temp61Size,__temp65,  ____temp65Size,b); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(3)=-2                                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2d0d0OpIns(b,  __bSize,3,-2);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans21 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(3)=-4+%i                                                !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp66 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   z2d0z0OpIns(b,  __bSize,3,__temp66);                               !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans22 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(1,3)=-12;                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2d0d0d0OpIns(b,  __bSize,1,3,-12);                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans23 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(1,3)=-5+%i;                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp67 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z2d0d0z0OpIns(b,  __bSize,1,3,__temp67);                           !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans24 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],1)=-12;                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp68);                                          !
!                                                                      !
!   z2d2d0d0OpIns(b,  __bSize,__temp68,  ____temp68Size,1,-12);        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans25 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],1)=-5+%i;                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp69 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp70);                                          !
!                                                                      !
!   z2d2d0z0OpIns(b,  __bSize,__temp70,  ____temp70Size,1,__temp69);   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans26 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(2,[2,3])=-12;                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp71);                                          !
!                                                                      !
!   z2d0d2d0OpIns(b,  __bSize,2,__temp71,  ____temp71Size,-12);        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans27 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(2,[2,3])=-5+%i;                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp72 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp73);                                          !
!                                                                      !
!   z2d0d2z0OpIns(b,  __bSize,2,__temp73,  ____temp73Size,__temp72);   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans28 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1 2],[1,2,3])=4;                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp74);                                          !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp75);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp75,  ____temp75Size,3,__temp76);                  !
!                                                                      !
!   z2d2d2d0OpIns(b,  __bSize,__temp74,  ____temp74Size,__temp76,  ____!
!     temp76Size,4);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans29 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1 2],[1,2,3])=3+%i;                                    !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp77 = d0z0OpPlusz0(3,DoubleComplex(0,1));                     !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp78);                                          !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp79);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp79,  ____temp79Size,3,__temp80);                  !
!                                                                      !
!   z2d2d2z0OpIns(b,  __bSize,__temp78,  ____temp78Size,__temp80,  ____!
!     temp80Size,__temp77);                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans30 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,3])=7;                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp81);                                          !
!                                                                      !
!   z2d2d0OpIns(b,  __bSize,__temp81,  ____temp81Size,7);              !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans31 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,3])=2+%i;                                            !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp82 = d0z0OpPlusz0(2,DoubleComplex(0,1));                     !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp83);                                          !
!                                                                      !
!   z2d2z0OpIns(b,  __bSize,__temp83,  ____temp83Size,__temp82);       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans32 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,3])=[1,0];                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(1,0,__temp84);                                          !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp85);                                          !
!                                                                      !
!   z2d2d2OpIns(b,  __bSize,__temp85,  ____temp85Size,__temp84,  ____te!
!     mp84Size);                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans33 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,3])=[3-%i,1+%i];                                     !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp86 = d0z0OpMinusz0(3,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp87 = d0z0OpPlusz0(1,DoubleComplex(0,1));                     !
!                                                                      !
!   z0z0OpRcz2(__temp86,__temp87,__temp88);                            !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp89);                                          !
!                                                                      !
!   z2d2z2OpIns(b,  __bSize,__temp89,  ____temp89Size,__temp88,  ____te!
!     mp88Size);                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans34 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(2,[1,3])=[-2,-7];                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(-2,-7,__temp90);                                        !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp91);                                          !
!                                                                      !
!   z2d0d2d2OpIns(b,  __bSize,2,__temp91,  ____temp91Size,__temp90,  __!
!     __temp90Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans35 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b(2,[1,3])=[-4+%i,-5+%i];                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp92 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp93 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpRcz2(__temp92,__temp93,__temp94);                            !
!                                                                      !
!   d0d0OpRcd2(1,3,__temp95);                                          !
!                                                                      !
!   z2d0d2z2OpIns(b,  __bSize,2,__temp95,  ____temp95Size,__temp94,  __!
!     __temp94Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans36 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],3)=[-9;-1];                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpCcd2(-9,-1,__temp96);                                        !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp97);                                          !
!                                                                      !
!   z2d2d0d2OpIns(b,  __bSize,__temp97,  ____temp97Size,3,__temp96,  __!
!     __temp96Size);                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans37 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],3)=[-4+%i;-5+%i];                                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp98 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp99 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                    !
!                                                                      !
!   z0z0OpCcz2(__temp98,__temp99,__temp100);                           !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp101);                                         !
!                                                                      !
!   z2d2d0z2OpIns(b,  __bSize,__temp101,  ____temp101Size,3,__temp100, !
!      ____temp100Size);                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans38 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51];                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(-31,-45,__temp102);                                     !
!                                                                      !
!   d0d0OpRcd2(-29,-51,__temp103);                                     !
!                                                                      !
!   d2d2OpCcd2(__temp102,  ____temp102Size,__temp103,  ____temp103Size,!
!     __temp104);                                                      !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp105);                                         !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp106);                                         !
!                                                                      !
!   z2d2d2d2OpIns(b,  __bSize,__temp105,  ____temp105Size,__temp106,  _!
!     ___temp106Size,__temp104,  ____temp104Size);                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans39 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i];                 !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp107 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                   !
!                                                                      !
!   __temp108 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                   !
!                                                                      !
!   z0z0OpRcz2(__temp107,__temp108,__temp109);                         !
!                                                                      !
!   __temp110 = d0z0OpPlusz0(-4,DoubleComplex(0,1));                   !
!                                                                      !
!   __temp111 = d0z0OpPlusz0(-5,DoubleComplex(0,1));                   !
!                                                                      !
!   z0z0OpRcz2(__temp110,__temp111,__temp112);                         !
!                                                                      !
!   z2z2OpCcz2(__temp109,  ____temp109Size,__temp112,  ____temp112Size,!
!     __temp113);                                                      !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp114);                                         !
!                                                                      !
!   d0d0OpRcd2(2,3,__temp115);                                         !
!                                                                      !
!   z2d2d2z2OpIns(b,  __bSize,__temp114,  ____temp114Size,__temp115,  _!
!     ___temp115Size,__temp113,  ____temp113Size);                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: disp(b);                                                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans40 = z2dispd0(b,  __bSize);                                     !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: endfunction                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   ** --- Free Section. ---                                           !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   */                                                                 !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   ** --- End Free Section. ---                                       !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   */                                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!   return(0);                                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!}                                                                     !
!                                                                      !
!                                                                      !
mclose(fd);