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