Télécharger SMSOLUT.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMSOLUT
  2. *
  3. * OBJET DE TYPE'SOLUTION'
  4. *
  5. SEGMENT MSOLUT
  6. CHARACTER*8 ITYSOL
  7. INTEGER MSOLIS(NIPO),MSOLIT(NIPO)
  8. ENDSEGMENT
  9. POINTEUR MSO1.MSOLUT,MSO2.MSOLUT
  10. *
  11. SEGMENT MMODE
  12. REAL*8 FMMODD(LVALM)
  13. INTEGER IMMODD(NIMOD)
  14. ENDSEGMENT
  15. POINTEUR MMOD1.MMODE
  16. *
  17. SEGMENT MSOLRE
  18. REAL*8 SOLRE(N)
  19. ENDSEGMENT
  20. POINTEUR MSOLR1.MSOLRE,MSOLR2.MSOLRE
  21. *
  22. SEGMENT MSOLEN
  23. INTEGER ISOLEN(N)
  24. ENDSEGMENT
  25. POINTEUR MSOLE1.MSOLEN,MSOLE2.MSOLEN
  26. *
  27. *
  28. * ITYSOL : SOUS TYPE DE L'OBJET SOLUTION
  29. * MSOLIS(I) : POINTEUR SUR DIFFERENTS SEGMENTS (SUIVANT LA VALEUR
  30. * DE ITYSOL ET CELLE DE I)
  31. * MSOLIT(I) : DESIGNE LE TYPE DES OBJETS CONTENUS DANS LE MSOLEN
  32. * DE POINTEUR MSOLIS(I).
  33. * 2 POUR LES CHPOINT , 5 POUR LES CHAMELEM ,
  34. * 14 POUR LES MJONCT...
  35. * LA CORRESPONDANCE TYPE DES OBJETS--NUMERO EST CONTENUE
  36. * DANS LE SOUS PROGRAMME TYPFIL
  37. *
  38. *
  39. * * I=1,4 : ZONE COMMUNE A TOUS LES ITYSOL :
  40. * ------------------------
  41. * 3. POINTEUR SUR UN MELEME 0
  42. * 4. POINTEUR SUR MSOLEN (LISTE DE MMODE ) 0
  43. *
  44. * * ITYSOL = MODE
  45. * -------------
  46. * 5. POINTEUR SUR MSOLEN (DEPLACEMENTS ) MSOLIT = 2
  47. * 6. ID. (CONTRAINTES ) 5
  48. * 7. ID. (VON MISES ) 5
  49. * 8. ID. (VITESSES ) 2
  50. * 9. ID (ACCELERATIONS ) 2
  51. *
  52. * * ITYSOL = SOLUSTAT OU PSEUMODE
  53. * -----------------------------
  54. * 5. POINTEUR SUR MSOLEN (DEPLACEMENTS ) MSOLIT = 2
  55. * 6. ID. (CONTRAINTES ) 5
  56. * 7. ID. (VON MISES ) 5
  57. * 8. ID. (VITESSES ) 2
  58. * 9. ID. (ACCELERATIONS ) 2
  59. * 10. ID. (MJONCT ) 14
  60. *
  61. * * ITYSOL = DYNAMIQU
  62. * -----------------
  63. * 1. POINTEUR SUR MSOLRE (LISTE DES TEMPS) MSOLIT = 0
  64. * 2. POINTEUR SUR MSOLEN (LISTE DES PAS ) 0
  65. * 5. ID. (DEPLACEMENT ) 2
  66. * 6. ID. (CONTRAINTES ) 5
  67. * 7. ID. (VONMISES ) 5
  68. * 8. ID. (VITESSES ) 2
  69. * 9. ID. (ACCELERATIONS ) 2
  70. * 10. ID. (VARIABLES DE LIAISON) 2
  71. * 13. ID. (VARIABLES D'USURE) 2
  72. *-----------------------------------------------------------------------
  73.  

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