Esope source files

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