Rencontre EOF inattendue

**marc-alex** · 06/04/2009, 11h03

Bonjour à tous,

J'essaye de lire un fichier txt, malheureusement il rencontre EOF alors qu'il devrait en être encore loin...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
  integer,parameter :: nzonal    =  43200        
  integer,parameter :: nmerid    =  21600            
  integer,parameter :: nland = 2               
 
 
  character(len=264) :: fnin              
  character(len=264) :: fnout             
 
 
! inout file stuff
  integer,parameter :: iunit = 10
  integer,parameter :: junit = 20
  integer :: ios,iopen
 
! misc
  integer,dimension(nland)             :: land
  integer(kind=1), dimension(nzonal) :: indictot
 
 
 
  fnin="file.txt"
  fnout="out.txt"
 
  open (iunit,file=trim(fnin),iostat=ios,status='old',action='read')
  if (ios /= 0) then
     stop 'Problem opening input file'
  end if
  open (junit,file=trim(fnout))
 
  do i=1,nmerid
     if(mod(i,100).eq.0) print *,int(100.*float(i)/float(nmerid)),"%"
     indictot=0
     read(iunit,*) indictot(1:nzonal)
     do j=1,nzonal
          if(indictot(j).ne.1) indictot(j) = 0                  	     
     enddo
     write(junit,*) (indictot(j),j=1,nzonal)
  enddo
 
close(junit)
close(iunit)

Ce qui donne à l'éxecution

Code :

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

1
2
3
 
          25 %
Fortran runtime error: End of file

J'ai vérifié 99 fois le fichier d'entrée et ces dimensions sont bonnes.
Je peux fournir le fichier txt si nécessaire.

**kango** · 06/04/2009, 14h59

bonjour,

de la même manière que tu as transmis en argument iostat à ton open, tu peux transmettre en argument iostat au read qui te pose problème.

ça peut être utile par exemple pour afficher la dernière ligne qui a été lue correctement.

j'ai bien sûr eu plusieurs fois ce problème, cela vient très très rarement du fichier. es-tu sûr de l'étendue de tes boucles de lecture (nmerid) voir nzonal ?

**Sylvain Bergeron** · 06/04/2009, 15h00

Le problème vient presque certainement du format de lecture libre (list-directed), soit l'étoile * dans le read. Va voir la discussion suivante :

http://www.developpez.net/forums/d53...cture-fichier/

surtout le message #6.