Tableau en parametre sans information de profil

Version imprimable

Bonsoir à vous, lecteur.

En pleine phase de programmation intense (rédaction d'un compte rendu de tp), une idée, pour me différencier du lot (constitué de mes camarades), m'est apparu.
Faire un affichage des données un chouia plus beau que celui vu en cours (cad : write(*,*)blablabla).
Sans prétention quelconque part rapport au code en lui même, voici ce que j'ai fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Subroutine Afficher(Mat) implicit none integer::i character(len=16)::test character(len=3)::taille real(kind=8),dimension(:),intent(in)::Mat write(test,'(1i1)')int(size(mat)) write(taille,*)'('//test(1:1) test=taille//'f6.1)' write(*,(test))Mat end subroutine Subroutine AfficherMat(Mat) implicit none integer::i character(len=16)::test character(len=3)::taille real(kind=8),dimension(:,:),intent(in)::Mat write(test,'(1i1)')int(size(mat)/sqrt(real(size(Mat)))) write(taille,*)'('//test(1:1) test=taille//'f6.1)' write(*,(test))Mat end subroutine
A vu de nez, pas de différence, voir même 2 fois la même subroutine. Ce n'est pas le cas, remarquez le titre qui change (et oui 8-)) et la 5 ligne des 2 sub. Seul la définition du tableau passé en argument change. Si la encore, créer 2 sub différentes ne posent pas de problème, j'aurai voulu savoir s'il était possible de faire un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Subroutine Affichage(Mat) implicit none integer::i character(len=16)::test character(len=3)::taille !Si matrice alors real(kind=8),dimension(:,:),intent(in)::Mat !Si vecteur alors real(kind=8),dimension(:),intent(in)::Mat write(test,'(1i1)')int(size(mat)/sqrt(real(size(Mat)))) write(taille,*)'('//test(1:1) test=taille//'f6.1)' write(*,(test))Mat end subroutine
En espérant que le problème eut été bien posé et bien compris, j'ose espérer qu'il y est une solution :calim2:.

Cordialement

Ça se fait via des interfaces (et des modules je crois):

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
 
module ModuleAfficher
   implicit none
 
   interface Afficher
       module procedure Afficher1D
       module procedure Afficher2D
   end interface
 
contains
 
Subroutine Afficher1D(Mat)
!        implicit none
        integer::i
        character(len=16)::test
        character(len=3)::taille
        real(kind=8),dimension(:),intent(in)::Mat
        write(test,'(1i1)')int(size(mat))
        write(taille,*)'('//test(1:1)
        test=taille//'f6.1)'
        write(*,(test))Mat
    end subroutine
 
    Subroutine Afficher2D(Mat)
 !       implicit none
        integer::i
        character(len=16)::test
        character(len=3)::taille
        real(kind=8),dimension(:,:),intent(in)::Mat
        write(test,'(1i1)')int(size(mat)/sqrt(real(size(Mat))))
        write(taille,*)'('//test(1:1)
        test=taille//'f6.1)'
        write(*,(test))Mat
    end subroutine
 
end module
 
program Test
 
   use ModuleAfficher
   implicit none
 
   real (8) :: Vect(10), Mat(10,10)
 
   call Afficher(Vect)
   call Afficher(Mat)

Le compilateur choisira la routine correspondant aux types des arguments.

Merci merci, en effet ça marche :mouarf: :mouarf: :mouarf:

Voici donc la version :

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
module ModuleAfficher
   implicit none
 
   interface Afficher
       module procedure Afficher1D
       module procedure Afficher2D
   end interface
 
contains
!Affiche un vecteur ligne
	Subroutine Afficher1D(Mat)
		character(len=4)::test
		character(len=8)::taille
		character(len=16)::tata
		real(kind=8),dimension(:),intent(in)::Mat
		write(test,'(1i2)')int(size(mat))
		write(taille,*)'('//test
		tata=taille//'f6.1)'
		write(*,(tata))Mat
 
        end subroutine
 
!Affiche une matrice 2D
    Subroutine Afficher2D(Mat)
		character(len=4)::test
		character(len=8)::taille='0'
		character(len=16)::tata
		integer,dimension(2)::j
		integer::i
		real(kind=8),dimension(:,:),intent(in)::Mat
		j=shape(Mat)
		write(test,'(1i2)')j(1)
		write(taille,*)test
		tata=taille//'f6.1)'
		write(*,'('//tata)Mat
    end subroutine
 
end module

L’intérêt du module ci dessus n'est que personnel. Voici la sub pour afficher une matrice n*m en 2D :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
     Subroutine Afficher2D(Mat)
		character(len=4)::test
		character(len=8)::taille='0'
		character(len=16)::tata
		integer,dimension(2)::j
		integer::i
		real(kind=8),dimension(:,:),intent(in)::Mat
		j=shape(Mat)
		write(test,'(1i2)')j(1)
		write(taille,*)test
		tata=taille//'f6.1)'
		write(*,'('//tata)Mat
    end subroutine

Merci pour l'aide
Cordialement