Sources Esope | Cast3M

xerrel
C XERREL    SOURCE    GOUNAND   05/12/21    21:37:34     5281
      FUNCTION XERREL(XEX,XAPP)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
*
*  Erreur relative
*
-INC CCREEL
      REAL*8 XERREL,XEX,XAPP
      IF (ABS(XEX).GT.100.D0*XZPREC) THEN
         XERREL=ABS(XEX-XAPP)/ABS(XEX)
      ELSE
         XERREL=ABS(XAPP)
      ENDIF
      END