indicer tableau random

Bonjour,

j'ai un soucis, j'ai le programme suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program random implicit none integer :: seed,i real :: eps1 seed=345687 call srand(seed) do i=1,100 eps1=rand() print *,eps1 end do end program random

---

que j'utilise à l'intérieur d'un autre programme, mon problème est que je ne peux pas indicer ce tableau : si je met eps1(i) ça va pas et sinon j'ai bien sur un "unclassifiable statement"...
Comment puis-je appeler séparément chaque élément de ce tableau (genre eps(2))...?

Merci d'avance,
Nulysses:ccool:

Tu cherches comment déclarer un tableau ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

program random implicit none integer :: seed,i real,dimension(100) :: eps1 seed=345687 call srand(seed) do i=1,100 eps1(i)=rand() print *,eps1(i) end do end program random

---

Ceci dis ton programme est un programme principal donc inutilisable si tu veux l'appeler par un autre programme. Dans ce cas tu dois faire une subroutine.

Merci pour votre aide mais lorsque je demande

Code:

---

print *,eps1(3)

---

par exemple il me renvoie un tableau de 100 chiffres alorsque j'en voudrais un seul !

Mais merci ! :)