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 IPROFO,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
  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*4 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. * IRIGEL(7,1) : 0 LA MATRICE EST SYMETRIQUE
  53. * : 1 LA MATRICE EST ANTISYMETRIQUE
  54. * : 2 LA MATRICE NE POSSEDE PAS DE SYMETRIES
  55. * IRIGEL(8,I) : 0 pas de dependance
  56. *
  57. * SYMRE : 0 LA MATRICE EST SYMETRIQUE
  58. * : 1 LA MATRICE EST ANTISYMETRIQUE
  59. * : 2 LA MATRICE NE POSSEDE PAS DE SYMETRIES
  60. *
  61. * RE(1,1,K ) : DEBUT DE VALEURS DE LA Kieme MATRICE ELEMENTAIRE
  62. *
  63. * NOELEP(I)=J : LA I EME INCONNUE PRIMAL DE LA MATRICE PORTE SUR
  64. * LE J EME NOEUD DE L'ELEMENT.
  65. * LISINC(I)=INO : LA I EME INCONNUE PRIMAL DE LA MATRICE EST DE
  66. * TYPE INO
  67. * NOELED(I)=J : LA I EME INCONNUE DUALE DE LA MATRICE PORTE SUR
  68. * LE J EME NOEUD DE L'ELEMENT .
  69. * LISDUA(I)=INO : LA I EME INCONNUE DUALE DE LA MATRICE EST DE
  70. * TYPE INO
  71. *
  72. * MTYMAT : TYPE DE LA MATRICE RIGIDITE OU MASSE
  73. *
  74. * ICHOLE : SI DIFFERENT DE ZERO EST EGAL AU POINTEUR
  75. * SUR SEGMENT DE TYPE MMATRI(VOIR SMMATRI)
  76. * CONTENANT LA MATRICE DEJA TRIANGULARISEE.
  77. * ISUPEQ : POINTEUR EVENTUEL SUR UNE TABLE (UNILATERAL)
  78. * IMGEO1 : UNE RESOLUTION A DEJA EU LIEU.POINTEUR SUR
  79. * SUR UN TABLEAU CONTENANT LES POINTEURS DES
  80. * OBJETS GEOMETRIQUES CREES.(TABLEAU DANS IMGEOD)
  81. *
  82. * IMGEO2 : POINTEUR SUR UN PROTOTYPE DU CHAMPOINT DUAL
  83. *
  84. * IFORIG : CORRESPOND A L'OPTION IFOUR (VOIR CCOPTIO)
  85. * JRCOND : pointeur sur une matrice condensee
  86. * JRDEPP : pointeur sur une matrice de dependance primale
  87. * JRDEPD : pointeur sur une matrice de dependance duale
  88. * JRELIM : pointeur sur la matrices des relations éliminées
  89. * JRGARD : pointeur sur la matrice restante
  90. * JRTOT : pointeur sur la matrice totale (JRELIM + JRGARD)
  91. * IPROFO : pointeur sur un segment decrivant la profondeur
  92. * de le numerotation
  93. * IVECRI : pointeur vers un segment decrivant le passage
  94. * vecteur-Chpoint et vice versa
  95. * LA MATRICE ELEMENTAIRE EST ORGANISEE COMME BON VOUS SEMBLE ELLE
  96. * EST SEULEMENT TRIANGULAIRE INFERIEURE STOCKEE LIGNE PARLIGNE
  97. *
  98.  
  99.  

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