Sources Esope | Cast3M

etacfu
C ETACFU    SOURCE    CB215821  16/04/21    21:16:41     8920
c
             FUNCTION ETACONFUNC(VINT)
      IMPLICIT INTEGER(I-N)
      real*8    vint,etaconfunc
      real*8    exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
     .          exl,xnn,aaa,bbb
      common /MRScone/ exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
     .                 exl,xnn,aaa,bbb
      if (exv.lt.0.D0) then
        etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
      else
        etaconfunc=aaa*EXP(-bbb*vint)*(xk1+vint)**(1.D0/exv)+
     .             xk2*etb*vint/(xep+vint)
      endif
      return
      end