Télécharger cvflin.eso

Retour à la liste

Numérotation des lignes :

  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
  8. call c_vflcoMACinv(siginv,var(1),var(2),xp,xq,xt)
  9. else if (nmodel.eq.22) then
  10. call c_vflcaMACinv(siginv,var(1),var(2),xp,xq,xt)
  11. else if (nmodel.eq.23) then
  12. call c_vflcaMACinv(siginv,var(2),var(1),xp,xq,xt)
  13. endif
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales