SUBROUTINE FOO ( D )
Argument Definitions (+ indicates altered content)
INTEGER            d(*,*)
Source file:dims.f
Intrinsic Functions Called
CHARACTER          char
INTEGER            ichar,      len
External Functions and Subroutines Called
CHARACTER          str
Parameter Variables Used
INTEGER            n                  (n = 1)
INTEGER            m                  (m = 2)
INTEGER            k                  (k = 3)
Local Variables (+ indicates altered content)
CHARACTER*10      +c(len('won''t'))
INTEGER           +a(1:m*n,-n+2)