Télécharger titmod.eso

Retour à la liste

Numérotation des lignes :

titmod
  1. C TITMOD SOURCE CHAT 05/01/13 03:41:35 5004
  2. SUBROUTINE TITMOD(MMODE,ITEX)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C FABRICATION DU TITRE ITEX POUR LE MODE D'EN TETE MMODE
  7. C
  8. C ECRIT PAR FARVACQUE
  9. C=======================================================================
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMSOLUT
  14. CHARACTER *72 ITEX
  15. C
  16. ITEX=' MODE NUMERO FREQUENCE HZ'
  17. C
  18. SEGACT MMODE
  19. WRITE(ITEX(17:20),FMT='(I4)') IMMODD(1)
  20. FREQ= FMMODD(1)
  21. IF(FREQ.GT.1) THEN
  22. WRITE(ITEX(37:44),FMT='(F8.3)') FREQ
  23. ELSE
  24. WRITE(ITEX(37:48),FMT='(1PE12.5)') FREQ
  25. ENDIF
  26. C
  27. IF(IMMODD(3).NE.0) THEN
  28. ITEX(57:60)=' N='
  29. WRITE(ITEX(61:64),FMT='(I4)') ABS(IMMODD(2))
  30. ENDIF
  31. IF(IMMODD(2).EQ.0) GOTO 999
  32. I=IMMODD(3)
  33. IF(I.EQ.1) ITEX(66:72)='SINUS'
  34. IF(I.EQ.2) ITEX(66:72)='COSINUS'
  35. C
  36. 999 CONTINUE
  37. SEGDES MMODE
  38. RETURN
  39. END
  40.  
  41.  

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