变带宽总刚集成及求解简单程序例子-Read.DOCVIP

01 变带宽总刚集成及求解简单程序例子 C ============================================ C 变带宽总刚集成及求解简单程序例子 C LU分解法，in-core only C 主要参考文献： C 1. 袁驷 程序结构力学 C 2. 江见鲸 陆新征 叶列平 混凝土结构有限元分析 C ============================================ module MatSolve use Lxz_Tools use TypeDef use Elem_Prop implicit none integer :: NGlbDOF !总自由度数 contains subroutine Get_GK(GValue,Node,Elem,Rebar,Load,Support,Initial_Load) type(typ_GValue) :: GValue ! 总体控制变量数据结构 type(typ_Node) :: Node(:) ! 节点性质数据结构数组 type(typ_Elem) :: Elem(:) ! 混凝土单元性质数据结构数组 type(typ_Rebar) :: Rebar(:) ! 钢筋单元性质数据结构数组 type(typ_Load) :: Load(:) ! 荷载数据结构数组 type(typ_Load) ::