Sources Esope | Cast3M

vyinmc
C VYINMC    SOURCE    CHAT      05/01/13    04:10:44     5004
 
      SUBROUTINE VYIINVMAC (SIGINV,VAR,NDIMV,XP,XQ,XT,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndimv,nmodel
      real*8 siginv(3),var(ndimv),xp,xq,xt
      if (nmodel.eq.21) then
         call vyicoMACinv(siginv,var(1),xp,xq,xt)
      else if (nmodel.eq.22) then
         call vflcaMACinv(siginv,var(1),var(2),xp,xq,xt)
      else if (nmodel.eq.23) then
         call vflcaMACinv(siginv,var(2),var(1),xp,xq,xt)
      endif
      return
      end