Télécharger la plaquette Cast3M


fr en

Télécharger topotemp.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOTEMP  PROCEDUR  FD218221  25/12/18    21:15:14     12429          
  2.  
  3. ************************************************************************
  4. ** Procedure called by TOPOPTIM that converts input time in ms into a
  5. ** formated string "00:00:00.000".
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 2.0 2025/11/17 Made compatible with TOPOPTIM V4.
  12. ** 1.0 2021/04/15 Initial version
  13. ************************************************************************
  14.  
  15. DEBP TOPOTEMP tim*'ENTIER' ;
  16.  
  17. *   Time in s
  18.     tim = tim / 1.0e3 ;
  19. *   Miliseconds
  20.     outtim = CHAI '000' (ENTI ((tim - (ENTI tim)) * 1.0e3))*3 ;
  21. *   Time in min
  22.     tim = tim / 60.0 ;
  23. *   Seconds
  24.     outtim = CHAI '00' (ENTI ((tim - (ENTI tim)) * 60.0))*2 '.' outtim ;
  25. *   Time in h
  26.     tim = tim / 60.0 ;
  27. *   Minutes
  28.     outtim = CHAI '00' (ENTI ((tim - (ENTI tim)) * 60.0))*2 ':' outtim ;
  29. *   Hours
  30.     outtim = CHAI '00' (ENTI tim)*2 ':' outtim ;
  31.  
  32. FINP outtim ;
  33.  
  34.  
  35.  

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