[文件读写] Fortran90调用一个读取csv数据的函数子程序的问题

function P(n) result(Pb)
implicit none
integer::i
integer,intent(in)::n
real::a(1827),b(1827),c(1827),d(1827),e(1827),Pb
open(1,file='et.csv')
read(1,*)
do i=1,1827
    read(1,*)a(i),b(i),c(i),d(i),e(i)
enddo
close(1)
Pb=b(n)
end function

program main
implicit none
integer::n
real::x,P
print*,'input n'
read*,n
x=10*P(n)
print('(f17.15,4x,f17.15)'),P(n),x
end program