Location:
![](/images/right.gif)
Search - PLANEFEM
Search list
Description: 四边形八节点等参单元的平面有限元分析Fortran语言程序-Eight-node isoparametric quadrilateral element finite element analysis of plane Fortran language program
Platform: |
Size: 7168 |
Author: Lansu |
Hits:
Description: 这是一个采用平面四边形八节点等参单元的平面有限元分析程序-This is a planar quadrilateral eight-node isoparametric plane finite element analysis program
Platform: |
Size: 7168 |
Author: 金明池水 |
Hits:
Description: 计算力学中,平面四边形八节点等参单元Fortran 90标准程序-the program of Fortran 90
Platform: |
Size: 7168 |
Author: fy |
Hits:
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)= 输出 - 这是一个采用平面四边形八节点等参单元的平面有限元分析程序。
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)= 输出
Platform: |
Size: 11264 |
Author: 张蕊 |
Hits:
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)= 输出 -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)= 输出
Platform: |
Size: 7168 |
Author: 张蕊 |
Hits: