6 lines
115 B
Plaintext
6 lines
115 B
Plaintext
subroutine foo(a,m,n)
|
|
integer m = size(a,1)
|
|
integer n = size(a,2)
|
|
real, intent(inout) :: a(m,n)
|
|
end subroutine foo
|