Télécharger cvflsi.eso

Retour à la liste

Numérotation des lignes :

  1. C CVFLSI SOURCE KK2000 14/04/09 21:15:13 8027
  2.  
  3. SUBROUTINE C_VFLSIGMAC (SIG,NDIMS,VAR,NDIMV,VECM,NMODEL)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndims,ndimv,nmodel,i
  6. complex*16 sig(ndims),siginv(3),var(ndimv),vecm(ndims),
  7. . x1(6),x2(6),x3(6),xp,xq,xt
  8. call CINVPQ(sig,ndims,siginv)
  9. call c_vflinvMAC(siginv,var,ndimv,xp,xq,xt,nmodel)
  10. call c_DerInvariPQT(sig,ndims,x1,x2,x3)
  11. do i=1,ndims
  12. vecm(i)=xp*x1(i)+xq*x2(i)+xt*x3(i)
  13. enddo
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  
  20.  

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