| 查看: 726 | 回复: 6 | ||
believeff铁虫 (小有名气)
|
[求助]
求对这段程序理解
|
|
subroutine output(matrix) implicit none integer::m,n real::matrix(:,  integer::i character(len=20)::for='(??(1x,f6.3))' m=size(matrix,1) n=size(matrix,2) write(for(2:3),'(I2)')N do i=1,N write(*,fmt=for)matrix(i, end do return end subroutine output 这个子程序中设了个字符串变量是干嘛的？还有write(for(2:3),'(I2)')N 这句是什么意思？ |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有7人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有7人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 这段并行程序有问题，不知道错在什么地方请大家看看！
已经有6人回复
- 帮忙看一段程序
已经有3人回复
- 帮忙翻译文献中两段实验过程 谢谢大侠帮助
已经有3人回复
- 在vasp官方论坛看到一段如下代码，不知道如何使用，请各位指教
已经有5人回复
- 遗传算法的一段程序请教解释
已经有9人回复
- 【求助】50金币求大家帮忙改一段程序
已经有13人回复
- 重金求助一段试验过程的汉译英翻译
已经有2人回复
- 请大家赐教，这段c#程序语言在vs2008中为什么频频出错。求助c#语言连接数据库语言代码
已经有3人回复
- 【求助】这个带有分段函数偏微分方程怎么用for程序去解决
已经有14人回复
- 【求助】从一段程序看数据格式
已经有7人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【求助】高手帮看看这段C++代码
已经有4人回复
believeff
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 74.6
- 散金: 10
- 帖子: 92
- 在线: 13.5小时
- 虫号: 1374944
- 注册: 2011-08-21
- 专业: 河流海岸动力学与泥沙研究
2楼2011-10-27 10:51:07
huruiusst
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2687.3
- 帖子: 67
- 在线: 115.8小时
- 虫号: 1103368
- 注册: 2010-09-19
- 性别: GG
- 专业: 传热传质学
3楼2011-10-27 13:25:24
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
【答案】应助回帖
★ ★
believeff(金币+2): 多谢，再问一下，(1x,f6.3)的意思明白，( 5(1x,f6.3))是什么意思 2011-10-27 14:33:25
余泽成(金币+2): 谢谢参与应助！ 2011-10-27 21:54:52
believeff(金币+2): 多谢，再问一下，(1x,f6.3)的意思明白，( 5(1x,f6.3))是什么意思 2011-10-27 14:33:25
余泽成(金币+2): 谢谢参与应助！ 2011-10-27 21:54:52
|
for='(??(1x,f6.3))' 中的 '(??(1x,f6.3))' 是一个格式，但这个格式中有两个 ??，表示这只是一个模板。 write(for(2:3),'(I2)')N 使用的是 fortran 中的内部文件，这个时候， for 这个字符串中的 ?? 被 N 所代替，for 变成了 '( 5(1x,f6.3))' 这样的…… write(*,fmt=for)matrix(i,: ) 相当于 write(*,'( 5(1x,f6.3))')matrix(i,: ) |
4楼2011-10-27 13:35:48
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2011-10-27 14:38:40
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2011-10-28 16:22:02
believeff
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 74.6
- 散金: 10
- 帖子: 92
- 在线: 13.5小时
- 虫号: 1374944
- 注册: 2011-08-21
- 专业: 河流海岸动力学与泥沙研究
7楼2011-10-30 16:47:16
10