Я должен преобразовать входной файл символов ASCII и не ASCII в двоичный вектор, используя Fortran 90 - PullRequest
0 голосов
/ 20 июня 2019

Есть ли рутина в наличии?Я не нашел ни одного

Спасибо

1 Ответ

0 голосов
/ 20 июня 2019

В предположении, что вы хотите прочитать двоичный файл, который содержит байты для печатаемых символов, таких как «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 во входном файле.

...