Sources Esope | Cast3M

det3
C DET3      SOURCE    CHAT      05/01/12    22:43:58     5004
C  SOURCE  MARTINEZ
      SUBROUTINE DET3(DETA,A)
C
C     calcul du determinant d'une matrice 3X3
C
C
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 A(3,3)
C
      A11=A(1,1)
      A12=A(1,2)
      A13=A(1,3)
      A21=A(2,1)
      A22=A(2,2)
      A23=A(2,3)
      A31=A(3,1)
      A32=A(3,2)
      A33=A(3,3)
C
      DETA=(A11*A22*A33)+(A13*A21*A32)+(A31*A12*A23)
     &   -((A31*A22*A13)+(A11*A32*A23)+(A33*A21*A12))
C
      RETURN
      END