Esope source files

   1 : C DVVMIN    SOURCE    CHAT      05/01/12    22:59:41     5004           
   2 : 
   3 :       SUBROUTINE DVFLVMINV (SIGINV,XPP,XQQ,XQT,XTT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       real*8 siginv(3),xqq,xqt,xtt,xpp
   6 :       xpp=0.D0
   7 :       xqq=-1.D0/dsqrt(8.D0*siginv(2)**3)
   8 :       xqt=0.D0
   9 :       xtt=0.D0
  10 :       return
  11 :       end
  12 :  
  13 :  
  14 :