// // 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_OpDotBackSlash.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- 1. 1. 3.1415927 1.5707963 1.0471976 0.7853982 0.6283185 0.5235988 0.4487990 0.3926991 0.3490659 0.3141593 0.2855993 0.2617994 0.2416610 0.2243995 0.2094395 0.1963495 3.1415927 1.5707963 1.0471976 0.7853982 0.6283185 0.5235988 0.4487990 0.3926991 0.3490659 0.3141593 0.2855993 0.2617994 0.2416610 0.2243995 0.2094395 0.1963495 0.3183099 0.6366198 0.9549297 1.2732395 1.5915494 1.9098593 2.2281692 2.5464791 2.864789 3.1830989 3.5014087 3.8197186 4.1380285 4.4563384 4.7746483 5.0929582 0.3183099 0.6366198 0.9549297 1.2732395 1.5915494 1.9098593 2.2281692 2.5464791 2.864789 3.1830989 3.5014087 3.8197186 4.1380285 4.4563384 4.7746483 5.0929582 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. column 1 to 2 3.1415927 + 3.1415927i 1.5707963 + 1.5707963i 0.6283185 + 0.6283185i 0.5235988 + 0.5235988i 0.3490659 + 0.3490659i 0.3141593 + 0.3141593i 0.2416610 + 0.2416610i 0.2243995 + 0.2243995i column 3 to 4 1.0471976 + 1.0471976i 0.7853982 + 0.7853982i 0.4487990 + 0.4487990i 0.3926991 + 0.3926991i 0.2855993 + 0.2855993i 0.2617994 + 0.2617994i 0.2094395 + 0.2094395i 0.1963495 + 0.1963495i column 1 to 2 1.5707963 - 1.5707963i 0.7853982 - 0.7853982i 0.3141593 - 0.3141593i 0.2617994 - 0.2617994i 0.1745329 - 0.1745329i 0.1570796 - 0.1570796i 0.1208305 - 0.1208305i 0.1121997 - 0.1121997i column 3 to 4 0.5235988 - 0.5235988i 0.3926991 - 0.3926991i 0.2243995 - 0.2243995i 0.1963495 - 0.1963495i 0.1427997 - 0.1427997i 0.1308997 - 0.1308997i 0.1047198 - 0.1047198i 0.0981748 - 0.0981748i column 1 to 2 0.3183099 + 0.3183099i 0.6366198 + 0.6366198i 1.5915494 + 1.5915494i 1.9098593 + 1.9098593i 2.864789 + 2.864789i 3.1830989 + 3.1830989i 4.1380285 + 4.1380285i 4.4563384 + 4.4563384i column 3 to 4 0.9549297 + 0.9549297i 1.2732395 + 1.2732395i 2.2281692 + 2.2281692i 2.5464791 + 2.5464791i 3.5014087 + 3.5014087i 3.8197186 + 3.8197186i 4.7746483 + 4.7746483i 5.0929582 + 5.0929582i column 1 to 2 0.1591549 - 0.1591549i 0.3183099 - 0.3183099i 0.7957747 - 0.7957747i 0.9549297 - 0.9549297i 1.4323945 - 1.4323945i 1.5915494 - 1.5915494i 2.0690143 - 2.0690143i 2.2281692 - 2.2281692i column 3 to 4 0.4774648 - 0.4774648i 0.6366198 - 0.6366198i 1.1140846 - 1.1140846i 1.2732395 - 1.2732395i 1.7507044 - 1.7507044i 1.9098593 - 1.9098593i 2.3873241 - 2.3873241i 2.5464791 - 2.5464791i 1. + i 0.5 - 0.5i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 1. + i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i ------------------------------------------ --- 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_OpDotBackSlash" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotBackSlash/test_OpDotBackSlash_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotBackSlash/test_OpDotBackSlash_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(z0.\z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2.\d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2.\z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0.\d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0.\z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2.\d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2.\z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2.\z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2.\d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0.\z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0.\d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0.\z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0.\d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2.\z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2.\d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: endfunction SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ ==> Copying sources needed in TMPDIR/src/c/ ==> Copying headers needed in TMPDIR/includes/ ==> Copying interfaces needed in TMPDIR/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_OpDotBackSlash() ! ! ! ! SCI2C: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !SCI2Cint main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double d0 = 3.1415927; ! ! ! ! ! ! ! ! double __temp1[1 * 2]; ! ! ! ! SCI2Cint ____temp1Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp2[1 * 3]; ! ! ! ! SCI2Cint ____temp2Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp3[1 * 4]; ! ! ! ! SCI2Cint ____temp3Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp4[1 * 2]; ! ! ! ! SCI2Cint ____temp4Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp5[1 * 3]; ! ! ! ! SCI2Cint ____temp5Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp6[1 * 4]; ! ! ! ! SCI2Cint ____temp6Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp7[2 * 4]; ! ! ! ! SCI2Cint ____temp7Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double __temp8[1 * 2]; ! ! ! ! SCI2Cint ____temp8Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp9[1 * 3]; ! ! ! ! SCI2Cint ____temp9Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp10[1 * 4]; ! ! ! ! SCI2Cint ____temp10Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp11[3 * 4]; ! ! ! ! SCI2Cint ____temp11Size[2] = {3, 4};; ! ! ! ! ! ! ! ! double __temp12[1 * 2]; ! ! ! ! SCI2Cint ____temp12Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp13[1 * 3]; ! ! ! ! SCI2Cint ____temp13Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp14[1 * 4]; ! ! ! ! SCI2Cint ____temp14Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double d2[4 * 4]; ! ! ! ! SCI2Cint __d2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp15; ! ! ! ! ! ! ! ! doubleComplex z0; ! ! ! ! ! ! ! ! doubleComplex __temp16[4 * 4]; ! ! ! ! SCI2Cint ____temp16Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex z2[4 * 4]; ! ! ! ! SCI2Cint __z2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double __temp17; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! doubleComplex __temp18; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! double __temp19[4 * 4]; ! ! ! ! SCI2Cint ____temp19Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! doubleComplex __temp20[4 * 4]; ! ! ! ! SCI2Cint ____temp20Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! double __temp21[4 * 4]; ! ! ! ! SCI2Cint ____temp21Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans5; ! ! ! ! ! ! ! ! doubleComplex __temp22[4 * 4]; ! ! ! ! SCI2Cint ____temp22Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans6; ! ! ! ! ! ! ! ! double __temp23[4 * 4]; ! ! ! ! SCI2Cint ____temp23Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! doubleComplex __temp24[4 * 4]; ! ! ! ! SCI2Cint ____temp24Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! doubleComplex __temp25[4 * 4]; ! ! ! ! SCI2Cint ____temp25Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! doubleComplex __temp26[4 * 4]; ! ! ! ! SCI2Cint ____temp26Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans10; ! ! ! ! ! ! ! ! doubleComplex __temp27[4 * 4]; ! ! ! ! SCI2Cint ____temp27Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans11; ! ! ! ! ! ! ! ! doubleComplex __temp28[4 * 4]; ! ! ! ! SCI2Cint ____temp28Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans12; ! ! ! ! ! ! ! ! doubleComplex __temp29; ! ! ! ! ! ! ! ! double ans13; ! ! ! ! ! ! ! ! doubleComplex __temp30; ! ! ! ! ! ! ! ! double ans14; ! ! ! ! ! ! ! ! doubleComplex __temp31[4 * 4]; ! ! ! ! SCI2Cint ____temp31Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans15; ! ! ! ! ! ! ! ! doubleComplex __temp32[4 * 4]; ! ! ! ! SCI2Cint ____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 = d0d0OpDotBackSlashd0(d0,d0); ! ! ! ! ans1 = d0dispd0(__temp17); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0.\z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp18 = z0z0OpDotBackSlashz0(z0,z0); ! ! ! ! ans2 = z0dispd0(__temp18); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2.\d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0OpDotBackSlashd2(d2, __d2Size,d0,__temp19); ! ! ! ! ans3 = d2dispd0(__temp19, ____temp19Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2.\z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z0OpDotBackSlashz2(z2, __z2Size,z0,__temp20); ! ! ! ! ans4 = z2dispd0(__temp20, ____temp20Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0.\d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d2OpDotBackSlashd2(d0,d2, __d2Size,__temp21); ! ! ! ! ans5 = d2dispd0(__temp21, ____temp21Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0.\z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0z2OpDotBackSlashz2(z0,z2, __z2Size,__temp22); ! ! ! ! ans6 = z2dispd0(__temp22, ____temp22Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2.\d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d2OpDotBackSlashd2(d2, __d2Size,d2, __d2Size,__temp23); ! ! ! ! ans7 = d2dispd0(__temp23, ____temp23Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2.\z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z2OpDotBackSlashz2(z2, __z2Size,z2, __z2Size,__temp24); ! ! ! ! ans8 = z2dispd0(__temp24, ____temp24Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2.\z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z0OpDotBackSlashz2(d2, __d2Size,z0,__temp25); ! ! ! ! ans9 = z2dispd0(__temp25, ____temp25Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2.\d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0OpDotBackSlashz2(z2, __z2Size,d0,__temp26); ! ! ! ! ans10 = z2dispd0(__temp26, ____temp26Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0.\z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z2OpDotBackSlashz2(d0,z2, __z2Size,__temp27); ! ! ! ! ans11 = z2dispd0(__temp27, ____temp27Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0.\d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d2OpDotBackSlashz2(z0,d2, __d2Size,__temp28); ! ! ! ! ans12 = z2dispd0(__temp28, ____temp28Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0.\z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp29 = d0z0OpDotBackSlashz0(d0,z0); ! ! ! ! ans13 = z0dispd0(__temp29); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0.\d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp30 = z0d0OpDotBackSlashz0(z0,d0); ! ! ! ! ans14 = z0dispd0(__temp30); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2.\z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpDotBackSlashz2(d2, __d2Size,z2, __z2Size,__temp31); ! ! ! ! ans15 = z2dispd0(__temp31, ____temp31Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2.\d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d2OpDotBackSlashz2(z2, __z2Size,d2, __d2Size,__temp32); ! ! ! ! ans16 = z2dispd0(__temp32, ____temp32Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);