Esope source files

   1 : C INT2CH    SOURCE    GOUNAND   05/12/21    21:33:19     5281           
   2 :       SUBROUTINE INT2CH(I,C,
   3 :      $     IMPR,IRET)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       IMPLICIT INTEGER (I-N)
   6 : C***********************************************************************
   7 : C NOM         : INT2CH
   8 : C DESCRIPTION : Chiffre -> chaîne de caractère
   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 :       C=' '
  34 :       IF (I.LT.0.OR.I.GT.9) THEN
  35 :          WRITE(IOIMP,*) 'I=',I,' out of range [0,9]'
  36 :          GOTO 9999
  37 :       ELSE
  38 :          C=CCHIF(I+1)
  39 :       ENDIF
  40 : *
  41 : * Normal termination
  42 : *
  43 :       IRET=0
  44 :       RETURN
  45 : *     
  46 : * Format handling
  47 : *     
  48 : *     
  49 : * Error handling
  50 : *     
  51 :  9999 CONTINUE
  52 :       IRET=1
  53 :       WRITE(IOIMP,*) 'An error was detected in subroutine int2ch'
  54 :       RETURN
  55 : *
  56 : * End of subroutine INT2CH
  57 : *
  58 :       END
  59 : 
  60 :