diff options
| author | yash1112 | 2017-07-07 21:20:49 +0530 |
|---|---|---|
| committer | yash1112 | 2017-07-07 21:20:49 +0530 |
| commit | 3f52712f806fbd80d66dfdcaff401e5cf94dcca4 (patch) | |
| tree | a8333b8187cb44b505b9fe37fc9a7ac8a1711c10 /tests/unit_tests/double/test_OpPlus.sci.dia.ref | |
| download | Scilab2C_fossee_old-3f52712f806fbd80d66dfdcaff401e5cf94dcca4.tar.gz Scilab2C_fossee_old-3f52712f806fbd80d66dfdcaff401e5cf94dcca4.tar.bz2 Scilab2C_fossee_old-3f52712f806fbd80d66dfdcaff401e5cf94dcca4.zip | |
sci2c arduino updated
Diffstat (limited to 'tests/unit_tests/double/test_OpPlus.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_OpPlus.sci.dia.ref | 1258 |
1 files changed, 1258 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpPlus.sci.dia.ref b/tests/unit_tests/double/test_OpPlus.sci.dia.ref new file mode 100644 index 0000000..f7447b8 --- /dev/null +++ b/tests/unit_tests/double/test_OpPlus.sci.dia.ref @@ -0,0 +1,1258 @@ +// +// 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_OpPlus.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- 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_OpPlus" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = 1; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = 2; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = a + b; // d0d0OpPlusd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = 1 + %i; // d0z0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %i + 3; // z0d0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = d + e; // z0z0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = 10; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: w = g + h; // d2d0OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = h + g; // d0d2OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [9 8 7; 6 5 4; 3 2 1] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [1 2 3; 4 5 6; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = k + l // d2d2OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = k + 2 * %i; //d2z0OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = 3 * %i + l; //z0d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = n + o; // z2z2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: r = 3 * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: s = q + r; // d2z0OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: t = r + q; // z0d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: u = [1 2 3] + %i * [4 5 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: v = [7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: x = u + v; // z2d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: y = v + u; // d2z2OpPlusz2 + + 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_OpPlus() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double a = 1; ! +! ! +! ! +! ! +! double b = 2; ! +! ! +! ! +! ! +! double c; ! +! ! +! ! +! ! +! doubleComplex d; ! +! ! +! ! +! ! +! doubleComplex e; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double g[2 * 3]; ! +! ! +! int __gSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double h = 10; ! +! ! +! ! +! ! +! double w[2 * 3]; ! +! ! +! int __wSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double j[2 * 3]; ! +! ! +! int __jSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double k[3 * 3]; ! +! ! +! int __kSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[2 * 3]; ! +! ! +! int ____temp16Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double l[3 * 3]; ! +! ! +! int __lSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double m[3 * 3]; ! +! ! +! int __mSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! doubleComplex n[3 * 3]; ! +! ! +! int __nSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! doubleComplex o[3 * 3]; ! +! ! +! int __oSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex p[3 * 3]; ! +! ! +! int __pSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 3]; ! +! ! +! int ____temp24Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp25[2 * 3]; ! +! ! +! int ____temp25Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double q[3 * 3]; ! +! ! +! int __qSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex r; ! +! ! +! ! +! ! +! doubleComplex s[3 * 3]; ! +! ! +! int __sSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex t[3 * 3]; ! +! ! +! int __tSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp31[1 * 3]; ! +! ! +! int ____temp31Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp32[1 * 3]; ! +! ! +! int ____temp32Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex u[1 * 3]; ! +! ! +! int __uSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double v[1 * 3]; ! +! ! +! int __vSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex x[1 * 3]; ! +! ! +! int __xSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex y[1 * 3]; ! +! ! +! int __ySize[2] = {1, 3};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = 1; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = 2; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0OpEquald0(2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = a + b; // d0d0OpPlusd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! c = d0d0OpPlusd0(a,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = 1 + %i; // d0z0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %i + 3; // z0d0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = z0d0OpPlusz0(DoubleComplex(0,1),3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = d + e; // z0z0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = z0z0OpPlusz0(d,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = 10; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! h = d0OpEquald0(10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: w = g + h; // d2d0OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpPlusd2(g, __gSize,h,w); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = h + g; // d0d2OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpPlusd2(h,g, __gSize,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [9 8 7; 6 5 4; 3 2 1] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(9,8,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,7,__temp6); ! +! ! +! d0d0OpRcd2(6,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,4,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! d0d0OpRcd2(3,2,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,1,__temp11); ! +! ! +! d2d2OpCcd2(__temp9, ____temp9Size,__temp11, ____temp11Size,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [1 2 3; 4 5 6; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,3,__temp13); ! +! ! +! d0d0OpRcd2(4,5,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,6,__temp15); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp15, ____temp15Size,__te! +! mp16); ! +! ! +! d0d0OpRcd2(7,8,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,9,__temp18); ! +! ! +! d2d2OpCcd2(__temp16, ____temp16Size,__temp18, ____temp18Size,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = k + l // d2d2OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpPlusd2(k, __kSize,l, __lSize,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = k + 2 * %i; //d2z0OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! d2z0OpPlusz2(k, __kSize,__temp19,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = 3 * %i + l; //z0d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z0d2OpPlusz2(__temp20,l, __lSize,o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = n + o; // z2z2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpPlusz2(n, __nSize,o, __oSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,3,__temp22); ! +! ! +! d0d0OpRcd2(4,5,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,6,__temp24); ! +! ! +! d2d2OpCcd2(__temp22, ____temp22Size,__temp24, ____temp24Size,__te! +! mp25); ! +! ! +! d0d0OpRcd2(7,8,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,9,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: r = 3 * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! r = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: s = q + r; // d2z0OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpPlusz2(q, __qSize,r,s); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: t = r + q; // z0d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpPlusz2(r,q, __qSize,t); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: u = [1 2 3] + %i * [4 5 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); ! +! ! +! d0d0OpRcd2(4,5,__temp30); ! +! ! +! d2d0OpRcd2(__temp30, ____temp30Size,6,__temp31); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp31, ____temp31Size,__temp32)! +! ; ! +! ! +! d2z2OpPlusz2(__temp29, ____temp29Size,__temp32, ____temp32Size,u)! +! ; ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: v = [7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,9,v); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: x = u + v; // z2d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpPlusz2(u, __uSize,v, __vSize,x); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: y = v + u; // d2z2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(v, __vSize,u, __uSize,y); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |