文件名称:Fortran2
介绍说明－－下载内容均来自于网络，请自行研究使用
这是一个采用平面四边形八节点等参单元的平面有限元分析程序。
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)= 输出
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)= 输出
(系统自动生成,下载前可以参看下载内容)
下载文件列表
8节点等参单元Fortran2\八节点平面等参元Fortran 源程序2
.....................\...............................\FEMDATA
.....................\...............................\PLANEFEM.FOR
8节点等参单元Fortran2