24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1766  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

huazai9090

新虫 (初入文坛)

[交流] 求助Fortran如何读入矩阵值的数据文件 已有2人参与

有一个子程序需要调用一个mesh.dat文件
       0       0           4
       1       0           4
       2       0           4
       3       0           4
       4       0           4
       5       0           4
       6       0           5
       7       0          -1
       8       0          -1
       9       0          -1
      10       0           6
.....
       0       1           1
       1       1           0
       2       1           0
       3       1           0
       4       1           0
       5       1           0
       6       1           5
       7       1          -1
       8       1          -1
       9       1          -1
      10       1           6
................

第一列是矩阵的i,第二列是矩阵的j,第三列是数组R(i,j)的值
请问怎样不过多耗内存的读入这个文件的数据并都成功赋值给R(i,j)呀?数组R(i,j)总共是有R(0:128,0:128)
自己写的程序:
open(21,file='mesh.dat')
         
            do j=0,ny+1
                do i=0,nx+1
                    read(21,) ii,jj,R(i,j)
                end do
            end do

Fortran刚刚学还不是很懂,写出的read老是出错,因为重复出现i,j的值,所以有没有必要用ii,jj去保存mesh文件里的i,j值呀?这个mesh.dat文件已经复制到路径里面了,求大神教教我!
回复此楼

» 猜你喜欢

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

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

weiwei43

至尊木虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
open(21,file='mesh.dat')
           
             do j=0,ny+1
                 do i=0,nx+1
                     read(21,*) ii,jj,R(ii,jj)
                 end do
             end do
close(21)
3楼2015-07-08 09:41:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

学虫dj

金虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
read的格式不对呀

[ 发自小木虫客户端 ]
穷则独善其事,达则兼济天下
2楼2015-07-07 23:55:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿安徽大学计算机科学与技术学硕,331分求调剂 +3 蒋昌鹏qtj 2026-04-01 3/150 2026-04-01 23:56 by 义文wang
[考研] 085801 总分275 本科新能源 求调剂 +10 bradoner 2026-04-01 11/550 2026-04-01 22:57 by 来看流星雨10
[考研] 282求调剂 +17 ycy1201 2026-04-01 19/950 2026-04-01 22:54 by peike
[考研] 081200-11408-276学硕求调剂 +5 崔wj 2026-03-26 5/250 2026-04-01 22:24 by guanxin1001
[考研] 材料专硕322分 +10 哈哈哈吼吼吼哈 2026-04-01 10/500 2026-04-01 22:19 by Dyhoer
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 材料调剂 +14 一样YWY 2026-04-01 14/700 2026-04-01 21:07 by lijunpoly
[考研] 材料专硕调剂 +17 椰椰。 2026-03-29 17/850 2026-04-01 20:44 by cq2548
[考研] 310分求调剂 +4 成功上岸wang 2026-04-01 4/200 2026-04-01 20:35 by liu823948201
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 086000生物与医药 初试274求调剂 +5 小叮当来了 2026-03-30 6/300 2026-04-01 14:25 by mxj1203
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 085602 307分 求调剂 +10 不知道叫什么! 2026-03-26 10/500 2026-03-31 19:53 by Dyhoer
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-31 4/200 2026-03-31 11:56 by jp9609
[考研] 105500药学求调剂,一志愿山东大学药学,348分 +3 gr哈哈哈 2026-03-28 3/150 2026-03-30 18:56 by 源_2020
[考研] 085701求调剂初试286分 +5 secret0328 2026-03-28 5/250 2026-03-30 12:54 by fangnagu
[考研] 求调剂,一志愿 南京航空航天大学大学 ,080500材料科学与工程学硕 +6 @taotao 2026-03-26 7/350 2026-03-30 10:43 by 我是小康
[考研] 086000生物与医药调剂 +5 Feisty。 2026-03-28 9/450 2026-03-29 12:02 by longlotian
[考研] 一志愿211院校 344分 东北农业大学生物学学硕,求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
信息提示
请填处理意见