各向同性线弹性小变三维实体静力有限元计算程序.docVIP

元计算有限元自动生成系统所开发源代码系列 各向同性线弹性小变形三维实体静力有限元计算程序 简介 元计算（www.ectec.asia）公司所开发的并行有限元程序自动生成系统（pFEPG）可根据用户需要开发出各种有限元计算程序源代码。该源代码系列即为pFEPG所开发出来的求解各学科典型问题的有限元计算程序。 该组程序为各向同性线弹性小变形三维实体静力有限元计算程序。 starta.for，对位移场的数据进行初始化； implicit real*8 (a-h,o-z) character*12 fname,filename(20) common /aa/ ia(250000000) common /bb/ ib(125000000) 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(*,*) kn