//
// 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_OpDotStar.sci", TMPDIR);
-----------------------------------
--- Executing your SCILAB code. ---
-----------------------------------
9.8696044
9.8696044 + 9.8696044i
3.1415927 6.2831853 9.424778 12.566371
15.707963 18.849556 21.991149 25.132741
28.274334 31.415927 34.557519 37.699112
40.840704 43.982297 47.12389 50.265482
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
3.1415927 6.2831853 9.424778 12.566371
15.707963 18.849556 21.991149 25.132741
28.274334 31.415927 34.557519 37.699112
40.840704 43.982297 47.12389 50.265482
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
1. 4. 9. 16.
25. 36. 49. 64.
81. 100. 121. 144.
169. 196. 225. 256.
1. + i 4. + 4.i 9. + 9.i 16. + 16.i
25. + 25.i 36. + 36.i 49. + 49.i 64. + 64.i
81. + 81.i 100. + 100.i 121. + 121.i 144. + 144.i
169. + 169.i 196. + 196.i 225. + 225.i 256. + 256.i
9.8696044 + 9.8696044i
19.739209i
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
6.2831853i 12.566371i 18.849556i 25.132741i
31.415927i 37.699112i 43.982297i 50.265482i
56.548668i 62.831853i 69.115038i 75.398224i
81.681409i 87.964594i 94.24778i 100.53096i
column 1 to 2
3.1415927 + 3.1415927i 6.2831853 + 6.2831853i
15.707963 + 15.707963i 18.849556 + 18.849556i
28.274334 + 28.274334i 31.415927 + 31.415927i
40.840704 + 40.840704i 43.982297 + 43.982297i
column 3 to 4
9.424778 + 9.424778i 12.566371 + 12.566371i
21.991149 + 21.991149i 25.132741 + 25.132741i
34.557519 + 34.557519i 37.699112 + 37.699112i
47.12389 + 47.12389i 50.265482 + 50.265482i
6.2831853i 12.566371i 18.849556i 25.132741i
31.415927i 37.699112i 43.982297i 50.265482i
56.548668i 62.831853i 69.115038i 75.398224i
81.681409i 87.964594i 94.24778i 100.53096i
1. + i 4. + 4.i 9. + 9.i 16. + 16.i
25. + 25.i 36. + 36.i 49. + 49.i 64. + 64.i
81. + 81.i 100. + 100.i 121. + 121.i 144. + 144.i
169. + 169.i 196. + 196.i 225. + 225.i 256. + 256.i
2.i 8.i 18.i 32.i
50.i 72.i 98.i 128.i
162.i 200.i 242.i 288.i
338.i 392.i 450.i 512.i
------------------------------------------
--- 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_OpDotStar"
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotStar/test_OpDotStar_copy.sci' already opened in Scilab.
Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotStar/test_OpDotStar_copy.sci' already opened in Scilab.
==> Generate the AST.
==> Generate C code in TMPDIR/main.c
/*SCI2C: ##########################################################
########
SCI2C: d0 = %pi
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: z0 = d0 + %i * d0
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: z2 = d2 + %i * d2
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d0.*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(d2.*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z0.*z2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C:
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.*d0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.*z0)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.*d2)
SCI2C: ##########################################################
########*/
/*SCI2C: ##########################################################
########
SCI2C: disp(z2.*z2)
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_OpDotStar() !
! !
! SCI2C: -------------------------------------------------------------!
! ----- !
! !
!*/ !
! !
!int main() !
! !
!{ !
! !
!/* !
! !
!** ----------------------------- !
! !
!** --- Variable Declaration. --- !
! !
!** ----------------------------- !
! !
!*/ !
! !
! !
! !
! double d0 = 3.1415927; !
! !
! !
! !
! double __temp1[1 * 2]; !
! !
! int ____temp1Size[2] = {1, 2};; !
! !
! !
! !
! double __temp2[1 * 3]; !
! !
! int ____temp2Size[2] = {1, 3};; !
! !
! !
! !
! double __temp3[1 * 4]; !
! !
! int ____temp3Size[2] = {1, 4};; !
! !
! !
! !
! double __temp4[1 * 2]; !
! !
! int ____temp4Size[2] = {1, 2};; !
! !
! !
! !
! double __temp5[1 * 3]; !
! !
! int ____temp5Size[2] = {1, 3};; !
! !
! !
! !
! double __temp6[1 * 4]; !
! !
! int ____temp6Size[2] = {1, 4};; !
! !
! !
! !
! double __temp7[2 * 4]; !
! !
! int ____temp7Size[2] = {2, 4};; !
! !
! !
! !
! double __temp8[1 * 2]; !
! !
! int ____temp8Size[2] = {1, 2};; !
! !
! !
! !
! double __temp9[1 * 3]; !
! !
! int ____temp9Size[2] = {1, 3};; !
! !
! !
! !
! double __temp10[1 * 4]; !
! !
! int ____temp10Size[2] = {1, 4};; !
! !
! !
! !
! double __temp11[3 * 4]; !
! !
! int ____temp11Size[2] = {3, 4};; !
! !
! !
! !
! double __temp12[1 * 2]; !
! !
! int ____temp12Size[2] = {1, 2};; !
! !
! !
! !
! double __temp13[1 * 3]; !
! !
! int ____temp13Size[2] = {1, 3};; !
! !
! !
! !
! double __temp14[1 * 4]; !
! !
! int ____temp14Size[2] = {1, 4};; !
! !
! !
! !
! double d2[4 * 4]; !
! !
! int __d2Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex __temp15; !
! !
! !
! !
! doubleComplex z0; !
! !
! !
! !
! doubleComplex __temp16[4 * 4]; !
! !
! int ____temp16Size[2] = {4, 4};; !
! !
! !
! !
! doubleComplex z2[4 * 4]; !
! !
! int __z2Size[2] = {4, 4};; !
! !
! !
! !
! double __temp17; !
! !
! !
! !
! double ans1; !
! !
! !
! !
! doubleComplex __temp18; !
! !
! !
! !
! double ans2; !
! !
! !
! !
! double __temp19[4 * 4]; !
! !
! int ____temp19Size[2] = {4, 4};; !
! !
! !
! !
! double ans3; !
! !
! !
! !
! doubleComplex __temp20[4 * 4]; !
! !
! int ____temp20Size[2] = {4, 4};; !
! !
! !
! !
! double ans4; !
! !
! !
! !
! double __temp21[4 * 4]; !
! !
! int ____temp21Size[2] = {4, 4};; !
! !
! !
! !
! double ans5; !
! !
! !
! !
! doubleComplex __temp22[4 * 4]; !
! !
! int ____temp22Size[2] = {4, 4};; !
! !
! !
! !
! double ans6; !
! !
! !
! !
! double __temp23[4 * 4]; !
! !
! int ____temp23Size[2] = {4, 4};; !
! !
! !
! !
! double ans7; !
! !
! !
! !
! doubleComplex __temp24[4 * 4]; !
! !
! int ____temp24Size[2] = {4, 4};; !
! !
! !
! !
! double ans8; !
! !
! !
! !
! doubleComplex __temp25; !
! !
! !
! !
! double ans9; !
! !
! !
! !
! doubleComplex __temp26; !
! !
! !
! !
! double ans10; !
! !
! !
! !
! doubleComplex __temp27[4 * 4]; !
! !
! int ____temp27Size[2] = {4, 4};; !
! !
! !
! !
! double ans11; !
! !
! !
! !
! doubleComplex __temp28[4 * 4]; !
! !
! int ____temp28Size[2] = {4, 4};; !
! !
! !
! !
! double ans12; !
! !
! !
! !
! doubleComplex __temp29[4 * 4]; !
! !
! int ____temp29Size[2] = {4, 4};; !
! !
! !
! !
! double ans13; !
! !
! !
! !
! doubleComplex __temp30[4 * 4]; !
! !
! int ____temp30Size[2] = {4, 4};; !
! !
! !
! !
! double ans14; !
! !
! !
! !
! doubleComplex __temp31[4 * 4]; !
! !
! int ____temp31Size[2] = {4, 4};; !
! !
! !
! !
! double ans15; !
! !
! !
! !
! doubleComplex __temp32[4 * 4]; !
! !
! int ____temp32Size[2] = {4, 4};; !
! !
! !
! !
! double ans16; !
! !
! !
! !
! !
! !
! !
! !
! !
! !
!/* !
! !
!** --------------------------------- !
! !
!** --- End Variable Declaration. --- !
! !
!** --------------------------------- !
! !
!*/ !
! !
!/* !
! !
!** --------------- !
! !
!** --- C code. --- !
! !
!** --------------- !
! !
!*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: d0 = %pi !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0 = d0OpEquald0(SCI2C_PI); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d0OpRcd2(1,2,__temp1); !
! !
! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); !
! !
! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); !
! !
! d0d0OpRcd2(5,6,__temp4); !
! !
! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); !
! !
! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); !
! !
! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)!
! ; !
! !
! d0d0OpRcd2(9,10,__temp8); !
! !
! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); !
! !
! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); !
! !
! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp!
! 11); !
! !
! d0d0OpRcd2(13,14,__temp12); !
! !
! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); !
! !
! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); !
! !
! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);!
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: z0 = d0 + %i * d0 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); !
! !
! z0 = d0z0OpPlusz0(d0,__temp15); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: z2 = d2 + %i * d2 !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); !
! !
! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp17 = d0d0OpDotStard0(d0,d0); !
! !
! ans1 = d0dispd0(__temp17); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp18 = d0z0OpDotStarz0(d0,z0); !
! !
! ans2 = z0dispd0(__temp18); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0d2OpDotStard2(d0,d2, __d2Size,__temp19); !
! !
! ans3 = d2dispd0(__temp19, ____temp19Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d0.*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d0z2OpDotStarz2(d0,z2, __z2Size,__temp20); !
! !
! ans4 = z2dispd0(__temp20, ____temp20Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d0OpDotStard2(d2, __d2Size,d0,__temp21); !
! !
! ans5 = d2dispd0(__temp21, ____temp21Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z0OpDotStarz2(d2, __d2Size,z0,__temp22); !
! !
! ans6 = z2dispd0(__temp22, ____temp22Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2d2OpDotStard2(d2, __d2Size,d2, __d2Size,__temp23); !
! !
! ans7 = d2dispd0(__temp23, ____temp23Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(d2.*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! d2z2OpDotStarz2(d2, __d2Size,z2, __z2Size,__temp24); !
! !
! ans8 = z2dispd0(__temp24, ____temp24Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp25 = z0d0OpDotStarz0(z0,d0); !
! !
! ans9 = z0dispd0(__temp25); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! __temp26 = z0z0OpDotStarz0(z0,z0); !
! !
! ans10 = z0dispd0(__temp26); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0d2OpDotStarz2(z0,d2, __d2Size,__temp27); !
! !
! ans11 = z2dispd0(__temp27, ____temp27Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z0.*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z0z2OpDotStarz2(z0,z2, __z2Size,__temp28); !
! !
! ans12 = z2dispd0(__temp28, ____temp28Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.*d0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d0OpDotStarz2(z2, __z2Size,d0,__temp29); !
! !
! ans13 = z2dispd0(__temp29, ____temp29Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.*z0) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z0OpDotStarz2(z2, __z2Size,z0,__temp30); !
! !
! ans14 = z2dispd0(__temp30, ____temp30Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.*d2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2d2OpDotStarz2(z2, __z2Size,d2, __d2Size,__temp31); !
! !
! ans15 = z2dispd0(__temp31, ____temp31Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: disp(z2.*z2) !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! z2z2OpDotStarz2(z2, __z2Size,z2, __z2Size,__temp32); !
! !
! ans16 = z2dispd0(__temp32, ____temp32Size); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: endfunction !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
! !
! !
! /* !
! !
! ** --------------------- !
! !
! ** --- Free Section. --- !
! !
! ** --------------------- !
! !
! */ !
! !
! /* !
! !
! ** ------------------------- !
! !
! ** --- End Free Section. --- !
! !
! ** ------------------------- !
! !
! */ !
! !
! !
! !
! return(0); !
! !
! !
! !
! /*SCI2C: ##########################################################!
! ######## !
! !
! SCI2C: !
! !
! SCI2C: ##########################################################!
! ########*/ !
! !
!} !
! !
! !
mclose(fd);