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

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