如何编码fortran以读取数据文件并打印某些行？

Question

我创建了一个代码，该代码可以读取数据文件并打印出20行。我想通过使代码读取数据文件中的所有行，并仅打印出符合if语句的某些行来开发此代码。每个数据行有4个值，我希望它查看第3个值，看是否有变化，然后打印该行值。有人可以帮忙吗？

  program datafile

  implicit none
  real*8 um,nm,pN,s
  integer*8 au
  integer*8 i
  real, dimension(1:4)
  real, dimension(4) :: file

  WRITE(*,*)"test"
  OPEN(UNIT=1, FILE="file.dat",STATUS="old",ACTION="read")
  WRITE(*,*)"file opened"


  do i=1,20
     read(1,*) file


     write(*,*)file
  enddo

  close(unit=1)
  end program datafile

〜