|
本帖最后由 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指数变成了负整数,如图所示
对此完全没有头绪,希望能够得到帮助
|
|