Sources Esope | Cast3M

vflsig
C VFLSIG    SOURCE    CHAT      05/01/13    04:06:44     5004
 
      SUBROUTINE VFLSIG (SIG,NDIMS,VAR,NDIMV,VECM,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv,nmodel
      real*8  sig(ndims),var(ndimv),vecm(ndims)
      if (nmodel.eq.5) then
         call vflsigpowder1(sig,vecm)
      else if (nmodel.eq.6) then
         call vflsigpowder2(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