版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

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 ]

回复此楼

» 猜你喜欢

5个%2F，非固定段22个字母已经有10人回复
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子已经有16人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有3人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有6人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有4人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有6人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有6人回复
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急已经有4人回复
国社科通讯评审已经有6人回复
面上的水很深已经有21人回复

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

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