Bonsoir
j'ai un problème avec do...
voici le code
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
 
! 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 I=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
return
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 prennent 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