1 files changed, 30 insertions, 0 deletions
diff --git a/macros/GeneralFunctions/SCI2Cisnum.sci b/macros/GeneralFunctions/SCI2Cisnum.sci
new file mode 100644
index 00000000..50a5c14e
--- /dev/null
+++ b/macros/GeneralFunctions/SCI2Cisnum.sci
@@ -0,0 +1,30 @@
+function outbool = SCI2Cisnum(instring)
+// function outbool = SCI2Cisnum(instring)
+// -----------------------------------------------------------------
+// It fixes the bug of isnum. isnum('d') -> %T!!!
+//
+// Input data:
+// instring: string to analyze.
+//
+// Output data:
+// outbool: %T if instring is a number.
+//
+// Status:
+// 12-Apr-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),1,1);
+
+instring = convstr(instring,'l');
+outbool   = isnum(instring);
+firstchar = part(instring,1:1);
+if (firstchar == 'd' | firstchar == 'e')
+   outbool = %F;
+end
+endfunction