Fonction en argument d'une autre fonction

Version imprimable

Salut,

Je sais que pour déclarer une fonction qui va être appelé en argumentd'autre autre fonction on utilise EXTERNAL.
Par contre si cette fonction retourne un tableau, j'ai un peu de mal a la passer en argument car il me dit l'attribut EXTERNAL et DIMENSION sont en conflit.

J'utilise dans mon code ci dessous une fonction retournant un tableau que je veux appeler dans en argument de ma subroutine.

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
FUNCTION carre(vect)
	IMPLICIT NONE
 
	REAL, DIMENSION (:) :: vect
	REAL, DIMENSION(SIZE(vect)) :: carre
	INTEGER :: i
 
 
		DO i = 1,SIZE(vect)
			carre(i) = vect(i) * vect(i)
		END DO
 
 
END FUNCTION carre
 
PROGRAM vecteur
	IMPLICIT NONE
 
 
	REAL,DIMENSION(5) :: vect,resu
	INTEGER :: i,n
 
	INTERFACE 
		FUNCTION carre(vect)
 
			REAL, DIMENSION (:) :: vect
			REAL, DIMENSION(SIZE(vect)) :: carre
			INTEGER :: i
 
		END FUNCTION carre
	END INTERFACE
 
	EXTERNAL carre
 
 
 
	n = 5;
	!initialisation du vecteur aléatoirement
	DO i = 1,n
		vect(i) = REAL(rand(0)*45)+1 
	END DO
 
	!affichage de celui-ci
	DO i = 1,n
		WRITE(6,*) 'vect(',i,') = ',vect(i) 
	END DO
 
!!      resu = carre(vect);
	CALL select_transfo(vect,carre)
 
	DO i = 1,n
		WRITE(6,*) 'vect(',i,') = ',resu(i) 		
	END DO
 
 
	CONTAINS
 
                 ! la subroutine qui va appeler la fonction carre en argument
		SUBROUTINE select_transfo(vect,fonct)
 
 
			REAL, DIMENSION (:) :: vect
			REAL, DIMENSION (:) :: fonct
 
			vect = carre(vect);
 
 
		END SUBROUTINE select_transfo
 
END PROGRAM vecteur

Merci

12/03/2008, 15h12
FR119492

Salut !

Fais une subroutine plutôt qu'une fonction.

Jean-Marc Blanc

Citation:

Envoyé par FR119492

Fais une subroutine plutôt qu'une fonction.

Non, une fonction est tout a fait adaptee dans une telle situation. Elle prend un vecteur et renvoit un vecteur, c'est tres propre.

bonjour69: Le truc, c'est que select_transfo() doit aussi connaitre l'interface de la fonction qu'elle va appeler. Autres erreurs dans ton code:

Enleve le external dans ta routine principale (on ne peut pas avoir a la fois un external et une interface d'une meme fonction ou routine)
select_transfo() appelle fonct() et pas carre() puisqu'elle ne sait rien de carre()
Il faut afficher le contenu de vect et pas de resu apres l'appel a select_transfo()
i n'a rien a faire dans l'interface de carre puisque c'est une variable locale (qui n'est d'ailleurs pas necessaire)

Corrige et re-arrange, ton code devient:
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 51 52 53 54 55 56 57 58 59 function carre(vect) implicit none real, dimension (:) :: vect real, dimension(size(vect)) :: carre carre = vect * vect end function carre program vecteur implicit none integer, parameter :: n = 5 real, dimension(n) :: vect integer :: i interface function carre(vect) real, dimension (:) :: vect real, dimension(size(vect)) :: carre end function carre end interface ! initialisation du vecteur do i = 1, n vect(i) = real(i) end do ! affichage de celui-ci do i = 1, n write(6, *) 'vect(',i,') = ', vect(i) end do call select_transfo(vect, carre) do i = 1, n write(6,*) 'vect(',i,') = ', vect(i) end do contains ! la subroutine qui va appeler la fonction carre en argument subroutine select_transfo(vect, fonct) real, dimension (:) :: vect interface function fonct(array) real, dimension(:) :: array real, dimension(size(array)) :: fonct end function fonct end interface vect = fonct(vect) end subroutine select_transfo end program vecteur