diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_Fft.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_Fft.sci.dia.ref | 7610 |
1 files changed, 7610 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_Fft.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_Fft.sci.dia.ref new file mode 100644 index 00000000..448fc66e --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_Fft.sci.dia.ref @@ -0,0 +1,7610 @@ +// +// 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); |