Bonjour,
je dois faire un programme qui met 20 valeurs aléatoires dans un tableau (tableau d'une seule colonne). et ecrire se tableau dans un fichier .TXT. Ensuite je dois faire un tri a bulles de ces valeurs pour les classer dans l'ordre croissant et le mettre dans un autre fichier.txt.
Donc j'y ai passé toute mon aprem et il me met une erreur, je ne comprend pas...

voici le code :
Code:
program tri
use dflib
implicit none 
integer, parameter	::n=20
real				::tab(n),A,B
integer				::i,k

open (10,file='tab.txt')
	do i=1,n
		call RANDOM (A)
		B=100*A
		write (10,*)B
		tab(i)=B				!*100 parce que random genere des valeurs de 0 a 1
	enddo
close (10)

Write(*,*)tab
call trier(tab)
end
 
subroutine trier(tab)
implicit none
integer i
real tab(20),temp
open (12,file='tab.txt')
read(12,*)tab
do i=1,20
	if (tab(i)>tab(i+1)) then
	temp=tab(i)
	tab(i)=tab(i+1)
	tab(i+1)=temp
	endif
enddo
close(12)
open(13,file='tri.txt')
write(13,*)tab
close(13)
end
aidez moi s'il vous plait. dites moi ce qu'il ne va pas

thibaut