C T2INIT    SOURCE    CHAT      05/01/13    03:30:07     5004           
      SUBROUTINE T2INIT(BOITE,NUM,ITRI,NBE,COORD,NBN)
C     **********************************************************************
C     OBJET : TRIANGULATION INITIALE AVEC UN POINT INTERIEUR
C     EN ENTREE  :
C        BOITE   :  LA BOITE QUE DOIT CONTENIR LE MAILLAGE
C        NUM     :  NUMERO D'UN POINT A L'INTERIEUR DE LA BOITE
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    NUM, NBN
      INTEGER    ITRI(*),NBE
C
      INTEGER IPOLY
C
      IPOLY = 1
      GOTO(10,20,30) IPOLY
   10 CALL T2ISP(BOITE,NUM,ITRI,NBE,COORD,NBN)
      GOTO 999
   20 CALL T2IBT(BOITE,ITRI,NBE,COORD,NBN)
      GOTO 999
   30 CALL T2ITR(BOITE,ITRI,NBE,COORD,NBN)
  999 END