Télécharger la plaquette Cast3M


fr en

Télécharger int2ch.eso

Retour à la liste

Numérotation des lignes : 

int2ch

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

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