我必须使用Fortran 90将ASCII和非ASCII字符的输入文件转换为二进制矢量

Question

有没有可用的例行程序？我没找到

谢谢

Answer 1

假设您要读取一个二进制文件，其中包含可打印字符（如“ A” = 65）和不可打印字符（如“ ESC” = 27）的字节，这样可能会有所帮助？

integer(kind=selected_int_kind(1)), dimension(1000) :: vector
open(unit=10,file='data.data', access='stream', form='unformatted')
i=1
read(unit=10, iostat=ios) vector(i)
do while(ios==0)
  i=i+1
  read(unit=10, iostat=ios) vector(i)
enddo

为简单起见，我假定向量的长度最多为1000。现在，向量将包含输入文件中ASCII字符的十进制表示形式。