var/convertor/kma_wave2grid/IDCMP.inc

   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