- Category:
- Data structs
- Tags:
-
- File Size:
- 7kb
- Update:
- 2014-03-17
- Downloads:
- 0 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):
6226754PLANEFEM\PLANEFEM.FOR
6226754PLANEFEM
Download