Sources Esope | Cast3M

pobten
C POBTEN    SOURCE    CHAT      05/01/13    02:15:48     5004
      SUBROUTINE POBTEN(COORD,IDIMC,NBN,BOITE)
C     **********************************************************************
C     OBJET : CALCUL LA BOITE D'ENCOMBREMENT D'UN NUAGE DE POINTS
C     EN ENTREE   :
C          COORD    : TABLEAU DES COORDONNEES DES POINTS
C         IDIMC   : DIMENSION DE L'ESPACE
C         NBN    : NOMBRE DE POINTS
C     EN SORTIE   :
C         BOITE    : LA BOITE D'ENCOMBREMENT (POINT MINI, POINT MAXI )
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      REAL*8       COORD(*)
      INTEGER    IDIMC, NBN
      REAL*8       BOITE(2*IDIMC)
C
      INTEGER I,J
C
      DO 10 I=1,IDIMC
          BOITE(I)      = COORD(I)
          BOITE(IDIMC+I) = COORD(I)
   10 CONTINUE
C
      DO 30 I=2,NBN
        DO 20 J=1,IDIMC
          BOITE(J)      = MIN(BOITE(J)     ,COORD((I-1)*IDIMC+J))
          BOITE(IDIMC+J) = MAX(BOITE(IDIMC+J),COORD((I-1)*IDIMC+J))
   20 CONTINUE
   30 CONTINUE
C
  999 END