Télécharger egaldp.eso

Retour à la liste

Numérotation des lignes :

  1. C EGALDP SOURCE CHAT 05/01/12 23:28:40 5004
  2. LOGICAL FUNCTION EGALDP (X,Y,PRECIS)
  3. ************************************************************************
  4. *
  5. * E_G_A_L D_P
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * DIRE SI 2 REELS DEFINIS EN DOUBLE PRECISION SONT A PEU PRES EGAUX.
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16. IMPLICIT INTEGER(I-N)
  17. -INC CCREEL
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  20. * -----------
  21. *
  22. * X (E) 1ER TERME DE COMPARAISON.
  23. * Y (E) 2EME TERME DE COMPARAISON.
  24. * PRECIS (E) PRECISION ACCEPTEE POUR DIRE SI EGAUX.
  25. * +XPETIT (E) VOIR LE COMMUN "CCREEL".
  26. * EGALDP (S) = .TRUE. SI "X" ET "Y" SONT A PEU PRES EGAUX.
  27. * = .FALSE. SINON.
  28. *
  29. REAL*8 X,Y,PRECIS
  30. *
  31. * CREATION, MODIFICATIONS:
  32. * ------------------------
  33. *
  34. * PASCAL MANIGOT 26 FEVRIER 1988
  35. *
  36. ************************************************************************
  37. *
  38. IF (ABS(X) .LT. XPETIT) THEN
  39. EGALDP = ABS(Y).LE.XPETIT
  40. ELSE
  41. EGALDP = (X*(1.-SIGN(PRECIS,X))).LE.Y
  42. & .AND. Y.LE.(X*(1.+SIGN(PRECIS,X)))
  43. END IF
  44. *
  45. END
  46.  
  47.  
  48.  
  49.  

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