subroutine driver(f, n)
integer, intent(in) :: n
call f(n)
end subroutine

