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