Непосредственно читать определенную строку на фортране

Я хочу прочитать определенную строку файла, например 3-я строка файла input.dat. Мой нынешний код:

Program Read_a_line
Implicit None
Integer:: i
Real*8:: x,y    

open (10, file='input.dat', status='old')

do i=1,3
  read (10,*) x, y 
end do

  print*,'x=',x,' y=',y



End Program Read_a_line

Однако код считывает все данные, пока не достигнет 3-й строки. Можем ли мы просто прочитать третью строку? Можем ли мы прочитать несколько конкретных строк, например. только 2-я и 4-я строки.

Доступные в Интернете примеры делают аналогичный трюк. Мне было интересно, существует ли прямой путь в современной версии фортрана.

Мне немного любопытно!