problèmes avec les Procedures externes

Bonjour,

Tu peux poster ici ton code, pas besoin de passer par mèl puisque :
1. ta question est publique,
2. un autre usager pourrait avoir le même problème que toi.

Vis à vis des procédures externes, je te conseilles de regarder dans un poly de cours de FORTRAN pour le détail.

En résumé toutefois, une procédure externe (ou subroutine) se place :
1. Après le END PROGRAM
2. Soit dans le même fichier, soit dans un autre.

Il est nécessaire d'indiquer au compilateur l'existence de la subroutine externe. Cela se fait au moyen d'un bloc INTERFACE. Ce bloc doit être placé soit :
1. Avant ou pendant la déclaration des variables,
2. Avant toute autre opération que la déclaration des variables.
3. Après l'éventuel IMPLICIT NONE et/ou l'instruction USE.
4. Après l'instruction PROGRAM (ou SUBROUTINE pour une SUBROUTINE appelant des procédures externes).

Dans ce bloc, doit être repris à la fois le nom de la/les subroutine externes que tu souhaites utiliser ainsi que leur arguments d'entrée et/ou sortie.

Par exemple :
Code:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 PROGRAM TEST IMPLICIT NONE INTERFACE SUBROUTINE TEST_SUB(X,Y,Z) IMPLICIT NONE REAL,INTENT(IN) :: X REAL,INTENT(OUT) :: Y REAL,INTENT(INOUT) :: Z END SUBROUTINE TEST_SUB END INTERFACE REAL :: A,B,C A=1.0 B=0.0 C=0.0 CALL TEST_SUB(A,B,C) print*,A,B,C END PROGRAM TEST SUBROUTINE TEST_SUB(X,Y,Z) IMPLICIT NONE REAL,INTENT(IN) :: X REAL,INTENT(OUT) :: Y REAL,INTENT(INOUT) :: Z INTERFACE SUBROUTINE TEST_SUB2(X) IMPLICIT NONE REAL,INTENT(INOUT) :: X END SUBROUTINE TEST_SUB2 END INTERFACE Y=X+1 Z=X+Y CALL TEST_SUB2(Z) END SUBROUTINE TEST_SUB SUBROUTINE TEST_SUB2(X) IMPLICIT NONE REAL,INTENT(INOUT) :: X X=X+1.0 END SUBROUTINE TEST_SUB2
En espérant avoir pu t'aider,

Marlan