chrtrna.f

Go to the documentation of this file.

C> @file
C> @brief Copy a specified number of characters from an array into
C> a string.

C> This subroutine copies a specified number of characters from an
C> array of characters into a character string.
C>
C> <p>The characters in the input array CHR are assumed to be ASCII,
C> so for cases where the native machine is EBCDIC, an
C> ASCII-to-EBCDIC translation is done on the final character string
C> before it is output as STR.
C>
C> @author J. Woollen
C> @date 1994-01-06
C>
C> @param[in] CHR    -- character(*): Array of characters in ASCII
C> @param[in] N      -- integer: Number of characters to be copied
C>                      from CHR, starting from the beginning of
C>                      the array
C> @param[out] STR   -- character*(*): Character string in ASCII or
C>                      EBCDIC, depending on native machine
C>
C> @remarks
C> - The determination as to whether the native machine is ASCII or
C> EBCDIC is made via an internal call to subroutine wrdlen().
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 1994-01-06 | J. Woollen | Original author |
C> | 2003-11-04 | J. Ator    | Added documentation |
C>
      SUBROUTINE chrtrna(STR,CHR,N)

      COMMON /charac/ iascii,iatoe(0:255),ietoa(0:255)

      CHARACTER*(*) str
      CHARACTER*1   chr(n)

C----------------------------------------------------------------------
C----------------------------------------------------------------------

C     Loop on N characters of CHR

      DO i=1,n
      str(i:i) = chr(i)

C     If this is an EBCDIC machine, then translate the character
C     from ASCII -> EBCDIC.

      IF(iascii.EQ.0) CALL ipkm(str(i:i),1,iatoe(iupm(str(i:i),8)))
      ENDDO
      RETURN
      END