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