0001 function globalvector = globalvector(varargin)
0002
0003 switch nargin
0004 case 0
0005
0006 globalvector.nrows=NaN;
0007 globalvector.vector=NaN;
0008
0009 globalvector=class(globalvector,'globalvector');
0010 case 1
0011
0012 argument = varargin{1};
0013 if isa(argument,'globalvector'),
0014 globalvector=argument;
0015 else
0016 if isnumeric(varargin{1}),
0017 numdof=argument;
0018 globalvector.nrows=numdof;
0019 globalvector.vector=sparse(numdof,1,0);
0020
0021 globalvector=class(globalvector,'globalvector');
0022 elseif isstruct(argument),
0023 globalvector=class(argument,'globalvector');
0024 else
0025 error('elemmmatrix constructor error message: invalid input argument');
0026 end
0027 end
0028 otherwise
0029 error('globalvector constructor error message: 0 of 1 argument only in input.');
0030 end