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