这是一个采用平面四边形八节点等参单元的平面有限元分析程序。

PROGRAM PLANEFEM

IMPLICIT REAL*8(A-H,O-Z)

CHARACTER*80 LINECHAR,NEWLINECHAR

COMMON A(30000),L(4000)

COMMON /SOL/NPOIN,NELEM,NTYPE,NMATS

OPEN(5,FILE= FEMDATA ,STATUS= OLD )

OPEN(6,FILE= FEMOUT ,STATUS= UNKNOWN )

C 以下进行的是从数据文件FEMDATA中读入数据文件主标题信息。

READ(5,5000) LINECHAR

LOCATECHAR=INDEX(LINECHAR, 输入 )

IF(LOCATECHAR.NE.0) THEN

LINECHAR(LOCATECHAR:LOCATECHAR+3)= 输出 - 这是一个采用平面四边形八节点等参单元的平面有限元分析程序。

　　　　PROGRAM PLANEFEM

　　　　IMPLICIT REAL*8(A-H,O-Z)

　　　　CHARACTER*80 LINECHAR,NEWLINECHAR

　　　　COMMON　A(30000),L(4000)

　　　　COMMON /SOL/NPOIN,NELEM,NTYPE,NMATS

　　　　OPEN(5,FILE= FEMDATA ,STATUS= OLD )

　　　　OPEN(6,FILE= FEMOUT ,STATUS= UNKNOWN )

C　　　 以下进行的是从数据文件FEMDATA中读入数据文件主标题信息。

　　　　READ(5,5000) LINECHAR

　　　　LOCATECHAR=INDEX(LINECHAR, 输入 )

　　　　IF(LOCATECHAR.NE.0) THEN

　　　　　LINECHAR(LOCATECHAR:LOCATECHAR+3)= 输出