Sources Esope | Cast3M

vyivar
C VYIVAR    SOURCE    CHAT      05/01/13    04:10:53     5004
 
      SUBROUTINE VYIVAR (SIG,NDIMS,VAR,NDIMV,VALOR,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv,nmodel
      real*8 sig(ndims),var(ndimv),valor
      if (nmodel.eq.8) then
           call vyimiehevar(var(1),valor)
      else
           valor = 0.D0
      endif
      return
      end