Esope source files

   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 :