summaryrefslogtreecommitdiff
path: root/macros/GeneralFunctions/IsNanSize.sci
diff options
context:
space:
mode:
Diffstat (limited to 'macros/GeneralFunctions/IsNanSize.sci')
-rw-r--r--macros/GeneralFunctions/IsNanSize.sci78
1 files changed, 39 insertions, 39 deletions
diff --git a/macros/GeneralFunctions/IsNanSize.sci b/macros/GeneralFunctions/IsNanSize.sci
index 486f6fcc..9a129829 100644
--- a/macros/GeneralFunctions/IsNanSize.sci
+++ b/macros/GeneralFunctions/IsNanSize.sci
@@ -1,39 +1,39 @@
-function outbool = IsNanSize(instring)
-// function outbool = IsNanSize(instring)
-// -----------------------------------------------------------------
-// #RNU_RES_B
-// It searches for __SCI2CNANSIZE string in the string which specifies the
-// size of the argument. Useful to find if a given size contains
-// a nan value. In this case an error is issued.
-// IsNanSize = '__SCI2CNANSIZE' -> True
-// IsNanSize = 'c*__SCI2CNANSIZE' -> True
-// IsNanSize = 'c+b' -> False
-// #RNU_RES_E
-//
-// Input data:
-// instring: string to analyze.
-//
-// Output data:
-// outbool: %T if nan string has been found.
-//
-// Status:
-// 11-Feb-2008 -- Nutricato Raffaele: Author.
-//
-// Copyright 2008 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),1,1);
-
-
-outbool = %F;
-indexval = strindex(instring,'__SCI2CNANSIZE');
-
-if(length(indexval)>=1)
- outbool = %T;
-end
-
-endfunction
+function outbool = IsNanSize(instring)
+// function outbool = IsNanSize(instring)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// It searches for __SCI2CNANSIZE string in the string which specifies the
+// size of the argument. Useful to find if a given size contains
+// a nan value. In this case an error is issued.
+// IsNanSize = '__SCI2CNANSIZE' -> True
+// IsNanSize = 'c*__SCI2CNANSIZE' -> True
+// IsNanSize = 'c+b' -> False
+// #RNU_RES_E
+//
+// Input data:
+// instring: string to analyze.
+//
+// Output data:
+// outbool: %T if nan string has been found.
+//
+// Status:
+// 11-Feb-2008 -- Nutricato Raffaele: Author.
+//
+// Copyright 2008 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),1,1);
+
+
+outbool = %F;
+indexval = strindex(instring,'__SCI2CNANSIZE');
+
+if(length(indexval)>=1)
+ outbool = %T;
+end
+
+endfunction