Bonjour,

Je travail sur un programme de tri de tableau et j'ai du mal à comprendre la fonction merge. J'ai voulu commencer par faire 2 tableaux tout simple et utiliser cette fonction mais ca ne marche pas.

Je mets le code ci dessou qui fait meme pas 25 lignes mais sur lequel je bloque lors de la compilation. Le message d'erreur est le suivant:

fortcom: Error: test.f90, line 20: Syntax error, found END-OF-STATEMENT when expecting one of: => = . ( %
MERGE (t1, t2, t1>2 )
---------------------^
compilation aborted for test.f90 (code 1)
Je mets aussi le code:
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
 
program test
 
implicit none
 
integer :: i,j
real*8, dimension (5) ::t1,t2
real*8 :: epsi
 
print*, 'Donnez la valeur de epsi pour le tri de tableau';read*, epsi
 
do i = 1,5
print*,'Donnez les elements du tableau 1';read*, t1(i)
enddo
 
do i = 1,5
print*,'Donnez les elements du tableau 2';read*, t2(i)
enddo
 
 
MERGE (t1, t2, t1>2 )
 
 
end program
Je pense que c'est tout simple mais je bloque.

Merci de vos reponses.