Télécharger la plaquette Cast3M


fr en

Télécharger ch2int.eso

Retour à la liste

Numérotation des lignes : 

ch2int

  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.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23. *
  24.       INTEGER I
  25.       CHARACTER*1 C
  26. *
  27.       INTEGER IMPR,IRET
  28. *
  29.       PARAMETER (NBCHIF=10)
  30.       CHARACTER*1 CCHIF(NBCHIF)
  31.       DATA CCHIF/'0','1','2','3','4','5','6','7','8','9'/
  32. *
  33. * Executable statements
  34. *
  35.       DO ICHIF=1,NBCHIF
  36.          IF (C.EQ.CCHIF(ICHIF)) THEN
  37.             I=ICHIF-1
  38. * Found !
  39.             GOTO 9998
  40.          ENDIF
  41.       ENDDO
  42.       I=-1
  43.       WRITE(IOIMP,*) C,' is not a number in range [0,9]'
  44.       GOTO 9999
  45. *
  46. * Normal termination
  47. *
  48.  9998 CONTINUE
  49.       IRET=0
  50.       RETURN
  51. *
  52. * Format handling
  53. *
  54. *
  55. * Error handling
  56. *
  57.  9999 CONTINUE
  58.       IRET=1
  59.       WRITE(IOIMP,*) 'An error was detected in subroutine ch2int'
  60.       RETURN
  61. *
  62. * End of subroutine CH2INT
  63. *
  64.       END
  65.  
  66.  
  67.  

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