function [phiwert] = phi(alpha)
% ======================================================================
% Funktion, dient zur Schrittlaengenbestimmung 
% ======================================================================
global fname;
global xaktuell;
global s;

phiwert = feval(fname,xaktuell + alpha * s);