diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_OpRc.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_OpRc.sci.dia.ref | 1355 |
1 files changed, 1355 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_OpRc.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_OpRc.sci.dia.ref new file mode 100644 index 00000000..5aa38fcd --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_OpRc.sci.dia.ref @@ -0,0 +1,1355 @@ +// +// 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_OpRc.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. 2. 3. 4. + + 7. 1. 2. 3. 4. + + 1. 2. 3. 4. 7. + + 1. 2. 3. 4. 7. 1. 2. 3. 4. + + i 2.i 3.i 4.i + + 7. i 2.i 3.i 4.i + + i 2.i 3.i 4.i 7. + + i 2.i 3.i 4.i 7. i 2.i 3.i 4.i + + i 4.5 + + 4.5 i + + 4.5 i 4.5 + + i 4.5 4.5 + + i 1. 4.5 + + 1. 4.5 i + + 1. 4.5 i 1. 4.5 + + i 1. 4.5 1. 4.5 + + ------------------------------------------ + + --- 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_OpRc" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpRc/test_OpRc_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpRc/test_OpRc_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [7 , a];// d0d2OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [a , 7];// d2d0OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [a , b];// d2d2OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(c); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = [7 , e];// z0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [e , 7];// z2z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = [e , f];// z2z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(e); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(f); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(g); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(h); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: i = [%i , 4.5]; // z0d0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = [4.5 , %i ]; // d0z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [4.5 , i ]; // d0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [i , 4.5]; // z2d0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(k); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(l); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = [1 , 4.5]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = [%i , m ]; // z0d2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = [m , %i ]; // d0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = [m , n ]; // d2z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [n , m ]; // z2d2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(n); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(o); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(q); + + 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: ! +! ! +! SCI2C: function test_OpRc() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double b[1 * 5]; ! +! ! +! int __bSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double c[1 * 5]; ! +! ! +! int __cSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double d[1 * 9]; ! +! ! +! int __dSize[2] = {1, 9};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! doubleComplex __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! doubleComplex e[1 * 4]; ! +! ! +! int __eSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex f[1 * 5]; ! +! ! +! int __fSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex g[1 * 5]; ! +! ! +! int __gSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex h[1 * 9]; ! +! ! +! int __hSize[2] = {1, 9};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex i[1 * 2]; ! +! ! +! int __iSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex j[1 * 2]; ! +! ! +! int __jSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex k[1 * 3]; ! +! ! +! int __kSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex l[1 * 3]; ! +! ! +! int __lSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double m[1 * 2]; ! +! ! +! int __mSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex n[1 * 3]; ! +! ! +! int __nSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex o[1 * 3]; ! +! ! +! int __oSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex p[1 * 5]; ! +! ! +! int __pSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex q[1 * 5]; ! +! ! +! int __qSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [7 , a];// d0d2OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpRcd2(7,a, __aSize,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [a , 7];// d2d0OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpRcd2(a, __aSize,7,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [a , b];// d2d2OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpRcd2(a, __aSize,b, __bSize,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = d2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(c); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(c, __cSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(d, __dSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp3 = d0z0OpStarz0(1,DoubleComplex(0,1)); ! +! ! +! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp3,__temp4,__temp5); ! +! ! +! __temp6 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z2z0OpRcz2(__temp5, ____temp5Size,__temp6,__temp7); ! +! ! +! __temp8 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! z2z0OpRcz2(__temp7, ____temp7Size,__temp8,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = [7 , e];// z0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpRcz2(7,e, __eSize,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [e , 7];// z2z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpRcz2(e, __eSize,7,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = [e , f];// z2z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpRcz2(e, __eSize,f, __fSize,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(e); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = z2dispd0(e, __eSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(f); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = z2dispd0(f, __fSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(g); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = z2dispd0(g, __gSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(h); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = z2dispd0(h, __hSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: i = [%i , 4.5]; // z0d0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d0OpRcz2(DoubleComplex(0,1),4.5,i); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = [4.5 , %i ]; // d0z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z0OpRcz2(4.5,DoubleComplex(0,1),j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [4.5 , i ]; // d0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpRcz2(4.5,i, __iSize,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [i , 4.5]; // z2d0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpRcz2(i, __iSize,4.5,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = z2dispd0(i, __iSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = z2dispd0(j, __jSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(k); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = z2dispd0(k, __kSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(l); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = z2dispd0(l, __lSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = [1 , 4.5]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,4.5,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = [%i , m ]; // z0d2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpRcz2(DoubleComplex(0,1),m, __mSize,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = [m , %i ]; // d0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpRcz2(m, __mSize,DoubleComplex(0,1),o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = [m , n ]; // d2z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpRcz2(m, __mSize,n, __nSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [n , m ]; // z2d2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpRcz2(n, __nSize,m, __mSize,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(n); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = z2dispd0(n, __nSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(o); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = z2dispd0(o, __oSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = z2dispd0(p, __pSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(q); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = z2dispd0(q, __qSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |