fortran里的call if_write()
时间: 2024-03-23 16:37:33 浏览: 13
Fortran中的if_write()是一个IO函数,用于向外部文件中写入数据。它的语法如下:
```
CALL IF_WRITE(unit, data, size, count, ierr)
```
其中,unit是文件的逻辑单元号;data是要写入文件的数据;size是数据的元素数;count是要写入的元素数;ierr是一个整数变量,用于存储IO操作的错误码。
以下是一个将数据写入文件的示例:
```
program write_file
implicit none
integer :: unit, i, ierr, count
real :: data(10)
unit = 10
open(unit, file='data.txt', status='new', action='write')
do i = 1, 10
data(i) = i**2
end do
count = 10
call if_write(unit, data, 1, count, ierr)
if (ierr /= 0) then
write(*,*) 'Error writing file'
else
write(*,*) 'Data written to file'
end if
close(unit)
end program write_file
```
上面的程序创建了一个新的文件,并使用if_write()函数将长度为10的实数数组写入文件中。如果写入成功,程序输出“Data written to file”,否则输出“Error writing file”。