Ho sviluppato un algoritmo che si propone di verificare se esiste una riga in cui il minimo della riga i-sima coincida con il massimo della colonna j-sima.
PROGRAM CHIAESERCIZIO
REAL:: A(10,10), MAS, MI
INTEGER:: I, J, T, N, M, K
T= 0
MAS= A(1,1)
MI= A(1,1)
J= 1
I= 1
PRINT*, 'DIMENSIONI MATRICE'
READ*, N, M
DO
DO K= 1, N
READ*, A(K,J)
IF (A(K,J) > MAS) THEN
MAS= A(K,J)
ENDIF
ENDDO
DO K= 1, M
READ*, A(I,K)
ENDDO
IF (A(I,K) < MI) THEN
MI= A(K,J)
ENDIF
ENDDO
IF (MAS== MI) THEN
T= 1
ENDIF
I= I+1
J= J+1
IF (T== 1 .OR. I>N) EXIT
ENDDO
PRINT*, T
END PROGRAM
Il fortran mi riporta i seguenti errori :
IF (T== 1 .OR. I>N) EXIT
1
Error: EXIT statement at (1) is not within a construct
es.f90:31.3:
ENDDO
1
Error: Expecting END PROGRAM statement at (1)
Cosa ho sbagliato? E a parte la sintassi, l'algoritmo è giusto?