diff options
| author | Sandeep Gupta | 2017-06-18 23:55:40 +0530 |
|---|---|---|
| committer | Sandeep Gupta | 2017-06-18 23:55:40 +0530 |
| commit | 277d1edfa17bf3719d90ddbac8e31f6181e952c3 (patch) | |
| tree | 0661f1f52af0a0fd654edd4984c30e57037303c6 /tests/unit_tests/double/test_OpColon.sci.dia.ref | |
| download | Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.tar.gz Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.tar.bz2 Scilab2C_fossee_old-277d1edfa17bf3719d90ddbac8e31f6181e952c3.zip | |
First commit
Diffstat (limited to 'tests/unit_tests/double/test_OpColon.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_OpColon.sci.dia.ref | 1249 |
1 files changed, 1249 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpColon.sci.dia.ref b/tests/unit_tests/double/test_OpColon.sci.dia.ref new file mode 100644 index 0000000..9770ca7 --- /dev/null +++ b/tests/unit_tests/double/test_OpColon.sci.dia.ref @@ -0,0 +1,1249 @@ +// +// 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_OpColon.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. 0. + 0. 0. + 0. 0. + + 0. 0. + 0. 0. + 0. 0. + + 0. 0. 0. + + 0. 0. 0. + 0. 0. 0. + + 0. 1. 2. 3. + + 1. + + [] + + 2. 3. 4. 5. + + 4. 5. 6. 7. 8. + + 1. + + 0. 1. 2. + + 2. + + 4. 8. + + ------------------------------------------ + + --- 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_OpColon" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpColon/test_OpColon_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpColon/test_OpColon_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // B = A * %i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = %i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = %e ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [7 8 5 ]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ( a , %e )); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ( %pi , %e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(c)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ([4 5 6 ; 4 5 6]) ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(0:1:3); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(1:1); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+53*%i:0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(2:5); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+3*%i:8+%i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(1:5:1); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(%i:%i+1:2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(2:7:5); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+3*%i:4:8+%i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //a =4 + 53 *%i : 0 ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //OUT(1).SZ(2)= FA_INT( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_ADD( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_DIV( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REA + L(IN(1).VAL, IN(3).TP)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ,FA_REAL(IN(2).VAL,IN + (2).TP) + + 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_OpColon() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! doubleComplex d = DoubleComplex(0,1); ! +! ! +! ! +! ! +! double a = 3.1415927; ! +! ! +! ! +! ! +! double b = 2.7182818; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double c[1 * 3]; ! +! ! +! int __cSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp2[3 * 2]; ! +! ! +! int ____temp2Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp3[3 * 2]; ! +! ! +! int ____temp3Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10[2 * 3]; ! +! ! +! int ____temp10Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp11[1 * 4]; ! +! ! +! int ____temp11Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp12; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp13; ! +! ! +! ! +! ! +! doubleComplex __temp14; ! +! ! +! ! +! ! +! double* __temp15 = NULL; ! +! ! +! int ____temp15Size[2]; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp16[1 * 4]; ! +! ! +! int ____temp16Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double* __temp20 = NULL; ! +! ! +! int ____temp20Size[2]; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double* __temp23 = NULL; ! +! ! +! int ____temp23Size[2]; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp24; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! doubleComplex __temp27; ! +! ! +! ! +! ! +! double* __temp28 = NULL; ! +! ! +! int ____temp28Size[2]; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // B = A * %i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = %i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d = z0OpEqualz0(DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = %e ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0OpEquald0(SCI2C_E); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [7 8 5 ]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,5,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ( a , %e )); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0zerosd2(a,SCI2C_E,__temp2); ! +! ! +! ans1 = d2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ( %pi , %e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0zerosd2(SCI2C_PI,SCI2C_E,__temp3); ! +! ! +! ans2 = d2dispd0(__temp3, ____temp3Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(c)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(c, __cSize,__temp4); ! +! ! +! ans3 = d2dispd0(__temp4, ____temp4Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ([4 5 6 ; 4 5 6]) ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,6,__temp6); ! +! ! +! d0d0OpRcd2(4,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,6,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! d2zerosd2(__temp9, ____temp9Size,__temp10); ! +! ! +! ans4 = d2dispd0(__temp10, ____temp10Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(0:1:3); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0d0OpColond2(0,1,3,__temp11); ! +! ! +! ans5 = d2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(1:1); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp12 = d0d0OpColond0(1,1); ! +! ! +! ans6 = d0dispd0(__temp12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+53*%i:0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp13 = d0z0OpStarz0(53,DoubleComplex(0,1)); ! +! ! +! __temp14 = d0z0OpPlusz0(4,__temp13); ! +! ! +! ____temp15Size[0]=1; ! +! ! +! ____temp15Size[1]=d0absd0(d0floord0(((0-z0reald0(__temp14))+1))); ! +! ! +! __temp15 = (double*) realloc(__temp15,(1)*(d0absd0(d0floord0(((0-z0! +! reald0(__temp14))+1))))*sizeof(double)); ! +! ! +! z0d0OpColond2(__temp14,0,__temp15); ! +! ! +! ans7 = d2dispd0(__temp15, ____temp15Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(2:5); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+3*%i:8+%i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpColond2(2,5,__temp16); ! +! ! +! ans8 = d2dispd0(__temp16, ____temp16Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp18 = d0z0OpPlusz0(4,__temp17); ! +! ! +! __temp19 = d0z0OpPlusz0(8,DoubleComplex(0,1)); ! +! ! +! ____temp20Size[0]=1; ! +! ! +! ____temp20Size[1]=d0absd0(d0floord0(((z0reald0(__temp19)-z0reald0(_! +! _temp18))+1))); ! +! ! +! __temp20 = (double*) realloc(__temp20,(1)*(d0absd0(d0floord0(((z0re! +! ald0(__temp19)-z0reald0(__temp18))+1))))*sizeof(double)); ! +! ! +! z0z0OpColond2(__temp18,__temp19,__temp20); ! +! ! +! ans9 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(1:5:1); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(%i:%i+1:2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0d0OpColond0(1,5,1); ! +! ! +! ans10 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0OpPlusz0(DoubleComplex(0,1),1); ! +! ! +! ____temp23Size[0]=1; ! +! ! +! ____temp23Size[1]=d0absd0(d0floord0(((2/z0reald0(__temp22))+1))); ! +! ! +! __temp23 = (double*) realloc(__temp23,(1)*(d0absd0(d0floord0(((2/z0! +! reald0(__temp22))+1))))*sizeof(double)); ! +! ! +! z0z0d0OpColond2(DoubleComplex(0,1),__temp22,2,__temp23); ! +! ! +! ans11 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(2:7:5); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+3*%i:4:8+%i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //a =4 + 53 *%i : 0 ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp24 = d0d0d0OpColond0(2,7,5); ! +! ! +! ans12 = d0dispd0(__temp24); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //OUT(1).SZ(2)= FA_INT( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp26 = d0z0OpPlusz0(4,__temp25); ! +! ! +! __temp27 = d0z0OpPlusz0(8,DoubleComplex(0,1)); ! +! ! +! ____temp28Size[0]=1; ! +! ! +! ____temp28Size[1]=d0absd0(d0floord0((((z0reald0(__temp27)-z0reald0(! +! __temp26))/4)+1))); ! +! ! +! __temp28 = (double*) realloc(__temp28,(1)*(d0absd0(d0floord0((((z0r! +! eald0(__temp27)-z0reald0(__temp26))/4)+1))))*sizeof(double)); ! +! ! +! z0d0z0OpColond2(__temp26,4,__temp27,__temp28); ! +! ! +! ans13 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_ADD( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_DIV( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REA! +! L(IN(1).VAL, IN(3).TP)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! free(__temp15); ! +! ! +! free(__temp20); ! +! ! +! free(__temp23); ! +! ! +! free(__temp28); ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ,FA_REAL(IN(2).VAL,IN! +! (2).TP) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |