| 查看: 584 | 回复: 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 ] |
回复此楼» 猜你喜欢
招博士
已经有4人回复
-
救命帖
已经有7人回复
-
限项规定
已经有6人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
最失望的一年
已经有18人回复
瑶瑶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