Sources Esope | Cast3M

tufiza
C TUFIZA    SOURCE    CHAT      05/01/13    03:56:25     5004
      SUBROUTINE TUFIZA(AXX,RAYOM,EPAI)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C          CALCUL DU COEFFICIENT INTERVENANT DANS LE CALCUL
C          DES FACTEURS DE FORME DU TUYAU FISSURE
C          IL EST APPELE PAR TUFIJE
C
C              SORTIE:AXX   VALEUR DU COEFFICIENT
C=======================================================================
      RST=RAYOM/EPAI
      IF(RST.LT.10.D0) THEN
      AXX=(0.125D0*RST-0.25D0)**0.25D0
      ELSE
      AXX=(0.4D0*RST-3.D0)**0.25D0
      ENDIF
      RETURN
      END