Télécharger pobten.eso

Retour à la liste

Numérotation des lignes :

pobten
  1. C POBTEN SOURCE CHAT 05/01/13 02:15:48 5004
  2. SUBROUTINE POBTEN(COORD,IDIMC,NBN,BOITE)
  3. C **********************************************************************
  4. C OBJET : CALCUL LA BOITE D'ENCOMBREMENT D'UN NUAGE DE POINTS
  5. C EN ENTREE :
  6. C COORD : TABLEAU DES COORDONNEES DES POINTS
  7. C IDIMC : DIMENSION DE L'ESPACE
  8. C NBN : NOMBRE DE POINTS
  9. C EN SORTIE :
  10. C BOITE : LA BOITE D'ENCOMBREMENT (POINT MINI, POINT MAXI )
  11. C **********************************************************************
  12. IMPLICIT INTEGER(I-N)
  13. REAL*8 COORD(*)
  14. INTEGER IDIMC, NBN
  15. REAL*8 BOITE(2*IDIMC)
  16. C
  17. INTEGER I,J
  18. C
  19. DO 10 I=1,IDIMC
  20. BOITE(I) = COORD(I)
  21. BOITE(IDIMC+I) = COORD(I)
  22. 10 CONTINUE
  23. C
  24. DO 30 I=2,NBN
  25. DO 20 J=1,IDIMC
  26. BOITE(J) = MIN(BOITE(J) ,COORD((I-1)*IDIMC+J))
  27. BOITE(IDIMC+J) = MAX(BOITE(IDIMC+J),COORD((I-1)*IDIMC+J))
  28. 20 CONTINUE
  29. 30 CONTINUE
  30. C
  31. 999 END
  32.  
  33.  
  34.  

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