Question

我尝试实现一个读取数字n的代码，创建一个向量来存储n个双精度数，读取这个数字，调用子程序printminmax（）来查找最小值和最大值。我的代码非常适合普通数字（整数，实数等）但是当我有科学记数法（0.3412E + 01）时。为什么？我想*阅读所有格式。感谢

implicit none

integer, dimension(:), allocatable :: x
    integer :: n

    open (unit=77, file='input2.dat', action='read', status='old')
    read(77,*), n
    allocate(x(n))

    call printminmax(n)

    deallocate(x)

    end 

 subroutine printminmax(y)

implicit none

integer, dimension(:), allocatable :: x
integer :: y,max,min,i
   allocate(x(y))
   read(77,*) x
   !print *,'Maximun=', maxval(x)

   !print *,'Minimun=', minval(x

   !initialize the value max & min
max=x(1)
min=x(1)
do i=2,y
    if (x(i)>max) max=x(i)
    if (x(i)<min) min=x(i)
end do
    write(*,*) 'Maximum=',max
write(*,*) 'Minimum=',min

    end subroutine printminmax

堆栈输入的一个例子是

  1000
  5.39524398466520e-01
  9.85099770130787e-01
  7.38946122872518e-01
  6.47771620257608e-01
  8.80871051119695e-01
  2.99375585725816e-02

我采用科学记数法的错误是

   At line 13 of file io.f90 (unit = 77, file = 'input3.dat')
   Fortran runtime error: Bad integer for item 1 in list input

Answer 1

好吧我发现它。我应该在x上有双精度，没有整数。

带子例程的输入数组文件（.dat）的最小值和最大值

1 个答案: