zhangsw13 发表于 2019-10-24 14:54:37

Fortran90用write输出数据出现错误

本帖最后由 zhangsw13 于 2019-10-24 14:55 编辑

做数值计算，最后输出数据，代码是这样的
    open(fid,file=trim(fpath)//'/p1.dat')
    write(fid,120) (x(i),i=1,n)
    write(fid,120) h0
    do i = 1,n
      write(fid,120) (p(i,j),j=1,n)
    end do
    do i = 1,n
      write(fid,120) (h(i,j),j=1,n)
    end do
    close(fid)

120 format(512(e15.8,1x))

之前用的时候都没有问题，但是最近突然出现了似乎是一些科学计数法的E指数变成了负整数，如图所示

对此完全没有头绪，希望能够得到帮助

vvt 发表于 2019-10-24 16:48:06

    open(fid,file=trim(fpath)//'/p1.dat')
    write(fid,120) x(1:n)
    write(fid,120) h0
    do i = 1,n
      write(fid,120) p(i,1:n)
    end do
    do i = 1,n
      write(fid,120) h(i,1:n)
    end do
    close(fid)
120 format(512(es16.8e3,1x))

zhangsw13 发表于 2019-10-24 17:13:09

vvt 发表于 2019-10-24 16:48
    open(fid,file=trim(fpath)//'/p1.dat')
    write(fid,120) x(1:n)
    wr ...

刚刚也找到原因了，十分感谢！
页: [1]
查看完整版本: Fortran90用write输出数据出现错误