Sources Esope | Cast3M

sigyde
C SIGYDE    SOURCE    CHAT      05/01/13    03:18:20     5004
 
             FUNCTION SIGY_DER (VINT)
      IMPLICIT INTEGER(I-N)
      real*8 vint,sigy0,kiso,siginf,velo,sigy_der
      common /j2j2data/ sigy0,kiso,siginf,velo
      if (velo.eq.0.D0) then
         sigy_der=sqrt(2.D0/3.D0)*kiso
      else
         sigy_der=sqrt(2.D0/3.D0)*(
     .            kiso+velo*(siginf-sigy0)*exp(-velo*vint))
      endif
      return
      end