Télécharger ch2int.eso

Retour à la liste

Numérotation des lignes :

  1. C CH2INT SOURCE GOUNAND 05/12/21 21:17:08 5281
  2. SUBROUTINE CH2INT(C,I,
  3. $ IMPR,IRET)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IMPLICIT INTEGER (I-N)
  6. C***********************************************************************
  7. C NOM : CH2INT
  8. C DESCRIPTION : Chaîne d'un caractère -> chiffre
  9. C
  10. C LANGAGE : F77
  11. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  12. C mél : gounand@semt2.smts.cea.fr
  13. C***********************************************************************
  14. C***********************************************************************
  15. C ENTREES : I
  16. C SORTIES : C
  17. C***********************************************************************
  18. C VERSION : v1, 27/09/2005
  19. C***********************************************************************
  20. -INC CCOPTIO
  21. *
  22. INTEGER I
  23. CHARACTER*1 C
  24. *
  25. INTEGER IMPR,IRET
  26. *
  27. PARAMETER (NBCHIF=10)
  28. CHARACTER*1 CCHIF(NBCHIF)
  29. DATA CCHIF/'0','1','2','3','4','5','6','7','8','9'/
  30. *
  31. * Executable statements
  32. *
  33. DO ICHIF=1,NBCHIF
  34. IF (C.EQ.CCHIF(ICHIF)) THEN
  35. I=ICHIF-1
  36. * Found !
  37. GOTO 9998
  38. ENDIF
  39. ENDDO
  40. I=-1
  41. WRITE(IOIMP,*) C,' is not a number in range [0,9]'
  42. GOTO 9999
  43. *
  44. * Normal termination
  45. *
  46. 9998 CONTINUE
  47. IRET=0
  48. RETURN
  49. *
  50. * Format handling
  51. *
  52. *
  53. * Error handling
  54. *
  55. 9999 CONTINUE
  56. IRET=1
  57. WRITE(IOIMP,*) 'An error was detected in subroutine ch2int'
  58. RETURN
  59. *
  60. * End of subroutine CH2INT
  61. *
  62. END
  63.  
  64.  
  65.  

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