Télécharger dsinit.eso

Retour à la liste

Numérotation des lignes :

  1. C DSINIT SOURCE CHAT 05/01/12 22:56:30 5004
  2. C *****************************************************************
  3. C MODULE : ES (ENTREES SORTIES)
  4. C FICHIER : ES_ERREUR.F
  5. C OBJET : GESTION DES ERREURS ET AUTRES UTILITAIRES GENERAUX
  6. C
  7. C FONCT. :
  8. C
  9. C DSINITC : INITIALISATION DES CONSTANTES DE DELOS
  10. C
  11. C DSERRE : ECRIT UN MESSAGE D'ERREUR SUR LE STANDARD OUTPUT
  12. C
  13. C
  14. C AUTEUR : O.STAB
  15. C DATE : 02.96 / 05.96
  16. C MODIFICATIONS :
  17. C AUTEUR, DATE, OBJET :
  18. C
  19. C
  20. C *****************************************************************
  21. C
  22. SUBROUTINE DSINIT
  23. C *****************************************************************
  24. C OBJET : INITIALISATION DES CONSTANTES DE DELOS
  25. C
  26. C INITDS DOIT ETRE APPELE DE LE DEBUT DU PROGRAMME PRINCIPAL
  27. C
  28. C *****************************************************************
  29. C CALL ICGEPS
  30. C CALL STINIT
  31. C POUR LES TETRA :
  32. C ITA2F : ARETE PARTAGEE PAR 2 FACES
  33. C ITA2F(I,J),ITA2F(J,I) = L'ARETE COMMUNE
  34. C AU FACES I ET J ET DIRECTE POUR I
  35. C
  36. C IT2FA : LES 2 FACES INCIDENTES A UNE ARETE
  37. C IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J
  38. C IT2FA(J,I) = FACE INDIRECTE
  39. C
  40. C IT3SF : LES 3 SOMMETS D'UNE FACE
  41. C
  42. IMPLICIT INTEGER(I-N)
  43. COMMON /STRTET/ ITA2F(4,4),IT2FA(4,4),IT3SF(3,4)
  44. INTEGER ITA2F, IT2FA, IT3SF
  45. COMMON /STRHEX/ IQ4SF(4,6),IQ3FS(3,8)
  46. INTEGER IQ4SF,IQ3FS
  47. C
  48. C =================================
  49. C ---- POUR LES TETRAEDRES ----
  50. C =================================
  51. C
  52. C ===========================================
  53. C ---- ITA2F(I,J) = ITA2F(J,I) = L'ARETE COMMUNE
  54. C AU FACES I ET J ET DIRECTE POUR I
  55. C A REVOIR
  56. C ===========================================
  57. ITA2F(1,1) = 0
  58. ITA2F(2,1) = 4
  59. ITA2F(3,1) = 2
  60. ITA2F(4,1) = 3
  61. C
  62. ITA2F(1,2) = 3
  63. ITA2F(2,2) = 0
  64. ITA2F(3,2) = 4
  65. ITA2F(4,2) = 1
  66. C
  67. ITA2F(1,3) = 4
  68. ITA2F(2,3) = 1
  69. ITA2F(3,3) = 0
  70. ITA2F(4,3) = 2
  71. C
  72. ITA2F(1,4) = 2
  73. ITA2F(2,4) = 3
  74. ITA2F(3,4) = 1
  75. ITA2F(4,4) = 0
  76. C
  77. C
  78. C ===========================================
  79. C ---- IT2FA(I,J) = FACE DIRECTE POUR L'ARETE I,J ----
  80. C IT2FA(J,I) = FACE INDIRECTE
  81. C A REVOIR
  82. C ===========================================
  83. IT2FA(1,1) = 0
  84. IT2FA(2,1) = 4
  85. IT2FA(3,1) = 2
  86. IT2FA(4,1) = 3
  87. C
  88. IT2FA(1,2) = 3
  89. IT2FA(2,2) = 0
  90. IT2FA(3,2) = 4
  91. IT2FA(4,2) = 1
  92. C
  93. IT2FA(1,3) = 4
  94. IT2FA(2,3) = 1
  95. IT2FA(3,3) = 0
  96. IT2FA(4,3) = 2
  97. C
  98. IT2FA(1,4) = 2
  99. IT2FA(2,4) = 3
  100. IT2FA(3,4) = 1
  101. IT2FA(4,4) = 0
  102. C
  103. C =================================
  104. C ---- IT3SF(I,J) = NOEUD I DE LA FACE J ----
  105. C =================================
  106. IT3SF(1,1) = 2
  107. IT3SF(2,1) = 4
  108. IT3SF(3,1) = 3
  109. C
  110. IT3SF(1,2) = 3
  111. IT3SF(2,2) = 4
  112. IT3SF(3,2) = 1
  113. C
  114. IT3SF(1,3) = 4
  115. IT3SF(2,3) = 2
  116. IT3SF(3,3) = 1
  117. C
  118. IT3SF(1,4) = 1
  119. IT3SF(2,4) = 2
  120. IT3SF(3,4) = 3
  121. C
  122. C =================================
  123. C ---- POUR LES HEXAEDRES ----
  124. C =================================
  125. C
  126. C
  127. C =================================
  128. C ---- IQ4SF(I,J) = NOEUD I DE LA FACE J ----
  129. C =================================
  130. C
  131. IQ4SF(1,1) = 1
  132. IQ4SF(2,1) = 2
  133. IQ4SF(3,1) = 3
  134. IQ4SF(4,1) = 4
  135. C
  136. IQ4SF(1,2) = 1
  137. IQ4SF(2,2) = 5
  138. IQ4SF(3,2) = 6
  139. IQ4SF(4,2) = 2
  140. C
  141. IQ4SF(1,3) = 2
  142. IQ4SF(2,3) = 6
  143. IQ4SF(3,3) = 7
  144. IQ4SF(4,3) = 3
  145. C
  146. IQ4SF(1,4) = 3
  147. IQ4SF(2,4) = 7
  148. IQ4SF(3,4) = 8
  149. IQ4SF(4,4) = 4
  150. C
  151. IQ4SF(1,5) = 4
  152. IQ4SF(2,5) = 8
  153. IQ4SF(3,5) = 5
  154. IQ4SF(4,5) = 1
  155. C
  156. IQ4SF(1,6) = 5
  157. IQ4SF(2,6) = 8
  158. IQ4SF(3,6) = 7
  159. IQ4SF(4,6) = 6
  160. C
  161. C =================================
  162. C ---- IQ3FS(I,J) = FACE I AU NOEUD J ----
  163. C =================================
  164. C
  165. IQ3FS(1,1) = 1
  166. IQ3FS(2,1) = 2
  167. IQ3FS(3,1) = 5
  168. C
  169. IQ3FS(1,2) = 2
  170. IQ3FS(2,2) = 1
  171. IQ3FS(3,2) = 3
  172. C
  173. IQ3FS(1,3) = 3
  174. IQ3FS(2,3) = 1
  175. IQ3FS(3,3) = 4
  176. C
  177. IQ3FS(1,4) = 4
  178. IQ3FS(2,4) = 1
  179. IQ3FS(3,4) = 5
  180. C
  181. IQ3FS(1,5) = 2
  182. IQ3FS(2,5) = 6
  183. IQ3FS(3,5) = 5
  184. C
  185. IQ3FS(1,6) = 3
  186. IQ3FS(2,6) = 6
  187. IQ3FS(3,6) = 2
  188. C
  189. IQ3FS(1,7) = 4
  190. IQ3FS(2,7) = 6
  191. IQ3FS(3,7) = 3
  192. C
  193. IQ3FS(1,8) = 5
  194. IQ3FS(2,8) = 6
  195. IQ3FS(3,8) = 4
  196. C
  197. END
  198.  
  199.  
  200.  

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