Sources Esope | Cast3M

sigymd
C SIGYMD    SOURCE    CHAT      05/01/13    03:18:26     5004
 
             FUNCTION SIGYMIEHE_DER (VINT)
      IMPLICIT INTEGER(I-N)
      real*8          sigymiehe_der
      real*8            sigy0,kiso,siginf,velo,cpar,mpar,vint
      common /miehdata/ sigy0,kiso,siginf,velo,cpar,mpar
      if (velo.eq.0.D0) then
       sigymiehe_der=-(kiso)
      else
       sigymiehe_der=-(kiso+velo*(siginf-sigy0)*exp(-velo*vint))
      endif
      return
      end