Télécharger egar4.eso

Retour à la liste

Numérotation des lignes :

  1. C EGAR4 SOURCE GOUNAND 18/10/10 21:15:04 9956
  2. LOGICAL FUNCTION EGAR4(X1,X2)
  3. IMPLICIT INTEGER (I-N)
  4. C***********************************************************************
  5. C NOM : EGAR4
  6. C DESCRIPTION : Teste l'egalite approximative de deux reels
  7. C avec un critere relatif, un critere absolu et une marge
  8. C
  9. C On utilise le common CCREEL pour les dependants machine
  10. C XSZPRE et XSPETI
  11. C
  12. C Ne pas oublier de declarer :
  13. C logical EGAR4
  14. C dans le code appelant
  15. C
  16. C Voir aussi EGAR8, EGADPL
  17. C
  18. C LANGAGE : ESOPE
  19. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SEMT/LTA)
  20. C mél : gounand@semt2.smts.cea.fr
  21. C***********************************************************************
  22. C VERSION : v1, 09/10/2018, version initiale
  23. C HISTORIQUE : v1, 09/10/2018, création
  24. C HISTORIQUE :
  25. C HISTORIQUE :
  26. C***********************************************************************
  27. -INC CCOPTIO
  28. -INC CCREEL
  29. *
  30. REAL X1,X2,XREL,XABS,XMAR,XTOT
  31. * Doit etre compris entre 0.5 (tolerance large) et 1. (tolerance stricte)
  32. PARAMETER (XMAR=0.75)
  33. *
  34. * write(ioimp,*) 'x1=',x1,'x2=',x2,'x1-x2=',x1-x2
  35. XREL=XSZPRE*(max(abs(x1),abs(x2)))
  36. XABS=XSPETI
  37. XTOT=(MAX(XREL,XABS))**XMAR
  38. * write(ioimp,*) 'xrel=',xrel,'xabs=',xabs,'xtot=',xtot
  39. *
  40. EGAR4=ABS(X1-X2).LT.XTOT
  41. *
  42. * End of logical function EGAR4
  43. *
  44. END
  45.  
  46.  
  47.  

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