From 43592401ec4efefec61c236cd90b063a90a981b8 Mon Sep 17 00:00:00 2001
From: ukashanoor
Date: Wed, 28 Jun 2017 16:30:53 +0530
Subject: float matrix done and func disp

---
 macros/ASTManagement/AST_HandleFunCC.sci | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'macros/ASTManagement/AST_HandleFunCC.sci')

diff --git a/macros/ASTManagement/AST_HandleFunCC.sci b/macros/ASTManagement/AST_HandleFunCC.sci
index 12cb577..40155ba 100644
--- a/macros/ASTManagement/AST_HandleFunCC.sci
+++ b/macros/ASTManagement/AST_HandleFunCC.sci
@@ -32,6 +32,8 @@ function [FileInfo,SharedInfo] = AST_HandleFunCC(NCol,FileInfo,SharedInfo)
 // Contact: ukashanoor.iiitk@gmail.com
 // -----------------------------------------------------------------
 
+SCI2CNInArgCheck(argn(2),3,3)
+
 // ------------------------------
 // --- Check input arguments. ---
 // ------------------------------
@@ -156,6 +158,8 @@ com_type = 0;
 for i = 1:NInArg
 	if InArg(i).Type == 'z'
 		com_type = 1;
+	elseif InArg(i).Type == 'c'
+		com_type = 2;
 	end
 end
 	
@@ -168,7 +172,7 @@ if com_type == 0
 	OutArg(1).Dimension = 2;
 	OutArg(1).Value     = InArg(1).Value;
 	OutArg(1).FindLike  = InArg(1).FindLike;
-else
+elseif com_type == 1
 	PrintStringInfo('   Generating Out Arg names.',ReportFileName,'file','y');
 	OutArg(1).Type      = 'z';
 	OutArg(1).Size(1)   = string(NCol);
@@ -176,6 +180,14 @@ else
 	OutArg(1).Dimension = 2;
 	OutArg(1).Value     = InArg(1).Value;
 	OutArg(1).FindLike  = InArg(1).FindLike;
+else
+	PrintStringInfo('   Generating Out Arg names.',ReportFileName,'file','y');
+	OutArg(1).Type      = 'c';
+	OutArg(1).Size(1)   = string(NCol);
+	OutArg(1).Size(2)   = string(NRow);
+	OutArg(1).Dimension = 2;
+	OutArg(1).Value     = InArg(1).Value;
+	OutArg(1).FindLike  = InArg(1).FindLike;
 end
 
 //--- Check for output Argument in symbol table ---//
-- 
cgit