% Bild Struktogramm
\unitlength0.8cm

\newsavebox{\bedzweig}
\savebox{\bedzweig}(0,0){
%\thicklines
\put(0,0.5){\line(-2,-1){1.0}}
\put(0,0.5){\line(2,-1){1.0}}
\put(0,-0.5){\line(-2,1){1.0}}
\put(0,-0.5){\line(2,1){1.0}}
\put(0,0.5){\makebox(0,0)[b]
  {\put(0,0){\line(0,1){0.5}}}}
\put(1.0,0){\line(1,0){1.0}}
\put(-1.0,0){\line(-1,0){1.0}}
\put(-1.2,0,1) {\makebox(0,0)[br]{no}}
\put(1.2,0,1) {\makebox(0,0)[bl]{yes}} }



\begin{picture}(10,13)
% setze 1 Box

% setze Linien
%\multiput(1,0)(1,0){15}{\line(0,1){1}}
% schreibe
%\put(0,0){\framebox(16,1)[c]}

\multiput(0,0)(0,2){2}{\framebox(10,1)[c]}

\multiput(0,6)(0,2){4}{\framebox(10,1)[c]}


\put(0.2,12.2){\makebox[10cm][l]{Initialise the Fourier transform.}}
\put(0.2,10.2){\makebox[10cm][l]{Initialise the corresponding inverse.}}
\put(0.2,8.2){\makebox[10cm][l]{Compute residuals.}}
\put(0.2,6.2){\makebox[10cm][l]{Compute one iteration.}}
\put(0.2,2.2){\makebox[10cm][l]{Finalise the inverse transform.}}
\put(0.2,0.2){\makebox[10cm][l]{Finalise the Fourier transform.}}

\multiput(5,2)(0,2){1}{\vector(0,-1){1}}
\multiput(5,6)(0,2){4}{\vector(0,-1){1}}

\put(5,4.5){\usebox{\bedzweig}\makebox(0,-0.1){Stop?}}

\put(7,4.5){\vector(0,-1){1.5}}
\put(3,4.5){\line(-1,0){3.5}}
\put(-0.5,4.5){\line(0,1){3}}
\put(-0.5,7.5){\vector(1,0){5.5}}

%\put(11.4,1){\line(0,1){0.4}}


\end{picture}


%%% Local Variables: 
%%% mode: latex
%%% TeX-master: "main"
%%% End: 
