Discussion :

[hector2]

Bonjour,
J'aurais besoin de coder une subroutine fortran prenant en argument d'entrées :

• nbmatrix (integer)
• sizematrix [nbmatrix] (integer)
• GROUPEMAT (l'ensemble des nbmatrix matrices carrées de taille sizematrix(k), k=1,nbmatrix

Ma question est simple : que choisir comme type pour GROUPEMAT ? une structure, une liste chaînée, autre chose ? Je m'y perds un peu...
Merci beaucoup !

nb : je préférerais éviter de créer un tableau à 3 dimensions max(sizematrix)*max(sizematrix)*nbmatrix , pour des raisons de mémoire notamment.

[Sylvain Bergeron]

Solution ?

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
 
module ModuleMatrix
   implicit none
 
   type TMat
      real, allocatable(:,:) :: Matrix
   end type
 
contains
 
   subroutine TaRoutine(GM)
      type (TMat) :: GM(:)
 
      NbMat = size(GM)
      do k = 1, NbMat
         SizeMatrix = ubound(GM(k)%Matrix,1)
...
 
end module
 
program TestMatrix
   use ModuleMatrix
   implicit none
...
   type (TMat) :: GroupeMat(NbMatrix)
...
 
   do k = 1, NbMatrix
      allocate(GroupeMat(k)%Matrix(SizeMatrix(k),SizeMatrix(k))
   enddo
 
   call TaRoutine(GroupeMat)
...