PROGRAM matricebis
	IMPLICIT NONE
	REAL, DIMENSION(9,9) :: B
	INTEGER :: i
	
	OPEN(UNIT=11,FILE='matrice.dat')
	DO i=1,9
		READ(11,*) B(i,:)
	END DO
	CLOSE(11)
	
	WHERE (MOD(INT(B),2)==0)
		B=0
	END WHERE

	DO i=1,9
		WRITE(*,*) B(i,:)
	END DO
			
END PROGRAM matricebis