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