Esope source files

   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 :