有三行三列的数：
          1 2 3 
          2 3 4
          1 3 4
我要结果：（1,2,4），也就是将出现次数为2的数取出来放到一个数组里然后输出来
我写了一个，可是结果不对，为什么呢？请教各位：
             
         PROGRAM MAIN
    INTEGER::A(3,3),B(3)
    INTEGER::I,J,IE,JE,N
    OPEN(10,FILE='INPUT.TXT')
    OPEN(11,FILE='OUTPUT.TXT')
    READ(10,*)((A(I,J),J=1,3),I=1,3)
    B=0
    DO I=1,3
        N=0
      DO J=1,3
        DO IE=1,3
         DO JE=1,3
            IF(A(I,J)==A(IE,JE))  THEN
                N=N+1
              ENDIF
          ENDDO
        ENDDO
    IF(N==2)  THEN
    B(:)=a(I,J)
    ENDIF
    ENDDO
    ENDDO
    WRITE(*,*)B(:)
         WRITE(11,*)B(:)                          
    END