Sources Esope | Cast3M

vflvmv
C VFLVMV    SOURCE    CHAT      05/01/13    04:06:50     5004
 
      SUBROUTINE VFLVMINV (SIGINV,XP,XQ,XT)
      IMPLICIT INTEGER(I-N)
      real*8    xp,xq,xt,siginv(3)
      xp=0.D0
      xq=1.D0/sqrt(2.D0*siginv(2))
      xt=0.D0
      return
      end