Esope source files

   1 : C T2ITR     SOURCE    CHAT      05/01/13    03:30:14     5004           
   2 :       SUBROUTINE T2ITR(BOITE,ITRI,NBE,COORD,NBN)
   3 : C     **********************************************************************
   4 : C     OBJET : UN TRIANGLE CONTENANT LA BOITE
   5 : C     EN ENTREE  :
   6 : C        BOITE   :  LA BOITE QUE DOIT CONTENIR LE MAILLAGE
   7 : C     EN SORTIE  :
   8 : C        ITRI    :  LA DEFINITION DES TRIANGLES (LEURS POINTS)
   9 : C        NBE     :  LE NOMBRE D'ELEMENTS
  10 : C        COORD   :  TABLEAU DES COORDONNEES
  11 : C        NBN     :  NOMBRE DE POINTS DE LA TRIANGULATION INITIALE
  12 : C     **********************************************************************
  13 :       IMPLICIT INTEGER(I-N)
  14 :       REAL*8       BOITE(4),COORD(*)
  15 :       INTEGER    NBN,ITRI(*),NBE
  16 : C
  17 :       INTEGER I
  18 : C
  19 :       COORD(1) = -SQRT(3.D0)/2.D0
  20 :       COORD(2) = -0.5D0
  21 : C
  22 :       COORD(3) = SQRT(3.D0)/2.D0
  23 :       COORD(4) = -0.5D0
  24 : C
  25 :       COORD(5) = 0.D0
  26 :       COORD(6) = 1.D0
  27 : C
  28 :       DO 10 I=1,6
  29 :         COORD(I) = 50.D0 * COORD(I)
  30 :    10 CONTINUE
  31 : C
  32 :       ITRI(1) = 1
  33 :       ITRI(2) = 2
  34 :       ITRI(3) = 3
  35 : C
  36 :       NBN = 3
  37 :       NBE = 1
  38 : C
  39 :       END
  40 :  
  41 :  
  42 :