Procedures | Cast3M

   1 : * RECENTRE  PROCEDUR  LEPOTIER  08/12/10    21:15:26     6214           
   2 : * RECENTRE  PROCEDUR  CLP       10/10/08    21:15:05     5841           
   3 : ***********************************************************************
   4 : *
   5 : * Procédure qui prend un champ point centre, et
   6 : *  - si niv = 'CENTRE', ne fait rien,
   7 : *  - si niv = 'MSOMMET'  , fait une interpolation aux centres
   8 : *                          en utilisant 'NOEL'
   9 : *  - si niv = 'FACE'  , fait la moyenne aux faces
  10 : *
  11 : * Retourne le champ-point (re)centré.
  12 : *
  13 : ***********************************************************************
  14 : 'DEBPROC' RECENTRE CHP1*'CHPOINT' MMO*'MMODEL'NIV*'MOT' ;
  15 : 
  16 :   'SI' ('EGA' niv 'CENTRE') ;
  17 : *    le champ est déjà aux centres, on ne fait rien
  18 :      'RESPRO' chp1 ;
  19 :      'QUITTER' RECENTRE ;
  20 :   'FINSI' ;
  21 : 
  22 :   'SI' ('EGA' niv 'MSOMMET') ;
  23 :       ncomp = extr chp1 COMP;
  24 :       chptot = 'NOEL' MMO chp1 ;
  25 :       ncompn = extr chptot COMP;
  26 :       chptot = NOMC ncompn ncomp chptot;
  27 :      'RESPRO' chptot ;
  28 :      'QUITTER' RECENTRE ;
  29 :   'FINSI' ;
  30 : 
  31 :   'SI' ('EGA' niv 'FACE') ;
  32 :      ABMC = 'ABS' ('DOMA' MMO 'ORIENTAT')  ; 
  33 :      FF          = 'MANU' 'CHPO' ('DOMA' MMO  'FACE')
  34 :                                      1 'FLUX' 1. 'NATURE' 'DISCRET' ;
  35 :      FF   = 'DIVU' MMO  FF  ABMC ;
  36 : 
  37 :      lcomp = 'EXTR' chp1 'COMP' ;
  38 :      ncomp = 'DIME' lcomp ;
  39 :      'REPETER' bcl ncomp ;
  40 :         i     = &bcl ;
  41 :         compi = 'EXTR' lcomp i ;
  42 :         chpi  = 'EXCO' chp1 compi compi ;
  43 :         chp2  = 'DIVU' MMO ('NOMC' chpi 'FLUX') ABMC ;
  44 :         chp3  = 'KOPS' chp2 '/' FF ;
  45 :         'DETRUIT' chp2 ;
  46 : 
  47 : *       concaténation champ-point avec toutes les composantes
  48 :         'SI' ('EGA' i 1) ;
  49 :            chptot = chp3 ;
  50 :         'SINON' ;
  51 :            chptot = chptot 'ET' chp3 ;
  52 :         'FINSI' ;
  53 :      'FIN' bcl ;
  54 : 
  55 : *    sortie
  56 :      'RESPRO' chptot ;
  57 :      'QUITTER' RECENTRE ;
  58 : 
  59 :   'FINSI' ;
  60 : 
  61 :   'ERREUR' ('CHAINE' 'Type de décentrement ' niv ' inconnu.') ;
  62 : 
  63 : 'FINPROC' ;
  64 : ***********************************************************************
  65 :  
  66 :  
  67 :