Как кодировать Fortran для чтения файла данных и печати определенных строк? - PullRequest
Новая
       32

Как кодировать Fortran для чтения файла данных и печати определенных строк?

0 голосов
/ 25 марта 2019

Я создал код, который читает файл данных и распечатывает его из 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

~

...