Télécharger la plaquette Cast3M


fr en

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.  
  60.  
  61. 'FINP'                                           ;
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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