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