Esope source files

   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 :