24小时热门版块排行榜    

查看: 2230  |  回复: 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)

我们都爱小木虫

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

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 追风王冠 的主题更新
信息提示
请填处理意见