fortran语言怎么将数据写入文件
时间: 2023-12-03 16:44:24 浏览: 36
在Fortran中,可以使用WRITE语句将数据写入文件。下面是一个简单的示例程序,演示了如何将一些数据写入文件:
```
program write_data_to_file
implicit none
integer :: i, n
real :: x(10)
character(len=20) :: filename
! 打开文件
print *, "请输入文件名:"
read *, filename
open(unit=10, file=filename, status='replace', action='write', iostat=n)
if (n /= 0) then
print *, "文件打开失败!"
stop
end if
! 写入数据
do i = 1, 10
x(i) = i**2
end do
write(10, *) x
! 关闭文件
close(10)
print *, "数据已经写入文件 ", trim(filename)
end program write_data_to_file
```
在上面的程序中,我们首先从用户那里获取文件名,然后使用`OPEN`语句打开文件。打开文件时,我们指定了`UNIT=10`表示使用编号为10的文件单元进行文件操作;`FILE=filename`表示要打开的文件名;`STATUS='REPLACE'`表示如果文件存在则覆盖原文件;`ACTION='WRITE'`表示要对文件进行写操作;`IOSTAT=n`表示获取I/O状态码,以便判断文件是否打开成功。
接下来,我们使用`WRITE`语句将数组`x`的内容写入文件。`WRITE(10, *) x`表示将数组`x`的内容写入编号为10的文件单元,`*`表示使用默认格式。
最后,我们使用`CLOSE`语句关闭文件。