diff options
Diffstat (limited to 'tests/unit_tests/double/test_OpStar.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_OpStar.sci.dia.ref | 1535 |
1 files changed, 1535 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpStar.sci.dia.ref b/tests/unit_tests/double/test_OpStar.sci.dia.ref new file mode 100644 index 0000000..4e00423 --- /dev/null +++ b/tests/unit_tests/double/test_OpStar.sci.dia.ref @@ -0,0 +1,1535 @@ +// +// 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. + + ==> 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 + + ==> 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_OpStar() ! +! ! +! 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; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __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; ! +! ! +! ! +! ! +! double __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 3]; ! +! ! +! int ____temp34Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp35[1 * 2]; ! +! ! +! int ____temp35Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 3]; ! +! ! +! int ____temp36Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp37[3 * 1]; ! +! ! +! int ____temp37Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double __temp38; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[1 * 3]; ! +! ! +! int ____temp40Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp41[1 * 2]; ! +! ! +! int ____temp41Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp42[1 * 3]; ! +! ! +! int ____temp42Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp43[1 * 3]; ! +! ! +! int ____temp43Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp44[3 * 1]; ! +! ! +! int ____temp44Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp46[1 * 2]; ! +! ! +! int ____temp46Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp47[1 * 3]; ! +! ! +! int ____temp47Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp48[1 * 3]; ! +! ! +! int ____temp48Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp49[1 * 2]; ! +! ! +! int ____temp49Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp50[1 * 3]; ! +! ! +! int ____temp50Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp51[3 * 1]; ! +! ! +! int ____temp51Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp52; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! double __temp53[1 * 2]; ! +! ! +! int ____temp53Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp54[1 * 3]; ! +! ! +! int ____temp54Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp56[1 * 2]; ! +! ! +! int ____temp56Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp57[1 * 3]; ! +! ! +! int ____temp57Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp59[3 * 1]; ! +! ! +! int ____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); |