Sources Esope | Cast3M

cherco
C CHERCO    SOURCE    BP208322  14/09/09    21:15:00     8139
 
      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