24小时热门版块排行榜

返回列表

当前主题已经存档。

【有奖交流】积极回复本帖子，参与交流，就有机会分得作者瑶瑶728521 的 35 个金币

本帖产生 1 个程序强帖，点击这里进行查看

瑶瑶728521

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1694.7
散金: 133
帖子: 87
在线: 38.6小时
虫号: 840213
注册: 2009-09-04
性别: MM
专业: 化工系统工程

[交流] 【求助】求助：帮我分析分析这个子程序【已完成】已有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 ]

回复此楼

» 猜你喜欢

北京211副教授，35岁，想重新出发，去国外做博后，怎么样？已经有7人回复
Cas 72-43-5需要30g，定制合成，能接单的留言已经有7人回复
磺酰氟产物，毕不了业了！已经有5人回复
论文终于录用啦！满足毕业条件了已经有25人回复
2026年机械制造与材料应用国际会议（ICMMMA 2026）已经有3人回复
自荐读博已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有5人回复
不自信的我已经有5人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

人生最精彩的不是实现梦想的瞬间,而是坚持梦想的过程!

1楼 2010-04-20 11:05:01

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wdecai

金虫 (初入文坛)

程序强帖: 1
应助: 0 (幼儿园)
金币: 799.6
帖子: 47
在线: 124.4小时
虫号: 720549
注册: 2009-03-11
性别: GG
专业: 结构工程

瑶瑶728521(金币+15):谢谢，谢谢，又学到一些，嘻嘻，真的感谢你，这么麻烦你！ 2010-04-20 14:32
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

赞一下(1人)

回复此楼

好好学习，天天向上

2楼2010-04-20 11:32:29