Télécharger la plaquette Cast3M


fr en

Télécharger det.eso

Retour à la liste

Numérotation des lignes : 

det

  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