.dat 文件的长度比预期的要短
length of .dat file is shorter than expected
当我编写以下 .dat
文件时,即使嵌套的 do
循环正确迭代了 6400 次,该文件也只有 6397 行长。另外,当我将数据 NX(BR,BC)
输出到终端时,一切都很好。只有 .dat 文件缺少几行。知道可能是什么问题吗?
注意 NX
定义为 REAL(8),DIMENSION(0:2000,0:2000) :: NX
这是代码的其余相关部分:
OPEN(UNIT=18,FILE='test_file.dat',STATUS='UNKNOWN',ACTION='WRITE')
I = 0 ! for debugging
DO BC = 0,39
DO BR = 0,159
! do some calculations here to calculate NX(BR,BC)
! for debugging
I = I + 1
WRITE(18,*) NX(BR,BC)
ENDDO
ENDDO
WRITE(*,*) I ! outputs 6400
我用我的 raspberry pi 4 (GNU Fortran (GCC) 11.2.0) 测试了你的代码,得到了 6400 行零。
可能写入缓冲区没有正确刷新。您是否尝试关闭并 re-opening 文件:
close(18)
当我编写以下 .dat
文件时,即使嵌套的 do
循环正确迭代了 6400 次,该文件也只有 6397 行长。另外,当我将数据 NX(BR,BC)
输出到终端时,一切都很好。只有 .dat 文件缺少几行。知道可能是什么问题吗?
注意 NX
定义为 REAL(8),DIMENSION(0:2000,0:2000) :: NX
这是代码的其余相关部分:
OPEN(UNIT=18,FILE='test_file.dat',STATUS='UNKNOWN',ACTION='WRITE')
I = 0 ! for debugging
DO BC = 0,39
DO BR = 0,159
! do some calculations here to calculate NX(BR,BC)
! for debugging
I = I + 1
WRITE(18,*) NX(BR,BC)
ENDDO
ENDDO
WRITE(*,*) I ! outputs 6400
我用我的 raspberry pi 4 (GNU Fortran (GCC) 11.2.0) 测试了你的代码,得到了 6400 行零。
可能写入缓冲区没有正确刷新。您是否尝试关闭并 re-opening 文件:
close(18)