Télécharger la plaquette Cast3M


fr en

Télécharger recentre.procedur

Retour à la liste

Numérotation des lignes : 

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

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