Sources Esope | Cast3M

vymivr
C VYMIVR    SOURCE    CB215821  16/04/21    21:18:40     8920
 
      SUBROUTINE VYIMIEHEVAR(VAR,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8 var,valor,sigymiehe_der
      valor=sigymiehe_der(var)*SQRT(2.D0/3.D0)
      return
      end