Bonjour

Ma question parait bizarre mais pourtant je suis tombé sur le bout de code suivant dans 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
17
18
19
20
21
22
23
24
25
26
 
  integer, parameter    :: mdin_ctrl_int_cnt = 48
 
  integer                       imin, nmropt, ntx, irest, ntrx, ntxo, &
                                ntpr, ntave, ntwr, iwrap, ntwx, ntwv, &
                                ntwe, ioutfm, ntwprt, ntf, ntb, nsnb, &
                                ipol, ibelly, ntr, maxcyc, ncyc, ntmin, &
                                nstlim, nscm, nrespa, ntt, ig, vrand, ntp, &
                                ntc, jfastw, ivcap, igb, alpb, rbornstat, &
                                gbsa, nrespai, ndfmin, jar, &
                                no_intermolecular_bonds, ene_avg_sampling, &
                                loadbal_verbose
  character(4)                  ihwtnm(2), iowtnm, iwtnm
 
  common / mdin_ctrl_int /      imin, nmropt, ntx, irest, ntrx, ntxo, &
                                ntpr, ntave, ntwr, iwrap, ntwx, ntwv, &
                                ntwe, ioutfm, ntwprt, ntf, ntb, nsnb, &
                                ipol, ibelly, ntr, maxcyc, ncyc, ntmin, &
                                nstlim, nscm, nrespa, ntt, ig, vrand, ntp, &
                                ntc, jfastw, ivcap, igb, alpb, rbornstat, &
                                gbsa, nrespai, ndfmin, jar, & 
                                no_intermolecular_bonds, ene_avg_sampling, &
                                loadbal_verbose, &
                                ihwtnm, iowtnm, iwtnm
 
  save  :: / mdin_ctrl_int /
C'est un bout de code d'un module d'un gros programme. J'ai du mal à comprendre l'utilité de ce common étant donné qu'on est dans un module et que ce common n'est réutilisé nulle part ailleurs dans l'ensemble du code.

Est ce que le but du common est de pouvoir utiliser save pour figer les variables à leurs valeurs dans ce module là ?

Merci de votre aide