Télécharger dyne12.eso

Retour à la liste

Numérotation des lignes :

  1. C DYNE12 SOURCE FANDEUR 11/04/12 21:16:00 6938
  2.  
  3. SUBROUTINE DYNE12(LCHAIN)
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. *--------------------------------------------------------------------*
  9. * *
  10. * Operateur DYNE : algorithme de Fu - de Vogelaere *
  11. * ________________________________________________ *
  12. * *
  13. * Toutes les chaines utilisees dans DYNE 'DE_VOGELAERE' *
  14. * sont referencees dans ce sous-programme. *
  15. * *
  16. * Parametres: *
  17. * *
  18. * s ICHAIN Segment MLENTI (ACTIF) contenant les adresses des *
  19. * chaines dans la pile des mots de CCNOYAU *
  20. * *
  21. * Auteur, date de creation: *
  22. * *
  23. * Lionel VIVAN, le 2 mars 1990. *
  24. * *
  25. *--------------------------------------------------------------------*
  26. *
  27. -INC SMLENTI
  28. *
  29. PARAMETER ( NCHAIN = 120 )
  30.  
  31. JG = NCHAIN
  32. SEGINI,MLENTI
  33. *
  34. ICHAIN = 1
  35. CALL POSCHA('RESULTAT_DYNE',IRET)
  36. LECT(ICHAIN) = IRET
  37. ICHAIN = 2
  38. CALL POSCHA('RESULTAT_DYNE_PAS',IRET)
  39. LECT(ICHAIN) = IRET
  40. ICHAIN = 3
  41. CALL POSCHA('TEMPS_DE_SORTIE',IRET)
  42. LECT(ICHAIN) = IRET
  43. ICHAIN = 4
  44. CALL POSCHA('TEMPS_DE_REPRISE',IRET)
  45. LECT(ICHAIN) = IRET
  46. ICHAIN = 5
  47. CALL POSCHA('REPRISE',IRET)
  48. LECT(ICHAIN) = IRET
  49. ICHAIN = 6
  50. CALL POSCHA('SOUSTYPE',IRET)
  51. LECT(ICHAIN) = IRET
  52. ICHAIN = 7
  53. CALL POSCHA('DEPLACEMENT',IRET)
  54. LECT(ICHAIN) = IRET
  55. ICHAIN = 8
  56. CALL POSCHA('VITESSE',IRET)
  57. LECT(ICHAIN) = IRET
  58. ICHAIN = 9
  59. CALL POSCHA('DEPLACEMENT_1/2',IRET)
  60. LECT(ICHAIN) = IRET
  61. ICHAIN = 10
  62. CALL POSCHA('VITESSE_1/2',IRET)
  63. LECT(ICHAIN) = IRET
  64. ICHAIN = 11
  65. CALL POSCHA('ACCELERATION',IRET)
  66. LECT(ICHAIN) = IRET
  67. ICHAIN = 12
  68. CALL POSCHA('ACCELERATION_1/2',IRET)
  69. LECT(ICHAIN) = IRET
  70. ICHAIN = 13
  71. CALL POSCHA('FORCES_BASE_A',IRET)
  72. LECT(ICHAIN) = IRET
  73. ICHAIN = 14
  74. CALL POSCHA('FORCES_BASE_A_1/2',IRET)
  75. LECT(ICHAIN) = IRET
  76. ICHAIN = 15
  77. CALL POSCHA('FORCE_DE_CHOC',IRET)
  78. LECT(ICHAIN) = IRET
  79. ICHAIN = 16
  80. CALL POSCHA('UX',IRET)
  81. LECT(ICHAIN) = IRET
  82. ICHAIN = 17
  83. CALL POSCHA('UY',IRET)
  84. LECT(ICHAIN) = IRET
  85. ICHAIN = 18
  86. CALL POSCHA('UZ',IRET)
  87. LECT(ICHAIN) = IRET
  88. ICHAIN = 19
  89. CALL POSCHA('UR',IRET)
  90. LECT(ICHAIN) = IRET
  91. ICHAIN = 20
  92. CALL POSCHA('UT',IRET)
  93. LECT(ICHAIN) = IRET
  94. ICHAIN = 21
  95. CALL POSCHA('UZ',IRET)
  96. LECT(ICHAIN) = IRET
  97. ICHAIN = 22
  98. CALL POSCHA('FORCE_DE_CHOC_POINT_A',IRET)
  99. LECT(ICHAIN) = IRET
  100. ICHAIN = 23
  101. CALL POSCHA('FORCE_DE_CHOC_POINT_B',IRET)
  102. LECT(ICHAIN) = IRET
  103. ICHAIN = 24
  104. CALL POSCHA('UX_POINT_A',IRET)
  105. LECT(ICHAIN) = IRET
  106. ICHAIN = 25
  107. CALL POSCHA('UY_POINT_A',IRET)
  108. LECT(ICHAIN) = IRET
  109. ICHAIN = 26
  110. CALL POSCHA('UZ_POINT_A',IRET)
  111. LECT(ICHAIN) = IRET
  112. ICHAIN = 27
  113. CALL POSCHA('UR_POINT_A',IRET)
  114. LECT(ICHAIN) = IRET
  115. ICHAIN = 28
  116. CALL POSCHA('UT_POINT_A',IRET)
  117. LECT(ICHAIN) = IRET
  118. ICHAIN = 29
  119. CALL POSCHA('UZ_POINT_A',IRET)
  120. LECT(ICHAIN) = IRET
  121. ICHAIN = 30
  122. CALL POSCHA('UX_POINT_B',IRET)
  123. LECT(ICHAIN) = IRET
  124. ICHAIN = 31
  125. CALL POSCHA('UY_POINT_B',IRET)
  126. LECT(ICHAIN) = IRET
  127. ICHAIN = 32
  128. CALL POSCHA('UZ_POINT_B',IRET)
  129. LECT(ICHAIN) = IRET
  130. ICHAIN = 33
  131. CALL POSCHA('UR_POINT_B',IRET)
  132. LECT(ICHAIN) = IRET
  133. ICHAIN = 34
  134. CALL POSCHA('UT_POINT_B',IRET)
  135. LECT(ICHAIN) = IRET
  136. ICHAIN = 35
  137. CALL POSCHA('UZ_POINT_B',IRET)
  138. LECT(ICHAIN) = IRET
  139. ICHAIN = 36
  140. CALL POSCHA('FORCE_DE_CHOC_NORMALE',IRET)
  141. LECT(ICHAIN) = IRET
  142. ICHAIN = 37
  143. CALL POSCHA('FORCE_DE_CHOC_TANGENTIELLE',IRET)
  144. LECT(ICHAIN) = IRET
  145. ICHAIN = 38
  146. CALL POSCHA('PUISSANCE_USURE_INSTANTANEE',IRET)
  147. LECT(ICHAIN) = IRET
  148. ICHAIN = 39
  149. CALL POSCHA('VITESSE_NORMALE',IRET)
  150. LECT(ICHAIN) = IRET
  151. ICHAIN = 40
  152. CALL POSCHA('TYPE',IRET)
  153. LECT(ICHAIN) = IRET
  154. ICHAIN = 41
  155. CALL POSCHA('POSITION_ORIGINE_ADHERENCE',IRET)
  156. LECT(ICHAIN) = IRET
  157. ICHAIN = 42
  158. CALL POSCHA('VITESSE_TANGENTIELLE',IRET)
  159. LECT(ICHAIN) = IRET
  160. ICHAIN = 43
  161. CALL POSCHA('ETAT_DU_FROTTEMENT',IRET)
  162. LECT(ICHAIN) = IRET
  163. ICHAIN = 44
  164. CALL POSCHA('VARIABLES_LIAISON_B',IRET)
  165. LECT(ICHAIN) = IRET
  166. ICHAIN = 45
  167. CALL POSCHA('MX_POINT_FIBRE_NEUTRE',IRET)
  168. LECT(ICHAIN) = IRET
  169. ICHAIN = 46
  170. CALL POSCHA('MY_POINT_FIBRE_NEUTRE',IRET)
  171. LECT(ICHAIN) = IRET
  172. ICHAIN = 47
  173. CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET)
  174. LECT(ICHAIN) = IRET
  175. ICHAIN = 48
  176. CALL POSCHA('MR_POINT_FIBRE_NEUTRE',IRET)
  177. LECT(ICHAIN) = IRET
  178. ICHAIN = 49
  179. CALL POSCHA('MT_POINT_FIBRE_NEUTRE',IRET)
  180. LECT(ICHAIN) = IRET
  181. ICHAIN = 50
  182. CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET)
  183. LECT(ICHAIN) = IRET
  184. ICHAIN = 51
  185. CALL POSCHA('UX_POINT_FIBRE_NEUTRE',IRET)
  186. LECT(ICHAIN) = IRET
  187. ICHAIN = 52
  188. CALL POSCHA('UY_POINT_FIBRE_NEUTRE',IRET)
  189. LECT(ICHAIN) = IRET
  190. ICHAIN = 53
  191. CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET)
  192. LECT(ICHAIN) = IRET
  193. ICHAIN = 54
  194. CALL POSCHA('UR_POINT_FIBRE_NEUTRE',IRET)
  195. LECT(ICHAIN) = IRET
  196. ICHAIN = 55
  197. CALL POSCHA('UT_POINT_FIBRE_NEUTRE',IRET)
  198. LECT(ICHAIN) = IRET
  199. ICHAIN = 56
  200. CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET)
  201. LECT(ICHAIN) = IRET
  202. ICHAIN = 57
  203. CALL POSCHA('VX_POINT_CONTACT',IRET)
  204. LECT(ICHAIN) = IRET
  205. ICHAIN = 58
  206. CALL POSCHA('VY_POINT_CONTACT',IRET)
  207. LECT(ICHAIN) = IRET
  208. ICHAIN = 59
  209. CALL POSCHA('VZ_POINT_CONTACT',IRET)
  210. LECT(ICHAIN) = IRET
  211. ICHAIN = 60
  212. CALL POSCHA('VR_POINT_CONTACT',IRET)
  213. LECT(ICHAIN) = IRET
  214. ICHAIN = 61
  215. CALL POSCHA('VT_POINT_CONTACT',IRET)
  216. LECT(ICHAIN) = IRET
  217. ICHAIN = 62
  218. CALL POSCHA('VZ_POINT_CONTACT',IRET)
  219. LECT(ICHAIN) = IRET
  220. ICHAIN = 63
  221. CALL POSCHA('RX_POINT_FIBRE_NEUTRE',IRET)
  222. LECT(ICHAIN) = IRET
  223. ICHAIN = 64
  224. CALL POSCHA('RY_POINT_FIBRE_NEUTRE',IRET)
  225. LECT(ICHAIN) = IRET
  226. ICHAIN = 65
  227. CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET)
  228. LECT(ICHAIN) = IRET
  229. ICHAIN = 66
  230. CALL POSCHA('RR_POINT_FIBRE_NEUTRE',IRET)
  231. LECT(ICHAIN) = IRET
  232. ICHAIN = 67
  233. CALL POSCHA('RT_POINT_FIBRE_NEUTRE',IRET)
  234. LECT(ICHAIN) = IRET
  235. ICHAIN = 68
  236. CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET)
  237. LECT(ICHAIN) = IRET
  238. ICHAIN = 69
  239. CALL POSCHA('MASSE_AJOUTEE',IRET)
  240. LECT(ICHAIN) = IRET
  241. ICHAIN = 70
  242. CALL POSCHA('FORCE_CONVECTION',IRET)
  243. LECT(ICHAIN) = IRET
  244. ICHAIN = 71
  245. CALL POSCHA('FORCE_VISCOSITE',IRET)
  246. LECT(ICHAIN) = IRET
  247. ICHAIN = 72
  248. CALL POSCHA('FORCE_PERTE_DE_CHARGE',IRET)
  249. LECT(ICHAIN) = IRET
  250. ICHAIN = 73
  251. CALL POSCHA('FORCE_DE_COUPLAGE_VITESSE',IRET)
  252. LECT(ICHAIN) = IRET
  253. ICHAIN = 74
  254. CALL POSCHA('FORCE_DE_COUPLAGE_DEPLACEMENT',IRET)
  255. LECT(ICHAIN) = IRET
  256. ICHAIN = 75
  257. CALL POSCHA('FORCE_INERTIE',IRET)
  258. LECT(ICHAIN) = IRET
  259. ICHAIN = 76
  260. CALL POSCHA('ACCELERATION_NORMALE',IRET)
  261. LECT(ICHAIN) = IRET
  262. ICHAIN = 77
  263. CALL POSCHA('FORCE_POLYNOMIALE',IRET)
  264. LECT(ICHAIN) = IRET
  265. ICHAIN = 78
  266. CALL POSCHA('POINTS_LIAISON_POLYNOMIALE',IRET)
  267. LECT(ICHAIN) = IRET
  268. ICHAIN = 79
  269. CALL POSCHA('VARIABLES_LIAISON_POLYNOMIALE',IRET)
  270. LECT(ICHAIN) = IRET
  271. ICHAIN = 80
  272. CALL POSCHA('VARIABLES_LIAISON_A',IRET)
  273. LECT(ICHAIN) = IRET
  274. ICHAIN = 81
  275. CALL POSCHA('VITESSE_TANGENTIELLE',IRET)
  276. LECT(ICHAIN) = IRET
  277. ICHAIN = 82
  278. CALL POSCHA('DEPLACEMENT_PLASTIQUE',IRET)
  279. LECT(ICHAIN) = IRET
  280. ICHAIN = 83
  281. CALL POSCHA('TRAVAIL_EXTERIEUR',IRET)
  282. LECT(ICHAIN) = IRET
  283. ICHAIN = 84
  284. CALL POSCHA('TRAVAIL_INTERIEUR',IRET)
  285. LECT(ICHAIN) = IRET
  286. *
  287. * Chaines supplementaires pour les liaisons POINT-POINT- ... -PLASTIQUE
  288. *
  289. ICHAIN = 85
  290. CALL POSCHA('MOMENT_DE_CHOC_POINT_A',IRET)
  291. LECT(ICHAIN) = IRET
  292. ICHAIN = 86
  293. CALL POSCHA('MOMENT_DE_CHOC_POINT_B',IRET)
  294. LECT(ICHAIN) = IRET
  295. ICHAIN = 87
  296. CALL POSCHA('RX_POINT_A',IRET)
  297. LECT(ICHAIN) = IRET
  298. ICHAIN = 88
  299. CALL POSCHA('RY_POINT_A',IRET)
  300. LECT(ICHAIN) = IRET
  301. ICHAIN = 89
  302. CALL POSCHA('RZ_POINT_A',IRET)
  303. LECT(ICHAIN) = IRET
  304. ICHAIN = 90
  305. CALL POSCHA('RR_POINT_A',IRET)
  306. LECT(ICHAIN) = IRET
  307. ICHAIN = 91
  308. CALL POSCHA('RT_POINT_A',IRET)
  309. LECT(ICHAIN) = IRET
  310. ICHAIN = 92
  311. CALL POSCHA('RZ_POINT_A',IRET)
  312. LECT(ICHAIN) = IRET
  313. ICHAIN = 93
  314. CALL POSCHA('RX_POINT_B',IRET)
  315. LECT(ICHAIN) = IRET
  316. ICHAIN = 94
  317. CALL POSCHA('RY_POINT_B',IRET)
  318. LECT(ICHAIN) = IRET
  319. ICHAIN = 95
  320. CALL POSCHA('RZ_POINT_B',IRET)
  321. LECT(ICHAIN) = IRET
  322. ICHAIN = 96
  323. CALL POSCHA('RR_POINT_B',IRET)
  324. LECT(ICHAIN) = IRET
  325. ICHAIN = 97
  326. CALL POSCHA('RT_POINT_B',IRET)
  327. LECT(ICHAIN) = IRET
  328. ICHAIN = 98
  329. CALL POSCHA('RZ_POINT_B',IRET)
  330. LECT(ICHAIN) = IRET
  331. ICHAIN = 99
  332. CALL POSCHA('ROTATION_LIMITE_ELASTIQUE',IRET)
  333. LECT(ICHAIN) = IRET
  334. ICHAIN = 100
  335. CALL POSCHA('DEPLACEMENT_LIMITE_ELASTIQUE',IRET)
  336. LECT(ICHAIN) = IRET
  337. ICHAIN = 101
  338. CALL POSCHA('VITESSE_ROTATION_AXIALE',IRET)
  339. LECT(ICHAIN) = IRET
  340. ICHAIN = 102
  341. CALL POSCHA('ROTATION_PLASTIQUE',IRET)
  342. LECT(ICHAIN) = IRET
  343. *
  344. * Chaine supplementaire pour la liaison LIGNE_LIGNE_FROTTEMENT
  345. *
  346. ICHAIN = 103
  347. CALL POSCHA('NOEUDS_VOISINS',IRET)
  348. LECT(ICHAIN) = IRET
  349. ICHAIN = 104
  350. CALL POSCHA('UX_POINT_DE_CONTACT',IRET)
  351. LECT(ICHAIN) = IRET
  352. ICHAIN = 105
  353. CALL POSCHA('UY_POINT_DE_CONTACT',IRET)
  354. LECT(ICHAIN) = IRET
  355. ICHAIN = 106
  356. CALL POSCHA('UZ_POINT_DE_CONTACT',IRET)
  357. LECT(ICHAIN) = IRET
  358. ICHAIN = 107
  359. CALL POSCHA('UR_POINT_DE_CONTACT',IRET)
  360. LECT(ICHAIN) = IRET
  361. ICHAIN = 108
  362. CALL POSCHA('UT_POINT_DE_CONTACT',IRET)
  363. LECT(ICHAIN) = IRET
  364. ICHAIN = 109
  365. CALL POSCHA('UZ_POINT_DE_CONTACT',IRET)
  366. LECT(ICHAIN) = IRET
  367. ICHAIN = 110
  368. CALL POSCHA('CHPOINT_FORCE_DE_CHOC',IRET)
  369. LECT(ICHAIN) = IRET
  370. *
  371. * Chaine supplementaire pour la liaison POINT_POINT_..._PLASTIQUE
  372. *
  373. ICHAIN = 111
  374. CALL POSCHA('DEPLACEMENT_PLASTIQUE_CUMULE',IRET)
  375. LECT(ICHAIN) = IRET
  376. ICHAIN = 112
  377. CALL POSCHA('ROTATION_PLASTIQUE_CUMULE',IRET)
  378. LECT(ICHAIN) = IRET
  379. *
  380. * ----- Chaines supplémentaires pour la liaison PALIER_FLUIDE
  381. *
  382. ICHAIN = 113
  383. CALL POSCHA('FY_PALIER',IRET)
  384. LECT(ICHAIN) = IRET
  385. ICHAIN = 114
  386. CALL POSCHA('FZ_PALIER',IRET)
  387. LECT(ICHAIN) = IRET
  388. ICHAIN = 115
  389. CALL POSCHA('UY_ARBRE',IRET)
  390. LECT(ICHAIN) = IRET
  391. ICHAIN = 116
  392. CALL POSCHA('UZ_ARBRE',IRET)
  393. LECT(ICHAIN) = IRET
  394. ICHAIN = 117
  395. CALL POSCHA('VY_ARBRE',IRET)
  396. LECT(ICHAIN) = IRET
  397. ICHAIN = 118
  398. CALL POSCHA('VZ_ARBRE',IRET)
  399. LECT(ICHAIN) = IRET
  400. ICHAIN = 119
  401. CALL POSCHA('TRAVAIL_FLUIDE',IRET)
  402. LECT(ICHAIN) = IRET
  403. *
  404. * ----- Chaine supplémentaire pour les liaisons CERCLE_CERCLE ...
  405. *
  406. ICHAIN = 120
  407. CALL POSCHA('NORMALE_DE_CHOC',IRET)
  408. LECT(ICHAIN) = IRET
  409.  
  410. LCHAIN = MLENTI
  411. *
  412. RETURN
  413. END
  414.  
  415.  
  416.  

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