probleme de diffusion

salut
j'ai essayé de faire cette résolution et j'ai une faute
program tdma
implicit none
integer i,j,Nmax,n,k
parameter (Nmax=200)
real a(Nmax),b(Nmax),c(Nmax),T0(Nmax),d(Nmax)
real p(Nmax),Q(Nmax),T(Nmax),TAN(Nmax)
n=5
a(1)=100.00
a(2)=200.00
a(3)=200.00
a(4)=200.00
a(5)=200.00
b(1)=0.0
b(2)=0.0
b(3)=0.0
b(4)=0.0
b(5)=0.0
c(1)=0.0
c(2)=0.0
c(3)=0.0
c(4)=0.0
c(5)=0.0
do j=2,5
T0(j)=150.00
enddo
do j=1,
T0(j)=75.00
enddo
do j=1,4
T0(j-1)=25
enddo
do j=2,5
T0(j+1)=25
enddo
d(j)=150.00*T0(j)
d(j-1)=150.00*T0(j)
d(j+1)=150.00*T0(j+1)

svp aidez moi

Bonjour

En lecture rapide, au moins 2 erreurs.

Il manque l'indice de fin dans la 2ieme boucle

Code:

---

1 2 3 4

do j=1, T0(j)=75.00 enddo

---

Il manque un end à la fin

Code:

---

1 2	end program tdma

---

Quand tu postes un (bout de) code, met le entre les balises de code (cliques sur le # dans la barre d'outils) ça nous facilite la lecture.

Autres erreurs :

- ligne 30 tu affectes une valeur à T0(j-1), soit quand j vaut 1 à T0(0)
Or le tableau TO est déclaré de 1 à Nmax

- à la fin, tu affectes des valeurs à d(j), d(j-1), d(j+1). Or à la sortie de la boucle j n'est pas
défini. Si je ne me trompe, ça dépend du compilateur.