Condition pour vérifier si une matrice contient un élément donné en fortran 90

Exemple de comment vérifier si une matrice contient un élément donné en fortran 90 en passant par la fonction [ANY]:

program check_if_array_contains_value

implicit none

integer :: i,j

integer, dimension(3,3) :: A

!----------------------------------------------------------------------------------------!
! Matrix A

A(1,1) = 1
A(1,2) = 2
A(1,3) = 0
A(2,1) = 4
A(2,2) = 3
A(2,3) = -1
A(3,1) = 5
A(3,2) = 6
A(3,3) = -4

!----------------------------------------------------------------------------------------!

write(6,*) ANY( A == 4)
write(6,*) ANY( A == 7)

!----------------------------------------------------------------------------------------!

end program check_if_array_contains_value

donne

 T
 F

T (true) car la matrice A contient la valeur 4, F (False) car le matrice A ne contient pas la valeur 7.

Recherches associées