0001 function pentaelem = pentaelem(varargin)
0002
0003
0004
0005
0006
0007 switch nargin
0008 case 0
0009
0010 pentaelem.type='pentaelem';
0011 pentaelem.id=NaN;
0012 pentaelem.matid=NaN;
0013 pentaelem.g=zeros(6,1);
0014 pentaelem.h=zeros(6,1);
0015 pentaelem.s=zeros(6,1);
0016 pentaelem.b=zeros(6,1);
0017 pentaelem.friction_type=2;
0018 pentaelem.k=zeros(6,1);
0019 pentaelem.p=1;
0020 pentaelem.q=1;
0021 pentaelem.shelf=NaN;
0022 pentaelem.onbed=NaN;
0023 pentaelem.onsurface=NaN;
0024 pentaelem.meanvel=NaN;
0025 pentaelem.epsvel=NaN;
0026 pentaelem.acceleration=0;
0027 pentaelem.collapse=0;
0028 pentaelem.melting=zeros(6,1);
0029 pentaelem.accumulation=zeros(6,1);
0030 pentaelem.geothermalflux=zeros(6,1);
0031 pentaelem.artificial_diffusivity='no';
0032 pentaelem.thermal_steadystate=1;
0033 pentaelem.reconditioning_number=NaN;
0034
0035 pentaelem=class(pentaelem,'pentaelem');
0036
0037 case 1
0038
0039 if (isa(varargin{1},'pentaelem'))
0040 pentaelem = varargin{1};
0041 else
0042 error('pentaelem constructor error message: copy constructor called on a non ''pentaelem'' class object');
0043 end
0044 otherwise
0045 error('pentaelem constructor error message: 0 of 1 argument only in input.');
0046 end