变带宽总刚集成及求解简单程序例子9.docVIP

01 变带宽总刚集成及求解简单程序例子C ============================================C 变带宽总刚集成及求解简单程序例子C LU分解法，in-core onlyC 主要参考文献：C 1. 袁驷 程序结构力学C 2. 江见鲸 陆新征 叶列平 混凝土结构有限元分析C ============================================module MatSolveuse Lxz_Toolsuse TypeDefuse Elem_Prop implicit noneinteger :: NGlbDOF !总自由度数containssubroutine 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) :: Initial_Load(:) ! 初始荷