// // 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_OpMinus.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- - 1. 4. - 2.i 9. 8. 7. 6. 5. 4. 8. 6. 4. 2. 0. - 2. - 4. - 6. - 8. 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 10. - 5.i 1. - 3.1415927i 2. - 3.1415927i 3. - 3.1415927i 4. - 3.1415927i 5. - 3.1415927i 6. - 3.1415927i 7. - 3.1415927i 8. - 3.1415927i 9. - 3.1415927i - 1. + 3.1415927i - 2. + 3.1415927i - 3. + 3.1415927i - 4. + 3.1415927i - 5. + 3.1415927i - 6. + 3.1415927i - 7. + 3.1415927i - 8. + 3.1415927i - 9. + 3.1415927i - 6. - 4.i - 6. - 5.i - 6. - 6.i 6. + 4.i 6. + 5.i 6. + 6.i ------------------------------------------ --- 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_OpMinus" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpMinus/test_OpMinus_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpMinus/test_OpMinus_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; // d0d0OpMinusd0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(c); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: d = 1 - %i; // d0z0OpMinusz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: e = %i - 3; // z0d0OpMinusz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: f = d - e; // z0z0OpMinusz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(f); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: g = [1 2 3; 4 5 6]; SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: h = 10; SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: w = g - h; // d2d0OpMinusd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: j = h - g; // d0d2OpMinusd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(j); 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 // d2d2OpMinusd2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(m); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: n = k - 2 * %i; //d2z0OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: o = 3 * %i - l; //z0d2OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: p = n - o; // z2z2OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(p); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: r = %pi * %i; SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: s = q - r; // d2z0OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: t = r - q; // z0d2OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(s); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(t); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: u = [1 2 3] - %i * [4 5 6] SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: v = [7 8 9] SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: x = u - v; // z2d2OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: y = v - u; // d2z2OpMinusz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(x); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(y); 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_OpMinus() ! ! ! ! SCI2C: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !int main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double a = 1; ! ! ! ! ! ! ! ! double b = 2; ! ! ! ! ! ! ! ! double c; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! doubleComplex d; ! ! ! ! ! ! ! ! doubleComplex e; ! ! ! ! ! ! ! ! doubleComplex f; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! 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 ans3; ! ! ! ! ! ! ! ! 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};; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! 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 ans5; ! ! ! ! ! ! ! ! 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 ans6; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! 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};; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- 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; // d0d0OpMinusd0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! c = d0d0OpMinusd0(a,b); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(c); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans1 = d0dispd0(c); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: d = 1 - %i; // d0z0OpMinusz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d = d0z0OpMinusz0(1,DoubleComplex(0,1)); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: e = %i - 3; // z0d0OpMinusz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! e = z0d0OpMinusz0(DoubleComplex(0,1),3); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: f = d - e; // z0z0OpMinusz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! f = z0z0OpMinusz0(d,e); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(f); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans2 = z0dispd0(f); ! ! ! ! ! ! ! ! /*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; // d2d0OpMinusd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0OpMinusd2(g, __gSize,h,w); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: j = h - g; // d0d2OpMinusd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d2OpMinusd2(h,g, __gSize,j); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(j); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans3 = d2dispd0(j, __jSize); ! ! ! ! ! ! ! ! /*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 // d2d2OpMinusd2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d2OpMinusd2(k, __kSize,l, __lSize,m); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(m); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans4 = d2dispd0(m, __mSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: n = k - 2 * %i; //d2z0OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp19 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! ! ! ! d2z0OpMinusz2(k, __kSize,__temp19,n); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: o = 3 * %i - l; //z0d2OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp20 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! ! ! ! z0d2OpMinusz2(__temp20,l, __lSize,o); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: p = n - o; // z2z2OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z2OpMinusz2(n, __nSize,o, __oSize,p); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(p); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans5 = z2dispd0(p, __pSize); ! ! ! ! ! ! ! ! /*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 = %pi * %i; ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! r = d0z0OpStarz0(SCI2C_PI,DoubleComplex(0,1)); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: s = q - r; // d2z0OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z0OpMinusz2(q, __qSize,r,s); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: t = r - q; // z0d2OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d2OpMinusz2(r,q, __qSize,t); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(s); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans6 = z2dispd0(s, __sSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(t); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans7 = z2dispd0(t, __tSize); ! ! ! ! ! ! ! ! /*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)! ! ; ! ! ! ! d2z2OpMinusz2(__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; // z2d2OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d2OpMinusz2(u, __uSize,v, __vSize,x); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: y = v - u; // d2z2OpMinusz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpMinusz2(v, __vSize,u, __uSize,y); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(x); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans8 = z2dispd0(x, __xSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(y); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans9 = z2dispd0(y, __ySize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);