Allouer une variable globale

Bonjour,

pourriez-vous m'aider pour récupérer dans une subroutine une variable allouée dans le programme principal ? J'arrive à utiliser common/ess/a pour une variable non allouée uniquement (cf exemple)
Merci d'avance!

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

c234567 program essai implicit none integer n_alloc ! real, allocatable :: a(:) real a(4) common/ess/a   ! n_alloc=4 ! allocate(a(n_alloc)) ! a(1:n_alloc)=0   a(2)=42   ! call s3(n_alloc) call s3 pause end   subroutine s3 ! subroutine s3(n_alloc) !integer n_alloc !real a(n_alloc) real a(4) common/ess/a   write(6,100)(a) 100 format(e15.5) end subroutine s3

---

Puisque tu parles de allocatable, c'est que tu travailles en Fortran 95.

Tu n'as pas le droit d'utiliser des allocatables dans un common.

Je vais te donner la même réponse que j'ai donné il y a quelques temps sur ce forum : En Fortran 95, tu ne devrais pas utiliser de common, sauf si c'est déjà dans le code et que l'effort pour l'enlever est indu !

Tu devrais toujours utiliser des modules.

Voici ton programme récrit :

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

module VariablesPartagees implicit none real, allocatable :: a(:) integer n_alloc end module   program essai use VariablesPartagees implicit none   n_alloc=4 allocate(a(n_alloc)) a(1:n_alloc)=0   a(2)=42 call s3 pause end   subroutine s3 use VariablesPartagees implicit none   write(6,'(e15.5)')(a) end subroutine s3

---

Note : J'ai aussi mis le format directement dans le write parce que je n'aime pas les labels...

Comme tu as maintenant un module, il est très facile et mieux encapsulé de déplacer l'allocation de "a" dans le module comme suit :

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

module VariablesPartagees implicit none real, allocatable :: a(:) integer n_alloc contains subroutine InitVariablesPartagees(n) integer, intent(in) :: n n_alloc=n allocate(a(n_alloc)) a(1:n_alloc)=0 end subroutine end module   program essai use VariablesPartagees implicit none   call InitVariablesPartagees(4) a(2)=42 call s3 pause end   subroutine s3 use VariablesPartagees implicit none   write(6,'(e15.5)')(a) end subroutine s3

---

Comme s3 semble être un "service" associé à "a", tu pourrais aussi la déplacer dans le module :

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

module VariablesPartagees implicit none real, allocatable :: a(:) integer n_alloc contains subroutine InitVariablesPartagees(n) integer, intent(in) :: n n_alloc=n allocate(a(n_alloc)) a(1:n_alloc)=0 end subroutine   subroutine s3 write(6,'(e15.5)')(a) end subroutine s3   end module   program essai use VariablesPartagees implicit none   call InitVariablesPartagees(4) a(2)=42 call s3 pause end

---

Dernier commentaire : Je n'ai rien compilé...