function [ErrorCode] = AnalyseComputationalEnviroment(DataInput)

% DESCRIPTION

% This function is used to check the user computational request.
% If no error happen the function return 0.


% INPUT/OUTPUT description:
%
% DataInput is the strcture option_.parallel, with the follow fields:
%
%           Local         Define the computation place: 1 is on local machine, 0 remote
%           PcName        Intuitive: contain the computer name.
%           NumCPU        Intuitive: contain the CPU number.
%             user        Intuitive: contain the use name for the PcName.
%           passwd        Intuitive: contain the password for the user name in PcName.
%      RemoteDrive        Drive used for Local/Remote computation (data exchange, etc) must be contain 'RemoteFolder'.
%     RemoteFolder        Folder in RemoteDrive used for Local/Remote computation.
%
%   This information is typed by the user using the *.mod file, 
%   the goal of this function is to check if it correct.
%
%
% The variable ErrorCode is initialized at 0. If there are non problems with 
% Local, PcName connections,... in general with parallel software execution, 
% the ErrorCode is unchanged, in the others cases 1, 2 , ... The values
% table is below.
%
%
%   Table for ErrorCode Values.
%
%   ErrorCode -> 0  Initial Value -> No Error Detected!!!
%   ErrorCode -> > 1  When an error happens. The value 1, 2, 3... are
%   used to specify the kind of error.
%
%   Value 1:    The variable 'Local' has a bad value!
%
%   Value 2:    The variable 'NumCPU' has a bad value. Parallel Dynare
%               require an input data like [s:d] with s<=d, in this case we
%               have s>d!
%         2.1   The user asks to use more CPU of those available.
%         2.2   There are CPU not used!
%
%   Value 3:    The remote computer is unreachable!!!
%
%   Value 4:    The fields user name and/or password are/is empty!
%
%   Value 5:    Remote Drive and/or Remote Folder not exist!
%
%   Value 6:    It is impossible write/read file on remote computer.
%
%   Value 7:    The valu user and/or passwd are incorret or the user have
%               no permission to execute a Matlab section.
%
%
%
%
% Then at the point call of this function it is possible react in a best way, in accord
% with the ErrorCode.

% Copyright (C) 2009-2010 Dynare Team
%
% This file is part of Dynare.
%
% Dynare is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.

ErrorCode=0;


% The function is composed by two main blocks, determined by the 'Local'
% variable. 

if ((DataInput.Local == 0) |(DataInput.Local == 1))
    % Continue it is Ok!
else
    ErrorCode=1;
    return

end


%%%%%%%%%%  Local Machine   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% In this case we need to check only the variable 'NumCPU'. 

% We run the parallel code on local computer, so the others fields are automatically 
% fixed by Dynare. Then the user can also fill them with wrong values.

if (DataInput.Local == 1)
    
    yn=isempty(DataInput.NumCPU);
    
    if yn==1
        ErrorCode=2;
        return
    end
    
    % We look for the information on local computer hardware.
    
    si0=[];
    de0=[];
    
    [si0 de0]=system(['psinfo \\']);
    
    RealNumCPU=-1;
    RealNumCPU=GiveCPUnumber(de0);
    
    % Trasforming the input data provided in a form [n1:n2] in a single numerical
    % value.   
    
    DataInput.NumCPU=length(DataInput.NumCPU);
    
    if DataInput.NumCPU  == RealNumCPU
        % It is Ok!
    end
    
    if DataInput.NumCPU > RealNumCPU
        ErrorCode=2.1;
        
    end
    if DataInput.NumCPU < RealNumCPU
        ErrorCode=2.2;
    end    
end   

%%%%%%%%%%  Remote Machine   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% In this case we need more sophisticated check. 

 
if (DataInput.Local == 0)
    
   si1=[];
   de1=[]; 
    
  [si1 de1]=system(['ping ', DataInput.PcName]);
    
    if si1==1 
        % It is impossiblie to be connected to the
        % remote computer.
        
        ErrorCode=3;
        return;
    end
    
    % The Local Machine can be connetted with Remote Computer.
    
    % Now we verify if user name and password are correct and if remote
    % drive and remote folder exist on the remote computer and it is
    % possible to exchange data with them.
   
     
    if (isempty(DataInput.user)) || (isempty(DataInput.passwd))
      
      % The fields user name and/or password are/is empty!
      
      ErrorCode=4;
      return
    
    end
    
   
    % Now we very if RemoteDrive and/or RemoteFolder exist on remote
    % computer
    
    StartPwd=pwd;
    
    try
        cd(['\\',DataInput.PcName,'\',DataInput.RemoteDrive,'$\',DataInput.RemoteFolder]);
    catch
       
        cd ([StartPwd]);
        disp 'Remote Drive and/or Remote Folder not exist!';
        
        ErrorCode=5;
        return
    
    end

   cd ([StartPwd]);
    
 
   % Now we verify if it possible to exchange data with the remote
   % computer:
    
    
    Status=copyfile('Tracing.m', ['\\',DataInput.PcName,'\',DataInput.RemoteDrive,'$\',DataInput.RemoteFolder]);
    
    if Status==1   
        % Remote Drive/Folder exist on Remote computer and
        % it is possible to exchange data with him.
    else
        
        ErrorCode=6;
        return;
    end
   
    
   % Now we verify if it is possible execute a matlab section on remote
   % machine when the user is .user with password .passwd
   
    si2=[];
    de2=[];
   
    [si2 de2]=system(['start /B /WAIT psexec \\',DataInput.PcName,' -e -u ',DataInput.user,' -p ',DataInput.passwd,' -W ',DataInput.RemoteDrive,':\',DataInput.RemoteFolder, ' -low  matlab -nosplash -nodesktop -minimize -r Tracing']);
     
    NoError='error code 0';
    
    StrError= findstr(NoError,de2);
    
   
    if isempty (StrError)
      
       % Bad user and/or passwd!
        ErrorCode=7;
        return;
       
    else 
        
        % No error it is possible execute a matlab section on remote
        % machine when the user is .user with password .passwd
    end
    
   
    % At this point we can to analyze the remote computer hardware.
    
    RealNumCPU=-1;
    
    
    [si0 de0]=system(['psinfo \\']);
    RealNumCPU=GiveCPUnumber(de0);
    
    
    % Trasforming the input data provided in a form [n1:n2] in a single numerical
    % value.
    
    
    DataInput.NumCPU=length(DataInput.NumCPU);
    
    if DataInput.NumCPU  == RealNumCPU
        % It is Ok!
    end
    
    if DataInput.NumCPU > RealNumCPU
        ErrorCode=2.1;
        
    end
    if DataInput.NumCPU < RealNumCPU
        ErrorCode=2.2;
    end
    
end