//
// 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_IFFT.sci", TMPDIR);
-----------------------------------
--- Executing your SCILAB code. ---
-----------------------------------
2.
4. + i
1.5 - 0.5
0.6666667 0.1666667 - 1.4433757i 0.1666667 + 1.4433757i
1.5i - 0.5i
4.4
3.4 + i
7.375 - 1.25 - 0.625i 5.125 - 1.25 + 0.625i
********1*******
14.3 10.7
********2*******
column 1 to 3
2236.0314 1792.8169 - 1235.3786i 769.49776 - 2055.1006i
column 4 to 5
- 483.22773 - 2116.6758i - 1602.6181 - 1433.2571i
column 6 to 7
- 2132.1424 - 340.59732i - 1925.5675 + 921.43654i
column 8 to 9
- 1106.7043 + 1873.9016i 118.16434 + 2150.2941i
column 10 to 11
1373.4461 + 1728.4382i 2083.3191 + 665.95496i
column 12 to 13
2083.3191 - 665.95496i 1373.4461 - 1728.4382i
column 14 to 15
118.16434 - 2150.2941i - 1106.7043 - 1873.9016i
column 16 to 17
- 1925.5675 - 921.43654i - 2132.1424 + 340.59732i
column 18 to 19
- 1602.6181 + 1433.2571i - 483.22773 + 2116.6758i
column 20 to 21
769.49776 + 2055.1006i 1792.8169 + 1235.3786i
********3*********
7.375i 0.625 - 1.25i 5.125i - 0.625 - 1.25i
********4*********
14.3i 10.7i
********5***********
column 1 to 3
2236.0314i 1235.3786 + 1792.8169i 2055.1006 + 769.49776i
column 4 to 5
2116.6758 - 483.22773i 1433.2571 - 1602.6181i
column 6 to 7
340.59732 - 2132.1424i - 921.43654 - 1925.5675i
column 8 to 9
- 1873.9016 - 1106.7043i - 2150.2941 + 118.16434i
column 10 to 11
- 1728.4382 + 1373.4461i - 665.95496 + 2083.3191i
column 12 to 13
665.95496 + 2083.3191i 1728.4382 + 1373.4461i
column 14 to 15
2150.2941 + 118.16434i 1873.9016 - 1106.7043i
column 16 to 17
921.43654 - 1925.5675i - 340.59732 - 2132.1424i
column 18 to 19
- 1433.2571 - 1602.6181i - 2116.6758 - 483.22773i
column 20 to 21
- 2055.1006 + 769.49776i - 1235.3786 + 1792.8169i
********6***********
column 1 to 3
7.375 + 7.375i - 0.625 - 1.875i 5.125 + 5.125i
column 4
- 1.875 - 0.625i
********7***********
14.3 + 14.3i 10.7 + 10.7i
********8***********
column 1 to 2
2236.0314 + 2236.0314i 3028.1955 + 557.43835i
column 3 to 4
2824.5983 - 1285.6028i 1633.448 - 2599.9035i
column 5 to 6
- 169.36101 - 3035.8752i - 1791.5451 - 2472.7397i
column 7 to 8
- 2847.004 - 1004.1309i - 2980.6059 + 767.19736i
column 9 to 10
- 2032.1297 + 2268.4584i - 354.99203 + 3101.8843i
column 11 to 12
1417.3642 + 2749.2741i 2749.2741 + 1417.3642i
column 13 to 14
3101.8843 - 354.99203i 2268.4584 - 2032.1297i
column 15 to 16
767.19736 - 2980.6059i - 1004.1309 - 2847.004i
column 17 to 18
- 2472.7397 - 1791.5451i - 3035.8752 - 169.36101i
column 19 to 20
- 2599.9035 + 1633.448i - 1285.6028 + 2824.5983i
column 21
557.43835 + 3028.1955i
********************
*******************
*******************
********************
6.5625 - 1.125 - 0.6875i 3.1875 - 1.125 + 0.6875i
0.8125 - 0.125 + 0.0625i 1.9375 - 0.125 - 0.0625i
********9***********
8.95 5.55
5.35 5.15
********10**********
column 1 to 3
2702.1086 2173.7629 - 1504.7062i 958.3983 - 2473.753i
- 466.07714 - 380.94596 + 269.32767i - 188.90055 + 418.65244i
column 4 to 5
- 590.43082 - 2590.6981i - 1949.7881 - 1760.3148i
107.20309 + 474.0223i 347.16999 + 327.05766i
column 6 to 7
- 2598.9174 - 412.95691i - 2373.3059 + 1140.6306i
466.775 + 72.359584i 447.73845 - 219.19404i
column 8 to 9
- 1324.2514 + 2286.3879i 158.37631 + 2625.3279i
217.54714 - 412.48625i - 40.211977 - 475.03387i
column 10 to 11
1671.4325 + 2098.0929i 2531.4195 + 783.93509i
- 297.98631 - 369.65472i - 448.10032 - 117.98013i
column 12 to 13
2531.4195 - 783.93509i 1671.4325 - 2098.0929i
- 448.10032 + 117.98013i - 297.98631 + 369.65472i
column 14 to 15
158.37631 - 2625.3279i - 1324.2514 - 2286.3879i
- 40.211977 + 475.03387i 217.54714 + 412.48625i
column 16 to 17
- 2373.3059 - 1140.6306i - 2598.9174 + 412.95691i
447.73845 + 219.19404i 466.775 - 72.359584i
column 18 to 19
- 1949.7881 + 1760.3148i - 590.43082 + 2590.6981i
347.16999 - 327.05766i 107.20309 - 474.0223i
column 20 to 21
958.3983 + 2473.753i 2173.7629 + 1504.7062i
- 188.90055 - 418.65244i - 380.94596 - 269.32767i
********11**********
6.4375i - 0.3125 - 0.75i 2.5625i 0.3125 - 0.75i
0.9375i 0.9375 - 0.5i 2.5625i - 0.9375 - 0.5i
********12**********
9.625i 4.875i
4.675i 5.825i
********13**********
column 1 to 3
2702.1086i 1504.7062 + 2173.7629i 2473.753 + 958.3983i
- 466.07714i - 269.32767 - 380.94596i - 418.65244 - 188.90055i
column 4 to 5
2590.6981 - 590.43082i 1760.3148 - 1949.7881i
- 474.0223 + 107.20309i - 327.05766 + 347.16999i
column 6 to 7
412.95691 - 2598.9174i - 1140.6306 - 2373.3059i
- 72.359584 + 466.775i 219.19404 + 447.73845i
column 8 to 9
- 2286.3879 - 1324.2514i - 2625.3279 + 158.37631i
412.48625 + 217.54714i 475.03387 - 40.211977i
column 10 to 11
- 2098.0929 + 1671.4325i - 783.93509 + 2531.4195i
369.65472 - 297.98631i 117.98013 - 448.10032i
column 12 to 13
783.93509 + 2531.4195i 2098.0929 + 1671.4325i
- 117.98013 - 448.10032i - 369.65472 - 297.98631i
column 14 to 15
2625.3279 + 158.37631i 2286.3879 - 1324.2514i
- 475.03387 - 40.211977i - 412.48625 + 217.54714i
column 16 to 17
1140.6306 - 2373.3059i - 412.95691 - 2598.9174i
- 219.19404 + 447.73845i 72.359584 + 466.775i
column 18 to 19
- 1760.3148 - 1949.7881i - 2590.6981 - 590.43082i
327.05766 + 347.16999i 474.0223 + 107.20309i
column 20 to 21
- 2473.753 + 958.3983i - 1504.7062 + 2173.7629i
418.65244 - 188.90055i 269.32767 - 380.94596i
********14**********
column 1 to 3
6.5625 + 6.4375i - 1.4375 - 1.4375i 3.1875 + 2.5625i
0.8125 + 0.9375i 0.8125 - 0.4375i 1.9375 + 2.5625i
column 4
- 0.8125 - 0.0625i
- 1.0625 - 0.5625i
********15**********
8.95 + 9.625i 5.55 + 4.875i
5.35 + 4.675i 5.15 + 5.825i
********16**********
column 1 to 2
2702.1086 + 2702.1086i 3678.4691 + 669.05664i
- 466.07714 - 466.07714i - 650.27363 - 111.61828i
column 3 to 4
3432.1513 - 1515.3547i 2000.2672 - 3181.1289i
- 607.55299 + 229.7519i - 366.81921 + 581.22539i
column 5 to 6
- 189.47334 - 3710.1029i - 2185.9605 - 3011.8743i
20.112333 + 674.22765i 394.41542 + 539.13459i
column 7 to 8
- 3513.9365 - 1232.6753i - 3610.6393 + 962.13647i
666.93249 + 228.54441i 630.03339 - 194.93911i
column 9 to 10
- 2466.9516 + 2783.7043i - 426.66045 + 3769.5253i
434.8219 - 515.24585i 71.668414 - 667.64102i
column 11 to 12
1747.4844 + 3315.3546i 3315.3546 + 1747.4844i
- 330.12019 - 566.08045i - 566.08045 - 330.12019i
column 13 to 14
3769.5253 - 426.66045i 2783.7043 - 2466.9516i
- 667.64102 + 71.668414i - 515.24585 + 434.8219i
column 15 to 16
962.13647 - 3610.6393i - 1232.6753 - 3513.9365i
- 194.93911 + 630.03339i 228.54441 + 666.93249i
column 17 to 18
- 3011.8743 - 2185.9605i - 3710.1029 - 189.47334i
539.13459 + 394.41542i 674.22765 + 20.112333i
column 19 to 20
- 3181.1289 + 2000.2672i - 1515.3547 + 3432.1513i
581.22539 - 366.81921i 229.7519 - 607.55299i
column 21
669.05664 + 3678.4691i
- 111.61828 - 650.27363i
------------------------------------------
--- 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_IFFT"
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab.
==> Generate the AST.
==> Generate C code in TMPDIR/main.c
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(2)); // d0IFFTd0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(%i + 4)) // z0IFFTz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft([1 2])); // d2IFFTd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(4.4))
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(%i + 3.4))
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // one input
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: Abis = a + zeros(a)*%i ;
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(Abis));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********1*******");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: b = [25 3.6]; // d2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(b));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********2*******");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456
56 72.3 ]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: cbis = c + zeros(c)*%i ;
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(cbis));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********3*********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // pure imaginary
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(d));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********4*********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: e = [25 3.6]*%i; // z2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(e));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********5***********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36
45656 72.3 ]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(f));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********6***********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // full complex
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(g));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********7***********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: h = b + [25 3.6]*%i; // z2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(h));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********8***********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.
36 45656 72.3 ]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(j));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********************");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("*******************");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("*******************");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********************");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // ********************
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // MATRIX
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // ********************
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // one input
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(aa));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********9***********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(bb));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********10**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45
656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554
6 1.78 ]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(cc));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********11**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // pure imaginary
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(dd));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********12**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(ee));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********13**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36
45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12
65546 1.78 ]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(ff));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********14**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: // full complex
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: gg = aa + dd; //z2Fftz2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(gg));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********15**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: hh = bb + ee; // z2Fftd2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(hh));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp("********16**********");
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: jj= cc + ff
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(ifft(jj));
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: endfunction
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
==> Copying sources
==> Copying headers
==> Copying interfaces
==> Generating Builder TMPDIR/Makefile
==> Translation Successfully Completed!!!
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_IFFT() !
! !
! SCI2C: -------------------------------------------------------------!
! ----- !
! !
!*/ !
! !
!int main() !
! !
!{ !
! !
!/* !
! !
!** ----------------------------- !
! !
!** --- Variable Declaration. --- !
! !
!** ----------------------------- !
! !
!*/ !
! !
! !
! !
! double __temp1; !
! !
! !
! !
! double ans1; !
! !
! !
! !
! doubleComplex __temp2; !
! !
! !
! !
! doubleComplex __temp3; !
! !
! !
! !
! double ans2; !
! !
! !
! !
! double __temp4[1 * 2]; !
! !
! int ____temp4Size[2] = {1, 2};; !
! !
! !
! !
! double __temp5[1 * 2]; !
! !
! int ____temp5Size[2] = {1, 2};; !
! !
! !
! !
! double ans3; !
! !
! !
! !
! double __temp6[1 * 2]; !
! !
! int ____temp6Size[2] = {1, 2};; !
! !
! !
! !
! double __temp7[1 * 3]; !
! !
! int ____temp7Size[2] = {1, 3};; !
! !
! !
! !
! double __temp8[1 * 3]; !
! !
! int ____temp8Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp9[1 * 3]; !
! !
! int ____temp9Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp10[1 * 3]; !
! !
! int ____temp10Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp11[1 * 3]; !
! !
! int ____temp11Size[2] = {1, 3};; !
! !
! !
! !
! double ans4; !
! !
! !
! !
! double __temp12[1 * 2]; !
! !
! int ____temp12Size[2] = {1, 2};; !
! !
! !
! !
! doubleComplex __temp13[1 * 2]; !
! !
! int ____temp13Size[2] = {1, 2};; !
! !
! !
! !
! doubleComplex __temp14[1 * 2]; !
! !
! int ____temp14Size[2] = {1, 2};; !
! !
! !
! !
! double ans5; !
! !
! !
! !
! double __temp15; !
! !
! !
! !
! double ans6; !
! !
! !
! !
! doubleComplex __temp16; !
! !
! !
! !
! doubleComplex __temp17; !
! !
! !
! !
! double ans7; !
! !
! !
! !
! double __temp18[1 * 2]; !
! !
! int ____temp18Size[2] = {1, 2};; !
! !
! !
! !
! double __temp19[1 * 3]; !
! !
! int ____temp19Size[2] = {1, 3};; !
! !
! !
! !
! double a[1 * 4]; !
! !
! int __aSize[2] = {1, 4};; !
! !
! !
! !
! double __temp20[1 * 4]; !
! !
! int ____temp20Size[2] = {1, 4};; !
! !
! !
! !
! doubleComplex __temp21[1 * 4]; !
! !
! int ____temp21Size[2] = {1, 4};; !
! !
! !
! !
! doubleComplex Abis[1 * 4]; !
! !
! int __AbisSize[2] = {1, 4};; !
! !
! !
! !
! doubleComplex __temp22[1 * 4]; !
! !
! int ____temp22Size[2] = {1, 4};; !
! !
! !
! !
! double ans8; !
! !
! !
! !
! char __temp23[1*17] = {"********1*******"}; !
! !
! int ____temp23Size[2] = {1,17}; !
! !
! !
! !
! double ans9; !
! !
! !
! !
! double b[1 * 2]; !
! !
! int __bSize[2] = {1, 2};; !
! !
! !
! !
! double __temp24[1 * 2]; !
! !
! int ____temp24Size[2] = {1, 2};; !
! !
! !
! !
! double ans10; !
! !
! !
! !
! char __temp25[1*17] = {"********2*******"}; !
! !
! int ____temp25Size[2] = {1,17}; !
! !
! !
! !
! double ans11; !
! !
! !
! !
! double __temp26[1 * 2]; !
! !
! int ____temp26Size[2] = {1, 2};; !
! !
! !
! !
! double __temp27[1 * 3]; !
! !
! int ____temp27Size[2] = {1, 3};; !
! !
! !
! !
! double __temp28[1 * 4]; !
! !
! int ____temp28Size[2] = {1, 4};; !
! !
! !
! !
! double __temp29[1 * 5]; !
! !
! int ____temp29Size[2] = {1, 5};; !
! !
! !
! !
! double __temp30[1 * 6]; !
! !
! int ____temp30Size[2] = {1, 6};; !
! !
! !
! !
! double __temp31[1 * 7]; !
! !
! int ____temp31Size[2] = {1, 7};; !
! !
! !
! !
! double __temp32[1 * 8]; !
! !
! int ____temp32Size[2] = {1, 8};; !
! !
! !
! !
! double __temp33[1 * 9]; !
! !
! int ____temp33Size[2] = {1, 9};; !
! !
! !
! !
! double __temp34[1 * 10]; !
! !
! int ____temp34Size[2] = {1, 10};; !
! !
! !
! !
! double __temp35[1 * 11]; !
! !
! int ____temp35Size[2] = {1, 11};; !
! !
! !
! !
! double __temp36[1 * 12]; !
! !
! int ____temp36Size[2] = {1, 12};; !
! !
! !
! !
! double __temp37[1 * 13]; !
! !
! int ____temp37Size[2] = {1, 13};; !
! !
! !
! !
! double __temp38[1 * 14]; !
! !
! int ____temp38Size[2] = {1, 14};; !
! !
! !
! !
! double __temp39[1 * 15]; !
! !
! int ____temp39Size[2] = {1, 15};; !
! !
! !
! !
! double __temp40[1 * 16]; !
! !
! int ____temp40Size[2] = {1, 16};; !
! !
! !
! !
! double __temp41[1 * 17]; !
! !
! int ____temp41Size[2] = {1, 17};; !
! !
! !
! !
! double __temp42[1 * 18]; !
! !
! int ____temp42Size[2] = {1, 18};; !
! !
! !
! !
! double __temp43[1 * 19]; !
! !
! int ____temp43Size[2] = {1, 19};; !
! !
! !
! !
! double __temp44[1 * 20]; !
! !
! int ____temp44Size[2] = {1, 20};; !
! !
! !
! !
! double c[1 * 21]; !
! !
! int __cSize[2] = {1, 21};; !
! !
! !
! !
! double __temp45[1 * 21]; !
! !
! int ____temp45Size[2] = {1, 21};; !
! !
! !
! !
! doubleComplex __temp46[1 * 21]; !
! !
! int ____temp46Size[2] = {1, 21};; !
! !
! !
! !
! doubleComplex cbis[1 * 21]; !
! !
! int __cbisSize[2] = {1, 21};; !
! !
! !
! !
! doubleComplex __temp47[1 * 21]; !
! !
! int ____temp47Size[2] = {1, 21};; !
! !
! !
! !
! double ans12; !
! !
! !
! !
! char __temp48[1*19] = {"********3*********"}; !
! !
! int ____temp48Size[2] = {1,19}; !
! !
! !
! !
! double ans13; !
! !
! !
! !
! double __temp49[1 * 2]; !
! !
! int ____temp49Size[2] = {1, 2};; !
! !
! !
! !
! double __temp50[1 * 3]; !
! !
! int ____temp50Size[2] = {1, 3};; !
! !
! !
! !
! double __temp51[1 * 4]; !
! !
! int ____temp51Size[2] = {1, 4};; !
! !
! !
! !
! doubleComplex d[1 * 4]; !
! !
! int __dSize[2] = {1, 4};; !
! !
! !
! !
! doubleComplex __temp52[1 * 4]; !
! !
! int ____temp52Size[2] = {1, 4};; !
! !
! !
! !
! double ans14; !
! !
! !
! !
! char __temp53[1*19] = {"********4*********"}; !
! !
! int ____temp53Size[2] = {1,19}; !
! !
! !
! !
! double ans15; !
! !
! !
! !
! double __temp54[1 * 2]; !
! !
! int ____temp54Size[2] = {1, 2};; !
! !
! !
! !
! doubleComplex e[1 * 2]; !
! !
! int __eSize[2] = {1, 2};; !
! !
! !
! !
! doubleComplex __temp55[1 * 2]; !
! !
! int ____temp55Size[2] = {1, 2};; !
! !
! !
! !
! double ans16; !
! !
! !
! !
! char __temp56[1*21] = {"********5***********"}; !
! !
! int ____temp56Size[2] = {1,21}; !
! !
! !
! !
! double ans17; !
! !
! !
! !
! double __temp57[1 * 2]; !
! !
! int ____temp57Size[2] = {1, 2};; !
! !
! !
! !
! double __temp58[1 * 3]; !
! !
! int ____temp58Size[2] = {1, 3};; !
! !
! !
! !
! double __temp59[1 * 4]; !
! !
! int ____temp59Size[2] = {1, 4};; !
! !
! !
! !
! double __temp60[1 * 5]; !
! !
! int ____temp60Size[2] = {1, 5};; !
! !
! !
! !
! double __temp61[1 * 6]; !
! !
! int ____temp61Size[2] = {1, 6};; !
! !
! !
! !
! double __temp62[1 * 7]; !
! !
! int ____temp62Size[2] = {1, 7};; !
! !
! !
! !
! double __temp63[1 * 8]; !
! !
! int ____temp63Size[2] = {1, 8};; !
! !
! !
! !
! double __temp64[1 * 9]; !
! !
! int ____temp64Size[2] = {1, 9};; !
! !
! !
! !
! double __temp65[1 * 10]; !
! !
! int ____temp65Size[2] = {1, 10};; !
! !
! !
! !
! double __temp66[1 * 11]; !
! !
! int ____temp66Size[2] = {1, 11};; !
! !
! !
! !
! double __temp67[1 * 12]; !
! !
! int ____temp67Size[2] = {1, 12};; !
! !
! !
! !
! double __temp68[1 * 13]; !
! !
! int ____temp68Size[2] = {1, 13};; !
! !
! !
! !
! double __temp69[1 * 14]; !
! !
! int ____temp69Size[2] = {1, 14};; !
! !
! !
! !
! double __temp70[1 * 15]; !
! !
! int ____temp70Size[2] = {1, 15};; !
! !
! !
! !
! double __temp71[1 * 16]; !
! !
! int ____temp71Size[2] = {1, 16};; !
! !
! !
! !
! double __temp72[1 * 17]; !
! !
! int ____temp72Size[2] = {1, 17};; !
! !
! !
! !
! double __temp73[1 * 18]; !
! !
! int ____temp73Size[2] = {1, 18};; !
! !
! !
! !
! double __temp74[1 * 19]; !
! !
! int ____temp74Size[2] = {1, 19};; !
! !
! !
! !
! double __temp75[1 * 20]; !
! !
! int ____temp75Size[2] = {1, 20};; !
! !
! !
! !
! double __temp76[1 * 21]; !
! !
! int ____temp76Size[2] = {1, 21};; !
! !
! !
! !
! doubleComplex f[1 * 21]; !
! !
! int __fSize[2] = {1, 21};; !
! !
! !
! !
! doubleComplex __temp77[1 * 21]; !
! !
! int ____temp77Size[2] = {1, 21};; !
! !
! !
! !
! double ans18; !
! !
! !
! !
! char __temp78[1*21] = {"********6***********"}; !
! !
! int ____temp78Size[2] = {1,21}; !
! !
! !
! !
! double ans19; !
! !
! !
! !
! double __temp79[1 * 2]; !
! !
! int ____temp79Size[2] = {1, 2};; !
! !
! !
! !
! double __temp80[1 * 3]; !
! !
! int ____temp80Size[2] = {1, 3};; !
! !
! !
! !
! double __temp81[1 * 4]; !
! !
! int ____temp81Size[2] = {1, 4};; !
! !
! !
! !
! doubleComplex __temp82[1 * 4]; !
! !
! int ____temp82Size[2] = {1, 4};; !
! !
! !
! !
! doubleComplex g[1 * 4]; !
! !
! int __gSize[2] = {1, 4};; !
! !
! !
! !
! doubleComplex __temp83[1 * 4]; !
! !
! int ____temp83Size[2] = {1, 4};; !
! !
! !
! !
! double ans20; !
! !
! !
! !
! char __temp84[1*21] = {"********7***********"}; !
! !
! int ____temp84Size[2] = {1,21}; !
! !
! !
! !
! double ans21; !
! !
! !
! !
! double __temp85[1 * 2]; !
! !
! int ____temp85Size[2] = {1, 2};; !
! !
! !
! !
! doubleComplex __temp86[1 * 2]; !
! !
! int ____temp86Size[2] = {1, 2};; !
! !
! !
! !
! doubleComplex h[1 * 2]; !
! !
! int __hSize[2] = {1, 2};; !
! !
! !
! !
! doubleComplex __temp87[1 * 2]; !
! !
! int ____temp87Size[2] = {1, 2};; !
! !
! !
! !
! double ans22; !
! !
! !
! !
! char __temp88[1*21] = {"********8***********"}; !
! !
! int ____temp88Size[2] = {1,21}; !
! !
! !
! !
! double ans23; !
! !
! !
! !
! double __temp89[1 * 2]; !
! !
! int ____temp89Size[2] = {1, 2};; !
! !
! !
! !
! double __temp90[1 * 3]; !
! !
! int ____temp90Size[2] = {1, 3};; !
! !
! !
! !
! double __temp91[1 * 4]; !
! !
! int ____temp91Size[2] = {1, 4};; !
! !
! !
! !
! double __temp92[1 * 5]; !
! !
! int ____temp92Size[2] = {1, 5};; !
! !
! !
! !
! double __temp93[1 * 6]; !
! !
! int ____temp93Size[2] = {1, 6};; !
! !
! !
! !
! double __temp94[1 * 7]; !
! !
! int ____temp94Size[2] = {1, 7};; !
! !
! !
! !
! double __temp95[1 * 8]; !
! !
! int ____temp95Size[2] = {1, 8};; !
! !
! !
! !
! double __temp96[1 * 9]; !
! !
! int ____temp96Size[2] = {1, 9};; !
! !
! !
! !
! double __temp97[1 * 10]; !
! !
! int ____temp97Size[2] = {1, 10};; !
! !
! !
! !
! double __temp98[1 * 11]; !
! !
! int ____temp98Size[2] = {1, 11};; !
! !
! !
! !
! double __temp99[1 * 12]; !
! !
! int ____temp99Size[2] = {1, 12};; !
! !
! !
! !
! double __temp100[1 * 13]; !
! !
! int ____temp100Size[2] = {1, 13};; !
! !
! !
! !
! double __temp101[1 * 14]; !
! !
! int ____temp101Size[2] = {1, 14};; !
! !
! !
! !
! double __temp102[1 * 15]; !
! !
! int ____temp102Size[2] = {1, 15};; !
! !
! !
! !
! double __temp103[1 * 16]; !
! !
! int ____temp103Size[2] = {1, 16};; !
! !
! !
! !
! double __temp104[1 * 17]; !
! !
! int ____temp104Size[2] = {1, 17};; !
! !
! !
! !
! double __temp105[1 * 18]; !
! !
! int ____temp105Size[2] = {1, 18};; !
! !
! !
! !
! double __temp106[1 * 19]; !
! !
! int ____temp106Size[2] = {1, 19};; !
! !
! !
! !
! double __temp107[1 * 20]; !
! !
! int ____temp107Size[2] = {1, 20};; !
! !
! !
! !
! double __temp108[1 * 21]; !
! !
! int ____temp108Size[2] = {1, 21};; !
! !
! !
! !
! doubleComplex __temp109[1 * 21]; !
! !
! int ____temp109Size[2] = {1, 21};; !
! !
! !
! !
! doubleComplex j[1 * 21]; !
! !
! int __jSize[2] = {1, 21};; !
! !
! !
! !
! doubleComplex __temp110[1 * 21]; !
! !
! int ____temp110Size[2] = {1, 21};; !
! !
! !
! !
! double ans24; !
! !
! !
! !
! char __temp111[1*21] = {"********************"}; !
! !
! int ____temp111Size[2] = {1,21}; !
! !
! !
! !
! double ans25; !
! !
! !
! !
! char __temp112[1*20] = {"*******************"}; !
! !
! int ____temp112Size[2] = {1,20}; !
! !
! !
! !
! double ans26; !
! !
! !
! !
! char __temp113[1*20] = {"*******************"}; !
! !
! int ____temp113Size[2] = {1,20}; !
! !
! !
! !
! double ans27; !
! !
! !
! !
! char __temp114[1*21] = {"********************"}; !
! !
! int ____temp114Size[2] = {1,21}; !
! !
! !
! !
! double ans28; !
! !
! !
! !
! double __temp115[1 * 2]; !
! !
! int ____temp115Size[2] = {1, 2};; !
! !
! !
! !
! double __temp116[1 * 3]; !
! !
! int ____temp116Size[2] = {1, 3};; !
! !
! !
! !
! double __temp117[1 * 4]; !
! !
! int ____temp117Size[2] = {1, 4};; !
! !
! !
! !
! double __temp118[1 * 2]; !
! !
! int ____temp118Size[2] = {1, 2};; !
! !
! !
! !
! double __temp119[1 * 3]; !
! !
! int ____temp119Size[2] = {1, 3};; !
! !
! !
! !
! double __temp120[1 * 4]; !
! !
! int ____temp120Size[2] = {1, 4};; !
! !
! !
! !
! double aa[2 * 4]; !
! !
! int __aaSize[2] = {2, 4};; !
! !
! !
! !
! double __temp121[2 * 4]; !
! !
! int ____temp121Size[2] = {2, 4};; !
! !
! !
! !
! double ans29; !
! !
! !
! !
! char __temp122[1*21] = {"********9***********"}; !
! !
! int ____temp122Size[2] = {1,21}; !
! !
! !
! !
! double ans30; !
! !
! !
! !
! double __temp123[1 * 2]; !
! !
! int ____temp123Size[2] = {1, 2};; !
! !
! !
! !
! double __temp124[1 * 2]; !
! !
! int ____temp124Size[2] = {1, 2};; !
! !
! !
! !
! double bb[2 * 2]; !
! !
! int __bbSize[2] = {2, 2};; !
! !
! !
! !
! double __temp125[2 * 2]; !
! !
! int ____temp125Size[2] = {2, 2};; !
! !
! !
! !
! double ans31; !
! !
! !
! !
! char __temp126[1*21] = {"********10**********"}; !
! !
! int ____temp126Size[2] = {1,21}; !
! !
! !
! !
! double ans32; !
! !
! !
! !
! double __temp127[1 * 2]; !
! !
! int ____temp127Size[2] = {1, 2};; !
! !
! !
! !
! double __temp128[1 * 3]; !
! !
! int ____temp128Size[2] = {1, 3};; !
! !
! !
! !
! double __temp129[1 * 4]; !
! !
! int ____temp129Size[2] = {1, 4};; !
! !
! !
! !
! double __temp130[1 * 5]; !
! !
! int ____temp130Size[2] = {1, 5};; !
! !
! !
! !
! double __temp131[1 * 6]; !
! !
! int ____temp131Size[2] = {1, 6};; !
! !
! !
! !
! double __temp132[1 * 7]; !
! !
! int ____temp132Size[2] = {1, 7};; !
! !
! !
! !
! double __temp133[1 * 8]; !
! !
! int ____temp133Size[2] = {1, 8};; !
! !
! !
! !
! double __temp134[1 * 9]; !
! !
! int ____temp134Size[2] = {1, 9};; !
! !
! !
! !
! double __temp135[1 * 10]; !
! !
! int ____temp135Size[2] = {1, 10};; !
! !
! !
! !
! double __temp136[1 * 11]; !
! !
! int ____temp136Size[2] = {1, 11};; !
! !
! !
! !
! double __temp137[1 * 12]; !
! !
! int ____temp137Size[2] = {1, 12};; !
! !
! !
! !
! double __temp138[1 * 13]; !
! !
! int ____temp138Size[2] = {1, 13};; !
! !
! !
! !
! double __temp139[1 * 14]; !
! !
! int ____temp139Size[2] = {1, 14};; !
! !
! !
! !
! double __temp140[1 * 15]; !
! !
! int ____temp140Size[2] = {1, 15};; !
! !
! !
! !
! double __temp141[1 * 16]; !
! !
! int ____temp141Size[2] = {1, 16};; !
! !
! !
! !
! double __temp142[1 * 17]; !
! !
! int ____temp142Size[2] = {1, 17};; !
! !
! !
! !
! double __temp143[1 * 18]; !
! !
! int ____temp143Size[2] = {1, 18};; !
! !
! !
! !
! double __temp144[1 * 19]; !
! !
! int ____temp144Size[2] = {1, 19};; !
! !
! !
! !
! double __temp145[1 * 20]; !
! !
! int ____temp145Size[2] = {1, 20};; !
! !
! !
! !
! double __temp146[1 * 21]; !
! !
! int ____temp146Size[2] = {1, 21};; !
! !
! !
! !
! double __temp147[1 * 2]; !
! !
! int ____temp147Size[2] = {1, 2};; !
! !
! !
! !
! double __temp148[1 * 3]; !
! !
! int ____temp148Size[2] = {1, 3};; !
! !
! !
! !
! double __temp149[1 * 4]; !
! !
! int ____temp149Size[2] = {1, 4};; !
! !
! !
! !
! double __temp150[1 * 5]; !
! !
! int ____temp150Size[2] = {1, 5};; !
! !
! !
! !
! double __temp151[1 * 6]; !
! !
! int ____temp151Size[2] = {1, 6};; !
! !
! !
! !
! double __temp152[1 * 7]; !
! !
! int ____temp152Size[2] = {1, 7};; !
! !
! !
! !
! double __temp153[1 * 8]; !
! !
! int ____temp153Size[2] = {1, 8};; !
! !
! !
! !
! double __temp154[1 * 9]; !
! !
! int ____temp154Size[2] = {1, 9};; !
! !
! !
! !
! double __temp155[1 * 10]; !
! !
! int ____temp155Size[2] = {1, 10};; !
! !
! !
! !
! double __temp156[1 * 11]; !
! !
! int ____temp156Size[2] = {1, 11};; !
! !
! !
! !
! double __temp157[1 * 12]; !
! !
! int ____temp157Size[2] = {1, 12};; !
! !
! !
! !
! double __temp158[1 * 13]; !
! !
! int ____temp158Size[2] = {1, 13};; !
! !
! !
! !
! double __temp159[1 * 14]; !
! !
! int ____temp159Size[2] = {1, 14};; !
! !
! !
! !
! double __temp160[1 * 15]; !
! !
! int ____temp160Size[2] = {1, 15};; !
! !
! !
! !
! double __temp161[1 * 16]; !
! !
! int ____temp161Size[2] = {1, 16};; !
! !
! !
! !
! double __temp162[1 * 17]; !
! !
! int ____temp162Size[2] = {1, 17};; !
! !
! !
! !
! double __temp163[1 * 18]; !
! !
! int ____temp163Size[2] = {1, 18};; !
! !
! !
! !
! double __temp164[1 * 19]; !
! !
! int ____temp164Size[2] = {1, 19};; !
! !
! !
! !
! double __temp165[1 * 20]; !
! !
! int ____temp165Size[2] = {1, 20};; !
! !
! !
! !
! double __temp166[1 * 21]; !
! !
! int ____temp166Size[2] = {1, 21};; !
! !
! !
! !
! double cc[2 * 21]; !
! !
! int __ccSize[2] = {2, 21};; !
! !
! !
! !
! double __temp167[2 * 21]; !
! !
! int ____temp167Size[2] = {2, 21};; !
! !
! !
! !
! double ans33; !
! !
! !
! !
! char __temp168[1*21] = {"********11**********"}; !
! !
! int ____temp168Size[2] = {1,21}; !
! !
! !
! !
! double ans34; !
! !
! !
! !
! double __temp169[1 * 2]; !
! !
! int ____temp169Size[2] = {1, 2};; !
! !
! !
! !
! double __temp170[1 * 3]; !
! !
! int ____temp170Size[2] = {1, 3};; !
! !
! !
! !
! double __temp171[1 * 4]; !
! !
! int ____temp171Size[2] = {1, 4};; !
! !
! !
! !
! double __temp172[1 * 2]; !
! !
! int ____temp172Size[2] = {1, 2};; !
! !
! !
! !
! double __temp173[1 * 3]; !
! !
! int ____temp173Size[2] = {1, 3};; !
! !
! !
! !
! double __temp174[1 * 4]; !
! !
! int ____temp174Size[2] = {1, 4};; !
! !
! !
! !
! double __temp175[2 * 4]; !
! !
! int ____temp175Size[2] = {2, 4};; !
! !
! !
! !
! doubleComplex dd[2 * 4]; !
! !
! int __ddSize[2] = {2, 4};; !
! !
! !
! !
! doubleComplex __temp176[2 * 4]; !
! !
! int ____temp176Size[2] = {2, 4};; !
! !
! !
! !
! double ans35; !
! !
! !
! !
! char __temp177[1*21] = {"********12**********"}; !
! !
! int ____temp177Size[2] = {1,21}; !
! !
! !
! !
! double ans36; !
! !
! !
! !
! double __temp178[1 * 2]; !
! !
! int ____temp178Size[2] = {1, 2};; !
! !
! !
! !
! double __temp179[1 * 2]; !
! !
! int ____temp179Size[2] = {1, 2};; !
! !
! !
! !
! double __temp180[2 * 2]; !
! !
! int ____temp180Size[2] = {2, 2};; !
! !
! !
! !
! doubleComplex ee[2 * 2]; !
! !
! int __eeSize[2] = {2, 2};; !
! !
! !
! !
! doubleComplex __temp181[2 * 2]; !
! !
! int ____temp181Size[2] = {2, 2};; !
! !
! !
! !
! double ans37; !
! !
! !
! !
! char __temp182[1*21] = {"********13**********"}; !
! !
! int ____temp182Size[2] = {1,21}; !
! !
! !
! !
! double ans38; !
! !
! !
! !
! double __temp183[1 * 2]; !
! !
! int ____temp183Size[2] = {1, 2};; !
! !
! !
! !
! double __temp184[1 * 3]; !
! !
! int ____temp184Size[2] = {1, 3};; !
! !
! !
! !
! double __temp185[1 * 4]; !
! !
! int ____temp185Size[2] = {1, 4};; !
! !
! !
! !
! double __temp186[1 * 5]; !
! !
! int ____temp186Size[2] = {1, 5};; !
! !
! !
! !
! double __temp187[1 * 6]; !
! !
! int ____temp187Size[2] = {1, 6};; !
! !
! !
! !
! double __temp188[1 * 7]; !
! !
! int ____temp188Size[2] = {1, 7};; !
! !
! !
! !
! double __temp189[1 * 8]; !
! !
! int ____temp189Size[2] = {1, 8};; !
! !
! !
! !
! double __temp190[1 * 9]; !
! !
! int ____temp190Size[2] = {1, 9};; !
! !
! !
! !
! double __temp191[1 * 10]; !
! !
! int ____temp191Size[2] = {1, 10};; !
! !
! !
! !
! double __temp192[1 * 11]; !
! !
! int ____temp192Size[2] = {1, 11};; !
! !
! !
! !
! double __temp193[1 * 12]; !
! !
! int ____temp193Size[2] = {1, 12};; !
! !
! !
! !
! double __temp194[1 * 13]; !
! !
! int ____temp194Size[2] = {1, 13};; !
! !
! !
! !
! double __temp195[1 * 14]; !
! !
! int ____temp195Size[2] = {1, 14};; !
! !
! !
! !
! double __temp196[1 * 15]; !
! !
! int ____temp196Size[2] = {1, 15};; !
! !
! !
! !
! double __temp197[1 * 16]; !
! !
! int ____temp197Size[2] = {1, 16};; !
! !
! !
! !
! double __temp198[1 * 17]; !
! !
! int ____temp198Size[2] = {1, 17};; !
! !
! !
! !
! double __temp199[1 * 18]; !
! !
! int ____temp199Size[2] = {1, 18};; !
! !
! !
! !
! double __temp200[1 * 19]; !
! !
! int ____temp200Size[2] = {1, 19};; !
! !
! !
! !
! double __temp201[1 * 20]; !
! !
! int ____temp201Size[2] = {1, 20};; !
! !
! !
! !
! double __temp202[1 * 21]; !
! !
! int ____temp202Size[2] = {1, 21};; !
! !
! !
! !
! double __temp203[1 * 2]; !
! !
! int ____temp203Size[2] = {1, 2};; !
! !
! !
! !
! double __temp204[1 * 3]; !
! !
! int ____temp204Size[2] = {1, 3};; !
! !
! !
! !
! double __temp205[1 * 4]; !
! !
! int ____temp205Size[2] = {1, 4};; !
! !
! !
! !
! double __temp206[1 * 5]; !
! !
! int ____temp206Size[2] = {1, 5};; !
! !
! !
! !
! double __temp207[1 * 6]; !
! !
! int ____temp207Size[2] = {1, 6};; !
! !
! !
! !
! double __temp208[1 * 7]; !
! !
! int ____temp208Size[2] = {1, 7};; !
! !
! !
! !
! double __temp209[1 * 8]; !
! !
! int ____temp209Size[2] = {1, 8};; !
! !
! !
! !
! double __temp210[1 * 9]; !
! !
! int ____temp210Size[2] = {1, 9};; !
! !
! !
! !
! double __temp211[1 * 10]; !
! !
! int ____temp211Size[2] = {1, 10};; !
! !
! !
! !
! double __temp212[1 * 11]; !
! !
! int ____temp212Size[2] = {1, 11};; !
! !
! !
! !
! double __temp213[1 * 12]; !
! !
! int ____temp213Size[2] = {1, 12};; !
! !
! !
! !
! double __temp214[1 * 13]; !
! !
! int ____temp214Size[2] = {1, 13};; !
! !
! !
! !
! double __temp215[1 * 14]; !
! !
! int ____temp215Size[2] = {1, 14};; !
! !
! !
! !
! double __temp216[1 * 15]; !
! !
! int ____temp216Size[2] = {1, 15};; !
! !
! !
! !
! double __temp217[1 * 16]; !
! !
! int ____temp217Size[2] = {1, 16};; !
! !
! !
! !
! double __temp218[1 * 17]; !
! !
! int ____temp218Size[2] = {1, 17};; !
! !
! !
! !
! double __temp219[1 * 18]; !
! !
! int ____temp219Size[2] = {1, 18};; !
! !
! !
! !
! double __temp220[1 * 19]; !
! !
! int ____temp220Size[2] = {1, 19};; !
! !
! !
! !
! double __temp221[1 * 20]; !
! !
! int ____temp221Size[2] = {1, 20};; !
! !
! !
! !
! double __temp222[1 * 21]; !
! !
! int ____temp222Size[2] = {1, 21};; !
! !
! !
! !
! double __temp223[2 * 21]; !
! !
! int ____temp223Size[2] = {2, 21};; !
! !
! !
! !
! doubleComplex ff[2 * 21]; !
! !
! int __ffSize[2] = {2, 21};; !
! !
! !
! !
! doubleComplex __temp224[2 * 21]; !
! !
! int ____temp224Size[2] = {2, 21};; !
! !
! !
! !
! double ans39; !
! !
! !
! !
! char __temp225[1*21] = {"********14**********"}; !
! !
! int ____temp225Size[2] = {1,21}; !
! !
! !
! !
! double ans40; !
! !
! !
! !
! doubleComplex gg[2 * 4]; !
! !
! int __ggSize[2] = {2, 4};; !
! !
! !
! !
! doubleComplex __temp226[2 * 4]; !
! !
! int ____temp226Size[2] = {2, 4};; !
! !
! !
! !
! double ans41; !
! !
! !
! !
! char __temp227[1*21] = {"********15**********"}; !
! !
! int ____temp227Size[2] = {1,21}; !
! !
! !
! !
! double ans42; !
! !
! !
! !
! doubleComplex hh[2 * 2]; !
! !
! int __hhSize[2] = {2, 2};; !
! !
! !
! !
! doubleComplex __temp228[2 * 2]; !
! !
! int ____temp228Size[2] = {2, 2};; !
! !
! !
! !
! double ans43; !
! !
! !
! !
! char __temp229[1*21] = {"********16**********"}; !
! !
! int ____temp229Size[2] = {1,21}; !
! !
! !
! !
! double ans44; !
! !
! !
! !
! doubleComplex jj[2 * 21]; !
! !
! int __jjSize[2] = {2, 21};; !
! !
! !
! !
! doubleComplex __temp230[2 * 21]; !
! !
! int ____temp230Size[2] = {2, 21};; !
! !
! !
! !
! double ans45; !
! !
! !
! !
! !
! !
! !
! !
! !
! !
!/* !
! !
!** --------------------------------- !
! !
!** --- End Variable Declaration. --- !
! !
!** --------------------------------- !
! !
!*/ !
! !
!/* !
! !
!** --------------- !
! !
!** --- C code. --- !
! !
!** --------------- !
! !
!*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(2)); // d0IFFTd0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp1 = d0ifftd0(2); !
! !
! ans1 = d0dispd0(__temp1); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(%i + 4)) // z0IFFTz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),4); !
! !
! __temp3 = z0ifftz0(__temp2); !
! !
! ans2 = z0dispd0(__temp3); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft([1 2])); // d2IFFTd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp4); !
! !
! d2ifftd2(__temp4, ____temp4Size,__temp5); !
! !
! ans3 = d2dispd0(__temp5, ____temp5Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,-2,__temp6); !
! !
! d2d0OpRcd2(__temp6, ____temp6Size,3,__temp7); !
! !
! d0d0zerosd2(1,3,__temp8); !
! !
! d2z0OpStarz2(__temp8, ____temp8Size,DoubleComplex(0,1),__temp9); !
! !
! d2z2OpPlusz2(__temp7, ____temp7Size,__temp9, ____temp9Size,__temp!
! 10); !
! !
! z2ifftz2(__temp10, ____temp10Size,__temp11); !
! !
! ans4 = z2dispd0(__temp11, ____temp11Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp12); !
! !
! d2z0OpStarz2(__temp12, ____temp12Size,DoubleComplex(0,1),__temp13)!
! ; !
! !
! z2ifftz2(__temp13, ____temp13Size,__temp14); !
! !
! ans5 = z2dispd0(__temp14, ____temp14Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(4.4)) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp15 = d0ifftd0(4.4); !
! !
! ans6 = d0dispd0(__temp15); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(%i + 3.4)) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp16 = z0d0OpPlusz0(DoubleComplex(0,1),3.4); !
! !
! __temp17 = z0ifftz0(__temp16); !
! !
! ans7 = z0dispd0(__temp17); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // one input !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,1,__temp18); !
! !
! d2d0OpRcd2(__temp18, ____temp18Size,15,__temp19); !
! !
! d2d0OpRcd2(__temp19, ____temp19Size,3.5,a); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: Abis = a + zeros(a)*%i ; !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2zerosd2(a, __aSize,__temp20); !
! !
! d2z0OpStarz2(__temp20, ____temp20Size,DoubleComplex(0,1),__temp21)!
! ; !
! !
! d2z2OpPlusz2(a, __aSize,__temp21, ____temp21Size,Abis); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(Abis)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(Abis, __AbisSize,__temp22); !
! !
! ans8 = z2dispd0(__temp22, ____temp22Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********1*******"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans9 = g2dispd0(__temp23, ____temp23Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: b = [25 3.6]; // d2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(25,3.6,b); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(b)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2ifftd2(b, __bSize,__temp24); !
! !
! ans10 = d2dispd0(__temp24, ____temp24Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********2*******"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans11 = g2dispd0(__temp25, ____temp25Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456!
! 56 72.3 ] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,2,__temp26); !
! !
! d2d0OpRcd2(__temp26, ____temp26Size,5,__temp27); !
! !
! d2d0OpRcd2(__temp27, ____temp27Size,6,__temp28); !
! !
! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); !
! !
! d2d0OpRcd2(__temp29, ____temp29Size,8,__temp30); !
! !
! d2d0OpRcd2(__temp30, ____temp30Size,9,__temp31); !
! !
! d2d0OpRcd2(__temp31, ____temp31Size,445,__temp32); !
! !
! d2d0OpRcd2(__temp32, ____temp32Size,1,__temp33); !
! !
! d2d0OpRcd2(__temp33, ____temp33Size,2,__temp34); !
! !
! d2d0OpRcd2(__temp34, ____temp34Size,3,__temp35); !
! !
! d2d0OpRcd2(__temp35, ____temp35Size,0,__temp36); !
! !
! d2d0OpRcd2(__temp36, ____temp36Size,125,__temp37); !
! !
! d2d0OpRcd2(__temp37, ____temp37Size,5,__temp38); !
! !
! d2d0OpRcd2(__temp38, ____temp38Size,41,__temp39); !
! !
! d2d0OpRcd2(__temp39, ____temp39Size,4,__temp40); !
! !
! d2d0OpRcd2(__temp40, ____temp40Size,5,__temp41); !
! !
! d2d0OpRcd2(__temp41, ____temp41Size,552,__temp42); !
! !
! d2d0OpRcd2(__temp42, ____temp42Size,2.36,__temp43); !
! !
! d2d0OpRcd2(__temp43, ____temp43Size,45656,__temp44); !
! !
! d2d0OpRcd2(__temp44, ____temp44Size,72.3,c); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: cbis = c + zeros(c)*%i ; !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2zerosd2(c, __cSize,__temp45); !
! !
! d2z0OpStarz2(__temp45, ____temp45Size,DoubleComplex(0,1),__temp46)!
! ; !
! !
! d2z2OpPlusz2(c, __cSize,__temp46, ____temp46Size,cbis); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(cbis)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(cbis, __cbisSize,__temp47); !
! !
! ans12 = z2dispd0(__temp47, ____temp47Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********3*********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans13 = g2dispd0(__temp48, ____temp48Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // pure imaginary !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,1,__temp49); !
! !
! d2d0OpRcd2(__temp49, ____temp49Size,15,__temp50); !
! !
! d2d0OpRcd2(__temp50, ____temp50Size,3.5,__temp51); !
! !
! d2z0OpStarz2(__temp51, ____temp51Size,DoubleComplex(0,1),d); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(d)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(d, __dSize,__temp52); !
! !
! ans14 = z2dispd0(__temp52, ____temp52Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********4*********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans15 = g2dispd0(__temp53, ____temp53Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: e = [25 3.6]*%i; // z2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(25,3.6,__temp54); !
! !
! d2z0OpStarz2(__temp54, ____temp54Size,DoubleComplex(0,1),e); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(e)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(e, __eSize,__temp55); !
! !
! ans16 = z2dispd0(__temp55, ____temp55Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********5***********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans17 = g2dispd0(__temp56, ____temp56Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 !
! 45656 72.3 ] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,2,__temp57); !
! !
! d2d0OpRcd2(__temp57, ____temp57Size,5,__temp58); !
! !
! d2d0OpRcd2(__temp58, ____temp58Size,6,__temp59); !
! !
! d2d0OpRcd2(__temp59, ____temp59Size,3,__temp60); !
! !
! d2d0OpRcd2(__temp60, ____temp60Size,8,__temp61); !
! !
! d2d0OpRcd2(__temp61, ____temp61Size,9,__temp62); !
! !
! d2d0OpRcd2(__temp62, ____temp62Size,445,__temp63); !
! !
! d2d0OpRcd2(__temp63, ____temp63Size,1,__temp64); !
! !
! d2d0OpRcd2(__temp64, ____temp64Size,2,__temp65); !
! !
! d2d0OpRcd2(__temp65, ____temp65Size,3,__temp66); !
! !
! d2d0OpRcd2(__temp66, ____temp66Size,0,__temp67); !
! !
! d2d0OpRcd2(__temp67, ____temp67Size,125,__temp68); !
! !
! d2d0OpRcd2(__temp68, ____temp68Size,5,__temp69); !
! !
! d2d0OpRcd2(__temp69, ____temp69Size,41,__temp70); !
! !
! d2d0OpRcd2(__temp70, ____temp70Size,4,__temp71); !
! !
! d2d0OpRcd2(__temp71, ____temp71Size,5,__temp72); !
! !
! d2d0OpRcd2(__temp72, ____temp72Size,552,__temp73); !
! !
! d2d0OpRcd2(__temp73, ____temp73Size,2.36,__temp74); !
! !
! d2d0OpRcd2(__temp74, ____temp74Size,45656,__temp75); !
! !
! d2d0OpRcd2(__temp75, ____temp75Size,72.3,__temp76); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp76, ____temp76Size,f); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(f)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(f, __fSize,__temp77); !
! !
! ans18 = z2dispd0(__temp77, ____temp77Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********6***********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans19 = g2dispd0(__temp78, ____temp78Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // full complex !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,1,__temp79); !
! !
! d2d0OpRcd2(__temp79, ____temp79Size,15,__temp80); !
! !
! d2d0OpRcd2(__temp80, ____temp80Size,3.5,__temp81); !
! !
! d2z0OpStarz2(__temp81, ____temp81Size,DoubleComplex(0,1),__temp82)!
! ; !
! !
! d2z2OpPlusz2(a, __aSize,__temp82, ____temp82Size,g); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(g)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(g, __gSize,__temp83); !
! !
! ans20 = z2dispd0(__temp83, ____temp83Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********7***********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans21 = g2dispd0(__temp84, ____temp84Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(25,3.6,__temp85); !
! !
! d2z0OpStarz2(__temp85, ____temp85Size,DoubleComplex(0,1),__temp86)!
! ; !
! !
! d2z2OpPlusz2(b, __bSize,__temp86, ____temp86Size,h); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(h)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(h, __hSize,__temp87); !
! !
! ans22 = z2dispd0(__temp87, ____temp87Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********8***********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans23 = g2dispd0(__temp88, ____temp88Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.!
! 36 45656 72.3 ] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,2,__temp89); !
! !
! d2d0OpRcd2(__temp89, ____temp89Size,5,__temp90); !
! !
! d2d0OpRcd2(__temp90, ____temp90Size,6,__temp91); !
! !
! d2d0OpRcd2(__temp91, ____temp91Size,3,__temp92); !
! !
! d2d0OpRcd2(__temp92, ____temp92Size,8,__temp93); !
! !
! d2d0OpRcd2(__temp93, ____temp93Size,9,__temp94); !
! !
! d2d0OpRcd2(__temp94, ____temp94Size,445,__temp95); !
! !
! d2d0OpRcd2(__temp95, ____temp95Size,1,__temp96); !
! !
! d2d0OpRcd2(__temp96, ____temp96Size,2,__temp97); !
! !
! d2d0OpRcd2(__temp97, ____temp97Size,3,__temp98); !
! !
! d2d0OpRcd2(__temp98, ____temp98Size,0,__temp99); !
! !
! d2d0OpRcd2(__temp99, ____temp99Size,125,__temp100); !
! !
! d2d0OpRcd2(__temp100, ____temp100Size,5,__temp101); !
! !
! d2d0OpRcd2(__temp101, ____temp101Size,41,__temp102); !
! !
! d2d0OpRcd2(__temp102, ____temp102Size,4,__temp103); !
! !
! d2d0OpRcd2(__temp103, ____temp103Size,5,__temp104); !
! !
! d2d0OpRcd2(__temp104, ____temp104Size,552,__temp105); !
! !
! d2d0OpRcd2(__temp105, ____temp105Size,2.36,__temp106); !
! !
! d2d0OpRcd2(__temp106, ____temp106Size,45656,__temp107); !
! !
! d2d0OpRcd2(__temp107, ____temp107Size,72.3,__temp108); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp108, ____temp108Size,__temp1!
! 09); !
! !
! d2z2OpPlusz2(c, __cSize,__temp109, ____temp109Size,j); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(j)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(j, __jSize,__temp110); !
! !
! ans24 = z2dispd0(__temp110, ____temp110Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********************"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans25 = g2dispd0(__temp111, ____temp111Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("*******************"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans26 = g2dispd0(__temp112, ____temp112Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("*******************"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans27 = g2dispd0(__temp113, ____temp113Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********************"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans28 = g2dispd0(__temp114, ____temp114Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // ******************** !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // MATRIX !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // ******************** !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // one input !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,1,__temp115); !
! !
! d2d0OpRcd2(__temp115, ____temp115Size,15,__temp116); !
! !
! d2d0OpRcd2(__temp116, ____temp116Size,3.5,__temp117); !
! !
! d0d0OpRcd2(5,3,__temp118); !
! !
! d2d0OpRcd2(__temp118, ____temp118Size,9,__temp119); !
! !
! d2d0OpRcd2(__temp119, ____temp119Size,6,__temp120); !
! !
! d2d2OpCcd2(__temp117, ____temp117Size,__temp120, ____temp120Size,!
! aa); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(aa)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2ifftd2(aa, __aaSize,__temp121); !
! !
! ans29 = d2dispd0(__temp121, ____temp121Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********9***********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans30 = g2dispd0(__temp122, ____temp122Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(25,3.6,__temp123); !
! !
! d0d0OpRcd2(4,3.2,__temp124); !
! !
! d2d2OpCcd2(__temp123, ____temp123Size,__temp124, ____temp124Size,!
! bb); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(bb)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2ifftd2(bb, __bbSize,__temp125); !
! !
! ans31 = d2dispd0(__temp125, ____temp125Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********10**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans32 = g2dispd0(__temp126, ____temp126Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45!
! 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554!
! 6 1.78 ] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,2,__temp127); !
! !
! d2d0OpRcd2(__temp127, ____temp127Size,5,__temp128); !
! !
! d2d0OpRcd2(__temp128, ____temp128Size,6,__temp129); !
! !
! d2d0OpRcd2(__temp129, ____temp129Size,3,__temp130); !
! !
! d2d0OpRcd2(__temp130, ____temp130Size,8,__temp131); !
! !
! d2d0OpRcd2(__temp131, ____temp131Size,9,__temp132); !
! !
! d2d0OpRcd2(__temp132, ____temp132Size,445,__temp133); !
! !
! d2d0OpRcd2(__temp133, ____temp133Size,1,__temp134); !
! !
! d2d0OpRcd2(__temp134, ____temp134Size,2,__temp135); !
! !
! d2d0OpRcd2(__temp135, ____temp135Size,3,__temp136); !
! !
! d2d0OpRcd2(__temp136, ____temp136Size,0,__temp137); !
! !
! d2d0OpRcd2(__temp137, ____temp137Size,125,__temp138); !
! !
! d2d0OpRcd2(__temp138, ____temp138Size,5,__temp139); !
! !
! d2d0OpRcd2(__temp139, ____temp139Size,41,__temp140); !
! !
! d2d0OpRcd2(__temp140, ____temp140Size,4,__temp141); !
! !
! d2d0OpRcd2(__temp141, ____temp141Size,5,__temp142); !
! !
! d2d0OpRcd2(__temp142, ____temp142Size,552,__temp143); !
! !
! d2d0OpRcd2(__temp143, ____temp143Size,2.36,__temp144); !
! !
! d2d0OpRcd2(__temp144, ____temp144Size,45656,__temp145); !
! !
! d2d0OpRcd2(__temp145, ____temp145Size,72.3,__temp146); !
! !
! d0d0OpRcd2(21,8,__temp147); !
! !
! d2d0OpRcd2(__temp147, ____temp147Size,2,__temp148); !
! !
! d2d0OpRcd2(__temp148, ____temp148Size,5,__temp149); !
! !
! d2d0OpRcd2(__temp149, ____temp149Size,6,__temp150); !
! !
! d2d0OpRcd2(__temp150, ____temp150Size,3,__temp151); !
! !
! d2d0OpRcd2(__temp151, ____temp151Size,4,__temp152); !
! !
! d2d0OpRcd2(__temp152, ____temp152Size,123,__temp153); !
! !
! d2d0OpRcd2(__temp153, ____temp153Size,5,__temp154); !
! !
! d2d0OpRcd2(__temp154, ____temp154Size,6,__temp155); !
! !
! d2d0OpRcd2(__temp155, ____temp155Size,0,__temp156); !
! !
! d2d0OpRcd2(__temp156, ____temp156Size,5,__temp157); !
! !
! d2d0OpRcd2(__temp157, ____temp157Size,548,__temp158); !
! !
! d2d0OpRcd2(__temp158, ____temp158Size,7,__temp159); !
! !
! d2d0OpRcd2(__temp159, ____temp159Size,65,__temp160); !
! !
! d2d0OpRcd2(__temp160, ____temp160Size,4,__temp161); !
! !
! d2d0OpRcd2(__temp161, ____temp161Size,2,__temp162); !
! !
! d2d0OpRcd2(__temp162, ____temp162Size,166,__temp163); !
! !
! d2d0OpRcd2(__temp163, ____temp163Size,4.12,__temp164); !
! !
! d2d0OpRcd2(__temp164, ____temp164Size,65546,__temp165); !
! !
! d2d0OpRcd2(__temp165, ____temp165Size,1.78,__temp166); !
! !
! d2d2OpCcd2(__temp146, ____temp146Size,__temp166, ____temp166Size,!
! cc); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(cc)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2ifftd2(cc, __ccSize,__temp167); !
! !
! ans33 = d2dispd0(__temp167, ____temp167Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********11**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans34 = g2dispd0(__temp168, ____temp168Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // pure imaginary !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,1,__temp169); !
! !
! d2d0OpRcd2(__temp169, ____temp169Size,15,__temp170); !
! !
! d2d0OpRcd2(__temp170, ____temp170Size,3.5,__temp171); !
! !
! d0d0OpRcd2(5,8,__temp172); !
! !
! d2d0OpRcd2(__temp172, ____temp172Size,6,__temp173); !
! !
! d2d0OpRcd2(__temp173, ____temp173Size,3,__temp174); !
! !
! d2d2OpCcd2(__temp171, ____temp171Size,__temp174, ____temp174Size,!
! __temp175); !
! !
! d2z0OpStarz2(__temp175, ____temp175Size,DoubleComplex(0,1),dd); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(dd)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(dd, __ddSize,__temp176); !
! !
! ans35 = z2dispd0(__temp176, ____temp176Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********12**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans36 = g2dispd0(__temp177, ____temp177Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(25,3.6,__temp178); !
! !
! d0d0OpRcd2(4,5.9,__temp179); !
! !
! d2d2OpCcd2(__temp178, ____temp178Size,__temp179, ____temp179Size,!
! __temp180); !
! !
! d2z0OpStarz2(__temp180, ____temp180Size,DoubleComplex(0,1),ee); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(ee)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(ee, __eeSize,__temp181); !
! !
! ans37 = z2dispd0(__temp181, ____temp181Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********13**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans38 = g2dispd0(__temp182, ____temp182Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36!
! 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 !
! 65546 1.78 ] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(10,2,__temp183); !
! !
! d2d0OpRcd2(__temp183, ____temp183Size,5,__temp184); !
! !
! d2d0OpRcd2(__temp184, ____temp184Size,6,__temp185); !
! !
! d2d0OpRcd2(__temp185, ____temp185Size,3,__temp186); !
! !
! d2d0OpRcd2(__temp186, ____temp186Size,8,__temp187); !
! !
! d2d0OpRcd2(__temp187, ____temp187Size,9,__temp188); !
! !
! d2d0OpRcd2(__temp188, ____temp188Size,445,__temp189); !
! !
! d2d0OpRcd2(__temp189, ____temp189Size,1,__temp190); !
! !
! d2d0OpRcd2(__temp190, ____temp190Size,2,__temp191); !
! !
! d2d0OpRcd2(__temp191, ____temp191Size,3,__temp192); !
! !
! d2d0OpRcd2(__temp192, ____temp192Size,0,__temp193); !
! !
! d2d0OpRcd2(__temp193, ____temp193Size,125,__temp194); !
! !
! d2d0OpRcd2(__temp194, ____temp194Size,5,__temp195); !
! !
! d2d0OpRcd2(__temp195, ____temp195Size,41,__temp196); !
! !
! d2d0OpRcd2(__temp196, ____temp196Size,4,__temp197); !
! !
! d2d0OpRcd2(__temp197, ____temp197Size,5,__temp198); !
! !
! d2d0OpRcd2(__temp198, ____temp198Size,552,__temp199); !
! !
! d2d0OpRcd2(__temp199, ____temp199Size,2.36,__temp200); !
! !
! d2d0OpRcd2(__temp200, ____temp200Size,45656,__temp201); !
! !
! d2d0OpRcd2(__temp201, ____temp201Size,72.3,__temp202); !
! !
! d0d0OpRcd2(21,8,__temp203); !
! !
! d2d0OpRcd2(__temp203, ____temp203Size,2,__temp204); !
! !
! d2d0OpRcd2(__temp204, ____temp204Size,5,__temp205); !
! !
! d2d0OpRcd2(__temp205, ____temp205Size,6,__temp206); !
! !
! d2d0OpRcd2(__temp206, ____temp206Size,3,__temp207); !
! !
! d2d0OpRcd2(__temp207, ____temp207Size,4,__temp208); !
! !
! d2d0OpRcd2(__temp208, ____temp208Size,123,__temp209); !
! !
! d2d0OpRcd2(__temp209, ____temp209Size,5,__temp210); !
! !
! d2d0OpRcd2(__temp210, ____temp210Size,6,__temp211); !
! !
! d2d0OpRcd2(__temp211, ____temp211Size,0,__temp212); !
! !
! d2d0OpRcd2(__temp212, ____temp212Size,5,__temp213); !
! !
! d2d0OpRcd2(__temp213, ____temp213Size,548,__temp214); !
! !
! d2d0OpRcd2(__temp214, ____temp214Size,7,__temp215); !
! !
! d2d0OpRcd2(__temp215, ____temp215Size,65,__temp216); !
! !
! d2d0OpRcd2(__temp216, ____temp216Size,4,__temp217); !
! !
! d2d0OpRcd2(__temp217, ____temp217Size,2,__temp218); !
! !
! d2d0OpRcd2(__temp218, ____temp218Size,166,__temp219); !
! !
! d2d0OpRcd2(__temp219, ____temp219Size,4.12,__temp220); !
! !
! d2d0OpRcd2(__temp220, ____temp220Size,65546,__temp221); !
! !
! d2d0OpRcd2(__temp221, ____temp221Size,1.78,__temp222); !
! !
! d2d2OpCcd2(__temp202, ____temp202Size,__temp222, ____temp222Size,!
! __temp223); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp223, ____temp223Size,ff); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(ff)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(ff, __ffSize,__temp224); !
! !
! ans39 = z2dispd0(__temp224, ____temp224Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********14**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans40 = g2dispd0(__temp225, ____temp225Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: // full complex !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: gg = aa + dd; //z2Fftz2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpPlusz2(aa, __aaSize,dd, __ddSize,gg); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(gg)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(gg, __ggSize,__temp226); !
! !
! ans41 = z2dispd0(__temp226, ____temp226Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********15**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans42 = g2dispd0(__temp227, ____temp227Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: hh = bb + ee; // z2Fftd2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpPlusz2(bb, __bbSize,ee, __eeSize,hh); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(hh)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(hh, __hhSize,__temp228); !
! !
! ans43 = z2dispd0(__temp228, ____temp228Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp("********16**********"); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! ans44 = g2dispd0(__temp229, ____temp229Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: jj= cc + ff !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpPlusz2(cc, __ccSize,ff, __ffSize,jj); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(ifft(jj)); !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2ifftz2(jj, __jjSize,__temp230); !
! !
! ans45 = z2dispd0(__temp230, ____temp230Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: endfunction !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /* !
! !
! ** --------------------- !
! !
! ** --- Free Section. --- !
! !
! ** --------------------- !
! !
! */ !
! !
! /* !
! !
! ** ------------------------- !
! !
! ** --- End Free Section. --- !
! !
! ** ------------------------- !
! !
! */ !
! !
! !
! !
! return(0); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
!} !
! !
! !
mclose(fd);