Télécharger det.eso

Retour à la liste

Numérotation des lignes :

  1. C DET SOURCE PV 16/02/01 21:15:00 8813
  2. C***********************************************************************
  3. C* *
  4. C* PROJET : Opérateur LIMI *
  5. C* NOM : DETMAT3, fonction *
  6. C* DESCRIPTION : Cette fonction calcule le déterminant d'une matrice *
  7. C* carrée de rang 3 *
  8. C* LANGAGE : Esope *
  9. C* AUTEUR : Guillaume VENCO - DRN/DMT/SEMT/LTMF *
  10. C* *
  11. C***********************************************************************
  12. C* *
  13. C* APPELES : Aucun *
  14. C* *
  15. C***********************************************************************
  16. C* *
  17. C* ENTREES : A : -Matrice carrée 3*3 *
  18. C* *
  19. C* SORTIES : DET : -Déterminant de la matrice A *
  20. C* *
  21. C***********************************************************************
  22. C* *
  23. C* VERSION : 20/04/2000 *
  24. C* CREATION : *
  25. C* *
  26. C***********************************************************************
  27.  
  28. FUNCTION DET(A)
  29. IMPLICIT INTEGER(I-N)
  30. IMPLICIT REAL*8 (A-H,O-Z)
  31. C* *********************************
  32. C* *** Déclaration des variables ***
  33. C* *********************************
  34.  
  35. REAL*8 A(3,3),DET
  36.  
  37. C* *********************************
  38. C* ******** Calcul de DET *********
  39. C* *********************************
  40.  
  41. DET= A(1,1)*(A(2,2)*A(3,3)-A(3,2)*A(2,3))
  42. & +A(2,1)*(A(3,2)*A(1,3)-A(1,2)*A(3,3))
  43. & +A(3,1)*(A(1,2)*A(2,3)-A(2,2)*A(1,3))
  44.  
  45. if (det.eq.0.d0) write (6,*) ((a(i,j),j=1,3),i=1,3)
  46.  
  47.  
  48.  
  49.  
  50. RETURN
  51. END
  52.  
  53. C* *********************************
  54. C* **** Fin Sous-Programme *******
  55. C* *********************************
  56.  
  57.  
  58.  
  59.  
  60.  

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