Numérotation des lignes :

numgeo
C NUMGEO    SOURCE    BP208322  18/11/19    21:15:15     9996             C-----------------------------------------------------------------------C                             N U M G E OC                             -----------CC  Fonction :C ------------C  Donner le numero de l'element GEOMETRIQUE associe a un element FINI.CC  Parametres :C --------------C  NUMEF  (E)  Numero de l'element FINI (place dans NOMTP)C              voir bdata.eso et CCHAMP.INCC  NUMGEO (S)  Numero de l'element GEOMETRIQUE associe (place dans NOMS)C              voir bdata.eso et CCGEOME.INCCC  Constantes :C --------------C  NUMGE : On trouve a la N-ieme position du tableau le numero deC          l'element SUPPORT GEOMETRIQUE pour le N-ieme element FINICC  Auteur, date de creation : Denis Robert,le 27 mai 1988C  Langage : FORTRAN77C-----------------------------------------------------------------------       FUNCTION NUMGEO(NUMEF)        IMPLICIT INTEGER(I-N)c cccccc      PARAMETER (LNUMGE=274)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,  11C                 RAC2 RAC3 CUB8 CU20 PRI6 PR15 LIA3 LIA4 LIA6 LIA8 MULT     .           ,  12,  13,  14,  15,  16,  17,  18,  19,  20,  21,  22C                 TET4 TE10 PYR5 PY13 COQ3  DKT POUT LISP FAC3 FAC4 FAC6     .           ,  23,  24,  25,  26,   4,   4,   2,  12,   4,   8,   6C                 FAC8 LTR3 LQU4 LCU8 LPR6 LTE4 LPY5 COQ8 TUYA TUFI COQ2     .           ,  10,   4,   8,  14,  16,  23,  25,  10,   2,   2,   2C                 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,   0C                 THC8 TH20 ICT3 ICQ4 ICT6 ICQ8 ICC8 ICT4 ICP6 IC20 IC10     .           ,   0,   0,   4,   8,   6,  10,  14,  23,  16,  15,  24C                 IC15 TRIP QUAP CUBP TETP PRIP TIMO JOI2 JOI3 JOT3 JOI4     .           ,  17,   6,  10,  15,  24,  17,   2,  12,  13,  18,  19C                 JOI6 JOI8 LISC TRIH  DST LIC4 CERC TUYO LSE2 LITU HYT3     .           ,  20,  21,  13,   4,   4,  19,   1,   2,   2,   2,   4C                 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,  32C                 PO14 BAR3 BAEX LIA2 QUAH CUBH ROT3 SEF2 TRF3 QUF4 CUF8     .           ,  32,   3,   2,   2,   8,  14,   4,   2,   4,   8,  14C                 PRF6 TEF4 PYF5 MSE3 MTR6 MQU9 MC27 MP18 MT10 MP14 SEF3     .           ,  16,  23,  25,   3,   6,  11,  33,  40,  24,   8,   3C                 TRF7 QUF9 CF27 PF21 TF15 PF19 SEG6 TR21 QU36 C216 P126     .           ,   7,  11,  33,  34,  35,  36,   0,   0,   0,   0,   0C                 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,  24C                 PRIQ TRIR QUAR CUBR TETR PRIR Q4RI Q8RI JOQ3 JOQ6 JOQ8     .           ,  17,   6,  10,  15,  24,  17,   8,  10,  29,  30,  31C                 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,  25C                 LS03 LS07 LS09 LS27 LS21 LS15 LS19     .           ,   2,   4,   8,  14,  16,  23,  25C                 BS03 BS07 BS09 BS27 BS21 BS15 BS19     .           ,   2,   5,   9,  14,  16,  23,  25C                 MC03 MC07 MC09 MC27 MC21 MC15 MC19     .           ,   2,   4,   8,  14,  16,  23,  25C                 M103 M107 M109 M127 M121 M115 M119     .           ,   3,   6,  11,  33,  34,  35,  36C                 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)C                 QC03 QC07 QC09 QC27 QC21 QC15 QC19     .           /   3,   7,  11,  33,  34,  35,  36C                 Q103 Q107 Q109 Q127 Q121 Q115 Q119     .           ,   3,   7,  11,  33,  34,  35,  36C                 QS03 QS07 QS09 QS27 QS21 QS15 QS19     .           ,   3,   7,  11,  33,  34,  35,  36C                 MACRO SURE  SHB8 CAF2 CAF3 XQ4R XC8R     .           ,  3 , 22 ,  14,  22,  22,   8,  14c ccccccC                 JOI1  ZCO2  ZCO3 ZCO4 TUY2 TUY3 COS2     .           ,  2,   2 ,   4,   8 ,  2 ,  3,  12C                 COA2  ICY5  IC13     .           ,  12,  25,  26/c cccccc      IF ((NUMEF.GT.LNUMGE).OR.(NUMEF.LE.0)) THEN           NUMGEO=0      ELSE         NUMGEO=NUMGE(NUMEF)      ENDIF       RETURN      END                        

© Cast3M 2003 - Tous droits réservés.
Mentions légales