//
// 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_OpDotHat.sci", TMPDIR);
-----------------------------------
--- Executing your SCILAB code. ---
-----------------------------------
36.46216
5.9283225 + 7.016786i
1. 8.8249778 31.544281 77.880234
156.99255 278.37758 451.80787 687.29134
995.04164 1385.4557 1869.096 2456.676
3159.0482 3987.1945 4952.2169 6065.3308
column 1 to 2
- 0.2305848 - 0.1014833i 1.8960812 - 1.1609458i
- 27.20192 + 28.711233i - 68.127844 + 16.643533i
- 128.15078 - 215.44779i - 71.255924 - 341.68558i
461.54269 - 648.35545i 755.6226 - 661.84161i
column 3 to 4
5.9514188 + 5.2663201i - 1.1252863 + 19.587992i
- 110.43344 - 27.572522i - 136.3417 - 106.73041i
44.117831 - 468.80814i 222.18104 - 577.65261i
1093.3278 - 600.96383i 1459.8611 - 451.31942i
3.1415927 9.8696044 31.006277 97.409091
306.01968 961.38919 3020.2932 9488.531
29809.099 93648.047 294204.02 924269.18
2903677.3 9122171.2 28658146. 90032221.
column 1 to 2
- 1.3141052 + 1.541592i - 0.6496337 - 4.0516281i
12.902191 - 31.573352i 31.718393 + 61.38062i
- 40.146534 + 572.8927i - 830.41006 - 814.73083i
- 2373.7017 - 9373.9919i 17570.165 + 8659.1315i
column 3 to 4
7.0996445 + 4.3227953i - 15.993666 + 5.2641479i
- 136.30518 - 31.763766i 228.08611 - 168.38605i
2347.2287 - 209.51156i - 2761.524 + 3893.7893i
- 36437.892 + 15707.017i 23669.41 - 76813.037i
1. 4. 27. 256.
3125. 46656. 823543. 16777216.
3.874D+08 1.000D+10 2.853D+11 8.916D+12
3.029D+14 1.111D+16 4.379D+17 1.845D+19
column 1 to 2
0.2739573 + 0.5837008i - 1.4525046 - 0.8098895i
145.23402 + 316.57634i 873.73919 - 3237.1528i
876015.4 - 7412399.9i - 1.214D+08 + 26132892.i
- 5.981D+11 - 8.122D+11i - 1.952D+13 + 1.372D+13i
column 3 to 4
6.6423696 + 2.8756701i - 35.273382 - 26.719734i
- 34429.512 + 16460.776i 425100.32 + 265667.49i
9.762D+08 + 2.066D+09i 3.852D+10 - 2.523D+10i
3.008D+14 + 5.264D+14i 1.542D+16 - 5.784D+15i
column 1 to 2
1. - 5.0322958 + 7.2495678i
52.91841 - 147.80494i 220.90118 - 169.40114i
810.07457 + 577.82962i 805.22086 + 1127.4338i
- 640.12268 + 3093.5139i - 1686.9732 + 3612.7332i
column 3 to 4
- 30.042605 - 9.6168362i - 27.232232 - 72.963939i
445.30044 - 76.40598i 665.99766 + 169.75421i
589.32366 + 1773.758i 116.44495 + 2453.9147i
- 3011.2228 + 3931.5378i - 4582.1419 + 3973.9418i
column 1 to 2
- 2.3207356 + 1.8544984i - 20.48044 + 16.365907i
- 364.33818 + 291.14242i - 646.04074 + 516.25077i
- 2309.2285 + 1845.3031i - 3215.2764 + 2569.3254i
- 7331.3155 + 5858.4498i - 9253.224 + 7394.2457i
column 3 to 4
- 73.205934 + 58.498818i - 180.73943 + 144.42877i
- 1048.5266 + 837.87697i - 1595.0214 + 1274.5807i
- 4337.6776 + 3466.2355i - 5701.2952 + 4555.9016i
- 11492.786 + 9183.8783i - 14076.029 + 11248.146i
column 1 to 2
1.2983955 + 2.8607296i - 6.4979428 + 7.4287166i
259.35216 - 162.43308i 801.41878 + 531.03401i
- 19043.607 - 22933.021i 40879.037 - 84254.74i
- 1967162.8 + 2135793.1i - 8664081.7 - 2854416.7i
column 3 to 4
- 29.688449 - 8.9434449i - 12.96257 - 96.542751i
- 478.58617 + 2982.1345i - 9152.4746 + 2502.8844i
294107.18 + 7547.8967i 360274.94 + 851161.26i
- 3083690.3 - 28491756.i 77503360. - 45815172.i
column 1 to 3
3.1415927 + 3.1415927i 19.739209i - 62.012553 + 62.012553i
- 1224.0787 - 1224.0787i - 7691.1135i 24162.346 - 24162.346i
476945.59 + 476945.59i 2996737.5i - 9414528.6 + 9414528.6i
- 1.858D+08 - 1.858D+08i - 1.168D+09i 3.668D+09 - 3.668D+09i
column 4
- 389.63636
151816.5
- 59153228.
2.305D+10
- 32.757625 - 16.01334i
- 84.61903 + 67.619016i
column 1 to 2
1. 0.7338279 + 3.932111i
- 600.02537 + 3066.8542i - 11317.499 - 45262.529i
2.330D+08 + 3.095D+08i - 5.108D+09 - 8.597D+09i
- 1.060D+14 + 2.837D+14i 8.113D+15 - 7.593D+15i
column 3 to 4
- 26.679454 - 4.1480999i 189.39145 - 172.24075i
406193.94 + 716400.42i - 10062654. - 13424529.i
9.156D+10 + 2.702D+11i - 2.340D+11 - 8.913D+12i
- 4.273D+17 + 9.554D+16i 1.714D+19 + 6.827D+18i
column 1 to 3
1. + i 8.i - 54. + 54.i
- 12500. - 12500.i - 373248.i 6588344. - 6588344.i
6.199D+09 + 6.199D+09i 3.200D+11i - 9.130D+12 + 9.130D+12i
- 1.938D+16 - 1.938D+16i - 1.422D+18i 5.605D+19 - 5.605D+19i
column 4
- 1024.
2.684D+08
- 5.706D+14
4.722D+21
------------------------------------------
--- 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_OpDotHat"
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_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(z0.^z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.^d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.^z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.^d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.^z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.^d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.^z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.^z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.^d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.^z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.^d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.^z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.^d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.^z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.^d2)
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_OpDotHat() !
! !
! 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; !
! !
! !
! !
! double __temp19[4 * 4]; !
! !
! int ____temp19Size[2] = {4, 4};; !
! !
! !
! !
! double ans3; !
! !
! !
! !
! doubleComplex __temp20[4 * 4]; !
! !
! int ____temp20Size[2] = {4, 4};; !
! !
! !
! !
! double ans4; !
! !
! !
! !
! double __temp21[4 * 4]; !
! !
! int ____temp21Size[2] = {4, 4};; !
! !
! !
! !
! double ans5; !
! !
! !
! !
! doubleComplex __temp22[4 * 4]; !
! !
! int ____temp22Size[2] = {4, 4};; !
! !
! !
! !
! double ans6; !
! !
! !
! !
! double __temp23[4 * 4]; !
! !
! int ____temp23Size[2] = {4, 4};; !
! !
! !
! !
! double ans7; !
! !
! !
! !
! doubleComplex __temp24[4 * 4]; !
! !
! int ____temp24Size[2] = {4, 4};; !
! !
! !
! !
! double ans8; !
! !
! !
! !
! doubleComplex __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; !
! !
! !
! !
! doubleComplex __temp29; !
! !
! !
! !
! double ans13; !
! !
! !
! !
! doubleComplex __temp30; !
! !
! !
! !
! double ans14; !
! !
! !
! !
! doubleComplex __temp31[4 * 4]; !
! !
! int ____temp31Size[2] = {4, 4};; !
! !
! !
! !
! double ans15; !
! !
! !
! !
! doubleComplex __temp32[4 * 4]; !
! !
! int ____temp32Size[2] = {4, 4};; !
! !
! !
! !
! double ans16; !
! !
! !
! !
! !
! !
! !
! !
! !
! !
!/* !
! !
!** --------------------------------- !
! !
!** --- 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 = d0d0OpDotHatd0(d0,d0); !
! !
! ans1 = d0dispd0(__temp17); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.^z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp18 = z0z0OpDotHatz0(z0,z0); !
! !
! ans2 = z0dispd0(__temp18); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.^d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d0OpDotHatd2(d2, __d2Size,d0,__temp19); !
! !
! ans3 = d2dispd0(__temp19, ____temp19Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.^z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z0OpDotHatz2(z2, __z2Size,z0,__temp20); !
! !
! ans4 = z2dispd0(__temp20, ____temp20Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.^d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d2OpDotHatd2(d0,d2, __d2Size,__temp21); !
! !
! ans5 = d2dispd0(__temp21, ____temp21Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.^z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0z2OpDotHatz2(z0,z2, __z2Size,__temp22); !
! !
! ans6 = z2dispd0(__temp22, ____temp22Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.^d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d2OpDotHatd2(d2, __d2Size,d2, __d2Size,__temp23); !
! !
! ans7 = d2dispd0(__temp23, ____temp23Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.^z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z2OpDotHatz2(z2, __z2Size,z2, __z2Size,__temp24); !
! !
! ans8 = z2dispd0(__temp24, ____temp24Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.^z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z0OpDotHatz2(d2, __d2Size,z0,__temp25); !
! !
! ans9 = z2dispd0(__temp25, ____temp25Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.^d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d0OpDotHatz2(z2, __z2Size,d0,__temp26); !
! !
! ans10 = z2dispd0(__temp26, ____temp26Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.^z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0z2OpDotHatz2(d0,z2, __z2Size,__temp27); !
! !
! ans11 = z2dispd0(__temp27, ____temp27Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.^d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpDotHatz2(z0,d2, __d2Size,__temp28); !
! !
! ans12 = z2dispd0(__temp28, ____temp28Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.^z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp29 = d0z0OpDotHatz0(d0,z0); !
! !
! ans13 = z0dispd0(__temp29); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.^d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp30 = z0d0OpDotHatz0(z0,d0); !
! !
! ans14 = z0dispd0(__temp30); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.^z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpDotHatz2(d2, __d2Size,z2, __z2Size,__temp31); !
! !
! ans15 = z2dispd0(__temp31, ____temp31Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.^d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d2OpDotHatz2(z2, __z2Size,d2, __d2Size,__temp32); !
! !
! ans16 = z2dispd0(__temp32, ____temp32Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: endfunction !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /* !
! !
! ** --------------------- !
! !
! ** --- Free Section. --- !
! !
! ** --------------------- !
! !
! */ !
! !
! /* !
! !
! ** ------------------------- !
! !
! ** --- End Free Section. --- !
! !
! ** ------------------------- !
! !
! */ !
! !
! !
! !
! return(0); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
!} !
! !
! !
mclose(fd);