Télécharger det3.eso

Retour à la liste

Numérotation des lignes :

  1. C DET3 SOURCE CHAT 05/01/12 22:43:58 5004
  2. C SOURCE MARTINEZ
  3. SUBROUTINE DET3(DETA,A)
  4. C
  5. C calcul du determinant d'une matrice 3X3
  6. C
  7. C
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11. REAL*8 A(3,3)
  12. C
  13. A11=A(1,1)
  14. A12=A(1,2)
  15. A13=A(1,3)
  16. A21=A(2,1)
  17. A22=A(2,2)
  18. A23=A(2,3)
  19. A31=A(3,1)
  20. A32=A(3,2)
  21. A33=A(3,3)
  22. C
  23. DETA=(A11*A22*A33)+(A13*A21*A32)+(A31*A12*A23)
  24. & -((A31*A22*A13)+(A11*A32*A23)+(A33*A21*A12))
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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