Modules de liaison Fortran pour les types de variables de précision et globales

Question

Je suis nouveau à Fortran et j'essaie de comprendre si ce qui suit est possible. Mon idée de structurer le programme est de déclarer la précision et les types de variables dans un module. Utilisez ensuite ces variables sans déclarer à nouveau le type dans d'autres modules ou dans le programme principal.

module pre 
implicit none 

    INTEGER, PARAMETER  :: sp=SELECTED_REAL_KIND(6,37) 
    INTEGER, PARAMETER  :: dp=SELECTED_REAL_KIND(15,307) 
    INTEGER, PARAMETER  :: qp=SELECTED_REAL_KIND(33,4931) 

    REAL(dp), PARAMETER  :: pi = 4.*ATAN(1.) 
    REAL(dp)    :: H        
    REAL(dp)    :: M 
    REAL(dp)    :: KR 

end module pre 

Maintenant, je veux utiliser toutes les variables dans un autre module qui contient une ou plusieurs fonctions, telles que:

module hon 
use pre 
implicit none 

contains 
    function KE(H,M) result(KR) 
     KR = 2*PI/H/M 
    end function KE 
end module hon 

Puis-je utiliser gfortran dans cet ordre:

gfortran -c mod_pre.f90 
gfortran -c mod_hon.f90 

Comme 'module pre' fait partie de 'module hon' je compile dans l'ordre, mais gfortran montre une erreur.

Avec le code ci-dessus, je comprends que les types de variables et les paramètres doivent avoir été inclus par USE; Mais le message que je reçois de gfortran est qu'aucune de mes variables n'a le type IMPLICIT lorsque j'essaie de compiler 'module hon'.

Quelqu'un pourrait-il clarifier le problème ou suggérer une solution? Je voudrais éviter que mes variables soient dispersées dans plusieurs modules.

Merci!

Answer 1

Dans l'instruction de fonction, le result(kr) indique que le résultat de la fonction a le nom kr. Ce résultat de la fonction n'est pas la même chose que la variable du module kr. En particulier, ce résultat de la fonction rend inaccessible la variable du module.

Le résultat de la fonction est spécifique à la fonction elle-même et ses propriétés doivent être déclarées dans le sous-programme de la fonction. De même, les arguments fictifs de la fonction, H et M, sont distincts des variables du module et doivent être déclarés dans le sous-programme de la fonction.

Au-delà, vous avez peut-être des préoccupations similaires à other question. Pour être clair, il n'est pas possible de dire quelque chose comme "tous les résultats de la fonction appelée kr et tous les arguments fictifs appelés H ou M ont ces caractéristiques". Chaque objet individuel doit avoir les propriétés.

Cependant, bien que je ne recommande pas, cela est une situation dans laquelle l'inclusion de texte littéral (en utilisant un préprocesseur ou inclure le fichier) pourrait vous aider:

function ke(H, M) result (kr) 
    include 'resdummydecls' 
    ... 
end function 

où le fichier a les déclarations.