Как вызвать функцию, внутреннюю по отношению к подпрограмме в модуле?

У меня есть модуль, который содержит подпрограмму, которая, в свою очередь, содержит функцию. Я говорю использовать модуль в моей основной программе, и я могу вызывать подпрограмму , но как мне получить доступ к функции, содержащейся в подпрограмме?

Код выглядит следующим образом:

module useful
  integer, parameter :: N=2
  double precision, parameter :: xmin=1, xmax=10, pi=3.1415926535898
  double complex :: green(N,N), solution(N), k=(2.0,0.0)
contains
  subroutine y(n1)
  contains
    function x(n1)
      real :: n1, x
      x=n1*(xmax-xmin)/N
    end function x
  end subroutine y
end module useful