w3ai38.f

Go to the documentation of this file.

C> @file
C> @brief EBCDIC to ASCII
C> @author Armand Desmarais @date 1982-11-29
 
C> Convert EBCDIC to ASCII by character.
C> This subroutine can be replaced by cray utility subroutine
C> uscctc. See manual sr-2079 page 3-15. cray utility tr
C> can also be used for ASCII, EBCDIC conversion. See manual sr-2079
C> page 9-35.
C>
C> Program history log:
C> - Armand Desmarais 1982-11-29
C> - Ralph Jones 1988-03-31 Change logic so it works like a
C> ibm370 translate instruction.
C> - Ralph Jones 1988-08-22 Changes for microsoft fortran 4.10.
C> - Ralph Jones 1988-09-04 Change tables to 128 character set.
C> - Ralph Jones 1990-01-31 Convert to cray cft77 fortran
C> cray does not allow char*1 to be set to hex.
C> - Stephen Gilbert 98-12-21 Replaced Function ICHAR with mova2i.
C>
C> @param[inout] IE (in) Character*1 array of EBCDIC data (out) ASCII data
C> @param[in] NC Integer, contains character count to convert.
C>
C> @note Software version of ibm370 translate instruction, by
C> changing the two tables we could do a 64, 96, 128 ASCII
C> character set, change lower case to upper, etc.
C> aea converts data at a rate of 1.5 million characters per sec.
C> cray utility usccti convert ASCII to IBM EBCDIC
C> cray utility uscctc convert IBM EBCDIC to ASCII
C> they convert data at a rate of 2.1 million characters per sec.
C> cray utility tr will also do a ASCII, EBCDIC conversion.
C> tr convert data at a rate of 5.4 million characters per sec.
C> tr is in library /usr/lib/libcos.a add to segldr card.
C>
C> @author Armand Desmarais @date 1982-11-29
      SUBROUTINE w3ai38 (IE, NC )
C
      INTEGER(8)      IASCII(32)
C
      CHARACTER*1  IE(*)
      CHARACTER*1  ASCII(0:255)
C
      equivalence(iascii(1),ascii(0))
C
C***   ASCII  CONTAINS ASCII CHARACTERS, AS PUNCHED ON IBM029
C
       DATA  iascii/
     & z'000102030009007F',z'0000000B0C0D0E0F',
     & z'1011120000000000',z'1819000000000000',
     & z'00001C000A001700',z'0000000000050607',
     & z'00001600001E0004',z'000000001415001A',
     & z'2000600000000000',z'0000602E3C282B00',
     & z'2600000000000000',z'000021242A293B5E',
     & z'2D2F000000000000',z'00007C2C255F3E3F',
     & z'0000000000000000',z'00603A2340273D22',
     & z'2061626364656667',z'6869202020202020',
     & z'206A6B6C6D6E6F70',z'7172202020202020',
     & z'207E737475767778',z'797A2020205B2020',
     & z'0000000000000000',z'00000000005D0000',
     & z'7B41424344454647',z'4849202020202020',
     & z'7D4A4B4C4D4E4F50',z'5152202020202020',
     & z'5C20535455565758',z'595A202020202020',
     & z'3031323334353637',z'3839202020202020'/
C
      IF (nc .LE. 0)   RETURN
C
C***  CONVERT STRING ...  EBCDIC TO ASCII,   NC CHARACTERS
C
        DO  20  j = 1, nc
          ie(j) = ascii(mova2i(ie(j)))
 20     CONTINUE
C
      RETURN
      END