Télécharger la plaquette Cast3M


fr en

Télécharger egar4.eso

Retour à la liste

Numérotation des lignes : 

egar4

  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.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. -INC CCREEL
  31. *
  32.       REAL X1,X2,XREL,XABS,XMAR,XTOT
  33. * Doit etre compris entre 0.5 (tolerance large) et 1. (tolerance stricte)      
  34.       PARAMETER (XMAR=0.75)
  35. *
  36. *      write(ioimp,*) 'x1=',x1,'x2=',x2,'x1-x2=',x1-x2
  37.       XREL=XSZPRE*(max(abs(x1),abs(x2)))
  38.       XABS=XSPETI
  39.       XTOT=(MAX(XREL,XABS))**XMAR
  40. *      write(ioimp,*) 'xrel=',xrel,'xabs=',xabs,'xtot=',xtot
  41. *
  42.       EGAR4=ABS(X1-X2).LT.XTOT
  43. *
  44. * End of logical function EGAR4
  45. *
  46.       END
  47.  
  48.  
  49.  

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