C VOL       SOURCE    JC220346  16/11/29    21:15:41     9221           
C---------------------------------------------------------------------|
C                                                                     |
       FUNCTION VOL(IO,IA,IB,IC)
C                                                                     |
C      CETTE FONCTION REELLE CALCULE LE VOLUME DU SOLIDE ISSU DU      |
C      POINT I0 ET LIMITE PAR LE TRIANGLE (IA,IB,IC)                  |
C                                                                     |
C---------------------------------------------------------------------|
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC TDEMAIT

-INC PPARAM
-INC CCOPTIO
-INC CCREEL
      DIMENSION  V1(3),V2(3),V3(3)
C
C      CALCUL DES TROIS VECTEURS COMPOSANT LE TRIEDRE
C      ----------------------------------------------
       DO 100 I=1,3
          A=XYZ(I,IO)
          V1(I)=XYZ(I,IA)-A
          V2(I)=XYZ(I,IB)-A
          V3(I)=XYZ(I,IC)-A
100    CONTINUE
C
C      CALCUL DU PRODUIT MIXTE DES TROIS VECTEURS
C      ------------------------------------------
       VOL=V1(1)*(V2(2)*V3(3)-V2(3)*V3(2))
     #    +V1(2)*(V2(3)*V3(1)-V2(1)*V3(3))
     #    +V1(3)*(V2(1)*V3(2)-V2(2)*V3(1))
       RETURN
       END