Mercurial > repos > public > sbplib
annotate spzeros.m @ 965:db3411264b96 feature/poroelastic
Remove use of tensor library in B assembly
| author | Martin Almquist <malmquist@stanford.edu> |
|---|---|
| date | Sat, 22 Dec 2018 16:41:17 +0100 |
| parents | 13d2f20c0c0d |
| children |
| rev | line source |
|---|---|
| 488 | 1 function S = spzeros(varargin) |
| 2 switch length(varargin) | |
| 3 case 2 | |
| 4 S = sparse(varargin{1}, varargin{2}); | |
| 5 case 1 | |
| 6 v = varargin{1}; | |
| 7 switch length(v) | |
| 8 case 1 | |
| 9 S = sparse(v,v); | |
| 10 case 2 | |
| 11 S = sparse(v(1), v(2)); | |
| 12 otherwise | |
| 13 error('Input must be either one integer, two integers or a vector with two integers'); | |
| 14 end | |
| 15 otherwise | |
| 16 error('Too many input arguments.'); | |
| 17 end | |
| 18 end |