fortran读文件如何一直读到文件结束

在FORTRAN中，可以闭厅厅使用DO WHILE结构来实现读取文件直到结束。下面提供一段简单的示例代码：

```

program read_file

implicit none

integer :: num

character(len=30) :: line

! 打开文件并读取

open(1, file='filename.txt', status='old')

! 读取直到到达文件末尾

DO WHILE (.TRUE.)

READ(1,*,IOSTAT=num) line

IF (num<0) THEN

EXIT

END IF

! 在此处对读入的数据进行处理

END DO

! 关闭文件

close(1)

end program read_file

```

在上述代码中，首先使用open函数打开文件，并将其分配给文件号1。然后使用DO WHILE循环结构和READ语句来读取文件中的每一行数据并进行处理，直到IOSTAT返回一个负数，表示到达伏脊了文件的末尾。在每次循环中，可以对读轿隐取到的数据 *** 作，例如写入输出文件或存储在数组中等。最后，使用close函数关闭文件。

需要注意的是，上述代码中的文件名需要替换为实际的文件名，并确保该文件位于程序可以访问的路径下。

#include "stdio.h"

main()

{

int max,min,i

scanf("%d\n",&i)

max=min=i

while(!feof(stdin))

{

scanf("%d\n",&i)

if (max<i) max=i

if (min>i) min=i

}

printf("max=%d\n",max)

printf("min=%d\n",min)

getch()

}

---