从二进制转换为 ASCII Fortran

Question

我尝试使用 fortran 将 input_file.binary 转换为数字 output_file.txt（或者如果有人有其他想法：pyton、java、c++ ...）。 ascii 文件是一个 11 行 N 列的文件，只有数字（即：1e-21, 0.0, 1 ....）。

我试试这个帖子ASCii to BInary Conversion Program in java，但这与我的想法有点不同：我想读取二进制文件并编写一个 output_file.dat，所以我尝试使用这个 fortran 代码：

 program binary
 implicit none

    integer :: i, n
    real, allocatable :: data(:,:)
    open(20,file="input.dat",status="unknown",err=88)
    n = 0
    do
        read(20,*,end=1)
        n = n+1
    end do
    1 rewind(20)
    allocate(data(n,11))
    OPEN(10, file="output_file.txt")
    do i = 1, n
        read(20,*) data(i,:)
        write(10,*) data(i,:)
    end do
    close(20)

 end program binary

当我想用nano file.binary 检查文件时，输出是这样的：

^@^@^@^@^@^@^@^C^@^@^A�^@^@^@^A^@^@^@^A^@^R�M0wc�6 �7�^@^@^@^FA0^@^@^@^@^@^@^@^@^‌​@^@^@^@^@^@^@^@^@^@@ �e^A^@^@^@^B+�^[2/[��^@^@^@^FAI�#$

我可以编译该程序，但是当我尝试运行它时，我收到以下错误消息：

forrtl: 严重 (59): 列表导向 I/O 语法错误，单元 20，文件 /.../input.dat 图像 PC 例程线源 ascii 0805D0AA 未知 未知 未知 ascii 0805B14D 未知 未知 未知 ascii 0804A1EA 未知 未知 未知 ascii 08049E67 未知 未知 未知 libc.so.6 B75CF4D3 Unknown Unknown Unknown

非常感谢您的帮助。

Answer 1

你写 ascii 文件是一个 11 行 N 列，然后像这样分配一个数组：

allocate(data(n,11))

这使得data 成为n-row、11-column 数组，这似乎转置了文件中的维度。如果您正在逐个元素地读取输入文件，这可能不会导致运行时系统引发错误，尽管它可能会给您留下您想要的数组的转置。

但是，您逐行读取输入文件。正如您所解释的那样，文件应该有 11 行数据，但您的程序尝试读取（和写入）n 行。同样，到目前为止，您的程序实际上并没有什么问题，尽管它可能没有按照您的预期进行。

但是您的程序希望输入文件中的每一行提供 11 个值，我猜它没有，导致您报告的错误。