InitializeComputationalEnvironment.m 2.04 KB
Newer Older
1
function InitializeComputationalEnvironment()
2 3 4 5 6

% PARALLEL CONTEXT
% In a parallel context, this function is used to Initialize the computational enviroment according with
% the user request.
%
7 8
% INPUTS
% o DataInput      []   ...
9
%
10 11
% OUTPUTS
% None
12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
%
% 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/>.


31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
% This is simple and check!
% The default value for the new field MatlabOctavePath now is 'matlab' or
% 'octave'. Then if the field is empty it is necessary to fill it with the
% default value.

global options_

for j=1:length(options_.parallel),
    if isempty(options_.parallel(j).MatlabOctavePath),
        if exist('OCTAVE_VERSION')
            options_.parallel(j).MatlabOctavePath = 'octave';
        else
           options_.parallel(j).MatlabOctavePath = 'matlab';
        end
    end
46 47 48 49
    if options_.parallel(j).Local && isempty(options_.parallel(j).DynarePath),
        dynareroot = strrep(which('dynare'),'dynare.m','');
        options_.parallel(j).DynarePath=dynareroot;
    end
50 51 52 53 54
end
 



55 56 57 58
% Invoke masterParallel with 8 arguments and the last equal to 1. With this shape
% for input data, masterParallel only create a new directory for remote
% computation. The name of this directory is time depending. For local
% parallel computations with Strategy == 1 delete the traces (if exists) of
59 60
% previous computations.

61
delete(['P_slave_*End.txt'])
62
masterParallel(options_.parallel,[],[],[],[],[],[],options_.parallel_info,1);
63 64

return