Discussion :

[synhedionn]

Bonjour,
En testant un code du forum, je me demandais : comment faire pour déclarer une matrice de sauvegarde : doit-elle avoir les mêmes paramètres intent() que la variable à laquelle elle se réfère ?
Par exemple

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
program paramMat
 
  !  gfortran paraMatrix.f90 -o paraMatrix 
  implicit none
  integer, parameter :: dim = 4
 
  real, dimension(dim,dim) ::a
 
 
  call initialisation
  call  morphMatrix(a)
 
 
 
 
 
contains 
  subroutine morphMatrix(Matrix)
    real,intent(in), dimension(dim,dim) ::Matrix
    real,  dimension(size(Matrix,1),size(Matrix,2)) ::mat
 
 
    mat=Matrix  !var de sauvegardeAV de modifier Matrix
 
  end subroutine morphMatrix
 
 
  subroutine initialisation
    a = reshape( (/ 1.,  1., 1., 1., & 
         & 1., 0., 1., 0., &
         & 0., 1., 0., 1., &
         & 1. ,0., 0., 1. /), (/dim,dim/)
  end subroutine initialisation
 
 
 
 
end program paramMat

Mais j'ai les erreurs :

gfortran paraMatrix.f90 -o paraMatrix
In file paraMatrix.f90:32

& 1. ,0., 0., 1. /), (/dim,dim/)
1
Error: Syntax error in argument list at (1)

Compilation exited abnormally with code 1

Qu'est-ce qui ne va pas ?

[Ehouarn]

Bonjour,

Code :

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

1
2
3
4
5
 
a = reshape( (/ 1., 1., 1., 1., &
& 1., 0., 1., 0., &
& 0., 1., 0., 1., &
& 1. ,0., 0., 1. /), (/dim,dim/)

Il manque clairement une parenthèse fermante en bout de la dernière ligne; d'où le message erreur de syntaxe du compilateur.

En ce qui concerne ta façon de "sauvegarder":

Code :

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

1
2
3
4
5
6
7
 
subroutine morphMatrix(Matrix)
real,intent(in), dimension(dim,dim) ::Matrix
real, dimension(size(Matrix,1),size(Matrix,2)) ::mat
 
mat=Matrix !var de sauvegardeAV de modifier Matrix
end subroutine morphMatrix

La variable 'mat' est locale à ta routine et n'existe plus une fois l'exécution de la routine terminée...