Esope source files

   1 : C TUFIZA    SOURCE    CHAT      05/01/13    03:56:25     5004           
   2 :       SUBROUTINE TUFIZA(AXX,RAYOM,EPAI)                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C=======================================================================        
   6 : C          CALCUL DU COEFFICIENT INTERVENANT DANS LE CALCUL                     
   7 : C          DES FACTEURS DE FORME DU TUYAU FISSURE                               
   8 : C          IL EST APPELE PAR TUFIJE                                             
   9 : C                                                                               
  10 : C              SORTIE:AXX   VALEUR DU COEFFICIENT                               
  11 : C=======================================================================        
  12 :       RST=RAYOM/EPAI                                                            
  13 :       IF(RST.LT.10.D0) THEN                                                     
  14 :       AXX=(0.125D0*RST-0.25D0)**0.25D0                                          
  15 :       ELSE                                                                      
  16 :       AXX=(0.4D0*RST-3.D0)**0.25D0                                              
  17 :       ENDIF                                                                     
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :