//
// 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);