Télécharger SMMATRI.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC SMMATRI
  2. *
  3. SEGMENT MMATRI
  4. INTEGER IJMAX,IDIAG,IGEOMA,IINCPO,IIDUA,IIMIK
  5. INTEGER INEG,IDNORM,IILIGN,IILIGS,NENS,IHARK,IASLIG,IASDIA
  6. INTEGER IDUAPO,IHARDU,IDNORD
  7. REAL*8 PRCHLV
  8. ENDSEGMENT
  9. POINTEUR MATR1.MMATRI
  10. *
  11. SEGMENT LLIGN
  12. REAL*8 XXVA(LLVVA)
  13. INTEGER IPPO(NA+1),IMMMM(NA),LINC(LLVVA),LDEB(NA),NJMAX
  14. ENDSEGMENT
  15. *
  16. SEGMENT LIGN
  17. REAL*8 VAL(NVALL)
  18. INTEGER IMMM(NA),IPPVV(NA+1),IVPO(2*NBPAR),IMM,IPREL,IDERL
  19. INTEGER IML
  20. ENDSEGMENT
  21. POINTEUR LIG1.LIGN
  22. *
  23. SEGMENT MINCPO
  24. INTEGER INCPO(MAXI,NNOE)
  25. ENDSEGMENT
  26. POINTEUR MIPO1.MINCPO
  27. *
  28. SEGMENT MIMIK
  29. CHARACTER*4 IMIK(0)
  30. ENDSEGMENT
  31. POINTEUR MDES1.MIMIK
  32. *
  33. SEGMENT MHARK
  34. INTEGER IHAR(0)
  35. ENDSEGMENT
  36. POINTEUR MHAR1.MHARK
  37. *
  38. SEGMENT MDIAG
  39. REAL*8 DIAG(INC)
  40. ENDSEGMENT
  41. POINTEUR MDIA1.MDIAG
  42. *
  43. SEGMENT MDNOR
  44. REAL*8 DNOR(INC)
  45. ENDSEGMENT
  46. POINTEUR MDNO1.MDNOR
  47. *
  48. SEGMENT MILIGN
  49. INTEGER ILIGN(NNOE),ITTR(INC),IPNO(INC)
  50. INTEGER LCARA(3,NNOE)
  51. ENDSEGMENT
  52. POINTEUR MILIG1.MILIGN
  53. *
  54. SEGMENT MIDUA
  55. CHARACTER*4 IDUA(0)
  56. ENDSEGMENT
  57. POINTEUR MDUA1.MIDUA
  58. *
  59. C
  60. C SEGMENT MILIGN:
  61. C **** ILIGN EST UN TABLEAU DE POINTEUR SUR SEGMENT LIGN
  62. C **** ITTR INDIQUE PAR 1 OU 0 SI L'INCONNUE EST DE TYPE LAGRANGE
  63. C **** IPNO INDIQUE LE NUMERO DU NOEUD DE L'INCONNUE
  64. C SEGMENT LIGN:
  65. C **** VAL DONNE LES VALEURS DE LA MATRICE
  66. C **** VAL VA ETRE STOCKE SOUS FORME COMPACTEE APRES L'INVERSION
  67. C **** IMMM INDIQUE PAR 1 OU 0 SI UN MOUVEMENT D'ENSEMBLE A ETE
  68. C **** DETECTE SUR L'INCONNUE.
  69. C **** IPPVV INDIQUE LA POSITION DES DEBUT DE LIGNE DANS IVPO
  70. C **** IVPO INDIQUE 2: LA POSITION DES DEBUTS DE GROUPE DANS VAL
  71. C **** 1: LEUR ADDRESSES DANS LA LIGNE
  72. C **** IMM INDIQUE LA PREMIER LIGNE CONCERNEE PAR L'INVERSION DES
  73. C **** LIGNES INFERIEURES
  74. C **** IML indique la premiere inconnue des lignes du noeud
  75. C **** IPREL,IDERL:NUMERO DE LA PREMIERE,DERNIERE INCONNUE DU SEGMENT
  76. C **** IML est aussi dans LCARA(1, IPREL dans LCARA(2, IDERL dans LCARA(3,
  77. C **** pour minimiser les fautes de cache dans chole3i
  78. C SEGMENT LLIGN :
  79. C **** CE SEGMENT, UTILE AU COURS DE LA TRIANGULARISATION, EST DETRUIT
  80. C **** EN FIN DE TRAVAIL
  81. C ****
  82. C SEGMENT MMATRI :
  83. C **** IJMAX EST LA LONGUEUR DE LA PLUS GRANDE LIGNE
  84. C **** IDIAG POINTEUR SUR LE SEGMENT MDIAG
  85. C **** IGEOMA POINTEUR SUR L'OBJET GEOMETRIQUE
  86. C **** IIDUA POINTEUR SUR LE SEGMENT MIDUA
  87. C **** IINCPO POINTEUR SUR LE SEGMENT MINCPO
  88. C **** IIMIK POINTEUR SUR LE SEGMENT MIMIK
  89. C **** INEG NOMBRE DE TERMES DIAGONAUX NEGATIFS.
  90. C **** IDNORM POINTEUR SUR MDNOR CONTENANT VALEUR DE NORMALISATION
  91. C **** INCPOS(I,K)=J LA I EME INCONNUE DU NOEUD LOCAL K EST EN J EME
  92. C POSITION DANS LA MATRICE
  93. C **** IMIK(I) DONNE LE TYPE DE L'INCONNUE I.
  94. C **** IDUA(I) DONNE LE TYPE DE L'INCONNUE DUALE DE LA I EME
  95.  
  96. ************************************************************************
  97.  

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