diff options
| author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
|---|---|---|
| committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
| commit | 6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26 (patch) | |
| tree | 1b7bd89fdcfd01715713d8a15db471dc75a96bbf /2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref | |
| download | Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.gz Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.bz2 Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.zip | |
Original Version
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref | 1187 |
1 files changed, 1187 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref new file mode 100644 index 00000000..89d20014 --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_Find.sci.dia.ref @@ -0,0 +1,1187 @@ +// +// 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_Find.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + [] + + 1. 4. 5. 6. + + [] + + [] + + 1. 2. 1. 2. + + 1. 2. 3. 3. + + [] + + 1. 4. + + [] + + [] + + 1. 2. + + 1. 2. + + ------------------------------------------ + + --- 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_Find" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Find/test_Find_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Find/test_Find_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( 1 == 3 )); // d0Findd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 8 3; 9 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( a == b )); // d2Findd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ z , j ] = find (1 == 3); // d0Findd0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ k , l ] = find (a == b); // d2Findd2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(k); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(l); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ( find( 1 == 3 , 2 )); // d0d0Findd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [1 8 3; 9 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( c == d , 2 )); // d2d0Findd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ q , s ] = find (c == d , 2); // d2d0Findd2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(o); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(q); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(s); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + 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_Find () ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double __temp2; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp11[2 * 3]; ! +! ! +! int ____temp11Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 6]; ! +! ! +! int ____temp12Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp13; ! +! ! +! ! +! ! +! double z; ! +! ! +! ! +! ! +! double j; ! +! ! +! ! +! ! +! double __temp14[2 * 3]; ! +! ! +! int ____temp14Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double k[1 * 1 * 6 * 6]; ! +! ! +! int __kSize[4] = {1, 1, 6, 6};; ! +! ! +! ! +! ! +! double l[1 * 1 * 6 * 6]; ! +! ! +! int __lSize[4] = {1, 1, 6, 6};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp15; ! +! ! +! ! +! ! +! double __temp16; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double c[2 * 3]; ! +! ! +! int __cSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 3]; ! +! ! +! int ____temp24Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double d[2 * 3]; ! +! ! +! int __dSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp25[2 * 3]; ! +! ! +! int ____temp25Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27; ! +! ! +! ! +! ! +! double o; ! +! ! +! ! +! ! +! double p; ! +! ! +! ! +! ! +! double __temp28[2 * 3]; ! +! ! +! int ____temp28Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double q[1 * 1 * 2 * 2]; ! +! ! +! int __qSize[4] = {1, 1, 2, 2};; ! +! ! +! ! +! ! +! double s[1 * 1 * 2 * 2]; ! +! ! +! int __sSize[4] = {1, 1, 2, 2};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( 1 == 3 )); // d0Findd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0OpLogEqd0(1,3); ! +! ! +! __temp2 = d0findd0(__temp1); ! +! ! +! ans1 = d0dispd0(__temp2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,3,__temp4); ! +! ! +! d0d0OpRcd2(4,5,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,6,__temp6); ! +! ! +! d2d2OpCcd2(__temp4, ____temp4Size,__temp6, ____temp6Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 8 3; 9 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,8,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,3,__temp8); ! +! ! +! d0d0OpRcd2(9,5,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,6,__temp10); ! +! ! +! d2d2OpCcd2(__temp8, ____temp8Size,__temp10, ____temp10Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( a == b )); // d2Findd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(a, __aSize,b, __bSize,__temp11); ! +! ! +! d2findd2(__temp11, ____temp11Size,__temp12); ! +! ! +! ans2 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ z , j ] = find (1 == 3); // d0Findd0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp13 = d0d0OpLogEqd0(1,3); ! +! ! +! z = d0findd0d0(__temp13,&j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ k , l ] = find (a == b); // d2Findd2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(a, __aSize,b, __bSize,__temp14); ! +! ! +! d2findd2d2(__temp14, ____temp14Size,k,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d0dispd0(z); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d0dispd0(j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(k); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = d2dispd0(k, __kSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(l); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = d2dispd0(l, __lSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ( find( 1 == 3 , 2 )); // d0d0Findd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = d0d0OpLogEqd0(1,3); ! +! ! +! __temp16 = d0d0findd0(__temp15,2); ! +! ! +! ans7 = d0dispd0(__temp16); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,3,__temp18); ! +! ! +! d0d0OpRcd2(4,5,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,6,__temp20); ! +! ! +! d2d2OpCcd2(__temp18, ____temp18Size,__temp20, ____temp20Size,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [1 8 3; 9 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,8,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,3,__temp22); ! +! ! +! d0d0OpRcd2(9,5,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,6,__temp24); ! +! ! +! d2d2OpCcd2(__temp22, ____temp22Size,__temp24, ____temp24Size,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( c == d , 2 )); // d2d0Findd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(c, __cSize,d, __dSize,__temp25); ! +! ! +! d2d0findd2(__temp25, ____temp25Size,2,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp27 = d0d0OpLogEqd0(1,3); ! +! ! +! o = d0d0findd0d0(__temp27,2,&p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ q , s ] = find (c == d , 2); // d2d0Findd2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(c, __cSize,d, __dSize,__temp28); ! +! ! +! d2d0findd2d2(__temp28, ____temp28Size,2,q,s); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(o); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = d0dispd0(o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = d0dispd0(p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(q); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = d2dispd0(q, __qSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(s); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = d2dispd0(s, __sSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |