C T2ITR     SOURCE    CHAT      05/01/13    03:30:14     5004           
      SUBROUTINE T2ITR(BOITE,ITRI,NBE,COORD,NBN)
C     **********************************************************************
C     OBJET : UN TRIANGLE CONTENANT LA BOITE
C     EN ENTREE  :
C        BOITE   :  LA BOITE QUE DOIT CONTENIR LE MAILLAGE
C     EN SORTIE  :
C        ITRI    :  LA DEFINITION DES TRIANGLES (LEURS POINTS)
C        NBE     :  LE NOMBRE D'ELEMENTS
C        COORD   :  TABLEAU DES COORDONNEES
C        NBN     :  NOMBRE DE POINTS DE LA TRIANGULATION INITIALE
C     **********************************************************************
      IMPLICIT INTEGER(I-N)
      REAL*8       BOITE(4),COORD(*)
      INTEGER    NBN,ITRI(*),NBE
C
      INTEGER I
C
      COORD(1) = -SQRT(3.D0)/2.D0
      COORD(2) = -0.5D0
C
      COORD(3) = SQRT(3.D0)/2.D0
      COORD(4) = -0.5D0
C
      COORD(5) = 0.D0
      COORD(6) = 1.D0
C
      DO 10 I=1,6
        COORD(I) = 50.D0 * COORD(I)
   10 CONTINUE
C
      ITRI(1) = 1
      ITRI(2) = 2
      ITRI(3) = 3
C
      NBN = 3
      NBE = 1
C
      END