// // 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_OpStar.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- 9.8696044 9.8696044 + 9.8696044i 9.8696044 + 9.8696044i 19.739209i 3.1415927 6.2831853 9.424778 12.566371 15.707963 18.849556 21.991149 25.132741 28.274334 31.415927 34.557519 37.699112 40.840704 43.982297 47.12389 50.265482 column 1 to 2 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i 15.707963 + 15.707963i 18.849556 + 18.849556i 28.274334 + 28.274334i 31.415927 + 31.415927i 40.840704 + 40.840704i 43.982297 + 43.982297i column 3 to 4 9.424778 + 9.424778i 12.566371 + 12.566371i 21.991149 + 21.991149i 25.132741 + 25.132741i 34.557519 + 34.557519i 37.699112 + 37.699112i 47.12389 + 47.12389i 50.265482 + 50.265482i column 1 to 2 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i 15.707963 + 15.707963i 18.849556 + 18.849556i 28.274334 + 28.274334i 31.415927 + 31.415927i 40.840704 + 40.840704i 43.982297 + 43.982297i column 3 to 4 9.424778 + 9.424778i 12.566371 + 12.566371i 21.991149 + 21.991149i 25.132741 + 25.132741i 34.557519 + 34.557519i 37.699112 + 37.699112i 47.12389 + 47.12389i 50.265482 + 50.265482i 6.2831853i 12.566371i 18.849556i 25.132741i 31.415927i 37.699112i 43.982297i 50.265482i 56.548668i 62.831853i 69.115038i 75.398224i 81.681409i 87.964594i 94.24778i 100.53096i 3.1415927 6.2831853 9.424778 12.566371 15.707963 18.849556 21.991149 25.132741 28.274334 31.415927 34.557519 37.699112 40.840704 43.982297 47.12389 50.265482 column 1 to 2 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i 15.707963 + 15.707963i 18.849556 + 18.849556i 28.274334 + 28.274334i 31.415927 + 31.415927i 40.840704 + 40.840704i 43.982297 + 43.982297i column 3 to 4 9.424778 + 9.424778i 12.566371 + 12.566371i 21.991149 + 21.991149i 25.132741 + 25.132741i 34.557519 + 34.557519i 37.699112 + 37.699112i 47.12389 + 47.12389i 50.265482 + 50.265482i column 1 to 2 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i 15.707963 + 15.707963i 18.849556 + 18.849556i 28.274334 + 28.274334i 31.415927 + 31.415927i 40.840704 + 40.840704i 43.982297 + 43.982297i column 3 to 4 9.424778 + 9.424778i 12.566371 + 12.566371i 21.991149 + 21.991149i 25.132741 + 25.132741i 34.557519 + 34.557519i 37.699112 + 37.699112i 47.12389 + 47.12389i 50.265482 + 50.265482i 6.2831853i 12.566371i 18.849556i 25.132741i 31.415927i 37.699112i 43.982297i 50.265482i 56.548668i 62.831853i 69.115038i 75.398224i 81.681409i 87.964594i 94.24778i 100.53096i 90. 100. 110. 120. 202. 228. 254. 280. 314. 356. 398. 440. 426. 484. 542. 600. 90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i 202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i 314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i 426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i 90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i 202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i 314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i 426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i 180.i 200.i 220.i 240.i 404.i 456.i 508.i 560.i 628.i 712.i 796.i 880.i 852.i 968.i 1084.i 1200.i 14. - 14.i 14.i 14. ------------------------------------------ --- 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_OpStar" ******************************************* Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab. ********************************************************* *************************** ==> Generate the AST in TMPDIR/SCI2CTmpResultsReports/ test_OpStar/test_OpStar.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(d0*z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0*d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0*z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2*d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2*z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2*d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2*z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0*d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0*z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0*d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0*z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2*d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2*z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2*d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2*z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: endfunction SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ ********************************************** ==> Copying sources needed in TMPDIR/src/c/ ********************************************** ************************************************* ==> Copying headers needed in TMPDIR/includes/ ************************************************* ****************************************************** ==> Copying interfaces needed in TMPDIR/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_OpStar() ! ! ! ! SCI2C: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !SCI2Cint main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double d0 = 3.1415927; ! ! ! ! ! ! ! ! double __temp1[1 * 2]; ! ! ! ! SCI2Cint ____temp1Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp2[1 * 3]; ! ! ! ! SCI2Cint ____temp2Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp3[1 * 4]; ! ! ! ! SCI2Cint ____temp3Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp4[1 * 2]; ! ! ! ! SCI2Cint ____temp4Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp5[1 * 3]; ! ! ! ! SCI2Cint ____temp5Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp6[1 * 4]; ! ! ! ! SCI2Cint ____temp6Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp7[2 * 4]; ! ! ! ! SCI2Cint ____temp7Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double __temp8[1 * 2]; ! ! ! ! SCI2Cint ____temp8Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp9[1 * 3]; ! ! ! ! SCI2Cint ____temp9Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp10[1 * 4]; ! ! ! ! SCI2Cint ____temp10Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp11[3 * 4]; ! ! ! ! SCI2Cint ____temp11Size[2] = {3, 4};; ! ! ! ! ! ! ! ! double __temp12[1 * 2]; ! ! ! ! SCI2Cint ____temp12Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp13[1 * 3]; ! ! ! ! SCI2Cint ____temp13Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp14[1 * 4]; ! ! ! ! SCI2Cint ____temp14Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double d2[4 * 4]; ! ! ! ! SCI2Cint __d2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp15; ! ! ! ! ! ! ! ! doubleComplex z0; ! ! ! ! ! ! ! ! doubleComplex __temp16[4 * 4]; ! ! ! ! SCI2Cint ____temp16Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex z2[4 * 4]; ! ! ! ! SCI2Cint __z2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double __temp17; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! doubleComplex __temp18; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! doubleComplex __temp19; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! doubleComplex __temp20; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! double __temp21[4 * 4]; ! ! ! ! SCI2Cint ____temp21Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans5; ! ! ! ! ! ! ! ! doubleComplex __temp22[4 * 4]; ! ! ! ! SCI2Cint ____temp22Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans6; ! ! ! ! ! ! ! ! doubleComplex __temp23[4 * 4]; ! ! ! ! SCI2Cint ____temp23Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! doubleComplex __temp24[4 * 4]; ! ! ! ! SCI2Cint ____temp24Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! double __temp25[4 * 4]; ! ! ! ! SCI2Cint ____temp25Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! doubleComplex __temp26[4 * 4]; ! ! ! ! SCI2Cint ____temp26Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans10; ! ! ! ! ! ! ! ! doubleComplex __temp27[4 * 4]; ! ! ! ! SCI2Cint ____temp27Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans11; ! ! ! ! ! ! ! ! doubleComplex __temp28[4 * 4]; ! ! ! ! SCI2Cint ____temp28Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans12; ! ! ! ! ! ! ! ! double __temp29[4 * 4]; ! ! ! ! SCI2Cint ____temp29Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans13; ! ! ! ! ! ! ! ! doubleComplex __temp30[4 * 4]; ! ! ! ! SCI2Cint ____temp30Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans14; ! ! ! ! ! ! ! ! doubleComplex __temp31[4 * 4]; ! ! ! ! SCI2Cint ____temp31Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans15; ! ! ! ! ! ! ! ! doubleComplex __temp32[4 * 4]; ! ! ! ! SCI2Cint ____temp32Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans16; ! ! ! ! ! ! ! ! double __temp33[1 * 2]; ! ! ! ! SCI2Cint ____temp33Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp34[1 * 3]; ! ! ! ! SCI2Cint ____temp34Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp35[1 * 2]; ! ! ! ! SCI2Cint ____temp35Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp36[1 * 3]; ! ! ! ! SCI2Cint ____temp36Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp37[3 * 1]; ! ! ! ! SCI2Cint ____temp37Size[2] = {3, 1};; ! ! ! ! ! ! ! ! double __temp38; ! ! ! ! ! ! ! ! double ans17; ! ! ! ! ! ! ! ! double __temp39[1 * 2]; ! ! ! ! SCI2Cint ____temp39Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp40[1 * 3]; ! ! ! ! SCI2Cint ____temp40Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp41[1 * 2]; ! ! ! ! SCI2Cint ____temp41Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp42[1 * 3]; ! ! ! ! SCI2Cint ____temp42Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp43[1 * 3]; ! ! ! ! SCI2Cint ____temp43Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp44[3 * 1]; ! ! ! ! SCI2Cint ____temp44Size[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex __temp45; ! ! ! ! ! ! ! ! double ans18; ! ! ! ! ! ! ! ! double __temp46[1 * 2]; ! ! ! ! SCI2Cint ____temp46Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp47[1 * 3]; ! ! ! ! SCI2Cint ____temp47Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp48[1 * 3]; ! ! ! ! SCI2Cint ____temp48Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp49[1 * 2]; ! ! ! ! SCI2Cint ____temp49Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp50[1 * 3]; ! ! ! ! SCI2Cint ____temp50Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp51[3 * 1]; ! ! ! ! SCI2Cint ____temp51Size[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex __temp52; ! ! ! ! ! ! ! ! double ans19; ! ! ! ! ! ! ! ! double __temp53[1 * 2]; ! ! ! ! SCI2Cint ____temp53Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp54[1 * 3]; ! ! ! ! SCI2Cint ____temp54Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp55[1 * 3]; ! ! ! ! SCI2Cint ____temp55Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp56[1 * 2]; ! ! ! ! SCI2Cint ____temp56Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp57[1 * 3]; ! ! ! ! SCI2Cint ____temp57Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp58[1 * 3]; ! ! ! ! SCI2Cint ____temp58Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp59[3 * 1]; ! ! ! ! SCI2Cint ____temp59Size[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex __temp60; ! ! ! ! ! ! ! ! double ans20; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- 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 = d0d0OpStard0(d0,d0); ! ! ! ! ans1 = d0dispd0(__temp17); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0*z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp18 = d0z0OpStarz0(d0,z0); ! ! ! ! ans2 = z0dispd0(__temp18); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0*d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp19 = z0d0OpStarz0(z0,d0); ! ! ! ! ans3 = z0dispd0(__temp19); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0*z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp20 = z0z0OpStarz0(z0,z0); ! ! ! ! ans4 = z0dispd0(__temp20); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2*d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0OpStard2(d2, __d2Size,d0,__temp21); ! ! ! ! ans5 = d2dispd0(__temp21, ____temp21Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2*z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z0OpStarz2(d2, __d2Size,z0,__temp22); ! ! ! ! ans6 = z2dispd0(__temp22, ____temp22Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2*d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0OpStarz2(z2, __z2Size,d0,__temp23); ! ! ! ! ans7 = z2dispd0(__temp23, ____temp23Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2*z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z0OpStarz2(z2, __z2Size,z0,__temp24); ! ! ! ! ans8 = z2dispd0(__temp24, ____temp24Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0*d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d2OpStard2(d0,d2, __d2Size,__temp25); ! ! ! ! ans9 = d2dispd0(__temp25, ____temp25Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0*z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z2OpStarz2(d0,z2, __z2Size,__temp26); ! ! ! ! ans10 = z2dispd0(__temp26, ____temp26Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0*d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d2OpStarz2(z0,d2, __d2Size,__temp27); ! ! ! ! ans11 = z2dispd0(__temp27, ____temp27Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0*z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0z2OpStarz2(z0,z2, __z2Size,__temp28); ! ! ! ! ans12 = z2dispd0(__temp28, ____temp28Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2*d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d2OpStard2(d2, __d2Size,d2, __d2Size,__temp29); ! ! ! ! ans13 = d2dispd0(__temp29, ____temp29Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2*z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpStarz2(d2, __d2Size,z2, __z2Size,__temp30); ! ! ! ! ans14 = z2dispd0(__temp30, ____temp30Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2*d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d2OpStarz2(z2, __z2Size,d2, __d2Size,__temp31); ! ! ! ! ans15 = z2dispd0(__temp31, ____temp31Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2*z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z2OpStarz2(z2, __z2Size,z2, __z2Size,__temp32); ! ! ! ! ans16 = z2dispd0(__temp32, ____temp32Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp33); ! ! ! ! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); ! ! ! ! d0d0OpRcd2(1,2,__temp35); ! ! ! ! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); ! ! ! ! d2OpApexd2(__temp36, ____temp36Size,__temp37); ! ! ! ! __temp38 = d2d2OpStard0(__temp34, ____temp34Size,__temp37, ____te! ! mp37Size); ! ! ! ! ans17 = d0dispd0(__temp38); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp39); ! ! ! ! d2d0OpRcd2(__temp39, ____temp39Size,3,__temp40); ! ! ! ! d0d0OpRcd2(1,2,__temp41); ! ! ! ! d2d0OpRcd2(__temp41, ____temp41Size,3,__temp42); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp42, ____temp42Size,__temp43)! ! ; ! ! ! ! z2OpApexz2(__temp43, ____temp43Size,__temp44); ! ! ! ! __temp45 = d2z2OpStarz0(__temp40, ____temp40Size,__temp44, ____te! ! mp44Size); ! ! ! ! ans18 = z0dispd0(__temp45); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp46); ! ! ! ! d2d0OpRcd2(__temp46, ____temp46Size,3,__temp47); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp47, ____temp47Size,__temp48)! ! ; ! ! ! ! d0d0OpRcd2(1,2,__temp49); ! ! ! ! d2d0OpRcd2(__temp49, ____temp49Size,3,__temp50); ! ! ! ! d2OpApexd2(__temp50, ____temp50Size,__temp51); ! ! ! ! __temp52 = z2d2OpStarz0(__temp48, ____temp48Size,__temp51, ____te! ! mp51Size); ! ! ! ! ans19 = z0dispd0(__temp52); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp53); ! ! ! ! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)! ! ; ! ! ! ! d0d0OpRcd2(1,2,__temp56); ! ! ! ! d2d0OpRcd2(__temp56, ____temp56Size,3,__temp57); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp57, ____temp57Size,__temp58)! ! ; ! ! ! ! z2OpApexz2(__temp58, ____temp58Size,__temp59); ! ! ! ! __temp60 = z2z2OpStarz0(__temp55, ____temp55Size,__temp59, ____te! ! mp59Size); ! ! ! ! ans20 = z0dispd0(__temp60); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);