Télécharger cherco.eso

Retour à la liste

Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales