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