Esope source files

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