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.
Copyright © 2018 East Asian Observatory