//
// 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);