Télécharger numgeo.eso

Retour à la liste

Numérotation des lignes :

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

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