Sources Esope | Cast3M

vflj2v
C VFLJ2V    SOURCE    CHAT      05/01/13    04:06:32     5004
 
      SUBROUTINE VFLJ2VAR (VALOR)
      IMPLICIT INTEGER(I-N)
      real*8 valor
      valor=-sqrt(2.D0/3.D0)
      return
      end