!***********************************************************************************************************************************
!  ECHAR
!
!  This is the EBCDIC version of Fortran function ACHAR.  It returns a character from the EBCDIC collating sequence.
!
!  Given an integer N, this function returns the corresponding EBCDIC character E.
!
!  Author:  Dr. David G. Simpson, NASA Goddard Space Flight Center, Greenbelt, MD USA - June 1, 2020
!***********************************************************************************************************************************

      FUNCTION ECHAR (N) RESULT (E)

      IMPLICIT NONE

      INTEGER, INTENT(IN) :: N
      CHARACTER :: E

      CHARACTER, DIMENSION(0:255), PARAMETER :: EBCDIC_TBL = (/   &
!         0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.',  &    ! 00 - 0F
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.',  &    ! 10 - 1F
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.',  &    ! 20 - 2F
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.',  &    ! 30 - 3F
         ' ', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', '<', '(', '+', '.',  &    ! 40 - 4F
         '&', '.', '.', '.', '.', '.', '.', '.', '.', '.', '!', '$', '*', ')', ';', '.',  &    ! 50 - 5F
         '-', '/', '.', '.', '.', '.', '.', '.', '.', '.', '|', ',', '%', '_', '>', '?',  &    ! 60 - 6F
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '.', ':', '#', '@', "'", '=', '"',  &    ! 70 - 7F
         '.', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', '.', '.', '.', '.', '.', '.',  &    ! 80 - 8F
         '.', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', '.', '.', '.', '.', '.', '.',  &    ! 90 - 9F
         '.', '~', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '.', '.', '.', '.', '.', '.',  &    ! A0 - AF
         '.', '.', '.', '.', '.', '.', '.', '.', '.', '`', '.', '.', '.', '.', '.', '.',  &    ! B0 - BF
         '{', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', '.', '.', '.', '.', '.', '.',  &    ! C0 - CF
         '}', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', '.', '.', '.', '.', '.', '.',  &    ! D0 - DF
         '\', '.', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '.', '.', '.', '.', '.', '.',  &    ! E0 - EF
         '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.', '.', '.', '.', '.', '.'  /)    ! F0 - FF

      E = EBCDIC_TBL(N)

      RETURN

      END