summaryrefslogtreecommitdiff
path: root/tests/unit_tests/double/test_OpLogNot.sci.dia.ref
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unit_tests/double/test_OpLogNot.sci.dia.ref')
-rw-r--r--tests/unit_tests/double/test_OpLogNot.sci.dia.ref1105
1 files changed, 1105 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpLogNot.sci.dia.ref b/tests/unit_tests/double/test_OpLogNot.sci.dia.ref
new file mode 100644
index 0000000..4a8ab13
--- /dev/null
+++ b/tests/unit_tests/double/test_OpLogNot.sci.dia.ref
@@ -0,0 +1,1105 @@
+//
+// 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_OpLogNot.sci", TMPDIR);
+
+ -----------------------------------
+
+ --- Executing your SCILAB code. ---
+
+ -----------------------------------
+
+ F
+
+ T
+
+ F
+
+ T
+
+ T
+
+ T
+
+ F
+
+ F
+
+ F
+
+ F F F
+ T F F
+ F T F
+
+ T F F
+ T F F
+ T F F
+
+ ------------------------------------------
+
+ --- 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_OpLogNot"
+Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab.
+Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab.
+
+ ==> Generate the AST.
+
+ ==> Generate C code in TMPDIR/main.c
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: // test OpLogNot
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(-2))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(0))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(3))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(0-2*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(0+0*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(0+3*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(3-5*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(3+0*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(3+6*%i))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: a=[-1 2 3; 0 -1 4; 2 -0 5];
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(a))
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0
+ *%i]
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C:
+
+ SCI2C: ##########################################################
+ ########*/
+
+ /*SCI2C: ##########################################################
+ ########
+
+ SCI2C: disp(~(b))
+
+ 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_OpLogNot() !
+! !
+! SCI2C: -------------------------------------------------------------!
+! ----- !
+! !
+!*/ !
+! !
+!int main() !
+! !
+!{ !
+! !
+!/* !
+! !
+!** ----------------------------- !
+! !
+!** --- Variable Declaration. --- !
+! !
+!** ----------------------------- !
+! !
+!*/ !
+! !
+! !
+! !
+! double __temp1; !
+! !
+! !
+! !
+! double ans1; !
+! !
+! !
+! !
+! double __temp2; !
+! !
+! !
+! !
+! double ans2; !
+! !
+! !
+! !
+! double __temp3; !
+! !
+! !
+! !
+! double ans3; !
+! !
+! !
+! !
+! doubleComplex __temp4; !
+! !
+! !
+! !
+! doubleComplex __temp5; !
+! !
+! !
+! !
+! doubleComplex __temp6; !
+! !
+! !
+! !
+! double ans4; !
+! !
+! !
+! !
+! doubleComplex __temp7; !
+! !
+! !
+! !
+! doubleComplex __temp8; !
+! !
+! !
+! !
+! doubleComplex __temp9; !
+! !
+! !
+! !
+! double ans5; !
+! !
+! !
+! !
+! doubleComplex __temp10; !
+! !
+! !
+! !
+! doubleComplex __temp11; !
+! !
+! !
+! !
+! doubleComplex __temp12; !
+! !
+! !
+! !
+! double ans6; !
+! !
+! !
+! !
+! doubleComplex __temp13; !
+! !
+! !
+! !
+! doubleComplex __temp14; !
+! !
+! !
+! !
+! doubleComplex __temp15; !
+! !
+! !
+! !
+! double ans7; !
+! !
+! !
+! !
+! doubleComplex __temp16; !
+! !
+! !
+! !
+! doubleComplex __temp17; !
+! !
+! !
+! !
+! doubleComplex __temp18; !
+! !
+! !
+! !
+! double ans8; !
+! !
+! !
+! !
+! doubleComplex __temp19; !
+! !
+! !
+! !
+! doubleComplex __temp20; !
+! !
+! !
+! !
+! doubleComplex __temp21; !
+! !
+! !
+! !
+! double ans9; !
+! !
+! !
+! !
+! double __temp22[1 * 2]; !
+! !
+! int ____temp22Size[2] = {1, 2};; !
+! !
+! !
+! !
+! double __temp23[1 * 3]; !
+! !
+! int ____temp23Size[2] = {1, 3};; !
+! !
+! !
+! !
+! double __temp24[1 * 2]; !
+! !
+! int ____temp24Size[2] = {1, 2};; !
+! !
+! !
+! !
+! double __temp25[1 * 3]; !
+! !
+! int ____temp25Size[2] = {1, 3};; !
+! !
+! !
+! !
+! double __temp26[2 * 3]; !
+! !
+! int ____temp26Size[2] = {2, 3};; !
+! !
+! !
+! !
+! double __temp27[1 * 2]; !
+! !
+! int ____temp27Size[2] = {1, 2};; !
+! !
+! !
+! !
+! double __temp28[1 * 3]; !
+! !
+! int ____temp28Size[2] = {1, 3};; !
+! !
+! !
+! !
+! double a[3 * 3]; !
+! !
+! int __aSize[2] = {3, 3};; !
+! !
+! !
+! !
+! double __temp29[3 * 3]; !
+! !
+! int ____temp29Size[2] = {3, 3};; !
+! !
+! !
+! !
+! double ans10; !
+! !
+! !
+! !
+! doubleComplex __temp30; !
+! !
+! !
+! !
+! doubleComplex __temp31; !
+! !
+! !
+! !
+! doubleComplex __temp32; !
+! !
+! !
+! !
+! doubleComplex __temp33[1 * 2]; !
+! !
+! int ____temp33Size[2] = {1, 2};; !
+! !
+! !
+! !
+! doubleComplex __temp34[1 * 3]; !
+! !
+! int ____temp34Size[2] = {1, 3};; !
+! !
+! !
+! !
+! doubleComplex __temp35; !
+! !
+! !
+! !
+! doubleComplex __temp36; !
+! !
+! !
+! !
+! doubleComplex __temp37; !
+! !
+! !
+! !
+! doubleComplex __temp38; !
+! !
+! !
+! !
+! doubleComplex __temp39[1 * 2]; !
+! !
+! int ____temp39Size[2] = {1, 2};; !
+! !
+! !
+! !
+! doubleComplex __temp40; !
+! !
+! !
+! !
+! doubleComplex __temp41[1 * 3]; !
+! !
+! int ____temp41Size[2] = {1, 3};; !
+! !
+! !
+! !
+! doubleComplex __temp42[2 * 3]; !
+! !
+! int ____temp42Size[2] = {2, 3};; !
+! !
+! !
+! !
+! doubleComplex __temp43; !
+! !
+! !
+! !
+! doubleComplex __temp44; !
+! !
+! !
+! !
+! doubleComplex __temp45; !
+! !
+! !
+! !
+! doubleComplex __temp46; !
+! !
+! !
+! !
+! doubleComplex __temp47[1 * 2]; !
+! !
+! int ____temp47Size[2] = {1, 2};; !
+! !
+! !
+! !
+! doubleComplex __temp48; !
+! !
+! !
+! !
+! doubleComplex __temp49; !
+! !
+! !
+! !
+! doubleComplex __temp50[1 * 3]; !
+! !
+! int ____temp50Size[2] = {1, 3};; !
+! !
+! !
+! !
+! doubleComplex b[3 * 3]; !
+! !
+! int __bSize[2] = {3, 3};; !
+! !
+! !
+! !
+! doubleComplex __temp51[3 * 3]; !
+! !
+! int ____temp51Size[2] = {3, 3};; !
+! !
+! !
+! !
+! double ans11; !
+! !
+! !
+! !
+! !
+! !
+! !
+! !
+! !
+! !
+!/* !
+! !
+!** --------------------------------- !
+! !
+!** --- End Variable Declaration. --- !
+! !
+!** --------------------------------- !
+! !
+!*/ !
+! !
+!/* !
+! !
+!** --------------- !
+! !
+!** --- C code. --- !
+! !
+!** --------------- !
+! !
+!*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: // test OpLogNot !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(-2)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp1 = d0OpLogNotd0(-2); !
+! !
+! ans1 = d0dispd0(__temp1); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(0)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp2 = d0OpLogNotd0(0); !
+! !
+! ans2 = d0dispd0(__temp2); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(3)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp3 = d0OpLogNotd0(3); !
+! !
+! ans3 = d0dispd0(__temp3); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(0-2*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); !
+! !
+! __temp5 = d0z0OpMinusz0(0,__temp4); !
+! !
+! __temp6 = z0OpLogNotz0(__temp5); !
+! !
+! ans4 = z0dispd0(__temp6); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(0+0*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp7 = d0z0OpStarz0(0,DoubleComplex(0,1)); !
+! !
+! __temp8 = d0z0OpPlusz0(0,__temp7); !
+! !
+! __temp9 = z0OpLogNotz0(__temp8); !
+! !
+! ans5 = z0dispd0(__temp9); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(0+3*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp10 = d0z0OpStarz0(3,DoubleComplex(0,1)); !
+! !
+! __temp11 = d0z0OpPlusz0(0,__temp10); !
+! !
+! __temp12 = z0OpLogNotz0(__temp11); !
+! !
+! ans6 = z0dispd0(__temp12); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(3-5*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp13 = d0z0OpStarz0(5,DoubleComplex(0,1)); !
+! !
+! __temp14 = d0z0OpMinusz0(3,__temp13); !
+! !
+! __temp15 = z0OpLogNotz0(__temp14); !
+! !
+! ans7 = z0dispd0(__temp15); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(3+0*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp16 = d0z0OpStarz0(0,DoubleComplex(0,1)); !
+! !
+! __temp17 = d0z0OpPlusz0(3,__temp16); !
+! !
+! __temp18 = z0OpLogNotz0(__temp17); !
+! !
+! ans8 = z0dispd0(__temp18); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(3+6*%i)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp19 = d0z0OpStarz0(6,DoubleComplex(0,1)); !
+! !
+! __temp20 = d0z0OpPlusz0(3,__temp19); !
+! !
+! __temp21 = z0OpLogNotz0(__temp20); !
+! !
+! ans9 = z0dispd0(__temp21); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: a=[-1 2 3; 0 -1 4; 2 -0 5]; !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! d0d0OpRcd2(-1,2,__temp22); !
+! !
+! d2d0OpRcd2(__temp22, ____temp22Size,3,__temp23); !
+! !
+! d0d0OpRcd2(0,-1,__temp24); !
+! !
+! d2d0OpRcd2(__temp24, ____temp24Size,4,__temp25); !
+! !
+! d2d2OpCcd2(__temp23, ____temp23Size,__temp25, ____temp25Size,__te!
+! mp26); !
+! !
+! d0d0OpRcd2(2,-0,__temp27); !
+! !
+! d2d0OpRcd2(__temp27, ____temp27Size,5,__temp28); !
+! !
+! d2d2OpCcd2(__temp26, ____temp26Size,__temp28, ____temp28Size,a); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(a)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! d2OpLogNotd2(a, __aSize,__temp29); !
+! !
+! ans10 = d2dispd0(__temp29, ____temp29Size); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0!
+! *%i] !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! __temp30 = d0z0OpStarz0(3,DoubleComplex(0,1)); !
+! !
+! __temp31 = d0z0OpPlusz0(0,__temp30); !
+! !
+! __temp32 = d0z0OpMinusz0(2,DoubleComplex(0,1)); !
+! !
+! z0z0OpRcz2(__temp31,__temp32,__temp33); !
+! !
+! z2d0OpRcz2(__temp33, ____temp33Size,1,__temp34); !
+! !
+! __temp35 = d0z0OpStarz0(2,DoubleComplex(0,1)); !
+! !
+! __temp36 = d0z0OpMinusz0(0,__temp35); !
+! !
+! __temp37 = d0z0OpStarz0(2,DoubleComplex(0,1)); !
+! !
+! __temp38 = d0z0OpPlusz0(2,__temp37); !
+! !
+! z0z0OpRcz2(__temp36,__temp38,__temp39); !
+! !
+! __temp40 = d0z0OpMinusz0(1,DoubleComplex(0,1)); !
+! !
+! z2z0OpRcz2(__temp39, ____temp39Size,__temp40,__temp41); !
+! !
+! z2z2OpCcz2(__temp34, ____temp34Size,__temp41, ____temp41Size,__te!
+! mp42); !
+! !
+! __temp43 = d0z0OpStarz0(0,DoubleComplex(0,1)); !
+! !
+! __temp44 = d0z0OpPlusz0(0,__temp43); !
+! !
+! __temp45 = d0z0OpStarz0(0,DoubleComplex(0,1)); !
+! !
+! __temp46 = d0z0OpPlusz0(4,__temp45); !
+! !
+! z0z0OpRcz2(__temp44,__temp46,__temp47); !
+! !
+! __temp48 = d0z0OpStarz0(0,DoubleComplex(0,1)); !
+! !
+! __temp49 = d0z0OpMinusz0(5,__temp48); !
+! !
+! z2z0OpRcz2(__temp47, ____temp47Size,__temp49,__temp50); !
+! !
+! z2z2OpCcz2(__temp42, ____temp42Size,__temp50, ____temp50Size,b); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: disp(~(b)) !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! z2OpLogNotz2(b, __bSize,__temp51); !
+! !
+! ans11 = z2dispd0(__temp51, ____temp51Size); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: endfunction !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+! !
+! !
+! /* !
+! !
+! ** --------------------- !
+! !
+! ** --- Free Section. --- !
+! !
+! ** --------------------- !
+! !
+! */ !
+! !
+! /* !
+! !
+! ** ------------------------- !
+! !
+! ** --- End Free Section. --- !
+! !
+! ** ------------------------- !
+! !
+! */ !
+! !
+! !
+! !
+! return(0); !
+! !
+! !
+! !
+! /*SCI2C: ##########################################################!
+! ######## !
+! !
+! SCI2C: !
+! !
+! SCI2C: ##########################################################!
+! ########*/ !
+! !
+!} !
+! !
+! !
+mclose(fd);