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 :

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 remplacer le common par un module ...

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