Télécharger SMATTAC.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMATTAC
  2. *
  3. * OBJET DE TYPE 'ATTACHE '
  4. SEGMENT MATTAC
  5. INTEGER LISATT(N)
  6. ENDSEGMENT
  7. POINTEUR MATTA1.MATTAC,MATTA2.MATTAC
  8. *
  9. SEGMENT MSOUMA
  10. CHARACTER*4 ITYATT
  11. INTEGER IPMATK(M),IATREL(N),IGEOCH,IPHYCH
  12. ENDSEGMENT
  13. POINTEUR MSOUM1.MSOUMA,MSOUM2.MSOUMA
  14. *
  15. SEGMENT MJONCT
  16. CHARACTER*4 MJODDL,MJOTYP
  17. INTEGER MJOPOI,ISTRJO(N),IPCHJO(N),IPOSJO(N)
  18. ENDSEGMENT
  19. POINTEUR MJONC1.MJONCT,MJONC2.MJONCT
  20. *
  21. SEGMENT MGEOCH
  22. CHARACTER*4 MPOPRO(NP)
  23. INTEGER INORCH(NI),IMAPRO(N1)
  24. REAL*8 RJEUCH(NJ),TAIPRO(NT)
  25. ENDSEGMENT
  26. POINTEUR MGEOC1.MGEOCH,MGEOC2.MGEOCH
  27. *
  28. SEGMENT MPHYCH
  29. REAL*8 RAIPRO,AMOPRO(NA),FROPRO(NF)
  30. ENDSEGMENT
  31. POINTEUR MPHYC1.MPHYCH,MPHYC2.MPHYCH
  32. *
  33. * LISATT : POINTEURS SUR LES SEGMENTS MSOUMA
  34. * ITYATT : TYPE DE LA LIAISON:MECA,FLUI,CHOC
  35. * IGEOCH : POINTEUR SUR LE SEGMENT MGEOCH:CARACTERISTIQUES GEOMETRI
  36. * QUES DU CHOC
  37. * IPHYCH : POINTEUR SUR LE SEGMENT MPHYCH:CARACTERISTIQUES PHYSIQUES
  38. * DU CHOC
  39. * IPMATK : POINTEURS SUR DES OBJETS DE TYPE RIGIDITE
  40. * IATREL : POINTEURS SUR LES SEGMENTS MJONCT
  41. * MJOPOI : POINT ASSOCIE AU MJONCT
  42. * MJODDL : =LX (RESP.FLX) SI MJONCT LIBRE (RESP.BLOQUE)
  43. * MJOTYP : RAPPEL DE ITYATT=TYPE DE LA LIAISON.
  44. * ISTRJO : POINTEURS SUR LES MSOSTU D UN OBJET STRUCTURE
  45. * IPCHJO : POINTEURS SUR OBJETS DE TYPE CHPOINT
  46. * IPOSJO : POINTEURS SUR OBJETS DE TYPE MELEME (CENTRE DU PROFIL)
  47. * INORCH : POINTEURS SUR OBJETS DE TYPE POINT DEFINISSANT LE REPERE
  48. * DU PLAN DE CHOC
  49. * RJEUCH : FLOTTANT
  50. * IMAPRO : POINTEURS SUR OBJETS DE TYPE MELEME : PROFILS DE CHOC
  51. * MPOPRO : MOTS:POSITION RELATIVE DES DEUX PROFILS
  52. * TAIPRO : FLOTTANTS:TAILLES DES PROFILS
  53. * RAIPRO : FLOTTANT:RAIDEUR
  54. * AMOPRO : FLOTTANT:AMORTISSEMENT
  55. * FROPRO : FLOTTANT:COEF DE FROTTEMENT
  56. *
  57. * -ENDINCLUDE
  58.  

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