- Category:
- Data structs
- Tags:
-
- File Size:
- 11kb
- Update:
- 2014-03-17
- Downloads:
- 1 Times
- Uploaded by:
- 张蕊
Description: 这是一个采用平面四边形八节点等参单元的平面有限元分析程序。
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)= 输出
To Search:
File list (Check if you may need any files):
8节点等参单元Fortran2\八节点平面等参元Fortran 源程序2
.....................\...............................\FEMDATA
.....................\...............................\PLANEFEM.FOR
8节点等参单元Fortran2