From ea8a50994bd3a260cd1656713acdc397a57fc680 Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Fri, 7 Jul 2017 02:30:25 +0530
Subject: SPEC Function

---
 2.3-1/jar/scilab_en_US_help.jar                     | Bin 90519 -> 90519 bytes
 2.3-1/src/c/string/disp/zdispa.c                    |   2 +-
 2.3-1/src/c/string/disp/zdisps.c                    |   2 +-
 .../testLinearAlgebra/testspec/testspec.sci         |   9 +++++++++
 4 files changed, 11 insertions(+), 2 deletions(-)
 create mode 100644 2.3-1/tests/unit_tests/testLinearAlgebra/testspec/testspec.sci

diff --git a/2.3-1/jar/scilab_en_US_help.jar b/2.3-1/jar/scilab_en_US_help.jar
index cf4ab6a4..459cfbb4 100644
Binary files a/2.3-1/jar/scilab_en_US_help.jar and b/2.3-1/jar/scilab_en_US_help.jar differ
diff --git a/2.3-1/src/c/string/disp/zdispa.c b/2.3-1/src/c/string/disp/zdispa.c
index bc71de4b..94b24e98 100644
--- a/2.3-1/src/c/string/disp/zdispa.c
+++ b/2.3-1/src/c/string/disp/zdispa.c
@@ -16,7 +16,7 @@ double zdispa (doubleComplex* in, int rows, int columns){
 	int i = 0,j = 0;
 	
 	for (i = 0; i < rows; ++i) {
-		for (j=0;j<columns;j++) printf("  %1.20lf + %1.20lfi  " ,zreals(in[i+j*rows]) ,zimags(in[i+j*rows])); 
+		for (j=0;j<columns;j++) printf("  %e + %ei  " ,zreals(in[i+j*rows]) ,zimags(in[i+j*rows])); 
 		printf("\n");
 	}
 	return 0;
diff --git a/2.3-1/src/c/string/disp/zdisps.c b/2.3-1/src/c/string/disp/zdisps.c
index c4ec137f..4a040cd7 100644
--- a/2.3-1/src/c/string/disp/zdisps.c
+++ b/2.3-1/src/c/string/disp/zdisps.c
@@ -14,6 +14,6 @@
 
 double zdisps (doubleComplex in) {	
 
-  printf("  %1.20f + %1.20fi  \n" ,zreals(in) ,zimags(in)); 
+  printf("  %e + %ei  \n" ,zreals(in) ,zimags(in)); 
   return 0;
 }
diff --git a/2.3-1/tests/unit_tests/testLinearAlgebra/testspec/testspec.sci b/2.3-1/tests/unit_tests/testLinearAlgebra/testspec/testspec.sci
new file mode 100644
index 00000000..6e9346d4
--- /dev/null
+++ b/2.3-1/tests/unit_tests/testLinearAlgebra/testspec/testspec.sci
@@ -0,0 +1,9 @@
+function testspec()
+    A = [1,2,3;4,5,6;7,8,9]
+    B = [10,11,12;13,14,15;16,17,18]
+    [R,diagevals,c,d] = spec(A,B)
+    disp(R)
+    disp(diagevals)
+    disp(c)
+    disp(d)
+endfunction
-- 
cgit