Télécharger la plaquette Cast3M


fr en

Télécharger kdom5.eso

Retour à la liste

Numérotation des lignes : 

kdom5

  1. C KDOM5     SOURCE    KK2000    14/04/10    21:15:13     8032
  2.       SUBROUTINE KDOM5(IP1,IP2,IP3,VOL)
  3. C
  4. C************************************************************************
  5. C
  6. C PROJET            :  CASTEM 2000
  7. C
  8. C NOM               :  KDOM5
  9. C
  10. C DESCRIPTION       :  Subroutine called by LEKMA0
  11. C                      Given a SEG3 (IP1,IP2,IP3), IP2 is the center
  12. C                      points, this subroutine compute its length.
  13. C
  14. C LANGAGE           :  FORTRAN 77 + ESOPE 2000 (avec estensions CISI)
  15. C
  16. C AUTEUR            :  A. BECCANTINI, DRN/DMT/SEMT/LTMF
  17. C
  18. C************************************************************************
  19. C
  20. C
  21.       IMPLICIT INTEGER(I-N)
  22.       IMPLICIT REAL*8(A-H,O-Z)
  23.  
  24.       INTEGER IP1,IP2,IP3, I1
  25.       REAL*8 VOL, CELL
  26.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. -INC SMCOORD
  30. C
  31.       CELL=0.0D0
  32.       DO I1=1,IDIM,1
  33.          CELL=CELL+((XCOOR((IP1-1)*(IDIM+1)+I1)-
  34.      &        XCOOR((IP2-1)*(IDIM+1)+I1))**2)
  35.       ENDDO
  36.       CELL=CELL**0.5D0
  37.       VOL=CELL
  38. C
  39.       CELL=0.0D0
  40.       DO I1=1,IDIM,1
  41.          CELL=CELL+((XCOOR((IP2-1)*(IDIM+1)+I1)-
  42.      &        XCOOR((IP3-1)*(IDIM+1)+I1))**2)
  43.       ENDDO
  44.       CELL=CELL**0.5D0
  45.       VOL=VOL+CELL
  46.       RETURN
  47.       END
  48.  
  49.  
  50.  
  51.  

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