interface
     function SerieSum(f,x,y)
       integer SerieSum
       interface
         function f(z)
         integer f;
         integer, intent(in) :: z;
         end function f
       end interface

       integer, intent(in) :: x;
       integer, intent(in) :: y;
     end function
   end interface