diff options
Diffstat (limited to 'tests/unit_tests/double/test_OpIns.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_OpIns.sci.dia.ref | 3885 |
1 files changed, 3885 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpIns.sci.dia.ref b/tests/unit_tests/double/test_OpIns.sci.dia.ref new file mode 100644 index 0000000..5b8afc4 --- /dev/null +++ b/tests/unit_tests/double/test_OpIns.sci.dia.ref @@ -0,0 +1,3885 @@ +// +// 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_OpIns.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. - 2. 3. + 4. 5. 6. + + 1. - 4. + i 3. + 4. 5. 6. + + 1. - 4. + i - 12. + 4. 5. 6. + + 1. - 4. + i - 5. + i + 4. 5. 6. + + - 12. - 4. + i - 5. + i + - 12. 5. 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i 5. 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 12. - 12. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 5. + i - 5. + i + + 4. 4. 4. + 4. 4. 4. + + 3. + i 3. + i 3. + i + 3. + i 3. + i 3. + i + + 7. 7. 3. + i + 3. + i 3. + i 3. + i + + 2. + i 2. + i 3. + i + 3. + i 3. + i 3. + i + + 1. 0 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + - 2. 3. + i - 7. + + 3. - i 1. + i 3. + i + - 4. + i 3. + i - 5. + i + + 3. - i 1. + i - 9. + - 4. + i 3. + i - 1. + + 3. - i 1. + i - 4. + i + - 4. + i 3. + i - 5. + i + + 3. - i - 31. - 45. + - 4. + i - 29. - 51. + + 3. - i - 4. + i - 5. + i + - 4. + i - 4. + i - 5. + i + + 1. - 3.i - 2. 3. + 2.i + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i 3. + 2.i + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i - 12. + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i - 5. + i + 4. 5. + 4.i 6. + + - 12. - 4. + i - 5. + i + - 12. 5. + 4.i 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i 5. + 4.i 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 12. - 12. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 5. + i - 5. + i + + 4. 4. 4. + 4. 4. 4. + + 3. + i 3. + i 3. + i + 3. + i 3. + i 3. + i + + 7. 7. 3. + i + 3. + i 3. + i 3. + i + + 2. + i 2. + i 3. + i + 3. + i 3. + i 3. + i + + 1. 0 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + - 2. 3. + i - 7. + + 3. - i 1. + i 3. + i + - 4. + i 3. + i - 5. + i + + 3. - i 1. + i - 9. + - 4. + i 3. + i - 1. + + 3. - i 1. + i - 4. + i + - 4. + i 3. + i - 5. + i + + 3. - i - 31. - 45. + - 4. + i - 29. - 51. + + 3. - i - 4. + i - 5. + i + - 4. + i - 4. + i - 5. + 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_OpIns" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: //reals + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a=[1 2 3; 4 5 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(3)=-2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(3)=-4+%i + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(1,3)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(1,3)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],1)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],1)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[2,3])=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[2,3])=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1 2],[1,2,3])=4; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1 2],[1,2,3])=3+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=7; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=2+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=[1,0]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=[3-%i,1+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[1,3])=[-2,-7]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[1,3])=[-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],3)=[-9;-1]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],3)=[-4+%i;-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //complexes + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(3)=-2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(3)=-4+%i + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(1,3)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(1,3)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],1)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],1)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[2,3])=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[2,3])=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1 2],[1,2,3])=4; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1 2],[1,2,3])=3+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=7; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=2+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=[1,0]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=[3-%i,1+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[1,3])=[-2,-7]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[1,3])=[-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],3)=[-9;-1]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],3)=[-4+%i;-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + 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_OpIns() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! 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 a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp11; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp16; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp20[1 * 2]; ! +! ! +! int ____temp20Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp21; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! doubleComplex __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp29[1 * 2]; ! +! ! +! int ____temp29Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp31; ! +! ! +! ! +! ! +! doubleComplex __temp32; ! +! ! +! ! +! ! +! doubleComplex __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 2]; ! +! ! +! int ____temp34Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp35[2 * 1]; ! +! ! +! int ____temp35Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! doubleComplex __temp37; ! +! ! +! ! +! ! +! doubleComplex __temp38; ! +! ! +! ! +! ! +! doubleComplex __temp39[2 * 1]; ! +! ! +! int ____temp39Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp40[1 * 2]; ! +! ! +! int ____temp40Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp41[1 * 2]; ! +! ! +! int ____temp41Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp42[1 * 2]; ! +! ! +! int ____temp42Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp43[2 * 2]; ! +! ! +! int ____temp43Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp44[1 * 2]; ! +! ! +! int ____temp44Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp45[1 * 2]; ! +! ! +! int ____temp45Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! doubleComplex __temp46; ! +! ! +! ! +! ! +! doubleComplex __temp47; ! +! ! +! ! +! ! +! doubleComplex __temp48[1 * 2]; ! +! ! +! int ____temp48Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50; ! +! ! +! ! +! ! +! doubleComplex __temp51[1 * 2]; ! +! ! +! int ____temp51Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp52[2 * 2]; ! +! ! +! int ____temp52Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 2]; ! +! ! +! int ____temp53Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! doubleComplex __temp55; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! doubleComplex __temp57; ! +! ! +! ! +! ! +! doubleComplex __temp58[1 * 2]; ! +! ! +! int ____temp58Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp59; ! +! ! +! ! +! ! +! doubleComplex __temp60; ! +! ! +! ! +! ! +! doubleComplex __temp61[1 * 3]; ! +! ! +! int ____temp61Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp62; ! +! ! +! ! +! ! +! doubleComplex __temp63; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 2]; ! +! ! +! int ____temp64Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 3]; ! +! ! +! int ____temp65Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! doubleComplex __temp66; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! doubleComplex __temp67; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! double __temp68[1 * 2]; ! +! ! +! int ____temp68Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! doubleComplex __temp69; ! +! ! +! ! +! ! +! double __temp70[1 * 2]; ! +! ! +! int ____temp70Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! doubleComplex __temp72; ! +! ! +! ! +! ! +! double __temp73[1 * 2]; ! +! ! +! int ____temp73Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp74[1 * 2]; ! +! ! +! int ____temp74Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp75[1 * 2]; ! +! ! +! int ____temp75Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp76[1 * 3]; ! +! ! +! int ____temp76Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! doubleComplex __temp77; ! +! ! +! ! +! ! +! double __temp78[1 * 2]; ! +! ! +! int ____temp78Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp81[1 * 2]; ! +! ! +! int ____temp81Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! doubleComplex __temp82; ! +! ! +! ! +! ! +! double __temp83[1 * 2]; ! +! ! +! int ____temp83Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! double __temp84[1 * 2]; ! +! ! +! int ____temp84Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! doubleComplex __temp86; ! +! ! +! ! +! ! +! doubleComplex __temp87; ! +! ! +! ! +! ! +! doubleComplex __temp88[1 * 2]; ! +! ! +! int ____temp88Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans34; ! +! ! +! ! +! ! +! double __temp90[1 * 2]; ! +! ! +! int ____temp90Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp91[1 * 2]; ! +! ! +! int ____temp91Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans35; ! +! ! +! ! +! ! +! doubleComplex __temp92; ! +! ! +! ! +! ! +! doubleComplex __temp93; ! +! ! +! ! +! ! +! doubleComplex __temp94[1 * 2]; ! +! ! +! int ____temp94Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp95[1 * 2]; ! +! ! +! int ____temp95Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans36; ! +! ! +! ! +! ! +! double __temp96[2 * 1]; ! +! ! +! int ____temp96Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp97[1 * 2]; ! +! ! +! int ____temp97Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans37; ! +! ! +! ! +! ! +! doubleComplex __temp98; ! +! ! +! ! +! ! +! doubleComplex __temp99; ! +! ! +! ! +! ! +! doubleComplex __temp100[2 * 1]; ! +! ! +! int ____temp100Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp101[1 * 2]; ! +! ! +! int ____temp101Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans38; ! +! ! +! ! +! ! +! double __temp102[1 * 2]; ! +! ! +! int ____temp102Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp103[1 * 2]; ! +! ! +! int ____temp103Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp104[2 * 2]; ! +! ! +! int ____temp104Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp105[1 * 2]; ! +! ! +! int ____temp105Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp106[1 * 2]; ! +! ! +! int ____temp106Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans39; ! +! ! +! ! +! ! +! doubleComplex __temp107; ! +! ! +! ! +! ! +! doubleComplex __temp108; ! +! ! +! ! +! ! +! doubleComplex __temp109[1 * 2]; ! +! ! +! int ____temp109Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp110; ! +! ! +! ! +! ! +! doubleComplex __temp111; ! +! ! +! ! +! ! +! doubleComplex __temp112[1 * 2]; ! +! ! +! int ____temp112Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp113[2 * 2]; ! +! ! +! int ____temp113Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp114[1 * 2]; ! +! ! +! int ____temp114Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans40; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //reals ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a=[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,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(3)=-2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0d0OpIns(a, __aSize,3,-2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(3)=-4+%i ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp5 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! d2d0z0OpIns(a, __aSize,3,__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(1,3)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0d0d0OpIns(a, __aSize,1,3,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(1,3)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp6 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d2d0d0z0OpIns(a, __aSize,1,3,__temp6); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],1)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp7); ! +! ! +! d2d2d0d0OpIns(a, __aSize,__temp7, ____temp7Size,1,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],1)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp9); ! +! ! +! d2d2d0z0OpIns(a, __aSize,__temp9, ____temp9Size,1,__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[2,3])=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp10); ! +! ! +! d2d0d2d0OpIns(a, __aSize,2,__temp10, ____temp10Size,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[2,3])=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp11 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(2,3,__temp12); ! +! ! +! d2d0d2z0OpIns(a, __aSize,2,__temp12, ____temp12Size,__temp11); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1 2],[1,2,3])=4; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,3,__temp15); ! +! ! +! d2d2d2d0OpIns(a, __aSize,__temp13, ____temp13Size,__temp15, ____! +! temp15Size,4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1 2],[1,2,3])=3+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp16 = d0z0OpPlusz0(3,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp17); ! +! ! +! d0d0OpRcd2(1,2,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,3,__temp19); ! +! ! +! d2d2d2z0OpIns(a, __aSize,__temp17, ____temp17Size,__temp19, ____! +! temp19Size,__temp16); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=7; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,3,__temp20); ! +! ! +! d2d2d0OpIns(a, __aSize,__temp20, ____temp20Size,7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=2+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,3,__temp22); ! +! ! +! d2d2z0OpIns(a, __aSize,__temp22, ____temp22Size,__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=[1,0]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,0,__temp23); ! +! ! +! d0d0OpRcd2(1,3,__temp24); ! +! ! +! d2d2d2OpIns(a, __aSize,__temp24, ____temp24Size,__temp23, ____te! +! mp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=[3-%i,1+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0z0OpMinusz0(3,DoubleComplex(0,1)); ! +! ! +! __temp26 = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp25,__temp26,__temp27); ! +! ! +! d0d0OpRcd2(1,3,__temp28); ! +! ! +! d2d2z2OpIns(a, __aSize,__temp28, ____temp28Size,__temp27, ____te! +! mp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[1,3])=[-2,-7]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-2,-7,__temp29); ! +! ! +! d0d0OpRcd2(1,3,__temp30); ! +! ! +! d2d0d2d2OpIns(a, __aSize,2,__temp30, ____temp30Size,__temp29, __! +! __temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[1,3])=[-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp31 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp32 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp31,__temp32,__temp33); ! +! ! +! d0d0OpRcd2(1,3,__temp34); ! +! ! +! d2d0d2z2OpIns(a, __aSize,2,__temp34, ____temp34Size,__temp33, __! +! __temp33Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],3)=[-9;-1]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(-9,-1,__temp35); ! +! ! +! d0d0OpRcd2(1,2,__temp36); ! +! ! +! d2d2d0d2OpIns(a, __aSize,__temp36, ____temp36Size,3,__temp35, __! +! __temp35Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans17 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],3)=[-4+%i;-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp37 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp38 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpCcz2(__temp37,__temp38,__temp39); ! +! ! +! d0d0OpRcd2(1,2,__temp40); ! +! ! +! d2d2d0z2OpIns(a, __aSize,__temp40, ____temp40Size,3,__temp39, __! +! __temp39Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-31,-45,__temp41); ! +! ! +! d0d0OpRcd2(-29,-51,__temp42); ! +! ! +! d2d2OpCcd2(__temp41, ____temp41Size,__temp42, ____temp42Size,__te! +! mp43); ! +! ! +! d0d0OpRcd2(1,2,__temp44); ! +! ! +! d0d0OpRcd2(2,3,__temp45); ! +! ! +! d2d2d2d2OpIns(a, __aSize,__temp44, ____temp44Size,__temp45, ____! +! temp45Size,__temp43, ____temp43Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans19 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp46 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp47 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp46,__temp47,__temp48); ! +! ! +! __temp49 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp50 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp49,__temp50,__temp51); ! +! ! +! z2z2OpCcz2(__temp48, ____temp48Size,__temp51, ____temp51Size,__te! +! mp52); ! +! ! +! d0d0OpRcd2(1,2,__temp53); ! +! ! +! d0d0OpRcd2(2,3,__temp54); ! +! ! +! d2d2d2z2OpIns(a, __aSize,__temp53, ____temp53Size,__temp54, ____! +! temp54Size,__temp52, ____temp52Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //complexes ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp55 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp56 = d0z0OpMinusz0(1,__temp55); ! +! ! +! __temp57 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp56,__temp57,__temp58); ! +! ! +! __temp59 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp60 = d0z0OpPlusz0(3,__temp59); ! +! ! +! z2z0OpRcz2(__temp58, ____temp58Size,__temp60,__temp61); ! +! ! +! __temp62 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp63 = d0z0OpPlusz0(5,__temp62); ! +! ! +! d0z0OpRcz2(4,__temp63,__temp64); ! +! ! +! z2d0OpRcz2(__temp64, ____temp64Size,6,__temp65); ! +! ! +! z2z2OpCcz2(__temp61, ____temp61Size,__temp65, ____temp65Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(3)=-2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0d0OpIns(b, __bSize,3,-2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans21 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(3)=-4+%i ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp66 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! z2d0z0OpIns(b, __bSize,3,__temp66); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(1,3)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0d0d0OpIns(b, __bSize,1,3,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans23 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(1,3)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp67 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z2d0d0z0OpIns(b, __bSize,1,3,__temp67); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans24 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],1)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp68); ! +! ! +! z2d2d0d0OpIns(b, __bSize,__temp68, ____temp68Size,1,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],1)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp69 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp70); ! +! ! +! z2d2d0z0OpIns(b, __bSize,__temp70, ____temp70Size,1,__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[2,3])=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp71); ! +! ! +! z2d0d2d0OpIns(b, __bSize,2,__temp71, ____temp71Size,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[2,3])=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp72 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(2,3,__temp73); ! +! ! +! z2d0d2z0OpIns(b, __bSize,2,__temp73, ____temp73Size,__temp72); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1 2],[1,2,3])=4; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp74); ! +! ! +! d0d0OpRcd2(1,2,__temp75); ! +! ! +! d2d0OpRcd2(__temp75, ____temp75Size,3,__temp76); ! +! ! +! z2d2d2d0OpIns(b, __bSize,__temp74, ____temp74Size,__temp76, ____! +! temp76Size,4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans29 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1 2],[1,2,3])=3+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp77 = d0z0OpPlusz0(3,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp78); ! +! ! +! d0d0OpRcd2(1,2,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,3,__temp80); ! +! ! +! z2d2d2z0OpIns(b, __bSize,__temp78, ____temp78Size,__temp80, ____! +! temp80Size,__temp77); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=7; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,3,__temp81); ! +! ! +! z2d2d0OpIns(b, __bSize,__temp81, ____temp81Size,7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans31 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=2+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp82 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,3,__temp83); ! +! ! +! z2d2z0OpIns(b, __bSize,__temp83, ____temp83Size,__temp82); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=[1,0]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,0,__temp84); ! +! ! +! d0d0OpRcd2(1,3,__temp85); ! +! ! +! z2d2d2OpIns(b, __bSize,__temp85, ____temp85Size,__temp84, ____te! +! mp84Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans33 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=[3-%i,1+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp86 = d0z0OpMinusz0(3,DoubleComplex(0,1)); ! +! ! +! __temp87 = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp86,__temp87,__temp88); ! +! ! +! d0d0OpRcd2(1,3,__temp89); ! +! ! +! z2d2z2OpIns(b, __bSize,__temp89, ____temp89Size,__temp88, ____te! +! mp88Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans34 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[1,3])=[-2,-7]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-2,-7,__temp90); ! +! ! +! d0d0OpRcd2(1,3,__temp91); ! +! ! +! z2d0d2d2OpIns(b, __bSize,2,__temp91, ____temp91Size,__temp90, __! +! __temp90Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans35 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[1,3])=[-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp92 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp93 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp92,__temp93,__temp94); ! +! ! +! d0d0OpRcd2(1,3,__temp95); ! +! ! +! z2d0d2z2OpIns(b, __bSize,2,__temp95, ____temp95Size,__temp94, __! +! __temp94Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans36 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],3)=[-9;-1]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(-9,-1,__temp96); ! +! ! +! d0d0OpRcd2(1,2,__temp97); ! +! ! +! z2d2d0d2OpIns(b, __bSize,__temp97, ____temp97Size,3,__temp96, __! +! __temp96Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans37 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],3)=[-4+%i;-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp98 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp99 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpCcz2(__temp98,__temp99,__temp100); ! +! ! +! d0d0OpRcd2(1,2,__temp101); ! +! ! +! z2d2d0z2OpIns(b, __bSize,__temp101, ____temp101Size,3,__temp100, ! +! ____temp100Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans38 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-31,-45,__temp102); ! +! ! +! d0d0OpRcd2(-29,-51,__temp103); ! +! ! +! d2d2OpCcd2(__temp102, ____temp102Size,__temp103, ____temp103Size,! +! __temp104); ! +! ! +! d0d0OpRcd2(1,2,__temp105); ! +! ! +! d0d0OpRcd2(2,3,__temp106); ! +! ! +! z2d2d2d2OpIns(b, __bSize,__temp105, ____temp105Size,__temp106, _! +! ___temp106Size,__temp104, ____temp104Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans39 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp107 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp108 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp107,__temp108,__temp109); ! +! ! +! __temp110 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp111 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp110,__temp111,__temp112); ! +! ! +! z2z2OpCcz2(__temp109, ____temp109Size,__temp112, ____temp112Size,! +! __temp113); ! +! ! +! d0d0OpRcd2(1,2,__temp114); ! +! ! +! d0d0OpRcd2(2,3,__temp115); ! +! ! +! z2d2d2z2OpIns(b, __bSize,__temp114, ____temp114Size,__temp115, _! +! ___temp115Size,__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans40 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |