Procedures | Cast3M

   1 : * KRESP     PROCEDUR  GOUNAND   11/05/24    21:15:40     6976           
   2 : * ======================================================================
   3 : *
   4 : *     PROCEDURE DE PREPARATION DE LA MATRICE DE PRECONDITIONNEMENT
   5 : *                  AVANT L APPEL A LA PROCEDURE KRES
   6 : *
   7 : * ======================================================================
   8 : 'DEBP' KRESP ;
   9 : 'ARGU' MAT1*'MATRIK' MOT1*'MOT' TAB1*'TABLE'
  10 :                      MOT2*'MOT' CHP1*'CHPOINT'
  11 :                      MOT3*'MOT' CHP2*'CHPOINT'
  12 :                      MOT4*'MOT' ENT1*'ENTIER' ;
  13 : 
  14 : 'SI' ('>EG' TAB1 . 'TYPINV' 2) ; 
  15 :   lword1 = 'EXTR' MAT1 'COMP' ;
  16 :   word1 = 'EXTR' lword1 1 ;
  17 : 
  18 :   'SI' ('NON' ('EXIS' TAB1 'TABRES')) ;
  19 :     TAB1 . 'TABRES' = 'TABLE' ;
  20 :   'FINSI' ;
  21 : 
  22 :   'SI' (TAB1 . 'CALPREC') ;
  23 :     'SI' ('NON' ('EXIS' TAB1.'TABRES' word1)) ;
  24 :       TAB1 . 'TABRES' . word1 = 'TABLE' ;
  25 :       TAB1 . 'TABRES' . word1 . 'MATASS' = MAT1 ;
  26 :       TAB1 . 'TABRES' . word1 . 'MAPREC' = MAT1 ;
  27 :       'MESS' 'On recalcule le preconditionneur';
  28 :     'SINON' ;
  29 :       TAB1 . 'TABRES' . word1 . 'MATASS' = MAT1 ;
  30 :       TAB1 . 'TABRES' . word1 . 'MAPREC' = MAT1 ;
  31 :       'MESS' 'On recalcule le preconditionneur';
  32 :     'FINSI' ;
  33 :   'FINSI' ;
  34 :   TAB1 . 'MATASS' = TAB1.'TABRES'.word1.'MATASS' ;
  35 :   TAB1 . 'MAPREC' = TAB1.'TABRES'.word1.'MAPREC' ;
  36 : 'FINSI' ;
  37 : 
  38 : resi = 'KRES'  MAT1 MOT1 TAB1
  39 :                     MOT2 CHP1
  40 :                     MOT3 CHP2
  41 :                     MOT4 ENT1 ;
  42 :                     
  43 : 'RESP' resi ;
  44 :   
  45 : 'FINP' ;
  46 :  
  47 :