Esope source files

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