Télécharger la plaquette Cast3M


fr en

Télécharger dyne12.eso

Retour à la liste

Numérotation des lignes : 

dyne12

  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