-
Notifications
You must be signed in to change notification settings - Fork 1
/
zeros_cuda.m
37 lines (35 loc) · 1.99 KB
/
zeros_cuda.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
% cuda_zeros : overloaded function from the cudaMat package.
% Decides whether the standard matlab function or the cuda version is used, depending on the state of the global use_zeros_cuda variable,
% which can be set via the function set_zeros_cuda()
%***************************************************************************
% Copyright (C) 2008-2009 by Rainer Heintzmann *
% *
% This program 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; Version 2 of the License. *
% *
% This program 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 this program; if not, write to the *
% Free Software Foundation, Inc., *
% 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
%**************************************************************************
%
function res=zeros_cuda(varargin)
global use_zeros_cuda;
if (use_zeros_cuda)
tmp=cuda(0);
res= zeros_cuda2(tmp,varargin{:});
else
if ischar(varargin{end})
varargin={varargin{1:end-1}};
res=complex(builtin('zeros',varargin{:}),0); % call the standart matlab zeros function
else
res=builtin('zeros',varargin{:}); % call the standart matlab zeros function
end
end