Déterminer le nombre de lignes dans un fichier avec le fortran

Supposons que l'on dispose d'un fichier "data.txt" et que le nombre de lignes de celui-ci est inconnu. Voici alors un simple programme en fortran pour déterminer le nombre de lignes dans le fichier:

program NumberOfLinesFile

implicit none

integer :: Nb_line

integer :: ierr ! successful (if == 0) ou failed (si /= 0)

open(1,file='data.txt', form="formatted", iostat=ierr,status="old")

Nb_line = 0
do while (ierr==0)
read(1,*,iostat=ierr)
if (ierr==0) Nb_line = Nb_line + 1
enddo

close(1)

write(6,*) 'Nombre de lignes dans le fichier: ', Nb_line

end program NumberOfLinesFile

Résultat dans cet exemple:

 Nombre de lignes dans le fichier:  512

Recherches associées