Télécharger mode20.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE20 SOURCE KICH 18/10/04 21:15:26 9946
  2. SUBROUTINE MODE20(ITY1,LTEF)
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. -INC CCOPTIO
  8.  
  9. CHARACTER*4 LTEF
  10. MOTERR(1:4) = 'MOT '
  11. MOTERR(9:12) = ltef(1:4)
  12.  
  13. IF(ITY1.eq.4) LTEF = 'ICT3'
  14. IF(ITY1.eq.6) LTEF = 'ICT6'
  15. IF(ITY1.eq.8) LTEF = 'ICQ4'
  16. IF(ITY1.eq.10) LTEF = 'ICQ8'
  17.  
  18. IF(ITY1.eq.14) LTEF = 'ICC8'
  19. IF(ITY1.eq.15) LTEF = 'IC20'
  20. IF(ITY1.eq.16) LTEF = 'ICP6'
  21. IF(ITY1.eq.17) LTEF = 'IC15'
  22. IF(ITY1.eq.23) LTEF = 'ICT4'
  23. IF(ITY1.eq.24) LTEF = 'IC10'
  24. IF(ITY1.eq.25) LTEF = 'ICY5'
  25. IF(ITY1.eq.26) LTEF = 'IC13'
  26.  
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  

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