Sources Esope | Cast3M

cetafu
C CETAFU    SOURCE    KK2000    14/04/09    21:15:05     8027
c
      FUNCTION C_ETACONFUNC(VINT)
      IMPLICIT INTEGER(I-N)
      complex*16    vint,c_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
        c_etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
      else
        c_etaconfunc=aaa*exp(-CMPLX(bbb)*vint)*
     &            (CMPLX(xk1)+vint)**CMPLX(1.D0/exv)+
     &             CMPLX(xk2*etb)*vint/(CMPLX(xep)+vint)
      endif
      return
      end