Discussion :

[Flow_75]

Bonjour,

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

Code :

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

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

Quand, je tente d'allouer via :

Code :

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

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

J'ai le message suivant à la compilation :

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

[L'hermine]

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

[Flow_75]

merci, mais c'est pas mieux.

[Flow_75]

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

[bobbyboy]

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 :

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

[Flow_75]

Salut,

Merci de ton aide