C CHERCO    SOURCE    BP208322  12/08/02    21:15:09     7468           
  
      SUBROUTINE CHERCO (TXXX,TYYY,ICOM,AXE,IBON,COM)   
*                                                                               
*  TOUTES LES VARIABLES COMMENCANT PAR T SONT EN SIMPLE PRECISION !
*  
                                                                                     
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8  (A-H,O-S,U-Y)
        
-INC TMAXE

************************************
      SEGMENT COM
          CHARACTER*30 COMMENT(10)
          REAL TXCOM(10),TYCOM(10)
          INTEGER ICOUCO(10)
      END SEGMENT
************************************
        IBON=0
        DELTCY=(YSUP - YINF) * 0.025
        DELTCX=(XSUP - XINF) * 0.05
        DO I=1,ICOM
        IF ((TXCOM(I) - DELTCX).LT.TXXX) THEN
        IF ((TXCOM(I) + DELTCX).GT.TXXX) THEN
        IF ((TYCOM(I) - DELTCY).LT.TYYY) THEN
        IF ((TYCOM(I) + DELTCY).GT.TYYY) THEN
        IBON=I
        ENDIF
        ENDIF
        ENDIF
        ENDIF
        ENDDO
        
        END