Discussion :

[Nulysses]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ladgalen]

Tu cherches comment déclarer un tableau ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Nulysses]

Merci pour votre aide mais lorsque je demande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print *,eps1(3)

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

Mais merci !