diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_Size.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_Size.sci.dia.ref | 1637 |
1 files changed, 1637 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_Size.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_Size.sci.dia.ref new file mode 100644 index 00000000..171f633b --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_Size.sci.dia.ref @@ -0,0 +1,1637 @@ +// +// 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_Size.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. 1. + + 1. 2. + + 1. 1. + + 2. 3. + + 2. 3. + + 1. 1. + + 1. 1. + + 2. 3. + + 2. 3. + + 1. + + 1. + + 2. + + 2. + + 1. + + 1. + + 2. + + 2. + + ------------------------------------------ + + --- 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_Size" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Size/test_Size_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Size/test_Size_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(4)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2])) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(2+3*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(e)); // d0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = e * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(f));// z0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(a));// d2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(b));// z2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with a second argument + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o=1; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(4,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(2+3*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6],o)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(e,1)); // d0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = e * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(f,1));// z0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(a,o));// d2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(b,1));// z2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + 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_Size() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp2[1 * 2]; ! +! ! +! int ____temp2Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp11[2 * 3]; ! +! ! +! int ____temp11Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 3]; ! +! ! +! int ____temp14Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp15[1 * 2]; ! +! ! +! int ____temp15Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp16[1 * 3]; ! +! ! +! int ____temp16Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp17[2 * 3]; ! +! ! +! int ____temp17Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp18[2 * 3]; ! +! ! +! int ____temp18Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double e = 3.1415927; ! +! ! +! ! +! ! +! double __temp20[1 * 2]; ! +! ! +! int ____temp20Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp23[1 * 3]; ! +! ! +! int ____temp23Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 3]; ! +! ! +! int ____temp28Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp29[1 * 2]; ! +! ! +! int ____temp29Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp30[1 * 3]; ! +! ! +! int ____temp30Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp31[2 * 3]; ! +! ! +! int ____temp31Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp32[1 * 2]; ! +! ! +! int ____temp32Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double o = 1; ! +! ! +! ! +! ! +! double __temp33; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp34; ! +! ! +! ! +! ! +! doubleComplex __temp35; ! +! ! +! ! +! ! +! double __temp36; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp38[1 * 3]; ! +! ! +! int ____temp38Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[1 * 3]; ! +! ! +! int ____temp40Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp41[2 * 3]; ! +! ! +! int ____temp41Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp42; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp43[1 * 2]; ! +! ! +! int ____temp43Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp44[1 * 3]; ! +! ! +! int ____temp44Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp45[1 * 2]; ! +! ! +! int ____temp45Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp46[1 * 3]; ! +! ! +! int ____temp46Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp47[2 * 3]; ! +! ! +! int ____temp47Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp48[2 * 3]; ! +! ! +! int ____temp48Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp49; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp50; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp51; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp52[1 * 2]; ! +! ! +! int ____temp52Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 3]; ! +! ! +! int ____temp53Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp56; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp57[1 * 2]; ! +! ! +! int ____temp57Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp59[1 * 2]; ! +! ! +! int ____temp59Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp60[1 * 3]; ! +! ! +! int ____temp60Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp61[2 * 3]; ! +! ! +! int ____temp61Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp62; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(4)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0sized2(4,__temp1); ! +! ! +! ans1 = d2dispd0(__temp1, ____temp1Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2])) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp2); ! +! ! +! d2sized2(__temp2, ____temp2Size,__temp3); ! +! ! +! ans2 = d2dispd0(__temp3, ____temp3Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(2+3*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp4 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp5 = d0z0OpPlusz0(2,__temp4); ! +! ! +! z0sized2(__temp5,__temp6); ! +! ! +! ans3 = d2dispd0(__temp6, ____temp6Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,3,__temp8); ! +! ! +! d0d0OpRcd2(4,5,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,6,__temp10); ! +! ! +! d2d2OpCcd2(__temp8, ____temp8Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d2sized2(__temp11, ____temp11Size,__temp12); ! +! ! +! ans4 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,3,__temp14); ! +! ! +! d0d0OpRcd2(4,5,__temp15); ! +! ! +! d2d0OpRcd2(__temp15, ____temp15Size,6,__temp16); ! +! ! +! d2d2OpCcd2(__temp14, ____temp14Size,__temp16, ____temp16Size,__te! +! mp17); ! +! ! +! d2z0OpStarz2(__temp17, ____temp17Size,DoubleComplex(0,1),__temp18)! +! ; ! +! ! +! z2sized2(__temp18, ____temp18Size,__temp19); ! +! ! +! ans5 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(e)); // d0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0sized2(e,__temp20); ! +! ! +! ans6 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = e * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = d0z0OpStarz0(e,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(f));// z0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0sized2(f,__temp21); ! +! ! +! ans7 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,3,__temp23); ! +! ! +! d0d0OpRcd2(4,5,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,6,__temp25); ! +! ! +! d2d2OpCcd2(__temp23, ____temp23Size,__temp25, ____temp25Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(a));// d2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2sized2(a, __aSize,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,3,__temp28); ! +! ! +! d0d0OpRcd2(4,5,__temp29); ! +! ! +! d2d0OpRcd2(__temp29, ____temp29Size,6,__temp30); ! +! ! +! d2d2OpCcd2(__temp28, ____temp28Size,__temp30, ____temp30Size,__te! +! mp31); ! +! ! +! d2z0OpStarz2(__temp31, ____temp31Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(b));// z2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2sized2(b, __bSize,__temp32); ! +! ! +! ans9 = d2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with a second argument ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o=1; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! o = d0OpEquald0(1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(4,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp33 = d0d0sized0(4,1); ! +! ! +! ans10 = d0dispd0(__temp33); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(2+3*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp34 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp35 = d0z0OpPlusz0(2,__temp34); ! +! ! +! __temp36 = z0d0sized0(__temp35,1); ! +! ! +! ans11 = d0dispd0(__temp36); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6],o)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp37); ! +! ! +! d2d0OpRcd2(__temp37, ____temp37Size,3,__temp38); ! +! ! +! d0d0OpRcd2(4,5,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,6,__temp40); ! +! ! +! d2d2OpCcd2(__temp38, ____temp38Size,__temp40, ____temp40Size,__te! +! mp41); ! +! ! +! __temp42 = d2d0sized0(__temp41, ____temp41Size,o); ! +! ! +! ans12 = d0dispd0(__temp42); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,3,__temp44); ! +! ! +! d0d0OpRcd2(4,5,__temp45); ! +! ! +! d2d0OpRcd2(__temp45, ____temp45Size,6,__temp46); ! +! ! +! d2d2OpCcd2(__temp44, ____temp44Size,__temp46, ____temp46Size,__te! +! mp47); ! +! ! +! d2z0OpStarz2(__temp47, ____temp47Size,DoubleComplex(0,1),__temp48)! +! ; ! +! ! +! __temp49 = z2d0sized0(__temp48, ____temp48Size,1); ! +! ! +! ans13 = d0dispd0(__temp49); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(e,1)); // d0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp50 = d0d0sized0(e,1); ! +! ! +! ans14 = d0dispd0(__temp50); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = e * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = d0z0OpStarz0(e,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(f,1));// z0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp51 = z0d0sized0(f,1); ! +! ! +! ans15 = d0dispd0(__temp51); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,3,__temp53); ! +! ! +! d0d0OpRcd2(4,5,__temp54); ! +! ! +! d2d0OpRcd2(__temp54, ____temp54Size,6,__temp55); ! +! ! +! d2d2OpCcd2(__temp53, ____temp53Size,__temp55, ____temp55Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(a,o));// d2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d2d0sized0(a, __aSize,o); ! +! ! +! ans16 = d0dispd0(__temp56); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp57); ! +! ! +! d2d0OpRcd2(__temp57, ____temp57Size,3,__temp58); ! +! ! +! d0d0OpRcd2(4,5,__temp59); ! +! ! +! d2d0OpRcd2(__temp59, ____temp59Size,6,__temp60); ! +! ! +! d2d2OpCcd2(__temp58, ____temp58Size,__temp60, ____temp60Size,__te! +! mp61); ! +! ! +! d2z0OpStarz2(__temp61, ____temp61Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(b,1));// z2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp62 = z2d0sized0(b, __bSize,1); ! +! ! +! ans17 = d0dispd0(__temp62); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |