Source dims.f

### 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)