Télécharger vflinm.eso

Retour à la liste

Numérotation des lignes :

vflinm
  1. C VFLINM SOURCE CHAT 05/01/13 04:06:29 5004
  2.  
  3. SUBROUTINE VFLINVMAC (SIGINV,VAR,NDIMV,XP,XQ,XT,NMODEL)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndimv,nmodel
  6. real*8 siginv(3),var(ndimv),xp,xq,xt
  7. if (nmodel.eq.21) then
  8. call vflcoMACinv(siginv,var(1),var(2),xp,xq,xt)
  9. else if (nmodel.eq.22) then
  10. call vflcaMACinv(siginv,var(1),var(2),xp,xq,xt)
  11. else if (nmodel.eq.23) then
  12. call 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