SUBROUTINE FOO ( A, B, C, D )
Argument Definitions (+ indicates altered content)
real               A(1),       B(*),       C(21,*),    D(2)
Source file:t208n.f
Intrinsic Functions Called
integer            ICHAR