Télécharger recentre.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  68.  

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