[Fortran 90] Détection de fin de fichier

Bonjour

Je suis debutant avec Fortran 90. J'ai fait un petit programme test dont le but est simplement de copier une liste de nombres d'un fichier texte vers un autre qui est cree par le programme. En fait, j'aimerais ne pas avoir a connaitre la taille de cette liste, que le programme detecte tout seul cette taille. J'ai entendu parler du parametre end dans la fonction read et aussi de la commande allocatable mais je n'arrive pas a m'en servir correctement.

Pourriez-vous m'aider, s'il vous plait?

Voici le programme et la liste en pieces jointes

Salut !
Tes fichiers attachés sont illisibles. Utilise plutôt les balises code.

Jean-Marc Blanc

Bonjour,

Ton programme:

Code:

---

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

program essai   integer :: i,j integer, allocatable, dimension(:,:) :: m,p character(99) :: outputfile   open (unit=1,file='listeessai',form='formatted',status='old',action='read')   i=1 do read (1,'(i2)', end=100) m(i,1) p(i,1)=m(i,1) i=i+1 end do 100 continue allocate (m(i,1)) allocate (p(i,1))     type *,'outputfile :' read (*,'(a30)') outputfile   OPEN (UNIT =2,FILE =outputfile1,form='formatted',status="new",action="write")   do i=1,10 write (2,'(i2)') p end do   end program essai

---

pose problème sur plusieurs points:

Code:

---

1 2 3 4 5 6 7 8 9

do read (1,'(i2)', end=100) m(i,1) p(i,1)=m(i,1) i=i+1 end do 100 continue allocate (m(i,1)) allocate (p(i,1))

---

Tu ne peux pas d'abord lire des valeurs et les mettre dans un tableau qui n'existe pas encore...
Il y a plusieurs manières de faire, mais le plus simple est de faire les choses en deux temps: D'abord identifier le nombre de lignes du fichier pour connaitre la taille des tableaux qui seront nécessaires, allouer ces derniers, puis faire un deuxième passage de lecture des données proprement dites.

Autre point important: commence toujours tes programmes par l'instruction 'implicit none':

Code:

---

1 2 3 4

program essai implicit none ! déclaration des variables:

---

ce qui force le fait de devoir déclarer toutes les variables qui seront utilisées et qui évitera les erreurs du style:

Code:

---

1 2 3 4

read (*,'(a30)') outputfile   OPEN (UNIT =2,FILE =outputfile1,form='formatted',status="new",action="write")

---

'outputfile1' n'est pas 'outputfile' et sera, comme tu t'en doutes, source de problèmes.

Code:

---

1 2	type *,'outputfile :'

---

n'est pas une instruction Fortran ! Ce qu'a dû te dire ton compilateur quand tu as tenté de compiler ton programme. A ce sujet, je te conseille de regarder au moins brièvement la doc de ton compilateur et d'enclencher toutes les options d'analyse et débogage pour t'aider à isoler les problèmes que tu rencontres.

Pour répondre à ta question initiale, il y a un paramètre optionnel des routines open et read, 'iostat' (input-output status), qui permet de savoir si l'ouverture/ la lecture s'est bien passée (renvoie zéro si tout va bien) et peut servir à déterminer le nombre de lignes d'un fichier. Par exemple:

Code:

---

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

program nombredelignes ! recherche du nombre de lignes d'un fichier implicit none   integer :: nb=0 ! nombres de lignes du fichier integer :: uin=42 ! unitee logique associee au fichier integer :: ierr ! etat de reussite(si ==0) ou echec (si /= 0) integer :: number ! nombre entier a lire character(len=100) :: infile="listeessai" ! nom du fichier a lire   !1. Ouverture du fichier open(uin,file=infile,form="formatted",iostat=ierr,status="old") if (ierr/=0) then write(*,*) "Impossible d ouvrir le fichier ",trim(infile) ! on s'arrete là stop endif   !2. Lecture du fichier; on lit (et compte le nombre de lignes correctement lues) ! tant qu'il n'y a pas d'erreur de lecture. do while (ierr==0) read(uin,*,iostat=ierr) number if (ierr==0) then ! la lecture s'est bien passee ! on incremente le compteur du nombre de lignes nb=nb+1 endif enddo   write(*,*) 'le fichier ',trim(infile),' contient ',nb,'lignes'   end program nombredelignes

---

Dans ton cas il faudrait ensuite une étape 3 ou tu alloues tes tableaux, maintenant que tu connais la taille qu'ils devront avoir, puis une étape 4 ou tu lis les données (n'oublie pas de rembobiner le fichier avant!).

Bonne continuation.

Ehouarn

Merci pour votre aide!!

Ca marche tres bien maintenant!

A plus