Discussion :

[DonDouego]

Bonjour tout le monde.

L'incompréhension est la suivante :

J'ai un programme en f90 qui utilise un module où sont stockées des Subroutines écrites en f77. Les subroutines s'appellent entre elle.

Mon programme est rédigé de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
PROGRAM Progf90
 
USE Modulef77
 
CALL TEST1
 
END PROGRAM Progf90

Le fichier module est écris de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MODULE Modulef77
 
CONTAINS
 
   SUBROUTINE TEST
      CALL BOXON
   END SUBROUTINE TEST
 
 
   SUBROUTINE BOXON  
 
   END SUBROUTINE BOXON
 
END MODULE

Je compile de la façon suivante :
1- compilation du module écris en f77 de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gfortran -o Modulef77 Modulef77.f

2- compilation du programme principale en f90 de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gfortran Modulef77.o Progf90.f90 -o Progf90

Et le problème qui ressort est que l'appel de la subroutine boxon dans la surboutine test 1 est une "référence indéfinie" ...

Quelqu'un peut il mettre un peu de combustible dans ma lampe à pétrole svp ?
D'avance merci !

[Sylvain Bergeron]

N'y aurait-il pas un « external Boxon » dans la subroutine Test ?

Si oui, tu dois l'enlever. Sinon, je ne vois pas.

[DonDouego]

Bonjour Sylvain Bergeron,

Il y avait effectivement des " EXTERNALS " dans la subroutine test.
Pourquoi dois je l'enlever ?
ça à l'air de marcher je repost demain si c'est le cas.

Anyway, merci beaucoup.

[Sylvain Bergeron]

Mes manuels ne disent rien sur le lien entre external et module. Et je n'ai pas le temps de lire la norme. Je n'ai donc pas la réponse exacte, mais :

• Le external sert généralement à indiquer qu'une fonction n'est pas intrinsic (SIN, COS, LOG,...).
• Dans ton contexte, le external semble avoir pour effet de rendre l'objet externe au module. Ça a peut-être le sens de « externe » à la liste des objets visibles (scoping unit) ?

[DonDouego]

C'est peut être ça en effet.
En tous cas il n'y a plus d'erreurs, merci beaucoup.

Sujet clos pour ma part.