1 SUBROUTINE IDCMP(ID,IDX,N,II) 2 DIMENSION ID(N),IDX(N) 3 II=0 4 DO 10 I=1,N 5 IF(ID(I).NE.IDX(I))THEN 6 II=I 7 RETURN 8 ENDIF 9 10 CONTINUE 10 RETURN 11 END SUBROUTINE IDCMP 12