bttranschar()

subroutine bttranschar	(	character	transto,
		integer	n,
		character*1, dimension(n)	cmem,
		integer, dimension(n)	imem
	)

Definition at line 1038 of file blacstest.f.

      CHARACTER TRANSTO
      INTEGER N
      CHARACTER*1 CMEM(N)
      INTEGER IMEM(N)
      INTEGER I
*
      IF( transto .EQ. 'I' ) THEN
         DO 10 i = 1, n
            imem(i) = ichar( cmem(i) )
   10    CONTINUE
      ELSE
         DO 20 i = 1, n
            cmem(i) = char( imem(i) )
   20    CONTINUE
      END IF
      RETURN

Here is the caller graph for this function: