Esope source files

   1 : C ETACFU    SOURCE    CHAT      05/01/12    23:45:52     5004           
   2 : c
   3 :              FUNCTION ETACONFUNC(VINT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       real*8    vint,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 :         etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
  12 :       else
  13 :         etaconfunc=aaa*dexp(-bbb*vint)*(xk1+vint)**(1.D0/exv)+
  14 :      .             xk2*etb*vint/(xep+vint)
  15 :       endif
  16 :       return
  17 :       end
  18 :  
  19 :  
  20 :