Esope source files

   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 :