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

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