//
// 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_OpStar.sci", TMPDIR);
-----------------------------------
--- Executing your SCILAB code. ---
-----------------------------------
9.8696044
9.8696044 + 9.8696044i
9.8696044 + 9.8696044i
19.739209i
3.1415927 6.2831853 9.424778 12.566371
15.707963 18.849556 21.991149 25.132741
28.274334 31.415927 34.557519 37.699112
40.840704 43.982297 47.12389 50.265482
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
6.2831853i 12.566371i 18.849556i 25.132741i
31.415927i 37.699112i 43.982297i 50.265482i
56.548668i 62.831853i 69.115038i 75.398224i
81.681409i 87.964594i 94.24778i 100.53096i
3.1415927 6.2831853 9.424778 12.566371
15.707963 18.849556 21.991149 25.132741
28.274334 31.415927 34.557519 37.699112
40.840704 43.982297 47.12389 50.265482
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
6.2831853i 12.566371i 18.849556i 25.132741i
31.415927i 37.699112i 43.982297i 50.265482i
56.548668i 62.831853i 69.115038i 75.398224i
81.681409i 87.964594i 94.24778i 100.53096i
90. 100. 110. 120.
202. 228. 254. 280.
314. 356. 398. 440.
426. 484. 542. 600.
90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i
202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i
314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i
426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i
90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i
202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i
314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i
426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i
180.i 200.i 220.i 240.i
404.i 456.i 508.i 560.i
628.i 712.i 796.i 880.i
852.i 968.i 1084.i 1200.i
14.
- 14.i
14.i
14.
------------------------------------------
--- 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_OpStar"
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab.
==> Generate the AST.
==> Generate C code in TMPDIR/main.c
/*SCI2C: ##########################################################
########
SCI2C: d0 = %pi
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: z0 = d0 + %i * d0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: z2 = d2 + %i * d2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: endfunction
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
==> Copying sources
==> Copying headers
==> Copying interfaces
==> Generating Builder TMPDIR/Makefile
==> Translation Successfully Completed!!!
fd = mopen(TMPDIR+"/main.c");
mgetl(fd)
ans =
!/* !
! !
!** ************************************************ !
! !
!** This file has been generated using !
! !
!** Scilab2C (Version 2.0) !
! !
!** !
! !
!** Please visit following links for more informations: !
! !
!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c !
! !
!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ !
! !
!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ !
! !
!** ************************************************ !
! !
!*/ !
! !
! !
! !
! !
! !
!/* !
! !
!** ----------------- !
! !
!** --- Includes. --- !
! !
!** ----------------- !
! !
!*/ !
! !
!#include "main.h" !
! !
!/* !
! !
!** --------------------- !
! !
!** --- End Includes. --- !
! !
!** --------------------- !
! !
!*/ !
! !
! !
! !
! !
! !
! !
! !
!/* !
! !
!** ------------------------------------- !
! !
!** --- Global Variables Declaration. --- !
! !
!** ------------------------------------- !
! !
!*/ !
! !
! !
! !
! !
! !
!/* !
! !
!** ----------------------------------------- !
! !
!** --- End Global Variables Declaration. --- !
! !
!** ----------------------------------------- !
! !
!*/ !
! !
! !
! !
!/* !
! !
! SCI2C: -------------------------------------------------------------!
! ----- !
! !
! SCI2C: function test_OpStar() !
! !
! SCI2C: -------------------------------------------------------------!
! ----- !
! !
!*/ !
! !
!int main() !
! !
!{ !
! !
!/* !
! !
!** ----------------------------- !
! !
!** --- Variable Declaration. --- !
! !
!** ----------------------------- !
! !
!*/ !
! !
! !
! !
! double d0 = 3.1415927; !
! !
! !
! !
! double __temp1[1 * 2]; !
! !
! int ____temp1Size[2] = {1, 2};; !
! !
! !
! !
! double __temp2[1 * 3]; !
! !
! int ____temp2Size[2] = {1, 3};; !
! !
! !
! !
! double __temp3[1 * 4]; !
! !
! int ____temp3Size[2] = {1, 4};; !
! !
! !
! !
! double __temp4[1 * 2]; !
! !
! int ____temp4Size[2] = {1, 2};; !
! !
! !
! !
! double __temp5[1 * 3]; !
! !
! int ____temp5Size[2] = {1, 3};; !
! !
! !
! !
! double __temp6[1 * 4]; !
! !
! int ____temp6Size[2] = {1, 4};; !
! !
! !
! !
! double __temp7[2 * 4]; !
! !
! int ____temp7Size[2] = {2, 4};; !
! !
! !
! !
! double __temp8[1 * 2]; !
! !
! int ____temp8Size[2] = {1, 2};; !
! !
! !
! !
! double __temp9[1 * 3]; !
! !
! int ____temp9Size[2] = {1, 3};; !
! !
! !
! !
! double __temp10[1 * 4]; !
! !
! int ____temp10Size[2] = {1, 4};; !
! !
! !
! !
! double __temp11[3 * 4]; !
! !
! int ____temp11Size[2] = {3, 4};; !
! !
! !
! !
! double __temp12[1 * 2]; !
! !
! int ____temp12Size[2] = {1, 2};; !
! !
! !
! !
! double __temp13[1 * 3]; !
! !
! int ____temp13Size[2] = {1, 3};; !
! !
! !
! !
! double __temp14[1 * 4]; !
! !
! int ____temp14Size[2] = {1, 4};; !
! !
! !
! !
! double d2[4 * 4]; !
! !
! int __d2Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex __temp15; !
! !
! !
! !
! doubleComplex z0; !
! !
! !
! !
! doubleComplex __temp16[4 * 4]; !
! !
! int ____temp16Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex z2[4 * 4]; !
! !
! int __z2Size[2] = {4, 4};; !
! !
! !
! !
! double __temp17; !
! !
! !
! !
! double ans1; !
! !
! !
! !
! doubleComplex __temp18; !
! !
! !
! !
! double ans2; !
! !
! !
! !
! doubleComplex __temp19; !
! !
! !
! !
! double ans3; !
! !
! !
! !
! doubleComplex __temp20; !
! !
! !
! !
! double ans4; !
! !
! !
! !
! double __temp21[4 * 4]; !
! !
! int ____temp21Size[2] = {4, 4};; !
! !
! !
! !
! double ans5; !
! !
! !
! !
! doubleComplex __temp22[4 * 4]; !
! !
! int ____temp22Size[2] = {4, 4};; !
! !
! !
! !
! double ans6; !
! !
! !
! !
! doubleComplex __temp23[4 * 4]; !
! !
! int ____temp23Size[2] = {4, 4};; !
! !
! !
! !
! double ans7; !
! !
! !
! !
! doubleComplex __temp24[4 * 4]; !
! !
! int ____temp24Size[2] = {4, 4};; !
! !
! !
! !
! double ans8; !
! !
! !
! !
! double __temp25[4 * 4]; !
! !
! int ____temp25Size[2] = {4, 4};; !
! !
! !
! !
! double ans9; !
! !
! !
! !
! doubleComplex __temp26[4 * 4]; !
! !
! int ____temp26Size[2] = {4, 4};; !
! !
! !
! !
! double ans10; !
! !
! !
! !
! doubleComplex __temp27[4 * 4]; !
! !
! int ____temp27Size[2] = {4, 4};; !
! !
! !
! !
! double ans11; !
! !
! !
! !
! doubleComplex __temp28[4 * 4]; !
! !
! int ____temp28Size[2] = {4, 4};; !
! !
! !
! !
! double ans12; !
! !
! !
! !
! double __temp29[4 * 4]; !
! !
! int ____temp29Size[2] = {4, 4};; !
! !
! !
! !
! double ans13; !
! !
! !
! !
! doubleComplex __temp30[4 * 4]; !
! !
! int ____temp30Size[2] = {4, 4};; !
! !
! !
! !
! double ans14; !
! !
! !
! !
! doubleComplex __temp31[4 * 4]; !
! !
! int ____temp31Size[2] = {4, 4};; !
! !
! !
! !
! double ans15; !
! !
! !
! !
! doubleComplex __temp32[4 * 4]; !
! !
! int ____temp32Size[2] = {4, 4};; !
! !
! !
! !
! double ans16; !
! !
! !
! !
! double __temp33[1 * 2]; !
! !
! int ____temp33Size[2] = {1, 2};; !
! !
! !
! !
! double __temp34[1 * 3]; !
! !
! int ____temp34Size[2] = {1, 3};; !
! !
! !
! !
! double __temp35[1 * 2]; !
! !
! int ____temp35Size[2] = {1, 2};; !
! !
! !
! !
! double __temp36[1 * 3]; !
! !
! int ____temp36Size[2] = {1, 3};; !
! !
! !
! !
! double __temp37[3 * 1]; !
! !
! int ____temp37Size[2] = {3, 1};; !
! !
! !
! !
! double __temp38; !
! !
! !
! !
! double ans17; !
! !
! !
! !
! double __temp39[1 * 2]; !
! !
! int ____temp39Size[2] = {1, 2};; !
! !
! !
! !
! double __temp40[1 * 3]; !
! !
! int ____temp40Size[2] = {1, 3};; !
! !
! !
! !
! double __temp41[1 * 2]; !
! !
! int ____temp41Size[2] = {1, 2};; !
! !
! !
! !
! double __temp42[1 * 3]; !
! !
! int ____temp42Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp43[1 * 3]; !
! !
! int ____temp43Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp44[3 * 1]; !
! !
! int ____temp44Size[2] = {3, 1};; !
! !
! !
! !
! doubleComplex __temp45; !
! !
! !
! !
! double ans18; !
! !
! !
! !
! double __temp46[1 * 2]; !
! !
! int ____temp46Size[2] = {1, 2};; !
! !
! !
! !
! double __temp47[1 * 3]; !
! !
! int ____temp47Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp48[1 * 3]; !
! !
! int ____temp48Size[2] = {1, 3};; !
! !
! !
! !
! double __temp49[1 * 2]; !
! !
! int ____temp49Size[2] = {1, 2};; !
! !
! !
! !
! double __temp50[1 * 3]; !
! !
! int ____temp50Size[2] = {1, 3};; !
! !
! !
! !
! double __temp51[3 * 1]; !
! !
! int ____temp51Size[2] = {3, 1};; !
! !
! !
! !
! doubleComplex __temp52; !
! !
! !
! !
! double ans19; !
! !
! !
! !
! double __temp53[1 * 2]; !
! !
! int ____temp53Size[2] = {1, 2};; !
! !
! !
! !
! double __temp54[1 * 3]; !
! !
! int ____temp54Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp55[1 * 3]; !
! !
! int ____temp55Size[2] = {1, 3};; !
! !
! !
! !
! double __temp56[1 * 2]; !
! !
! int ____temp56Size[2] = {1, 2};; !
! !
! !
! !
! double __temp57[1 * 3]; !
! !
! int ____temp57Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp58[1 * 3]; !
! !
! int ____temp58Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp59[3 * 1]; !
! !
! int ____temp59Size[2] = {3, 1};; !
! !
! !
! !
! doubleComplex __temp60; !
! !
! !
! !
! double ans20; !
! !
! !
! !
! !
! !
! !
! !
! !
! !
!/* !
! !
!** --------------------------------- !
! !
!** --- End Variable Declaration. --- !
! !
!** --------------------------------- !
! !
!*/ !
! !
!/* !
! !
!** --------------- !
! !
!** --- C code. --- !
! !
!** --------------- !
! !
!*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: d0 = %pi !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0 = d0OpEquald0(SCI2C_PI); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp1); !
! !
! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); !
! !
! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); !
! !
! d0d0OpRcd2(5,6,__temp4); !
! !
! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); !
! !
! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); !
! !
! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)!
! ; !
! !
! d0d0OpRcd2(9,10,__temp8); !
! !
! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); !
! !
! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); !
! !
! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp!
! 11); !
! !
! d0d0OpRcd2(13,14,__temp12); !
! !
! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); !
! !
! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); !
! !
! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);!
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: z0 = d0 + %i * d0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); !
! !
! z0 = d0z0OpPlusz0(d0,__temp15); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: z2 = d2 + %i * d2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); !
! !
! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp17 = d0d0OpStard0(d0,d0); !
! !
! ans1 = d0dispd0(__temp17); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp18 = d0z0OpStarz0(d0,z0); !
! !
! ans2 = z0dispd0(__temp18); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp19 = z0d0OpStarz0(z0,d0); !
! !
! ans3 = z0dispd0(__temp19); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp20 = z0z0OpStarz0(z0,z0); !
! !
! ans4 = z0dispd0(__temp20); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d0OpStard2(d2, __d2Size,d0,__temp21); !
! !
! ans5 = d2dispd0(__temp21, ____temp21Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z0OpStarz2(d2, __d2Size,z0,__temp22); !
! !
! ans6 = z2dispd0(__temp22, ____temp22Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d0OpStarz2(z2, __z2Size,d0,__temp23); !
! !
! ans7 = z2dispd0(__temp23, ____temp23Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z0OpStarz2(z2, __z2Size,z0,__temp24); !
! !
! ans8 = z2dispd0(__temp24, ____temp24Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d2OpStard2(d0,d2, __d2Size,__temp25); !
! !
! ans9 = d2dispd0(__temp25, ____temp25Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0z2OpStarz2(d0,z2, __z2Size,__temp26); !
! !
! ans10 = z2dispd0(__temp26, ____temp26Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpStarz2(z0,d2, __d2Size,__temp27); !
! !
! ans11 = z2dispd0(__temp27, ____temp27Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0z2OpStarz2(z0,z2, __z2Size,__temp28); !
! !
! ans12 = z2dispd0(__temp28, ____temp28Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d2OpStard2(d2, __d2Size,d2, __d2Size,__temp29); !
! !
! ans13 = d2dispd0(__temp29, ____temp29Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpStarz2(d2, __d2Size,z2, __z2Size,__temp30); !
! !
! ans14 = z2dispd0(__temp30, ____temp30Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d2OpStarz2(z2, __z2Size,d2, __d2Size,__temp31); !
! !
! ans15 = z2dispd0(__temp31, ____temp31Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z2OpStarz2(z2, __z2Size,z2, __z2Size,__temp32); !
! !
! ans16 = z2dispd0(__temp32, ____temp32Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp33); !
! !
! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); !
! !
! d0d0OpRcd2(1,2,__temp35); !
! !
! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); !
! !
! d2OpApexd2(__temp36, ____temp36Size,__temp37); !
! !
! __temp38 = d2d2OpStard0(__temp34, ____temp34Size,__temp37, ____te!
! mp37Size); !
! !
! ans17 = d0dispd0(__temp38); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp39); !
! !
! d2d0OpRcd2(__temp39, ____temp39Size,3,__temp40); !
! !
! d0d0OpRcd2(1,2,__temp41); !
! !
! d2d0OpRcd2(__temp41, ____temp41Size,3,__temp42); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp42, ____temp42Size,__temp43)!
! ; !
! !
! z2OpApexz2(__temp43, ____temp43Size,__temp44); !
! !
! __temp45 = d2z2OpStarz0(__temp40, ____temp40Size,__temp44, ____te!
! mp44Size); !
! !
! ans18 = z0dispd0(__temp45); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp46); !
! !
! d2d0OpRcd2(__temp46, ____temp46Size,3,__temp47); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp47, ____temp47Size,__temp48)!
! ; !
! !
! d0d0OpRcd2(1,2,__temp49); !
! !
! d2d0OpRcd2(__temp49, ____temp49Size,3,__temp50); !
! !
! d2OpApexd2(__temp50, ____temp50Size,__temp51); !
! !
! __temp52 = z2d2OpStarz0(__temp48, ____temp48Size,__temp51, ____te!
! mp51Size); !
! !
! ans19 = z0dispd0(__temp52); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp53); !
! !
! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)!
! ; !
! !
! d0d0OpRcd2(1,2,__temp56); !
! !
! d2d0OpRcd2(__temp56, ____temp56Size,3,__temp57); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp57, ____temp57Size,__temp58)!
! ; !
! !
! z2OpApexz2(__temp58, ____temp58Size,__temp59); !
! !
! __temp60 = z2z2OpStarz0(__temp55, ____temp55Size,__temp59, ____te!
! mp59Size); !
! !
! ans20 = z0dispd0(__temp60); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: endfunction !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /* !
! !
! ** --------------------- !
! !
! ** --- Free Section. --- !
! !
! ** --------------------- !
! !
! */ !
! !
! /* !
! !
! ** ------------------------- !
! !
! ** --- End Free Section. --- !
! !
! ** ------------------------- !
! !
! */ !
! !
! !
! !
! return(0); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
!} !
! !
! !
mclose(fd);