1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
program lecture
implicit none
integer,parameter :: nblignes=4 ! nombre de lignes du fichier
integer :: numero
integer :: valeur
integer :: donnees(nblignes) ! donnees, une fois rearrangees dans l'ordre
integer :: i
open(42,file="fichier.txt") ! on ouvre le fichier
do i=1,nblignes
! on lit une ligne du fichier
read(42,'(tr4,i1,tr3,i5)')numero,valeur
write(*,*) "numero=",numero,"valeur=",valeur
! on stocke la donnee lue dans la case correspondante du tableau
donnees(numero)=valeur
enddo
write(*,*) "donnees() =",donnees
end program lecture |
Partager