Patrick Corde & Anne Fouilloux

Arguments de type tableau 160
8.5 – Arguments de type tableau
Lorsque l’on transmet un tableau en argument il est
commode de transmettre également ses dimensions afin de
pouvoir déclarer l’argument muet correspondant au sein
de la procédure appelée à l’aide de celles-ci ; de ce fait le
tableau est ajustable.
Exemple
program arg_tab
implicit none
integer, parameter :: n = 3, m = 2
real, dimension(n,m) :: tab
real
:: somme
read *,tab; print *,somme( tab, n, m )
end program arg_tab
real function somme( t, n, m )
integer
:: n,m,i,j
real, dimension(n,m) :: t
somme = 0.
do i=1,n
do j=1,m
somme = somme + t(i,j)
end do
end do
end function somme
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux