C DYNE12    SOURCE    FANDEUR   11/04/12    21:16:00     6938           

      SUBROUTINE DYNE12(LCHAIN)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

*--------------------------------------------------------------------*
*                                                                    *
*     Operateur DYNE : algorithme de Fu - de Vogelaere               *
*     ________________________________________________               *
*                                                                    *
*     Toutes les chaines utilisees dans DYNE 'DE_VOGELAERE'          *
*     sont referencees dans ce sous-programme.                       *
*                                                                    *
*     Parametres:                                                    *
*                                                                    *
* s   ICHAIN  Segment MLENTI (ACTIF) contenant les adresses des      *
*             chaines dans la pile des mots de CCNOYAU               *
*                                                                    *
*     Auteur, date de creation:                                      *
*                                                                    *
*     Lionel VIVAN, le 2 mars 1990.                                  *
*                                                                    *
*--------------------------------------------------------------------*
*
-INC SMLENTI
*
      PARAMETER ( NCHAIN = 120 )

      JG = NCHAIN
      SEGINI,MLENTI
*
      ICHAIN = 1
      CALL POSCHA('RESULTAT_DYNE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 2
      CALL POSCHA('RESULTAT_DYNE_PAS',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 3
      CALL POSCHA('TEMPS_DE_SORTIE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 4
      CALL POSCHA('TEMPS_DE_REPRISE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 5
      CALL POSCHA('REPRISE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 6
      CALL POSCHA('SOUSTYPE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 7
      CALL POSCHA('DEPLACEMENT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 8
      CALL POSCHA('VITESSE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 9
      CALL POSCHA('DEPLACEMENT_1/2',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 10
      CALL POSCHA('VITESSE_1/2',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 11
      CALL POSCHA('ACCELERATION',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 12
      CALL POSCHA('ACCELERATION_1/2',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 13
      CALL POSCHA('FORCES_BASE_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 14
      CALL POSCHA('FORCES_BASE_A_1/2',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 15
      CALL POSCHA('FORCE_DE_CHOC',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 16
      CALL POSCHA('UX',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 17
      CALL POSCHA('UY',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 18
      CALL POSCHA('UZ',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 19
      CALL POSCHA('UR',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 20
      CALL POSCHA('UT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 21
      CALL POSCHA('UZ',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 22
      CALL POSCHA('FORCE_DE_CHOC_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 23
      CALL POSCHA('FORCE_DE_CHOC_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 24
      CALL POSCHA('UX_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 25
      CALL POSCHA('UY_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 26
      CALL POSCHA('UZ_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 27
      CALL POSCHA('UR_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 28
      CALL POSCHA('UT_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 29
      CALL POSCHA('UZ_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 30
      CALL POSCHA('UX_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 31
      CALL POSCHA('UY_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 32
      CALL POSCHA('UZ_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 33
      CALL POSCHA('UR_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 34
      CALL POSCHA('UT_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 35
      CALL POSCHA('UZ_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 36
      CALL POSCHA('FORCE_DE_CHOC_NORMALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 37
      CALL POSCHA('FORCE_DE_CHOC_TANGENTIELLE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 38
      CALL POSCHA('PUISSANCE_USURE_INSTANTANEE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 39
      CALL POSCHA('VITESSE_NORMALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 40
      CALL POSCHA('TYPE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 41
      CALL POSCHA('POSITION_ORIGINE_ADHERENCE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 42
      CALL POSCHA('VITESSE_TANGENTIELLE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 43
      CALL POSCHA('ETAT_DU_FROTTEMENT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 44
      CALL POSCHA('VARIABLES_LIAISON_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 45
      CALL POSCHA('MX_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 46
      CALL POSCHA('MY_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 47
      CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 48
      CALL POSCHA('MR_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 49
      CALL POSCHA('MT_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 50
      CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 51
      CALL POSCHA('UX_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 52
      CALL POSCHA('UY_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 53
      CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 54
      CALL POSCHA('UR_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 55
      CALL POSCHA('UT_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 56
      CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 57
      CALL POSCHA('VX_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 58
      CALL POSCHA('VY_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 59
      CALL POSCHA('VZ_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 60
      CALL POSCHA('VR_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 61
      CALL POSCHA('VT_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 62
      CALL POSCHA('VZ_POINT_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 63
      CALL POSCHA('RX_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 64
      CALL POSCHA('RY_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 65
      CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 66
      CALL POSCHA('RR_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 67
      CALL POSCHA('RT_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 68
      CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 69
      CALL POSCHA('MASSE_AJOUTEE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 70
      CALL POSCHA('FORCE_CONVECTION',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 71
      CALL POSCHA('FORCE_VISCOSITE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 72
      CALL POSCHA('FORCE_PERTE_DE_CHARGE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 73
      CALL POSCHA('FORCE_DE_COUPLAGE_VITESSE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 74
      CALL POSCHA('FORCE_DE_COUPLAGE_DEPLACEMENT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 75
      CALL POSCHA('FORCE_INERTIE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 76
      CALL POSCHA('ACCELERATION_NORMALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 77
      CALL POSCHA('FORCE_POLYNOMIALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 78
      CALL POSCHA('POINTS_LIAISON_POLYNOMIALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 79
      CALL POSCHA('VARIABLES_LIAISON_POLYNOMIALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 80
      CALL POSCHA('VARIABLES_LIAISON_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 81
      CALL POSCHA('VITESSE_TANGENTIELLE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 82
      CALL POSCHA('DEPLACEMENT_PLASTIQUE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 83
      CALL POSCHA('TRAVAIL_EXTERIEUR',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 84
      CALL POSCHA('TRAVAIL_INTERIEUR',IRET)
      LECT(ICHAIN) = IRET
*
*  Chaines supplementaires pour les liaisons POINT-POINT- ... -PLASTIQUE
*
      ICHAIN = 85
      CALL POSCHA('MOMENT_DE_CHOC_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 86
      CALL POSCHA('MOMENT_DE_CHOC_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 87
      CALL POSCHA('RX_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 88
      CALL POSCHA('RY_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 89
      CALL POSCHA('RZ_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 90
      CALL POSCHA('RR_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 91
      CALL POSCHA('RT_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 92
      CALL POSCHA('RZ_POINT_A',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 93
      CALL POSCHA('RX_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 94
      CALL POSCHA('RY_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 95
      CALL POSCHA('RZ_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 96
      CALL POSCHA('RR_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 97
      CALL POSCHA('RT_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 98
      CALL POSCHA('RZ_POINT_B',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 99
      CALL POSCHA('ROTATION_LIMITE_ELASTIQUE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 100
      CALL POSCHA('DEPLACEMENT_LIMITE_ELASTIQUE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 101
      CALL POSCHA('VITESSE_ROTATION_AXIALE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 102
      CALL POSCHA('ROTATION_PLASTIQUE',IRET)
      LECT(ICHAIN) = IRET
*
* Chaine supplementaire pour la liaison LIGNE_LIGNE_FROTTEMENT
*
      ICHAIN = 103
      CALL POSCHA('NOEUDS_VOISINS',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 104
      CALL POSCHA('UX_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 105
      CALL POSCHA('UY_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 106
      CALL POSCHA('UZ_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 107
      CALL POSCHA('UR_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 108
      CALL POSCHA('UT_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 109
      CALL POSCHA('UZ_POINT_DE_CONTACT',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 110
      CALL POSCHA('CHPOINT_FORCE_DE_CHOC',IRET)
      LECT(ICHAIN) = IRET
*
* Chaine supplementaire pour la liaison POINT_POINT_..._PLASTIQUE
*
      ICHAIN = 111
      CALL POSCHA('DEPLACEMENT_PLASTIQUE_CUMULE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 112
      CALL POSCHA('ROTATION_PLASTIQUE_CUMULE',IRET)
      LECT(ICHAIN) = IRET
*
* ----- Chaines supplémentaires pour la liaison PALIER_FLUIDE
*
      ICHAIN = 113
      CALL POSCHA('FY_PALIER',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 114
      CALL POSCHA('FZ_PALIER',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 115
      CALL POSCHA('UY_ARBRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 116
      CALL POSCHA('UZ_ARBRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 117
      CALL POSCHA('VY_ARBRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 118
      CALL POSCHA('VZ_ARBRE',IRET)
      LECT(ICHAIN) = IRET
      ICHAIN = 119
      CALL POSCHA('TRAVAIL_FLUIDE',IRET)
      LECT(ICHAIN) = IRET
*
* ----- Chaine supplémentaire pour les liaisons CERCLE_CERCLE ...
*
      ICHAIN = 120
      CALL POSCHA('NORMALE_DE_CHOC',IRET)
      LECT(ICHAIN) = IRET

      LCHAIN = MLENTI
*
      RETURN
      END