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'参数以便将数据写入文件。