| 查看: 569 | 回复: 1 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 瑶瑶728521 的 35 个金币 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
瑶瑶728521金虫 (小有名气)
|
[交流]
【求助】求助：帮我分析分析这个子程序【已完成】已有1人参与
|
||
|
初学程序，完全不明所以。这是程序的一部分，想请懂的人指点下，谢谢哈！ subroutine writsp2(time2,tt,ss,pp,k) dimension time2(k),tt(201,k),ss(201,k),pp(201,k) write(2,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k) write(2,10) write(*,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k) write(*,10) 10 format(2x,f6.0,3x,f9.3,3x,f9.3,3x,f9.3) write(2,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k) write(2,20) write(*,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k) write(*,20) 20 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4) write(2,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k) write(2,30) write(*,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k) write(*,30) 30 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4) return end [ Last edited by wangen994 on 2010-5-9 at 22:43 ] |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
瑶瑶728521(金币+15):谢谢，谢谢，又学到一些，嘻嘻，真的感谢你，这么麻烦你！ 2010-04-20 14:32
wangen994(程序强帖+1):欢迎常来，呵呵 2010-05-09 22:44:29
wangen994(程序强帖+1):欢迎常来，呵呵 2010-05-09 22:44:29
|
子函数writesp2 输入变量为time2,tt,ss,pp,k subroutine writsp2(time2,tt,ss,pp,k) 指定各变量的维数 dimension time2(k),tt(201,k),ss(201,k),pp(201,k) 将各变量写入文件，格式按照第10行的格式，j=1,k表示j从1到k进行循环，增量为1 write(2,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k) write(2,10) 和上面的语句相同，只是这是输出到屏幕 write(*,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k) write(*,10) 输出格式，x表示空格，前面的数字表示空格的数量，fa.b是以a个字符宽来并表示浮点数，小数点后面的部分占b个字符宽，表示输出的实数的格式。下面的语句跟上面的一样 10 format(2x,f6.0,3x,f9.3,3x,f9.3,3x,f9.3) write(2,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k) write(2,20) write(*,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k) write(*,20) 20 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4) write(2,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k) write(2,30) write(*,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k) write(*,30) 30 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4) return end |
2楼2010-04-20 11:32:29