Télécharger norton.eso

Retour à la liste

Numérotation des lignes :

  1. C NORTON SOURCE CHAT 05/01/13 02:00:55 5004
  2. SUBROUTINE NORTON(SIGEFF,EPSH,DT,CA,CN,CM,DEPSC)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL *8 (A-H,O-Z)
  5. T1 =CA*SIGEFF**CN
  6. DRT = ABS ( 1.D0 - CM)
  7. IF( DRT.LT.1.D-4) THEN
  8. DEPSC= ABS(T1)
  9. ELSE
  10. TIME=(EPSH/T1)**(1.0D0/CM)
  11. IF(TIME.LT.DT) TIME = ABS(DT)
  12. IF( TIME.GT.1.D30) TIME = 1.D30
  13. DEPSC= T1*CM*TIME**(CM-1.0D0)
  14. ENDIF
  15. RETURN
  16. END
  17.  
  18.  
  19.  

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