Télécharger numgeo.eso

Retour à la liste

Numérotation des lignes :

numgeo
  1. C NUMGEO SOURCE PV090527 22/12/26 21:15:02 11538
  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=280)
  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, 23, 16, 15, 24
  74. C IC15 TRIP QUAP CUBP TETP PRIP TIMO JOI2 JOI3 JOT3 JOI4
  75. . , 17, 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),NUMGE(273),NUMGE(274),NUMGE(275),NUMGE(276)
  147. . ,NUMGE(277),NUMGE(278),NUMGE(279),NUMGE(280)
  148. C QC03 QC07 QC09 QC27 QC21 QC15 QC19
  149. . / 3, 7, 11, 33, 34, 35, 36
  150. C Q103 Q107 Q109 Q127 Q121 Q115 Q119
  151. . , 3, 7, 11, 33, 34, 35, 36
  152. C QS03 QS07 QS09 QS27 QS21 QS15 QS19
  153. . , 3, 7, 11, 33, 34, 35, 36
  154. C MACRO SURE SHB8 CAF2 CAF3 XQ4R XC8R
  155. . , 3 , 22 , 14, 22, 22, 8, 14
  156. c cccccc
  157. C JOI1 ZCO2 ZCO3 ZCO4 TUY2 TUY3 COS2
  158. . , 2, 2 , 4, 8 , 2 , 3, 12
  159. C COA2 ICY5 IC13 CU27 PR21 TE15 PY19
  160. . , 12, 25, 26, 33, 34, 35, 36
  161. C C20R P15R
  162. . , 15, 17/
  163. c cccccc
  164. IF ((NUMEF.GT.LNUMGE).OR.(NUMEF.LE.0)) THEN
  165. ELSE
  166. NUMGEO=NUMGE(NUMEF)
  167. ENDIF
  168.  
  169. RETURN
  170. END
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  

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