Esope source files

   1 : C CETAFU    SOURCE    CHAT      05/01/12    21:52:32     5004           
   2 : c
   3 :       FUNCTION C_ETACONFUNC(VINT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       complex*16    vint,c_etaconfunc
   6 :       real*8    exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
   7 :      .          exl,xnn,aaa,bbb
   8 :       common /MRScone/ exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
   9 :      .                 exl,xnn,aaa,bbb
  10 :       if (exv.lt.0.D0) then
  11 :         c_etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
  12 :       else
  13 :         c_etaconfunc=aaa*exp(-bbb*vint)*(xk1+vint)**(1.D0/exv)+
  14 :      .             xk2*etb*vint/(xep+vint)
  15 :       endif
  16 :       return
  17 :       end
  18 :  
  19 :  
  20 :