// // 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_OpCc.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- 1. 2. 3. 4. 7. 1. 2. 3. 4. 1. 2. 3. 4. 7. 1. 2. 3. 4. 7. 1. 2. 3. 4. i 2.i 3.i 4.i 7. i 2.i 3.i 4.i i 2.i 3.i 4.i 7. i 2.i 3.i 4.i 7. i 2.i 3.i 4.i i 4.5 4.5 i 4.5 i 4.5 i 4.5 4.5 i 1. 4.5 1. 4.5 i 1. 4.5 i 1. 4.5 i 1. 4.5 1. 4.5 ------------------------------------------ --- 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_OpCc" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpCc/test_OpCc_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpCc/test_OpCc_copy.sci' already opened in Scilab. ==> Generate the AST. ==> Generate C code in TMPDIR/main.c /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: b = [7 ; a];// d0d2OpCcs2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: c = [a ; 7];// d2d0OpCcs2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: d = [a ; b];// d2d2OpCcs2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(a); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(b); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(c); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: f = [7 ; e];// z0z2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: g = [e ; 7];// z2z0OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: h = [e ; f];// z2z2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(e); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(f); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(g); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(h); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: i = [%i ; 4.5]; // z0d0OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: j = [4.5 ; %i ]; // d0z0OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: k = [4.5 ; i ]; // d0z2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: l = [i ; 4.5]; // z2d0OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(i); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(j); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(k); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(l); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: m = [1 ; 4.5]; SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: n = [%i ; m ]; // z0d2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: o = [m ; %i ]; // d0z2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: p = [m ; n ]; // d2z2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: q = [n ; m ]; // z2d2OpCcz2 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(n); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(o); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(p); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(q); 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: ! ! ! ! SCI2C: ! ! ! ! SCI2C: function test_OpCc() ! ! ! ! SCI2C: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !int main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double __temp1[2 * 1]; ! ! ! ! int ____temp1Size[2] = {2, 1};; ! ! ! ! ! ! ! ! double __temp2[3 * 1]; ! ! ! ! int ____temp2Size[2] = {3, 1};; ! ! ! ! ! ! ! ! double a[4 * 1]; ! ! ! ! int __aSize[2] = {4, 1};; ! ! ! ! ! ! ! ! double b[5 * 1]; ! ! ! ! int __bSize[2] = {5, 1};; ! ! ! ! ! ! ! ! double c[5 * 1]; ! ! ! ! int __cSize[2] = {5, 1};; ! ! ! ! ! ! ! ! double d[9 * 1]; ! ! ! ! int __dSize[2] = {9, 1};; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! doubleComplex __temp3; ! ! ! ! ! ! ! ! doubleComplex __temp4; ! ! ! ! ! ! ! ! doubleComplex __temp5[2 * 1]; ! ! ! ! int ____temp5Size[2] = {2, 1};; ! ! ! ! ! ! ! ! doubleComplex __temp6; ! ! ! ! ! ! ! ! doubleComplex __temp7[3 * 1]; ! ! ! ! int ____temp7Size[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex __temp8; ! ! ! ! ! ! ! ! doubleComplex e[4 * 1]; ! ! ! ! int __eSize[2] = {4, 1};; ! ! ! ! ! ! ! ! doubleComplex f[5 * 1]; ! ! ! ! int __fSize[2] = {5, 1};; ! ! ! ! ! ! ! ! doubleComplex g[5 * 1]; ! ! ! ! int __gSize[2] = {5, 1};; ! ! ! ! ! ! ! ! doubleComplex h[9 * 1]; ! ! ! ! int __hSize[2] = {9, 1};; ! ! ! ! ! ! ! ! double ans5; ! ! ! ! ! ! ! ! double ans6; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! doubleComplex i[2 * 1]; ! ! ! ! int __iSize[2] = {2, 1};; ! ! ! ! ! ! ! ! doubleComplex j[2 * 1]; ! ! ! ! int __jSize[2] = {2, 1};; ! ! ! ! ! ! ! ! doubleComplex k[3 * 1]; ! ! ! ! int __kSize[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex l[3 * 1]; ! ! ! ! int __lSize[2] = {3, 1};; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! double ans10; ! ! ! ! ! ! ! ! double ans11; ! ! ! ! ! ! ! ! double ans12; ! ! ! ! ! ! ! ! double m[2 * 1]; ! ! ! ! int __mSize[2] = {2, 1};; ! ! ! ! ! ! ! ! doubleComplex n[3 * 1]; ! ! ! ! int __nSize[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex o[3 * 1]; ! ! ! ! int __oSize[2] = {3, 1};; ! ! ! ! ! ! ! ! doubleComplex p[5 * 1]; ! ! ! ! int __pSize[2] = {5, 1};; ! ! ! ! ! ! ! ! doubleComplex q[5 * 1]; ! ! ! ! int __qSize[2] = {5, 1};; ! ! ! ! ! ! ! ! double ans13; ! ! ! ! ! ! ! ! double ans14; ! ! ! ! ! ! ! ! double ans15; ! ! ! ! ! ! ! ! double ans16; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- End Variable Declaration. --- ! ! ! !** --------------------------------- ! ! ! !*/ ! ! ! !/* ! ! ! !** --------------- ! ! ! !** --- C code. --- ! ! ! !** --------------- ! ! ! !*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpCcd2(1,2,__temp1); ! ! ! ! d2d0OpCcd2(__temp1, ____temp1Size,3,__temp2); ! ! ! ! d2d0OpCcd2(__temp2, ____temp2Size,4,a); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: b = [7 ; a];// d0d2OpCcs2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d2OpCcd2(7,a, __aSize,b); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: c = [a ; 7];// d2d0OpCcs2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0OpCcd2(a, __aSize,7,c); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: d = [a ; b];// d2d2OpCcs2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d2OpCcd2(a, __aSize,b, __bSize,d); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(a); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans1 = d2dispd0(a, __aSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(b); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans2 = d2dispd0(b, __bSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(c); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans3 = d2dispd0(c, __cSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans4 = d2dispd0(d, __dSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp3 = d0z0OpStarz0(1,DoubleComplex(0,1)); ! ! ! ! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! ! ! ! z0z0OpCcz2(__temp3,__temp4,__temp5); ! ! ! ! __temp6 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! ! ! ! z2z0OpCcz2(__temp5, ____temp5Size,__temp6,__temp7); ! ! ! ! __temp8 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! ! ! ! z2z0OpCcz2(__temp7, ____temp7Size,__temp8,e); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: f = [7 ; e];// z0z2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z2OpCcz2(7,e, __eSize,f); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: g = [e ; 7];// z2z0OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0OpCcz2(e, __eSize,7,g); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: h = [e ; f];// z2z2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z2OpCcz2(e, __eSize,f, __fSize,h); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(e); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans5 = z2dispd0(e, __eSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(f); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans6 = z2dispd0(f, __fSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(g); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans7 = z2dispd0(g, __gSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(h); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans8 = z2dispd0(h, __hSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: i = [%i ; 4.5]; // z0d0OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d0OpCcz2(DoubleComplex(0,1),4.5,i); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: j = [4.5 ; %i ]; // d0z0OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z0OpCcz2(4.5,DoubleComplex(0,1),j); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: k = [4.5 ; i ]; // d0z2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z2OpCcz2(4.5,i, __iSize,k); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: l = [i ; 4.5]; // z2d0OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0OpCcz2(i, __iSize,4.5,l); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(i); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans9 = z2dispd0(i, __iSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(j); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans10 = z2dispd0(j, __jSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(k); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans11 = z2dispd0(k, __kSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(l); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans12 = z2dispd0(l, __lSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: m = [1 ; 4.5]; ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpCcd2(1,4.5,m); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: n = [%i ; m ]; // z0d2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d2OpCcz2(DoubleComplex(0,1),m, __mSize,n); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: o = [m ; %i ]; // d0z2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z0OpCcz2(m, __mSize,DoubleComplex(0,1),o); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: p = [m ; n ]; // d2z2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpCcz2(m, __mSize,n, __nSize,p); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: q = [n ; m ]; // z2d2OpCcz2 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d2OpCcz2(n, __nSize,m, __mSize,q); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(n); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans13 = z2dispd0(n, __nSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(o); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans14 = z2dispd0(o, __oSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(p); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans15 = z2dispd0(p, __pSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(q); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans16 = z2dispd0(q, __qSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);