diff --git a/matlab/@dynDate/colon.m b/matlab/@dynDate/colon.m
index cb499d8a5..69742ea15 100644
--- a/matlab/@dynDate/colon.m
+++ b/matlab/@dynDate/colon.m
@@ -31,7 +31,6 @@ function sp = colon(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -48,6 +47,8 @@ function sp = colon(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if nargin~=2
error('dynTime::colon: I need exactly two input arguments!')
end
diff --git a/matlab/@dynDate/dynDate.m b/matlab/@dynDate/dynDate.m
index 524bcaa6a..25e8dc3b3 100644
--- a/matlab/@dynDate/dynDate.m
+++ b/matlab/@dynDate/dynDate.m
@@ -44,7 +44,6 @@ function date = dynDate(a)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -61,6 +60,8 @@ function date = dynDate(a)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
date = struct;
date.freq = NaN;
diff --git a/matlab/@dynDate/eq.m b/matlab/@dynDate/eq.m
index e699b1761..186dd0b7f 100644
--- a/matlab/@dynDate/eq.m
+++ b/matlab/@dynDate/eq.m
@@ -30,7 +30,6 @@ function c = eq(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function c = eq(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/format.m b/matlab/@dynDate/format.m
index d308a6f0e..494dfda8d 100644
--- a/matlab/@dynDate/format.m
+++ b/matlab/@dynDate/format.m
@@ -28,7 +28,6 @@ function p = format(date)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -45,6 +44,8 @@ function p = format(date)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if nargin~=1
error('dynDate::format: I need exactly one input argument!')
diff --git a/matlab/@dynDate/ge.m b/matlab/@dynDate/ge.m
index 7c2f8ab3f..2be9bb485 100644
--- a/matlab/@dynDate/ge.m
+++ b/matlab/@dynDate/ge.m
@@ -31,7 +31,6 @@ function c = ge(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -48,6 +47,8 @@ function c = ge(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if a>b
c=1;
else
diff --git a/matlab/@dynDate/gt.m b/matlab/@dynDate/gt.m
index 65b9ca4bc..5d6ed5e72 100644
--- a/matlab/@dynDate/gt.m
+++ b/matlab/@dynDate/gt.m
@@ -30,7 +30,6 @@ function c = gt(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function c = gt(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/le.m b/matlab/@dynDate/le.m
index 8d7784535..6fd1026c4 100644
--- a/matlab/@dynDate/le.m
+++ b/matlab/@dynDate/le.m
@@ -31,7 +31,6 @@ function c = le(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -48,6 +47,8 @@ function c = le(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if a.
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/max.m b/matlab/@dynDate/max.m
index cab6b38bc..74bcfb1b0 100644
--- a/matlab/@dynDate/max.m
+++ b/matlab/@dynDate/max.m
@@ -30,7 +30,6 @@ function c = max(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function c = max(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/min.m b/matlab/@dynDate/min.m
index cb006327a..df51fb201 100644
--- a/matlab/@dynDate/min.m
+++ b/matlab/@dynDate/min.m
@@ -30,7 +30,6 @@ function c = min(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function c = min(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/minus.m b/matlab/@dynDate/minus.m
index fa3d1a9cf..a037f0aee 100644
--- a/matlab/@dynDate/minus.m
+++ b/matlab/@dynDate/minus.m
@@ -32,7 +32,6 @@ function c = minus(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -49,6 +48,8 @@ function c = minus(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ~( isa(a,'dynDate') && isa(b,'dynDate') )
error(['dynDate::minus: Input arguments ' inputname(1) ' and ' inputname(2) ' must be dynDate objects!'])
end
diff --git a/matlab/@dynDate/ne.m b/matlab/@dynDate/ne.m
index d639ef3dc..c00cc2283 100644
--- a/matlab/@dynDate/ne.m
+++ b/matlab/@dynDate/ne.m
@@ -30,7 +30,6 @@ function c = ne(a,b)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function c = ne(a,b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
verbose = 0;
if nargin~=2
diff --git a/matlab/@dynDate/subsref.m b/matlab/@dynDate/subsref.m
index b57b7e7c1..4a951dfe0 100644
--- a/matlab/@dynDate/subsref.m
+++ b/matlab/@dynDate/subsref.m
@@ -33,7 +33,6 @@ function B = subsref(A,S)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -50,4 +49,6 @@ function B = subsref(A,S)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
B = builtin('subsref', A, S);
\ No newline at end of file
diff --git a/matlab/@dynDate/uminus.m b/matlab/@dynDate/uminus.m
index 7b66f3322..56d677a39 100644
--- a/matlab/@dynDate/uminus.m
+++ b/matlab/@dynDate/uminus.m
@@ -30,7 +30,6 @@ function b = uminus(a)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function b = uminus(a)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ~isa(a,'dynDate')
error(['dynDate::uminus: Input argument ' inputname(1) ' must be a dynDate object.'])
end
diff --git a/matlab/@dynDate/uplus.m b/matlab/@dynDate/uplus.m
index 14da6a503..11d2c9559 100644
--- a/matlab/@dynDate/uplus.m
+++ b/matlab/@dynDate/uplus.m
@@ -30,7 +30,6 @@ function b = uplus(a)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -47,6 +46,8 @@ function b = uplus(a)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ~isa(a,'dynDate')
error(['dynDate::uplus: Input argument ' inputname(1) ' must be a dynDate object.'])
end
diff --git a/matlab/@dynDates/subsref.m b/matlab/@dynDates/subsref.m
index b5408de77..e267e9af4 100644
--- a/matlab/@dynDates/subsref.m
+++ b/matlab/@dynDates/subsref.m
@@ -33,7 +33,6 @@ function B = subsref(A,S)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -50,6 +49,8 @@ function B = subsref(A,S)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
B = builtin('subsref', A, S);
if isequal(S(1).type,'.')
diff --git a/matlab/@dynSeries/horzcat.m b/matlab/@dynSeries/horzcat.m
index 1748e18f0..3adeec1e9 100644
--- a/matlab/@dynSeries/horzcat.m
+++ b/matlab/@dynSeries/horzcat.m
@@ -40,7 +40,6 @@ function a = horzcat(varargin)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -57,6 +56,8 @@ function a = horzcat(varargin)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if nargin==0 || nargin==1
error('dynSeries::horzcat: I need at least two input arguments!')
end
diff --git a/matlab/@dynTime/dynTime.m b/matlab/@dynTime/dynTime.m
index 3d885db78..021ac93fe 100644
--- a/matlab/@dynTime/dynTime.m
+++ b/matlab/@dynTime/dynTime.m
@@ -42,7 +42,6 @@ function sp = dynTime(a)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -59,6 +58,8 @@ function sp = dynTime(a)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
sp = struct;
sp.freq = [];
diff --git a/matlab/cartesian_product_of_sets.m b/matlab/cartesian_product_of_sets.m
index 1368f8e28..8781a7e60 100644
--- a/matlab/cartesian_product_of_sets.m
+++ b/matlab/cartesian_product_of_sets.m
@@ -32,7 +32,6 @@ function cprod = cartesian_product_of_sets(varargin)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -49,6 +48,8 @@ function cprod = cartesian_product_of_sets(varargin)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
[ F{1:nargin} ] = ndgrid( varargin{:} );
for i=1:nargin
diff --git a/matlab/gauss_hermite_weights_and_nodes.m b/matlab/gauss_hermite_weights_and_nodes.m
index 5946ac25e..40287cb71 100644
--- a/matlab/gauss_hermite_weights_and_nodes.m
+++ b/matlab/gauss_hermite_weights_and_nodes.m
@@ -32,7 +32,6 @@ function [nodes,weights] = gauss_hermite_weights_and_nodes(n)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -49,6 +48,8 @@ function [nodes,weights] = gauss_hermite_weights_and_nodes(n)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
b = sqrt([1:n-1]/2);
JacobiMatrix = diag(b,1)+diag(b,-1);
[JacobiEigenVectors,JacobiEigenValues] = eig(JacobiMatrix);
diff --git a/matlab/kronecker/A_times_B_kronecker_C.m b/matlab/kronecker/A_times_B_kronecker_C.m
index dad073c34..e46306f0f 100644
--- a/matlab/kronecker/A_times_B_kronecker_C.m
+++ b/matlab/kronecker/A_times_B_kronecker_C.m
@@ -44,7 +44,6 @@ function [D, err] = A_times_B_kronecker_C(A,B,C,fake)
%@eod:
% Copyright (C) 1996-2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -61,6 +60,8 @@ function [D, err] = A_times_B_kronecker_C(A,B,C,fake)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
% Chek number of inputs and outputs.
if nargin>4 || nargin<3
error('A_times_B_kronecker_C takes 3 or 4 input arguments and provides 2 output arguments.')
diff --git a/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m b/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m
index fffe80646..09be1b7f9 100644
--- a/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m
+++ b/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m
@@ -46,7 +46,6 @@ function [D, err] = sparse_hessian_times_B_kronecker_C(varargin)
%@eod:
% Copyright (C) 1996-2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -63,6 +62,8 @@ function [D, err] = sparse_hessian_times_B_kronecker_C(varargin)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
A = varargin{1};
B = varargin{2};
C = varargin{3};
diff --git a/matlab/simul_backward_nonlinear_model.m b/matlab/simul_backward_nonlinear_model.m
index 80dec87a2..cafd3b612 100644
--- a/matlab/simul_backward_nonlinear_model.m
+++ b/matlab/simul_backward_nonlinear_model.m
@@ -35,7 +35,6 @@ function DynareOutput = simul_backward_nonlinear_model(sample_size,DynareOptions
%@eod:
% Copyright (C) 2012 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -52,6 +51,8 @@ function DynareOutput = simul_backward_nonlinear_model(sample_size,DynareOptions
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if DynareModel.maximum_lead
error(['simul_backward_nonlinear_model:: The specified model is not backward looking!'])
end
diff --git a/matlab/utilities/dataset/compute_acov.m b/matlab/utilities/dataset/compute_acov.m
index 8e3bec348..a67f24e48 100644
--- a/matlab/utilities/dataset/compute_acov.m
+++ b/matlab/utilities/dataset/compute_acov.m
@@ -37,7 +37,6 @@ function dataset_ = compute_acov(dataset_)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -54,6 +53,8 @@ function dataset_ = compute_acov(dataset_)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ~isfield(dataset_.descriptive,'cova')
dataset_ = compute_cova(dataset_);
end
diff --git a/matlab/utilities/dataset/compute_corr.m b/matlab/utilities/dataset/compute_corr.m
index 3d56adb3b..d4a81dc07 100644
--- a/matlab/utilities/dataset/compute_corr.m
+++ b/matlab/utilities/dataset/compute_corr.m
@@ -34,7 +34,6 @@ function dataset_ = compute_corr(dataset_)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -51,6 +50,8 @@ function dataset_ = compute_corr(dataset_)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ~isfield(dataset_.descriptive,'cova')
dataset_ = compute_cova(dataset_);
end
diff --git a/matlab/utilities/dataset/compute_cova.m b/matlab/utilities/dataset/compute_cova.m
index 12e5cb18a..cde46848f 100644
--- a/matlab/utilities/dataset/compute_cova.m
+++ b/matlab/utilities/dataset/compute_cova.m
@@ -31,7 +31,6 @@ function dataset_ = compute_cova(dataset_)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -48,6 +47,8 @@ function dataset_ = compute_cova(dataset_)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
dataset_.descriptive.cova = zeros(dataset_.nvobs);
data = transpose(dataset_.data);
diff --git a/matlab/utilities/dataset/compute_stdv.m b/matlab/utilities/dataset/compute_stdv.m
index 2111e0056..2ddbbfc01 100644
--- a/matlab/utilities/dataset/compute_stdv.m
+++ b/matlab/utilities/dataset/compute_stdv.m
@@ -31,7 +31,6 @@ function dataset_ = compute_stdv(dataset_)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -48,6 +47,8 @@ function dataset_ = compute_stdv(dataset_)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if dataset_.missing.state
dataset_.descriptive.stdv = sqrt(nanmean(bsxfun(@power,nandemean(transpose(dataset_.data)),2)));
else
diff --git a/matlab/utilities/dataset/describe_missing_data.m b/matlab/utilities/dataset/describe_missing_data.m
index b1fbb2c9f..421e64d83 100644
--- a/matlab/utilities/dataset/describe_missing_data.m
+++ b/matlab/utilities/dataset/describe_missing_data.m
@@ -28,7 +28,6 @@ function [i,n,s,j] = describe_missing_data(data)
%@eod:
% Copyright (C) 2008-2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -45,6 +44,8 @@ function [i,n,s,j] = describe_missing_data(data)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
[observation_index,variable_index] = find(~isnan(data));
[T,N] = size(data);
diff --git a/matlab/utilities/dataset/descriptive_statistics.m b/matlab/utilities/dataset/descriptive_statistics.m
index 06afbdf40..35981246e 100644
--- a/matlab/utilities/dataset/descriptive_statistics.m
+++ b/matlab/utilities/dataset/descriptive_statistics.m
@@ -46,7 +46,6 @@ function dataset_ = descriptive_statistics(dataset_,statistic,varagin)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -63,6 +62,8 @@ function dataset_ = descriptive_statistics(dataset_,statistic,varagin)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if strcmpi(statistic,'stdv')
dataset_ = compute_std(dataset_)
diff --git a/matlab/utilities/dataset/initialize_dataset.m b/matlab/utilities/dataset/initialize_dataset.m
index a860cae7e..b69d5b4ac 100644
--- a/matlab/utilities/dataset/initialize_dataset.m
+++ b/matlab/utilities/dataset/initialize_dataset.m
@@ -2,7 +2,6 @@ function dataset_ = initialize_dataset(datafile,varobs,first,nobs,transformation
% Initializes a structure describing the dataset.
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -19,6 +18,8 @@ function dataset_ = initialize_dataset(datafile,varobs,first,nobs,transformation
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if isempty(datafile)
error('Estimation:: You have to declare a dataset file!')
end
diff --git a/matlab/utilities/doc/dynInfo.m b/matlab/utilities/doc/dynInfo.m
index 61fa9021b..c52e8efce 100644
--- a/matlab/utilities/doc/dynInfo.m
+++ b/matlab/utilities/doc/dynInfo.m
@@ -32,7 +32,6 @@ function dynInfo(fun)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -49,6 +48,8 @@ function dynInfo(fun)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if isempty(strfind(fun,'@')) & (~isempty(strfind(fun,'/')) || ~isempty(strfind(fun,'\')) )
[pathstr1, name, ext] = fileparts(fun);
addpath(pathstr1);
diff --git a/matlab/utilities/doc/get_internal_doc_block.m b/matlab/utilities/doc/get_internal_doc_block.m
index 65303de6e..d965500fe 100644
--- a/matlab/utilities/doc/get_internal_doc_block.m
+++ b/matlab/utilities/doc/get_internal_doc_block.m
@@ -2,7 +2,6 @@ function block = get_internal_doc_block(fname,fpath)
% Extract doc sections from matlab's routine.
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -19,6 +18,8 @@ function block = get_internal_doc_block(fname,fpath)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
% Default output
block = [];
diff --git a/matlab/utilities/general/demean.m b/matlab/utilities/general/demean.m
index cfa386f5f..332ab100d 100644
--- a/matlab/utilities/general/demean.m
+++ b/matlab/utilities/general/demean.m
@@ -28,7 +28,6 @@ function c = demean(x)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT ens DOT fr
%
% This file is part of Dynare.
%
@@ -44,6 +43,8 @@ function c = demean(x)
%
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
if ndim(x)==1
c = x-mean(x);
diff --git a/matlab/utilities/general/isfile.m b/matlab/utilities/general/isfile.m
index bcc3197ca..59f118710 100644
--- a/matlab/utilities/general/isfile.m
+++ b/matlab/utilities/general/isfile.m
@@ -28,7 +28,6 @@ function a = isfile(b)
%@eod:
% Copyright (C) 2012 Dynare Team
-% stephane DOT adjemian AT ens DOT fr
%
% This file is part of Dynare.
%
@@ -45,6 +44,8 @@ function a = isfile(b)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
[base,ext] = strtok(b,'.');
if isempty(ext)
diff --git a/matlab/utilities/general/ndim.m b/matlab/utilities/general/ndim.m
index 836d217bf..f9e2c80df 100644
--- a/matlab/utilities/general/ndim.m
+++ b/matlab/utilities/general/ndim.m
@@ -28,7 +28,6 @@ function n = ndim(x)
%@eod:
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT ens DOT fr
%
% This file is part of Dynare.
%
@@ -45,4 +44,6 @@ function n = ndim(x)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
n = sum(size(x)>1);
\ No newline at end of file
diff --git a/matlab/utilities/tests/dynTest.m b/matlab/utilities/tests/dynTest.m
index bf59e5b55..8dd2fc017 100644
--- a/matlab/utilities/tests/dynTest.m
+++ b/matlab/utilities/tests/dynTest.m
@@ -33,7 +33,6 @@ function dynTest(fun,dynare_path)
%@eod:
% Copyright (C) 2011-2012 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -50,6 +49,8 @@ function dynTest(fun,dynare_path)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
original_directory = pwd();
[pathstr1, name1, ext1] = fileparts(fun);
diff --git a/matlab/utilities/tests/dyn_assert.m b/matlab/utilities/tests/dyn_assert.m
index 7dd60e5f5..c6b017081 100644
--- a/matlab/utilities/tests/dyn_assert.m
+++ b/matlab/utilities/tests/dyn_assert.m
@@ -2,7 +2,6 @@ function t = dyn_assert(A,B,tol)
% This function tests the equality of two objects.
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -19,6 +18,8 @@ function t = dyn_assert(A,B,tol)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
if ( (nargin<3) || isempty(tol) )
use_isequal_matlab_builtin = 1;
else
diff --git a/matlab/utilities/tests/mtest.m b/matlab/utilities/tests/mtest.m
index 1ff44e2eb..1354deaed 100644
--- a/matlab/utilities/tests/mtest.m
+++ b/matlab/utilities/tests/mtest.m
@@ -2,7 +2,6 @@ function check = mtest(fname,fpath)
% Extract test sections from matlab's routine executes the test and report errors.
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT univ DASH lemans DOT fr
%
% This file is part of Dynare.
%
@@ -19,6 +18,8 @@ function check = mtest(fname,fpath)
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
% Default answer (no problem).
check = 1;
diff --git a/tests/internals/tests.m b/tests/internals/tests.m
index f755cbedf..54b139871 100644
--- a/tests/internals/tests.m
+++ b/tests/internals/tests.m
@@ -1,7 +1,6 @@
% matlab script for testing matlab routines.
% Copyright (C) 2011 Dynare Team
-% stephane DOT adjemian AT ens DOT fr
%
% This file is part of Dynare.
%
@@ -18,6 +17,8 @@
% You should have received a copy of the GNU General Public License
% along with Dynare. If not, see .
+% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr
+
list_of_routines = cell(1);
list_of_routines(1,1) = {'../../matlab/@dynSeries'}; % path