Bonjour à tous,

J'ai écris un simple programme qui fait le tri et je ne sais pas ce que j'ai fait de faux .
J'ai mis le tri en commentaires, parce que dejà dès le début du programme je n'arrive pas à afficher les valeurs dans le fichier... Pourriez-vous m'aider svp?
Voici mon programme :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
         integer :: n =20
 
	  double precision, dimension(2000) :: X
          double precision, dimension(2000) :: Y  
 
 
   open(16,file='test1.dat',status='unknown',access='append')
   open(17,file='test2.dat',status='unknown')
   open(15,file='test3.txt',status='unknown')
 
	  do i=1,n
             read(16,'(f11.3,es10.3,a3,a3)',end=100)X(i),Y(i)
          end do
 
 100      continue
 
          do i=1,n
          write(17,*)X(i),Y(i)
	  enddo
 
 !         do k=1,n
 !             do h=k+1, n+1
!	      write(*,*)'k',k
!	      write(*,*)'h',h
!                   if(X(h) .gt. X(h+1)) then
!                   col_1=X(h)
!                   X(h)=X(h+1)
 !                  X(h+1)=col_1
!                   col_2=Y(h)
!		    Y(h)=Y(h+1)
!		    Y(h+1)=col_2		    
 !                  endif
 !             enddo
 !        enddo
 
!     	do i = 1, n
! 	     write(15,*)X(i),Y(i)        
!	end do 
 
	close(15)
	close(16)
	end program