[F90]probleme d'allocation d'un tableau

Bonjour,

J'ai deux tableaux déclarés tel suit :

Code:

---

double precision, dimension(:), allocatable :: t_0, t_f,

---

Quand, je tente d'allouer via :

Code:

---

allocate(t_0(Nsttr),t_f(Nsttr),dT(Nsttr),Treal(Nsttr),T(Nsttr))

---

J'ai le message suivant à la compilation :

Citation:

---

Illegal use of symbol t_0 - must be an allocatable array (fichier_in.f90: 97)

---

Quelqu'un aurait il un début d'aide ?
Merci :)

Salut,

Je ne saurai pas t'expliquer pourquoi, mais chez moi :
real*8, ALLOCATABLE, DIMENSION(:) :: a1, a2
fonctionne avec n'importe quel type devant (complex*16, integer*4...).
Teste en attendant que quelqu'un nous explique !
À plus,

L'hermine

merci, mais c'est pas mieux. :cry:

Petite précision :
En faite toute les variables qui posent probleme ont été passé en arguments à la subroutine où on les alloue.

en gros :

Subroutine X( t_0, t_f)

double precision, dimension(:), allocatable :: t_0, t_f


allocate(t_0(Nsttr),t_f(Nsttr))


end subroutine

Bonjour,
j'imagine que dans le programme principal (celui qui appelle la subroutine)
les variables t_0 et t_f sont également déclarée comme allocatable ?

Pour pouvoir faire une allocation dynamique dans une subroutine, tu dois déclarer l'interface de ta subroutine dans le programme principal.

EDIT :


Le problème vient du fait que tu cherches à allouer un tableau passé par argument dans une subroutine :

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 33 34

PROGRAM MAIN IMPLICIT NONE   ! Bloc d'interface pour la subroutine "allocation_tab" ! ------------------------------------------------ interface subroutine allocation_tab(tab) real*8, dimension(:), allocatable :: tab end subroutine allocation_tab end interface   ! Puis tout le reste est comme tu l'a décrit ! -----------------------------------------   real*8, dimension(:), allocatable :: tab   call allocation_tab(tab)   ! Ici ton tableau est alloué   END PROGRAM     SUBROUTINE allocation_tab(tab) IMPLICIT NONE   real*8, dimension(:), allocatable :: tab ! pas obligé de mettre un intent()   allocate(tab(10))   return   END SUBROUTINE allocation_tab

---

Salut,

Merci de ton aide :)