// // 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_Fft.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- 4.4 3.4 + i 29.5 - 5. + 2.5i 20.5 - 5. - 2.5i 28.6 21.4 column 1 to 3 46956.66 37649.155 + 25942.95i 16159.453 + 43157.112i column 4 to 5 - 10147.782 + 44450.191i - 33654.98 + 30098.399i column 6 to 7 - 44774.991 + 7152.5438i - 40436.917 - 19350.167i column 8 to 9 - 23240.79 - 39351.935i 2481.4511 - 45156.176i column 10 to 11 28842.369 - 36297.202i 43749.702 - 13985.054i column 12 to 13 43749.702 + 13985.054i 28842.369 + 36297.202i column 14 to 15 2481.4511 + 45156.176i - 23240.79 + 39351.935i column 16 to 17 - 40436.917 + 19350.167i - 44774.991 - 7152.5438i column 18 to 19 - 33654.98 - 30098.399i - 10147.782 - 44450.191i column 20 to 21 16159.453 - 43157.112i 37649.155 - 25942.95i 29.5i - 2.5 - 5.i 20.5i 2.5 - 5.i 28.6i 21.4i column 1 to 3 46956.66i - 25942.95 + 37649.155i - 43157.112 + 16159.453i column 4 to 5 - 44450.191 - 10147.782i - 30098.399 - 33654.98i column 6 to 7 - 7152.5438 - 44774.991i 19350.167 - 40436.917i column 8 to 9 39351.935 - 23240.79i 45156.176 + 2481.4511i column 10 to 11 36297.202 + 28842.369i 13985.054 + 43749.702i column 12 to 13 - 13985.054 + 43749.702i - 36297.202 + 28842.369i column 14 to 15 - 45156.176 + 2481.4511i - 39351.935 - 23240.79i column 16 to 17 - 19350.167 - 40436.917i 7152.5438 - 44774.991i column 18 to 19 30098.399 - 33654.98i 44450.191 - 10147.782i column 20 to 21 43157.112 + 16159.453i 25942.95 + 37649.155i 29.5 + 29.5i - 7.5 - 2.5i 20.5 + 20.5i - 2.5 - 7.5i 28.6 + 28.6i 21.4 + 21.4i column 1 to 2 46956.66 + 46956.66i 11706.205 + 63592.105i column 3 to 4 - 26997.659 + 59316.565i - 54597.974 + 34302.409i column 5 to 6 - 63753.379 - 3556.5812i - 51927.535 - 37622.447i column 7 to 8 - 21086.749 - 59787.084i 16111.145 - 62592.725i column 9 to 10 47637.627 - 42674.724i 65139.571 - 7454.8327i column 11 to 12 57734.756 + 29764.648i 29764.648 + 57734.756i column 13 to 14 - 7454.8327 + 65139.571i - 42674.724 + 47637.627i column 15 to 16 - 62592.725 + 16111.145i - 59787.084 - 21086.749i column 17 to 18 - 37622.447 - 51927.535i - 3556.5812 - 63753.379i column 19 to 20 34302.409 - 54597.974i 59316.565 - 26997.659i column 21 63592.105 + 11706.205i ******************* ******************* 7.375 - 1.25 - 0.625i 5.125 - 1.25 + 0.625i 14.3 10.7 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 7.375i 0.625 - 1.25i 5.125i - 0.625 - 1.25i 14.3i 10.7i 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 column 1 to 3 7.375 + 7.375i - 0.625 - 1.875i 5.125 + 5.125i column 4 - 1.875 - 0.625i 14.3 + 14.3i 10.7 + 10.7i 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 ******************* ******************* 29.5 - 5. + 2.5i 20.5 - 5. - 2.5i 28.6 21.4 column 1 to 3 46956.66 37649.155 + 25942.95i 16159.453 + 43157.112i column 4 to 5 - 10147.782 + 44450.191i - 33654.98 + 30098.399i column 6 to 7 - 44774.991 + 7152.5438i - 40436.917 - 19350.167i column 8 to 9 - 23240.79 - 39351.935i 2481.4511 - 45156.176i column 10 to 11 28842.369 - 36297.202i 43749.702 - 13985.054i column 12 to 13 43749.702 + 13985.054i 28842.369 + 36297.202i column 14 to 15 2481.4511 + 45156.176i - 23240.79 + 39351.935i column 16 to 17 - 40436.917 + 19350.167i - 44774.991 - 7152.5438i column 18 to 19 - 33654.98 - 30098.399i - 10147.782 - 44450.191i column 20 to 21 16159.453 - 43157.112i 37649.155 - 25942.95i 29.5i - 2.5 - 5.i 20.5i 2.5 - 5.i 28.6i 21.4i column 1 to 3 46956.66i - 25942.95 + 37649.155i - 43157.112 + 16159.453i column 4 to 5 - 44450.191 - 10147.782i - 30098.399 - 33654.98i column 6 to 7 - 7152.5438 - 44774.991i 19350.167 - 40436.917i column 8 to 9 39351.935 - 23240.79i 45156.176 + 2481.4511i column 10 to 11 36297.202 + 28842.369i 13985.054 + 43749.702i column 12 to 13 - 13985.054 + 43749.702i - 36297.202 + 28842.369i column 14 to 15 - 45156.176 + 2481.4511i - 39351.935 - 23240.79i column 16 to 17 - 19350.167 - 40436.917i 7152.5438 - 44774.991i column 18 to 19 30098.399 - 33654.98i 44450.191 - 10147.782i column 20 to 21 43157.112 + 16159.453i 25942.95 + 37649.155i 29.5 + 29.5i - 7.5 - 2.5i 20.5 + 20.5i - 2.5 - 7.5i 28.6 + 28.6i 21.4 + 21.4i column 1 to 2 46956.66 + 46956.66i 11706.205 + 63592.105i column 3 to 4 - 26997.659 + 59316.565i - 54597.974 + 34302.409i column 5 to 6 - 63753.379 - 3556.5812i - 51927.535 - 37622.447i column 7 to 8 - 21086.749 - 59787.084i 16111.145 - 62592.725i column 9 to 10 47637.627 - 42674.724i 65139.571 - 7454.8327i column 11 to 12 57734.756 + 29764.648i 29764.648 + 57734.756i column 13 to 14 - 7454.8327 + 65139.571i - 42674.724 + 47637.627i column 15 to 16 - 62592.725 + 16111.145i - 59787.084 - 21086.749i column 17 to 18 - 37622.447 - 51927.535i - 3556.5812 - 63753.379i column 19 to 20 34302.409 - 54597.974i 59316.565 - 26997.659i column 21 63592.105 + 11706.205i 52.5 - 9. + 5.5i 25.5 - 9. - 5.5i 6.5 - 1. - 0.5i 15.5 - 1. + 0.5i 35.8 22.2 21.4 20.6 column 1 to 3 113488.56 91298.041 + 63197.662i 40252.729 + 103897.63i - 19575.24 - 15999.73 - 11311.762i - 7933.8229 - 17583.403i column 4 to 5 - 24798.095 + 108809.32i - 81891.1 + 73933.22i 4502.5298 - 19908.937i 14581.14 - 13736.422i column 6 to 7 - 109154.53 + 17344.19i - 99678.848 - 47906.484i 19604.55 - 3039.1025i 18805.015 + 9206.1497i column 8 to 9 - 55618.56 - 96028.292i 6651.8052 - 110263.77i 9136.98 + 17324.423i - 1688.903 + 19951.423i column 10 to 11 70200.163 - 88119.902i 106319.62 - 32925.274i - 12515.425 + 15525.498i - 18820.214 + 4955.1655i column 12 to 13 106319.62 + 32925.274i 70200.163 + 88119.902i - 18820.214 - 4955.1655i - 12515.425 - 15525.498i column 14 to 15 6651.8052 + 110263.77i - 55618.56 + 96028.292i - 1688.903 - 19951.423i 9136.98 - 17324.423i column 16 to 17 - 99678.848 + 47906.484i - 109154.53 - 17344.19i 18805.015 - 9206.1497i 19604.55 + 3039.1025i column 18 to 19 - 81891.1 - 73933.22i - 24798.095 - 108809.32i 14581.14 + 13736.422i 4502.5298 + 19908.937i column 20 to 21 40252.729 - 103897.63i 91298.041 - 63197.662i - 7933.8229 + 17583.403i - 15999.73 + 11311.762i 51.5i 2.5 - 6.i 20.5i - 2.5 - 6.i 7.5i - 7.5 - 4.i 20.5i 7.5 - 4.i 38.5i 19.5i 18.7i 23.3i column 1 to 3 113488.56i - 63197.662 + 91298.041i - 103897.63 + 40252.729i - 19575.24i 11311.762 - 15999.73i 17583.403 - 7933.8229i column 4 to 5 - 108809.32 - 24798.095i - 73933.22 - 81891.1i 19908.937 + 4502.5298i 13736.422 + 14581.14i column 6 to 7 - 17344.19 - 109154.53i 47906.484 - 99678.848i 3039.1025 + 19604.55i - 9206.1497 + 18805.015i column 8 to 9 96028.292 - 55618.56i 110263.77 + 6651.8052i - 17324.423 + 9136.98i - 19951.423 - 1688.903i column 10 to 11 88119.902 + 70200.163i 32925.274 + 106319.62i - 15525.498 - 12515.425i - 4955.1655 - 18820.214i column 12 to 13 - 32925.274 + 106319.62i - 88119.902 + 70200.163i 4955.1655 - 18820.214i 15525.498 - 12515.425i column 14 to 15 - 110263.77 + 6651.8052i - 96028.292 - 55618.56i 19951.423 - 1688.903i 17324.423 + 9136.98i column 16 to 17 - 47906.484 - 99678.848i 17344.19 - 109154.53i 9206.1497 + 18805.015i - 3039.1025 + 19604.55i column 18 to 19 73933.22 - 81891.1i 108809.32 - 24798.095i - 13736.422 + 14581.14i - 19908.937 + 4502.5298i column 20 to 21 103897.63 + 40252.729i 63197.662 + 91298.041i - 17583.403 - 7933.8229i - 11311.762 - 15999.73i 52.5 + 51.5i - 6.5 - 0.5i 25.5 + 20.5i - 11.5 - 11.5i 6.5 + 7.5i - 8.5 - 4.5i 15.5 + 20.5i 6.5 - 3.5i 35.8 + 38.5i 22.2 + 19.5i 21.4 + 18.7i 20.6 + 23.3i column 1 to 2 113488.56 + 113488.56i 28100.379 + 154495.7i - 19575.24 - 19575.24i - 4687.9679 - 27311.493i column 3 to 4 - 63644.897 + 144150.35i - 133607.41 + 84011.224i 9649.5797 - 25517.226i 24411.466 - 15406.407i column 5 to 6 - 155824.32 - 7957.8803i - 126498.72 - 91810.342i 28317.561 + 844.71798i 22643.653 + 16565.448i column 7 to 8 - 51772.364 - 147585.33i 40409.732 - 151646.85i 9598.8654 + 28011.165i - 8187.4425 + 26461.403i column 9 to 10 116915.58 - 103611.97i 158320.06 - 17919.739i - 21640.326 + 18262.52i - 28040.923 + 3010.0734i column 11 to 12 139244.89 + 73394.344i 73394.344 + 139244.89i - 23775.379 - 13865.048i - 13865.048 - 23775.379i column 13 to 14 - 17919.739 + 158320.06i - 103611.97 + 116915.58i 3010.0734 - 28040.923i 18262.52 - 21640.326i column 15 to 16 - 151646.85 + 40409.732i - 147585.33 - 51772.364i 26461.403 - 8187.4425i 28011.165 + 9598.8654i column 17 to 18 - 91810.342 - 126498.72i - 7957.8803 - 155824.32i 16565.448 + 22643.653i 844.71798 + 28317.561i column 19 to 20 84011.224 - 133607.41i 144150.35 - 63644.897i - 15406.407 + 24411.466i - 25517.226 + 9649.5797i column 21 154495.7 + 28100.379i - 27311.493 - 4687.9679i ******************* ******************* 6.5625 - 1.125 - 0.6875i 3.1875 - 1.125 + 0.6875i 0.8125 - 0.125 + 0.0625i 1.9375 - 0.125 - 0.0625i 8.95 5.55 5.35 5.15 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 6.4375i - 0.3125 - 0.75i 2.5625i 0.3125 - 0.75i 0.9375i 0.9375 - 0.5i 2.5625i - 0.9375 - 0.5i 9.625i 4.875i 4.675i 5.825i 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 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 8.95 + 9.625i 5.55 + 4.875i 5.35 + 4.675i 5.15 + 5.825i 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 ******************* ******************* 52.5 - 9. + 5.5i 25.5 - 9. - 5.5i 6.5 - 1. - 0.5i 15.5 - 1. + 0.5i 35.8 22.2 21.4 20.6 column 1 to 3 113488.56 91298.041 + 63197.662i 40252.729 + 103897.63i - 19575.24 - 15999.73 - 11311.762i - 7933.8229 - 17583.403i column 4 to 5 - 24798.095 + 108809.32i - 81891.1 + 73933.22i 4502.5298 - 19908.937i 14581.14 - 13736.422i column 6 to 7 - 109154.53 + 17344.19i - 99678.848 - 47906.484i 19604.55 - 3039.1025i 18805.015 + 9206.1497i column 8 to 9 - 55618.56 - 96028.292i 6651.8052 - 110263.77i 9136.98 + 17324.423i - 1688.903 + 19951.423i column 10 to 11 70200.163 - 88119.902i 106319.62 - 32925.274i - 12515.425 + 15525.498i - 18820.214 + 4955.1655i column 12 to 13 106319.62 + 32925.274i 70200.163 + 88119.902i - 18820.214 - 4955.1655i - 12515.425 - 15525.498i column 14 to 15 6651.8052 + 110263.77i - 55618.56 + 96028.292i - 1688.903 - 19951.423i 9136.98 - 17324.423i column 16 to 17 - 99678.848 + 47906.484i - 109154.53 - 17344.19i 18805.015 - 9206.1497i 19604.55 + 3039.1025i column 18 to 19 - 81891.1 - 73933.22i - 24798.095 - 108809.32i 14581.14 + 13736.422i 4502.5298 + 19908.937i column 20 to 21 40252.729 - 103897.63i 91298.041 - 63197.662i - 7933.8229 + 17583.403i - 15999.73 + 11311.762i 51.5i 2.5 - 6.i 20.5i - 2.5 - 6.i 7.5i - 7.5 - 4.i 20.5i 7.5 - 4.i 38.5i 19.5i 18.7i 23.3i column 1 to 3 113488.56i - 63197.662 + 91298.041i - 103897.63 + 40252.729i - 19575.24i 11311.762 - 15999.73i 17583.403 - 7933.8229i column 4 to 5 - 108809.32 - 24798.095i - 73933.22 - 81891.1i 19908.937 + 4502.5298i 13736.422 + 14581.14i column 6 to 7 - 17344.19 - 109154.53i 47906.484 - 99678.848i 3039.1025 + 19604.55i - 9206.1497 + 18805.015i column 8 to 9 96028.292 - 55618.56i 110263.77 + 6651.8052i - 17324.423 + 9136.98i - 19951.423 - 1688.903i column 10 to 11 88119.902 + 70200.163i 32925.274 + 106319.62i - 15525.498 - 12515.425i - 4955.1655 - 18820.214i column 12 to 13 - 32925.274 + 106319.62i - 88119.902 + 70200.163i 4955.1655 - 18820.214i 15525.498 - 12515.425i column 14 to 15 - 110263.77 + 6651.8052i - 96028.292 - 55618.56i 19951.423 - 1688.903i 17324.423 + 9136.98i column 16 to 17 - 47906.484 - 99678.848i 17344.19 - 109154.53i 9206.1497 + 18805.015i - 3039.1025 + 19604.55i column 18 to 19 73933.22 - 81891.1i 108809.32 - 24798.095i - 13736.422 + 14581.14i - 19908.937 + 4502.5298i column 20 to 21 103897.63 + 40252.729i 63197.662 + 91298.041i - 17583.403 - 7933.8229i - 11311.762 - 15999.73i 52.5 + 51.5i - 6.5 - 0.5i 25.5 + 20.5i - 11.5 - 11.5i 6.5 + 7.5i - 8.5 - 4.5i 15.5 + 20.5i 6.5 - 3.5i 35.8 + 38.5i 22.2 + 19.5i 21.4 + 18.7i 20.6 + 23.3i column 1 to 2 113488.56 + 113488.56i 28100.379 + 154495.7i - 19575.24 - 19575.24i - 4687.9679 - 27311.493i column 3 to 4 - 63644.897 + 144150.35i - 133607.41 + 84011.224i 9649.5797 - 25517.226i 24411.466 - 15406.407i column 5 to 6 - 155824.32 - 7957.8803i - 126498.72 - 91810.342i 28317.561 + 844.71798i 22643.653 + 16565.448i column 7 to 8 - 51772.364 - 147585.33i 40409.732 - 151646.85i 9598.8654 + 28011.165i - 8187.4425 + 26461.403i column 9 to 10 116915.58 - 103611.97i 158320.06 - 17919.739i - 21640.326 + 18262.52i - 28040.923 + 3010.0734i column 11 to 12 139244.89 + 73394.344i 73394.344 + 139244.89i - 23775.379 - 13865.048i - 13865.048 - 23775.379i column 13 to 14 - 17919.739 + 158320.06i - 103611.97 + 116915.58i 3010.0734 - 28040.923i 18262.52 - 21640.326i column 15 to 16 - 151646.85 + 40409.732i - 147585.33 - 51772.364i 26461.403 - 8187.4425i 28011.165 + 9598.8654i column 17 to 18 - 91810.342 - 126498.72i - 7957.8803 - 155824.32i 16565.448 + 22643.653i 844.71798 + 28317.561i column 19 to 20 84011.224 - 133607.41i 144150.35 - 63644.897i - 15406.407 + 24411.466i - 25517.226 + 9649.5797i column 21 154495.7 + 28100.379i - 27311.493 - 4687.9679i ------------------------------------------ --- 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_Fft" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Fft/test_Fft_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Fft/test_Fft_copy.sci' already opened in Scilab. ==> Generate the AST. ==> Generate C code in TMPDIR/main.c /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(4.4)) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(%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: disp(fft(a)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: b = [25 3.6]; // d2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(b)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); 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: disp(fft(c)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // pure imaginary SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(d)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: e = [25 3.6]*%i; // z2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(e)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); 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(fft(f)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(g)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(h)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); 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(fft(j)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // two output SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // call ifft SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(a,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(b,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(c,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(d,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(e,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(f,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(g,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(h,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(j,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(a,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(b,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(c,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(d,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(e,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(f,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(g,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(h,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(j,-1)); 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(fft(aa)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(bb)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); 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(fft(cc)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // pure imaginary SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(dd)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(ee)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); 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(fft(ff)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: gg = aa + dd; //z2Fftz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(gg)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: hh = bb + ee; // z2Fftd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(hh)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: jj= cc + ff SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(jj)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // two output SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // call ifft SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(aa,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(bb,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(cc,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(dd,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(ee,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(ff,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(gg,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(hh,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(jj,1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp("*******************"); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(aa,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(bb,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(cc,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(dd,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(ee,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(ff,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: // full complex SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(gg,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(hh,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(fft(jj,-1)); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(""); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: endfunction SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: 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_Fft() ! ! ! ! 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 * 3]; ! ! ! ! int ____temp5Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double a[1 * 4]; ! ! ! ! int __aSize[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp6[1 * 4]; ! ! ! ! int ____temp6Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! char __temp7[1*1] = {""}; ! ! ! ! int ____temp7Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! double b[1 * 2]; ! ! ! ! int __bSize[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp8[1 * 2]; ! ! ! ! int ____temp8Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans5; ! ! ! ! ! ! ! ! char __temp9[1*1] = {""}; ! ! ! ! int ____temp9Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans6; ! ! ! ! ! ! ! ! double __temp10[1 * 2]; ! ! ! ! int ____temp10Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp11[1 * 3]; ! ! ! ! int ____temp11Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp12[1 * 4]; ! ! ! ! int ____temp12Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp13[1 * 5]; ! ! ! ! int ____temp13Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp14[1 * 6]; ! ! ! ! int ____temp14Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp15[1 * 7]; ! ! ! ! int ____temp15Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp16[1 * 8]; ! ! ! ! int ____temp16Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp17[1 * 9]; ! ! ! ! int ____temp17Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp18[1 * 10]; ! ! ! ! int ____temp18Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp19[1 * 11]; ! ! ! ! int ____temp19Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp20[1 * 12]; ! ! ! ! int ____temp20Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp21[1 * 13]; ! ! ! ! int ____temp21Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp22[1 * 14]; ! ! ! ! int ____temp22Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp23[1 * 15]; ! ! ! ! int ____temp23Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp24[1 * 16]; ! ! ! ! int ____temp24Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp25[1 * 17]; ! ! ! ! int ____temp25Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp26[1 * 18]; ! ! ! ! int ____temp26Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp27[1 * 19]; ! ! ! ! int ____temp27Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp28[1 * 20]; ! ! ! ! int ____temp28Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double c[1 * 21]; ! ! ! ! int __cSize[2] = {1, 21};; ! ! ! ! ! ! ! ! double __temp29[1 * 21]; ! ! ! ! int ____temp29Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! char __temp30[1*1] = {""}; ! ! ! ! int ____temp30Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! double __temp31[1 * 2]; ! ! ! ! int ____temp31Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp32[1 * 3]; ! ! ! ! int ____temp32Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp33[1 * 4]; ! ! ! ! int ____temp33Size[2] = {1, 4};; ! ! ! ! ! ! ! ! doubleComplex d[1 * 4]; ! ! ! ! int __dSize[2] = {1, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp34[1 * 4]; ! ! ! ! int ____temp34Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! char __temp35[1*1] = {""}; ! ! ! ! int ____temp35Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans10; ! ! ! ! ! ! ! ! double __temp36[1 * 2]; ! ! ! ! int ____temp36Size[2] = {1, 2};; ! ! ! ! ! ! ! ! doubleComplex e[1 * 2]; ! ! ! ! int __eSize[2] = {1, 2};; ! ! ! ! ! ! ! ! doubleComplex __temp37[1 * 2]; ! ! ! ! int ____temp37Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans11; ! ! ! ! ! ! ! ! char __temp38[1*1] = {""}; ! ! ! ! int ____temp38Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans12; ! ! ! ! ! ! ! ! double __temp39[1 * 2]; ! ! ! ! int ____temp39Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp40[1 * 3]; ! ! ! ! int ____temp40Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp41[1 * 4]; ! ! ! ! int ____temp41Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp42[1 * 5]; ! ! ! ! int ____temp42Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp43[1 * 6]; ! ! ! ! int ____temp43Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp44[1 * 7]; ! ! ! ! int ____temp44Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp45[1 * 8]; ! ! ! ! int ____temp45Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp46[1 * 9]; ! ! ! ! int ____temp46Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp47[1 * 10]; ! ! ! ! int ____temp47Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp48[1 * 11]; ! ! ! ! int ____temp48Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp49[1 * 12]; ! ! ! ! int ____temp49Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp50[1 * 13]; ! ! ! ! int ____temp50Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp51[1 * 14]; ! ! ! ! int ____temp51Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp52[1 * 15]; ! ! ! ! int ____temp52Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp53[1 * 16]; ! ! ! ! int ____temp53Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp54[1 * 17]; ! ! ! ! int ____temp54Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp55[1 * 18]; ! ! ! ! int ____temp55Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp56[1 * 19]; ! ! ! ! int ____temp56Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp57[1 * 20]; ! ! ! ! int ____temp57Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp58[1 * 21]; ! ! ! ! int ____temp58Size[2] = {1, 21};; ! ! ! ! ! ! ! ! doubleComplex f[1 * 21]; ! ! ! ! int __fSize[2] = {1, 21};; ! ! ! ! ! ! ! ! doubleComplex __temp59[1 * 21]; ! ! ! ! int ____temp59Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans13; ! ! ! ! ! ! ! ! char __temp60[1*1] = {""}; ! ! ! ! int ____temp60Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans14; ! ! ! ! ! ! ! ! double __temp61[1 * 2]; ! ! ! ! int ____temp61Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp62[1 * 3]; ! ! ! ! int ____temp62Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp63[1 * 4]; ! ! ! ! int ____temp63Size[2] = {1, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp64[1 * 4]; ! ! ! ! int ____temp64Size[2] = {1, 4};; ! ! ! ! ! ! ! ! doubleComplex g[1 * 4]; ! ! ! ! int __gSize[2] = {1, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp65[1 * 4]; ! ! ! ! int ____temp65Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans15; ! ! ! ! ! ! ! ! char __temp66[1*1] = {""}; ! ! ! ! int ____temp66Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans16; ! ! ! ! ! ! ! ! double __temp67[1 * 2]; ! ! ! ! int ____temp67Size[2] = {1, 2};; ! ! ! ! ! ! ! ! doubleComplex __temp68[1 * 2]; ! ! ! ! int ____temp68Size[2] = {1, 2};; ! ! ! ! ! ! ! ! doubleComplex h[1 * 2]; ! ! ! ! int __hSize[2] = {1, 2};; ! ! ! ! ! ! ! ! doubleComplex __temp69[1 * 2]; ! ! ! ! int ____temp69Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans17; ! ! ! ! ! ! ! ! char __temp70[1*1] = {""}; ! ! ! ! int ____temp70Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans18; ! ! ! ! ! ! ! ! double __temp71[1 * 2]; ! ! ! ! int ____temp71Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp72[1 * 3]; ! ! ! ! int ____temp72Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp73[1 * 4]; ! ! ! ! int ____temp73Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp74[1 * 5]; ! ! ! ! int ____temp74Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp75[1 * 6]; ! ! ! ! int ____temp75Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp76[1 * 7]; ! ! ! ! int ____temp76Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp77[1 * 8]; ! ! ! ! int ____temp77Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp78[1 * 9]; ! ! ! ! int ____temp78Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp79[1 * 10]; ! ! ! ! int ____temp79Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp80[1 * 11]; ! ! ! ! int ____temp80Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp81[1 * 12]; ! ! ! ! int ____temp81Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp82[1 * 13]; ! ! ! ! int ____temp82Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp83[1 * 14]; ! ! ! ! int ____temp83Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp84[1 * 15]; ! ! ! ! int ____temp84Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp85[1 * 16]; ! ! ! ! int ____temp85Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp86[1 * 17]; ! ! ! ! int ____temp86Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp87[1 * 18]; ! ! ! ! int ____temp87Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp88[1 * 19]; ! ! ! ! int ____temp88Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp89[1 * 20]; ! ! ! ! int ____temp89Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp90[1 * 21]; ! ! ! ! int ____temp90Size[2] = {1, 21};; ! ! ! ! ! ! ! ! doubleComplex __temp91[1 * 21]; ! ! ! ! int ____temp91Size[2] = {1, 21};; ! ! ! ! ! ! ! ! doubleComplex j[1 * 21]; ! ! ! ! int __jSize[2] = {1, 21};; ! ! ! ! ! ! ! ! doubleComplex __temp92[1 * 21]; ! ! ! ! int ____temp92Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans19; ! ! ! ! ! ! ! ! char __temp93[1*1] = {""}; ! ! ! ! int ____temp93Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans20; ! ! ! ! ! ! ! ! char __temp94[1*20] = {"*******************"}; ! ! ! ! int ____temp94Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans21; ! ! ! ! ! ! ! ! char __temp95[1*20] = {"*******************"}; ! ! ! ! int ____temp95Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans22; ! ! ! ! ! ! ! ! char __temp96[1*1] = {""}; ! ! ! ! int ____temp96Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans23; ! ! ! ! ! ! ! ! double __temp97[1 * 4]; ! ! ! ! int ____temp97Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans24; ! ! ! ! ! ! ! ! char __temp98[1*1] = {""}; ! ! ! ! int ____temp98Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans25; ! ! ! ! ! ! ! ! double __temp99[1 * 2]; ! ! ! ! int ____temp99Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans26; ! ! ! ! ! ! ! ! char __temp100[1*1] = {""}; ! ! ! ! int ____temp100Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans27; ! ! ! ! ! ! ! ! double __temp101[1 * 21]; ! ! ! ! int ____temp101Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans28; ! ! ! ! ! ! ! ! char __temp102[1*1] = {""}; ! ! ! ! int ____temp102Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans29; ! ! ! ! ! ! ! ! doubleComplex __temp103[1 * 4]; ! ! ! ! int ____temp103Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans30; ! ! ! ! ! ! ! ! char __temp104[1*1] = {""}; ! ! ! ! int ____temp104Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans31; ! ! ! ! ! ! ! ! doubleComplex __temp105[1 * 2]; ! ! ! ! int ____temp105Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans32; ! ! ! ! ! ! ! ! char __temp106[1*1] = {""}; ! ! ! ! int ____temp106Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans33; ! ! ! ! ! ! ! ! doubleComplex __temp107[1 * 21]; ! ! ! ! int ____temp107Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans34; ! ! ! ! ! ! ! ! char __temp108[1*1] = {""}; ! ! ! ! int ____temp108Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans35; ! ! ! ! ! ! ! ! doubleComplex __temp109[1 * 4]; ! ! ! ! int ____temp109Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans36; ! ! ! ! ! ! ! ! char __temp110[1*1] = {""}; ! ! ! ! int ____temp110Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans37; ! ! ! ! ! ! ! ! doubleComplex __temp111[1 * 2]; ! ! ! ! int ____temp111Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans38; ! ! ! ! ! ! ! ! char __temp112[1*1] = {""}; ! ! ! ! int ____temp112Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans39; ! ! ! ! ! ! ! ! doubleComplex __temp113[1 * 21]; ! ! ! ! int ____temp113Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans40; ! ! ! ! ! ! ! ! char __temp114[1*1] = {""}; ! ! ! ! int ____temp114Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans41; ! ! ! ! ! ! ! ! char __temp115[1*1] = {""}; ! ! ! ! int ____temp115Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans42; ! ! ! ! ! ! ! ! char __temp116[1*20] = {"*******************"}; ! ! ! ! int ____temp116Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans43; ! ! ! ! ! ! ! ! char __temp117[1*20] = {"*******************"}; ! ! ! ! int ____temp117Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans44; ! ! ! ! ! ! ! ! char __temp118[1*1] = {""}; ! ! ! ! int ____temp118Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans45; ! ! ! ! ! ! ! ! double __temp119[1 * 4]; ! ! ! ! int ____temp119Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans46; ! ! ! ! ! ! ! ! char __temp120[1*1] = {""}; ! ! ! ! int ____temp120Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans47; ! ! ! ! ! ! ! ! double __temp121[1 * 2]; ! ! ! ! int ____temp121Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans48; ! ! ! ! ! ! ! ! char __temp122[1*1] = {""}; ! ! ! ! int ____temp122Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans49; ! ! ! ! ! ! ! ! double __temp123[1 * 21]; ! ! ! ! int ____temp123Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans50; ! ! ! ! ! ! ! ! char __temp124[1*1] = {""}; ! ! ! ! int ____temp124Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans51; ! ! ! ! ! ! ! ! doubleComplex __temp125[1 * 4]; ! ! ! ! int ____temp125Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans52; ! ! ! ! ! ! ! ! char __temp126[1*1] = {""}; ! ! ! ! int ____temp126Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans53; ! ! ! ! ! ! ! ! doubleComplex __temp127[1 * 2]; ! ! ! ! int ____temp127Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans54; ! ! ! ! ! ! ! ! char __temp128[1*1] = {""}; ! ! ! ! int ____temp128Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans55; ! ! ! ! ! ! ! ! doubleComplex __temp129[1 * 21]; ! ! ! ! int ____temp129Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans56; ! ! ! ! ! ! ! ! char __temp130[1*1] = {""}; ! ! ! ! int ____temp130Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans57; ! ! ! ! ! ! ! ! doubleComplex __temp131[1 * 4]; ! ! ! ! int ____temp131Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double ans58; ! ! ! ! ! ! ! ! char __temp132[1*1] = {""}; ! ! ! ! int ____temp132Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans59; ! ! ! ! ! ! ! ! doubleComplex __temp133[1 * 2]; ! ! ! ! int ____temp133Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double ans60; ! ! ! ! ! ! ! ! char __temp134[1*1] = {""}; ! ! ! ! int ____temp134Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans61; ! ! ! ! ! ! ! ! doubleComplex __temp135[1 * 21]; ! ! ! ! int ____temp135Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double ans62; ! ! ! ! ! ! ! ! char __temp136[1*1] = {""}; ! ! ! ! int ____temp136Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans63; ! ! ! ! ! ! ! ! double __temp137[1 * 2]; ! ! ! ! int ____temp137Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp138[1 * 3]; ! ! ! ! int ____temp138Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp139[1 * 4]; ! ! ! ! int ____temp139Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp140[1 * 2]; ! ! ! ! int ____temp140Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp141[1 * 3]; ! ! ! ! int ____temp141Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp142[1 * 4]; ! ! ! ! int ____temp142Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double aa[2 * 4]; ! ! ! ! int __aaSize[2] = {2, 4};; ! ! ! ! ! ! ! ! double __temp143[2 * 4]; ! ! ! ! int ____temp143Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans64; ! ! ! ! ! ! ! ! char __temp144[1*1] = {""}; ! ! ! ! int ____temp144Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans65; ! ! ! ! ! ! ! ! double __temp145[1 * 2]; ! ! ! ! int ____temp145Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp146[1 * 2]; ! ! ! ! int ____temp146Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double bb[2 * 2]; ! ! ! ! int __bbSize[2] = {2, 2};; ! ! ! ! ! ! ! ! double __temp147[2 * 2]; ! ! ! ! int ____temp147Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans66; ! ! ! ! ! ! ! ! char __temp148[1*1] = {""}; ! ! ! ! int ____temp148Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans67; ! ! ! ! ! ! ! ! double __temp149[1 * 2]; ! ! ! ! int ____temp149Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp150[1 * 3]; ! ! ! ! int ____temp150Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp151[1 * 4]; ! ! ! ! int ____temp151Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp152[1 * 5]; ! ! ! ! int ____temp152Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp153[1 * 6]; ! ! ! ! int ____temp153Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp154[1 * 7]; ! ! ! ! int ____temp154Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp155[1 * 8]; ! ! ! ! int ____temp155Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp156[1 * 9]; ! ! ! ! int ____temp156Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp157[1 * 10]; ! ! ! ! int ____temp157Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp158[1 * 11]; ! ! ! ! int ____temp158Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp159[1 * 12]; ! ! ! ! int ____temp159Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp160[1 * 13]; ! ! ! ! int ____temp160Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp161[1 * 14]; ! ! ! ! int ____temp161Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp162[1 * 15]; ! ! ! ! int ____temp162Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp163[1 * 16]; ! ! ! ! int ____temp163Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp164[1 * 17]; ! ! ! ! int ____temp164Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp165[1 * 18]; ! ! ! ! int ____temp165Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp166[1 * 19]; ! ! ! ! int ____temp166Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp167[1 * 20]; ! ! ! ! int ____temp167Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp168[1 * 21]; ! ! ! ! int ____temp168Size[2] = {1, 21};; ! ! ! ! ! ! ! ! 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 * 5]; ! ! ! ! int ____temp172Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp173[1 * 6]; ! ! ! ! int ____temp173Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp174[1 * 7]; ! ! ! ! int ____temp174Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp175[1 * 8]; ! ! ! ! int ____temp175Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp176[1 * 9]; ! ! ! ! int ____temp176Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp177[1 * 10]; ! ! ! ! int ____temp177Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp178[1 * 11]; ! ! ! ! int ____temp178Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp179[1 * 12]; ! ! ! ! int ____temp179Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp180[1 * 13]; ! ! ! ! int ____temp180Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp181[1 * 14]; ! ! ! ! int ____temp181Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp182[1 * 15]; ! ! ! ! int ____temp182Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp183[1 * 16]; ! ! ! ! int ____temp183Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp184[1 * 17]; ! ! ! ! int ____temp184Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp185[1 * 18]; ! ! ! ! int ____temp185Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp186[1 * 19]; ! ! ! ! int ____temp186Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp187[1 * 20]; ! ! ! ! int ____temp187Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp188[1 * 21]; ! ! ! ! int ____temp188Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double cc[2 * 21]; ! ! ! ! int __ccSize[2] = {2, 21};; ! ! ! ! ! ! ! ! double __temp189[2 * 21]; ! ! ! ! int ____temp189Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans68; ! ! ! ! ! ! ! ! char __temp190[1*1] = {""}; ! ! ! ! int ____temp190Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans69; ! ! ! ! ! ! ! ! double __temp191[1 * 2]; ! ! ! ! int ____temp191Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp192[1 * 3]; ! ! ! ! int ____temp192Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp193[1 * 4]; ! ! ! ! int ____temp193Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp194[1 * 2]; ! ! ! ! int ____temp194Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp195[1 * 3]; ! ! ! ! int ____temp195Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp196[1 * 4]; ! ! ! ! int ____temp196Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp197[2 * 4]; ! ! ! ! int ____temp197Size[2] = {2, 4};; ! ! ! ! ! ! ! ! doubleComplex dd[2 * 4]; ! ! ! ! int __ddSize[2] = {2, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp198[2 * 4]; ! ! ! ! int ____temp198Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans70; ! ! ! ! ! ! ! ! char __temp199[1*1] = {""}; ! ! ! ! int ____temp199Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans71; ! ! ! ! ! ! ! ! double __temp200[1 * 2]; ! ! ! ! int ____temp200Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp201[1 * 2]; ! ! ! ! int ____temp201Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp202[2 * 2]; ! ! ! ! int ____temp202Size[2] = {2, 2};; ! ! ! ! ! ! ! ! doubleComplex ee[2 * 2]; ! ! ! ! int __eeSize[2] = {2, 2};; ! ! ! ! ! ! ! ! doubleComplex __temp203[2 * 2]; ! ! ! ! int ____temp203Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans72; ! ! ! ! ! ! ! ! char __temp204[1*1] = {""}; ! ! ! ! int ____temp204Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans73; ! ! ! ! ! ! ! ! double __temp205[1 * 2]; ! ! ! ! int ____temp205Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp206[1 * 3]; ! ! ! ! int ____temp206Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp207[1 * 4]; ! ! ! ! int ____temp207Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp208[1 * 5]; ! ! ! ! int ____temp208Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp209[1 * 6]; ! ! ! ! int ____temp209Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp210[1 * 7]; ! ! ! ! int ____temp210Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp211[1 * 8]; ! ! ! ! int ____temp211Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp212[1 * 9]; ! ! ! ! int ____temp212Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp213[1 * 10]; ! ! ! ! int ____temp213Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp214[1 * 11]; ! ! ! ! int ____temp214Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp215[1 * 12]; ! ! ! ! int ____temp215Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp216[1 * 13]; ! ! ! ! int ____temp216Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp217[1 * 14]; ! ! ! ! int ____temp217Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp218[1 * 15]; ! ! ! ! int ____temp218Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp219[1 * 16]; ! ! ! ! int ____temp219Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp220[1 * 17]; ! ! ! ! int ____temp220Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp221[1 * 18]; ! ! ! ! int ____temp221Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp222[1 * 19]; ! ! ! ! int ____temp222Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp223[1 * 20]; ! ! ! ! int ____temp223Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp224[1 * 21]; ! ! ! ! int ____temp224Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double __temp225[1 * 2]; ! ! ! ! int ____temp225Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp226[1 * 3]; ! ! ! ! int ____temp226Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp227[1 * 4]; ! ! ! ! int ____temp227Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp228[1 * 5]; ! ! ! ! int ____temp228Size[2] = {1, 5};; ! ! ! ! ! ! ! ! double __temp229[1 * 6]; ! ! ! ! int ____temp229Size[2] = {1, 6};; ! ! ! ! ! ! ! ! double __temp230[1 * 7]; ! ! ! ! int ____temp230Size[2] = {1, 7};; ! ! ! ! ! ! ! ! double __temp231[1 * 8]; ! ! ! ! int ____temp231Size[2] = {1, 8};; ! ! ! ! ! ! ! ! double __temp232[1 * 9]; ! ! ! ! int ____temp232Size[2] = {1, 9};; ! ! ! ! ! ! ! ! double __temp233[1 * 10]; ! ! ! ! int ____temp233Size[2] = {1, 10};; ! ! ! ! ! ! ! ! double __temp234[1 * 11]; ! ! ! ! int ____temp234Size[2] = {1, 11};; ! ! ! ! ! ! ! ! double __temp235[1 * 12]; ! ! ! ! int ____temp235Size[2] = {1, 12};; ! ! ! ! ! ! ! ! double __temp236[1 * 13]; ! ! ! ! int ____temp236Size[2] = {1, 13};; ! ! ! ! ! ! ! ! double __temp237[1 * 14]; ! ! ! ! int ____temp237Size[2] = {1, 14};; ! ! ! ! ! ! ! ! double __temp238[1 * 15]; ! ! ! ! int ____temp238Size[2] = {1, 15};; ! ! ! ! ! ! ! ! double __temp239[1 * 16]; ! ! ! ! int ____temp239Size[2] = {1, 16};; ! ! ! ! ! ! ! ! double __temp240[1 * 17]; ! ! ! ! int ____temp240Size[2] = {1, 17};; ! ! ! ! ! ! ! ! double __temp241[1 * 18]; ! ! ! ! int ____temp241Size[2] = {1, 18};; ! ! ! ! ! ! ! ! double __temp242[1 * 19]; ! ! ! ! int ____temp242Size[2] = {1, 19};; ! ! ! ! ! ! ! ! double __temp243[1 * 20]; ! ! ! ! int ____temp243Size[2] = {1, 20};; ! ! ! ! ! ! ! ! double __temp244[1 * 21]; ! ! ! ! int ____temp244Size[2] = {1, 21};; ! ! ! ! ! ! ! ! double __temp245[2 * 21]; ! ! ! ! int ____temp245Size[2] = {2, 21};; ! ! ! ! ! ! ! ! doubleComplex ff[2 * 21]; ! ! ! ! int __ffSize[2] = {2, 21};; ! ! ! ! ! ! ! ! doubleComplex __temp246[2 * 21]; ! ! ! ! int ____temp246Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans74; ! ! ! ! ! ! ! ! char __temp247[1*1] = {""}; ! ! ! ! int ____temp247Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans75; ! ! ! ! ! ! ! ! doubleComplex gg[2 * 4]; ! ! ! ! int __ggSize[2] = {2, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp248[2 * 4]; ! ! ! ! int ____temp248Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans76; ! ! ! ! ! ! ! ! char __temp249[1*1] = {""}; ! ! ! ! int ____temp249Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans77; ! ! ! ! ! ! ! ! doubleComplex hh[2 * 2]; ! ! ! ! int __hhSize[2] = {2, 2};; ! ! ! ! ! ! ! ! doubleComplex __temp250[2 * 2]; ! ! ! ! int ____temp250Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans78; ! ! ! ! ! ! ! ! char __temp251[1*1] = {""}; ! ! ! ! int ____temp251Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans79; ! ! ! ! ! ! ! ! doubleComplex jj[2 * 21]; ! ! ! ! int __jjSize[2] = {2, 21};; ! ! ! ! ! ! ! ! doubleComplex __temp252[2 * 21]; ! ! ! ! int ____temp252Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans80; ! ! ! ! ! ! ! ! char __temp253[1*1] = {""}; ! ! ! ! int ____temp253Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans81; ! ! ! ! ! ! ! ! char __temp254[1*20] = {"*******************"}; ! ! ! ! int ____temp254Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans82; ! ! ! ! ! ! ! ! char __temp255[1*20] = {"*******************"}; ! ! ! ! int ____temp255Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans83; ! ! ! ! ! ! ! ! char __temp256[1*1] = {""}; ! ! ! ! int ____temp256Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans84; ! ! ! ! ! ! ! ! double __temp257[2 * 4]; ! ! ! ! int ____temp257Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans85; ! ! ! ! ! ! ! ! char __temp258[1*1] = {""}; ! ! ! ! int ____temp258Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans86; ! ! ! ! ! ! ! ! double __temp259[2 * 2]; ! ! ! ! int ____temp259Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans87; ! ! ! ! ! ! ! ! char __temp260[1*1] = {""}; ! ! ! ! int ____temp260Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans88; ! ! ! ! ! ! ! ! double __temp261[2 * 21]; ! ! ! ! int ____temp261Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans89; ! ! ! ! ! ! ! ! char __temp262[1*1] = {""}; ! ! ! ! int ____temp262Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans90; ! ! ! ! ! ! ! ! doubleComplex __temp263[2 * 4]; ! ! ! ! int ____temp263Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans91; ! ! ! ! ! ! ! ! char __temp264[1*1] = {""}; ! ! ! ! int ____temp264Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans92; ! ! ! ! ! ! ! ! doubleComplex __temp265[2 * 2]; ! ! ! ! int ____temp265Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans93; ! ! ! ! ! ! ! ! char __temp266[1*1] = {""}; ! ! ! ! int ____temp266Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans94; ! ! ! ! ! ! ! ! doubleComplex __temp267[2 * 21]; ! ! ! ! int ____temp267Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans95; ! ! ! ! ! ! ! ! char __temp268[1*1] = {""}; ! ! ! ! int ____temp268Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans96; ! ! ! ! ! ! ! ! doubleComplex __temp269[2 * 4]; ! ! ! ! int ____temp269Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans97; ! ! ! ! ! ! ! ! char __temp270[1*1] = {""}; ! ! ! ! int ____temp270Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans98; ! ! ! ! ! ! ! ! doubleComplex __temp271[2 * 2]; ! ! ! ! int ____temp271Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans99; ! ! ! ! ! ! ! ! char __temp272[1*1] = {""}; ! ! ! ! int ____temp272Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans100; ! ! ! ! ! ! ! ! doubleComplex __temp273[2 * 21]; ! ! ! ! int ____temp273Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans101; ! ! ! ! ! ! ! ! char __temp274[1*1] = {""}; ! ! ! ! int ____temp274Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans102; ! ! ! ! ! ! ! ! char __temp275[1*1] = {""}; ! ! ! ! int ____temp275Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans103; ! ! ! ! ! ! ! ! char __temp276[1*20] = {"*******************"}; ! ! ! ! int ____temp276Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans104; ! ! ! ! ! ! ! ! char __temp277[1*20] = {"*******************"}; ! ! ! ! int ____temp277Size[2] = {1,20}; ! ! ! ! ! ! ! ! double ans105; ! ! ! ! ! ! ! ! char __temp278[1*1] = {""}; ! ! ! ! int ____temp278Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans106; ! ! ! ! ! ! ! ! double __temp279[2 * 4]; ! ! ! ! int ____temp279Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans107; ! ! ! ! ! ! ! ! char __temp280[1*1] = {""}; ! ! ! ! int ____temp280Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans108; ! ! ! ! ! ! ! ! double __temp281[2 * 2]; ! ! ! ! int ____temp281Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans109; ! ! ! ! ! ! ! ! char __temp282[1*1] = {""}; ! ! ! ! int ____temp282Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans110; ! ! ! ! ! ! ! ! double __temp283[2 * 21]; ! ! ! ! int ____temp283Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans111; ! ! ! ! ! ! ! ! char __temp284[1*1] = {""}; ! ! ! ! int ____temp284Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans112; ! ! ! ! ! ! ! ! doubleComplex __temp285[2 * 4]; ! ! ! ! int ____temp285Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans113; ! ! ! ! ! ! ! ! char __temp286[1*1] = {""}; ! ! ! ! int ____temp286Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans114; ! ! ! ! ! ! ! ! doubleComplex __temp287[2 * 2]; ! ! ! ! int ____temp287Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans115; ! ! ! ! ! ! ! ! char __temp288[1*1] = {""}; ! ! ! ! int ____temp288Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans116; ! ! ! ! ! ! ! ! doubleComplex __temp289[2 * 21]; ! ! ! ! int ____temp289Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans117; ! ! ! ! ! ! ! ! char __temp290[1*1] = {""}; ! ! ! ! int ____temp290Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans118; ! ! ! ! ! ! ! ! doubleComplex __temp291[2 * 4]; ! ! ! ! int ____temp291Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double ans119; ! ! ! ! ! ! ! ! char __temp292[1*1] = {""}; ! ! ! ! int ____temp292Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans120; ! ! ! ! ! ! ! ! doubleComplex __temp293[2 * 2]; ! ! ! ! int ____temp293Size[2] = {2, 2};; ! ! ! ! ! ! ! ! double ans121; ! ! ! ! ! ! ! ! char __temp294[1*1] = {""}; ! ! ! ! int ____temp294Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans122; ! ! ! ! ! ! ! ! doubleComplex __temp295[2 * 21]; ! ! ! ! int ____temp295Size[2] = {2, 21};; ! ! ! ! ! ! ! ! double ans123; ! ! ! ! ! ! ! ! char __temp296[1*1] = {""}; ! ! ! ! int ____temp296Size[2] = {1,1}; ! ! ! ! ! ! ! ! double ans124; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- End Variable Declaration. --- ! ! ! !** --------------------------------- ! ! ! !*/ ! ! ! !/* ! ! ! !** --------------- ! ! ! !** --- C code. --- ! ! ! !** --------------- ! ! ! !*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(4.4)) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp1 = d0fftd0(4.4); ! ! ! ! ans1 = d0dispd0(__temp1); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(%i + 3.4)) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),3.4); ! ! ! ! __temp3 = z0fftz0(__temp2); ! ! ! ! ans2 = z0dispd0(__temp3); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // one input ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,1,__temp4); ! ! ! ! d2d0OpRcd2(__temp4, ____temp4Size,15,__temp5); ! ! ! ! d2d0OpRcd2(__temp5, ____temp5Size,3.5,a); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(a)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(a, __aSize,__temp6); ! ! ! ! ans3 = d2dispd0(__temp6, ____temp6Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans4 = g2dispd0(__temp7, ____temp7Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: b = [25 3.6]; // d2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(25,3.6,b); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(b)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(b, __bSize,__temp8); ! ! ! ! ans5 = d2dispd0(__temp8, ____temp8Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans6 = g2dispd0(__temp9, ____temp9Size); ! ! ! ! ! ! ! ! /*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,__temp10); ! ! ! ! d2d0OpRcd2(__temp10, ____temp10Size,5,__temp11); ! ! ! ! d2d0OpRcd2(__temp11, ____temp11Size,6,__temp12); ! ! ! ! d2d0OpRcd2(__temp12, ____temp12Size,3,__temp13); ! ! ! ! d2d0OpRcd2(__temp13, ____temp13Size,8,__temp14); ! ! ! ! d2d0OpRcd2(__temp14, ____temp14Size,9,__temp15); ! ! ! ! d2d0OpRcd2(__temp15, ____temp15Size,445,__temp16); ! ! ! ! d2d0OpRcd2(__temp16, ____temp16Size,1,__temp17); ! ! ! ! d2d0OpRcd2(__temp17, ____temp17Size,2,__temp18); ! ! ! ! d2d0OpRcd2(__temp18, ____temp18Size,3,__temp19); ! ! ! ! d2d0OpRcd2(__temp19, ____temp19Size,0,__temp20); ! ! ! ! d2d0OpRcd2(__temp20, ____temp20Size,125,__temp21); ! ! ! ! d2d0OpRcd2(__temp21, ____temp21Size,5,__temp22); ! ! ! ! d2d0OpRcd2(__temp22, ____temp22Size,41,__temp23); ! ! ! ! d2d0OpRcd2(__temp23, ____temp23Size,4,__temp24); ! ! ! ! d2d0OpRcd2(__temp24, ____temp24Size,5,__temp25); ! ! ! ! d2d0OpRcd2(__temp25, ____temp25Size,552,__temp26); ! ! ! ! d2d0OpRcd2(__temp26, ____temp26Size,2.36,__temp27); ! ! ! ! d2d0OpRcd2(__temp27, ____temp27Size,45656,__temp28); ! ! ! ! d2d0OpRcd2(__temp28, ____temp28Size,72.3,c); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(c)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(c, __cSize,__temp29); ! ! ! ! ans7 = d2dispd0(__temp29, ____temp29Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans8 = g2dispd0(__temp30, ____temp30Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // pure imaginary ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,1,__temp31); ! ! ! ! d2d0OpRcd2(__temp31, ____temp31Size,15,__temp32); ! ! ! ! d2d0OpRcd2(__temp32, ____temp32Size,3.5,__temp33); ! ! ! ! d2z0OpStarz2(__temp33, ____temp33Size,DoubleComplex(0,1),d); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(d)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(d, __dSize,__temp34); ! ! ! ! ans9 = z2dispd0(__temp34, ____temp34Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans10 = g2dispd0(__temp35, ____temp35Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: e = [25 3.6]*%i; // z2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(25,3.6,__temp36); ! ! ! ! d2z0OpStarz2(__temp36, ____temp36Size,DoubleComplex(0,1),e); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(e)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(e, __eSize,__temp37); ! ! ! ! ans11 = z2dispd0(__temp37, ____temp37Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans12 = g2dispd0(__temp38, ____temp38Size); ! ! ! ! ! ! ! ! /*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,__temp39); ! ! ! ! d2d0OpRcd2(__temp39, ____temp39Size,5,__temp40); ! ! ! ! d2d0OpRcd2(__temp40, ____temp40Size,6,__temp41); ! ! ! ! d2d0OpRcd2(__temp41, ____temp41Size,3,__temp42); ! ! ! ! d2d0OpRcd2(__temp42, ____temp42Size,8,__temp43); ! ! ! ! d2d0OpRcd2(__temp43, ____temp43Size,9,__temp44); ! ! ! ! d2d0OpRcd2(__temp44, ____temp44Size,445,__temp45); ! ! ! ! d2d0OpRcd2(__temp45, ____temp45Size,1,__temp46); ! ! ! ! d2d0OpRcd2(__temp46, ____temp46Size,2,__temp47); ! ! ! ! d2d0OpRcd2(__temp47, ____temp47Size,3,__temp48); ! ! ! ! d2d0OpRcd2(__temp48, ____temp48Size,0,__temp49); ! ! ! ! d2d0OpRcd2(__temp49, ____temp49Size,125,__temp50); ! ! ! ! d2d0OpRcd2(__temp50, ____temp50Size,5,__temp51); ! ! ! ! d2d0OpRcd2(__temp51, ____temp51Size,41,__temp52); ! ! ! ! d2d0OpRcd2(__temp52, ____temp52Size,4,__temp53); ! ! ! ! d2d0OpRcd2(__temp53, ____temp53Size,5,__temp54); ! ! ! ! d2d0OpRcd2(__temp54, ____temp54Size,552,__temp55); ! ! ! ! d2d0OpRcd2(__temp55, ____temp55Size,2.36,__temp56); ! ! ! ! d2d0OpRcd2(__temp56, ____temp56Size,45656,__temp57); ! ! ! ! d2d0OpRcd2(__temp57, ____temp57Size,72.3,__temp58); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp58, ____temp58Size,f); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(f)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(f, __fSize,__temp59); ! ! ! ! ans13 = z2dispd0(__temp59, ____temp59Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans14 = g2dispd0(__temp60, ____temp60Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,1,__temp61); ! ! ! ! d2d0OpRcd2(__temp61, ____temp61Size,15,__temp62); ! ! ! ! d2d0OpRcd2(__temp62, ____temp62Size,3.5,__temp63); ! ! ! ! d2z0OpStarz2(__temp63, ____temp63Size,DoubleComplex(0,1),__temp64)! ! ; ! ! ! ! d2z2OpPlusz2(a, __aSize,__temp64, ____temp64Size,g); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(g)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(g, __gSize,__temp65); ! ! ! ! ans15 = z2dispd0(__temp65, ____temp65Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans16 = g2dispd0(__temp66, ____temp66Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(25,3.6,__temp67); ! ! ! ! d2z0OpStarz2(__temp67, ____temp67Size,DoubleComplex(0,1),__temp68)! ! ; ! ! ! ! d2z2OpPlusz2(b, __bSize,__temp68, ____temp68Size,h); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(h)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(h, __hSize,__temp69); ! ! ! ! ans17 = z2dispd0(__temp69, ____temp69Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans18 = g2dispd0(__temp70, ____temp70Size); ! ! ! ! ! ! ! ! /*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,__temp71); ! ! ! ! d2d0OpRcd2(__temp71, ____temp71Size,5,__temp72); ! ! ! ! d2d0OpRcd2(__temp72, ____temp72Size,6,__temp73); ! ! ! ! d2d0OpRcd2(__temp73, ____temp73Size,3,__temp74); ! ! ! ! d2d0OpRcd2(__temp74, ____temp74Size,8,__temp75); ! ! ! ! d2d0OpRcd2(__temp75, ____temp75Size,9,__temp76); ! ! ! ! d2d0OpRcd2(__temp76, ____temp76Size,445,__temp77); ! ! ! ! d2d0OpRcd2(__temp77, ____temp77Size,1,__temp78); ! ! ! ! d2d0OpRcd2(__temp78, ____temp78Size,2,__temp79); ! ! ! ! d2d0OpRcd2(__temp79, ____temp79Size,3,__temp80); ! ! ! ! d2d0OpRcd2(__temp80, ____temp80Size,0,__temp81); ! ! ! ! d2d0OpRcd2(__temp81, ____temp81Size,125,__temp82); ! ! ! ! d2d0OpRcd2(__temp82, ____temp82Size,5,__temp83); ! ! ! ! d2d0OpRcd2(__temp83, ____temp83Size,41,__temp84); ! ! ! ! d2d0OpRcd2(__temp84, ____temp84Size,4,__temp85); ! ! ! ! d2d0OpRcd2(__temp85, ____temp85Size,5,__temp86); ! ! ! ! d2d0OpRcd2(__temp86, ____temp86Size,552,__temp87); ! ! ! ! d2d0OpRcd2(__temp87, ____temp87Size,2.36,__temp88); ! ! ! ! d2d0OpRcd2(__temp88, ____temp88Size,45656,__temp89); ! ! ! ! d2d0OpRcd2(__temp89, ____temp89Size,72.3,__temp90); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp90, ____temp90Size,__temp91)! ! ; ! ! ! ! d2z2OpPlusz2(c, __cSize,__temp91, ____temp91Size,j); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(j)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(j, __jSize,__temp92); ! ! ! ! ans19 = z2dispd0(__temp92, ____temp92Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans20 = g2dispd0(__temp93, ____temp93Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans21 = g2dispd0(__temp94, ____temp94Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans22 = g2dispd0(__temp95, ____temp95Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans23 = g2dispd0(__temp96, ____temp96Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // two output ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // call ifft ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(a,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(a, __aSize,1,__temp97); ! ! ! ! ans24 = d2dispd0(__temp97, ____temp97Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans25 = g2dispd0(__temp98, ____temp98Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(b,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(b, __bSize,1,__temp99); ! ! ! ! ans26 = d2dispd0(__temp99, ____temp99Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans27 = g2dispd0(__temp100, ____temp100Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(c,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(c, __cSize,1,__temp101); ! ! ! ! ans28 = d2dispd0(__temp101, ____temp101Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans29 = g2dispd0(__temp102, ____temp102Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(d,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(d, __dSize,1,__temp103); ! ! ! ! ans30 = z2dispd0(__temp103, ____temp103Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans31 = g2dispd0(__temp104, ____temp104Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(e,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(e, __eSize,1,__temp105); ! ! ! ! ans32 = z2dispd0(__temp105, ____temp105Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans33 = g2dispd0(__temp106, ____temp106Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(f,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(f, __fSize,1,__temp107); ! ! ! ! ans34 = z2dispd0(__temp107, ____temp107Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans35 = g2dispd0(__temp108, ____temp108Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(g,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(g, __gSize,1,__temp109); ! ! ! ! ans36 = z2dispd0(__temp109, ____temp109Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans37 = g2dispd0(__temp110, ____temp110Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(h,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(h, __hSize,1,__temp111); ! ! ! ! ans38 = z2dispd0(__temp111, ____temp111Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans39 = g2dispd0(__temp112, ____temp112Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(j,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(j, __jSize,1,__temp113); ! ! ! ! ans40 = z2dispd0(__temp113, ____temp113Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans41 = g2dispd0(__temp114, ____temp114Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans42 = g2dispd0(__temp115, ____temp115Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans43 = g2dispd0(__temp116, ____temp116Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans44 = g2dispd0(__temp117, ____temp117Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans45 = g2dispd0(__temp118, ____temp118Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(a,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(a, __aSize,-1,__temp119); ! ! ! ! ans46 = d2dispd0(__temp119, ____temp119Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(b,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans47 = g2dispd0(__temp120, ____temp120Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(b, __bSize,-1,__temp121); ! ! ! ! ans48 = d2dispd0(__temp121, ____temp121Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(c,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans49 = g2dispd0(__temp122, ____temp122Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(c, __cSize,-1,__temp123); ! ! ! ! ans50 = d2dispd0(__temp123, ____temp123Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(d,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans51 = g2dispd0(__temp124, ____temp124Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(d, __dSize,-1,__temp125); ! ! ! ! ans52 = z2dispd0(__temp125, ____temp125Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(e,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans53 = g2dispd0(__temp126, ____temp126Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(e, __eSize,-1,__temp127); ! ! ! ! ans54 = z2dispd0(__temp127, ____temp127Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(f,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans55 = g2dispd0(__temp128, ____temp128Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(f, __fSize,-1,__temp129); ! ! ! ! ans56 = z2dispd0(__temp129, ____temp129Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans57 = g2dispd0(__temp130, ____temp130Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(g,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(g, __gSize,-1,__temp131); ! ! ! ! ans58 = z2dispd0(__temp131, ____temp131Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(h,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans59 = g2dispd0(__temp132, ____temp132Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(h, __hSize,-1,__temp133); ! ! ! ! ans60 = z2dispd0(__temp133, ____temp133Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(j,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans61 = g2dispd0(__temp134, ____temp134Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(j, __jSize,-1,__temp135); ! ! ! ! ans62 = z2dispd0(__temp135, ____temp135Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans63 = g2dispd0(__temp136, ____temp136Size); ! ! ! ! ! ! ! ! /*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(fft(aa)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,1,__temp137); ! ! ! ! d2d0OpRcd2(__temp137, ____temp137Size,15,__temp138); ! ! ! ! d2d0OpRcd2(__temp138, ____temp138Size,3.5,__temp139); ! ! ! ! d0d0OpRcd2(5,3,__temp140); ! ! ! ! d2d0OpRcd2(__temp140, ____temp140Size,9,__temp141); ! ! ! ! d2d0OpRcd2(__temp141, ____temp141Size,6,__temp142); ! ! ! ! d2d2OpCcd2(__temp139, ____temp139Size,__temp142, ____temp142Size,! ! aa); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(aa, __aaSize,__temp143); ! ! ! ! ans64 = d2dispd0(__temp143, ____temp143Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans65 = g2dispd0(__temp144, ____temp144Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(bb)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(25,3.6,__temp145); ! ! ! ! d0d0OpRcd2(4,3.2,__temp146); ! ! ! ! d2d2OpCcd2(__temp145, ____temp145Size,__temp146, ____temp146Size,! ! bb); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(bb, __bbSize,__temp147); ! ! ! ! ans66 = d2dispd0(__temp147, ____temp147Size); ! ! ! ! ! ! ! ! /*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: ##########################################################! ! ########*/ ! ! ! ! ans67 = g2dispd0(__temp148, ____temp148Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(cc)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,2,__temp149); ! ! ! ! d2d0OpRcd2(__temp149, ____temp149Size,5,__temp150); ! ! ! ! d2d0OpRcd2(__temp150, ____temp150Size,6,__temp151); ! ! ! ! d2d0OpRcd2(__temp151, ____temp151Size,3,__temp152); ! ! ! ! d2d0OpRcd2(__temp152, ____temp152Size,8,__temp153); ! ! ! ! d2d0OpRcd2(__temp153, ____temp153Size,9,__temp154); ! ! ! ! d2d0OpRcd2(__temp154, ____temp154Size,445,__temp155); ! ! ! ! d2d0OpRcd2(__temp155, ____temp155Size,1,__temp156); ! ! ! ! d2d0OpRcd2(__temp156, ____temp156Size,2,__temp157); ! ! ! ! d2d0OpRcd2(__temp157, ____temp157Size,3,__temp158); ! ! ! ! d2d0OpRcd2(__temp158, ____temp158Size,0,__temp159); ! ! ! ! d2d0OpRcd2(__temp159, ____temp159Size,125,__temp160); ! ! ! ! d2d0OpRcd2(__temp160, ____temp160Size,5,__temp161); ! ! ! ! d2d0OpRcd2(__temp161, ____temp161Size,41,__temp162); ! ! ! ! d2d0OpRcd2(__temp162, ____temp162Size,4,__temp163); ! ! ! ! d2d0OpRcd2(__temp163, ____temp163Size,5,__temp164); ! ! ! ! d2d0OpRcd2(__temp164, ____temp164Size,552,__temp165); ! ! ! ! d2d0OpRcd2(__temp165, ____temp165Size,2.36,__temp166); ! ! ! ! d2d0OpRcd2(__temp166, ____temp166Size,45656,__temp167); ! ! ! ! d2d0OpRcd2(__temp167, ____temp167Size,72.3,__temp168); ! ! ! ! d0d0OpRcd2(21,8,__temp169); ! ! ! ! d2d0OpRcd2(__temp169, ____temp169Size,2,__temp170); ! ! ! ! d2d0OpRcd2(__temp170, ____temp170Size,5,__temp171); ! ! ! ! d2d0OpRcd2(__temp171, ____temp171Size,6,__temp172); ! ! ! ! d2d0OpRcd2(__temp172, ____temp172Size,3,__temp173); ! ! ! ! d2d0OpRcd2(__temp173, ____temp173Size,4,__temp174); ! ! ! ! d2d0OpRcd2(__temp174, ____temp174Size,123,__temp175); ! ! ! ! d2d0OpRcd2(__temp175, ____temp175Size,5,__temp176); ! ! ! ! d2d0OpRcd2(__temp176, ____temp176Size,6,__temp177); ! ! ! ! d2d0OpRcd2(__temp177, ____temp177Size,0,__temp178); ! ! ! ! d2d0OpRcd2(__temp178, ____temp178Size,5,__temp179); ! ! ! ! d2d0OpRcd2(__temp179, ____temp179Size,548,__temp180); ! ! ! ! d2d0OpRcd2(__temp180, ____temp180Size,7,__temp181); ! ! ! ! d2d0OpRcd2(__temp181, ____temp181Size,65,__temp182); ! ! ! ! d2d0OpRcd2(__temp182, ____temp182Size,4,__temp183); ! ! ! ! d2d0OpRcd2(__temp183, ____temp183Size,2,__temp184); ! ! ! ! d2d0OpRcd2(__temp184, ____temp184Size,166,__temp185); ! ! ! ! d2d0OpRcd2(__temp185, ____temp185Size,4.12,__temp186); ! ! ! ! d2d0OpRcd2(__temp186, ____temp186Size,65546,__temp187); ! ! ! ! d2d0OpRcd2(__temp187, ____temp187Size,1.78,__temp188); ! ! ! ! d2d2OpCcd2(__temp168, ____temp168Size,__temp188, ____temp188Size,! ! cc); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2fftd2(cc, __ccSize,__temp189); ! ! ! ! ans68 = d2dispd0(__temp189, ____temp189Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // pure imaginary ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans69 = g2dispd0(__temp190, ____temp190Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(dd)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,1,__temp191); ! ! ! ! d2d0OpRcd2(__temp191, ____temp191Size,15,__temp192); ! ! ! ! d2d0OpRcd2(__temp192, ____temp192Size,3.5,__temp193); ! ! ! ! d0d0OpRcd2(5,8,__temp194); ! ! ! ! d2d0OpRcd2(__temp194, ____temp194Size,6,__temp195); ! ! ! ! d2d0OpRcd2(__temp195, ____temp195Size,3,__temp196); ! ! ! ! d2d2OpCcd2(__temp193, ____temp193Size,__temp196, ____temp196Size,! ! __temp197); ! ! ! ! d2z0OpStarz2(__temp197, ____temp197Size,DoubleComplex(0,1),dd); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(dd, __ddSize,__temp198); ! ! ! ! ans70 = z2dispd0(__temp198, ____temp198Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans71 = g2dispd0(__temp199, ____temp199Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ee)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(25,3.6,__temp200); ! ! ! ! d0d0OpRcd2(4,5.9,__temp201); ! ! ! ! d2d2OpCcd2(__temp200, ____temp200Size,__temp201, ____temp201Size,! ! __temp202); ! ! ! ! d2z0OpStarz2(__temp202, ____temp202Size,DoubleComplex(0,1),ee); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(ee, __eeSize,__temp203); ! ! ! ! ans72 = z2dispd0(__temp203, ____temp203Size); ! ! ! ! ! ! ! ! /*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: ##########################################################! ! ########*/ ! ! ! ! ans73 = g2dispd0(__temp204, ____temp204Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(10,2,__temp205); ! ! ! ! d2d0OpRcd2(__temp205, ____temp205Size,5,__temp206); ! ! ! ! d2d0OpRcd2(__temp206, ____temp206Size,6,__temp207); ! ! ! ! d2d0OpRcd2(__temp207, ____temp207Size,3,__temp208); ! ! ! ! d2d0OpRcd2(__temp208, ____temp208Size,8,__temp209); ! ! ! ! d2d0OpRcd2(__temp209, ____temp209Size,9,__temp210); ! ! ! ! d2d0OpRcd2(__temp210, ____temp210Size,445,__temp211); ! ! ! ! d2d0OpRcd2(__temp211, ____temp211Size,1,__temp212); ! ! ! ! d2d0OpRcd2(__temp212, ____temp212Size,2,__temp213); ! ! ! ! d2d0OpRcd2(__temp213, ____temp213Size,3,__temp214); ! ! ! ! d2d0OpRcd2(__temp214, ____temp214Size,0,__temp215); ! ! ! ! d2d0OpRcd2(__temp215, ____temp215Size,125,__temp216); ! ! ! ! d2d0OpRcd2(__temp216, ____temp216Size,5,__temp217); ! ! ! ! d2d0OpRcd2(__temp217, ____temp217Size,41,__temp218); ! ! ! ! d2d0OpRcd2(__temp218, ____temp218Size,4,__temp219); ! ! ! ! d2d0OpRcd2(__temp219, ____temp219Size,5,__temp220); ! ! ! ! d2d0OpRcd2(__temp220, ____temp220Size,552,__temp221); ! ! ! ! d2d0OpRcd2(__temp221, ____temp221Size,2.36,__temp222); ! ! ! ! d2d0OpRcd2(__temp222, ____temp222Size,45656,__temp223); ! ! ! ! d2d0OpRcd2(__temp223, ____temp223Size,72.3,__temp224); ! ! ! ! d0d0OpRcd2(21,8,__temp225); ! ! ! ! d2d0OpRcd2(__temp225, ____temp225Size,2,__temp226); ! ! ! ! d2d0OpRcd2(__temp226, ____temp226Size,5,__temp227); ! ! ! ! d2d0OpRcd2(__temp227, ____temp227Size,6,__temp228); ! ! ! ! d2d0OpRcd2(__temp228, ____temp228Size,3,__temp229); ! ! ! ! d2d0OpRcd2(__temp229, ____temp229Size,4,__temp230); ! ! ! ! d2d0OpRcd2(__temp230, ____temp230Size,123,__temp231); ! ! ! ! d2d0OpRcd2(__temp231, ____temp231Size,5,__temp232); ! ! ! ! d2d0OpRcd2(__temp232, ____temp232Size,6,__temp233); ! ! ! ! d2d0OpRcd2(__temp233, ____temp233Size,0,__temp234); ! ! ! ! d2d0OpRcd2(__temp234, ____temp234Size,5,__temp235); ! ! ! ! d2d0OpRcd2(__temp235, ____temp235Size,548,__temp236); ! ! ! ! d2d0OpRcd2(__temp236, ____temp236Size,7,__temp237); ! ! ! ! d2d0OpRcd2(__temp237, ____temp237Size,65,__temp238); ! ! ! ! d2d0OpRcd2(__temp238, ____temp238Size,4,__temp239); ! ! ! ! d2d0OpRcd2(__temp239, ____temp239Size,2,__temp240); ! ! ! ! d2d0OpRcd2(__temp240, ____temp240Size,166,__temp241); ! ! ! ! d2d0OpRcd2(__temp241, ____temp241Size,4.12,__temp242); ! ! ! ! d2d0OpRcd2(__temp242, ____temp242Size,65546,__temp243); ! ! ! ! d2d0OpRcd2(__temp243, ____temp243Size,1.78,__temp244); ! ! ! ! d2d2OpCcd2(__temp224, ____temp224Size,__temp244, ____temp244Size,! ! __temp245); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp245, ____temp245Size,ff); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ff)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(ff, __ffSize,__temp246); ! ! ! ! ans74 = z2dispd0(__temp246, ____temp246Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans75 = g2dispd0(__temp247, ____temp247Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: gg = aa + dd; //z2Fftz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(gg)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpPlusz2(aa, __aaSize,dd, __ddSize,gg); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(gg, __ggSize,__temp248); ! ! ! ! ans76 = z2dispd0(__temp248, ____temp248Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: hh = bb + ee; // z2Fftd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans77 = g2dispd0(__temp249, ____temp249Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(hh)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpPlusz2(bb, __bbSize,ee, __eeSize,hh); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(hh, __hhSize,__temp250); ! ! ! ! ans78 = z2dispd0(__temp250, ____temp250Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: jj= cc + ff ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans79 = g2dispd0(__temp251, ____temp251Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(jj)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpPlusz2(cc, __ccSize,ff, __ffSize,jj); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2fftz2(jj, __jjSize,__temp252); ! ! ! ! ans80 = z2dispd0(__temp252, ____temp252Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans81 = g2dispd0(__temp253, ____temp253Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans82 = g2dispd0(__temp254, ____temp254Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans83 = g2dispd0(__temp255, ____temp255Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // two output ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans84 = g2dispd0(__temp256, ____temp256Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // call ifft ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(aa,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(aa, __aaSize,1,__temp257); ! ! ! ! ans85 = d2dispd0(__temp257, ____temp257Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(bb,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans86 = g2dispd0(__temp258, ____temp258Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(bb, __bbSize,1,__temp259); ! ! ! ! ans87 = d2dispd0(__temp259, ____temp259Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(cc,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans88 = g2dispd0(__temp260, ____temp260Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(cc, __ccSize,1,__temp261); ! ! ! ! ans89 = d2dispd0(__temp261, ____temp261Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(dd,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans90 = g2dispd0(__temp262, ____temp262Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(dd, __ddSize,1,__temp263); ! ! ! ! ans91 = z2dispd0(__temp263, ____temp263Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ee,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans92 = g2dispd0(__temp264, ____temp264Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(ee, __eeSize,1,__temp265); ! ! ! ! ans93 = z2dispd0(__temp265, ____temp265Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ff,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans94 = g2dispd0(__temp266, ____temp266Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(ff, __ffSize,1,__temp267); ! ! ! ! ans95 = z2dispd0(__temp267, ____temp267Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans96 = g2dispd0(__temp268, ____temp268Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(gg,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(gg, __ggSize,1,__temp269); ! ! ! ! ans97 = z2dispd0(__temp269, ____temp269Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(hh,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans98 = g2dispd0(__temp270, ____temp270Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(hh, __hhSize,1,__temp271); ! ! ! ! ans99 = z2dispd0(__temp271, ____temp271Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(jj,1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans100 = g2dispd0(__temp272, ____temp272Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(jj, __jjSize,1,__temp273); ! ! ! ! ans101 = z2dispd0(__temp273, ____temp273Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans102 = g2dispd0(__temp274, ____temp274Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans103 = g2dispd0(__temp275, ____temp275Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp("*******************"); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans104 = g2dispd0(__temp276, ____temp276Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans105 = g2dispd0(__temp277, ____temp277Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans106 = g2dispd0(__temp278, ____temp278Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(aa,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(bb,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(aa, __aaSize,-1,__temp279); ! ! ! ! ans107 = d2dispd0(__temp279, ____temp279Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans108 = g2dispd0(__temp280, ____temp280Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(cc,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(bb, __bbSize,-1,__temp281); ! ! ! ! ans109 = d2dispd0(__temp281, ____temp281Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans110 = g2dispd0(__temp282, ____temp282Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(dd,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0fftd2(cc, __ccSize,-1,__temp283); ! ! ! ! ans111 = d2dispd0(__temp283, ____temp283Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans112 = g2dispd0(__temp284, ____temp284Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ee,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(dd, __ddSize,-1,__temp285); ! ! ! ! ans113 = z2dispd0(__temp285, ____temp285Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans114 = g2dispd0(__temp286, ____temp286Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(ff,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(ee, __eeSize,-1,__temp287); ! ! ! ! ans115 = z2dispd0(__temp287, ____temp287Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans116 = g2dispd0(__temp288, ____temp288Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: // full complex ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(ff, __ffSize,-1,__temp289); ! ! ! ! ans117 = z2dispd0(__temp289, ____temp289Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(gg,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans118 = g2dispd0(__temp290, ____temp290Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(hh,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(gg, __ggSize,-1,__temp291); ! ! ! ! ans119 = z2dispd0(__temp291, ____temp291Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans120 = g2dispd0(__temp292, ____temp292Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(fft(jj,-1)); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(hh, __hhSize,-1,__temp293); ! ! ! ! ans121 = z2dispd0(__temp293, ____temp293Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(""); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans122 = g2dispd0(__temp294, ____temp294Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0fftz2(jj, __jjSize,-1,__temp295); ! ! ! ! ans123 = z2dispd0(__temp295, ____temp295Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans124 = g2dispd0(__temp296, ____temp296Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);