Télécharger vflsgj.eso

Retour à la liste

Numérotation des lignes :

vflsgj
  1. C VFLSGJ SOURCE CHAT 05/01/13 04:06:41 5004
  2.  
  3. SUBROUTINE VFLSIGJ2 (SIG,NDIMS,VAR,NDIMV,VECM)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndims,ndimv,i
  6. real*8 sig(ndims),siginv(3),var(ndimv),vecm(ndims),
  7. . x1(6),x2(6),x3(6),xp,xq,xt
  8. call InvariantesIJJ(sig,ndims,siginv)
  9. call vflvminv(siginv,xp,xq,xt)
  10. call DerInvariIJJ(sig,x1,x2,x3,ndims)
  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.  

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