各向同性线弹性小变平面应变静力有限元计算程序.docVIP

元计算有限元自动生成系统所开发源代码系列 各向同性线弹性小变形平面应变静力有限元计算程序 简介 元计算（www.ectec.asia）公司所开发的并行有限元程序自动生成系统（pFEPG）可根据用户需要开发出各种有限元计算程序源代码。该源代码系列即为pFEPG所开发出来的求解各学科典型问题的有限元计算程序。 该组程序为各向同性线弹性小变形平面应变静力有限元计算程序。 starta.for，对位移场的数据进行初始化； implicit real*8 a-h,o-z character*12 fname,filename 20 common /aa/ ia 座机电话号码0 common /bb/ ib 1座机电话号码 c.... open disp0 file to get the numbers of nodes and degree of freedom c.... knode .... number of nodes, kdgof .... number of d.o.f. open 1,file ,form unformatted read 1 knode,kdgof close 1 kvar knode*kdgof write *,* knode,kdgof,kvar write *, 1x,4i7 knode,kdgof,kvar kvar1 kvar+1