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