Télécharger kdom5.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  27. -INC SMCOORD
  28. C
  29. CELL=0.0D0
  30. DO I1=1,IDIM,1
  31. CELL=CELL+((XCOOR((IP1-1)*(IDIM+1)+I1)-
  32. & XCOOR((IP2-1)*(IDIM+1)+I1))**2)
  33. ENDDO
  34. CELL=CELL**0.5D0
  35. VOL=CELL
  36. C
  37. CELL=0.0D0
  38. DO I1=1,IDIM,1
  39. CELL=CELL+((XCOOR((IP2-1)*(IDIM+1)+I1)-
  40. & XCOOR((IP3-1)*(IDIM+1)+I1))**2)
  41. ENDDO
  42. CELL=CELL**0.5D0
  43. VOL=VOL+CELL
  44. RETURN
  45. END
  46.  
  47.  
  48.  
  49.  

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