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

//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
//
// <-- ENGLISH IMPOSED -->
// <-- JVM NOT MANDATORY -->
global SCI2CHOME;
scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_FFTShift.sci", TMPDIR);
 
 -----------------------------------   
 
 --- Executing your SCILAB code. ---   
 
 -----------------------------------   
 
    5.3  
 
    5.3i  
 
    5.3 + 5.6i  
 
    20.5  - 5. - 2.5i    29.5  - 5. + 2.5i  
 
    9.3    1.    48.5    3.   
    2.     6.    14.     15.  
    6.     4.    1.      2.   
 
    48.5    3.     9.3    1.  
    14.     15.    2.     6.  
    1.      2.     6.     4.  
 
    2.     6.    14.     15.  
    6.     4.    1.      2.   
    9.3    1.    48.5    3.   
 
    15.i    3.5i    10.i    i    
 
    9.3    1.    48.5    3.   
    2.     6.    14.     15.  
    6.     4.    1.      2.   
 
    48.5    3.     9.3    1.  
    14.     15.    2.     6.  
    1.      2.     6.     4.  
 
    2.     6.    14.     15.  
    6.     4.    1.      2.   
    9.3    1.    48.5    3.   
 
    30.i    7.i    20.i    2.i  
 
    9.3 + 9.3i    1. + i      43.5 + 48.5i    1. + 3.i    
    7. + 2.i      6. + 6.i    18. + 14.i      15. + 15.i  
    6. + 6.i      4. + 4.i    1. + i          5. + 2.i    
 
    43.5 + 48.5i    1. + 3.i      9.3 + 9.3i    1. + i    
    18. + 14.i      15. + 15.i    7. + 2.i      6. + 6.i  
    1. + i          5. + 2.i      6. + 6.i      4. + 4.i  
 
    7. + 2.i      6. + 6.i    18. + 14.i      15. + 15.i  
    6. + 6.i      4. + 4.i    1. + i          5. + 2.i    
    9.3 + 9.3i    1. + i      43.5 + 48.5i    1. + 3.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_FFTShift"   
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_FFTShift/test_FFTShift_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_FFTShift/test_FFTShift_copy.sci' already opened in Scilab.
 
          ==> Generate the AST.   
 
          ==> Generate C code in TMPDIR/main.c   
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(5.3));// d0*d0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(5.3*%i));// z0*z0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(5.3  + 5.6*%i ));// z0*z0   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	a = fft ([10 1 15 3.5 ]);   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(a));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ];   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b , 1));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b , 2));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	//disp(fftshift(b , "all"));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	c = [10 1 15 3.5 ]*%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(c));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b , 1));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(b , 2));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	//disp(fftshift(b , "all"));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	e = c +  [10 1 15 3.5 ]*%i;   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(e));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	   
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6  
      ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i;                                    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(f));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(f , 1));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	disp(fftshift(f , 2));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: 	//disp(fftshift(f , "all"));    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C: endfunction    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
    /*SCI2C: ########################################################## 
      ########                                                          
 
      SCI2C:    
 
      SCI2C: ########################################################## 
      ########*/                                                        
 
          ==> Copying sources   
 
          ==> Copying headers   
 
          ==> Copying interfaces   
 
          ==> Generating Builder TMPDIR/Makefile   
 
          ==> Translation Successfully Completed!!!   
fd = mopen(TMPDIR+"/main.c");
mgetl(fd)
 ans  =
 
