在Fortran程序中输入数据的方法主要有以下几种:
从文件读取数据
使用`READ`语句从文件中读取数据。例如:
```fortran
READ(file_unit, data_type, size)
```
其中`file_unit`是文件单元号,`data_type`是数据类型,`size`是要读取的数据元素个数。
从标准输入读取数据
使用`READ(*, data_type)`从标准输入(通常是键盘)读取数据。例如:
```fortran
READ(*, *) variable
```
这将读取一个变量,其类型由`data_type`指定。
命令行参数
使用`COMMAND_ARGUMENT_COUNT`函数获取命令行参数的个数,并通过循环读取每个参数。例如:
```fortran
INTEGER :: argc
CHARACTER(len=256) :: argv
argc = COMMAND_ARGUMENT_COUNT()
DO i = 1, argc
READ(*, '(A)') argv(i:i)
END DO
```
使用输入语句
`PRINT`语句可以用于在屏幕上显示提示信息,并读取用户输入。例如:
```fortran
PRINT *, 'Enter your name:'
READ(*, *) name
```
使用文件打开和关闭语句
使用`OPEN`语句打开文件,`CLOSE`语句关闭文件。例如:
```fortran
OPEN(file_unit, file='input.txt', status='old', action='read')
CLOSE(file_unit)
```
示例代码
```fortran
program read_data
implicit none
character(len=100) :: filename
integer :: i, n
real, dimension(10) :: data
print *, 'Enter the name of the file to read:'
read(*, '(A)') filename
open(unit=1, file=filename, status='old', action='read')
read(1, *) n
allocate(data(n))
do i = 1, n
read(1, *) data(i)
end do
close(1)
print *, 'Data read from file:', data
end program read_data
```
建议
文件路径:如果文件不在程序所在的目录下,需要提供完整的文件路径。
错误处理:在实际应用中,应该添加适当的错误处理代码,以确保文件打开和读取操作的成功。
数据类型:根据实际需求选择合适的数据类型,以确保数据的正确读取和存储。
通过以上方法,你可以灵活地在Fortran程序中实现数据的输入。