Bonjour
Voilà mon problème j'utilise souvent les common pour avoir des blocs de variables en commun (par exemple une série de parametres) que je colle dans mes différentes subroutine pour m'en servir un peu ou je veux.
Le problème c'est que si je veux utiliser les common avec implicit none il faut que je déclare deux fois les variables. Une fois dans le common et une autre fois en disant leur type ect ...
Du coup j'avais envie d'essayer de faire ça avec un module, seulement je sais pas faire et je trouve pas d'exemple simple d'utilisation de module.
Voici un exemple :
Je voudrais remplacer le common par un module ...
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 Program implicit none integer::nstlim,nptr,ntwr,ntwx,nmropt common /npar/ nstlim,nptr,ntwr,ntwx,nmropt ..... end subroutine plop implicit none integer::nstlim,nptr,ntwr,ntwx,nmropt common /npar/ nstlim,nptr,ntwr,ntwx,nmropt ... end
Je voudrais aussi savoir si dans certaines subroutine je peux déclarer que les variables sont des parametres (non modifiables) et dans d'autre qu'ils soient modifiables.
Merci
Partager