文件名称:6226754PLANEFEM
-
所属分类：
- 标签属性：
- 上传时间：2014-03-17
-
文件大小：7.35kb
-
已下载：0次
-
提 供 者：
-
相关连接：无下载说明：别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容来自于网络，使用问题请自行百度
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)= 输出
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)= 输出
(系统自动生成,下载前可以参看下载内容)
下载文件列表
6226754PLANEFEM/PLANEFEM.FOR
6226754PLANEFEM/
6226754PLANEFEM/
本网站为编程资源及源代码搜集、介绍的搜索网站，版权归原作者所有！ 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.