Voila, j'ai ce code là :

MODULE elimination_base
contains
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
SUBROUTINE elimine_ligne(bool,i,j,k,l,m) 
  IMPLICIT NONE
    INTEGER :: i,j,k,l,m
    INTEGER,DIMENSION(3,3,3,3) :: tab
    LOGICAL,DIMENSION(3,3,3,3,9) :: bool
    bool=.TRUE.
    DO i=1,3
       DO j=1,3
          DO k=1,3
             DO l=1,3
                Do m=1,9
                   where  (m=tab(i,j,k,l)) 
                      bool(i,1,k,1,m)=.false.
                   end where
                end do
              end do
            end do
        end do
     end do
 end subroutine
 end module
Et il n'y a jamais moyen de compiler ! J'ai toujours l'erreur suivante :
" where (m=tab(i,j,k,l))
1
Error: Unclassifiable statement at (1)
Elimination_base.f90:16.22:

end where
1
Error: Expecting END DO statement at (1)"
J'ai essayer de remplacer le where par un if, mais j'ai la même erreur (avec if à la place du where dans le msg d'erreur)


Je suis un gros débutant en programmation, l'erreur ne me saute pas aux yeux ^^