Esope source files

   1 : C DETERM    SOURCE    CHAT      05/01/12    22:44:01     5004           
   2 :       SUBROUTINE DETERM(AS,ASAC)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)  
   5 : C --- CALCUL DU DETERMINANT D'UNE MATRICE 3*3
   6 :       DIMENSION AS(3,3)
   7 :       ASAC=AS(1,1)*AS(2,2)*AS(3,3)+AS(2,1)*AS(3,2)*AS(1,3)
   8 :      &    +AS(3,1)*AS(2,3)*AS(1,2)-AS(1,3)*AS(2,2)*AS(3,1)
   9 :      &    -AS(1,2)*AS(2,1)*AS(3,3)-AS(1,1)*AS(3,2)*AS(2,3)
  10 :       END
  11 : 
  12 :  
  13 :