%%%******************   begin etract_name.m    *********************%%%
%%%%%%%%%%%%%%%%%%%%%%%%%  Info  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%   File Name       :     etract_name.m                           %%%
%%%   Type            :     m function file                         %%%
%%%   Parent          :     None                                    %%%
%%%   External Calls  :     None                                    %%% 
%%%   Internal Calls  :     None                                    %%%  
%%%   Date            :     September, 1, 1999                      %%%
%%%   Author          :     Hossam Eldin Mostafa Abdelbaki          %%%
%%%   Address         :     University of Central Florida,          %%%
%%%                   :     School of Computer Science              %%%
%%%  Email            :     ahossam@cs.ucf.edu                      %%% 
%%%  Home Page        :     http://www.cs.ucf.edu/~ahossam/         %%% 
%%%  Help             :     read the manual file (rnnsimv2.pdf)     %%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function nn = etract_name(Name)

for i = 1:length(Name)
   if(Name(i) ~= '.')
      nn(i) = Name(i);
   else 
      break;
   end
end

%%%******************   end etract_name.m    *********************%%%