Bonjour,

Je fait un petit programme capable de générer 100 points. L'idée est de savoir le cordonnée pour un points donnée et les coordonnées de ses plus porches voisin. Es ce que quelqu'un pourra m'aide svp?

merci d'avance
Nadar

voici le 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
program test
implicit none
integer, parameter :: max=50, numfich=10
integer :: i, j, n, m, k
real, dimension (2,max) :: X,Y
real :: dx, dy
character (len=12) :: tableau
tableau = "fich"
dx = 1
dy = 1
n=6
m=6
open (10, file=tableau, status='old') 
  do i= 1, n
  do   j= 1, m    
    k= (i-1)*m + j
 
 
X(1,k) = i*dx
X(2,k) = j*dy
 
write(10,*) k,  X(1,k),  X(2,k)
enddo
enddo
close(10)
end