1 files changed, 54 insertions, 54 deletions
diff --git a/macros/FunctionList/FL_GetFunctionClass.sci b/macros/FunctionList/FL_GetFunctionClass.sci
index 09fad929..a872e423 100644
--- a/macros/FunctionList/FL_GetFunctionClass.sci
+++ b/macros/FunctionList/FL_GetFunctionClass.sci
@@ -1,54 +1,54 @@
-function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
-// function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
-// -----------------------------------------------------------------
-// //NUT: add description here
-//
-// Input data:
-// //NUT: add description here
-//
-// Output data:
-// //NUT: add description here
-//
-// Status:
-// 11-Jul-2007 -- Nutricato Raffaele: Author.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
-
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),3,3);
-
-// ---------------------------------------
-// --- Read the class of the function. ---
-// ---------------------------------------
-// --- Open the .sci file (read only). ---
-inannfid = SCI2COpenFileRead(FunFileName);
-
-FoundClass = 0;
-if (meof(inannfid) == 0)
-   check_string = stripblanks(mgetl(inannfid,1));
-   if (~isempty(check_string))
-      if (SCI2Cstrncmps1size(SCI2CClassSpecifier,check_string))
-         SCI2CClassName = part(check_string,length(SCI2CClassSpecifier)+1:length(check_string));
-         // #RNU_RES_B
-         PrintStringInfo('   Function belongs to class: '+SCI2CClassName+'.',ReportFileName,'file','y');
-         // #RNU_RES_E
-         FoundClass = 1;
-      else
-         error(9999, 'Could not find ""'+SCI2CClassSpecifier+'"" in '+FunFileName+'.');
-      end
-   end
-end
-mclose(inannfid);
-if (FoundClass == 0)
-   error(9999, 'Could not find ""'+SCI2CClassSpecifier+'"" specifier.');
-end
-
-// -------------------------------------------
-// --- End read the class of the function. ---
-// -------------------------------------------
-endfunction
-   
-\ No newline at end of file
+function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
+// function SCI2CClassName = FL_GetFunctionClass(FunFileName,SCI2CClassSpecifier,ReportFileName)
+// -----------------------------------------------------------------
+// //NUT: add description here
+//
+// Input data:
+// //NUT: add description here
+//
+// Output data:
+// //NUT: add description here
+//
+// Status:
+// 11-Jul-2007 -- Nutricato Raffaele: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),3,3);
+
+// ---------------------------------------
+// --- Read the class of the function. ---
+// ---------------------------------------
+// --- Open the .sci file (read only). ---
+inannfid = SCI2COpenFileRead(FunFileName);
+
+FoundClass = 0;
+if (meof(inannfid) == 0)
+   check_string = stripblanks(mgetl(inannfid,1));
+   if (~isempty(check_string))
+      if (SCI2Cstrncmps1size(SCI2CClassSpecifier,check_string))
+         SCI2CClassName = part(check_string,length(SCI2CClassSpecifier)+1:length(check_string));
+         // #RNU_RES_B
+         PrintStringInfo('   Function belongs to class: '+SCI2CClassName+'.',ReportFileName,'file','y');
+         // #RNU_RES_E
+         FoundClass = 1;
+      else
+         error(9999, 'Could not find ""'+SCI2CClassSpecifier+'"" in '+FunFileName+'.');
+      end
+   end
+end
+mclose(inannfid);
+if (FoundClass == 0)
+   error(9999, 'Could not find ""'+SCI2CClassSpecifier+'"" specifier.');
+end
+
+// -------------------------------------------
+// --- End read the class of the function. ---
+// -------------------------------------------
+endfunction
+