Télécharger sigmat.eso

Retour à la liste

Numérotation des lignes :

  1. C SIGMAT SOURCE CB215821 16/04/21 21:18:27 8920
  2. FUNCTION SIGMAT(PRANDT,YPLUS,APLUS,BPLUS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. PR2=SQRT(PRANDT)
  6. DEN=(1.0-1.0/EXP(YPLUS*PR2/BPLUS+1.0E-5))
  7. RNUM=(1.0-1.0/EXP(YPLUS/APLUS+1.0E-5))
  8. SIGMAT=RNUM/DEN
  9. RETURN
  10. END
  11.  
  12.  
  13.  
  14.  

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