| 查看: 535 | 回复: 4 | |||
| 当前主题已经存档。 | |||
dwma铁杆木虫 (正式写手)
|
[交流]
【求助】Fortran程序
|
||
|
我的程序如下：（用来对两个文件的数据求和，问题是主程序不能调用子程序但编译没问题）.哪位高手给看看？多谢了！ Program Main Implicit none Real,Dimension(5,3):: Value1,Value2,Value3 Integer Dimen1, Dimen2 Integer I,J,K Dimen1=5 Dimen2=3 Call ReadValue(Dimen1,Dimen2,1000,'file1.txt') Call ReadValue(Dimen1,Dimen2,2000,'file2.txt') Do I=1,5 Value3(I,1)=(Value1(I,1)+Value2(I,1))/2 end do Do J=1,5 Do K=2,3 Value3(J,K)=Value1(J,K)+Value2(J,K) end do end do Open(unit=3000,file='file3') write (3000,*) ((Value3(J,K),K=1,3),J=1,5) end Subroutine ReadValue(Dimen1,Dimen2,UnitNum,Filename) Integer Dimen1,Dimen2,UnitNum,I1,I2 Character*(*) Filename Dimension Value(Dimen1,Dimen2) Open (unit=UnitNum,file=Filename,status='old') do I1=1,Dimen1 do I2=1,Dimen2 Read(UnitNum,*) Value(I1,I2) end do end do end |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有12人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有13人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有9人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
xujc1983
木虫 (著名写手)
苦逼青椒一枚
- 应助: 71 (初中生)
- 金币: 2065.3
- 散金: 2373
- 红花: 18
- 帖子: 1096
- 在线: 575小时
- 虫号: 285496
- 注册: 2006-10-14
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
★ ★ ★ ★
zzgyb(金币+4,VIP+0):谢谢你的参与，欢迎继续关注计算模拟版！
zzgyb(金币+4,VIP+0):谢谢你的参与，欢迎继续关注计算模拟版！
|
你的子程序写的有问题，子程序将文件中的数据保存在Value数组中，但是主程序调用的时候并没有返回该数组，应该调用的时候加上这个参数： Program Main Implicit none Real,Dimension(5,3):: Value1,Value2,Value3 Integer Dimen1, Dimen2 Integer I,J,K Dimen1=5 Dimen2=3 Call ReadValue(Dimen1,Dimen2,1000,'file1.txt',Value1) Call ReadValue(Dimen1,Dimen2,2000,'file2.txt',Value2) Do I=1,5 Value3(I,1)=(Value1(I,1)+Value2(I,1))/2 end do Do J=1,5 Do K=2,3 Value3(J,K)=Value1(J,K)+Value2(J,K) end do end do Open(unit=3000,file='file3') write (3000,*) ((Value3(J,K),K=1,3),J=1,5) end Subroutine ReadValue(Dimen1,Dimen2,UnitNum,Filename,Value) Integer Dimen1,Dimen2,UnitNum,I1,I2 Character*(*) Filename Dimension Value(Dimen1,Dimen2) Open (unit=UnitNum,file=Filename,status='old') do I1=1,Dimen1 do I2=1,Dimen2 Read(UnitNum,*) Value(I1,I2) end do end do end |
2楼2008-04-03 00:37:05
dwma
铁杆木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 8740.1
- 散金: 94
- 红花: 7
- 帖子: 892
- 在线: 327.8小时
- 虫号: 429825
- 注册: 2007-08-05
- 性别: GG
- 专业: 中国近代史、现代史
3楼2008-04-03 08:39:51
4楼2008-04-03 09:02:59
xujc1983
木虫 (著名写手)
苦逼青椒一枚
- 应助: 71 (初中生)
- 金币: 2065.3
- 散金: 2373
- 红花: 18
- 帖子: 1096
- 在线: 575小时
- 虫号: 285496
- 注册: 2006-10-14
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
5楼2008-04-03 13:15:53