Sources Esope | Cast3M

vflinm
C VFLINM    SOURCE    CHAT      05/01/13    04:06:29     5004
 
      SUBROUTINE VFLINVMAC (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 vflcoMACinv(siginv,var(1),var(2),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