[交流] Fortran怎么从一个dat文件中读取不同类型数据赋值给不同的变量？已有1人参与

» 收录本帖的淘帖专辑推荐

程序

» 猜你喜欢

三甲基碘化亚砜的氧化反应已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
孩子确诊有中度注意力缺陷已经有12人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复

» 本主题相关价值贴推荐，对您同样有帮助:

坐在墙头等红杏

1楼2014-07-16 10:17:33

安靖

银虫 (正式写手)

应助: 38 (小学生)
金币: 1862.3
红花: 3
帖子: 314
在线: 134.1小时
虫号: 1938424
注册: 2012-08-14
专业: 流体力学

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

根据dat文件中的数据格式来读呗……
可以把dat文件格式发上来看看

2楼2014-07-16 10:32:30

springer_

木虫 (著名写手)

应助: 2 (幼儿园)
金币: 3760.7
散金: 138
红花: 51
帖子: 1163
在线: 164.9小时
虫号: 2748954
注册: 2013-10-24
性别: GG
专业: 结构工程

引用回帖:

2楼: Originally posted by 安靖 at 2014-07-16 10:32:30
根据dat文件中的数据格式来读呗……
可以把dat文件格式发上来看看

弹性模量
5.e5
单元截面积
2e-3
节点坐标
0.0  0.0  0.0  1.25  3.0  0.0  3.5  2.0  0.0
4.0  1.0  0.0  2.0  1.5  3.0
单元节点
1  5  2  5  3  5  4  5
边界条件
1  0  0  0  2  0  0  0  3  0  0  0  4  0  0  0
荷载
5  20.0  -20.0  30.0

做有限元分析的

坐在墙头等红杏

3楼2014-07-16 16:06:17

安靖

银虫 (正式写手)

应助: 38 (小学生)
金币: 1862.3
红花: 3
帖子: 314
在线: 134.1小时
虫号: 1938424
注册: 2012-08-14
专业: 流体力学

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

引用回帖:

3楼: Originally posted by springer_ at 2014-07-16 16:06:17
弹性模量
5.e5
单元截面积
2e-3
节点坐标
0.0  0.0  0.0  1.25  3.0  0.0  3.5  2.0  0.0
4.0  1.0  0.0  2.0  1.5  3.0
单元节点
1  5  2  5  3  5  4  5
边界条件
1  0  0  0  2  0  0  0  3  0  0  0 ...

文件中例如弹性模量、节点个数、边界条件个数之类的是固定的还是变动的？最好能够给定个数，这样写程序会比较简单。

4楼2014-07-17 10:09:00

springer_

木虫 (著名写手)

应助: 2 (幼儿园)
金币: 3760.7
散金: 138
红花: 51
帖子: 1163
在线: 164.9小时
虫号: 2748954
注册: 2013-10-24
性别: GG
专业: 结构工程

引用回帖:

4楼: Originally posted by 安靖 at 2014-07-17 10:09:00
文件中例如弹性模量、节点个数、边界条件个数之类的是固定的还是变动的？最好能够给定个数，这样写程序会比较简单。...

都是固定的
节点数
4
单元数
4
弹性模量
5.e5
单元截面积
2e-3
节点坐标
0.0  0.0
0.4  0.0
0.4  0.3
0.0  0.3
单元节点
1  2
2  3
1  3
4  3

坐在墙头等红杏

5楼2014-07-17 10:59:26

安靖

银虫 (正式写手)

应助: 38 (小学生)
金币: 1862.3
红花: 3
帖子: 314
在线: 134.1小时
虫号: 1938424
注册: 2012-08-14
专业: 流体力学

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

写了个大概

integer i
! 节点个数、单元数
integer np, ne
! 面积、模量
real area, b
integer, allocatable, dimension(:,

:: line
real, allocatable, dimension(:,

:: coorn
! 打开文件
open( 10, file = filename, status = 'old', form = 'formatted' )
! 读取数据
read(10,*)
read(10,*) np
read(10,*)
read(10,*) ne
read(10,*)
read(10,*) b
read(10,*)
read(10,*) area
read(10,*)
! 分配内存
allocate( line( 2,ne ) )
allocate( coorn(2,np) )
! 读取节点信息
do i = 1, np
read(10,*) coorn(1:2, i)
end do
! 读取单元信息
do i = 1, ne
read(10,*) line(1:2, i)
end do

6楼2014-07-17 13:24:28