Esope source files

   1 : C T2INIT    SOURCE    CHAT      05/01/13    03:30:07     5004           
   2 :       SUBROUTINE T2INIT(BOITE,NUM,ITRI,NBE,COORD,NBN)
   3 : C     **********************************************************************
   4 : C     OBJET : TRIANGULATION INITIALE AVEC UN POINT INTERIEUR
   5 : C     EN ENTREE  :
   6 : C        BOITE   :  LA BOITE QUE DOIT CONTENIR LE MAILLAGE
   7 : C        NUM     :  NUMERO D'UN POINT A L'INTERIEUR DE LA BOITE
   8 : C     EN SORTIE  :
   9 : C        ITRI    :  LA DEFINITION DES TRIANGLES (LEURS POINTS)
  10 : C        NBE     :  LE NOMBRE D'ELEMENTS
  11 : C        COORD   :  TABLEAU DES COORDONNEES
  12 : C        NBN     :  NOMBRE DE POINTS DE LA TRIANGULATION INITIALE
  13 : C     **********************************************************************
  14 :       IMPLICIT INTEGER(I-N)
  15 :       REAL*8       BOITE(4),COORD(*)
  16 :       INTEGER    NUM, NBN
  17 :       INTEGER    ITRI(*),NBE
  18 : C
  19 :       INTEGER IPOLY
  20 : C
  21 :       IPOLY = 1
  22 :       GOTO(10,20,30) IPOLY
  22 :    10 CALL T2ISP(BOITE,NUM,ITRI,NBE,COORD,NBN)
  23 :       GOTO 999
  23 :    20 CALL T2IBT(BOITE,ITRI,NBE,COORD,NBN)
  24 :       GOTO 999
  24 :    30 CALL T2ITR(BOITE,ITRI,NBE,COORD,NBN)
  25 :   999 END
  26 :  
  27 :