Sources Esope | Cast3M

ylldvm
C YLLDVM    SOURCE    CB215821  16/04/21    21:18:45     8920
 
      SUBROUTINE YIELDVM (SIGINV,VARINT,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8 siginv(3),varint,valor,sigy
      valor=SQRT(2.D0*siginv(2))-sigy(varint)
      return
      end