function [ArgName,ArgScope] = AST_ExtractNameAndScope(ASTField)
// -----------------------------------------------------------------
// //NUT: add description here
//
// Input data:
// //NUT: add description here
//
// Output data:
// //NUT: add description here
//
// Status:
// 27-Dec-2007 -- Raffaele Nutricato: Author.
//
// Copyright 2007 Raffaele Nutricato.
// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------

// ------------------------------
// --- Check input arguments. ---
// ------------------------------
SCI2CNInArgCheck(argn(2),1,1);

// -----------------------
// --- Initialization. ---
// -----------------------
ArgName  = '';
ArgScope = '';

cnttag = 0;
cnttag = cnttag + 1; 
tagname(cnttag)   = 'Number_';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = 'String:';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = 'Variable:';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = 'Global:';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = 'Local:';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = 'Temp:';
taglength(cnttag) = length(tagname(cnttag));

cnttag = cnttag + 1; 
tagname(cnttag)   = '<empty>';
taglength(cnttag) = length(tagname(cnttag));

fieldlength  = length(ASTField);


//NUT: il seguente codice e' poco elegante.
if (SCI2Cstrncmps1size(tagname(1),ASTField))
   // Here we can have:
   // Number_x: it means default precision.
   // Number_s: it means float real type.
   // Number_d: it means double real type.
   // Number_c: it means float complex type.
   // Number_z: it means double complex type.
  
   // If ArgName is i, make it string
   if(mtlb_strcmp(ASTField,"Number_x: i") == %T)
      ArgName = stripblanks(part(ASTField,taglength(1)+3:fieldlength));
      ArgScope = 'String';
   else   
      ArgName = stripblanks(part(ASTField,taglength(1)+3:fieldlength));
      ArgScope = stripblanks(part(ASTField,1:taglength(1)+1));
   end
   
elseif (SCI2Cstrncmps1size(tagname(2),ASTField))
   ArgName = stripblanks(part(ASTField,taglength(2)+1:fieldlength));
   ArgName = part(ArgName,2:length(ArgName)-1); // I remove also the first and the last " 
   ArgScope = 'String';
  
elseif (SCI2Cstrncmps1size(tagname(3),ASTField))
   ArgName  = stripblanks(part(ASTField,taglength(3)+1:fieldlength));
   ArgScope = 'Variable';
   
elseif (SCI2Cstrncmps1size(tagname(4),ASTField))
   ArgName  = stripblanks(part(ASTField,taglength(4)+1:fieldlength));
   ArgScope = 'Global';
   
elseif (SCI2Cstrncmps1size(tagname(5),ASTField))
   ArgName  = stripblanks(part(ASTField,taglength(5)+1:fieldlength));
   ArgScope = 'Local';
   
elseif (SCI2Cstrncmps1size(tagname(6),ASTField))
   ArgName  = stripblanks(part(ASTField,taglength(6)+1:fieldlength));
   ArgScope = 'Temp';
   
elseif (SCI2Cstrncmps1size(tagname(7),ASTField))
   ArgName  = '<empty>';
   ArgScope = 'None';
else
   error(9999, 'Argument specifier not found in the AST field: '+ASTField);
end

endfunction