!/*                                                                    !
!                                                                      !
!** ************************************************                   !
!                                                                      !
!** This file has been generated using                                 !
!                                                                      !
!**      Scilab2C (Version 2.0)                                        !
!                                                                      !
!**                                                                    !
!                                                                      !
!** Please visit following links for more informations:                !
!                                                                      !
!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c           !
!                                                                      !
!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/      !
!                                                                      !
!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/         !
!                                                                      !
!** ************************************************                   !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------                                                  !
!                                                                      !
!** --- Includes. ---                                                  !
!                                                                      !
!** -----------------                                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!#include "main.h"                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------                                              !
!                                                                      !
!** --- End Includes. ---                                              !
!                                                                      !
!** ---------------------                                              !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -------------------------------------                              !
!                                                                      !
!** --- Global Variables Declaration. ---                              !
!                                                                      !
!** -------------------------------------                              !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------------------                          !
!                                                                      !
!** --- End Global Variables Declaration. ---                          !
!                                                                      !
!** -----------------------------------------                          !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!  SCI2C: function test_FFTShift()                                     !
!                                                                      !
!  SCI2C: -------------------------------------------------------------!
!     -----                                                            !
!                                                                      !
!*/                                                                    !
!                                                                      !
!int main()                                                            !
!                                                                      !
!{                                                                     !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!** --- Variable Declaration. ---                                      !
!                                                                      !
!** -----------------------------                                      !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp1;                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans1;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp2;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp3;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans2;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp4;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp5;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp6;                                             !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans3;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp7[1 * 2];                                             !
!                                                                      !
!   int ____temp7Size[2] = {1, 2};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp8[1 * 3];                                             !
!                                                                      !
!   int ____temp8Size[2] = {1, 3};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp9[1 * 4];                                             !
!                                                                      !
!   int ____temp9Size[2] = {1, 4};;                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   double a[1 * 4];                                                   !
!                                                                      !
!   int __aSize[2] = {1, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp10[1 * 4];                                            !
!                                                                      !
!   int ____temp10Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans4;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp11[1 * 2];                                            !
!                                                                      !
!   int ____temp11Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp12[1 * 3];                                            !
!                                                                      !
!   int ____temp12Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp13[1 * 4];                                            !
!                                                                      !
!   int ____temp13Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp14[1 * 2];                                            !
!                                                                      !
!   int ____temp14Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp15[1 * 3];                                            !
!                                                                      !
!   int ____temp15Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp16[1 * 4];                                            !
!                                                                      !
!   int ____temp16Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp17[2 * 4];                                            !
!                                                                      !
!   int ____temp17Size[2] = {2, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp18[1 * 2];                                            !
!                                                                      !
!   int ____temp18Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp19[1 * 3];                                            !
!                                                                      !
!   int ____temp19Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp20[1 * 4];                                            !
!                                                                      !
!   int ____temp20Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double b[3 * 4];                                                   !
!                                                                      !
!   int __bSize[2] = {3, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp21[3 * 4];                                            !
!                                                                      !
!   int ____temp21Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans5;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp22[3 * 4];                                            !
!                                                                      !
!   int ____temp22Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans6;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp23[3 * 4];                                            !
!                                                                      !
!   int ____temp23Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans7;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp24[1 * 2];                                            !
!                                                                      !
!   int ____temp24Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp25[1 * 3];                                            !
!                                                                      !
!   int ____temp25Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp26[1 * 4];                                            !
!                                                                      !
!   int ____temp26Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex c[1 * 4];                                            !
!                                                                      !
!   int __cSize[2] = {1, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp27[1 * 4];                                     !
!                                                                      !
!   int ____temp27Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans8;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp28[1 * 2];                                            !
!                                                                      !
!   int ____temp28Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp29[1 * 3];                                            !
!                                                                      !
!   int ____temp29Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp30[1 * 4];                                            !
!                                                                      !
!   int ____temp30Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp31[1 * 2];                                            !
!                                                                      !
!   int ____temp31Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp32[1 * 3];                                            !
!                                                                      !
!   int ____temp32Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp33[1 * 4];                                            !
!                                                                      !
!   int ____temp33Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp34[2 * 4];                                            !
!                                                                      !
!   int ____temp34Size[2] = {2, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp35[1 * 2];                                            !
!                                                                      !
!   int ____temp35Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp36[1 * 3];                                            !
!                                                                      !
!   int ____temp36Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp37[1 * 4];                                            !
!                                                                      !
!   int ____temp37Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp38[3 * 4];                                            !
!                                                                      !
!   int ____temp38Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex d[3 * 4];                                            !
!                                                                      !
!   int __dSize[2] = {3, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp39[3 * 4];                                            !
!                                                                      !
!   int ____temp39Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans9;                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp40[3 * 4];                                            !
!                                                                      !
!   int ____temp40Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans10;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp41[3 * 4];                                            !
!                                                                      !
!   int ____temp41Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans11;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp42[1 * 2];                                            !
!                                                                      !
!   int ____temp42Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp43[1 * 3];                                            !
!                                                                      !
!   int ____temp43Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp44[1 * 4];                                            !
!                                                                      !
!   int ____temp44Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp45[1 * 4];                                     !
!                                                                      !
!   int ____temp45Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex e[1 * 4];                                            !
!                                                                      !
!   int __eSize[2] = {1, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp46[1 * 4];                                     !
!                                                                      !
!   int ____temp46Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans12;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp47[1 * 2];                                            !
!                                                                      !
!   int ____temp47Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp48[1 * 3];                                            !
!                                                                      !
!   int ____temp48Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp49[1 * 4];                                            !
!                                                                      !
!   int ____temp49Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp50[1 * 2];                                            !
!                                                                      !
!   int ____temp50Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp51[1 * 3];                                            !
!                                                                      !
!   int ____temp51Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp52[1 * 4];                                            !
!                                                                      !
!   int ____temp52Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp53[2 * 4];                                            !
!                                                                      !
!   int ____temp53Size[2] = {2, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp54[1 * 2];                                            !
!                                                                      !
!   int ____temp54Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp55[1 * 3];                                            !
!                                                                      !
!   int ____temp55Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp56[1 * 4];                                            !
!                                                                      !
!   int ____temp56Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp57[3 * 4];                                            !
!                                                                      !
!   int ____temp57Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp58[1 * 2];                                            !
!                                                                      !
!   int ____temp58Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp59[1 * 3];                                            !
!                                                                      !
!   int ____temp59Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp60[1 * 4];                                            !
!                                                                      !
!   int ____temp60Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp61[1 * 2];                                            !
!                                                                      !
!   int ____temp61Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp62[1 * 3];                                            !
!                                                                      !
!   int ____temp62Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp63[1 * 4];                                            !
!                                                                      !
!   int ____temp63Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp64[2 * 4];                                            !
!                                                                      !
!   int ____temp64Size[2] = {2, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp65[1 * 2];                                            !
!                                                                      !
!   int ____temp65Size[2] = {1, 2};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp66[1 * 3];                                            !
!                                                                      !
!   int ____temp66Size[2] = {1, 3};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp67[1 * 4];                                            !
!                                                                      !
!   int ____temp67Size[2] = {1, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double __temp68[3 * 4];                                            !
!                                                                      !
!   int ____temp68Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp69[3 * 4];                                     !
!                                                                      !
!   int ____temp69Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex f[3 * 4];                                            !
!                                                                      !
!   int __fSize[2] = {3, 4};;                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp70[3 * 4];                                     !
!                                                                      !
!   int ____temp70Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans13;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp71[3 * 4];                                     !
!                                                                      !
!   int ____temp71Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans14;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!   doubleComplex __temp72[3 * 4];                                     !
!                                                                      !
!   int ____temp72Size[2] = {3, 4};;                                   !
!                                                                      !
!                                                                      !
!                                                                      !
!   double ans15;                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!** --- End Variable Declaration. ---                                  !
!                                                                      !
!** ---------------------------------                                  !
!                                                                      !
!*/                                                                    !
!                                                                      !
!/*                                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!** --- C code. ---                                                    !
!                                                                      !
!** ---------------                                                    !
!                                                                      !
!*/                                                                    !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	                                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(5.3));// d0*d0                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp1 = d0fftshiftd0(5.3);                                       !
!                                                                      !
!   ans1 = d0dispd0(__temp1);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(5.3*%i));// z0*z0                          !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp2 = d0z0OpStarz0(5.3,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp3 = z0fftshiftz0(__temp2);                                   !
!                                                                      !
!   ans2 = z0dispd0(__temp3);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(5.3  + 5.6*%i ));// z0*z0                  !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   __temp4 = d0z0OpStarz0(5.6,DoubleComplex(0,1));                    !
!                                                                      !
!   __temp5 = d0z0OpPlusz0(5.3,__temp4);                               !
!                                                                      !
!   __temp6 = z0fftshiftz0(__temp5);                                   !
!                                                                      !
!   ans3 = z0dispd0(__temp6);                                          !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	a = fft ([10 1 15 3.5 ]);                                !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(10,1,__temp7);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp7,  ____temp7Size,15,__temp8);                    !
!                                                                      !
!   d2d0OpRcd2(__temp8,  ____temp8Size,3.5,__temp9);                   !
!                                                                      !
!   d2fftd2(__temp9,  ____temp9Size,a);                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(a));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2fftshiftd2(a,  __aSize,__temp10);                                !
!                                                                      !
!   ans4 = d2dispd0(__temp10,  ____temp10Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	                                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ];              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(14,15,__temp11);                                        !
!                                                                      !
!   d2d0OpRcd2(__temp11,  ____temp11Size,2,__temp12);                  !
!                                                                      !
!   d2d0OpRcd2(__temp12,  ____temp12Size,6,__temp13);                  !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp14);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp14,  ____temp14Size,6,__temp15);                  !
!                                                                      !
!   d2d0OpRcd2(__temp15,  ____temp15Size,4,__temp16);                  !
!                                                                      !
!   d2d2OpCcd2(__temp13,  ____temp13Size,__temp16,  ____temp16Size,__te!
!     mp17);                                                           !
!                                                                      !
!   d0d0OpRcd2(48.5,3,__temp18);                                       !
!                                                                      !
!   d2d0OpRcd2(__temp18,  ____temp18Size,9.3,__temp19);                !
!                                                                      !
!   d2d0OpRcd2(__temp19,  ____temp19Size,1,__temp20);                  !
!                                                                      !
!   d2d2OpCcd2(__temp17,  ____temp17Size,__temp20,  ____temp20Size,b); !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2fftshiftd2(b,  __bSize,__temp21);                                !
!                                                                      !
!   ans5 = d2dispd0(__temp21,  ____temp21Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b , 1));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0fftshiftd2(b,  __bSize,1,__temp22);                            !
!                                                                      !
!   ans6 = d2dispd0(__temp22,  ____temp22Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b , 2));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0fftshiftd2(b,  __bSize,2,__temp23);                            !
!                                                                      !
!   ans7 = d2dispd0(__temp23,  ____temp23Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	//disp(fftshift(b , "all"));                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	c = [10 1 15 3.5 ]*%i;                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(10,1,__temp24);                                         !
!                                                                      !
!   d2d0OpRcd2(__temp24,  ____temp24Size,15,__temp25);                 !
!                                                                      !
!   d2d0OpRcd2(__temp25,  ____temp25Size,3.5,__temp26);                !
!                                                                      !
!   d2z0OpStarz2(__temp26,  ____temp26Size,DoubleComplex(0,1),c);      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(c));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2fftshiftz2(c,  __cSize,__temp27);                                !
!                                                                      !
!   ans8 = z2dispd0(__temp27,  ____temp27Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	                                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i;           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(14,15,__temp28);                                        !
!                                                                      !
!   d2d0OpRcd2(__temp28,  ____temp28Size,2,__temp29);                  !
!                                                                      !
!   d2d0OpRcd2(__temp29,  ____temp29Size,6,__temp30);                  !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp31);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp31,  ____temp31Size,6,__temp32);                  !
!                                                                      !
!   d2d0OpRcd2(__temp32,  ____temp32Size,4,__temp33);                  !
!                                                                      !
!   d2d2OpCcd2(__temp30,  ____temp30Size,__temp33,  ____temp33Size,__te!
!     mp34);                                                           !
!                                                                      !
!   d0d0OpRcd2(48.5,3,__temp35);                                       !
!                                                                      !
!   d2d0OpRcd2(__temp35,  ____temp35Size,9.3,__temp36);                !
!                                                                      !
!   d2d0OpRcd2(__temp36,  ____temp36Size,1,__temp37);                  !
!                                                                      !
!   d2d2OpCcd2(__temp34,  ____temp34Size,__temp37,  ____temp37Size,__te!
!     mp38);                                                           !
!                                                                      !
!   d2z0OpStarz2(__temp38,  ____temp38Size,DoubleComplex(0,1),d);      !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2fftshiftd2(b,  __bSize,__temp39);                                !
!                                                                      !
!   ans9 = d2dispd0(__temp39,  ____temp39Size);                        !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b , 1));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0fftshiftd2(b,  __bSize,1,__temp40);                            !
!                                                                      !
!   ans10 = d2dispd0(__temp40,  ____temp40Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(b , 2));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d2d0fftshiftd2(b,  __bSize,2,__temp41);                            !
!                                                                      !
!   ans11 = d2dispd0(__temp41,  ____temp41Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	//disp(fftshift(b , "all"));                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	e = c +  [10 1 15 3.5 ]*%i;                              !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(10,1,__temp42);                                         !
!                                                                      !
!   d2d0OpRcd2(__temp42,  ____temp42Size,15,__temp43);                 !
!                                                                      !
!   d2d0OpRcd2(__temp43,  ____temp43Size,3.5,__temp44);                !
!                                                                      !
!   d2z0OpStarz2(__temp44,  ____temp44Size,DoubleComplex(0,1),__temp45)!
!     ;                                                                !
!                                                                      !
!   z2z2OpPlusz2(c,  __cSize,__temp45,  ____temp45Size,e);             !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(e));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2fftshiftz2(e,  __eSize,__temp46);                                !
!                                                                      !
!   ans12 = z2dispd0(__temp46,  ____temp46Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	                                                         !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 !
!     ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i;                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   d0d0OpRcd2(18,15,__temp47);                                        !
!                                                                      !
!   d2d0OpRcd2(__temp47,  ____temp47Size,7,__temp48);                  !
!                                                                      !
!   d2d0OpRcd2(__temp48,  ____temp48Size,6,__temp49);                  !
!                                                                      !
!   d0d0OpRcd2(1,5,__temp50);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp50,  ____temp50Size,6,__temp51);                  !
!                                                                      !
!   d2d0OpRcd2(__temp51,  ____temp51Size,4,__temp52);                  !
!                                                                      !
!   d2d2OpCcd2(__temp49,  ____temp49Size,__temp52,  ____temp52Size,__te!
!     mp53);                                                           !
!                                                                      !
!   d0d0OpRcd2(43.5,1,__temp54);                                       !
!                                                                      !
!   d2d0OpRcd2(__temp54,  ____temp54Size,9.3,__temp55);                !
!                                                                      !
!   d2d0OpRcd2(__temp55,  ____temp55Size,1,__temp56);                  !
!                                                                      !
!   d2d2OpCcd2(__temp53,  ____temp53Size,__temp56,  ____temp56Size,__te!
!     mp57);                                                           !
!                                                                      !
!   d0d0OpRcd2(14,15,__temp58);                                        !
!                                                                      !
!   d2d0OpRcd2(__temp58,  ____temp58Size,2,__temp59);                  !
!                                                                      !
!   d2d0OpRcd2(__temp59,  ____temp59Size,6,__temp60);                  !
!                                                                      !
!   d0d0OpRcd2(1,2,__temp61);                                          !
!                                                                      !
!   d2d0OpRcd2(__temp61,  ____temp61Size,6,__temp62);                  !
!                                                                      !
!   d2d0OpRcd2(__temp62,  ____temp62Size,4,__temp63);                  !
!                                                                      !
!   d2d2OpCcd2(__temp60,  ____temp60Size,__temp63,  ____temp63Size,__te!
!     mp64);                                                           !
!                                                                      !
!   d0d0OpRcd2(48.5,3,__temp65);                                       !
!                                                                      !
!   d2d0OpRcd2(__temp65,  ____temp65Size,9.3,__temp66);                !
!                                                                      !
!   d2d0OpRcd2(__temp66,  ____temp66Size,1,__temp67);                  !
!                                                                      !
!   d2d2OpCcd2(__temp64,  ____temp64Size,__temp67,  ____temp67Size,__te!
!     mp68);                                                           !
!                                                                      !
!   d2z0OpStarz2(__temp68,  ____temp68Size,DoubleComplex(0,1),__temp69)!
!     ;                                                                !
!                                                                      !
!   d2z2OpPlusz2(__temp57,  ____temp57Size,__temp69,  ____temp69Size,f)!
!     ;                                                                !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(f));                                       !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2fftshiftz2(f,  __fSize,__temp70);                                !
!                                                                      !
!   ans13 = z2dispd0(__temp70,  ____temp70Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(f , 1));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2d0fftshiftz2(f,  __fSize,1,__temp71);                            !
!                                                                      !
!   ans14 = z2dispd0(__temp71,  ____temp71Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	disp(fftshift(f , 2));                                   !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!   z2d0fftshiftz2(f,  __fSize,2,__temp72);                            !
!                                                                      !
!   ans15 = z2dispd0(__temp72,  ____temp72Size);                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: 	//disp(fftshift(f , "all"));                             !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C: endfunction                                               !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   ** --- Free Section. ---                                           !
!                                                                      !
!   ** ---------------------                                           !
!                                                                      !
!   */                                                                 !
!                                                                      !
!   /*                                                                 !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   ** --- End Free Section. ---                                       !
!                                                                      !
!   ** -------------------------                                       !
!                                                                      !
!   */                                                                 !
!                                                                      !
!                                                                      !
!                                                                      !
!   return(0);                                                         !
!                                                                      !
!                                                                      !
!                                                                      !
!   /*SCI2C: ##########################################################!
!     ########                                                         !
!                                                                      !
!     SCI2C:                                                           !
!                                                                      !
!     SCI2C: ##########################################################!
!     ########*/                                                       !
!                                                                      !
!}                                                                     !
!                                                                      !
!                                                                      !
mclose(fd);