Problèmematrice et do

Bonsoir
j'ai un problème avec do...
voici 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 25 26 27 28 29 30 31 32

! lecture des données DO I=NB,1,-1 ! evaluation de N CALL CALC(Y,X,I,N,...) DO J=1,N WRITE(*,'(40X,F10.2,F10.4)') X(J),Y(I,J) END DO END DO   ! LA PARTIE OU SE TROUVE LE PROBLEME DO J=1,NB DO J=1,N WRITE(*,*) Y(I,J) END DO END DO   END   SUBROUTINE CALL(Y,X,I,N,...) DO J=N-1,1,-1 .   .   .   . Y(I,J)=Y1 END DO returne END

---

Les valeurs qui s'affichent:
-----Y(1,N)-------
99.87
99.91
99.95
99.99
100.03
100.07
100.11
100.15
100.19
100.23
100.27
-----------
Les autres valeurs de la matrice prend la valeur de Y(2,1)
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30
53.30