| 查看: 625 | 回复: 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 |
回复此楼» 猜你喜欢
澳大利亚 Murdoch University 全奖博士招生（3个名额）地质化工冶金领域
已经有44人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有29人回复
-
关于Filecode分析方法
已经有12人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有11人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有10人回复
-
阿姨
已经有4人回复
-
一作与独作在应聘高校教师时区别大吗
已经有4人回复
-
静等基金结果
已经有21人回复
-
FileCode能看出啥？
已经有28人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有6人回复
xujc1983
木虫 (著名写手)
苦逼青椒一枚
- 应助: 71 (初中生)
- 金币: 2065.3
- 散金: 2373
- 红花: 18
- 帖子: 1096
- 在线: 575.3小时
- 虫号: 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.3小时
- 虫号: 285496
- 注册: 2006-10-14
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
5楼2008-04-03 13:15:53
