diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_Meanf.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_Meanf.sci.dia.ref | 2615 |
1 files changed, 2615 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_Meanf.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_Meanf.sci.dia.ref new file mode 100644 index 00000000..51e9bc98 --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_Meanf.sci.dia.ref @@ -0,0 +1,2615 @@ +// +// 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_Meanf.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 4. + + *******1******* + + 5.3333333 + + *******2******* + + 4. + + *******3******* + + 5.3333333 + + *******4******* + + 6.4 7.1428571 8. + + *******5******* + + 6.4 + 7.1428571 + 8. + + *******6******* + + 4. + 4.i + + *******7******* + + 4.6666667 + 2.6666667i + + *******8******* + + 4. + 4.i + + *******9******* + + 4.6666667 + 2.6666667i + + ******10******* + + 6.4i 7.1428571i 8.i + + ******11******* + + 6.4 + 7.1428571 + 8. + + ******12******* + + 6.4 7.3154362 - 0.1208054i 8.16 - 0.12i + + ******13******* + + 6.4i + 7.1428571i + 8.i + + ******14******* + + 6.4i 7.1428571i 8.i + + ******15******* + + 6.4i + 7.1428571i + 8.i + + ******16******* + + ------------------------------------------ + + --- 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_Meanf" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Meanf/test_Meanf_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Meanf/test_Meanf_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******3*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******4*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******5*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******6*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 +4*%i , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******7*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******8*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 +4*%i , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******9*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******10*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******11*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******12*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; + 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******13*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******14*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******15*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******16*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: ! +! ! +! SCI2C: function test_Meanf() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! char __temp2[1*16] = {"*******1*******"}; ! +! ! +! int ____temp2Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! char __temp8[1*16] = {"*******2*******"}; ! +! ! +! int ____temp8Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp9; ! +! ! +! ! +! ! +! doubleComplex __temp10; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp11[1*16] = {"*******3*******"}; ! +! ! +! int ____temp11Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! 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};; ! +! ! +! ! +! ! +! doubleComplex __temp16[1 * 3]; ! +! ! +! int ____temp16Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! char __temp18[1*16] = {"*******4*******"}; ! +! ! +! int ____temp18Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[2 * 3]; ! +! ! +! int ____temp23Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp28[2 * 3]; ! +! ! +! int ____temp28Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! char __temp30[1*16] = {"*******5*******"}; ! +! ! +! int ____temp30Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp31[1 * 2]; ! +! ! +! int ____temp31Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp32[1 * 2]; ! +! ! +! int ____temp32Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp33[2 * 2]; ! +! ! +! int ____temp33Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 2]; ! +! ! +! int ____temp34Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp35[3 * 2]; ! +! ! +! int ____temp35Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp38[2 * 2]; ! +! ! +! int ____temp38Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[3 * 2]; ! +! ! +! int ____temp40Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp41[3 * 1]; ! +! ! +! int ____temp41Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! char __temp42[1*16] = {"*******6*******"}; ! +! ! +! int ____temp42Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp43; ! +! ! +! ! +! ! +! doubleComplex __temp44; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! char __temp46[1*16] = {"*******7*******"}; ! +! ! +! int ____temp46Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp47; ! +! ! +! ! +! ! +! doubleComplex __temp48; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50[1 * 2]; ! +! ! +! int ____temp50Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp51[1 * 3]; ! +! ! +! int ____temp51Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp52[1 * 2]; ! +! ! +! int ____temp52Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 3]; ! +! ! +! int ____temp53Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp54; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! char __temp55[1*16] = {"*******8*******"}; ! +! ! +! int ____temp55Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! doubleComplex __temp57; ! +! ! +! ! +! ! +! doubleComplex __temp58; ! +! ! +! ! +! ! +! doubleComplex __temp59; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! char __temp60[1*16] = {"*******9*******"}; ! +! ! +! int ____temp60Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! doubleComplex __temp61; ! +! ! +! ! +! ! +! doubleComplex __temp62; ! +! ! +! ! +! ! +! doubleComplex __temp63; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 2]; ! +! ! +! int ____temp64Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 3]; ! +! ! +! int ____temp65Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp66[1 * 2]; ! +! ! +! int ____temp66Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp67[1 * 3]; ! +! ! +! int ____temp67Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp68[1 * 3]; ! +! ! +! int ____temp68Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp69; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! char __temp70[1*16] = {"******10*******"}; ! +! ! +! int ____temp70Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp72[1 * 3]; ! +! ! +! int ____temp72Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp73[1 * 2]; ! +! ! +! int ____temp73Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp74[1 * 3]; ! +! ! +! int ____temp74Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp75[2 * 3]; ! +! ! +! int ____temp75Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp76[2 * 3]; ! +! ! +! int ____temp76Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp77[1 * 2]; ! +! ! +! int ____temp77Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp78[1 * 3]; ! +! ! +! int ____temp78Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp81[2 * 3]; ! +! ! +! int ____temp81Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp82[1 * 3]; ! +! ! +! int ____temp82Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! char __temp83[1*16] = {"******11*******"}; ! +! ! +! int ____temp83Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! double __temp84[1 * 2]; ! +! ! +! int ____temp84Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp86[2 * 2]; ! +! ! +! int ____temp86Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp87[1 * 2]; ! +! ! +! int ____temp87Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp88[3 * 2]; ! +! ! +! int ____temp88Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp90[1 * 2]; ! +! ! +! int ____temp90Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp91[2 * 2]; ! +! ! +! int ____temp91Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp92[1 * 2]; ! +! ! +! int ____temp92Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp93[3 * 2]; ! +! ! +! int ____temp93Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp94[3 * 2]; ! +! ! +! int ____temp94Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp95[3 * 1]; ! +! ! +! int ____temp95Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! char __temp96[1*16] = {"******12*******"}; ! +! ! +! int ____temp96Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! double __temp97[1 * 2]; ! +! ! +! int ____temp97Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp98[1 * 3]; ! +! ! +! int ____temp98Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp99[1 * 2]; ! +! ! +! int ____temp99Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp100[1 * 3]; ! +! ! +! int ____temp100Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp101[2 * 3]; ! +! ! +! int ____temp101Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp102[1 * 2]; ! +! ! +! int ____temp102Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp103[1 * 3]; ! +! ! +! int ____temp103Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp104[1 * 2]; ! +! ! +! int ____temp104Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp105[1 * 3]; ! +! ! +! int ____temp105Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp106[2 * 3]; ! +! ! +! int ____temp106Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp107[1 * 2]; ! +! ! +! int ____temp107Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp108[1 * 3]; ! +! ! +! int ____temp108Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp109[1 * 2]; ! +! ! +! int ____temp109Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp110[1 * 3]; ! +! ! +! int ____temp110Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp111[2 * 3]; ! +! ! +! int ____temp111Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp112[2 * 3]; ! +! ! +! int ____temp112Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp113[2 * 3]; ! +! ! +! int ____temp113Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp114[1 * 3]; ! +! ! +! int ____temp114Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! char __temp115[1*16] = {"******13*******"}; ! +! ! +! int ____temp115Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! double __temp116[1 * 2]; ! +! ! +! int ____temp116Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp117[1 * 2]; ! +! ! +! int ____temp117Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp118[2 * 2]; ! +! ! +! int ____temp118Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp119[1 * 2]; ! +! ! +! int ____temp119Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp120[3 * 2]; ! +! ! +! int ____temp120Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp121[3 * 2]; ! +! ! +! int ____temp121Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp122[1 * 2]; ! +! ! +! int ____temp122Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp123[1 * 2]; ! +! ! +! int ____temp123Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp124[2 * 2]; ! +! ! +! int ____temp124Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp125[1 * 2]; ! +! ! +! int ____temp125Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp126[3 * 2]; ! +! ! +! int ____temp126Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp127[3 * 1]; ! +! ! +! int ____temp127Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! char __temp128[1*16] = {"******14*******"}; ! +! ! +! int ____temp128Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp129[1 * 2]; ! +! ! +! int ____temp129Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp130[1 * 3]; ! +! ! +! int ____temp130Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp131[1 * 2]; ! +! ! +! int ____temp131Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp132[1 * 3]; ! +! ! +! int ____temp132Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp133[2 * 3]; ! +! ! +! int ____temp133Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp134[2 * 3]; ! +! ! +! int ____temp134Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp135[1 * 2]; ! +! ! +! int ____temp135Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp136[1 * 3]; ! +! ! +! int ____temp136Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp137[1 * 2]; ! +! ! +! int ____temp137Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp138[1 * 3]; ! +! ! +! int ____temp138Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp139[2 * 3]; ! +! ! +! int ____temp139Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp140[2 * 3]; ! +! ! +! int ____temp140Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp141[1 * 3]; ! +! ! +! int ____temp141Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! char __temp142[1*16] = {"******15*******"}; ! +! ! +! int ____temp142Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp143[1 * 2]; ! +! ! +! int ____temp143Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp144[1 * 2]; ! +! ! +! int ____temp144Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp145[2 * 2]; ! +! ! +! int ____temp145Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp146[1 * 2]; ! +! ! +! int ____temp146Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp147[3 * 2]; ! +! ! +! int ____temp147Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp148[3 * 2]; ! +! ! +! int ____temp148Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp149[1 * 2]; ! +! ! +! int ____temp149Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp150[1 * 2]; ! +! ! +! int ____temp150Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp151[2 * 2]; ! +! ! +! int ____temp151Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp152[1 * 2]; ! +! ! +! int ____temp152Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp153[3 * 2]; ! +! ! +! int ____temp153Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp154[3 * 2]; ! +! ! +! int ____temp154Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp155[3 * 1]; ! +! ! +! int ____temp155Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! char __temp156[1*16] = {"******16*******"}; ! +! ! +! int ____temp156Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0meanfd0(4,5); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = g2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d0d0OpRcd2(1,2,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,3,__temp6); ! +! ! +! __temp7 = d2d2meanfd0(__temp4, ____temp4Size,__temp6, ____temp6Si! +! ze); ! +! ! +! ans3 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = g2dispd0(__temp8, ____temp8Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp9 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp10 = d0z0meanfz0(4,__temp9); ! +! ! +! ans5 = z0dispd0(__temp10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******3*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,6,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,3,__temp15); ! +! ! +! d2z0OpStarz2(__temp15, ____temp15Size,DoubleComplex(0,1),__temp16)! +! ; ! +! ! +! __temp17 = d2z2meanfz0(__temp13, ____temp13Size,__temp16, ____tem! +! p16Size); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******4*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = g2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,6,__temp20); ! +! ! +! d0d0OpRcd2(7,8,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,9,__temp22); ! +! ! +! d2d2OpCcd2(__temp20, ____temp20Size,__temp22, ____temp22Size,__te! +! mp23); ! +! ! +! d0d0OpRcd2(1,2,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,3,__temp25); ! +! ! +! d0d0OpRcd2(4,5,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,6,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,__te! +! mp28); ! +! ! +! d2d2d0meanfd2(__temp23, ____temp23Size,__temp28, ____temp28Size,1! +! ,__temp29); ! +! ! +! ans9 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******5*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = g2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp31); ! +! ! +! d0d0OpRcd2(5,8,__temp32); ! +! ! +! d2d2OpCcd2(__temp31, ____temp31Size,__temp32, ____temp32Size,__te! +! mp33); ! +! ! +! d0d0OpRcd2(6,9,__temp34); ! +! ! +! d2d2OpCcd2(__temp33, ____temp33Size,__temp34, ____temp34Size,__te! +! mp35); ! +! ! +! d0d0OpRcd2(1,4,__temp36); ! +! ! +! d0d0OpRcd2(2,5,__temp37); ! +! ! +! d2d2OpCcd2(__temp36, ____temp36Size,__temp37, ____temp37Size,__te! +! mp38); ! +! ! +! d0d0OpRcd2(3,6,__temp39); ! +! ! +! d2d2OpCcd2(__temp38, ____temp38Size,__temp39, ____temp39Size,__te! +! mp40); ! +! ! +! d2d2d0meanfd2(__temp35, ____temp35Size,__temp40, ____temp40Size,2! +! ,__temp41); ! +! ! +! ans11 = d2dispd0(__temp41, ____temp41Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******6*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = g2dispd0(__temp42, ____temp42Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 +4*%i , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp43 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp44 = d0z0OpPlusz0(4,__temp43); ! +! ! +! __temp45 = z0d0meanfz0(__temp44,5); ! +! ! +! ans13 = z0dispd0(__temp45); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******7*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = g2dispd0(__temp46, ____temp46Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp47 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp48 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp49 = d0z0OpPlusz0(5,__temp48); ! +! ! +! z0z0OpRcz2(__temp47,__temp49,__temp50); ! +! ! +! z2d0OpRcz2(__temp50, ____temp50Size,6,__temp51); ! +! ! +! d0d0OpRcd2(1,2,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,3,__temp53); ! +! ! +! __temp54 = z2d2meanfz0(__temp51, ____temp51Size,__temp53, ____tem! +! p53Size); ! +! ! +! ans15 = z0dispd0(__temp54); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******8*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = g2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 +4*%i , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp57 = d0z0OpPlusz0(4,__temp56); ! +! ! +! __temp58 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp59 = z0z0meanfz0(__temp57,__temp58); ! +! ! +! ans17 = z0dispd0(__temp59); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******9*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = g2dispd0(__temp60, ____temp60Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp61 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp62 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp63 = d0z0OpPlusz0(5,__temp62); ! +! ! +! z0z0OpRcz2(__temp61,__temp63,__temp64); ! +! ! +! z2d0OpRcz2(__temp64, ____temp64Size,6,__temp65); ! +! ! +! d0d0OpRcd2(1,2,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,3,__temp67); ! +! ! +! d2z0OpStarz2(__temp67, ____temp67Size,DoubleComplex(0,1),__temp68)! +! ; ! +! ! +! __temp69 = z2z2meanfz0(__temp65, ____temp65Size,__temp68, ____tem! +! p68Size); ! +! ! +! ans19 = z0dispd0(__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******10*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = g2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,6,__temp72); ! +! ! +! d0d0OpRcd2(7,8,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,9,__temp74); ! +! ! +! d2d2OpCcd2(__temp72, ____temp72Size,__temp74, ____temp74Size,__te! +! mp75); ! +! ! +! d2z0OpStarz2(__temp75, ____temp75Size,DoubleComplex(0,1),__temp76)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp77); ! +! ! +! d2d0OpRcd2(__temp77, ____temp77Size,3,__temp78); ! +! ! +! d0d0OpRcd2(4,5,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,6,__temp80); ! +! ! +! d2d2OpCcd2(__temp78, ____temp78Size,__temp80, ____temp80Size,__te! +! mp81); ! +! ! +! z2d2d0meanfz2(__temp76, ____temp76Size,__temp81, ____temp81Size,1! +! ,__temp82); ! +! ! +! ans21 = z2dispd0(__temp82, ____temp82Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******11*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = g2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp84); ! +! ! +! d0d0OpRcd2(5,8,__temp85); ! +! ! +! d2d2OpCcd2(__temp84, ____temp84Size,__temp85, ____temp85Size,__te! +! mp86); ! +! ! +! d0d0OpRcd2(6,9,__temp87); ! +! ! +! d2d2OpCcd2(__temp86, ____temp86Size,__temp87, ____temp87Size,__te! +! mp88); ! +! ! +! d0d0OpRcd2(1,4,__temp89); ! +! ! +! d0d0OpRcd2(2,5,__temp90); ! +! ! +! d2d2OpCcd2(__temp89, ____temp89Size,__temp90, ____temp90Size,__te! +! mp91); ! +! ! +! d0d0OpRcd2(3,6,__temp92); ! +! ! +! d2d2OpCcd2(__temp91, ____temp91Size,__temp92, ____temp92Size,__te! +! mp93); ! +! ! +! d2z0OpStarz2(__temp93, ____temp93Size,DoubleComplex(0,1),__temp94)! +! ; ! +! ! +! d2z2d0meanfz2(__temp88, ____temp88Size,__temp94, ____temp94Size,2! +! ,__temp95); ! +! ! +! ans23 = z2dispd0(__temp95, ____temp95Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******12*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans24 = g2dispd0(__temp96, ____temp96Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; ! +! 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp97); ! +! ! +! d2d0OpRcd2(__temp97, ____temp97Size,6,__temp98); ! +! ! +! d0d0OpRcd2(7,8,__temp99); ! +! ! +! d2d0OpRcd2(__temp99, ____temp99Size,9,__temp100); ! +! ! +! d2d2OpCcd2(__temp98, ____temp98Size,__temp100, ____temp100Size,__! +! temp101); ! +! ! +! d0d0OpRcd2(1,2,__temp102); ! +! ! +! d2d0OpRcd2(__temp102, ____temp102Size,3,__temp103); ! +! ! +! d0d0OpRcd2(4,8,__temp104); ! +! ! +! d2d0OpRcd2(__temp104, ____temp104Size,9,__temp105); ! +! ! +! d2d2OpCcd2(__temp103, ____temp103Size,__temp105, ____temp105Size,! +! __temp106); ! +! ! +! d0d0OpRcd2(1,2,__temp107); ! +! ! +! d2d0OpRcd2(__temp107, ____temp107Size,3,__temp108); ! +! ! +! d0d0OpRcd2(4,5,__temp109); ! +! ! +! d2d0OpRcd2(__temp109, ____temp109Size,6,__temp110); ! +! ! +! d2d2OpCcd2(__temp108, ____temp108Size,__temp110, ____temp110Size,! +! __temp111); ! +! ! +! d2z0OpStarz2(__temp111, ____temp111Size,DoubleComplex(0,1),__temp1! +! 12); ! +! ! +! d2z2OpPlusz2(__temp106, ____temp106Size,__temp112, ____temp112Siz! +! e,__temp113); ! +! ! +! d2z2d0meanfz2(__temp101, ____temp101Size,__temp113, ____temp113Si! +! ze,1,__temp114); ! +! ! +! ans25 = z2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******13*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = g2dispd0(__temp115, ____temp115Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp116); ! +! ! +! d0d0OpRcd2(5,8,__temp117); ! +! ! +! d2d2OpCcd2(__temp116, ____temp116Size,__temp117, ____temp117Size,! +! __temp118); ! +! ! +! d0d0OpRcd2(6,9,__temp119); ! +! ! +! d2d2OpCcd2(__temp118, ____temp118Size,__temp119, ____temp119Size,! +! __temp120); ! +! ! +! d2z0OpStarz2(__temp120, ____temp120Size,DoubleComplex(0,1),__temp1! +! 21); ! +! ! +! d0d0OpRcd2(1,4,__temp122); ! +! ! +! d0d0OpRcd2(2,5,__temp123); ! +! ! +! d2d2OpCcd2(__temp122, ____temp122Size,__temp123, ____temp123Size,! +! __temp124); ! +! ! +! d0d0OpRcd2(3,6,__temp125); ! +! ! +! d2d2OpCcd2(__temp124, ____temp124Size,__temp125, ____temp125Size,! +! __temp126); ! +! ! +! z2d2d0meanfz2(__temp121, ____temp121Size,__temp126, ____temp126Si! +! ze,2,__temp127); ! +! ! +! ans27 = z2dispd0(__temp127, ____temp127Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******14*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = g2dispd0(__temp128, ____temp128Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp129); ! +! ! +! d2d0OpRcd2(__temp129, ____temp129Size,6,__temp130); ! +! ! +! d0d0OpRcd2(7,8,__temp131); ! +! ! +! d2d0OpRcd2(__temp131, ____temp131Size,9,__temp132); ! +! ! +! d2d2OpCcd2(__temp130, ____temp130Size,__temp132, ____temp132Size,! +! __temp133); ! +! ! +! d2z0OpStarz2(__temp133, ____temp133Size,DoubleComplex(0,1),__temp1! +! 34); ! +! ! +! d0d0OpRcd2(1,2,__temp135); ! +! ! +! d2d0OpRcd2(__temp135, ____temp135Size,3,__temp136); ! +! ! +! d0d0OpRcd2(4,5,__temp137); ! +! ! +! d2d0OpRcd2(__temp137, ____temp137Size,6,__temp138); ! +! ! +! d2d2OpCcd2(__temp136, ____temp136Size,__temp138, ____temp138Size,! +! __temp139); ! +! ! +! d2z0OpStarz2(__temp139, ____temp139Size,DoubleComplex(0,1),__temp1! +! 40); ! +! ! +! z2z2d0meanfz2(__temp134, ____temp134Size,__temp140, ____temp140Si! +! ze,1,__temp141); ! +! ! +! ans29 = z2dispd0(__temp141, ____temp141Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******15*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = g2dispd0(__temp142, ____temp142Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp143); ! +! ! +! d0d0OpRcd2(5,8,__temp144); ! +! ! +! d2d2OpCcd2(__temp143, ____temp143Size,__temp144, ____temp144Size,! +! __temp145); ! +! ! +! d0d0OpRcd2(6,9,__temp146); ! +! ! +! d2d2OpCcd2(__temp145, ____temp145Size,__temp146, ____temp146Size,! +! __temp147); ! +! ! +! d2z0OpStarz2(__temp147, ____temp147Size,DoubleComplex(0,1),__temp1! +! 48); ! +! ! +! d0d0OpRcd2(1,4,__temp149); ! +! ! +! d0d0OpRcd2(2,5,__temp150); ! +! ! +! d2d2OpCcd2(__temp149, ____temp149Size,__temp150, ____temp150Size,! +! __temp151); ! +! ! +! d0d0OpRcd2(3,6,__temp152); ! +! ! +! d2d2OpCcd2(__temp151, ____temp151Size,__temp152, ____temp152Size,! +! __temp153); ! +! ! +! d2z0OpStarz2(__temp153, ____temp153Size,DoubleComplex(0,1),__temp1! +! 54); ! +! ! +! z2z2d0meanfz2(__temp148, ____temp148Size,__temp154, ____temp154Si! +! ze,2,__temp155); ! +! ! +! ans31 = z2dispd0(__temp155, ____temp155Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******16*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = g2dispd0(__temp156, ____temp156Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |