diff options
Diffstat (limited to 'tests/unit_tests/double/test_Stdevf.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_Stdevf.sci.dia.ref | 2672 |
1 files changed, 2672 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_Stdevf.sci.dia.ref b/tests/unit_tests/double/test_Stdevf.sci.dia.ref new file mode 100644 index 0000000..ff14bf0 --- /dev/null +++ b/tests/unit_tests/double/test_Stdevf.sci.dia.ref @@ -0,0 +1,2672 @@ +// +// 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_Stdevf.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. + + *******1******* + + 0. + + *******2******* + + 0 + + *******3******* + + 0 + + *******4******* + + 1.3416408 1.4638501 1.5 + + *******5******* + + 1.3416408 + 1.4638501 + 1.5 + + *******6******* + + 0 + + *******7******* + + 0 + + *******8******* + + 0 + + *******9******* + + 0 + + ******10******* + + 1.3416408i 1.4638501i 1.5i + + ******11******* + + 1.1825083 - 0.1170914i + 1.3450417 - 0.0955892i + 1.4077246 - 0.0779670i + + + column 1 to 2 + + 1.2591072 - 0.0697358i 1.3127305 + 0.0474288i + + column 3 + + 1.3915424 + 0.0307373i + + ******12******* + + + column 1 to 2 + + 1.1825083 - 0.1170914i 1.3450417 - 0.0955892i + + column 3 + + 1.4077246 - 0.0779670i + + ******13******* + + 1.3416408i + 1.4638501i + 1.5i + + ******14******* + + + column 1 to 2 + + 0.1170914 + 1.1825083i 0.0955892 + 1.3450417i + + column 3 + + 0.0779670 + 1.4077246i + + ******15******* + + 0.1170914 + 1.1825083i + 0.0955892 + 1.3450417i + 0.0779670 + 1.4077246i + + ******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_Stdevf" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Stdevf/test_Stdevf_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Stdevf/test_Stdevf_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******3*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([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 (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******5*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([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 (stdevf (4 +4*%i , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******7*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******8*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 +4*%i , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******9*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([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 (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******11*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; + 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******12*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******13*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([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 (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******15*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([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: endfunction + + 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_Stdevf() ! +! ! +! 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; ! +! ! +! ! +! ! +! double __temp96[1 * 2]; ! +! ! +! int ____temp96Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp97[1 * 3]; ! +! ! +! int ____temp97Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp98[1 * 2]; ! +! ! +! int ____temp98Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp99[1 * 3]; ! +! ! +! int ____temp99Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp100[2 * 3]; ! +! ! +! int ____temp100Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp101[1 * 2]; ! +! ! +! int ____temp101Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp102[1 * 3]; ! +! ! +! int ____temp102Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp103[1 * 2]; ! +! ! +! int ____temp103Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp104[1 * 3]; ! +! ! +! int ____temp104Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp105[2 * 3]; ! +! ! +! int ____temp105Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp106[1 * 2]; ! +! ! +! int ____temp106Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp107[1 * 3]; ! +! ! +! int ____temp107Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp108[1 * 2]; ! +! ! +! int ____temp108Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp109[1 * 3]; ! +! ! +! int ____temp109Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp110[2 * 3]; ! +! ! +! int ____temp110Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp111[2 * 3]; ! +! ! +! int ____temp111Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp112[2 * 3]; ! +! ! +! int ____temp112Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp113[1 * 3]; ! +! ! +! int ____temp113Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! char __temp114[1*16] = {"******12*******"}; ! +! ! +! int ____temp114Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp116[1 * 3]; ! +! ! +! int ____temp116Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp117[1 * 2]; ! +! ! +! int ____temp117Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp118[1 * 3]; ! +! ! +! int ____temp118Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp119[2 * 3]; ! +! ! +! int ____temp119Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp120[1 * 2]; ! +! ! +! int ____temp120Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp121[1 * 3]; ! +! ! +! int ____temp121Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp122[1 * 2]; ! +! ! +! int ____temp122Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp123[1 * 3]; ! +! ! +! int ____temp123Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp124[2 * 3]; ! +! ! +! int ____temp124Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp125[2 * 3]; ! +! ! +! int ____temp125Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp126[1 * 3]; ! +! ! +! int ____temp126Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! char __temp127[1*16] = {"******13*******"}; ! +! ! +! int ____temp127Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! double __temp128[1 * 2]; ! +! ! +! int ____temp128Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp129[1 * 2]; ! +! ! +! int ____temp129Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp130[2 * 2]; ! +! ! +! int ____temp130Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp131[1 * 2]; ! +! ! +! int ____temp131Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp132[3 * 2]; ! +! ! +! int ____temp132Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp133[3 * 2]; ! +! ! +! int ____temp133Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp134[1 * 2]; ! +! ! +! int ____temp134Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp135[1 * 2]; ! +! ! +! int ____temp135Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp136[2 * 2]; ! +! ! +! int ____temp136Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp137[1 * 2]; ! +! ! +! int ____temp137Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp138[3 * 2]; ! +! ! +! int ____temp138Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp139[3 * 1]; ! +! ! +! int ____temp139Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! char __temp140[1*16] = {"******14*******"}; ! +! ! +! int ____temp140Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! double __temp141[1 * 2]; ! +! ! +! int ____temp141Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp142[1 * 3]; ! +! ! +! int ____temp142Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp143[1 * 2]; ! +! ! +! int ____temp143Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp144[1 * 3]; ! +! ! +! int ____temp144Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp145[2 * 3]; ! +! ! +! int ____temp145Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp146[2 * 3]; ! +! ! +! int ____temp146Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp147[1 * 2]; ! +! ! +! int ____temp147Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp148[1 * 3]; ! +! ! +! int ____temp148Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp149[1 * 2]; ! +! ! +! int ____temp149Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp150[1 * 3]; ! +! ! +! int ____temp150Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp151[2 * 3]; ! +! ! +! int ____temp151Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp152[2 * 3]; ! +! ! +! int ____temp152Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp153[1 * 3]; ! +! ! +! int ____temp153Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! char __temp154[1*16] = {"******15*******"}; ! +! ! +! int ____temp154Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! double __temp155[1 * 2]; ! +! ! +! int ____temp155Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp156[1 * 2]; ! +! ! +! int ____temp156Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp157[2 * 2]; ! +! ! +! int ____temp157Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp158[1 * 2]; ! +! ! +! int ____temp158Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp159[3 * 2]; ! +! ! +! int ____temp159Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp160[3 * 2]; ! +! ! +! int ____temp160Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp161[1 * 2]; ! +! ! +! int ____temp161Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp162[1 * 2]; ! +! ! +! int ____temp162Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp163[2 * 2]; ! +! ! +! int ____temp163Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp164[1 * 2]; ! +! ! +! int ____temp164Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp165[3 * 2]; ! +! ! +! int ____temp165Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp166[3 * 2]; ! +! ! +! int ____temp166Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp167[3 * 1]; ! +! ! +! int ____temp167Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! char __temp168[1*16] = {"******16*******"}; ! +! ! +! int ____temp168Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0stdevfd0(4,5); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = g2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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 = d2d2stdevfd0(__temp4, ____temp4Size,__temp6, ____temp6S! +! ize); ! +! ! +! ans3 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = g2dispd0(__temp8, ____temp8Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp9 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp10 = d0z0stdevfz0(4,__temp9); ! +! ! +! ans5 = z0dispd0(__temp10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******3*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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 = d2z2stdevfz0(__temp13, ____temp13Size,__temp16, ____te! +! mp16Size); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******4*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = g2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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); ! +! ! +! d2d2d0stdevfd2(__temp23, ____temp23Size,__temp28, ____temp28Size,! +! 1,__temp29); ! +! ! +! ans9 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******5*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = g2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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); ! +! ! +! d2d2d0stdevfd2(__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 (stdevf (4 +4*%i , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp43 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp44 = d0z0OpPlusz0(4,__temp43); ! +! ! +! __temp45 = z0d0stdevfz0(__temp44,5); ! +! ! +! ans13 = z0dispd0(__temp45); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******7*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = g2dispd0(__temp46, ____temp46Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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 = z2d2stdevfz0(__temp51, ____temp51Size,__temp53, ____te! +! mp53Size); ! +! ! +! ans15 = z0dispd0(__temp54); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******8*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = g2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 +4*%i , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp57 = d0z0OpPlusz0(4,__temp56); ! +! ! +! __temp58 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp59 = z0z0stdevfz0(__temp57,__temp58); ! +! ! +! ans17 = z0dispd0(__temp59); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******9*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = g2dispd0(__temp60, ____temp60Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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 = z2z2stdevfz0(__temp65, ____temp65Size,__temp68, ____te! +! mp68Size); ! +! ! +! ans19 = z0dispd0(__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******10*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = g2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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); ! +! ! +! z2d2d0stdevfz2(__temp76, ____temp76Size,__temp81, ____temp81Size,! +! 1,__temp82); ! +! ! +! ans21 = z2dispd0(__temp82, ____temp82Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******11*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = g2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([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)! +! ; ! +! ! +! d2z2d0stdevfz2(__temp88, ____temp88Size,__temp94, ____temp94Size,! +! 2,__temp95); ! +! ! +! ans23 = z2dispd0(__temp95, ____temp95Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ;! +! 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp96); ! +! ! +! d2d0OpRcd2(__temp96, ____temp96Size,6,__temp97); ! +! ! +! d0d0OpRcd2(7,8,__temp98); ! +! ! +! d2d0OpRcd2(__temp98, ____temp98Size,9,__temp99); ! +! ! +! d2d2OpCcd2(__temp97, ____temp97Size,__temp99, ____temp99Size,__te! +! mp100); ! +! ! +! d0d0OpRcd2(1,2,__temp101); ! +! ! +! d2d0OpRcd2(__temp101, ____temp101Size,3,__temp102); ! +! ! +! d0d0OpRcd2(4,8,__temp103); ! +! ! +! d2d0OpRcd2(__temp103, ____temp103Size,9,__temp104); ! +! ! +! d2d2OpCcd2(__temp102, ____temp102Size,__temp104, ____temp104Size,! +! __temp105); ! +! ! +! d0d0OpRcd2(1,2,__temp106); ! +! ! +! d2d0OpRcd2(__temp106, ____temp106Size,3,__temp107); ! +! ! +! d0d0OpRcd2(4,5,__temp108); ! +! ! +! d2d0OpRcd2(__temp108, ____temp108Size,6,__temp109); ! +! ! +! d2d2OpCcd2(__temp107, ____temp107Size,__temp109, ____temp109Size,! +! __temp110); ! +! ! +! d2z0OpStarz2(__temp110, ____temp110Size,DoubleComplex(0,1),__temp1! +! 11); ! +! ! +! d2z2OpPlusz2(__temp105, ____temp105Size,__temp111, ____temp111Siz! +! e,__temp112); ! +! ! +! d2z2d0stdevfz2(__temp100, ____temp100Size,__temp112, ____temp112S! +! ize,1,__temp113); ! +! ! +! ans24 = z2dispd0(__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******12*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = g2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp115); ! +! ! +! d2d0OpRcd2(__temp115, ____temp115Size,6,__temp116); ! +! ! +! d0d0OpRcd2(7,8,__temp117); ! +! ! +! d2d0OpRcd2(__temp117, ____temp117Size,9,__temp118); ! +! ! +! d2d2OpCcd2(__temp116, ____temp116Size,__temp118, ____temp118Size,! +! __temp119); ! +! ! +! d0d0OpRcd2(1,2,__temp120); ! +! ! +! d2d0OpRcd2(__temp120, ____temp120Size,3,__temp121); ! +! ! +! d0d0OpRcd2(4,5,__temp122); ! +! ! +! d2d0OpRcd2(__temp122, ____temp122Size,6,__temp123); ! +! ! +! d2d2OpCcd2(__temp121, ____temp121Size,__temp123, ____temp123Size,! +! __temp124); ! +! ! +! d2z0OpStarz2(__temp124, ____temp124Size,DoubleComplex(0,1),__temp1! +! 25); ! +! ! +! d2z2d0stdevfz2(__temp119, ____temp119Size,__temp125, ____temp125S! +! ize,1,__temp126); ! +! ! +! ans26 = z2dispd0(__temp126, ____temp126Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******13*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = g2dispd0(__temp127, ____temp127Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp128); ! +! ! +! d0d0OpRcd2(5,8,__temp129); ! +! ! +! d2d2OpCcd2(__temp128, ____temp128Size,__temp129, ____temp129Size,! +! __temp130); ! +! ! +! d0d0OpRcd2(6,9,__temp131); ! +! ! +! d2d2OpCcd2(__temp130, ____temp130Size,__temp131, ____temp131Size,! +! __temp132); ! +! ! +! d2z0OpStarz2(__temp132, ____temp132Size,DoubleComplex(0,1),__temp1! +! 33); ! +! ! +! d0d0OpRcd2(1,4,__temp134); ! +! ! +! d0d0OpRcd2(2,5,__temp135); ! +! ! +! d2d2OpCcd2(__temp134, ____temp134Size,__temp135, ____temp135Size,! +! __temp136); ! +! ! +! d0d0OpRcd2(3,6,__temp137); ! +! ! +! d2d2OpCcd2(__temp136, ____temp136Size,__temp137, ____temp137Size,! +! __temp138); ! +! ! +! z2d2d0stdevfz2(__temp133, ____temp133Size,__temp138, ____temp138S! +! ize,2,__temp139); ! +! ! +! ans28 = z2dispd0(__temp139, ____temp139Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******14*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans29 = g2dispd0(__temp140, ____temp140Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1));! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp141); ! +! ! +! d2d0OpRcd2(__temp141, ____temp141Size,6,__temp142); ! +! ! +! d0d0OpRcd2(7,8,__temp143); ! +! ! +! d2d0OpRcd2(__temp143, ____temp143Size,9,__temp144); ! +! ! +! d2d2OpCcd2(__temp142, ____temp142Size,__temp144, ____temp144Size,! +! __temp145); ! +! ! +! d2z0OpStarz2(__temp145, ____temp145Size,DoubleComplex(0,1),__temp1! +! 46); ! +! ! +! d0d0OpRcd2(1,2,__temp147); ! +! ! +! d2d0OpRcd2(__temp147, ____temp147Size,3,__temp148); ! +! ! +! d0d0OpRcd2(4,5,__temp149); ! +! ! +! d2d0OpRcd2(__temp149, ____temp149Size,6,__temp150); ! +! ! +! d2d2OpCcd2(__temp148, ____temp148Size,__temp150, ____temp150Size,! +! __temp151); ! +! ! +! d2z0OpStarz2(__temp151, ____temp151Size,DoubleComplex(0,1),__temp1! +! 52); ! +! ! +! z2z2d0stdevfz2(__temp146, ____temp146Size,__temp152, ____temp152S! +! ize,1,__temp153); ! +! ! +! ans30 = z2dispd0(__temp153, ____temp153Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******15*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans31 = g2dispd0(__temp154, ____temp154Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2));! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp155); ! +! ! +! d0d0OpRcd2(5,8,__temp156); ! +! ! +! d2d2OpCcd2(__temp155, ____temp155Size,__temp156, ____temp156Size,! +! __temp157); ! +! ! +! d0d0OpRcd2(6,9,__temp158); ! +! ! +! d2d2OpCcd2(__temp157, ____temp157Size,__temp158, ____temp158Size,! +! __temp159); ! +! ! +! d2z0OpStarz2(__temp159, ____temp159Size,DoubleComplex(0,1),__temp1! +! 60); ! +! ! +! d0d0OpRcd2(1,4,__temp161); ! +! ! +! d0d0OpRcd2(2,5,__temp162); ! +! ! +! d2d2OpCcd2(__temp161, ____temp161Size,__temp162, ____temp162Size,! +! __temp163); ! +! ! +! d0d0OpRcd2(3,6,__temp164); ! +! ! +! d2d2OpCcd2(__temp163, ____temp163Size,__temp164, ____temp164Size,! +! __temp165); ! +! ! +! d2z0OpStarz2(__temp165, ____temp165Size,DoubleComplex(0,1),__temp1! +! 66); ! +! ! +! z2z2d0stdevfz2(__temp160, ____temp160Size,__temp166, ____temp166S! +! ize,2,__temp167); ! +! ! +! ans32 = z2dispd0(__temp167, ____temp167Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******16*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans33 = g2dispd0(__temp168, ____temp168Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |