// // 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);