Télécharger la plaquette Cast3M


fr en

Télécharger voltri.eso

Retour à la liste

Numérotation des lignes : 

voltri

  1. C VOLTRI    SOURCE    CHAT      05/01/13    04:09:07     5004
  2. C---------------------------------------------------------------------|
  3. C                                                                     |
  4.        FUNCTION VOLTRI(X,Y,Z,IA,IB,IC)
  5. C                                                                     |
  6. C      CETTE FONCTION REELLE CALCULE LE VOLUME DU SOLIDE ISSU DU      |
  7. C      POINT I0 ET LIMITE PAR LE TRIANGLE (IA,IB,IC)                  |
  8. C                                                                     |
  9. C---------------------------------------------------------------------|
  10. C
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMCOORD
  17.       DIMENSION  V1(3),V2(3),V3(3),A(3)
  18. C
  19. C      CALCUL DES TROIS VECTEURS COMPOSANT LE TRIEDRE
  20. C      ----------------------------------------------
  21.        A(1)=X
  22.        A(2)=Y
  23.        A(3)=Z
  24.        DO 100 I=1,3
  25.           V1(I)=XCOOR((IDIM+1)*(IA-1)+I)-A(I)
  26.           V2(I)=XCOOR((IDIM+1)*(IB-1)+I)-A(I)
  27.           V3(I)=XCOOR((IDIM+1)*(IC-1)+I)-A(I)
  28. 100    CONTINUE
  29. C
  30. C      CALCUL DU PRODUIT MIXTE DES TROIS VECTEURS
  31. C      ------------------------------------------
  32.        VOLTRI=V1(1)*(V2(2)*V3(3)-V2(3)*V3(2))
  33.      #       +V1(2)*(V2(3)*V3(1)-V2(1)*V3(3))
  34.      #       +V1(3)*(V2(1)*V3(2)-V2(2)*V3(1))
  35.        RETURN
  36.        END
  37.  
  38.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales