// // 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_OpSlash.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- 1. 0.5 - 0.5i 1. + i 1. 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 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 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 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 Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). - 1.2042772 0. 0. 0.2617994 - 0.4450590 0. 0. 0.1308997 0.3141593 0. 0. 3.054D-17 1.0733775 0. 0. - 0.1308997 Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). - 0.6021386 + 0.6021386i 0 0 0.1308997 - 0.1308997i - 0.2225295 + 0.2225295i 0 0 0.0654498 - 0.0654498i 0.1570796 - 0.1570796i 0 0 2.159D-17 - 2.699D-17i 0.5366887 - 0.5366887i 0 0 - 0.0654498 + 0.0654498i Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). - 1.2042772 - 1.2042772i 0 0 0.2617994 + 0.2617994i - 0.4450590 - 0.4450590i 0 0 0.1308997 + 0.1308997i 0.3141593 + 0.3141593i 0 0 3.054D-17 + 3.054D-17i 1.0733775 + 1.0733775i 0 0 - 0.1308997 - 0.1308997i Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). - 1.2042772 + 2.553D-16i 0 0 0.2617994 - 4.306D-17i - 0.4450590 - 1.702D-16i 0 0 0.1308997 + 3.903D-17i 0.3141593 + 1.064D-16i 0 0 3.239D-17 - 2.765D-17i 1.0733775 + 6.382D-17i 0 0 - 0.1308997 - 2.021D-17i Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). 1. 0. 0. 6.107D-17 0.6666667 0. 0. 0.3333333 0.3333333 0. 0. 0.6666667 - 2.522D-15 0. 0. 1. Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). 0.5 - 0.5i 0 0 - 2.159D-17 0.3333333 - 0.3333333i 0 0 0.1666667 - 0.1666667i 0.1666667 - 0.1666667i 0 0 0.3333333 - 0.3333333i - 6.421D-17 + 6.838D-16i 0 0 0.5 - 0.5i Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). 1. + i 0 0 3.054D-17 + 3.054D-17i 0.6666667 + 0.6666667i 0 0 0.3333333 + 0.3333333i 0.3333333 + 0.3333333i 0 0 0.6666667 + 0.6666667i - 2.942D-15 - 2.942D-15i 0 0 1. + i Warning : matrix is close to singular or badly scaled. rcond = 0.0000D+00 computing least squares solution. (see lsq). 1. + 1.064D-16i 0 0 4.318D-17 - 1.886D-17i 0.6666667 + 7.978D-16i 0 0 0.3333333 - 1.702D-16i 0.3333333 - 1.143D-16i 0 0 0.6666667 + 5.986D-17i - 1.456D-15 + 1.607D-15i 0 0 1. - 3.281D-16i 1. - 2.967D-17 - i i 1. - 2.967D-17i ------------------------------------------ --- 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_OpSlash" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_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(z0/d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0/z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2/d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2/z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2/d0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2/z0) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0/d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d0/z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0/d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z0/z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2/d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(d2/z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2/d2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(z2/z2) SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 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_OpSlash() ! ! ! ! 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; ! ! ! ! ! ! ! ! doubleComplex __temp19; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! doubleComplex __temp20; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! double __temp21[4 * 4]; ! ! ! ! int ____temp21Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans5; ! ! ! ! ! ! ! ! doubleComplex __temp22[4 * 4]; ! ! ! ! int ____temp22Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans6; ! ! ! ! ! ! ! ! doubleComplex __temp23[4 * 4]; ! ! ! ! int ____temp23Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans7; ! ! ! ! ! ! ! ! doubleComplex __temp24[4 * 4]; ! ! ! ! int ____temp24Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans8; ! ! ! ! ! ! ! ! double __temp25[4 * 4]; ! ! ! ! int ____temp25Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans9; ! ! ! ! ! ! ! ! doubleComplex __temp26[4 * 4]; ! ! ! ! int ____temp26Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans10; ! ! ! ! ! ! ! ! doubleComplex __temp27[4 * 4]; ! ! ! ! int ____temp27Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans11; ! ! ! ! ! ! ! ! doubleComplex __temp28[4 * 4]; ! ! ! ! int ____temp28Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans12; ! ! ! ! ! ! ! ! double __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; ! ! ! ! ! ! ! ! double __temp33[1 * 2]; ! ! ! ! int ____temp33Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp34[1 * 3]; ! ! ! ! int ____temp34Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp35[1 * 2]; ! ! ! ! int ____temp35Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp36[1 * 3]; ! ! ! ! int ____temp36Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp37; ! ! ! ! ! ! ! ! double ans17; ! ! ! ! ! ! ! ! double __temp38[1 * 2]; ! ! ! ! int ____temp38Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp39[1 * 3]; ! ! ! ! int ____temp39Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp40[1 * 2]; ! ! ! ! int ____temp40Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp41[1 * 3]; ! ! ! ! int ____temp41Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp42[1 * 3]; ! ! ! ! int ____temp42Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp43; ! ! ! ! ! ! ! ! double ans18; ! ! ! ! ! ! ! ! double __temp44[1 * 2]; ! ! ! ! int ____temp44Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp45[1 * 3]; ! ! ! ! int ____temp45Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp46[1 * 3]; ! ! ! ! int ____temp46Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp47[1 * 2]; ! ! ! ! int ____temp47Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp48[1 * 3]; ! ! ! ! int ____temp48Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp49; ! ! ! ! ! ! ! ! double ans19; ! ! ! ! ! ! ! ! double __temp50[1 * 2]; ! ! ! ! int ____temp50Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp51[1 * 3]; ! ! ! ! int ____temp51Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp52[1 * 3]; ! ! ! ! int ____temp52Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp53[1 * 2]; ! ! ! ! int ____temp53Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp54[1 * 3]; ! ! ! ! int ____temp54Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp55[1 * 3]; ! ! ! ! int ____temp55Size[2] = {1, 3};; ! ! ! ! ! ! ! ! doubleComplex __temp56; ! ! ! ! ! ! ! ! double ans20; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- 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 = d0d0OpSlashd0(d0,d0); ! ! ! ! ans1 = d0dispd0(__temp17); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0/z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp18 = d0z0OpSlashz0(d0,z0); ! ! ! ! ans2 = z0dispd0(__temp18); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0/d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp19 = z0d0OpSlashz0(z0,d0); ! ! ! ! ans3 = z0dispd0(__temp19); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0/z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! __temp20 = z0z0OpSlashz0(z0,z0); ! ! ! ! ans4 = z0dispd0(__temp20); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2/d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d0OpSlashd2(d2, __d2Size,d0,__temp21); ! ! ! ! ans5 = d2dispd0(__temp21, ____temp21Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2/z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z0OpSlashz2(d2, __d2Size,z0,__temp22); ! ! ! ! ans6 = z2dispd0(__temp22, ____temp22Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2/d0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d0OpSlashz2(z2, __z2Size,d0,__temp23); ! ! ! ! ans7 = z2dispd0(__temp23, ____temp23Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2/z0) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z0OpSlashz2(z2, __z2Size,z0,__temp24); ! ! ! ! ans8 = z2dispd0(__temp24, ____temp24Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0/d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d2OpSlashd2(d0,d2, __d2Size,__temp25); ! ! ! ! ans9 = d2dispd0(__temp25, ____temp25Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d0/z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0z2OpSlashz2(d0,z2, __z2Size,__temp26); ! ! ! ! ans10 = z2dispd0(__temp26, ____temp26Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0/d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0d2OpSlashz2(z0,d2, __d2Size,__temp27); ! ! ! ! ans11 = z2dispd0(__temp27, ____temp27Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z0/z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z0z2OpSlashz2(z0,z2, __z2Size,__temp28); ! ! ! ! ans12 = z2dispd0(__temp28, ____temp28Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2/d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2d2OpSlashd2(d2, __d2Size,d2, __d2Size,__temp29); ! ! ! ! ans13 = d2dispd0(__temp29, ____temp29Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(d2/z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d2z2OpSlashz2(d2, __d2Size,z2, __z2Size,__temp30); ! ! ! ! ans14 = z2dispd0(__temp30, ____temp30Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2/d2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2d2OpSlashz2(z2, __z2Size,d2, __d2Size,__temp31); ! ! ! ! ans15 = z2dispd0(__temp31, ____temp31Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(z2/z2) ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! z2z2OpSlashz2(z2, __z2Size,z2, __z2Size,__temp32); ! ! ! ! ans16 = z2dispd0(__temp32, ____temp32Size); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp33); ! ! ! ! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); ! ! ! ! d0d0OpRcd2(1,2,__temp35); ! ! ! ! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); ! ! ! ! __temp37 = d2d2OpSlashd0(__temp34, ____temp34Size,__temp36, ____t! ! emp36Size); ! ! ! ! ans17 = d0dispd0(__temp37); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp38); ! ! ! ! d2d0OpRcd2(__temp38, ____temp38Size,3,__temp39); ! ! ! ! d0d0OpRcd2(1,2,__temp40); ! ! ! ! d2d0OpRcd2(__temp40, ____temp40Size,3,__temp41); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp41, ____temp41Size,__temp42)! ! ; ! ! ! ! __temp43 = d2z2OpSlashz0(__temp39, ____temp39Size,__temp42, ____t! ! emp42Size); ! ! ! ! ans18 = z0dispd0(__temp43); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp44); ! ! ! ! d2d0OpRcd2(__temp44, ____temp44Size,3,__temp45); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp45, ____temp45Size,__temp46)! ! ; ! ! ! ! d0d0OpRcd2(1,2,__temp47); ! ! ! ! d2d0OpRcd2(__temp47, ____temp47Size,3,__temp48); ! ! ! ! __temp49 = z2d2OpSlashz0(__temp46, ____temp46Size,__temp48, ____t! ! emp48Size); ! ! ! ! ans19 = z0dispd0(__temp49); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0OpRcd2(1,2,__temp50); ! ! ! ! d2d0OpRcd2(__temp50, ____temp50Size,3,__temp51); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp51, ____temp51Size,__temp52)! ! ; ! ! ! ! d0d0OpRcd2(1,2,__temp53); ! ! ! ! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); ! ! ! ! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)! ! ; ! ! ! ! __temp56 = z2z2OpSlashz0(__temp52, ____temp52Size,__temp55, ____t! ! emp55Size); ! ! ! ! ans20 = z0dispd0(__temp56); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: endfunction ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /* ! ! ! ! ** --------------------- ! ! ! ! ** --- Free Section. --- ! ! ! ! ** --------------------- ! ! ! ! */ ! ! ! ! /* ! ! ! ! ** ------------------------- ! ! ! ! ** --- End Free Section. --- ! ! ! ! ** ------------------------- ! ! ! ! */ ! ! ! ! ! ! ! ! return(0); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! !} ! ! ! ! ! mclose(fd);