Wie ruft man eine interne Funktion eines Unterprogramms in einem Modul auf?

Question

Ich habe ein Modul, das ein Unterprogramm enthält, das seinerseits eine Funktion enthält. Ich sage use themodule in meinem Hauptprogramm und ich kann call thesubroutine Aber wie kann ich auf die Funktion zugreifen, die in dem Unterprogramm enthalten ist?

Der Code sieht wie folgt aus:

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