Sources Esope | Cast3M

cvflin
C CVFLIN    SOURCE    CHAT      05/01/12    22:33:18     5004
 
      SUBROUTINE C_VFLINVMAC (SIGINV,VAR,NDIMV,XP,XQ,XT,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndimv,nmodel
      complex*16 siginv(3),var(ndimv),xp,xq,xt
      if (nmodel.eq.21) then
         call c_vflcoMACinv(siginv,var(1),var(2),xp,xq,xt)
      else if (nmodel.eq.22) then
         call c_vflcaMACinv(siginv,var(1),var(2),xp,xq,xt)
      else if (nmodel.eq.23) then
         call c_vflcaMACinv(siginv,var(2),var(1),xp,xq,xt)
      endif
      return
      end