Télécharger kresp.procedur

Retour à la liste

Numérotation des lignes :

  1. * KRESP PROCEDUR MAGN 17/02/24 21:15:19 9323
  2. * ======================================================================
  3. *
  4. * PROCEDURE DE PREPARATION DE LA MATRICE DE PRECONDITIONNEMENT
  5. * AVANT L APPEL A KRES
  6. *
  7. * La procédure accepte des objets MATRIK ou des objets RIGIDITE
  8. * On utilise KRES si on a un objet MATRIK
  9. * On utilise RESOU si on a un objet RIGIDITE
  10. * ======================================================================
  11. 'DEBP' KRESP ;
  12. 'ARGU' MAT1/'MATRIK' MAT2/'RIGIDITE' MOT1*'MOT' TAB1*'TABLE'
  13. MOT2*'MOT' CHP1*'CHPOINT'
  14. MOT3*'MOT' CHP2*'CHPOINT'
  15. MOT4*'MOT' ENT1*'ENTIER' ;
  16.  
  17. MRIG=VRAI ;
  18. Si (EXIST MAT1) ; MRIG=FAUX; Finsi ;
  19. MRIK= NON MRIG ;
  20.  
  21. Si MRIK ;
  22. 'SI' ('>EG' TAB1 . 'TYPINV' 2) ;
  23. lword1 = 'EXTR' MAT1 'COMP' ;
  24. word1 = 'EXTR' lword1 1 ;
  25.  
  26. 'SI' ('NON' ('EXIS' TAB1 'TABRES')) ;
  27. TAB1 . 'TABRES' = 'TABLE' ;
  28. 'FINSI' ;
  29.  
  30. 'SI' (TAB1 . 'CALPREC') ;
  31. 'SI' ('NON' ('EXIS' TAB1.'TABRES' word1)) ;
  32. TAB1 . 'TABRES' . word1 = 'TABLE' ;
  33. TAB1 . 'TABRES' . word1 . 'MATASS' = MAT1 ;
  34. TAB1 . 'TABRES' . word1 . 'MAPREC' = MAT1 ;
  35. 'MESS' 'On recalcule le preconditionneur' ;
  36. 'SINON' ;
  37. TAB1 . 'TABRES' . word1 . 'MATASS' = MAT1 ;
  38. TAB1 . 'TABRES' . word1 . 'MAPREC' = MAT1 ;
  39. 'MESS' 'On recalcule le preconditionneur' ;
  40. 'FINSI' ;
  41. 'FINSI' ;
  42. TAB1 . 'MATASS' = TAB1.'TABRES'.word1.'MATASS' ;
  43. TAB1 . 'MAPREC' = TAB1.'TABRES'.word1.'MAPREC' ;
  44. 'FINSI' ;
  45.  
  46. resi = 'KRES' MAT1 MOT1 TAB1
  47. MOT2 CHP1
  48. MOT3 CHP2
  49. MOT4 ENT1 ;
  50. FINSI ;
  51.  
  52. Si MRIG ;
  53. *mess '===================> RESOU';
  54. *mess '===================> RESOU';
  55. *mess '===================> RESOU';
  56. resi = 'RESOU' MAT2 (CHP1 et CHP2) ;
  57. FINSI ;
  58.  
  59.  
  60. 'FINP' ;
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  

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