3 subroutine xx(n, m, a, b, c, d, x, z, i, s_in, s_out)  subroutine
5   integer, intent(in) :: n, m  local
6   real, intent(in), dimension(n,n) :: a, b, c  local
7   real, intent(out), dimension(n,n) :: d
8   real, intent(in), dimension(n,m) :: s_in
9   real, intent(out), dimension(m) :: s_out
10   integer, intent(out) :: i
11   real, intent(inout) :: x  local
12   real, intent(out) :: z  local
13   character(60) :: line
14   real, external :: ext_func
38 end subroutine xx  argument