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 34 : CALL POSCHA('RESULTAT_DYNE',IRET) 35 : LECT(ICHAIN) = IRET 36 : ICHAIN = 2 36 : CALL POSCHA('RESULTAT_DYNE_PAS',IRET) 37 : LECT(ICHAIN) = IRET 38 : ICHAIN = 3 38 : CALL POSCHA('TEMPS_DE_SORTIE',IRET) 39 : LECT(ICHAIN) = IRET 40 : ICHAIN = 4 40 : CALL POSCHA('TEMPS_DE_REPRISE',IRET) 41 : LECT(ICHAIN) = IRET 42 : ICHAIN = 5 42 : CALL POSCHA('REPRISE',IRET) 43 : LECT(ICHAIN) = IRET 44 : ICHAIN = 6 44 : CALL POSCHA('SOUSTYPE',IRET) 45 : LECT(ICHAIN) = IRET 46 : ICHAIN = 7 46 : CALL POSCHA('DEPLACEMENT',IRET) 47 : LECT(ICHAIN) = IRET 48 : ICHAIN = 8 48 : CALL POSCHA('VITESSE',IRET) 49 : LECT(ICHAIN) = IRET 50 : ICHAIN = 9 50 : CALL POSCHA('DEPLACEMENT_1/2',IRET) 51 : LECT(ICHAIN) = IRET 52 : ICHAIN = 10 52 : CALL POSCHA('VITESSE_1/2',IRET) 53 : LECT(ICHAIN) = IRET 54 : ICHAIN = 11 54 : CALL POSCHA('ACCELERATION',IRET) 55 : LECT(ICHAIN) = IRET 56 : ICHAIN = 12 56 : CALL POSCHA('ACCELERATION_1/2',IRET) 57 : LECT(ICHAIN) = IRET 58 : ICHAIN = 13 58 : CALL POSCHA('FORCES_BASE_A',IRET) 59 : LECT(ICHAIN) = IRET 60 : ICHAIN = 14 60 : CALL POSCHA('FORCES_BASE_A_1/2',IRET) 61 : LECT(ICHAIN) = IRET 62 : ICHAIN = 15 62 : CALL POSCHA('FORCE_DE_CHOC',IRET) 63 : LECT(ICHAIN) = IRET 64 : ICHAIN = 16 64 : CALL POSCHA('UX',IRET) 65 : LECT(ICHAIN) = IRET 66 : ICHAIN = 17 66 : CALL POSCHA('UY',IRET) 67 : LECT(ICHAIN) = IRET 68 : ICHAIN = 18 68 : CALL POSCHA('UZ',IRET) 69 : LECT(ICHAIN) = IRET 70 : ICHAIN = 19 70 : CALL POSCHA('UR',IRET) 71 : LECT(ICHAIN) = IRET 72 : ICHAIN = 20 72 : CALL POSCHA('UT',IRET) 73 : LECT(ICHAIN) = IRET 74 : ICHAIN = 21 74 : CALL POSCHA('UZ',IRET) 75 : LECT(ICHAIN) = IRET 76 : ICHAIN = 22 76 : CALL POSCHA('FORCE_DE_CHOC_POINT_A',IRET) 77 : LECT(ICHAIN) = IRET 78 : ICHAIN = 23 78 : CALL POSCHA('FORCE_DE_CHOC_POINT_B',IRET) 79 : LECT(ICHAIN) = IRET 80 : ICHAIN = 24 80 : CALL POSCHA('UX_POINT_A',IRET) 81 : LECT(ICHAIN) = IRET 82 : ICHAIN = 25 82 : CALL POSCHA('UY_POINT_A',IRET) 83 : LECT(ICHAIN) = IRET 84 : ICHAIN = 26 84 : CALL POSCHA('UZ_POINT_A',IRET) 85 : LECT(ICHAIN) = IRET 86 : ICHAIN = 27 86 : CALL POSCHA('UR_POINT_A',IRET) 87 : LECT(ICHAIN) = IRET 88 : ICHAIN = 28 88 : CALL POSCHA('UT_POINT_A',IRET) 89 : LECT(ICHAIN) = IRET 90 : ICHAIN = 29 90 : CALL POSCHA('UZ_POINT_A',IRET) 91 : LECT(ICHAIN) = IRET 92 : ICHAIN = 30 92 : CALL POSCHA('UX_POINT_B',IRET) 93 : LECT(ICHAIN) = IRET 94 : ICHAIN = 31 94 : CALL POSCHA('UY_POINT_B',IRET) 95 : LECT(ICHAIN) = IRET 96 : ICHAIN = 32 96 : CALL POSCHA('UZ_POINT_B',IRET) 97 : LECT(ICHAIN) = IRET 98 : ICHAIN = 33 98 : CALL POSCHA('UR_POINT_B',IRET) 99 : LECT(ICHAIN) = IRET 100 : ICHAIN = 34 100 : CALL POSCHA('UT_POINT_B',IRET) 101 : LECT(ICHAIN) = IRET 102 : ICHAIN = 35 102 : CALL POSCHA('UZ_POINT_B',IRET) 103 : LECT(ICHAIN) = IRET 104 : ICHAIN = 36 104 : CALL POSCHA('FORCE_DE_CHOC_NORMALE',IRET) 105 : LECT(ICHAIN) = IRET 106 : ICHAIN = 37 106 : CALL POSCHA('FORCE_DE_CHOC_TANGENTIELLE',IRET) 107 : LECT(ICHAIN) = IRET 108 : ICHAIN = 38 108 : CALL POSCHA('PUISSANCE_USURE_INSTANTANEE',IRET) 109 : LECT(ICHAIN) = IRET 110 : ICHAIN = 39 110 : CALL POSCHA('VITESSE_NORMALE',IRET) 111 : LECT(ICHAIN) = IRET 112 : ICHAIN = 40 112 : CALL POSCHA('TYPE',IRET) 113 : LECT(ICHAIN) = IRET 114 : ICHAIN = 41 114 : CALL POSCHA('POSITION_ORIGINE_ADHERENCE',IRET) 115 : LECT(ICHAIN) = IRET 116 : ICHAIN = 42 116 : CALL POSCHA('VITESSE_TANGENTIELLE',IRET) 117 : LECT(ICHAIN) = IRET 118 : ICHAIN = 43 118 : CALL POSCHA('ETAT_DU_FROTTEMENT',IRET) 119 : LECT(ICHAIN) = IRET 120 : ICHAIN = 44 120 : CALL POSCHA('VARIABLES_LIAISON_B',IRET) 121 : LECT(ICHAIN) = IRET 122 : ICHAIN = 45 122 : CALL POSCHA('MX_POINT_FIBRE_NEUTRE',IRET) 123 : LECT(ICHAIN) = IRET 124 : ICHAIN = 46 124 : CALL POSCHA('MY_POINT_FIBRE_NEUTRE',IRET) 125 : LECT(ICHAIN) = IRET 126 : ICHAIN = 47 126 : CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET) 127 : LECT(ICHAIN) = IRET 128 : ICHAIN = 48 128 : CALL POSCHA('MR_POINT_FIBRE_NEUTRE',IRET) 129 : LECT(ICHAIN) = IRET 130 : ICHAIN = 49 130 : CALL POSCHA('MT_POINT_FIBRE_NEUTRE',IRET) 131 : LECT(ICHAIN) = IRET 132 : ICHAIN = 50 132 : CALL POSCHA('MZ_POINT_FIBRE_NEUTRE',IRET) 133 : LECT(ICHAIN) = IRET 134 : ICHAIN = 51 134 : CALL POSCHA('UX_POINT_FIBRE_NEUTRE',IRET) 135 : LECT(ICHAIN) = IRET 136 : ICHAIN = 52 136 : CALL POSCHA('UY_POINT_FIBRE_NEUTRE',IRET) 137 : LECT(ICHAIN) = IRET 138 : ICHAIN = 53 138 : CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET) 139 : LECT(ICHAIN) = IRET 140 : ICHAIN = 54 140 : CALL POSCHA('UR_POINT_FIBRE_NEUTRE',IRET) 141 : LECT(ICHAIN) = IRET 142 : ICHAIN = 55 142 : CALL POSCHA('UT_POINT_FIBRE_NEUTRE',IRET) 143 : LECT(ICHAIN) = IRET 144 : ICHAIN = 56 144 : CALL POSCHA('UZ_POINT_FIBRE_NEUTRE',IRET) 145 : LECT(ICHAIN) = IRET 146 : ICHAIN = 57 146 : CALL POSCHA('VX_POINT_CONTACT',IRET) 147 : LECT(ICHAIN) = IRET 148 : ICHAIN = 58 148 : CALL POSCHA('VY_POINT_CONTACT',IRET) 149 : LECT(ICHAIN) = IRET 150 : ICHAIN = 59 150 : CALL POSCHA('VZ_POINT_CONTACT',IRET) 151 : LECT(ICHAIN) = IRET 152 : ICHAIN = 60 152 : CALL POSCHA('VR_POINT_CONTACT',IRET) 153 : LECT(ICHAIN) = IRET 154 : ICHAIN = 61 154 : CALL POSCHA('VT_POINT_CONTACT',IRET) 155 : LECT(ICHAIN) = IRET 156 : ICHAIN = 62 156 : CALL POSCHA('VZ_POINT_CONTACT',IRET) 157 : LECT(ICHAIN) = IRET 158 : ICHAIN = 63 158 : CALL POSCHA('RX_POINT_FIBRE_NEUTRE',IRET) 159 : LECT(ICHAIN) = IRET 160 : ICHAIN = 64 160 : CALL POSCHA('RY_POINT_FIBRE_NEUTRE',IRET) 161 : LECT(ICHAIN) = IRET 162 : ICHAIN = 65 162 : CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET) 163 : LECT(ICHAIN) = IRET 164 : ICHAIN = 66 164 : CALL POSCHA('RR_POINT_FIBRE_NEUTRE',IRET) 165 : LECT(ICHAIN) = IRET 166 : ICHAIN = 67 166 : CALL POSCHA('RT_POINT_FIBRE_NEUTRE',IRET) 167 : LECT(ICHAIN) = IRET 168 : ICHAIN = 68 168 : CALL POSCHA('RZ_POINT_FIBRE_NEUTRE',IRET) 169 : LECT(ICHAIN) = IRET 170 : ICHAIN = 69 170 : CALL POSCHA('MASSE_AJOUTEE',IRET) 171 : LECT(ICHAIN) = IRET 172 : ICHAIN = 70 172 : CALL POSCHA('FORCE_CONVECTION',IRET) 173 : LECT(ICHAIN) = IRET 174 : ICHAIN = 71 174 : CALL POSCHA('FORCE_VISCOSITE',IRET) 175 : LECT(ICHAIN) = IRET 176 : ICHAIN = 72 176 : CALL POSCHA('FORCE_PERTE_DE_CHARGE',IRET) 177 : LECT(ICHAIN) = IRET 178 : ICHAIN = 73 178 : CALL POSCHA('FORCE_DE_COUPLAGE_VITESSE',IRET) 179 : LECT(ICHAIN) = IRET 180 : ICHAIN = 74 180 : CALL POSCHA('FORCE_DE_COUPLAGE_DEPLACEMENT',IRET) 181 : LECT(ICHAIN) = IRET 182 : ICHAIN = 75 182 : CALL POSCHA('FORCE_INERTIE',IRET) 183 : LECT(ICHAIN) = IRET 184 : ICHAIN = 76 184 : CALL POSCHA('ACCELERATION_NORMALE',IRET) 185 : LECT(ICHAIN) = IRET 186 : ICHAIN = 77 186 : CALL POSCHA('FORCE_POLYNOMIALE',IRET) 187 : LECT(ICHAIN) = IRET 188 : ICHAIN = 78 188 : CALL POSCHA('POINTS_LIAISON_POLYNOMIALE',IRET) 189 : LECT(ICHAIN) = IRET 190 : ICHAIN = 79 190 : CALL POSCHA('VARIABLES_LIAISON_POLYNOMIALE',IRET) 191 : LECT(ICHAIN) = IRET 192 : ICHAIN = 80 192 : CALL POSCHA('VARIABLES_LIAISON_A',IRET) 193 : LECT(ICHAIN) = IRET 194 : ICHAIN = 81 194 : CALL POSCHA('VITESSE_TANGENTIELLE',IRET) 195 : LECT(ICHAIN) = IRET 196 : ICHAIN = 82 196 : CALL POSCHA('DEPLACEMENT_PLASTIQUE',IRET) 197 : LECT(ICHAIN) = IRET 198 : ICHAIN = 83 198 : CALL POSCHA('TRAVAIL_EXTERIEUR',IRET) 199 : LECT(ICHAIN) = IRET 200 : ICHAIN = 84 200 : CALL POSCHA('TRAVAIL_INTERIEUR',IRET) 201 : LECT(ICHAIN) = IRET 202 : * 203 : * Chaines supplementaires pour les liaisons POINT-POINT- ... -PLASTIQUE 204 : * 205 : ICHAIN = 85 205 : CALL POSCHA('MOMENT_DE_CHOC_POINT_A',IRET) 206 : LECT(ICHAIN) = IRET 207 : ICHAIN = 86 207 : CALL POSCHA('MOMENT_DE_CHOC_POINT_B',IRET) 208 : LECT(ICHAIN) = IRET 209 : ICHAIN = 87 209 : CALL POSCHA('RX_POINT_A',IRET) 210 : LECT(ICHAIN) = IRET 211 : ICHAIN = 88 211 : CALL POSCHA('RY_POINT_A',IRET) 212 : LECT(ICHAIN) = IRET 213 : ICHAIN = 89 213 : CALL POSCHA('RZ_POINT_A',IRET) 214 : LECT(ICHAIN) = IRET 215 : ICHAIN = 90 215 : CALL POSCHA('RR_POINT_A',IRET) 216 : LECT(ICHAIN) = IRET 217 : ICHAIN = 91 217 : CALL POSCHA('RT_POINT_A',IRET) 218 : LECT(ICHAIN) = IRET 219 : ICHAIN = 92 219 : CALL POSCHA('RZ_POINT_A',IRET) 220 : LECT(ICHAIN) = IRET 221 : ICHAIN = 93 221 : CALL POSCHA('RX_POINT_B',IRET) 222 : LECT(ICHAIN) = IRET 223 : ICHAIN = 94 223 : CALL POSCHA('RY_POINT_B',IRET) 224 : LECT(ICHAIN) = IRET 225 : ICHAIN = 95 225 : CALL POSCHA('RZ_POINT_B',IRET) 226 : LECT(ICHAIN) = IRET 227 : ICHAIN = 96 227 : CALL POSCHA('RR_POINT_B',IRET) 228 : LECT(ICHAIN) = IRET 229 : ICHAIN = 97 229 : CALL POSCHA('RT_POINT_B',IRET) 230 : LECT(ICHAIN) = IRET 231 : ICHAIN = 98 231 : CALL POSCHA('RZ_POINT_B',IRET) 232 : LECT(ICHAIN) = IRET 233 : ICHAIN = 99 233 : CALL POSCHA('ROTATION_LIMITE_ELASTIQUE',IRET) 234 : LECT(ICHAIN) = IRET 235 : ICHAIN = 100 235 : CALL POSCHA('DEPLACEMENT_LIMITE_ELASTIQUE',IRET) 236 : LECT(ICHAIN) = IRET 237 : ICHAIN = 101 237 : CALL POSCHA('VITESSE_ROTATION_AXIALE',IRET) 238 : LECT(ICHAIN) = IRET 239 : ICHAIN = 102 239 : CALL POSCHA('ROTATION_PLASTIQUE',IRET) 240 : LECT(ICHAIN) = IRET 241 : * 242 : * Chaine supplementaire pour la liaison LIGNE_LIGNE_FROTTEMENT 243 : * 244 : ICHAIN = 103 244 : CALL POSCHA('NOEUDS_VOISINS',IRET) 245 : LECT(ICHAIN) = IRET 246 : ICHAIN = 104 246 : CALL POSCHA('UX_POINT_DE_CONTACT',IRET) 247 : LECT(ICHAIN) = IRET 248 : ICHAIN = 105 248 : CALL POSCHA('UY_POINT_DE_CONTACT',IRET) 249 : LECT(ICHAIN) = IRET 250 : ICHAIN = 106 250 : CALL POSCHA('UZ_POINT_DE_CONTACT',IRET) 251 : LECT(ICHAIN) = IRET 252 : ICHAIN = 107 252 : CALL POSCHA('UR_POINT_DE_CONTACT',IRET) 253 : LECT(ICHAIN) = IRET 254 : ICHAIN = 108 254 : CALL POSCHA('UT_POINT_DE_CONTACT',IRET) 255 : LECT(ICHAIN) = IRET 256 : ICHAIN = 109 256 : CALL POSCHA('UZ_POINT_DE_CONTACT',IRET) 257 : LECT(ICHAIN) = IRET 258 : ICHAIN = 110 258 : CALL POSCHA('CHPOINT_FORCE_DE_CHOC',IRET) 259 : LECT(ICHAIN) = IRET 260 : * 261 : * Chaine supplementaire pour la liaison POINT_POINT_..._PLASTIQUE 262 : * 263 : ICHAIN = 111 263 : CALL POSCHA('DEPLACEMENT_PLASTIQUE_CUMULE',IRET) 264 : LECT(ICHAIN) = IRET 265 : ICHAIN = 112 265 : CALL POSCHA('ROTATION_PLASTIQUE_CUMULE',IRET) 266 : LECT(ICHAIN) = IRET 267 : * 268 : * ----- Chaines supplémentaires pour la liaison PALIER_FLUIDE 269 : * 270 : ICHAIN = 113 270 : CALL POSCHA('FY_PALIER',IRET) 271 : LECT(ICHAIN) = IRET 272 : ICHAIN = 114 272 : CALL POSCHA('FZ_PALIER',IRET) 273 : LECT(ICHAIN) = IRET 274 : ICHAIN = 115 274 : CALL POSCHA('UY_ARBRE',IRET) 275 : LECT(ICHAIN) = IRET 276 : ICHAIN = 116 276 : CALL POSCHA('UZ_ARBRE',IRET) 277 : LECT(ICHAIN) = IRET 278 : ICHAIN = 117 278 : CALL POSCHA('VY_ARBRE',IRET) 279 : LECT(ICHAIN) = IRET 280 : ICHAIN = 118 280 : CALL POSCHA('VZ_ARBRE',IRET) 281 : LECT(ICHAIN) = IRET 282 : ICHAIN = 119 282 : CALL POSCHA('TRAVAIL_FLUIDE',IRET) 283 : LECT(ICHAIN) = IRET 284 : * 285 : * ----- Chaine supplémentaire pour les liaisons CERCLE_CERCLE ... 286 : * 287 : ICHAIN = 120 287 : CALL POSCHA('NORMALE_DE_CHOC',IRET) 288 : LECT(ICHAIN) = IRET 289 : 290 : LCHAIN = MLENTI 291 : * 292 : RETURN 293 : END 294 : 295 :
© Cast3M 2003 - All rights reserved.
Disclaimer