Discussion :

[bonjour69]

Bonjour, j'aimerais effectuer une fonction retournant un tableau,

Mais j'ai toujours le même problème quelque soit la méthode utilisé ( tableau non alloué ou pas) :

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
 
program taille_implicite
 
  implicit none
  integer, parameter   :: n = 5, m = 6
  INTEGER :: i
  real, dimension(n) :: tab,somme,som
 
 
 
   DO i = 1,n
      tab(i) = 2;
   END DO
 
 
 
  somme = som( tab, n )
 
  print *,somme
 
end program taille_implicite
 
function som( t, lda )
  implicit none
  real, dimension(lda) :: t,som
  integer                :: lda
  integer                :: i
 
 
     do i=1,lda
        som(i) = t(i)
      end do
 
end function som

et voici l'erreur récurrente lors de l'appel de fonction :

Code :

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

1
2
3
4
 
  somme = som( tab, n )
               1
Error: Array index at (1) must be of INTEGER type

Pour n est bien , un entier je ne comprends pas cette erreur
Merci à vous

[DaZumba]

Il faut que tu definisses un bloc d'interface, pour que som soit bien consideree comme une fonction, et non comme un tableau (malheureusement, le Fortran utilise la meme syntaxe pour la liste d'argument d'une fonction et pour l'acces a un element d'un tableau).
Ca donne:

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
 
program taille_implicite
 
  implicit none
 
  integer, parameter :: n = 5
  integer i
  real, dimension(n) :: tab, somme
 
  interface
    function som(t, lda)
      integer lda
      real, dimension(lda) :: t, som
    end function som
  end interface
 
  do i = 1, n
    tab(i) = 2
  end do
 
  somme = som(tab, n)
 
  print *, tab
  print *, somme
 
end program taille_implicite
 
function som(t, lda)
 
  implicit none
 
  integer lda
  real, dimension(lda) :: t, som
 
  integer i
 
  do i = 1, lda
    som(i) = t(i)
  end do
 
end function som

Note que tu peux remplacer

Code :

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

1
2
3
4
 
  do i = 1, lda
    som(i) = t(i)
  end do

par

Code :

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

1
2
 
  som = t

[bonjour69]

Bonjour,

Merci bien c'est parfait, par contre j'ai une autre petite question comment rendre la fonction external pour pouvoir la passer en argument d'une autre fonction plus tard

Si je rajoute le external a coté de la declaration du tableau som, il me dis que EXTERNAL et DIMENSION sont en conflit. Il y a surement une astuce aussi.

Merci

[DaZumba]

Merci bien c'est parfait, par contre j'ai une autre petite question comment rendre la fonction external pour pouvoir la passer en argument d'une autre fonction plus tard

external est remplace par l'interface de la fonction. Tu n'as plus besoin de la qualifier d'external.

[FR119492]

Salut !

Si tu veux que ton sous-programme te renvoie un tableau, pourquoi fais-tu une fonction et pas une subroutine?

Jean-Marc Blanc

[bonjour69]

Bonjour,

Je fais une fonction car je pensais qu'une subroutine on ne pouvait récuperer les modifications apportés pendant le traitement.

Peut-etre avec INTENT(in/out) cela est possible non ?