Télécharger SMRIGID.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMRIGID
  2. *
  3. * OBJET RIGIDITE
  4. *
  5. SEGMENT MRIGID
  6. CHARACTER*8 MTYMAT
  7. REAL*8 COERIG(NRIGEL)
  8. INTEGER IRIGEL(8,NRIGEL)
  9. INTEGER ICHOLE,IMGEO1,IMGEO2,IFORIG
  10. INTEGER ISUPEQ,JRCOND,JRDEPP,JRDEPD
  11. INTEGER JRELIM,JRGARD,JRTOT,IMLAG
  12. INTEGER JRSUP,IVECRI
  13. ENDSEGMENT
  14. POINTEUR RI1.MRIGID,RI2.MRIGID,RI3.MRIGID
  15. POINTEUR RI4.MRIGID,RI5.MRIGID,RI6.MRIGID
  16. *
  17. SEGMENT XMATRI
  18. INTEGER SYMRE,SYMVER
  19. REAL*8 RE(NLIGRD,NLIGRP,NELRIG)
  20. ENDSEGMENT
  21. POINTEUR XMATR1.XMATRI,XMATR2.XMATRI,XMATR3.XMATRI
  22. POINTEUR XMATR4.XMATRI,XMATR5.XMATRI,XMATR6.XMATRI
  23. *
  24. SEGMENT DESCR
  25. CHARACTER*(LOCHPO) LISINC(NLIGRP),LISDUA(NLIGRD)
  26. INTEGER NOELEP(NLIGRP),NOELED(NLIGRD)
  27. ENDSEGMENT
  28. POINTEUR DES1.DESCR,DES2.DESCR,DES3.DESCR,DES4.DESCR
  29. *
  30. SEGMENT IMGEOD
  31. INTEGER IMGEOR(NBGEOR)
  32. ENDSEGMENT
  33. *
  34. *
  35. * NRIGEL : NOMBRE D'OBJET ELEMENTAIRE DE MRIGIDITE
  36. * NLIGRP : NOMBRE D'INCONNUES PRIMALES D'UNE MATRICE
  37. * ELEMENTAIRE.
  38. * NLIGRD : NOMBRE D'INCONNUES DUALES D'UNE MATRICE
  39. * ELEMENTAIRE.
  40. * COERIG(I) : COEFFICIENT MULTIPLICATEUR
  41. * IRIGEL(1,I) : POINTEUR SUR L'OBJET GEOMETRIE
  42. * IRIGEL(2,I) : POINTEUR SUR UN OBJET GEOMETRIQUE (CAS FROTTEMENT)
  43. * IRIGEL(3,I) : POINTEUR SUR LE SEGMENT DESCRIPTIF D'UNE
  44. * MATRICE ELEMENTAIRE.(SEGMENT DESCR)
  45. * IRIGEL(4,I) : POINTEUR SUR LE SEGMENT CONTENANT LES MATRICES
  46. * ELEMENTAIRES (XMATRI)
  47. * IRIGEL(5,I) : NUMERO DE L'HARMONIQUE DE FOURIER
  48. * IRIGEL(6,I) : NATURE DE LA RELATION DEFINISSANT LA RIGIDITE
  49. * 0 EGALITE
  50. * -1 INEGALITE INFERIEURE
  51. * +1 INEGALITE SUPERIEURE
  52. * +2 Mixte : CHANGEMENT DE PHASE / FROTTEMENT
  53. * IRIGEL(7,1) : 0 LA MATRICE EST SYMETRIQUE
  54. * : 1 LA MATRICE EST ANTISYMETRIQUE
  55. * : 2 LA MATRICE NE POSSEDE PAS DE SYMETRIES
  56. * IRIGEL(8,I) : 0 pas de dependance
  57. *
  58. * SYMRE : 0 LA MATRICE EST SYMETRIQUE
  59. * : 1 LA MATRICE EST ANTISYMETRIQUE
  60. * : 2 LA MATRICE NE POSSEDE PAS DE SYMETRIES
  61. *
  62. * RE(1,1,K ) : DEBUT DE VALEURS DE LA Kieme MATRICE ELEMENTAIRE
  63. * LA MATRICE ELEMENTAIRE EST ORGANISEE COMME BON VOUS SEMBLE
  64. * ELLE EST RECTANGULAIRE ET STOCKEE LIGNE PAR LIGNE
  65. *
  66. * NOELEP(I)=J : LA I EME INCONNUE PRIMAL DE LA MATRICE PORTE SUR
  67. * LE J EME NOEUD DE L'ELEMENT.
  68. * LISINC(I)=INO : LA I EME INCONNUE PRIMAL DE LA MATRICE EST DE
  69. * TYPE INO
  70. * NOELED(I)=J : LA I EME INCONNUE DUALE DE LA MATRICE PORTE SUR
  71. * LE J EME NOEUD DE L'ELEMENT .
  72. * LISDUA(I)=INO : LA I EME INCONNUE DUALE DE LA MATRICE EST DE
  73. * TYPE INO
  74. *
  75. * MTYMAT : TYPE DE LA MATRICE RIGIDITE OU MASSE
  76. *
  77. * ICHOLE : SI DIFFERENT DE ZERO EST EGAL AU POINTEUR
  78. * SUR SEGMENT DE TYPE MMATRI(VOIR SMMATRI)
  79. * CONTENANT LA MATRICE DEJA TRIANGULARISEE.
  80. * ISUPEQ : POINTEUR EVENTUEL SUR UNE TABLE (UNILATERAL)
  81. * IMGEO1 : UNE RESOLUTION A DEJA EU LIEU.POINTEUR SUR
  82. * SUR UN TABLEAU CONTENANT LES POINTEURS DES
  83. * OBJETS GEOMETRIQUES CREES.(TABLEAU DANS IMGEOD)
  84. *
  85. * IMGEO2 : POINTEUR SUR UN PROTOTYPE DU CHAMPOINT DUAL
  86. *
  87. * IFORIG : CORRESPOND A L'OPTION IFOUR (VOIR CCOPTIO)
  88. * JRCOND : pointeur sur une matrice condensee
  89. * JRDEPP : pointeur sur une matrice de dependance primale
  90. * JRDEPD : pointeur sur une matrice de dependance duale
  91. * JRELIM : pointeur sur la matrices des relations éliminées
  92. * JRGARD : pointeur sur la matrice restante
  93. * JRTOT : pointeur sur la matrice totale (JRELIM + JRGARD)
  94. * JRSUP : pointeur sur la matrice d'origine de la matrice condensee
  95. * de le numerotation
  96. * IVECRI : pointeur vers un segment decrivant le passage
  97. * vecteur-Chpoint et vice versa
  98. *
  99.  
  100.  

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