Coordonnées des points

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:

---

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

---