Obtenir le/les indice(s) correspondant à la valeur minimum d'un tableau en fortran

En fortran pour obtenir l'indice correspondant à la valeur minimum d'un tableau en fortran il existe la fonction minloc(), exemple d'utilisation

program test_minloc

implicit none

real, dimension(4,2) :: R

R(1,1) = 4.0
R(2,1) = 6.0
R(3,1) = 3.0
R(4,1) = 5.0

R(1,2) = 7.0
R(2,2) = 1.0
R(3,2) = 8.0
R(4,2) = 2.0

write(6,*) minloc(R) ! Min tout le tableau
write(6,*) minloc(R(:,1)) ! Min entre R(1,1), R(2,1), R(3,1), R(4,1) 
write(6,*) minloc(R(:,2)) ! Min entre R(1,2), R(2,2), R(3,2), R(4,2)
write(6,*) minloc(R(1,:)) ! Min entre R(1,1) et R(1,2)

end program test_minloc

donne

       2           2
       3
       2
       1

Recherches associées