24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2243  |  回复: 0

追风王冠

新虫 (小有名气)

[求助] fortran语言怎么输出计算过程的结果

open(1,file="../data/f_xv.dat"
      open(2,file="../data/f_state.dat"
      open(3,file="../data/f_other.dat"
     
      write(1,*) ntotal
      do i = 1, ntotal         
        write(1,1001) i, (x(d, i), d=1,dim), (vx(d, i), d = 1, dim)              
        write(2,1002) i, mass(i), rho(i), p(i), u(i)
        write(3,1003) i, itype(i), hsml(i)                              
      enddo
      
1001  format(1x, I6, 6(2x, e14.8))
1002  format(1x, I6, 7(2x, e14.8))
1003  format(1x, I6, 2x, I4, 2x, e14.8)      
                                       
      这是输出结果的部分程序,但是只能输出最终的运算结果,我看了,原因是每次过程的结果总是把上一次的结果给覆盖掉了,应该怎么改动一下?

» 猜你喜欢

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

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 追风王冠 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081700学硕,323分,一志愿中国海洋大学求调剂学校 +17 披星河 2026-04-04 17/850 2026-04-07 12:50 by 尽舜尧1
[考研] 085602化学工程268分蹲调剂 +10 月照花林。 2026-04-01 10/500 2026-04-07 08:51 by 晴空210210
[考研] 274求调剂求调剂 +6 Jachenbingoo 2026-04-06 7/350 2026-04-06 23:09 by lbsjt
[考研] 一志愿苏州大学材料工程(085601)专硕有科研经历三项国奖两个实用型专利一项省级立项 +11 大火山小火山 2026-04-05 11/550 2026-04-06 22:55 by yunlongyang
[考研] 化学357分,考研调剂 +11 .Starry. 2026-04-04 12/600 2026-04-06 06:28 by houyaoxu
[考研] 0854电子信息319求调剂(接受跨专业调剂) +3 星星不眨眼喽 2026-04-05 3/150 2026-04-05 20:20 by 啵啵啵0119
[考研] 求调剂求调剂 +8 121. 2026-04-02 8/400 2026-04-05 20:15 by lys0704
[考研] 材料专硕(0856) 339分求调剂 +10 哈哈哈鹅哈哈哈 2026-04-04 10/500 2026-04-05 18:51 by 蓝云思雨
[考研] 329求调剂 +17 miaodesi 2026-04-02 20/1000 2026-04-05 18:33 by 蓝云思雨
[考研] 288求调剂 一志愿哈工大 材料与化工 +13 洛神哥哥 2026-04-03 13/650 2026-04-05 17:27 by zzx2138
[考研] 男生,一志愿沪9生物学071000,初试308求调剂 +3 刘墨墨 2026-04-04 3/150 2026-04-05 08:26 by barlinike
[考研] 一志愿华南师范361分,化学求调剂 +7 Nicole88888 2026-04-01 7/350 2026-04-04 18:28 by macy2011
[考研] 311求调剂 +20 zchqwer 2026-04-01 22/1100 2026-04-03 22:09 by lglzsd
[考研] 281求调剂 +10 aaawhy 2026-04-03 10/500 2026-04-03 21:42 by lbsjt
[基金申请] esi高被引论文是不是能对中标有所加分和帮助呢 +5 redcom 2026-04-01 6/300 2026-04-03 15:15 by Howard28
[考研] 321求调剂 +17 y-yh 2026-04-01 20/1000 2026-04-03 12:57 by y-yh
[考研] 生物学硕341求调剂 +4 你笑起来像云朵 2026-04-03 4/200 2026-04-03 10:32 by macy2011
[考研] 279求调剂 +6 qazplm0852 2026-04-02 6/300 2026-04-03 10:03 by 蓝云思雨
[考研] 一志愿北京科技,085601总分305求调剂 +9 半生瓜! 2026-04-01 11/550 2026-04-02 08:28 by Wang200018
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
信息提示
请填处理意见