Sources Esope | Cast3M

vyisig
C VYISIG    SOURCE    CHAT      05/01/13    04:10:48     5004
 
      SUBROUTINE VYISIG (SIG,NDIMS,VAR,NDIMV,VECM,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv,nmodel
      real*8  sig(ndims),siginv(3),var(ndimv),vecm(ndims)
      if (nmodel.eq.5) then
         call vflsigpowder1(sig,vecm)
      else if (nmodel.eq.6) then
         call vyisigpowder2(sig,vecm)
      else if (nmodel.eq.8) then
         call vflsigmiehe(sig,vecm)
      else if (nmodel.eq.2) then
         call vflsigRHMC (sig,ndims,var,ndimv,vecm)
      endif
      return
      end