SUBROUTINE PDEC(STRING) CHARACTER(len=*),intent(in) :: STRING
Given a string, PDEC() writes out the ASCII Decimal equivalent of the string directly underneath it. This can help you to locate unprintable characters or non-standard white-space such as a backspace character or tab character in input strings that your program could not interpret. On output, non-printable characters are replaced with a space, and trailing spaces are ignored.
You read the numbers vertically.
program demo call pdec(' ABCDEFG abcdefg ') end program demowould produce (notice trailing space is trimmed):
ABCDEFG abcdefg 000000000000111 366666773999000 256789012789012