CHR_MTOE  -  Translate a string from the machine's character set to EBCDIC

Description:

The string STR1, which is a Fortran 77 CHARACTER string, is returned in STR2 translated into a form which can be written and subsequently read correctly by a machine which uses the EBCDIC character set.

Any characters which are not represented in the EBCDIC character set are translated to EBCDIC SPACE. Non-printable characters are translated where possible.

Invocation:

CALL CHR_MTOE( STR1, STR2 )

Arguments:

STR1 = CHARACTER ( ) (Given)

The Fortran 77 character string.

STR2 = CHARACTER ( ) (Returned)

A character string which may be written and subsequently read correctly by a machine which uses the EBCDIC character set to represent characters in Fortran. If STR2 is shorter than STR1, the translated string will be truncated; if STR2 is longer than STR1, STR2 will be padded with blanks beyond the translated string.

System-specific

This subroutine has been implemented for machines which use the ASCII character set.