//
// 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_OpSlash.sci", TMPDIR);
-----------------------------------
--- Executing your SCILAB code. ---
-----------------------------------
1.
0.5 - 0.5i
1. + i
1.
0.3183099 0.6366198 0.9549297 1.2732395
1.5915494 1.9098593 2.2281692 2.5464791
2.864789 3.1830989 3.5014087 3.8197186
4.1380285 4.4563384 4.7746483 5.0929582
column 1 to 2
0.1591549 - 0.1591549i 0.3183099 - 0.3183099i
0.7957747 - 0.7957747i 0.9549297 - 0.9549297i
1.4323945 - 1.4323945i 1.5915494 - 1.5915494i
2.0690143 - 2.0690143i 2.2281692 - 2.2281692i
column 3 to 4
0.4774648 - 0.4774648i 0.6366198 - 0.6366198i
1.1140846 - 1.1140846i 1.2732395 - 1.2732395i
1.7507044 - 1.7507044i 1.9098593 - 1.9098593i
2.3873241 - 2.3873241i 2.5464791 - 2.5464791i
column 1 to 2
0.3183099 + 0.3183099i 0.6366198 + 0.6366198i
1.5915494 + 1.5915494i 1.9098593 + 1.9098593i
2.864789 + 2.864789i 3.1830989 + 3.1830989i
4.1380285 + 4.1380285i 4.4563384 + 4.4563384i
column 3 to 4
0.9549297 + 0.9549297i 1.2732395 + 1.2732395i
2.2281692 + 2.2281692i 2.5464791 + 2.5464791i
3.5014087 + 3.5014087i 3.8197186 + 3.8197186i
4.7746483 + 4.7746483i 5.0929582 + 5.0929582i
0.3183099 0.6366198 0.9549297 1.2732395
1.5915494 1.9098593 2.2281692 2.5464791
2.864789 3.1830989 3.5014087 3.8197186
4.1380285 4.4563384 4.7746483 5.0929582
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
- 1.2042772 0. 0. 0.2617994
- 0.4450590 0. 0. 0.1308997
0.3141593 0. 0. 3.054D-17
1.0733775 0. 0. - 0.1308997
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
- 0.6021386 + 0.6021386i 0 0 0.1308997 - 0.1308997i
- 0.2225295 + 0.2225295i 0 0 0.0654498 - 0.0654498i
0.1570796 - 0.1570796i 0 0 2.159D-17
0.5366887 - 0.5366887i 0 0 - 0.0654498 + 0.0654498i
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
- 1.2042772 - 1.2042772i 0 0 0.2617994 + 0.2617994i
- 0.4450590 - 0.4450590i 0 0 0.1308997 + 0.1308997i
0.3141593 + 0.3141593i 0 0 3.054D-17 + 3.054D-17i
1.0733775 + 1.0733775i 0 0 - 0.1308997 - 0.1308997i
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
- 1.2042772 + 2.553D-16i 0 0 0.2617994 - 5.606D-17i
- 0.4450590 0 0 0.1308997 + 4.049D-18i
0.3141593 + 4.255D-17i 0 0 3.239D-17 - 1.294D-17i
1.0733775 + 6.382D-17i 0 0 - 0.1308997 - 8.617D-18i
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
1. 0. 0. 3.054D-17
0.6666667 0. 0. 0.3333333
0.3333333 0. 0. 0.6666667
- 2.522D-15 0. 0. 1.
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
0.5 - 0.5i 0 0 5.398D-17i
0.3333333 - 0.3333333i 0 0 0.1666667 - 0.1666667i
0.1666667 - 0.1666667i 0 0 0.3333333 - 0.3333333i
- 1.705D-15 + 1.100D-15i 0 0 0.5 - 0.5i
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
1. + i 0 0 3.054D-17 + 3.054D-17i
0.6666667 + 0.6666667i 0 0 0.3333333 + 0.3333333i
0.3333333 + 0.3333333i 0 0 0.6666667 + 0.6666667i
- 2.522D-15 - 2.522D-15i 0 0 1. + i
Warning :
matrix is close to singular or badly scaled. rcond = 0.0000D+00
computing least squares solution. (see lsq).
1. + 1.064D-16i 0 0 - 4.318D-17 - 1.886D-17i
0.6666667 + 3.829D-16i 0 0 0.3333333 - 8.949D-17i
0.3333333 - 4.042D-16i 0 0 0.6666667 + 1.149D-16i
8.195D-17 - 6.254D-16i 0 0 1. + 1.109D-16i
1.
- 2.967D-17 - i
i
1. - 2.967D-17i
------------------------------------------
--- 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_OpSlash"
********************************************
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_copy.sci' already opened in Scilab.
*********************************************************
*****************************
==> Generate the AST in TMPDIR/SCI2CTmpResultsReports/
test_OpSlash/test_OpSlash.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]) //d2d2OpSlashd0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: endfunction
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
**********************************************
==> Copying sources needed in TMPDIR/src/c/
**********************************************
*************************************************
==> Copying headers needed in TMPDIR/includes/
*************************************************
******************************************************
==> Copying interfaces needed in TMPDIR/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_OpSlash() !
! !
! SCI2C: -------------------------------------------------------------!
! ----- !
! !
!*/ !
! !
!SCI2Cint main() !
! !
!{ !
! !
!/* !
! !
!** ----------------------------- !
! !
!** --- Variable Declaration. --- !
! !
!** ----------------------------- !
! !
!*/ !
! !
! !
! !
! double d0 = 3.1415927; !
! !
! !
! !
! double __temp1[1 * 2]; !
! !
! SCI2Cint ____temp1Size[2] = {1, 2};; !
! !
! !
! !
! double __temp2[1 * 3]; !
! !
! SCI2Cint ____temp2Size[2] = {1, 3};; !
! !
! !
! !
! double __temp3[1 * 4]; !
! !
! SCI2Cint ____temp3Size[2] = {1, 4};; !
! !
! !
! !
! double __temp4[1 * 2]; !
! !
! SCI2Cint ____temp4Size[2] = {1, 2};; !
! !
! !
! !
! double __temp5[1 * 3]; !
! !
! SCI2Cint ____temp5Size[2] = {1, 3};; !
! !
! !
! !
! double __temp6[1 * 4]; !
! !
! SCI2Cint ____temp6Size[2] = {1, 4};; !
! !
! !
! !
! double __temp7[2 * 4]; !
! !
! SCI2Cint ____temp7Size[2] = {2, 4};; !
! !
! !
! !
! double __temp8[1 * 2]; !
! !
! SCI2Cint ____temp8Size[2] = {1, 2};; !
! !
! !
! !
! double __temp9[1 * 3]; !
! !
! SCI2Cint ____temp9Size[2] = {1, 3};; !
! !
! !
! !
! double __temp10[1 * 4]; !
! !
! SCI2Cint ____temp10Size[2] = {1, 4};; !
! !
! !
! !
! double __temp11[3 * 4]; !
! !
! SCI2Cint ____temp11Size[2] = {3, 4};; !
! !
! !
! !
! double __temp12[1 * 2]; !
! !
! SCI2Cint ____temp12Size[2] = {1, 2};; !
! !
! !
! !
! double __temp13[1 * 3]; !
! !
! SCI2Cint ____temp13Size[2] = {1, 3};; !
! !
! !
! !
! double __temp14[1 * 4]; !
! !
! SCI2Cint ____temp14Size[2] = {1, 4};; !
! !
! !
! !
! double d2[4 * 4]; !
! !
! SCI2Cint __d2Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex __temp15; !
! !
! !
! !
! doubleComplex z0; !
! !
! !
! !
! doubleComplex __temp16[4 * 4]; !
! !
! SCI2Cint ____temp16Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex z2[4 * 4]; !
! !
! SCI2Cint __z2Size[2] = {4, 4};; !
! !
! !
! !
! double __temp17; !
! !
! !
! !
! double ans1; !
! !
! !
! !
! doubleComplex __temp18; !
! !
! !
! !
! double ans2; !
! !
! !
! !
! doubleComplex __temp19; !
! !
! !
! !
! double ans3; !
! !
! !
! !
! doubleComplex __temp20; !
! !
! !
! !
! double ans4; !
! !
! !
! !
! double __temp21[4 * 4]; !
! !
! SCI2Cint ____temp21Size[2] = {4, 4};; !
! !
! !
! !
! double ans5; !
! !
! !
! !
! doubleComplex __temp22[4 * 4]; !
! !
! SCI2Cint ____temp22Size[2] = {4, 4};; !
! !
! !
! !
! double ans6; !
! !
! !
! !
! doubleComplex __temp23[4 * 4]; !
! !
! SCI2Cint ____temp23Size[2] = {4, 4};; !
! !
! !
! !
! double ans7; !
! !
! !
! !
! doubleComplex __temp24[4 * 4]; !
! !
! SCI2Cint ____temp24Size[2] = {4, 4};; !
! !
! !
! !
! double ans8; !
! !
! !
! !
! double __temp25[4 * 4]; !
! !
! SCI2Cint ____temp25Size[2] = {4, 4};; !
! !
! !
! !
! double ans9; !
! !
! !
! !
! doubleComplex __temp26[4 * 4]; !
! !
! SCI2Cint ____temp26Size[2] = {4, 4};; !
! !
! !
! !
! double ans10; !
! !
! !
! !
! doubleComplex __temp27[4 * 4]; !
! !
! SCI2Cint ____temp27Size[2] = {4, 4};; !
! !
! !
! !
! double ans11; !
! !
! !
! !
! doubleComplex __temp28[4 * 4]; !
! !
! SCI2Cint ____temp28Size[2] = {4, 4};; !
! !
! !
! !
! double ans12; !
! !
! !
! !
! double __temp29[4 * 4]; !
! !
! SCI2Cint ____temp29Size[2] = {4, 4};; !
! !
! !
! !
! double ans13; !
! !
! !
! !
! doubleComplex __temp30[4 * 4]; !
! !
! SCI2Cint ____temp30Size[2] = {4, 4};; !
! !
! !
! !
! double ans14; !
! !
! !
! !
! doubleComplex __temp31[4 * 4]; !
! !
! SCI2Cint ____temp31Size[2] = {4, 4};; !
! !
! !
! !
! double ans15; !
! !
! !
! !
! doubleComplex __temp32[4 * 4]; !
! !
! SCI2Cint ____temp32Size[2] = {4, 4};; !
! !
! !
! !
! double ans16; !
! !
! !
! !
! double __temp33[1 * 2]; !
! !
! SCI2Cint ____temp33Size[2] = {1, 2};; !
! !
! !
! !
! double __temp34[1 * 3]; !
! !
! SCI2Cint ____temp34Size[2] = {1, 3};; !
! !
! !
! !
! double __temp35[1 * 2]; !
! !
! SCI2Cint ____temp35Size[2] = {1, 2};; !
! !
! !
! !
! double __temp36[1 * 3]; !
! !
! SCI2Cint ____temp36Size[2] = {1, 3};; !
! !
! !
! !
! double __temp37; !
! !
! !
! !
! double ans17; !
! !
! !
! !
! double __temp38[1 * 2]; !
! !
! SCI2Cint ____temp38Size[2] = {1, 2};; !
! !
! !
! !
! double __temp39[1 * 3]; !
! !
! SCI2Cint ____temp39Size[2] = {1, 3};; !
! !
! !
! !
! double __temp40[1 * 2]; !
! !
! SCI2Cint ____temp40Size[2] = {1, 2};; !
! !
! !
! !
! double __temp41[1 * 3]; !
! !
! SCI2Cint ____temp41Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp42[1 * 3]; !
! !
! SCI2Cint ____temp42Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp43; !
! !
! !
! !
! double ans18; !
! !
! !
! !
! double __temp44[1 * 2]; !
! !
! SCI2Cint ____temp44Size[2] = {1, 2};; !
! !
! !
! !
! double __temp45[1 * 3]; !
! !
! SCI2Cint ____temp45Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp46[1 * 3]; !
! !
! SCI2Cint ____temp46Size[2] = {1, 3};; !
! !
! !
! !
! double __temp47[1 * 2]; !
! !
! SCI2Cint ____temp47Size[2] = {1, 2};; !
! !
! !
! !
! double __temp48[1 * 3]; !
! !
! SCI2Cint ____temp48Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp49; !
! !
! !
! !
! double ans19; !
! !
! !
! !
! double __temp50[1 * 2]; !
! !
! SCI2Cint ____temp50Size[2] = {1, 2};; !
! !
! !
! !
! double __temp51[1 * 3]; !
! !
! SCI2Cint ____temp51Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp52[1 * 3]; !
! !
! SCI2Cint ____temp52Size[2] = {1, 3};; !
! !
! !
! !
! double __temp53[1 * 2]; !
! !
! SCI2Cint ____temp53Size[2] = {1, 2};; !
! !
! !
! !
! double __temp54[1 * 3]; !
! !
! SCI2Cint ____temp54Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp55[1 * 3]; !
! !
! SCI2Cint ____temp55Size[2] = {1, 3};; !
! !
! !
! !
! doubleComplex __temp56; !
! !
! !
! !
! 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 = d0d0OpSlashd0(d0,d0); !
! !
! ans1 = d0dispd0(__temp17); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0/z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp18 = d0z0OpSlashz0(d0,z0); !
! !
! ans2 = z0dispd0(__temp18); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0/d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp19 = z0d0OpSlashz0(z0,d0); !
! !
! ans3 = z0dispd0(__temp19); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0/z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp20 = z0z0OpSlashz0(z0,z0); !
! !
! ans4 = z0dispd0(__temp20); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2/d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d0OpSlashd2(d2, __d2Size,d0,__temp21); !
! !
! ans5 = d2dispd0(__temp21, ____temp21Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2/z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z0OpSlashz2(d2, __d2Size,z0,__temp22); !
! !
! ans6 = z2dispd0(__temp22, ____temp22Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2/d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d0OpSlashz2(z2, __z2Size,d0,__temp23); !
! !
! ans7 = z2dispd0(__temp23, ____temp23Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2/z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z0OpSlashz2(z2, __z2Size,z0,__temp24); !
! !
! ans8 = z2dispd0(__temp24, ____temp24Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0/d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d2OpSlashd2(d0,d2, __d2Size,__temp25); !
! !
! ans9 = d2dispd0(__temp25, ____temp25Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0/z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0z2OpSlashz2(d0,z2, __z2Size,__temp26); !
! !
! ans10 = z2dispd0(__temp26, ____temp26Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0/d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpSlashz2(z0,d2, __d2Size,__temp27); !
! !
! ans11 = z2dispd0(__temp27, ____temp27Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0/z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0z2OpSlashz2(z0,z2, __z2Size,__temp28); !
! !
! ans12 = z2dispd0(__temp28, ____temp28Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2/d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d2OpSlashd2(d2, __d2Size,d2, __d2Size,__temp29); !
! !
! ans13 = d2dispd0(__temp29, ____temp29Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2/z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpSlashz2(d2, __d2Size,z2, __z2Size,__temp30); !
! !
! ans14 = z2dispd0(__temp30, ____temp30Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2/d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d2OpSlashz2(z2, __z2Size,d2, __d2Size,__temp31); !
! !
! ans15 = z2dispd0(__temp31, ____temp31Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2/z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z2OpSlashz2(z2, __z2Size,z2, __z2Size,__temp32); !
! !
! ans16 = z2dispd0(__temp32, ____temp32Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp33); !
! !
! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); !
! !
! d0d0OpRcd2(1,2,__temp35); !
! !
! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); !
! !
! __temp37 = d2d2OpSlashd0(__temp34, ____temp34Size,__temp36, ____t!
! emp36Size); !
! !
! ans17 = d0dispd0(__temp37); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp38); !
! !
! d2d0OpRcd2(__temp38, ____temp38Size,3,__temp39); !
! !
! d0d0OpRcd2(1,2,__temp40); !
! !
! d2d0OpRcd2(__temp40, ____temp40Size,3,__temp41); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp41, ____temp41Size,__temp42)!
! ; !
! !
! __temp43 = d2z2OpSlashz0(__temp39, ____temp39Size,__temp42, ____t!
! emp42Size); !
! !
! ans18 = z0dispd0(__temp43); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp44); !
! !
! d2d0OpRcd2(__temp44, ____temp44Size,3,__temp45); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp45, ____temp45Size,__temp46)!
! ; !
! !
! d0d0OpRcd2(1,2,__temp47); !
! !
! d2d0OpRcd2(__temp47, ____temp47Size,3,__temp48); !
! !
! __temp49 = z2d2OpSlashz0(__temp46, ____temp46Size,__temp48, ____t!
! emp48Size); !
! !
! ans19 = z0dispd0(__temp49); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp50); !
! !
! d2d0OpRcd2(__temp50, ____temp50Size,3,__temp51); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp51, ____temp51Size,__temp52)!
! ; !
! !
! d0d0OpRcd2(1,2,__temp53); !
! !
! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); !
! !
! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)!
! ; !
! !
! __temp56 = z2z2OpSlashz0(__temp52, ____temp52Size,__temp55, ____t!
! emp55Size); !
! !
! ans20 = z0dispd0(__temp56); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: endfunction !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /* !
! !
! ** --------------------- !
! !
! ** --- Free Section. --- !
! !
! ** --------------------- !
! !
! */ !
! !
! /* !
! !
! ** ------------------------- !
! !
! ** --- End Free Section. --- !
! !
! ** ------------------------- !
! !
! */ !
! !
! !
! !
! return(0); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
!} !
! !
! !
mclose(fd);