Discussion :

[astroflo]

bonjour

je lit un fichier ou je ne connais pas le nombre de ligne
en gros c'est un tableau de donnée

je souhaiterais connaitre la methode pour m'arrété à la fin du fichier à la fin de la lecture.
et donc faire un test de fin de fichier...

je sais qu'il existe dans les options de read une option de type endfile mais je ne comprend pas comment l'utilisé

voila le code que je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
open(unit=24,file='catalog',status='old',form='formatted',iostat=err)
 
    if (err==29) then
            write (*,*)" pas de fichier entree_attitude dans le repertoire arret du programme"
            call exit()
        endif
    do i=1,2000
 
        read(24,'(68f)',advance='yes',eor=888,end=999) cat(i,1:68)
        j=j+1
888     write(*,*)
        cycle
999     exit 
    end do

ca compile mais à l'execution sa plante

[genteur slayer]

j'aurais fait quelquechose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
logical bool
integer i,err,err2
real(kind=8) temp
real(kind=8),dimension(:,1:68),allocatable :: cat
 
inquire(file='catalog',exist=bool)
if (bool) then
  open(unit=24,file='catalog',status='old')
  i=0
  do   
    read(24,'(f)',iostat=err2) temp
    if (iostat/=0) exit()
    i=i+1
  end do
  close(24)
  allocate(cat,i)
  open(unit=24,file='catalog',status='old',position="rewind)
  Do j=1,i
    read(24,'(68f)',iostat=err2) cat(j,1:68)
  end do
else
  write (*,*)" pas de fichier entree_attitude dans le repertoire arret du programme"
end if