Utilisation de la fonction Merge
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:
Citation:
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:
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.
