Question

我理解iostat的使用，当我们从终端输入时如何设置状态io<0以便程序理解输入的结束？

例如在一个简单的代码中找到意思：

program mean
implicit none
real :: x
real :: gmean, amean, hmean
real :: summ,pro,invsum
integer :: i, valid
integer :: io, countt

countt=0
valid=0
summ=0
pro=1
invsum=0

do
    read(*,*,iostat=io) x
    if (io<0) exit
    countt=countt+1
    if (io>0) then
        write(*,*) 'error in input..try again !!!'
    else
        write(*,*) 'Input data #.',countt,':',x
        if (x<=0) then
            write(*,*) 'input <=0..ignored !!'
        else
            valid = valid + 1
            summ = summ + x
            pro = pro*x
            invsum = invsum + (1.0/x)
        end if
    end if
end do
if (valid>0) then
    amean=summ / valid
    gmean = pro**(1.0/valid)
    hmean=valid / invsum

    write(*,*) 'number of valid items --->',valid
    write(*,*) 'arithmetic mean --> ',amean
    write(*,*) 'geometric mean --> ',gmean
    write(*,*) 'harmonic mean --> ',hmean
else
    write(*,*) 'no valid inputs !!'
end if
end program mean

当我执行代码时，除了继续要求输入外，一切正常。我不明白如何制作io<0。

Answer 1

在Unix系统（如Linux和MAC OS）上，您可以使用 Ctrl - d 来指示文件的结尾。

在Windows上，使用 Ctrl - z （来自here）。

此Wikipedia article比较各种操作系统上的其他命令行快捷方式。

Answer 2

我喜欢对用户好（即使它只是我......）

character*80 input
real val
integer stat
input=''
do while(input.ne.'e')
 write(*,'(a)',advance='no')'enter val [e to end]: '
 read(*,'(a)',iostat=stat)input !iostat here to catch ^d and such
 if(stat.ne.0)input='e'
 if(input.ne.'e')then
  read(input,*,iostat=stat)val  !check iostat here
                                !in case user entered some
  if(stat.ne.0)then             !other non-number
   write(*,*)val
  else
   write(*,*)'expected a number'
  endif
 endif
enddo
end

iostat和从终端输入

2 个答案: