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

Published: 10 mai 2017

DMCA.com Protection Status

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