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)