Télécharger maxlt3.eso

Retour à la liste

Numérotation des lignes :

  1. C MAXLT3 SOURCE CHAT 05/01/13 01:37:09 5004
  2. SUBROUTINE MAXLT3(NBNN,XE,DARET)
  3. CCCCC
  4. C CALCUL DE LA LONGUEUR DE LA PLUS
  5. C LONGUE ARETE D'UN TRI3
  6. CCCCC
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9. -INC CCOPTIO
  10. REAL*8 XE(3,NBNN)
  11. *
  12. NDIM=IDIM
  13. DARET=0.
  14. D1=0.
  15. D2=0.
  16. D3=0.
  17. DO 10 I=1,NDIM
  18. D1=D1+(XE(I,3)-XE(I,2))**2
  19. D2=D2+(XE(I,1)-XE(I,3))**2
  20. D3=D3+(XE(I,2)-XE(I,1))**2
  21. 10 CONTINUE
  22. DARET=MAX(DARET,D1)
  23. DARET=MAX(DARET,D2)
  24. DARET=MAX(DARET,D3)
  25. DARET=SQRT(DARET)
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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