path: root/tests/unit_tests/test_hypermat.sci.dia.ref

//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
//
// <-- ENGLISH IMPOSED -->
// <-- JVM NOT MANDATORY -->
global SCI2CHOME;
scilab2c(SCI2CHOME+"/tests/unit_tests/test_hypermat.sci", TMPDIR);
 
 -----------------------------------   
 
 --- Executing your SCILAB code. ---   
 
 -----------------------------------   
 
(:,:,1)
 
    1.    3.    5.  
    2.    4.    6.  
(:,:,2)
 
    7.    9.     11.  
    8.    10.    12.  
(:,:,3)
 
    13.    15.    17.  
    14.    16.    18.  
(:,:,4)
 
    19.    21.    23.  
    20.    22.    24.  
 
    1.  
 
    2.  
 
    3.  
 
    4.  
 
    5.  
 
    6.  
 
    7.  
 
    8.  
 
    9.  
 
    10.  
 
    11.  
 
    12.  
 
    13.  
 
    14.  
 
    15.  
 
    16.  
 
    17.  
 
    18.  
 
    19.  
 
    20.  
 
    21.  
 
    22.  
 
    23.  
 
    24.  
 
(:,:,1)
 
    0.    4.    8.     12.    16.  
    1.    5.    9.     13.    17.  
    2.    6.    10.    14.    18.  
    3.    7.    11.    15.    19.  
(:,:,2)
 
    20.    24.    28.    32.    36.  
    21.    25.    29.    33.    37.  
    22.    26.    30.    34.    38.  
    23.    27.    31.    35.    39.  
(:,:,3)
 
    40.    44.    48.    52.    56.  
    41.    45.    49.    53.    57.  
    42.    46.    50.    54.    58.  
    43.    47.    51.    55.    59.  
(:,:,4)
 
    60.    64.    68.    72.    76.  
    61.    65.    69.    73.    77.  
    62.    66.    70.    74.    78.  
    63.    67.    71.    75.    79.  
(:,:,5)
 
    80.    84.    88.    92.    96.  
    81.    85.    89.    93.    97.  
    82.    86.    90.    94.    98.  
    83.    87.    91.    95.    99.  
(:,:,6)
 
    100.    104.    108.    112.    116.  
    101.    105.    109.    113.    117.  
    102.    106.    110.    114.    118.  
    103.    107.    111.    115.    119.  
 
    0.  
 
    1.  
 
    2.  
 
    3.  
 
    4.  
 
    5.  
 
    6.  
 
    7.  
 
    8.  
 
    9.  
 
    10.  
 
    11.  
 
    12.  
 
    13.  
 
    14.  
 
    15.  
 
    16.  
 
    17.  
 
    18.  
 
    19.  
 
    20.  
 
    21.  
 
    22.  
 
    23.  
 
    24.  
 
    25.  
 
    26.  
 
    27.  
 
    28.  
 
    29.  
 
    30.  
 
    31.  
 
    32.  
 
    33.  
 
    34.  
 
    35.  
 
    36.  
 
    37.  
 
    38.  
 
    39.  
 
    40.  
 
    41.  
 
    42.  
 
    43.  
 
    44.  
 
    45.  
 
    46.  
 
    47.  
 
    48.  
 
    49.  
 
    50.  
 
    51.  
 
    52.  
 
    53.  
 
    54.  
 
    55.  
 
    56.  
 
    57.  
 
    58.  
 
    59.  
 
    60.  
 
    61.  
 
    62.  
 
    63.  
 
    64.  
 
    65.  
 
    66.  
 
    67.  
 
    68.  
 
    69.  
 
    70.  
 
    71.  
 
    72.  
 
    73.  
 
    74.  
 
    75.  
 
    76.  
 
    77.  
 
    78.  
 
    79.  
 
    80.  
 
    81.  
 
    82.  
 
    83.  
 
    84.  
 
    85.  
 
    86.  
 
    87.  
 
    88.  
 
    89.  
 
    90.  
 
    91.  
 
    92.  
 
    93.  
 
    94.  
 
    95.  
 
    96.  
 
    97.  
 
    98.  
 
    99.  
 
    100.  
 
    101.  
 
    102.  
 
    103.  
 
    104.  
 
    105.  
 
    106.  
 
    107.  
 
    108.  
 
    109.  
 
    110.  
 
    111.  
 
    112.  
 
    113.  
 
    114.  
 
    115.  
 
    116.  
 
    117.  
 
    118.  
 
    119.  
 
 ------------------------------------------   
 
 --- 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_hypermat"   
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_hypermat/test_hypermat_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_hypermat/test_hypermat_copy.sci' already opened in Scilab.
 
          ==> Generate the AST.   
 
          ==> Generate C code in TMPDIR/main.c   
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   a = zeros(2,3,4);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   for i = 1:24   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:     a(i) = i   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:   end   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(a);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   for i = 1:24   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:     disp(a(i))   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:   end   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   b = zeros(4,5,6);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   for i = 1:4   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:     for j = 1:5   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
          /*SCI2C: #################################################### 
      ##############                                                    
 
            SCI2C:       for k = 1:6   
 
            SCI2C: #################################################### 
      ##############*/                                                  
 
             /*SCI2C: ################################################# 
      #################                                                 
 
               SCI2C:         b(i,j,k) = (i - 1) + 4 * (j - 1) + 4 * 5  
      * (k - 1);                                                        
 
               SCI2C: ################################################# 
      #################*/                                               
 
             /*SCI2C: ################################################# 
      #################                                                 
 
               SCI2C:       end   
 
               SCI2C: ################################################# 
      #################*/                                               
 
          /*SCI2C: #################################################### 
      ##############                                                    
 
            SCI2C:     end   
 
            SCI2C: #################################################### 
      ##############*/                                                  
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:   end   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   disp(b);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:   for k = 1:6   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:     for j = 1:5   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
          /*SCI2C: #################################################### 
      ##############                                                    
 
            SCI2C:       for i = 1:4   
 
            SCI2C: #################################################### 
      ##############*/                                                  
 
             /*SCI2C: ################################################# 
      #################                                                 
 
               SCI2C:         disp(b(i,j,k));   
 
               SCI2C: ################################################# 
      #################*/                                               
 
             /*SCI2C: ################################################# 
      #################                                                 
 
               SCI2C:       end   
 
               SCI2C: ################################################# 
      #################*/                                               
 
          /*SCI2C: #################################################### 
      ##############                                                    
 
            SCI2C:     end   
 
            SCI2C: #################################################### 
      ##############*/                                                  
 
       /*SCI2C: ####################################################### 
      ###########                                                       
 
         SCI2C:   end   
 
         SCI2C: ####################################################### 
      ###########*/                                                     
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:      
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: endfunction   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
          ==> Copying sources   
 
          ==> Copying headers   
 
          ==> Copying interfaces   
 
          ==> Generating Builder TMPDIR/Makefile   
 
          ==> Translation Successfully Completed!!!   
