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
|
programme Fortran
implicit none
double precision pcr, tcr, vcr, par(4)
integer nrec, irec, i
C 80 c'est beaucoup trop
character*10 aux
C c'est fortement déconseillé de prendre un nombre < 10
open(21,file='data.txt',status='old',access='sequential')
read(21,*) nrec
write(*,*) nrec
do 100 irec=1,nrec
read(21,fmt='(a)') aux
read (21,*) pcr, tcr, vcr
read (21,*) (par(i), i = 1, 4)
C- pour vérifier ce qu'on lit
write (*,*) aux
write (*,*) pcr, tcr, vcr
write (*,*) (par(i), i = 1, 4)
100 continue
end |
Partager