Télécharger prdilu.eso

Retour à la liste

Numérotation des lignes :

  1. C PRDILU SOURCE PV 16/11/17 22:01:05 9180
  2. SUBROUTINE PRDILU(KMORS,KISA,MATRIK,IMPR,IRET)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM : PRDILU
  7. C DESCRIPTION :
  8. C Calcul du préconditionneur D-ILU d'une matrice Morse.
  9. C D-ILU : Diagonal Incomplete LU factorization
  10. C
  11. C On stocke l'inverse des pivots du préconditionneur
  12. C dans un segment de type
  13. C IZA pointé par IDIAG du segment IDMAT
  14. C pointé par KIDMAT(1) du segment MATRIK.
  15. C (Toujours la réutilisation de l'existant...)
  16. C Normalement, aucun indice strictement nul n'est stocké
  17. C (appel de clmors dans melim) donc il suffirait de
  18. C tester l'existence de l'indice diagonal
  19. C On met toutefois un warning si l'indice est très petit.
  20. C
  21. C Ce sous-programme est en fait une interface à :
  22. C mdilus.eso : dans le cas symétrique
  23. C mdilun.eso : dans le cas non-symétrique
  24. C qui sont en Fortran presque pur (pour raison de rapidité)
  25. C et effectuent la construction proprement dite du
  26. C préconditionneur.
  27. C
  28. C ATTENTION : pour une matrice A quelconque, la factorisation
  29. C --------- D-ILU peut ne pas exister (pivot nul) ou avoir
  30. C des pivots négatifs MEME SI la factorisation
  31. C complète de A existe et n'a que des pivots
  32. C positifs.
  33. C
  34. C
  35. C LANGAGE : ESOPE
  36. C AUTEUR : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  37. C mél : gounand@semt2.smts.cea.fr
  38. C REFERENCE (bibtex-like) :
  39. C @BOOK{templates,
  40. C AUTHOR={R.Barrett, M.Berry, T.F.Chan, J.Demmel, J.Donato,
  41. C J.Dongarra, V.Eijkhout, R.Pozo, C.Romine,
  42. C H. Van der Vorst},
  43. C TITLE={Templates for the Solution of Linear Systems :
  44. C Building Blocks for Iterative Methods},
  45. C PUBLISHER={SIAM}, YEAR={1994}, ADDRESS={Philadelphia,PA} }
  46. C -> URL : http://www.netlib.org/templates/Templates.html
  47. C***********************************************************************
  48. C APPELES : -
  49. C***********************************************************************
  50. C ENTREES : MATRIK, IMPR
  51. C ENTREES/SORTIES : -
  52. C SORTIES : INVPIV (IDIAG dans KIDMAT(1) dans MATRIK)
  53. C IRET
  54. C CODE RETOUR (IRET) : 0 si ok
  55. C <0 si problème
  56. C MATRIK : pointeur sur segment MATRIK de l'include SMMATRIK
  57. C on pioche dedans les informations nécessaires
  58. C (différents pointeurs, nb. de ddl...)
  59. C IMPR : niveau d'impression
  60. C INVPIV : pointeur sur segment IZA de l'include SMMATRIK
  61. C vecteur contenant l'inverse de la factorisation
  62. C D-ILU de la matrice morse pointée par MATRIK
  63. C (KIDMAT(4-5))
  64. C***********************************************************************
  65. C VERSION : v1, 01/04/98, version initiale
  66. C HISTORIQUE : v1, 01/04/98, création
  67. C HISTORIQUE : 09/02/98, on ne construit pas le préconditionneur s'il
  68. C existe déjà.
  69. C HISTORIQUE :
  70. C***********************************************************************
  71. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  72. C en cas de modification de ce sous-programme afin de faciliter
  73. C la maintenance !
  74. C***********************************************************************
  75. -INC CCOPTIO
  76. POINTEUR KMORS.PMORS
  77. POINTEUR KISA.IZA
  78. POINTEUR INVPIV.IZA
  79. *
  80. * .. Variables locales
  81. C***
  82. IRET=0
  83. IF (IMPR.GT.5) WRITE(IOIMP,*) 'Entrée dans prdilu'
  84. C On récupère les segments utiles
  85. SEGACT MATRIK
  86. NTTT =KNTTT
  87. IDMAT=KIDMAT(1)
  88. KSIM =KSYM
  89. SEGACT IDMAT
  90. INVPIV=IDIAG
  91. SEGDES IDMAT
  92. SEGDES MATRIK
  93. C Le préconditionneur est-il déjà construit ?
  94. C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  95. C En fait, on surcharge tout le temps INVPIV car IDIAG peut ne pas
  96. C etre nul mais contenir autre chose que le préconditionneur
  97. C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  98. INVPIV=0
  99. C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  100. IF (INVPIV.EQ.0) THEN
  101. C
  102. C On parcourt les lignes de la matrice
  103. C comme il sied au stockage Morse
  104. C
  105. NBVA=NTTT
  106. SEGINI INVPIV
  107. SEGACT KMORS
  108. SEGACT KISA
  109. NNZ=KISA.A(/1)
  110. IF (KSIM.EQ.0) THEN
  111. CALL MDILUS(NTTT,NNZ,
  112. $ KMORS.IA,KMORS.JA,KISA.A,
  113. $ INVPIV.A,
  114. $ IRET)
  115. IF (IRET.NE.0) GOTO 9999
  116.  
  117. ELSEIF (KSIM.EQ.2) THEN
  118. CALL MDILUN(NTTT,NNZ,
  119. $ KMORS.IA,KMORS.JA,KISA.A,
  120. $ INVPIV.A,
  121. $ IRET)
  122. IF (IRET.NE.0) GOTO 9999
  123. ELSE
  124. WRITE(IOIMP,*) 'Valeur incorrecte KSYM=',KSIM
  125. WRITE(IOIMP,*) 'dans le MATRIK',MATRIK
  126. IRET=-2
  127. GOTO 9999
  128. ENDIF
  129.  
  130. IF (IMPR.GT.6) THEN
  131. WRITE(IOIMP,*) 'création du pointeur INVPIV='
  132. $ ,INVPIV
  133. IF (IMPR.GT.7) THEN
  134. WRITE(IOIMP,*) 'INVPIV(1..',NBVA,')= '
  135. WRITE(IOIMP,1002)(INVPIV.A(II),II=1,NBVA)
  136. ENDIF
  137. ENDIF
  138.  
  139. SEGDES KISA
  140. SEGDES KMORS
  141. SEGDES INVPIV
  142. C
  143. C On stocke l'inverse de la diagonale obtenue
  144. C
  145. SEGACT IDMAT*MOD
  146. IDIAG=INVPIV
  147. SEGDES IDMAT
  148. ELSE
  149. IF (IMPR.GT.6) THEN
  150. WRITE(IOIMP,*) 'Le préconditionneur est déjà construit :'
  151. WRITE(IOIMP,*) 'INVPIV=',INVPIV
  152. IF (IMPR.GT.7) THEN
  153. SEGACT INVPIV
  154. WRITE(IOIMP,*) 'INVPIV.A(1..',NBVA,')= '
  155. WRITE(IOIMP,1002)(INVPIV.A(II),II=1,NBVA)
  156. SEGDES INVPIV
  157. ENDIF
  158. ENDIF
  159. ENDIF
  160. *
  161. * Normal termination
  162. *
  163. RETURN
  164. *
  165. * Format handling
  166. *
  167. 1002 FORMAT(10(1X,1PE11.4))
  168. *
  169. * Error handling
  170. *
  171. 9999 CONTINUE
  172. WRITE(IOIMP,*) 'An error was detected in prdilu.eso'
  173. RETURN
  174. *
  175. * End of PRDILU
  176. *
  177. END
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  

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