//editor(TMPDIR + "/main.c");
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: //                                                           !
!                                                                      !
!  SCI2C: // Scilab ( http://www.scilab.org/ ) - This file is part of S!
!     cilab                                                            !
!                                                                      !
!  SCI2C: // Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET          !
!                                                                      !
!  SCI2C: //                                                           !
!                                                                      !
!  SCI2C: // This file must be used under the terms of the CeCILL.     !
!                                                                      !
!  SCI2C: // This source file is licensed as described in the file COPY!
!     ING, which                                                       !
!                                                                      !
!  SCI2C: // you should have received as part of this distribution.  Th!
!     e terms                                                          !
!                                                                      !
!  SCI2C: // are also available at                                     !
!                                                                      !
!  SCI2C: // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt  !
!                                                                      !
!  SCI2C: //                                                           !
!                                                                      !
!  SCI2C: //                                                           !
!                                                                      !
!  SCI2C:                                                              !
!                                                                      !
!  SCI2C: function test_hypermat()                                     !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!*/                                                                    !
!                                                                      !
!int main()                                                            !
!                                                                      !
!{                                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!** --- Variable Declaration. ---                                      !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double a[2 * 3 * 4];                                               !
!                                                                      !
!   int __aSize[3] = {2, 3, 4};;                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double i;                                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans1;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp1;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans2;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double b[4 * 5 * 6];                                               !
!                                                                      !
!   int __bSize[3] = {4, 5, 6};;                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double j;                                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double k;                                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp2;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp3;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp4;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp5;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp6;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp7;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp8;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp9;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans3;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp10;                                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans4;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!** --- End Variable Declaration. ---                                  !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!** --- C code. ---                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   a = zeros(2,3,4);                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0d0zerosd3(2,3,4,a);                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   for i = 1:24                                            !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   for(i = 1; i <= 24; i += 1)                                        !
!                                                                      !
!   {                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:     a(i) = i                                           !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!      d3d0d0OpIns(a,  __aSize,i,i);                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:   end                                                  !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   }                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(a);                                                !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans1 = d3dispd0(a,  __aSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   for i = 1:24                                            !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   for(i = 1; i <= 24; i += 1)                                        !
!                                                                      !
!   {                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:     disp(a(i))                                         !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!      __temp1 = d3d0OpExtd0(a,  __aSize,i);                           !
!                                                                      !
!      ans2 = d0dispd0(__temp1);                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:   end                                                  !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   }                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   b = zeros(4,5,6);                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0d0zerosd3(4,5,6,b);                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   for i = 1:4                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   for(i = 1; i <= 4; i += 1)                                         !
!                                                                      !
!   {                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:     for j = 1:5                                        !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!      for(j = 1; j <= 5; j += 1)                                      !
!                                                                      !
!      {                                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!         /*SCI2C: ####################################################!
!     ##############                                                   !
!                                                                      !
!           SCI2C:       for k = 1:6                                   !
!                                                                      !
!           SCI2C: ####################################################!
!     ##############*/                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!         for(k = 1; k <= 6; k += 1)                                   !
!                                                                      !
!         {                                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!            /*SCI2C: #################################################!
!     #################                                                !
!                                                                      !
!              SCI2C:         b(i,j,k) = (i - 1) + 4 * (j - 1) + 4 * 5 !
!     * (k - 1);                                                       !
!                                                                      !
!              SCI2C: #################################################!
!     #################*/                                              !
!                                                                      !
!            __temp2 = d0d0OpMinusd0(i,1);                             !
!                                                                      !
!            __temp3 = d0d0OpMinusd0(j,1);                             !
!                                                                      !
!            __temp4 = d0d0OpStard0(4,__temp3);                        !
!                                                                      !
!            __temp5 = d0d0OpPlusd0(__temp2,__temp4);                  !
!                                                                      !
!            __temp6 = d0d0OpStard0(4,5);                              !
!                                                                      !
!            __temp7 = d0d0OpMinusd0(k,1);                             !
!                                                                      !
!            __temp8 = d0d0OpStard0(__temp6,__temp7);                  !
!                                                                      !
!            __temp9 = d0d0OpPlusd0(__temp5,__temp8);                  !
!                                                                      !
!            d3d0d0d0d0OpIns(b,  __bSize,i,j,k,__temp9);               !
!                                                                      !
!                                                                      !
!                                                                      !
!            /*SCI2C: #################################################!
!     #################                                                !
!                                                                      !
!              SCI2C:       end                                        !
!                                                                      !
!              SCI2C: #################################################!
!     #################*/                                              !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!         }                                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!         /*SCI2C: ####################################################!
!     ##############                                                   !
!                                                                      !
!           SCI2C:     end                                             !
!                                                                      !
!           SCI2C: ####################################################!
!     ##############*/                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!      }                                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:   end                                                  !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   }                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   disp(b);                                                !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   ans3 = d3dispd0(b,  __bSize);                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:   for k = 1:6                                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   for(k = 1; k <= 6; k += 1)                                         !
!                                                                      !
!   {                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:     for j = 1:5                                        !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!      for(j = 1; j <= 5; j += 1)                                      !
!                                                                      !
!      {                                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!         /*SCI2C: ####################################################!
!     ##############                                                   !
!                                                                      !
!           SCI2C:       for i = 1:4                                   !
!                                                                      !
!           SCI2C: ####################################################!
!     ##############*/                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!         for(i = 1; i <= 4; i += 1)                                   !
!                                                                      !
!         {                                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!            /*SCI2C: #################################################!
!     #################                                                !
!                                                                      !
!              SCI2C:         disp(b(i,j,k));                          !
!                                                                      !
!              SCI2C: #################################################!
!     #################*/                                              !
!                                                                      !
!            __temp10 = d3d0d0d0OpExtd0(b,  __bSize,i,j,k);            !
!                                                                      !
!            ans4 = d0dispd0(__temp10);                                !
!                                                                      !
!                                                                      !
!                                                                      !
!            /*SCI2C: #################################################!
!     #################                                                !
!                                                                      !
!              SCI2C:       end                                        !
!                                                                      !
!              SCI2C: #################################################!
!     #################*/                                              !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!         }                                                            !
!                                                                      !
!                                                                      !
!                                                                      !
!         /*SCI2C: ####################################################!
!     ##############                                                   !
!                                                                      !
!           SCI2C:     end                                             !
!                                                                      !
!           SCI2C: ####################################################!
!     ##############*/                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!      }                                                               !
!                                                                      !
!                                                                      !
!                                                                      !
!      /*SCI2C: #######################################################!
!     ###########                                                      !
!                                                                      !
!        SCI2C:   end                                                  !
!                                                                      !
!        SCI2C: #######################################################!
!     ###########*/                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   }                                                                  !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: endfunction                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   ** --- Free Section. ---                                           !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   */                                                                 !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   ** --- End Free Section. ---                                       !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   */                                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!   return(0);                                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!}                                                                     !
!                                                                      !
!                                                                      !
mclose(fd);