Fortran90用write输出数据出现错误

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

本帖最后由 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

[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 · 发表于 2019-10-24 17:13:09

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 ...

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

[输入输出] Fortran90用write输出数据出现错误

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章