Esope source files

   1 : C CHERCO    SOURCE    BP208322  12/08/02    21:15:09     7468           
   2 :   
   3 :       SUBROUTINE CHERCO (TXXX,TYYY,ICOM,AXE,IBON,COM)   
   4 : *                                                                               
   5 : *  TOUTES LES VARIABLES COMMENCANT PAR T SONT EN SIMPLE PRECISION !
   6 : *  
   7 :                                                                                      
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8  (A-H,O-S,U-Y)
  10 :         
  11 : -INC TMAXE
  12 : 
  13 : ************************************
  14 :       SEGMENT COM
  15 :           CHARACTER*30 COMMENT(10)
  16 :           REAL TXCOM(10),TYCOM(10)
  17 :           INTEGER ICOUCO(10)
  18 :       END SEGMENT
  19 : ************************************
  20 :         IBON=0
  21 :         DELTCY=(YSUP - YINF) * 0.025
  22 :         DELTCX=(XSUP - XINF) * 0.05
  23 :         DO I=1,ICOM
  24 :         IF ((TXCOM(I) - DELTCX).LT.TXXX) THEN
  25 :         IF ((TXCOM(I) + DELTCX).GT.TXXX) THEN
  26 :         IF ((TYCOM(I) - DELTCY).LT.TYYY) THEN
  27 :         IF ((TYCOM(I) + DELTCY).GT.TYYY) THEN
  28 :         IBON=I
  29 :         ENDIF
  30 :         ENDIF
  31 :         ENDIF
  32 :         ENDIF
  33 :         ENDDO
  34 :         
  35 :         END
  36 : 
  37 : 
  38 : 
  39 : 
  40 :  
  41 :  
  42 :