diff options
| author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
|---|---|---|
| committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
| commit | 6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26 (patch) | |
| tree | 1b7bd89fdcfd01715713d8a15db471dc75a96bbf /2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref | |
| download | Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.gz Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.bz2 Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.zip | |
Original Version
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref | 1293 |
1 files changed, 1293 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref new file mode 100644 index 00000000..c23404a8 --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_OpDotHat.sci.dia.ref @@ -0,0 +1,1293 @@ +// +// 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_OpDotHat.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 36.46216 + + 5.9283225 + 7.016786i + + 1. 8.8249778 31.544281 77.880234 + 156.99255 278.37758 451.80787 687.29134 + 995.04164 1385.4557 1869.096 2456.676 + 3159.0482 3987.1945 4952.2169 6065.3308 + + + column 1 to 2 + + - 0.2305848 - 0.1014833i 1.8960812 - 1.1609458i + - 27.20192 + 28.711233i - 68.127844 + 16.643533i + - 128.15078 - 215.44779i - 71.255924 - 341.68558i + 461.54269 - 648.35545i 755.6226 - 661.84161i + + column 3 to 4 + + 5.9514188 + 5.2663201i - 1.1252863 + 19.587992i + - 110.43344 - 27.572522i - 136.3417 - 106.73041i + 44.117831 - 468.80814i 222.18104 - 577.65261i + 1093.3278 - 600.96383i 1459.8611 - 451.31942i + + 3.1415927 9.8696044 31.006277 97.409091 + 306.01968 961.38919 3020.2932 9488.531 + 29809.099 93648.047 294204.02 924269.18 + 2903677.3 9122171.2 28658146. 90032221. + + + column 1 to 2 + + - 1.3141052 + 1.541592i - 0.6496337 - 4.0516281i + 12.902191 - 31.573352i 31.718393 + 61.38062i + - 40.146534 + 572.8927i - 830.41006 - 814.73083i + - 2373.7017 - 9373.9919i 17570.165 + 8659.1315i + + column 3 to 4 + + 7.0996445 + 4.3227953i - 15.993666 + 5.2641479i + - 136.30518 - 31.763766i 228.08611 - 168.38605i + 2347.2287 - 209.51156i - 2761.524 + 3893.7893i + - 36437.892 + 15707.017i 23669.41 - 76813.037i + + 1. 4. 27. 256. + 3125. 46656. 823543. 16777216. + 3.874D+08 1.000D+10 2.853D+11 8.916D+12 + 3.029D+14 1.111D+16 4.379D+17 1.845D+19 + + + column 1 to 2 + + 0.2739573 + 0.5837008i - 1.4525046 - 0.8098895i + 145.23402 + 316.57634i 873.73919 - 3237.1528i + 876015.4 - 7412399.9i - 1.214D+08 + 26132892.i + - 5.981D+11 - 8.122D+11i - 1.952D+13 + 1.372D+13i + + column 3 to 4 + + 6.6423696 + 2.8756701i - 35.273382 - 26.719734i + - 34429.512 + 16460.776i 425100.32 + 265667.49i + 9.762D+08 + 2.066D+09i 3.852D+10 - 2.523D+10i + 3.008D+14 + 5.264D+14i 1.542D+16 - 5.784D+15i + + + column 1 to 2 + + 1. - 5.0322958 + 7.2495678i + 52.91841 - 147.80494i 220.90118 - 169.40114i + 810.07457 + 577.82962i 805.22086 + 1127.4338i + - 640.12268 + 3093.5139i - 1686.9732 + 3612.7332i + + column 3 to 4 + + - 30.042605 - 9.6168362i - 27.232232 - 72.963939i + 445.30044 - 76.40598i 665.99766 + 169.75421i + 589.32366 + 1773.758i 116.44495 + 2453.9147i + - 3011.2228 + 3931.5378i - 4582.1419 + 3973.9418i + + + column 1 to 2 + + - 2.3207356 + 1.8544984i - 20.48044 + 16.365907i + - 364.33818 + 291.14242i - 646.04074 + 516.25077i + - 2309.2285 + 1845.3031i - 3215.2764 + 2569.3254i + - 7331.3155 + 5858.4498i - 9253.224 + 7394.2457i + + column 3 to 4 + + - 73.205934 + 58.498818i - 180.73943 + 144.42877i + - 1048.5266 + 837.87697i - 1595.0214 + 1274.5807i + - 4337.6776 + 3466.2355i - 5701.2952 + 4555.9016i + - 11492.786 + 9183.8783i - 14076.029 + 11248.146i + + + column 1 to 2 + + 1.2983955 + 2.8607296i - 6.4979428 + 7.4287166i + 259.35216 - 162.43308i 801.41878 + 531.03401i + - 19043.607 - 22933.021i 40879.037 - 84254.74i + - 1967162.8 + 2135793.1i - 8664081.7 - 2854416.7i + + column 3 to 4 + + - 29.688449 - 8.9434449i - 12.96257 - 96.542751i + - 478.58617 + 2982.1345i - 9152.4746 + 2502.8844i + 294107.18 + 7547.8967i 360274.94 + 851161.26i + - 3083690.3 - 28491756.i 77503360. - 45815172.i + + + column 1 to 3 + + 3.1415927 + 3.1415927i 19.739209i - 62.012553 + 62.012553i + - 1224.0787 - 1224.0787i - 7691.1135i 24162.346 - 24162.346i + 476945.59 + 476945.59i 2996737.5i - 9414528.6 + 9414528.6i + - 1.858D+08 - 1.858D+08i - 1.168D+09i 3.668D+09 - 3.668D+09i + + column 4 + + - 389.63636 + 151816.5 + - 59153228. + 2.305D+10 + + - 32.757625 - 16.01334i + + - 84.61903 + 67.619016i + + + column 1 to 2 + + 1. 0.7338279 + 3.932111i + - 600.02537 + 3066.8542i - 11317.499 - 45262.529i + 2.330D+08 + 3.095D+08i - 5.108D+09 - 8.597D+09i + - 1.060D+14 + 2.837D+14i 8.113D+15 - 7.593D+15i + + column 3 to 4 + + - 26.679454 - 4.1480999i 189.39145 - 172.24075i + 406193.94 + 716400.42i - 10062654. - 13424529.i + 9.156D+10 + 2.702D+11i - 2.340D+11 - 8.913D+12i + - 4.273D+17 + 9.554D+16i 1.714D+19 + 6.827D+18i + + + column 1 to 3 + + 1. + i 8.i - 54. + 54.i + - 12500. - 12500.i - 373248.i 6588344. - 6588344.i + 6.199D+09 + 6.199D+09i 3.200D+11i - 9.130D+12 + 9.130D+12i + - 1.938D+16 - 1.938D+16i - 1.422D+18i 5.605D+19 - 5.605D+19i + + column 4 + + - 1024. + 2.684D+08 + - 5.706D+14 + 4.722D+21 + + ------------------------------------------ + + --- 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_OpDotHat" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotHat() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp29; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpDotHatd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpDotHatz0(z0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpDotHatd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpDotHatz2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpDotHatd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpDotHatz2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpDotHatd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpDotHatz2(z2, __z2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpDotHatz2(d2, __d2Size,z0,__temp25); ! +! ! +! ans9 = z2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpDotHatz2(z2, __z2Size,d0,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpDotHatz2(d0,z2, __z2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpDotHatz2(z0,d2, __d2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp29 = d0z0OpDotHatz0(d0,z0); ! +! ! +! ans13 = z0dispd0(__temp29); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z0d0OpDotHatz0(z0,d0); ! +! ! +! ans14 = z0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpDotHatz2(d2, __d2Size,z2, __z2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpDotHatz2(z2, __z2Size,d2, __d2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |