Sources Esope | Cast3M

numgeo
C NUMGEO    SOURCE    OF166741  24/05/06    21:15:23     11082          
 
 
C-----------------------------------------------------------------------
C                             N U M G E O
C                             -----------
C
C  Fonction :
C ------------
C  Donner le numero de l'element GEOMETRIQUE associe a un element FINI.
C
C  Parametres :
C --------------
C  NUMEF  (E)  Numero de l'element FINI (place dans NOMTP)
C              voir bdata.eso et CCHAMP.INC
C  NUMGEO (S)  Numero de l'element GEOMETRIQUE associe (place dans NOMS)
C              voir bdata.eso et CCGEOME.INC
C
C  Constantes :
C --------------
C  NUMGE : On trouve a la N-ieme position du tableau le numero de
C          l'element SUPPORT GEOMETRIQUE pour le N-ieme element FINI
C
C  Auteur, date de creation : Denis Robert,le 27 mai 1988
C  Langage : FORTRAN77
C-----------------------------------------------------------------------
 
      FUNCTION NUMGEO(NUMEF)
 
 
      IMPLICIT INTEGER(I-N)
c cccccc
      PARAMETER (LNUMGE=281)
c cccccc
      DIMENSION NUMGE(LNUMGE)
 
      DATA     NUMGE( 1),NUMGE( 2),NUMGE( 3),NUMGE( 4),NUMGE( 5)
     .        ,NUMGE( 6),NUMGE( 7),NUMGE( 8),NUMGE( 9),NUMGE(10)
     .        ,NUMGE(11),NUMGE(12),NUMGE(13),NUMGE(14),NUMGE(15)
     .        ,NUMGE(16),NUMGE(17),NUMGE(18),NUMGE(19),NUMGE(20)
     .        ,NUMGE(21),NUMGE(22),NUMGE(23),NUMGE(24),NUMGE(25)
     .        ,NUMGE(26),NUMGE(27),NUMGE(28),NUMGE(29),NUMGE(30)
     .        ,NUMGE(31),NUMGE(32),NUMGE(33),NUMGE(34),NUMGE(35)
     .        ,NUMGE(36),NUMGE(37),NUMGE(38),NUMGE(39),NUMGE(40)
     .        ,NUMGE(41),NUMGE(42),NUMGE(43),NUMGE(44),NUMGE(45)
     .        ,NUMGE(46),NUMGE(47),NUMGE(48),NUMGE(49),NUMGE(50)
     .        ,NUMGE(51),NUMGE(52),NUMGE(53),NUMGE(54),NUMGE(55)
C                 CABL SEG2 SEG3 TRI3 TRI4 TRI6 TRI7 QUA4 QUA5 QUA8 QUA9
     .          /    0,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11
C                 RAC2 RAC3 CUB8 CU20 PRI6 PR15 LIA3 LIA4 LIA6 LIA8 MULT
     .           ,  12,  13,  14,  15,  16,  17,  18,  19,  20,  21,  22
C                 TET4 TE10 PYR5 PY13 COQ3  DKT POUT LISP FAC3 FAC4 FAC6
     .           ,  23,  24,  25,  26,   4,   4,   2,  12,   4,   8,   6
C                 FAC8 LTR3 LQU4 LCU8 LPR6 LTE4 LPY5 COQ8 TUYA TUFI COQ2
     .           ,  10,   4,   8,  14,  16,  23,  25,  10,   2,   2,   2
C                 POI1 BARR RACO LSU2 COQ4 LISM COF3 RES2 LSU3 LSU4 LICO
     .           ,   1,   2,  12,   2,   8,  12,   4,   0,   4,   8, 18/
 
      DATA     NUMGE(56),NUMGE(57),NUMGE(58),NUMGE(59),NUMGE(60)
     .        ,NUMGE(61),NUMGE(62),NUMGE(63),NUMGE(64),NUMGE(65)
     .        ,NUMGE(66),NUMGE(67),NUMGE(68),NUMGE(69),NUMGE(70)
     .        ,NUMGE(71),NUMGE(72),NUMGE(73),NUMGE(74),NUMGE(75)
     .        ,NUMGE(76),NUMGE(77),NUMGE(78),NUMGE(79),NUMGE(80)
     .        ,NUMGE(81),NUMGE(82),NUMGE(83),NUMGE(84),NUMGE(85)
     .        ,NUMGE(86),NUMGE(87),NUMGE(88),NUMGE(89),NUMGE(90)
     .        ,NUMGE(91),NUMGE(92),NUMGE(93),NUMGE(94),NUMGE(95)
     .        ,NUMGE(96),NUMGE(97),NUMGE(98),NUMGE(99),NUMGE(100)
     .        ,NUMGE(101),NUMGE(102),NUMGE(103),NUMGE(104),NUMGE(105)
     .        ,NUMGE(106),NUMGE(107),NUMGE(108),NUMGE(109),NUMGE(110)
C                 COQ6 CVS2 CVS3 CVT3 CVT6 CVQ4 CVQ8 THP5 TH13 THP6 TH15
     .           /   6,   2,   3,   4,   6,   8,  10,   0,   0,   0,   0
C                 THC8 TH20 ICT3 ICQ4 ICT6 ICQ8 ICC8 ICT4 ICP6 IC20 IC10
     .           ,   0,   0,   4,   8,   6,  10,  14,  23,  16,  15,  24
C                 IC15 TRIP QUAP CUBP TETP PRIP TIMO JOI2 JOI3 JOT3 JOI4
     .           ,  17,   6,  10,  15,  24,  17,   2,  12,  13,  18,  19
C                 JOI6 JOI8 LISC TRIH  DST LIC4 CERC TUYO LSE2 LITU HYT3
     .           ,  20,  21,  13,   4,   4,  19,   1,   2,   2,   2,   4
C                 HYQ4 HYT4 HYP6 HYC8 TRIS QUAS POIS FOR3 JOP3 JOP6 JOP8
     .           ,   8,  23,  16,  14,   4,   8,   1,  22,  29,  30, 31/
 
      DATA     NUMGE(111),NUMGE(112),NUMGE(113),NUMGE(114),NUMGE(115)
     .        ,NUMGE(116),NUMGE(117),NUMGE(118),NUMGE(119),NUMGE(120)
     .        ,NUMGE(121),NUMGE(122),NUMGE(123),NUMGE(124),NUMGE(125)
     .        ,NUMGE(126),NUMGE(127),NUMGE(128),NUMGE(129),NUMGE(130)
     .        ,NUMGE(131),NUMGE(132),NUMGE(133),NUMGE(134),NUMGE(135)
     .        ,NUMGE(136),NUMGE(137),NUMGE(138),NUMGE(139),NUMGE(140)
     .        ,NUMGE(141),NUMGE(142),NUMGE(143),NUMGE(144),NUMGE(145)
     .        ,NUMGE(146),NUMGE(147),NUMGE(148),NUMGE(149),NUMGE(150)
     .        ,NUMGE(151),NUMGE(152),NUMGE(153),NUMGE(154),NUMGE(155)
     .        ,NUMGE(156),NUMGE(157),NUMGE(158),NUMGE(159),NUMGE(160)
     .        ,NUMGE(161),NUMGE(162),NUMGE(163),NUMGE(164),NUMGE(165)
C                 POL3 POL4 POL5 POL6 POL7 POL8 POL9 PO10 PO11 PO12 PO13
     .           /  32,  32,  32,  32,  32,  32,  32,  32,  32,  32,  32
C                 PO14 BAR3 BAEX LIA2 QUAH CUBH ROT3 SEF2 TRF3 QUF4 CUF8
     .           ,  32,   3,   2,   2,   8,  14,   4,   2,   4,   8,  14
C                 PRF6 TEF4 PYF5 MSE3 MTR6 MQU9 MC27 MP18 MT10 MP14 SEF3
     .           ,  16,  23,  25,   3,   6,  11,  33,  40,  24,   8,   3
C                 TRF7 QUF9 CF27 PF21 TF15 PF19 SEG6 TR21 QU36 C216 P126
     .           ,   7,  11,  33,  34,  35,  36,   0,   0,   0,   0,   0
C                 TE56 PY91 TRH6 BSE2 BTR4 BQU5 BCU9 BPR7 BTE5 BPY6,FRO4
     .           ,   0,   0,   6,   2,   5,   9,  48,  49,  50,  51, 23/
 
      DATA     NUMGE(166),NUMGE(167),NUMGE(168),NUMGE(169),NUMGE(170)
     .        ,NUMGE(171),NUMGE(172),NUMGE(173),NUMGE(174),NUMGE(175)
     .        ,NUMGE(176),NUMGE(177),NUMGE(178),NUMGE(179),NUMGE(180)
     .        ,NUMGE(181),NUMGE(182),NUMGE(183),NUMGE(184),NUMGE(185)
     .        ,NUMGE(186),NUMGE(187),NUMGE(188),NUMGE(189),NUMGE(190)
     .        ,NUMGE(191),NUMGE(192),NUMGE(193),NUMGE(194)
C                 SEGS POJS JCT3 JCI4 JGI2 JGT3 JGI4 TRIQ QUAQ CUBQ TETQ
     .           /   2,   1,  18,  19,  12,  18,  19,   6,  10,  15,  24
C                 PRIQ TRIR QUAR CUBR TETR PRIR Q4RI Q8RI JOQ3 JOQ6 JOQ8
     .           ,  17,   6,  10,  15,  24,  17,   8,  10,  29,  30,  31
C                 JOR3 JOR6 JOR8 T1D2 T1D3 M1D2 M1D3
     .           ,  29,  30,  31,   2,   3,   2,   3 /
 
      DATA     NUMGE(195)
     .        ,NUMGE(196),NUMGE(197),NUMGE(198),NUMGE(199),NUMGE(200)
     .        ,NUMGE(201),NUMGE(202),NUMGE(203),NUMGE(204),NUMGE(205)
     .        ,NUMGE(206),NUMGE(207),NUMGE(208),NUMGE(209),NUMGE(210)
     .        ,NUMGE(211),NUMGE(212),NUMGE(213),NUMGE(214),NUMGE(215)
     .        ,NUMGE(216),NUMGE(217),NUMGE(218),NUMGE(219),NUMGE(220)
     .        ,NUMGE(221),NUMGE(222),NUMGE(223),NUMGE(224),NUMGE(225)
     .        ,NUMGE(226),NUMGE(227),NUMGE(228),NUMGE(229),NUMGE(230)
     .        ,NUMGE(231),NUMGE(232),NUMGE(233),NUMGE(234),NUMGE(235)
     .        ,NUMGE(236)
C                 LC03 LC07 LC09 LC27 LC21 LC15 LC19
     .           /   2,   4,   8,  14,  16,  23,  25
C                 LS03 LS07 LS09 LS27 LS21 LS15 LS19
     .           ,   2,   4,   8,  14,  16,  23,  25
C                 BS03 BS07 BS09 BS27 BS21 BS15 BS19
     .           ,   2,   5,   9,  14,  16,  23,  25
C                 MC03 MC07 MC09 MC27 MC21 MC15 MC19
     .           ,   2,   4,   8,  14,  16,  23,  25
C                 M103 M107 M109 M127 M121 M115 M119
     .           ,   3,   6,  11,  33,  34,  35,  36
C                 MS03 MS07 MS09 MS27 MS21 MS15 MS19
     .           ,   3,   6,  11,  33,  34,  35,  36 /
 
      DATA     NUMGE(237),NUMGE(238),NUMGE(239),NUMGE(240),NUMGE(241)
     .        ,NUMGE(242),NUMGE(243),NUMGE(244),NUMGE(245),NUMGE(246)
     .        ,NUMGE(247),NUMGE(248),NUMGE(249),NUMGE(250),NUMGE(251)
     .        ,NUMGE(252),NUMGE(253),NUMGE(254),NUMGE(255),NUMGE(256)
     .        ,NUMGE(257),NUMGE(258),NUMGE(259),NUMGE(260),numge(261)
     .        ,numge(262),NUMGE(263),NUMGE(264),NUMGE(265),NUMGE(266)
     .        ,numge(267),NUMGE(268),NUMGE(269),NUMGE(270),NUMGE(271)
     .        ,NUMGE(272),NUMGE(273),NUMGE(274),NUMGE(275),NUMGE(276)
     .        ,NUMGE(277),NUMGE(278),NUMGE(279),NUMGE(280)
C                 QC03 QC07 QC09 QC27 QC21 QC15 QC19
     .           /   3,   7,  11,  33,  34,  35,  36
C                 Q103 Q107 Q109 Q127 Q121 Q115 Q119
     .           ,   3,   7,  11,  33,  34,  35,  36
C                 QS03 QS07 QS09 QS27 QS21 QS15 QS19
     .           ,   3,   7,  11,  33,  34,  35,  36
C                 MACRO SURE  SHB8 CAF2 CAF3 XQ4R XC8R
     .           ,  3 , 22 ,  14,  22,  22,   8,  14
c cccccc
C                 JOI1  ZCO2  ZCO3 ZCO4 TUY2 TUY3 COS2
     .           ,  2,   2 ,   4,   8 ,  2 ,  3,  12
C                 COA2  ICY5  IC13 CU27 PR21 TE15 PY19
     .           ,  12,  25,  26,  33,  34,  35,  36
C                 C20R  P15R
     .           ,  15,   17/
c cccccc
 
C FORMULATION HHO (voir INCLUDE CCHHOPA) :
C     Le support geometrique du HHO est celui du maillage.
C     NUMGE(HHO_NUM_ELEMENT) = 0 pour avoir une valeur definie de la fonction
      DATA NUMGE(281) / 0 /
 
      IF ((NUMEF.GT.LNUMGE).OR.(NUMEF.LE.0)) THEN
           NUMGEO=0
      ELSE
         NUMGEO=NUMGE(NUMEF)
      ENDIF
 
C      RETURN
      END