Fortran Coder

标题: Fortran90用write输出数据出现错误 [打印本页]

作者: zhangsw13 时间: 2019-10-24 14:54
标题: 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

[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

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)