Télécharger la plaquette Cast3M


fr en

Télécharger egaldp.eso

Retour à la liste

Numérotation des lignes : 

egaldp

  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