Discussion :

[pondu]

Bonjour,


J'ai du mal avec les procédures externes, sachant que je travaille sur un projet et que j'ai déjà tout écrit en fortran90 mais que des boucles, est ce que quelqu'un pourra me les transcrire en fonctions externes avec un function.f90 et main.f90 s'il vous plait? si oui je l'envoi par mail

Bien merci

[Marlan]

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 :

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
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