Paramètres matrice de sauvegarde

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:

---

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 :

Citation:

---

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 ?

Bonjour,

Code:

---

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:

---

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...