Как я могу извлечь данные из файла данных?

Question

Я хочу извлечь значения в 1,3,5,9,11, .... строк моего файла .dat, используя код на фортране. Это мой код

   program one
   integer x, y, z

   open (unit=10, file='try.dat', status='old')
   open (unit=20, file='run_energy.dat', status='unknown')
   dimension time(40), energy(40)


   do y=1,13
   z=2*(y-1)
   do x=(z+1),(z+1)
   read (10,*) time(x), energy(x)
   write(20,*) time(x), energy(x)
   end do
   end do
   stop
   end

~
Но я не получаю значения, соответствующие линиям, которые я упомянул выше.Можете ли вы, пожалуйста, кто-нибудь помочь мне.

Спасибо.

Answer 1

Вам нужно пропустить строку (фиктивное чтение).Примерно так:

   x = 1 
   do i=1,13
     ! Read only if at correct line of 'try.dat'
     if (i == 2*(x-1)+1) then 
       read (10,*) time(x), energy(x)
       write(20,*) time(x), energy(x)
       ! Increment x 
       x=x+1
     else
       ! Skip line
       read (10,*)
     end if
   end do

С уважением.