Télécharger la plaquette Cast3M


fr en

Télécharger convt.procedur

Retour à la liste

Numérotation des lignes : 

  1. * CONVT     PROCEDUR  MAUGIS    07/10/26    21:15:15     5712           
  2. ************************************************************************
  3. * NOM         : CONVT
  4. * DESCRIPTION : convertit un temps (s) en une chaîne de caractères
  5. *               contenant ce temps exprimé dans l'unité pertinente
  6. *               (fs,ps,ns,us,ms,s,h,j,a)
  7. *
  8. * LANGAGE     : GIBIANE-CAST3M
  9. * AUTEUR      : Pascal MAUGIS (CEA/DEN/DM2S/SFME/MTMS)
  10. *               mél : maugis@semt2.smts.cea.fr
  11. *
  12. **********************************************************************
  13. *
  14. * VERSION    : v2, 11/02/2003, version évoluée
  15. * HISTORIQUE : v1, 11/02/2003, création
  16. * HISTORIQUE : v2, 29/07/2004, chgt nom de @CONVT en CONVT
  17. * HISTORIQUE : v3, 07/08/2007, incorpore plus d'unités
  18. * HISTORIQUE : v4, 07/09/2007, données des unités possible en minuscule
  19. *                              ou anglaises
  20. *
  21. ************************************************************************
  22. * Prière de PRENDRE LE TEMPS de compléter les commentaires
  23. * en cas de modification de ce sous-programme afin de faciliter
  24. * la maintenance !
  25. ************************************************************************
  26. *
  27. *
  28. 'DEBPROC' CONVT tps*'FLOTTANT' nn/'ENTIER' unit/'MOT' ;
  29.  
  30. * si nul, on ne convertit ni n'affiche d'unité
  31.   'SI' ('EGA' tps 0.) ;
  32.      out = '0' ;
  33.      'QUITTER' CONVT ;
  34.   'FINSI' ;
  35.  
  36. * nombre de chiffres après la virgule
  37.   'SI' ('NON' ('EXISTE' nn)) ;
  38.     nn = 2 ;
  39.   'FINSI' ;
  40.  
  41. * unité cible (parmi US,MS,S,H,J,D,A,Y)
  42.   LIUNIT = 'MOTS' 'FS' 'PS' 'NS' 'US' 'MS' 'S' 'H' 'J' 'D' 'A' 'Y'
  43.                   'fs' 'ps' 'ns' 'us' 'ms' 's' 'h' 'j' 'd' 'a' 'y' ;
  44.  
  45.   'SI' ('NON' ('EXISTE' unit)) ;
  46.      'SI'           (tps < 1.d-12) ;
  47.          unit = 'MOT' 'FS' ;
  48.      'SINON' ; 'SI' (tps < 1.d-9) ;
  49.          unit = 'MOT' 'PS' ;
  50.      'SINON' ; 'SI' (tps < 1.d-6) ;
  51.          unit = 'MOT' 'NS' ;
  52.      'SINON' ; 'SI' (tps < 1.d-3) ;
  53.          unit = 'MOT' 'US' ;
  54.      'SINON' ; 'SI' (tps < 1.) ;
  55.          unit = 'MOT' 'MS' ;
  56.      'SINON' ; 'SI' (tps < 3600.) ;
  57.          unit = 'MOT' 'S' ;
  58.      'SINON' ; 'SI' (tps < (3600. * 24.)) ;
  59.          unit = 'MOT' 'H' ;
  60.      'SINON' ; 'SI' (tps < (3600. * 24. * 365.25)) ;
  61.          unit = 'MOT' 'J' ;
  62.      'SINON' ;
  63.          unit = 'MOT' 'A' ;
  64.      'FINSI' ;
  65.      'FINSI' ;
  66.      'FINSI' ;
  67.      'FINSI' ;
  68.      'FINSI' ;
  69.      'FINSI' ;
  70.      'FINSI' ;
  71.      'FINSI' ;
  72.   'SINON' ;
  73.      'SI' ('NON' ('EXISTE' liunit unit)) ;
  74.         'ERREUR' 'Unité de temps ' UNIT ' non reconnue' ;
  75.      'FINSI' ;
  76.   'FINSI' ;
  77.  
  78. * détermination coef de conversion    
  79.   'SI' (('EGA' unit 'FS') 'OU' ('EGA' unit 'fs')) ;
  80.      coef = 1.d15 ;
  81.      ntps = 'MOT'  'fs' ;
  82.   'FINSI' ;
  83.   'SI' (('EGA' unit 'PS') 'OU' ('EGA' unit 'ps')) ;
  84.      coef = 1.d12 ;
  85.      ntps = 'MOT'  'ps' ;
  86.   'FINSI' ;
  87.   'SI' (('EGA' unit 'NS') 'OU' ('EGA' unit 'ns')) ;
  88.      coef = 1.d9 ;
  89.      ntps = 'MOT'  'ns' ;
  90.   'FINSI' ;
  91.   'SI' (('EGA' unit 'US') 'OU' ('EGA' unit 'us')) ;
  92.      coef = 1.d6 ;
  93.      ntps = 'MOT'  'us' ;
  94.   'FINSI' ;
  95.   'SI' (('EGA' unit 'MS') 'OU' ('EGA' unit 'ms')) ;
  96.      coef = 1.d3;
  97.      ntps = 'MOT'  'ms' ;
  98.   'FINSI' ;
  99.   'SI' (('EGA' unit 'S') 'OU' ('EGA' unit 's')) ;
  100.      coef = 1. ;
  101.      ntps = 'MOT'  's' ;
  102.   'FINSI' ;
  103.   'SI' (('EGA' unit 'H') 'OU' ('EGA' unit 'h')) ;
  104.      coef = 1. / 3600. ;
  105.      ntps = 'MOT'  'h' ;
  106.   'FINSI' ;
  107.   'SI' (('EGA' unit 'J') 'OU' ('EGA' unit 'j')) ;
  108.      coef = 1. / (3600. * 24.) ;
  109.      ntps = 'MOT'  'j' ;
  110.   'FINSI' ;
  111.   'SI' (('EGA' unit 'D') 'OU' ('EGA' unit 'd')) ;
  112.      coef = 1. / (3600. * 24.) ;
  113.      ntps = 'MOT'  'd' ;
  114.   'FINSI' ;
  115.   'SI' (('EGA' unit 'A') 'OU' ('EGA' unit 'a')) ;
  116.      coef = 1. / (3600. * 24. * 365.25) ;
  117.      ntps = 'MOT'  'a' ;
  118.   'FINSI' ;
  119.   'SI' (('EGA' unit 'Y') 'OU' ('EGA' unit 'y')) ;
  120.      coef = 1. / (3600. * 24. * 365.25) ;
  121.      ntps = 'MOT'  'y' ;
  122.   'FINSI' ;
  123.  
  124. * convertion  
  125. out = 'CHAINE' (@FIX (tps * coef) nn) ntps ;
  126.  
  127. 'FINPROC' out ;
  128.  

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