Fortran90用write输出数据出现错误

zhangsw13

做数值计算，最后输出数据，代码是这样的
    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

[Fortran] 纯文本查看 复制代码

    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

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

刚刚也找到原因了，十分感谢！