Discussion :

[NairodDorian]

Bonjour,

Je suis nouveau en FORTRAN (je connais le C) et je suis confronté à un problème.
J'ai la structure suivante :

Code :

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

1
2
3
4
5
 
STRUCTURE /POINT/
INTEGER X
INTEGER Y
END STRUCTURE

Je voudrai appelé une fonction qui renvoie un tableau de POINT de taille I ou I est un entier passé en paramètre à la fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
(STRUCTURE DE TYPE POINT) FUNCTION TEST(I)
INTEGER I
 
(CREER MON TABLEAU DE STRUCTURES)
 
! ...
 
TEST = (MON TABLEAU DE STRUCTURES)
END FUNCTION

Ce qui est écrit en parenthèse c'est ce que je ne suis pas arriver à écrire correctement en FORTRAN.

Pouvez vous m'aidé svp?
Merci d'avance...

[Grame]

Bonjour,


Je créerais un module de définitions (équivalent au .h en C) que j'utiliserais
ensuite dans la routine. Par exemple :

Fichier definitions.f90

Code :

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

1
2
3
4
5
6
7
8
 
module definitions
 
type point
   integer :: x, y
end type point
 
end module definitions

Fichier remplir_tableau.f90

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
 
subroutine remplir_tableau (tableau_point, i)
 
   use definitions 
   implicit none
   integer, intent(in) :: i
   type (point), dimension(i), intent(out) :: tableau_point
   integer j
 
   do j=1, i
      tableau_point(j)%x = ... 
      tableau_point(j)%y = ...   
   end do
 
end subroutine remplir_tableau

Il peut aussi être intéressant de mettre la subroutine dans un module
si le code complet est assez volumineux.

[NairodDorian]

Merci mais ce n'est pas tout à fait ça que j'aurai voulu.

En fait il faudrait que la fonction me retourne un tableau de type point (comme tu l'as marqué) crée (allouer) dans la fonction de taille I.

Genre en C :

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
 
 
struct point
{
int x;
int y;
};
 
void test(point* ppt, int size)
{
ppt = malloc(sizeof(point) * (size + 1));
// ...
}
 
void a(void)
{
struct *ppt;
int i = 10;
 
test(ppt, i);
 
//...
free(ppt);
}

Mon tableau n'a pas de "taille" avant l'appel mais après l'appel mon tableau est alloué de I éléments avec des modifications dedans.

Si vous pouviez m'aidé
Merci d'avance!

[Grame]

Ah ok, c'est un tableau dynamique.

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
 
subroutine remplir_tableau
 
   use definitions 
   implicit none
   integer, parameter :: i = 10
   type (point), dimension(:), allocatable :: tableau_point
   integer j
 
   allocate (tableau_point(i))
 
   do j=1, i
      tableau_point(j)%x = ... 
      tableau_point(j)%y = ...   
   end do
 
   deallocate (tableau_point)
end subroutine remplir_tableau

C'est mieux là ?

[NairodDorian]

C'est tout à fait ça !!!
Merci beaucoup Grame