Télécharger ega1.eso

Retour à la liste

Numérotation des lignes :

  1. C EGA1 SOURCE BP208322 16/11/18 21:16:40 9177
  2. LOGICAL FUNCTION EGA1 (IP1,IP2,EPS1)
  3. implicit real*8 (a-h,o-z)
  4. ************************************************************************
  5. *
  6. * E G A 1
  7. * -------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *
  12. * INDIQUER SI 2 POINTS ONT MEME POSITION DANS L'ESPACE, A PEU DE
  13. * CHOSES PRES
  14. *
  15. * MODULES UTILISES:
  16. * -----------------
  17. *
  18. IMPLICIT INTEGER(I-N)
  19. -INC CCGEOME
  20. -INC CCOPTIO
  21. -INC SMCOORD
  22. *
  23. * ARGUMENTS: (E)=ENTREE (S)=SORTIE (+ = PASSE PAR COMMUN)
  24. * ----------
  25. *
  26. * IP1 (E) 1ER POINT.
  27. * IP2 (E) 2EME POINT.
  28. * EPS1 (E) TOLERANCE POUR ANNONCER "MEME POSITION".
  29. * SI NEGATIF, AUCUNE TOLERANCE SPECIFIEE: ON PREND UN
  30. * SOUS-MULTIPLE DE LA DENSITE.
  31. * (S) TOLERANCE UTILISEE.
  32. * +DENSIT (E) VOIR "CGEOME".
  33. * +IDIM (E) VOIR "COPTIO".
  34. * +MCOORD (E) VOIR "COPTIO".
  35. * EGA1 (S) .TRUE. SI LES POINTS SONT A LA MEME POSITION.
  36. * .FALSE. SINON.
  37. *
  38. INTEGER IP1,IP2
  39. *
  40. * AUTEUR, DATE DE CREATION:
  41. * -------------------------
  42. *
  43. * PASCAL MANIGOT 1ER OCTOBRE 1986
  44. *
  45. * LANGAGE:
  46. * --------
  47. *
  48. * ESOPE + FORTRAN77
  49. *
  50. ************************************************************************
  51. *
  52. REAL*8 EPS1
  53. IF (IP1 .EQ. IP2) THEN
  54. EGA1 = .TRUE.
  55. RETURN
  56. END IF
  57. *
  58. SEGACT,MCOORD
  59. IDIMP1 = IDIM + 1
  60. *
  61. IF (EPS1 .LT. 0.) THEN
  62. EPS1 = (XCOOR(IP1*IDIMP1) + XCOOR(IP2*IDIMP1)) / 20.
  63. IF (EPS1 .LE. 0.) EPS1 = DENSIT /10.
  64. END IF
  65. *
  66. DIST = (XCOOR((IP1-1)*IDIMP1+1) - XCOOR((IP2-1)*IDIMP1+1))**2
  67. & + (XCOOR((IP1-1)*IDIMP1+2) - XCOOR((IP2-1)*IDIMP1+2))**2
  68. IF (IDIM .EQ. 3) THEN
  69. DIST = DIST +
  70. & (XCOOR((IP1-1)*IDIMP1+3) - XCOOR((IP2-1)*IDIMP1+3))**2
  71. END IF
  72. DIST = SQRT(DIST)
  73. *
  74. EGA1 = DIST.LE.EPS1
  75. *
  76. END
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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