Sources Esope | Cast3M

sigyme
C SIGYME    SOURCE    CB215821  16/04/21    21:18:28     8920
 
             FUNCTION SIGYMIEHE (VINT)
      IMPLICIT INTEGER(I-N)
      real*8 sigymiehe, sigy0,kiso,siginf,velo,cpar,mpar,vint
      common /miehdata/ sigy0,kiso,siginf,velo,cpar,mpar
      if (velo.eq.0.D0) then
       sigymiehe=-(sigy0+kiso*vint)
      else
       sigymiehe=-(sigy0+kiso*vint+(siginf-sigy0)
     .            *(1.D0-EXP(-velo*vint)))
      endif
      return
      end