fortran转化二进制

在Fortran中，可以使用INQUIRE函数获取文件的信息，例如文件的大小。然后，可以使用OPEN函数打开文件并读取数据，使用WRITE函数写入二进制数据。下面是一个将Fortran数组转换为二进制文件的示例：

program convert_binary
  implicit none
  
  integer, parameter :: n = 10
  real :: data(n)
  integer :: i, unit_num, file_size
  character(len=30) :: file_name
  
  ! Initialize data
  do i = 1, n
    data(i) = i**2
  end do
  
  ! Open file
  file_name = 'data.bin'
  open(newunit=unit_num, file=file_name, access='stream', status='replace', action='write')
  
  ! Write data to file
  write(unit_num) n
  write(unit_num) data
  
  ! Get file size
  inquire(unit_num, size=file_size)
  
  ! Close file
  close(unit_num)
  
  ! Print file information
  print*, 'File name:', file_name
  print*, 'File size:', file_size, 'bytes'
  
end program convert_binary

在此示例中，我们首先使用WRITE函数将数组大小和数据写入文件。然后，我们使用INQUIRE函数获取文件的大小，并使用PRINT语句打印文件信息。

请注意，在打开文件时，我们使用ACCESS='STREAM'参数以便在二进制模式下读取和写入数据。我们还使用STATUS='REPLACE'参数以便覆盖现有文件（如果存在）并ACTION='WRITE'参数以便将数据写入文件。