Changeset 809


Ignore:
Timestamp:
06/05/09 10:14:58 (15 years ago)
Author:
seroussi
Message:

improved modelsize

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk/src/m/solutions/cielo/modelsize.m

    r358 r809  
    11function dof=modelsize(m_dh,m_dv,m_ds,m_dhu,m_sl);
     2%DOF - return the maximum number of degrees of freedom of the model
     3%
     4%   Usage:
     5%      dof=modelsize(m_dh,m_dv,m_ds,m_dhu,m_sl)
    26
    3 
     7dof=0;
     8if ~isempty(m_ds.nodesets),
     9        dof=m_ds.nodesets.fsize; %biggest dof number
     10end
    411if ~isempty(m_dh.nodesets),
    5         dof=m_dh.nodesets.fsize; %biggest dof number
    6 else
    7         if m_dhu.parameters.ishutter,
     12        if dof<m_dh.nodesets.fsize,
     13                dof=m_dh.nodesets.fsize; %biggest dof number
     14        end
     15end
     16if ~isempty(m_dhu.nodesets),
     17        if dof<m_dhu.nodesets.fsize,
    818                dof=m_dhu.nodesets.fsize;
    919        end
    1020end
    11 
Note: See TracChangeset for help on using the changeset viewer.