24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2760  |  回复: 8

springer_

木虫 (著名写手)

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

Fortran怎么从一个dat文件中读取不同类型数据赋值给不同的变量?
回复此楼

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

程序

» 猜你喜欢

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

坐在墙头等红杏
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安靖

银虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
根据dat文件中的数据格式来读呗……
可以把dat文件格式发上来看看
2楼2014-07-16 10:32:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

springer_

木虫 (著名写手)

引用回帖:
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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安靖

银虫 (正式写手)


小木虫: 金币+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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

springer_

木虫 (著名写手)

引用回帖:
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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安靖

银虫 (正式写手)


小木虫: 金币+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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安靖

银虫 (正式写手)

integer, allocatable, dimension(:, :: line
real, allocatable, dimension(:, :: coorn
7楼2014-07-17 13:25:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安靖

银虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
笑脸是 冒号和反括号……
8楼2014-07-17 13:27:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

springer_

木虫 (著名写手)

坐在墙头等红杏
9楼2014-07-18 10:56:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 springer_ 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 086000生物与医药求调剂 +3 老天眷顾之人 2026-03-31 3/150 2026-04-05 22:24 by syh9288
[考研] 考研生物与医药调剂 +8 铁憨憨123425 2026-03-31 8/400 2026-04-05 20:28 by lys0704
[考研] 0854电子信息319求调剂(接受跨专业调剂) +3 星星不眨眼喽 2026-04-05 3/150 2026-04-05 20:20 by 啵啵啵0119
[考研] 0703化学321分求调剂 +17 三dd. 2026-03-30 18/900 2026-04-05 18:07 by 蓝云思雨
[考研] 工科277分求调剂材料 +8 上了上了上哦 2026-04-05 9/450 2026-04-05 13:05 by wwytracy
[考研] 求调剂 +3 电气小神童 2026-04-04 3/150 2026-04-05 10:17 by barlinike
[考研] 359求调剂22408 +3 123456789qw 2026-03-31 3/150 2026-04-05 10:09 by zhq0425
[考研] 考研调剂 +6 15615482637 2026-04-04 6/300 2026-04-04 22:43 by yu221
[考研] 278求调剂 +14 范婷娜 2026-04-04 15/750 2026-04-04 22:15 by lqwchd
[考研] 怎么删帖子啊 +3 缝曦1000 2026-04-04 3/150 2026-04-04 14:20 by 土木硕士招生
[考研] 材料调剂 +11 吴棂颖! 2026-04-03 11/550 2026-04-04 09:56 by 小小树2024
[考研] 建环,能源,土木老师路过看一看!!! +5 嘿嘿uu 2026-04-01 5/250 2026-04-03 11:47 by znian
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +8 shzhou_ 2026-04-01 9/450 2026-04-03 09:31 by 蓝云思雨
[考研] 一志愿陕西师范大学生物学317分 +5 1563日。 2026-04-02 5/250 2026-04-03 06:58 by ilovexiaobin
[考研] 296求调剂 +4 sdhu 2026-04-02 4/200 2026-04-02 21:29 by baoball
[考研] 0710生物学,325求调剂 +3 mkkkkkl 2026-04-01 3/150 2026-04-02 09:48 by Jaylen.
[考研] 298求调剂 +4 什么是胖头鱼 2026-03-30 6/300 2026-04-01 22:06 by 客尔美德
[考研] 310分求调剂 +4 成功上岸wang 2026-04-01 4/200 2026-04-01 20:35 by liu823948201
[考研] 379求调剂 +3 ?苦瓜不苦 2026-04-01 3/150 2026-04-01 20:09 by 暮云清寒
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
信息提示
请填处理意见