Sources Esope | Cast3M

dvvmin
C DVVMIN    SOURCE    CB215821  16/04/21    21:16:33     8920
 
      SUBROUTINE DVFLVMINV (SIGINV,XPP,XQQ,XQT,XTT)
      IMPLICIT INTEGER(I-N)
      real*8 siginv(3),xqq,xqt,xtt,xpp
      xpp=0.D0
      xqq=-1.D0/SQRT(8.D0*siginv(2)**3)
      xqt=0.D0
      xtt=0.D0
      return
      end