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)