SUBROUTINE A4R4A (R4A, a4, n)

ARGUMENTS

OUT

R4A(*)   array containing R4A characters    integer

IN

A4(*)    array containing A4 characters     integer

N        number of characters to transfer   integer

DESCRIPTION

Transfers N characters formatted with A4 (4 characters per integer, left aligned, blank padded) to R4A format (4 characters per integer, right aligned, null left padding).

EXAMPLE

Number 1